ise/0000700000175100010010000000000012061535376 10025 5ustar RobNoneise/ks10.gise0000700000175100010010000005002412061406050 11442 0ustar RobNone 11.1 ise/ks10.wcfg0000700000175100010010000305270012061516334 11456 0ustar RobNone Testbench label 128 128 255 230 230 230 clk clk ks10RESET ks10RESET ssramADDR[0:22] ssramADDR[0:22] OCTALRADIX ssramDATA[0:35] ssramDATA[0:35] OCTALRADIX ssramWR ssramWR wr_addr[0:14] wr_addr[0:14] OCTALRADIX rd_addr[0:14] rd_addr[0:14] OCTALRADIX CPU Interface label 128 128 255 230 230 230 OCTALRADIX busDATAO[0:35] busDATAO[0:35] OCTALRADIX busDATAI[0:35] busDATAI[0:35] OCTALRADIX Bus Addr[14:35] label OCTALRADIX [14] busADDRO[14] [15] busADDRO[15] [16] busADDRO[16] [17] busADDRO[17] [18] busADDRO[18] [19] busADDRO[19] [20] busADDRO[20] [21] busADDRO[21] [22] busADDRO[22] [23] busADDRO[23] [24] busADDRO[24] [25] busADDRO[25] [26] busADDRO[26] [27] busADDRO[27] [28] busADDRO[28] [29] busADDRO[29] [30] busADDRO[30] [31] busADDRO[31] [32] busADDRO[32] [33] busADDRO[33] [34] busADDRO[34] [35] busADDRO[35] Bus Flags[0:13] label OCTALRADIX [0] busADDRO[0] [1] busADDRO[1] [2] busADDRO[2] [3] busADDRO[3] [4] busADDRO[4] [5] busADDRO[5] [6] busADDRO[6] [7] busADDRO[7] [8] busADDRO[8] [9] busADDRO[9] [10] busADDRO[10] [11] busADDRO[11] [12] busADDRO[12] [13] busADDRO[13] label [3] busADDRO[3] Read Cycle label [5] busADDRO[5] Write Cycle label [10] busADDRO[10] IO Cycle busREQ busREQ busACK busACK memWAIT memWAIT ----- WORK ----- label 128 128 255 230 230 230 OCTALRADIX label addr[0:11] addr[0:11] OCTALRADIX CROM ADDR[0:11] label currADDR[0:11] currADDR[0:11] OCTALRADIX CROM CURRENT ADDR[0:11] PC[18:35] PC[18:35] OCTALRADIX label regIR[0:17] regIR[0:17] OCTALRADIX IR[0:17] 1: PC[0:35] label OCTALRADIX [1,2] aluRAM[1,2] [1,3] aluRAM[1,3] [1,4] aluRAM[1,4] [1,5] aluRAM[1,5] [1,6] aluRAM[1,6] [1,7] aluRAM[1,7] [1,8] aluRAM[1,8] [1,9] aluRAM[1,9] [1,10] aluRAM[1,10] [1,11] aluRAM[1,11] [1,12] aluRAM[1,12] [1,13] aluRAM[1,13] [1,14] aluRAM[1,14] [1,15] aluRAM[1,15] [1,16] aluRAM[1,16] [1,17] aluRAM[1,17] [1,18] aluRAM[1,18] [1,19] aluRAM[1,19] [1,20] aluRAM[1,20] [1,21] aluRAM[1,21] [1,22] aluRAM[1,22] [1,23] aluRAM[1,23] [1,24] aluRAM[1,24] [1,25] aluRAM[1,25] [1,26] aluRAM[1,26] [1,27] aluRAM[1,27] [1,28] aluRAM[1,28] [1,29] aluRAM[1,29] [1,30] aluRAM[1,30] [1,31] aluRAM[1,31] [1,32] aluRAM[1,32] [1,33] aluRAM[1,33] [1,34] aluRAM[1,34] [1,35] aluRAM[1,35] [1,36] aluRAM[1,36] [1,37] aluRAM[1,37] 2: HR[0:35] label OCTALRADIX [2,2] aluRAM[2,2] [2,3] aluRAM[2,3] [2,4] aluRAM[2,4] [2,5] aluRAM[2,5] [2,6] aluRAM[2,6] [2,7] aluRAM[2,7] [2,8] aluRAM[2,8] [2,9] aluRAM[2,9] [2,10] aluRAM[2,10] [2,11] aluRAM[2,11] [2,12] aluRAM[2,12] [2,13] aluRAM[2,13] [2,14] aluRAM[2,14] [2,15] aluRAM[2,15] [2,16] aluRAM[2,16] [2,17] aluRAM[2,17] [2,18] aluRAM[2,18] [2,19] aluRAM[2,19] [2,20] aluRAM[2,20] [2,21] aluRAM[2,21] [2,22] aluRAM[2,22] [2,23] aluRAM[2,23] [2,24] aluRAM[2,24] [2,25] aluRAM[2,25] [2,26] aluRAM[2,26] [2,27] aluRAM[2,27] [2,28] aluRAM[2,28] [2,29] aluRAM[2,29] [2,30] aluRAM[2,30] [2,31] aluRAM[2,31] [2,32] aluRAM[2,32] [2,33] aluRAM[2,33] [2,34] aluRAM[2,34] [2,35] aluRAM[2,35] [2,36] aluRAM[2,36] [2,37] aluRAM[2,37] 3: AR[0:35] label OCTALRADIX [3,2] aluRAM[3,2] [3,3] aluRAM[3,3] [3,4] aluRAM[3,4] [3,5] aluRAM[3,5] [3,6] aluRAM[3,6] [3,7] aluRAM[3,7] [3,8] aluRAM[3,8] [3,9] aluRAM[3,9] [3,10] aluRAM[3,10] [3,11] aluRAM[3,11] [3,12] aluRAM[3,12] [3,13] aluRAM[3,13] [3,14] aluRAM[3,14] [3,15] aluRAM[3,15] [3,16] aluRAM[3,16] [3,17] aluRAM[3,17] [3,18] aluRAM[3,18] [3,19] aluRAM[3,19] [3,20] aluRAM[3,20] [3,21] aluRAM[3,21] [3,22] aluRAM[3,22] [3,23] aluRAM[3,23] [3,24] aluRAM[3,24] [3,25] aluRAM[3,25] [3,26] aluRAM[3,26] [3,27] aluRAM[3,27] [3,28] aluRAM[3,28] [3,29] aluRAM[3,29] [3,30] aluRAM[3,30] [3,31] aluRAM[3,31] [3,32] aluRAM[3,32] [3,33] aluRAM[3,33] [3,34] aluRAM[3,34] [3,35] aluRAM[3,35] [3,36] aluRAM[3,36] [3,37] aluRAM[3,37] 5: BR[0:35] label OCTALRADIX [5,2] aluRAM[5,2] [5,3] aluRAM[5,3] [5,4] aluRAM[5,4] [5,5] aluRAM[5,5] [5,6] aluRAM[5,6] [5,7] aluRAM[5,7] [5,8] aluRAM[5,8] [5,9] aluRAM[5,9] [5,10] aluRAM[5,10] [5,11] aluRAM[5,11] [5,12] aluRAM[5,12] [5,13] aluRAM[5,13] [5,14] aluRAM[5,14] [5,15] aluRAM[5,15] [5,16] aluRAM[5,16] [5,17] aluRAM[5,17] [5,18] aluRAM[5,18] [5,19] aluRAM[5,19] [5,20] aluRAM[5,20] [5,21] aluRAM[5,21] [5,22] aluRAM[5,22] [5,23] aluRAM[5,23] [5,24] aluRAM[5,24] [5,25] aluRAM[5,25] [5,26] aluRAM[5,26] [5,27] aluRAM[5,27] [5,28] aluRAM[5,28] [5,29] aluRAM[5,29] [5,30] aluRAM[5,30] [5,31] aluRAM[5,31] [5,32] aluRAM[5,32] [5,33] aluRAM[5,33] [5,34] aluRAM[5,34] [5,35] aluRAM[5,35] [5,36] aluRAM[5,36] [5,37] aluRAM[5,37] IR_AC label OCTALRADIX [9] regIR[9] [10] regIR[10] [11] regIR[11] [12] regIR[12] sc[0:9] sc[0:9] OCTALRADIX label [4,0:35] ram[4,0:35] OCTALRADIX AC4[0:35] label [5,0:35] ram[5,0:35] OCTALRADIX AC5[0:35] label [8,0:35] ram[8,0:35] OCTALRADIX AC10[0:35] flagAOV flagAOV flagFXU flagFXU flagFOV flagFOV Control ROM label 128 128 255 230 230 230 OCTALRADIX crom[0:107] crom[0:107] OCTALRADIX J label OCTALRADIX [0] crom[0] [1] crom[1] [2] crom[2] [3] crom[3] [4] crom[4] [5] crom[5] [6] crom[6] [7] crom[7] [8] crom[8] [9] crom[9] [10] crom[10] [11] crom[11] FUN label OCTALRADIX [12] crom[12] [13] crom[13] [14] crom[14] func[0:2] func[0:2] OCTALRADIX LSRC label OCTALRADIX [15] crom[15] [16] crom[16] [17] crom[17] RSRC label OCTALRADIX [18] crom[18] [19] crom[19] [20] crom[20] DST label OCTALRADIX [21] crom[21] [22] crom[22] [23] crom[23] dest[0:2] dest[0:2] OCTALRADIX ADDR A label OCTALRADIX [26] crom[26] [27] crom[27] [28] crom[28] [29] crom[29] ADDR B label OCTALRADIX [32] crom[32] [33] crom[33] [34] crom[34] [35] crom[35] label [45] crom[45] LCLKEN[45] label [48] crom[48] RCLKEN[48] SPEC EN label OCTALRADIX [51] crom[51] [52] crom[52] [53] crom[53] SPEC SEL label OCTALRADIX [54] crom[54] [55] crom[55] [56] crom[56] DISP EN # label OCTALRADIX [57] crom[57] [58] crom[58] [59] crom[59] DISP SEL label OCTALRADIX [60] crom[60] [61] crom[61] [62] crom[62] RAM ADDR MUX label OCTALRADIX [36] crom[36] [37] crom[37] [38] crom[38] DBUS MUX label OCTALRADIX [40] crom[40] [41] crom[41] DBM MUX label OCTALRADIX [42] crom[42] [43] crom[43] [44] crom[44] SKIP SEL label OCTALRADIX [66] crom[66] [67] crom[67] [68] crom[68] SKIP EN # label OCTALRADIX [63] crom[63] [64] crom[64] [65] crom[65] RAMADR label OCTALRADIX [36] crom[36] [37] crom[37] [38] crom[38] CROM T [69:71] label OCTALRADIX [69] crom[69] [70] crom[70] [71] crom[71] label [75] crom[75] CROM FM WRITE[75] label [76] crom[76] CROM MEM CYCLE [76] label [92] crom[92] CROM FETCH [92] label [93] crom[93] CROM READ CYCLE [93] label [95] crom[95] CROM WRITE CYCLE [95] label [102] crom[102] CROM AREAD [102] label [103] crom[103] CROM DPFUNCT [103] label [106] crom[106] CROM WAIT[106] label [107] crom[107] CROM BWRITE [107] NUM label OCTALRADIX [90] crom[90] [91] crom[91] [92] crom[92] [93] crom[93] [94] crom[94] [95] crom[95] [96] crom[96] [97] crom[97] [98] crom[98] [99] crom[99] [100] crom[100] [101] crom[101] [102] crom[102] [103] crom[103] [104] crom[104] [105] crom[105] [106] crom[106] [107] crom[107] CROM SMALL NUM[98:107] label OCTALRADIX [98] crom[98] [99] crom[99] [100] crom[100] [101] crom[101] [102] crom[102] [103] crom[103] [104] crom[104] [105] crom[105] [106] crom[106] [107] crom[107] Dispatch ROM label 128 128 255 230 230 230 OCTALRADIX addr[0:11] addr[0:11] OCTALRADIX drom[0:35] drom[0:35] OCTALRADIX [0] drom[0] [1] drom[1] [2] drom[2] [3] drom[3] [4] drom[4] [5] drom[5] [6] drom[6] [7] drom[7] [8] drom[8] [9] drom[9] [10] drom[10] [11] drom[11] [12] drom[12] [13] drom[13] [14] drom[14] [15] drom[15] [16] drom[16] [17] drom[17] [18] drom[18] [19] drom[19] [20] drom[20] [21] drom[21] [22] drom[22] [23] drom[23] label [24] drom[24] [24] [25] drom[25] [26] drom[26] [27] drom[27] [28] drom[28] [29] drom[29] [30] drom[30] [31] drom[31] [32] drom[32] [33] drom[33] [34] drom[34] [35] drom[35] IND label OCTALRADIX [25] drom[25] A label OCTALRADIX [2] drom[2] [3] drom[3] [4] drom[4] [5] drom[5] B label OCTALRADIX [8] drom[8] [9] drom[9] [10] drom[10] [11] drom[11] J label OCTALRADIX [12] drom[12] [13] drom[13] [14] drom[14] [15] drom[15] [16] drom[16] [17] drom[17] [18] drom[18] [19] drom[19] [20] drom[20] [21] drom[21] [22] drom[22] [23] drom[23] label [24] drom[24] DROM AC DISP[24] label [25] drom[25] DROM I [25] label [26] drom[26] DROM READ CYCLE [26] label [27] drom[27] DROM WRTEST CYCLE [27] label [28] drom[28] DROM CONDFUNC[28] label [29] drom[29] DROM LDVMA[29] label [30] drom[30] DROM WRITE CYCLE [30] Busses label 128 128 255 230 230 230 OCTALRADIX addr[0:9] addr[0:9] OCTALRADIX dp[0:35] dp[0:35] OCTALRADIX dbm[0:35] dbm[0:35] OCTALRADIX dbus[0:35] dbus[0:35] OCTALRADIX ramfile[0:35] ramfile[0:35] OCTALRADIX SCAD label 128 128 255 230 230 230 OCTALRADIX scadA[0:9] scadA[0:9] OCTALRADIX scadB[0:9] scadB[0:9] OCTALRADIX fun[0:2] fun[0:2] OCTALRADIX scad[0:9] scad[0:9] OCTALRADIX fe[0:9] fe[0:9] OCTALRADIX sc[0:9] sc[0:9] OCTALRADIX Instruction Register label 128 128 255 230 230 230 regIR[0:17] regIR[0:17] OCTALRADIX regIR OPCODE label OCTALRADIX [0] regIR[0] [1] regIR[1] [2] regIR[2] [3] regIR[3] [4] regIR[4] [5] regIR[5] [6] regIR[6] [7] regIR[7] [8] regIR[8] regIR AC label OCTALRADIX [9] regIR[9] [10] regIR[10] [11] regIR[11] [12] regIR[12] regIR I label OCTALRADIX [13] regIR[13] regIR XR label OCTALRADIX [14] regIR[14] [15] regIR[15] [16] regIR[16] [17] regIR[17] VMA label 128 128 255 230 230 230 OCTALRADIX vmaFLAGS[0:13] vmaFLAGS[0:13] OCTALRADIX label [0] vmaFLAGS[0] [0] : USER label [1] vmaFLAGS[1] [1] : unused label [2] vmaFLAGS[2] [2] : FETCH label [3] vmaFLAGS[3] [3] : READ CYCLE label [4] vmaFLAGS[4] [4] : WR TEST CYCLE label [5] vmaFLAGS[5] [5] : WR CYCLE label [6] vmaFLAGS[6] [6] : unused label [7] vmaFLAGS[7] [7] : CACHE INH label [8] vmaFLAGS[8] [8] : PHYSICAL label [9] vmaFLAGS[9] [9] : PREVIOUS label [10] vmaFLAGS[10] [10] : IO CYCLE label [11] vmaFLAGS[11] [11] : WRU CYCLE label [12] vmaFLAGS[12] [12] : VECTOR CYCLE label [13] vmaFLAGS[13] [13] : IO BYTE CYCLE vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX true #00ff00 ALU (36 Bit View) label 128 128 255 230 230 230 OCTALRADIX aluLZERO aluLZERO aluRZERO aluRZERO aluLSIGN aluLSIGN aluRSIGN aluRSIGN aluZERO aluZERO aluCRY0 aluCRY0 aluCRY1 aluCRY1 aluCRY2 aluCRY2 label [10,0:39] aluRAM[10,0:39] OCTALRADIX MASK[0:39] MASK[0:35] label OCTALRADIX [10,2] aluRAM[10,2] [10,3] aluRAM[10,3] [10,4] aluRAM[10,4] [10,5] aluRAM[10,5] [10,6] aluRAM[10,6] [10,7] aluRAM[10,7] [10,8] aluRAM[10,8] [10,9] aluRAM[10,9] [10,10] aluRAM[10,10] [10,11] aluRAM[10,11] [10,12] aluRAM[10,12] [10,13] aluRAM[10,13] [10,14] aluRAM[10,14] [10,15] aluRAM[10,15] [10,16] aluRAM[10,16] [10,17] aluRAM[10,17] [10,18] aluRAM[10,18] [10,19] aluRAM[10,19] [10,20] aluRAM[10,20] [10,21] aluRAM[10,21] [10,22] aluRAM[10,22] [10,23] aluRAM[10,23] [10,24] aluRAM[10,24] [10,25] aluRAM[10,25] [10,26] aluRAM[10,26] [10,27] aluRAM[10,27] [10,28] aluRAM[10,28] [10,29] aluRAM[10,29] [10,30] aluRAM[10,30] [10,31] aluRAM[10,31] [10,32] aluRAM[10,32] [10,33] aluRAM[10,33] [10,34] aluRAM[10,34] [10,35] aluRAM[10,35] [10,36] aluRAM[10,36] [10,37] aluRAM[10,37] bdi[0:35] label OCTALRADIX [2] bdi[2] [3] bdi[3] [4] bdi[4] [5] bdi[5] [6] bdi[6] [7] bdi[7] [8] bdi[8] [9] bdi[9] [10] bdi[10] [11] bdi[11] [12] bdi[12] [13] bdi[13] [14] bdi[14] [15] bdi[15] [16] bdi[16] [17] bdi[17] [18] bdi[18] [19] bdi[19] [20] bdi[20] [21] bdi[21] [22] bdi[22] [23] bdi[23] [24] bdi[24] [25] bdi[25] [26] bdi[26] [27] bdi[27] [28] bdi[28] [29] bdi[29] [30] bdi[30] [31] bdi[31] [32] bdi[32] [33] bdi[33] [34] bdi[34] [35] bdi[35] [36] bdi[36] [37] bdi[37] ad[0:35] label OCTALRADIX [2] ad[2] [3] ad[3] [4] ad[4] [5] ad[5] [6] ad[6] [7] ad[7] [8] ad[8] [9] ad[9] [10] ad[10] [11] ad[11] [12] ad[12] [13] ad[13] [14] ad[14] [15] ad[15] [16] ad[16] [17] ad[17] [18] ad[18] [19] ad[19] [20] ad[20] [21] ad[21] [22] ad[22] [23] ad[23] [24] ad[24] [25] ad[25] [26] ad[26] [27] ad[27] [28] ad[28] [29] ad[29] [30] ad[30] [31] ad[31] [32] ad[32] [33] ad[33] [34] ad[34] [35] ad[35] [36] ad[36] [37] ad[37] bd[0:35] label OCTALRADIX [2] bd[2] [3] bd[3] [4] bd[4] [5] bd[5] [6] bd[6] [7] bd[7] [8] bd[8] [9] bd[9] [10] bd[10] [11] bd[11] [12] bd[12] [13] bd[13] [14] bd[14] [15] bd[15] [16] bd[16] [17] bd[17] [18] bd[18] [19] bd[19] [20] bd[20] [21] bd[21] [22] bd[22] [23] bd[23] [24] bd[24] [25] bd[25] [26] bd[26] [27] bd[27] [28] bd[28] [29] bd[29] [30] bd[30] [31] bd[31] [32] bd[32] [33] bd[33] [34] bd[34] [35] bd[35] [36] bd[36] [37] bd[37] f[0:35] label OCTALRADIX [2] f[2] [3] f[3] [4] f[4] [5] f[5] [6] f[6] [7] f[7] [8] f[8] [9] f[9] [10] f[10] [11] f[11] [12] f[12] [13] f[13] [14] f[14] [15] f[15] [16] f[16] [17] f[17] [18] f[18] [19] f[19] [20] f[20] [21] f[21] [22] f[22] [23] f[23] [24] f[24] [25] f[25] [26] f[26] [27] f[27] [28] f[28] [29] f[29] [30] f[30] [31] f[31] [32] f[32] [33] f[33] [34] f[34] [35] f[35] [36] f[36] [37] f[37] 0: MAG[0:35] label OCTALRADIX [0,2] aluRAM[0,2] [0,3] aluRAM[0,3] [0,4] aluRAM[0,4] [0,5] aluRAM[0,5] [0,6] aluRAM[0,6] [0,7] aluRAM[0,7] [0,8] aluRAM[0,8] [0,9] aluRAM[0,9] [0,10] aluRAM[0,10] [0,11] aluRAM[0,11] [0,12] aluRAM[0,12] [0,13] aluRAM[0,13] [0,14] aluRAM[0,14] [0,15] aluRAM[0,15] [0,16] aluRAM[0,16] [0,17] aluRAM[0,17] [0,18] aluRAM[0,18] [0,19] aluRAM[0,19] [0,20] aluRAM[0,20] [0,21] aluRAM[0,21] [0,22] aluRAM[0,22] [0,23] aluRAM[0,23] [0,24] aluRAM[0,24] [0,25] aluRAM[0,25] [0,26] aluRAM[0,26] [0,27] aluRAM[0,27] [0,28] aluRAM[0,28] [0,29] aluRAM[0,29] [0,30] aluRAM[0,30] [0,31] aluRAM[0,31] [0,32] aluRAM[0,32] [0,33] aluRAM[0,33] [0,34] aluRAM[0,34] [0,35] aluRAM[0,35] [0,36] aluRAM[0,36] [0,37] aluRAM[0,37] 1: PC[0:35] label OCTALRADIX [1,2] aluRAM[1,2] [1,3] aluRAM[1,3] [1,4] aluRAM[1,4] [1,5] aluRAM[1,5] [1,6] aluRAM[1,6] [1,7] aluRAM[1,7] [1,8] aluRAM[1,8] [1,9] aluRAM[1,9] [1,10] aluRAM[1,10] [1,11] aluRAM[1,11] [1,12] aluRAM[1,12] [1,13] aluRAM[1,13] [1,14] aluRAM[1,14] [1,15] aluRAM[1,15] [1,16] aluRAM[1,16] [1,17] aluRAM[1,17] [1,18] aluRAM[1,18] [1,19] aluRAM[1,19] [1,20] aluRAM[1,20] [1,21] aluRAM[1,21] [1,22] aluRAM[1,22] [1,23] aluRAM[1,23] [1,24] aluRAM[1,24] [1,25] aluRAM[1,25] [1,26] aluRAM[1,26] [1,27] aluRAM[1,27] [1,28] aluRAM[1,28] [1,29] aluRAM[1,29] [1,30] aluRAM[1,30] [1,31] aluRAM[1,31] [1,32] aluRAM[1,32] [1,33] aluRAM[1,33] [1,34] aluRAM[1,34] [1,35] aluRAM[1,35] [1,36] aluRAM[1,36] [1,37] aluRAM[1,37] 2: HR[0:35] label OCTALRADIX [2,2] aluRAM[2,2] [2,3] aluRAM[2,3] [2,4] aluRAM[2,4] [2,5] aluRAM[2,5] [2,6] aluRAM[2,6] [2,7] aluRAM[2,7] [2,8] aluRAM[2,8] [2,9] aluRAM[2,9] [2,10] aluRAM[2,10] [2,11] aluRAM[2,11] [2,12] aluRAM[2,12] [2,13] aluRAM[2,13] [2,14] aluRAM[2,14] [2,15] aluRAM[2,15] [2,16] aluRAM[2,16] [2,17] aluRAM[2,17] [2,18] aluRAM[2,18] [2,19] aluRAM[2,19] [2,20] aluRAM[2,20] [2,21] aluRAM[2,21] [2,22] aluRAM[2,22] [2,23] aluRAM[2,23] [2,24] aluRAM[2,24] [2,25] aluRAM[2,25] [2,26] aluRAM[2,26] [2,27] aluRAM[2,27] [2,28] aluRAM[2,28] [2,29] aluRAM[2,29] [2,30] aluRAM[2,30] [2,31] aluRAM[2,31] [2,32] aluRAM[2,32] [2,33] aluRAM[2,33] [2,34] aluRAM[2,34] [2,35] aluRAM[2,35] [2,36] aluRAM[2,36] [2,37] aluRAM[2,37] 3: AR[0:35] label OCTALRADIX [3,2] aluRAM[3,2] [3,3] aluRAM[3,3] [3,4] aluRAM[3,4] [3,5] aluRAM[3,5] [3,6] aluRAM[3,6] [3,7] aluRAM[3,7] [3,8] aluRAM[3,8] [3,9] aluRAM[3,9] [3,10] aluRAM[3,10] [3,11] aluRAM[3,11] [3,12] aluRAM[3,12] [3,13] aluRAM[3,13] [3,14] aluRAM[3,14] [3,15] aluRAM[3,15] [3,16] aluRAM[3,16] [3,17] aluRAM[3,17] [3,18] aluRAM[3,18] [3,19] aluRAM[3,19] [3,20] aluRAM[3,20] [3,21] aluRAM[3,21] [3,22] aluRAM[3,22] [3,23] aluRAM[3,23] [3,24] aluRAM[3,24] [3,25] aluRAM[3,25] [3,26] aluRAM[3,26] [3,27] aluRAM[3,27] [3,28] aluRAM[3,28] [3,29] aluRAM[3,29] [3,30] aluRAM[3,30] [3,31] aluRAM[3,31] [3,32] aluRAM[3,32] [3,33] aluRAM[3,33] [3,34] aluRAM[3,34] [3,35] aluRAM[3,35] [3,36] aluRAM[3,36] [3,37] aluRAM[3,37] 4: ARX[0:35] label OCTALRADIX [4,2] aluRAM[4,2] [4,3] aluRAM[4,3] [4,4] aluRAM[4,4] [4,5] aluRAM[4,5] [4,6] aluRAM[4,6] [4,7] aluRAM[4,7] [4,8] aluRAM[4,8] [4,9] aluRAM[4,9] [4,10] aluRAM[4,10] [4,11] aluRAM[4,11] [4,12] aluRAM[4,12] [4,13] aluRAM[4,13] [4,14] aluRAM[4,14] [4,15] aluRAM[4,15] [4,16] aluRAM[4,16] [4,17] aluRAM[4,17] [4,18] aluRAM[4,18] [4,19] aluRAM[4,19] [4,20] aluRAM[4,20] [4,21] aluRAM[4,21] [4,22] aluRAM[4,22] [4,23] aluRAM[4,23] [4,24] aluRAM[4,24] [4,25] aluRAM[4,25] [4,26] aluRAM[4,26] [4,27] aluRAM[4,27] [4,28] aluRAM[4,28] [4,29] aluRAM[4,29] [4,30] aluRAM[4,30] [4,31] aluRAM[4,31] [4,32] aluRAM[4,32] [4,33] aluRAM[4,33] [4,34] aluRAM[4,34] [4,35] aluRAM[4,35] [4,36] aluRAM[4,36] [4,37] aluRAM[4,37] 5: BR[0:35] label OCTALRADIX [5,2] aluRAM[5,2] [5,3] aluRAM[5,3] [5,4] aluRAM[5,4] [5,5] aluRAM[5,5] [5,6] aluRAM[5,6] [5,7] aluRAM[5,7] [5,8] aluRAM[5,8] [5,9] aluRAM[5,9] [5,10] aluRAM[5,10] [5,11] aluRAM[5,11] [5,12] aluRAM[5,12] [5,13] aluRAM[5,13] [5,14] aluRAM[5,14] [5,15] aluRAM[5,15] [5,16] aluRAM[5,16] [5,17] aluRAM[5,17] [5,18] aluRAM[5,18] [5,19] aluRAM[5,19] [5,20] aluRAM[5,20] [5,21] aluRAM[5,21] [5,22] aluRAM[5,22] [5,23] aluRAM[5,23] [5,24] aluRAM[5,24] [5,25] aluRAM[5,25] [5,26] aluRAM[5,26] [5,27] aluRAM[5,27] [5,28] aluRAM[5,28] [5,29] aluRAM[5,29] [5,30] aluRAM[5,30] [5,31] aluRAM[5,31] [5,32] aluRAM[5,32] [5,33] aluRAM[5,33] [5,34] aluRAM[5,34] [5,35] aluRAM[5,35] [5,36] aluRAM[5,36] [5,37] aluRAM[5,37] 6: BRX[0:35] label OCTALRADIX [6,2] aluRAM[6,2] [6,3] aluRAM[6,3] [6,4] aluRAM[6,4] [6,5] aluRAM[6,5] [6,6] aluRAM[6,6] [6,7] aluRAM[6,7] [6,8] aluRAM[6,8] [6,9] aluRAM[6,9] [6,10] aluRAM[6,10] [6,11] aluRAM[6,11] [6,12] aluRAM[6,12] [6,13] aluRAM[6,13] [6,14] aluRAM[6,14] [6,15] aluRAM[6,15] [6,16] aluRAM[6,16] [6,17] aluRAM[6,17] [6,18] aluRAM[6,18] [6,19] aluRAM[6,19] [6,20] aluRAM[6,20] [6,21] aluRAM[6,21] [6,22] aluRAM[6,22] [6,23] aluRAM[6,23] [6,24] aluRAM[6,24] [6,25] aluRAM[6,25] [6,26] aluRAM[6,26] [6,27] aluRAM[6,27] [6,28] aluRAM[6,28] [6,29] aluRAM[6,29] [6,30] aluRAM[6,30] [6,31] aluRAM[6,31] [6,32] aluRAM[6,32] [6,33] aluRAM[6,33] [6,34] aluRAM[6,34] [6,35] aluRAM[6,35] [6,36] aluRAM[6,36] [6,37] aluRAM[6,37] R3: BIN0[0:35] label OCTALRADIX [3,0:35] ram[3,0:35] OCTALRADIX R4: BIN1[0:35] label OCTALRADIX [4,0:35] ram[4,0:35] OCTALRADIX regIR[0:17] regIR[0:17] OCTALRADIX addr[0:11] addr[0:11] OCTALRADIX q[0:35] label OCTALRADIX [2] q[2] [3] q[3] [4] q[4] [5] q[5] [6] q[6] [7] q[7] [8] q[8] [9] q[9] [10] q[10] [11] q[11] [12] q[12] [13] q[13] [14] q[14] [15] q[15] [16] q[16] [17] q[17] [18] q[18] [19] q[19] [20] q[20] [21] q[21] [22] q[22] [23] q[23] [24] q[24] [25] q[25] [26] q[26] [27] q[27] [28] q[28] [29] q[29] [30] q[30] [31] q[31] [32] q[32] [33] q[33] [34] q[34] [35] q[35] [36] q[36] [37] q[37] ALU (40 Bit View) label 128 128 255 230 230 230 OCTALRADIX currADDR[0:11] currADDR[0:11] OCTALRADIX label dd[0:39] dd[0:39] OCTALRADIX dd[-2:37] label bdi[0:39] bdi[0:39] OCTALRADIX bdi[-2:37] q[0:39] q[0:39] OCTALRADIX label aluRAM[0:15,0:39] aluRAM[0:15,0:39] OCTALRADIX aluRAM[0:15,-2:37] label [0,0:39] aluRAM[0,0:39] OCTALRADIX 0: MAG[0:39] label [1,0:39] aluRAM[1,0:39] OCTALRADIX 1: PC[0:39] label [2,0:39] aluRAM[2,0:39] OCTALRADIX 2: HR[0:39] label [3,0:39] aluRAM[3,0:39] OCTALRADIX 3: AR[0:39] label [4,0:39] aluRAM[4,0:39] OCTALRADIX 4: ARX[0:39] label [5,0:39] aluRAM[5,0:39] OCTALRADIX 5: BR[0:39] label [6,0:39] aluRAM[6,0:39] OCTALRADIX 6: BRX[0:39] label [7,0:39] aluRAM[7,0:39] OCTALRADIX 7: ONE[0:39] label [8,0:39] aluRAM[8,0:39] OCTALRADIX 10: EBR[0:39] label [9,0:39] aluRAM[9,0:39] OCTALRADIX 11: UBR[0:39] label [10,0:39] aluRAM[10,0:39] OCTALRADIX 12: MASK[0:39] label [11,0:39] aluRAM[11,0:39] OCTALRADIX 13: FLG[0:39] label [12,0:39] aluRAM[12,0:39] OCTALRADIX 14: PI[0:39] label [13,0:39] aluRAM[13,0:39] OCTALRADIX 15: XWD1[0:39] label [14,0:39] aluRAM[14,0:39] OCTALRADIX 16: T0[0:39] label [15,0:39] aluRAM[15,0:39] OCTALRADIX 17: T1[0:39] label ad[0:39] ad[0:39] OCTALRADIX ad[-2:37] label bd[0:39] bd[0:39] OCTALRADIX bd[-2:37] label r[0:39] r[0:39] OCTALRADIX r[-2:37] label s[0:39] s[0:39] OCTALRADIX s[-2:37] label f[0:39] f[0:39] OCTALRADIX f[-2:37] q[0:39] q[0:39] OCTALRADIX RAMFILE label 128 128 255 230 230 230 OCTALRADIX label regIR[0:17] regIR[0:17] OCTALRADIX regIR[0:17] addr[0:11] addr[0:11] OCTALRADIX currADDR[0:11] currADDR[0:11] OCTALRADIX label addr[0:9] addr[0:9] OCTALRADIX ram_addr[0:9] vmaADDR[14:35] vmaADDR[14:35] OCTALRADIX true #00ff00 ram[0:1023,0:35] ram[0:1023,0:35] OCTALRADIX [0,0:35] ram[0,0:35] OCTALRADIX [1,0:35] ram[1,0:35] OCTALRADIX [2,0:35] ram[2,0:35] OCTALRADIX [3,0:35] ram[3,0:35] OCTALRADIX [4,0:35] ram[4,0:35] OCTALRADIX [5,0:35] ram[5,0:35] OCTALRADIX [6,0:35] ram[6,0:35] OCTALRADIX [7,0:35] ram[7,0:35] OCTALRADIX [8,0:35] ram[8,0:35] OCTALRADIX [9,0:35] ram[9,0:35] OCTALRADIX [10,0:35] ram[10,0:35] OCTALRADIX [11,0:35] ram[11,0:35] OCTALRADIX [12,0:35] ram[12,0:35] OCTALRADIX [13,0:35] ram[13,0:35] OCTALRADIX [14,0:35] ram[14,0:35] OCTALRADIX [15,0:35] ram[15,0:35] OCTALRADIX [16,0:35] ram[16,0:35] OCTALRADIX [17,0:35] ram[17,0:35] OCTALRADIX [18,0:35] ram[18,0:35] OCTALRADIX [19,0:35] ram[19,0:35] OCTALRADIX [20,0:35] ram[20,0:35] OCTALRADIX [21,0:35] ram[21,0:35] OCTALRADIX [22,0:35] ram[22,0:35] OCTALRADIX [23,0:35] ram[23,0:35] OCTALRADIX [24,0:35] ram[24,0:35] OCTALRADIX [25,0:35] ram[25,0:35] OCTALRADIX [26,0:35] ram[26,0:35] OCTALRADIX [27,0:35] ram[27,0:35] OCTALRADIX [28,0:35] ram[28,0:35] OCTALRADIX [29,0:35] ram[29,0:35] OCTALRADIX [30,0:35] ram[30,0:35] OCTALRADIX [31,0:35] ram[31,0:35] OCTALRADIX [32,0:35] ram[32,0:35] OCTALRADIX [33,0:35] ram[33,0:35] OCTALRADIX [34,0:35] ram[34,0:35] OCTALRADIX [35,0:35] ram[35,0:35] OCTALRADIX [36,0:35] ram[36,0:35] OCTALRADIX [37,0:35] ram[37,0:35] OCTALRADIX [38,0:35] ram[38,0:35] OCTALRADIX [39,0:35] ram[39,0:35] OCTALRADIX [40,0:35] ram[40,0:35] OCTALRADIX [41,0:35] ram[41,0:35] OCTALRADIX [42,0:35] ram[42,0:35] OCTALRADIX [43,0:35] ram[43,0:35] OCTALRADIX [44,0:35] ram[44,0:35] OCTALRADIX [45,0:35] ram[45,0:35] OCTALRADIX [46,0:35] ram[46,0:35] OCTALRADIX [47,0:35] ram[47,0:35] OCTALRADIX [48,0:35] ram[48,0:35] OCTALRADIX [49,0:35] ram[49,0:35] OCTALRADIX [50,0:35] ram[50,0:35] OCTALRADIX [51,0:35] ram[51,0:35] OCTALRADIX [52,0:35] ram[52,0:35] OCTALRADIX [53,0:35] ram[53,0:35] OCTALRADIX [54,0:35] ram[54,0:35] OCTALRADIX [55,0:35] ram[55,0:35] OCTALRADIX [56,0:35] ram[56,0:35] OCTALRADIX [57,0:35] ram[57,0:35] OCTALRADIX [58,0:35] ram[58,0:35] OCTALRADIX [59,0:35] ram[59,0:35] OCTALRADIX [60,0:35] ram[60,0:35] OCTALRADIX [61,0:35] ram[61,0:35] OCTALRADIX [62,0:35] ram[62,0:35] OCTALRADIX [63,0:35] ram[63,0:35] OCTALRADIX [64,0:35] ram[64,0:35] OCTALRADIX [65,0:35] ram[65,0:35] OCTALRADIX [66,0:35] ram[66,0:35] OCTALRADIX [67,0:35] ram[67,0:35] OCTALRADIX [68,0:35] ram[68,0:35] OCTALRADIX [69,0:35] ram[69,0:35] OCTALRADIX [70,0:35] ram[70,0:35] OCTALRADIX [71,0:35] ram[71,0:35] OCTALRADIX [72,0:35] ram[72,0:35] OCTALRADIX [73,0:35] ram[73,0:35] OCTALRADIX [74,0:35] ram[74,0:35] OCTALRADIX [75,0:35] ram[75,0:35] OCTALRADIX [76,0:35] ram[76,0:35] OCTALRADIX [77,0:35] ram[77,0:35] OCTALRADIX [78,0:35] ram[78,0:35] OCTALRADIX [79,0:35] ram[79,0:35] OCTALRADIX [80,0:35] ram[80,0:35] OCTALRADIX [81,0:35] ram[81,0:35] OCTALRADIX [82,0:35] ram[82,0:35] OCTALRADIX [83,0:35] ram[83,0:35] OCTALRADIX [84,0:35] ram[84,0:35] OCTALRADIX [85,0:35] ram[85,0:35] OCTALRADIX [86,0:35] ram[86,0:35] OCTALRADIX [87,0:35] ram[87,0:35] OCTALRADIX [88,0:35] ram[88,0:35] OCTALRADIX [89,0:35] ram[89,0:35] OCTALRADIX [90,0:35] ram[90,0:35] OCTALRADIX [91,0:35] ram[91,0:35] OCTALRADIX [92,0:35] ram[92,0:35] OCTALRADIX [93,0:35] ram[93,0:35] OCTALRADIX [94,0:35] ram[94,0:35] OCTALRADIX [95,0:35] ram[95,0:35] OCTALRADIX [96,0:35] ram[96,0:35] OCTALRADIX [97,0:35] ram[97,0:35] OCTALRADIX [98,0:35] ram[98,0:35] OCTALRADIX [99,0:35] ram[99,0:35] OCTALRADIX [100,0:35] ram[100,0:35] OCTALRADIX [101,0:35] ram[101,0:35] OCTALRADIX [102,0:35] ram[102,0:35] OCTALRADIX [103,0:35] ram[103,0:35] OCTALRADIX [104,0:35] ram[104,0:35] OCTALRADIX [105,0:35] ram[105,0:35] OCTALRADIX [106,0:35] ram[106,0:35] OCTALRADIX [107,0:35] ram[107,0:35] OCTALRADIX [108,0:35] ram[108,0:35] OCTALRADIX [109,0:35] ram[109,0:35] OCTALRADIX [110,0:35] ram[110,0:35] OCTALRADIX [111,0:35] ram[111,0:35] OCTALRADIX [112,0:35] ram[112,0:35] OCTALRADIX [113,0:35] ram[113,0:35] OCTALRADIX [114,0:35] ram[114,0:35] OCTALRADIX [115,0:35] ram[115,0:35] OCTALRADIX [116,0:35] ram[116,0:35] OCTALRADIX [117,0:35] ram[117,0:35] OCTALRADIX [118,0:35] ram[118,0:35] OCTALRADIX [119,0:35] ram[119,0:35] OCTALRADIX [120,0:35] ram[120,0:35] OCTALRADIX [121,0:35] ram[121,0:35] OCTALRADIX [122,0:35] ram[122,0:35] OCTALRADIX [123,0:35] ram[123,0:35] OCTALRADIX [124,0:35] ram[124,0:35] OCTALRADIX [125,0:35] ram[125,0:35] OCTALRADIX [126,0:35] ram[126,0:35] OCTALRADIX [127,0:35] ram[127,0:35] OCTALRADIX [128,0:35] ram[128,0:35] OCTALRADIX [129,0:35] ram[129,0:35] OCTALRADIX [130,0:35] ram[130,0:35] OCTALRADIX [131,0:35] ram[131,0:35] OCTALRADIX [132,0:35] ram[132,0:35] OCTALRADIX [133,0:35] ram[133,0:35] OCTALRADIX [134,0:35] ram[134,0:35] OCTALRADIX [135,0:35] ram[135,0:35] OCTALRADIX [136,0:35] ram[136,0:35] OCTALRADIX [137,0:35] ram[137,0:35] OCTALRADIX [138,0:35] ram[138,0:35] OCTALRADIX [139,0:35] ram[139,0:35] OCTALRADIX [140,0:35] ram[140,0:35] OCTALRADIX [141,0:35] ram[141,0:35] OCTALRADIX [142,0:35] ram[142,0:35] OCTALRADIX [143,0:35] ram[143,0:35] OCTALRADIX [144,0:35] ram[144,0:35] OCTALRADIX [145,0:35] ram[145,0:35] OCTALRADIX [146,0:35] ram[146,0:35] OCTALRADIX [147,0:35] ram[147,0:35] OCTALRADIX [148,0:35] ram[148,0:35] OCTALRADIX [149,0:35] ram[149,0:35] OCTALRADIX [150,0:35] ram[150,0:35] OCTALRADIX label [151,0:35] ram[151,0:35] OCTALRADIX [151: HSBADR[0:35] label [152,0:35] ram[152,0:35] OCTALRADIX [152: APREN[0:35] [153,0:35] ram[153,0:35] OCTALRADIX [154,0:35] ram[154,0:35] OCTALRADIX [155,0:35] ram[155,0:35] OCTALRADIX [156,0:35] ram[156,0:35] OCTALRADIX [157,0:35] ram[157,0:35] OCTALRADIX [158,0:35] ram[158,0:35] OCTALRADIX [159,0:35] ram[159,0:35] OCTALRADIX [160,0:35] ram[160,0:35] OCTALRADIX [161,0:35] ram[161,0:35] OCTALRADIX [162,0:35] ram[162,0:35] OCTALRADIX [163,0:35] ram[163,0:35] OCTALRADIX [164,0:35] ram[164,0:35] OCTALRADIX [165,0:35] ram[165,0:35] OCTALRADIX [166,0:35] ram[166,0:35] OCTALRADIX [167,0:35] ram[167,0:35] OCTALRADIX [168,0:35] ram[168,0:35] OCTALRADIX [169,0:35] ram[169,0:35] OCTALRADIX [170,0:35] ram[170,0:35] OCTALRADIX [171,0:35] ram[171,0:35] OCTALRADIX [172,0:35] ram[172,0:35] OCTALRADIX [173,0:35] ram[173,0:35] OCTALRADIX [174,0:35] ram[174,0:35] OCTALRADIX [175,0:35] ram[175,0:35] OCTALRADIX [176,0:35] ram[176,0:35] OCTALRADIX [177,0:35] ram[177,0:35] OCTALRADIX [178,0:35] ram[178,0:35] OCTALRADIX [179,0:35] ram[179,0:35] OCTALRADIX [180,0:35] ram[180,0:35] OCTALRADIX [181,0:35] ram[181,0:35] OCTALRADIX [182,0:35] ram[182,0:35] OCTALRADIX [183,0:35] ram[183,0:35] OCTALRADIX [184,0:35] ram[184,0:35] OCTALRADIX [185,0:35] ram[185,0:35] OCTALRADIX [186,0:35] ram[186,0:35] OCTALRADIX [187,0:35] ram[187,0:35] OCTALRADIX [188,0:35] ram[188,0:35] OCTALRADIX [189,0:35] ram[189,0:35] OCTALRADIX [190,0:35] ram[190,0:35] OCTALRADIX [191,0:35] ram[191,0:35] OCTALRADIX label [192,0:35] ram[192,0:35] OCTALRADIX [192: TIME0[0:35] label [193,0:35] ram[193,0:35] OCTALRADIX [193: TIME1[0:35] label [194,0:35] ram[194,0:35] OCTALRADIX [194: PERIOD[0:35] label [195,0:35] ram[195,0:35] OCTALRADIX [195: TTG[0:35] [196,0:35] ram[196,0:35] OCTALRADIX [197,0:35] ram[197,0:35] OCTALRADIX [198,0:35] ram[198,0:35] OCTALRADIX [199,0:35] ram[199,0:35] OCTALRADIX [200,0:35] ram[200,0:35] OCTALRADIX [201,0:35] ram[201,0:35] OCTALRADIX [202,0:35] ram[202,0:35] OCTALRADIX [203,0:35] ram[203,0:35] OCTALRADIX [204,0:35] ram[204,0:35] OCTALRADIX [205,0:35] ram[205,0:35] OCTALRADIX [206,0:35] ram[206,0:35] OCTALRADIX [207,0:35] ram[207,0:35] OCTALRADIX [208,0:35] ram[208,0:35] OCTALRADIX [209,0:35] ram[209,0:35] OCTALRADIX [210,0:35] ram[210,0:35] OCTALRADIX [211,0:35] ram[211,0:35] OCTALRADIX [212,0:35] ram[212,0:35] OCTALRADIX [213,0:35] ram[213,0:35] OCTALRADIX [214,0:35] ram[214,0:35] OCTALRADIX [215,0:35] ram[215,0:35] OCTALRADIX [216,0:35] ram[216,0:35] OCTALRADIX [217,0:35] ram[217,0:35] OCTALRADIX [218,0:35] ram[218,0:35] OCTALRADIX [219,0:35] ram[219,0:35] OCTALRADIX [220,0:35] ram[220,0:35] OCTALRADIX [221,0:35] ram[221,0:35] OCTALRADIX [222,0:35] ram[222,0:35] OCTALRADIX [223,0:35] ram[223,0:35] OCTALRADIX [224,0:35] ram[224,0:35] OCTALRADIX [225,0:35] ram[225,0:35] OCTALRADIX [226,0:35] ram[226,0:35] OCTALRADIX [227,0:35] ram[227,0:35] OCTALRADIX label [228,0:35] ram[228,0:35] HEXRADIX [228: DECLO[0][0:35] [229,0:35] ram[229,0:35] HEXRADIX [230,0:35] ram[230,0:35] HEXRADIX [231,0:35] ram[231,0:35] HEXRADIX [232,0:35] ram[232,0:35] HEXRADIX [233,0:35] ram[233,0:35] HEXRADIX [234,0:35] ram[234,0:35] HEXRADIX [235,0:35] ram[235,0:35] HEXRADIX [236,0:35] ram[236,0:35] HEXRADIX [237,0:35] ram[237,0:35] HEXRADIX [238,0:35] ram[238,0:35] HEXRADIX [239,0:35] ram[239,0:35] HEXRADIX [240,0:35] ram[240,0:35] HEXRADIX [241,0:35] ram[241,0:35] HEXRADIX [242,0:35] ram[242,0:35] HEXRADIX [243,0:35] ram[243,0:35] HEXRADIX [244,0:35] ram[244,0:35] HEXRADIX [245,0:35] ram[245,0:35] HEXRADIX [246,0:35] ram[246,0:35] HEXRADIX [247,0:35] ram[247,0:35] HEXRADIX [248,0:35] ram[248,0:35] HEXRADIX [249,0:35] ram[249,0:35] HEXRADIX [250,0:35] ram[250,0:35] HEXRADIX label [251,0:35] ram[251,0:35] HEXRADIX [251: DECHI[0][0:35] [252,0:35] ram[252,0:35] HEXRADIX [253,0:35] ram[253,0:35] HEXRADIX [254,0:35] ram[254,0:35] HEXRADIX [255,0:35] ram[255,0:35] HEXRADIX [256,0:35] ram[256,0:35] HEXRADIX [257,0:35] ram[257,0:35] HEXRADIX [258,0:35] ram[258,0:35] HEXRADIX [259,0:35] ram[259,0:35] HEXRADIX [260,0:35] ram[260,0:35] HEXRADIX [261,0:35] ram[261,0:35] HEXRADIX [262,0:35] ram[262,0:35] HEXRADIX [263,0:35] ram[263,0:35] HEXRADIX [264,0:35] ram[264,0:35] HEXRADIX [265,0:35] ram[265,0:35] HEXRADIX [266,0:35] ram[266,0:35] HEXRADIX [267,0:35] ram[267,0:35] HEXRADIX [268,0:35] ram[268,0:35] HEXRADIX [269,0:35] ram[269,0:35] HEXRADIX [270,0:35] ram[270,0:35] HEXRADIX [271,0:35] ram[271,0:35] HEXRADIX [272,0:35] ram[272,0:35] HEXRADIX [273,0:35] ram[273,0:35] OCTALRADIX [274,0:35] ram[274,0:35] OCTALRADIX [275,0:35] ram[275,0:35] OCTALRADIX [276,0:35] ram[276,0:35] OCTALRADIX [277,0:35] ram[277,0:35] OCTALRADIX [278,0:35] ram[278,0:35] OCTALRADIX [279,0:35] ram[279,0:35] OCTALRADIX [280,0:35] ram[280,0:35] OCTALRADIX [281,0:35] ram[281,0:35] OCTALRADIX [282,0:35] ram[282,0:35] OCTALRADIX [283,0:35] ram[283,0:35] OCTALRADIX [284,0:35] ram[284,0:35] OCTALRADIX [285,0:35] ram[285,0:35] OCTALRADIX [286,0:35] ram[286,0:35] OCTALRADIX [287,0:35] ram[287,0:35] OCTALRADIX [288,0:35] ram[288,0:35] OCTALRADIX [289,0:35] ram[289,0:35] OCTALRADIX [290,0:35] ram[290,0:35] OCTALRADIX [291,0:35] ram[291,0:35] OCTALRADIX [292,0:35] ram[292,0:35] OCTALRADIX [293,0:35] ram[293,0:35] OCTALRADIX [294,0:35] ram[294,0:35] OCTALRADIX [295,0:35] ram[295,0:35] OCTALRADIX [296,0:35] ram[296,0:35] OCTALRADIX [297,0:35] ram[297,0:35] OCTALRADIX [298,0:35] ram[298,0:35] OCTALRADIX [299,0:35] ram[299,0:35] OCTALRADIX [300,0:35] ram[300,0:35] OCTALRADIX [301,0:35] ram[301,0:35] OCTALRADIX [302,0:35] ram[302,0:35] OCTALRADIX [303,0:35] ram[303,0:35] OCTALRADIX [304,0:35] ram[304,0:35] OCTALRADIX [305,0:35] ram[305,0:35] OCTALRADIX [306,0:35] ram[306,0:35] OCTALRADIX [307,0:35] ram[307,0:35] OCTALRADIX [308,0:35] ram[308,0:35] OCTALRADIX [309,0:35] ram[309,0:35] OCTALRADIX [310,0:35] ram[310,0:35] OCTALRADIX [311,0:35] ram[311,0:35] OCTALRADIX [312,0:35] ram[312,0:35] OCTALRADIX [313,0:35] ram[313,0:35] OCTALRADIX [314,0:35] ram[314,0:35] OCTALRADIX [315,0:35] ram[315,0:35] OCTALRADIX [316,0:35] ram[316,0:35] OCTALRADIX [317,0:35] ram[317,0:35] OCTALRADIX [318,0:35] ram[318,0:35] OCTALRADIX [319,0:35] ram[319,0:35] OCTALRADIX [320,0:35] ram[320,0:35] OCTALRADIX [321,0:35] ram[321,0:35] OCTALRADIX [322,0:35] ram[322,0:35] OCTALRADIX [323,0:35] ram[323,0:35] OCTALRADIX [324,0:35] ram[324,0:35] OCTALRADIX [325,0:35] ram[325,0:35] OCTALRADIX [326,0:35] ram[326,0:35] OCTALRADIX [327,0:35] ram[327,0:35] OCTALRADIX [328,0:35] ram[328,0:35] OCTALRADIX [329,0:35] ram[329,0:35] OCTALRADIX [330,0:35] ram[330,0:35] OCTALRADIX [331,0:35] ram[331,0:35] OCTALRADIX [332,0:35] ram[332,0:35] OCTALRADIX [333,0:35] ram[333,0:35] OCTALRADIX [334,0:35] ram[334,0:35] OCTALRADIX [335,0:35] ram[335,0:35] OCTALRADIX [336,0:35] ram[336,0:35] OCTALRADIX [337,0:35] ram[337,0:35] OCTALRADIX [338,0:35] ram[338,0:35] OCTALRADIX [339,0:35] ram[339,0:35] OCTALRADIX [340,0:35] ram[340,0:35] OCTALRADIX [341,0:35] ram[341,0:35] OCTALRADIX [342,0:35] ram[342,0:35] OCTALRADIX [343,0:35] ram[343,0:35] OCTALRADIX [344,0:35] ram[344,0:35] OCTALRADIX [345,0:35] ram[345,0:35] OCTALRADIX [346,0:35] ram[346,0:35] OCTALRADIX [347,0:35] ram[347,0:35] OCTALRADIX [348,0:35] ram[348,0:35] OCTALRADIX [349,0:35] ram[349,0:35] OCTALRADIX [350,0:35] ram[350,0:35] OCTALRADIX [351,0:35] ram[351,0:35] OCTALRADIX [352,0:35] ram[352,0:35] OCTALRADIX [353,0:35] ram[353,0:35] OCTALRADIX [354,0:35] ram[354,0:35] OCTALRADIX [355,0:35] ram[355,0:35] OCTALRADIX [356,0:35] ram[356,0:35] OCTALRADIX [357,0:35] ram[357,0:35] OCTALRADIX [358,0:35] ram[358,0:35] OCTALRADIX [359,0:35] ram[359,0:35] OCTALRADIX [360,0:35] ram[360,0:35] OCTALRADIX [361,0:35] ram[361,0:35] OCTALRADIX [362,0:35] ram[362,0:35] OCTALRADIX [363,0:35] ram[363,0:35] OCTALRADIX [364,0:35] ram[364,0:35] OCTALRADIX [365,0:35] ram[365,0:35] OCTALRADIX [366,0:35] ram[366,0:35] OCTALRADIX [367,0:35] ram[367,0:35] OCTALRADIX [368,0:35] ram[368,0:35] OCTALRADIX [369,0:35] ram[369,0:35] OCTALRADIX [370,0:35] ram[370,0:35] OCTALRADIX [371,0:35] ram[371,0:35] OCTALRADIX [372,0:35] ram[372,0:35] OCTALRADIX [373,0:35] ram[373,0:35] OCTALRADIX [374,0:35] ram[374,0:35] OCTALRADIX [375,0:35] ram[375,0:35] OCTALRADIX [376,0:35] ram[376,0:35] OCTALRADIX [377,0:35] ram[377,0:35] OCTALRADIX [378,0:35] ram[378,0:35] OCTALRADIX [379,0:35] ram[379,0:35] OCTALRADIX [380,0:35] ram[380,0:35] OCTALRADIX [381,0:35] ram[381,0:35] OCTALRADIX [382,0:35] ram[382,0:35] OCTALRADIX [383,0:35] ram[383,0:35] OCTALRADIX [384,0:35] ram[384,0:35] OCTALRADIX [385,0:35] ram[385,0:35] OCTALRADIX [386,0:35] ram[386,0:35] OCTALRADIX [387,0:35] ram[387,0:35] OCTALRADIX [388,0:35] ram[388,0:35] OCTALRADIX [389,0:35] ram[389,0:35] OCTALRADIX [390,0:35] ram[390,0:35] OCTALRADIX [391,0:35] ram[391,0:35] OCTALRADIX [392,0:35] ram[392,0:35] OCTALRADIX [393,0:35] ram[393,0:35] OCTALRADIX [394,0:35] ram[394,0:35] OCTALRADIX [395,0:35] ram[395,0:35] OCTALRADIX [396,0:35] ram[396,0:35] OCTALRADIX [397,0:35] ram[397,0:35] OCTALRADIX [398,0:35] ram[398,0:35] OCTALRADIX [399,0:35] ram[399,0:35] OCTALRADIX [400,0:35] ram[400,0:35] OCTALRADIX [401,0:35] ram[401,0:35] OCTALRADIX [402,0:35] ram[402,0:35] OCTALRADIX [403,0:35] ram[403,0:35] OCTALRADIX [404,0:35] ram[404,0:35] OCTALRADIX [405,0:35] ram[405,0:35] OCTALRADIX [406,0:35] ram[406,0:35] OCTALRADIX [407,0:35] ram[407,0:35] OCTALRADIX [408,0:35] ram[408,0:35] OCTALRADIX [409,0:35] ram[409,0:35] OCTALRADIX [410,0:35] ram[410,0:35] OCTALRADIX [411,0:35] ram[411,0:35] OCTALRADIX [412,0:35] ram[412,0:35] OCTALRADIX [413,0:35] ram[413,0:35] OCTALRADIX [414,0:35] ram[414,0:35] OCTALRADIX [415,0:35] ram[415,0:35] OCTALRADIX [416,0:35] ram[416,0:35] OCTALRADIX [417,0:35] ram[417,0:35] OCTALRADIX [418,0:35] ram[418,0:35] OCTALRADIX [419,0:35] ram[419,0:35] OCTALRADIX [420,0:35] ram[420,0:35] OCTALRADIX [421,0:35] ram[421,0:35] OCTALRADIX [422,0:35] ram[422,0:35] OCTALRADIX [423,0:35] ram[423,0:35] OCTALRADIX [424,0:35] ram[424,0:35] OCTALRADIX [425,0:35] ram[425,0:35] OCTALRADIX [426,0:35] ram[426,0:35] OCTALRADIX [427,0:35] ram[427,0:35] OCTALRADIX [428,0:35] ram[428,0:35] OCTALRADIX [429,0:35] ram[429,0:35] OCTALRADIX [430,0:35] ram[430,0:35] OCTALRADIX [431,0:35] ram[431,0:35] OCTALRADIX [432,0:35] ram[432,0:35] OCTALRADIX [433,0:35] ram[433,0:35] OCTALRADIX [434,0:35] ram[434,0:35] OCTALRADIX [435,0:35] ram[435,0:35] OCTALRADIX [436,0:35] ram[436,0:35] OCTALRADIX [437,0:35] ram[437,0:35] OCTALRADIX [438,0:35] ram[438,0:35] OCTALRADIX [439,0:35] ram[439,0:35] OCTALRADIX [440,0:35] ram[440,0:35] OCTALRADIX [441,0:35] ram[441,0:35] OCTALRADIX [442,0:35] ram[442,0:35] OCTALRADIX [443,0:35] ram[443,0:35] OCTALRADIX [444,0:35] ram[444,0:35] OCTALRADIX [445,0:35] ram[445,0:35] OCTALRADIX [446,0:35] ram[446,0:35] OCTALRADIX [447,0:35] ram[447,0:35] OCTALRADIX [448,0:35] ram[448,0:35] OCTALRADIX [449,0:35] ram[449,0:35] OCTALRADIX [450,0:35] ram[450,0:35] OCTALRADIX [451,0:35] ram[451,0:35] OCTALRADIX [452,0:35] ram[452,0:35] OCTALRADIX [453,0:35] ram[453,0:35] OCTALRADIX [454,0:35] ram[454,0:35] OCTALRADIX [455,0:35] ram[455,0:35] OCTALRADIX [456,0:35] ram[456,0:35] OCTALRADIX [457,0:35] ram[457,0:35] OCTALRADIX [458,0:35] ram[458,0:35] OCTALRADIX [459,0:35] ram[459,0:35] OCTALRADIX [460,0:35] ram[460,0:35] OCTALRADIX [461,0:35] ram[461,0:35] OCTALRADIX [462,0:35] ram[462,0:35] OCTALRADIX [463,0:35] ram[463,0:35] OCTALRADIX [464,0:35] ram[464,0:35] OCTALRADIX [465,0:35] ram[465,0:35] OCTALRADIX [466,0:35] ram[466,0:35] OCTALRADIX [467,0:35] ram[467,0:35] OCTALRADIX [468,0:35] ram[468,0:35] OCTALRADIX [469,0:35] ram[469,0:35] OCTALRADIX [470,0:35] ram[470,0:35] OCTALRADIX [471,0:35] ram[471,0:35] OCTALRADIX [472,0:35] ram[472,0:35] OCTALRADIX [473,0:35] ram[473,0:35] OCTALRADIX [474,0:35] ram[474,0:35] OCTALRADIX [475,0:35] ram[475,0:35] OCTALRADIX [476,0:35] ram[476,0:35] OCTALRADIX [477,0:35] ram[477,0:35] OCTALRADIX [478,0:35] ram[478,0:35] OCTALRADIX [479,0:35] ram[479,0:35] OCTALRADIX [480,0:35] ram[480,0:35] OCTALRADIX [481,0:35] ram[481,0:35] OCTALRADIX [482,0:35] ram[482,0:35] OCTALRADIX [483,0:35] ram[483,0:35] OCTALRADIX [484,0:35] ram[484,0:35] OCTALRADIX [485,0:35] ram[485,0:35] OCTALRADIX [486,0:35] ram[486,0:35] OCTALRADIX [487,0:35] ram[487,0:35] OCTALRADIX [488,0:35] ram[488,0:35] OCTALRADIX [489,0:35] ram[489,0:35] OCTALRADIX [490,0:35] ram[490,0:35] OCTALRADIX [491,0:35] ram[491,0:35] OCTALRADIX [492,0:35] ram[492,0:35] OCTALRADIX [493,0:35] ram[493,0:35] OCTALRADIX [494,0:35] ram[494,0:35] OCTALRADIX [495,0:35] ram[495,0:35] OCTALRADIX [496,0:35] ram[496,0:35] OCTALRADIX [497,0:35] ram[497,0:35] OCTALRADIX [498,0:35] ram[498,0:35] OCTALRADIX [499,0:35] ram[499,0:35] OCTALRADIX [500,0:35] ram[500,0:35] OCTALRADIX [501,0:35] ram[501,0:35] OCTALRADIX [502,0:35] ram[502,0:35] OCTALRADIX [503,0:35] ram[503,0:35] OCTALRADIX [504,0:35] ram[504,0:35] OCTALRADIX [505,0:35] ram[505,0:35] OCTALRADIX [506,0:35] ram[506,0:35] OCTALRADIX [507,0:35] ram[507,0:35] OCTALRADIX [508,0:35] ram[508,0:35] OCTALRADIX [509,0:35] ram[509,0:35] OCTALRADIX [510,0:35] ram[510,0:35] OCTALRADIX [511,0:35] ram[511,0:35] OCTALRADIX [512,0:35] ram[512,0:35] OCTALRADIX [513,0:35] ram[513,0:35] OCTALRADIX [514,0:35] ram[514,0:35] OCTALRADIX [515,0:35] ram[515,0:35] OCTALRADIX [516,0:35] ram[516,0:35] OCTALRADIX [517,0:35] ram[517,0:35] OCTALRADIX [518,0:35] ram[518,0:35] OCTALRADIX [519,0:35] ram[519,0:35] OCTALRADIX [520,0:35] ram[520,0:35] OCTALRADIX [521,0:35] ram[521,0:35] OCTALRADIX [522,0:35] ram[522,0:35] OCTALRADIX [523,0:35] ram[523,0:35] OCTALRADIX [524,0:35] ram[524,0:35] OCTALRADIX [525,0:35] ram[525,0:35] OCTALRADIX [526,0:35] ram[526,0:35] OCTALRADIX [527,0:35] ram[527,0:35] OCTALRADIX [528,0:35] ram[528,0:35] OCTALRADIX [529,0:35] ram[529,0:35] OCTALRADIX [530,0:35] ram[530,0:35] OCTALRADIX [531,0:35] ram[531,0:35] OCTALRADIX [532,0:35] ram[532,0:35] OCTALRADIX [533,0:35] ram[533,0:35] OCTALRADIX [534,0:35] ram[534,0:35] OCTALRADIX [535,0:35] ram[535,0:35] OCTALRADIX [536,0:35] ram[536,0:35] OCTALRADIX [537,0:35] ram[537,0:35] OCTALRADIX [538,0:35] ram[538,0:35] OCTALRADIX [539,0:35] ram[539,0:35] OCTALRADIX [540,0:35] ram[540,0:35] OCTALRADIX [541,0:35] ram[541,0:35] OCTALRADIX [542,0:35] ram[542,0:35] OCTALRADIX [543,0:35] ram[543,0:35] OCTALRADIX [544,0:35] ram[544,0:35] OCTALRADIX [545,0:35] ram[545,0:35] OCTALRADIX [546,0:35] ram[546,0:35] OCTALRADIX [547,0:35] ram[547,0:35] OCTALRADIX [548,0:35] ram[548,0:35] OCTALRADIX [549,0:35] ram[549,0:35] OCTALRADIX [550,0:35] ram[550,0:35] OCTALRADIX [551,0:35] ram[551,0:35] OCTALRADIX [552,0:35] ram[552,0:35] OCTALRADIX [553,0:35] ram[553,0:35] OCTALRADIX [554,0:35] ram[554,0:35] OCTALRADIX [555,0:35] ram[555,0:35] OCTALRADIX [556,0:35] ram[556,0:35] OCTALRADIX [557,0:35] ram[557,0:35] OCTALRADIX [558,0:35] ram[558,0:35] OCTALRADIX [559,0:35] ram[559,0:35] OCTALRADIX [560,0:35] ram[560,0:35] OCTALRADIX [561,0:35] ram[561,0:35] OCTALRADIX [562,0:35] ram[562,0:35] OCTALRADIX [563,0:35] ram[563,0:35] OCTALRADIX [564,0:35] ram[564,0:35] OCTALRADIX [565,0:35] ram[565,0:35] OCTALRADIX [566,0:35] ram[566,0:35] OCTALRADIX [567,0:35] ram[567,0:35] OCTALRADIX [568,0:35] ram[568,0:35] OCTALRADIX [569,0:35] ram[569,0:35] OCTALRADIX [570,0:35] ram[570,0:35] OCTALRADIX [571,0:35] ram[571,0:35] OCTALRADIX [572,0:35] ram[572,0:35] OCTALRADIX [573,0:35] ram[573,0:35] OCTALRADIX [574,0:35] ram[574,0:35] OCTALRADIX [575,0:35] ram[575,0:35] OCTALRADIX [576,0:35] ram[576,0:35] OCTALRADIX [577,0:35] ram[577,0:35] OCTALRADIX [578,0:35] ram[578,0:35] OCTALRADIX [579,0:35] ram[579,0:35] OCTALRADIX [580,0:35] ram[580,0:35] OCTALRADIX [581,0:35] ram[581,0:35] OCTALRADIX [582,0:35] ram[582,0:35] OCTALRADIX [583,0:35] ram[583,0:35] OCTALRADIX [584,0:35] ram[584,0:35] OCTALRADIX [585,0:35] ram[585,0:35] OCTALRADIX [586,0:35] ram[586,0:35] OCTALRADIX [587,0:35] ram[587,0:35] OCTALRADIX [588,0:35] ram[588,0:35] OCTALRADIX [589,0:35] ram[589,0:35] OCTALRADIX [590,0:35] ram[590,0:35] OCTALRADIX [591,0:35] ram[591,0:35] OCTALRADIX [592,0:35] ram[592,0:35] OCTALRADIX [593,0:35] ram[593,0:35] OCTALRADIX [594,0:35] ram[594,0:35] OCTALRADIX [595,0:35] ram[595,0:35] OCTALRADIX [596,0:35] ram[596,0:35] OCTALRADIX [597,0:35] ram[597,0:35] OCTALRADIX [598,0:35] ram[598,0:35] OCTALRADIX [599,0:35] ram[599,0:35] OCTALRADIX [600,0:35] ram[600,0:35] OCTALRADIX [601,0:35] ram[601,0:35] OCTALRADIX [602,0:35] ram[602,0:35] OCTALRADIX [603,0:35] ram[603,0:35] OCTALRADIX [604,0:35] ram[604,0:35] OCTALRADIX [605,0:35] ram[605,0:35] OCTALRADIX [606,0:35] ram[606,0:35] OCTALRADIX [607,0:35] ram[607,0:35] OCTALRADIX [608,0:35] ram[608,0:35] OCTALRADIX [609,0:35] ram[609,0:35] OCTALRADIX [610,0:35] ram[610,0:35] OCTALRADIX [611,0:35] ram[611,0:35] OCTALRADIX [612,0:35] ram[612,0:35] OCTALRADIX [613,0:35] ram[613,0:35] OCTALRADIX [614,0:35] ram[614,0:35] OCTALRADIX [615,0:35] ram[615,0:35] OCTALRADIX [616,0:35] ram[616,0:35] OCTALRADIX [617,0:35] ram[617,0:35] OCTALRADIX [618,0:35] ram[618,0:35] OCTALRADIX [619,0:35] ram[619,0:35] OCTALRADIX [620,0:35] ram[620,0:35] OCTALRADIX [621,0:35] ram[621,0:35] OCTALRADIX [622,0:35] ram[622,0:35] OCTALRADIX [623,0:35] ram[623,0:35] OCTALRADIX [624,0:35] ram[624,0:35] OCTALRADIX [625,0:35] ram[625,0:35] OCTALRADIX [626,0:35] ram[626,0:35] OCTALRADIX [627,0:35] ram[627,0:35] OCTALRADIX [628,0:35] ram[628,0:35] OCTALRADIX [629,0:35] ram[629,0:35] OCTALRADIX [630,0:35] ram[630,0:35] OCTALRADIX [631,0:35] ram[631,0:35] OCTALRADIX [632,0:35] ram[632,0:35] OCTALRADIX [633,0:35] ram[633,0:35] OCTALRADIX [634,0:35] ram[634,0:35] OCTALRADIX [635,0:35] ram[635,0:35] OCTALRADIX [636,0:35] ram[636,0:35] OCTALRADIX [637,0:35] ram[637,0:35] OCTALRADIX [638,0:35] ram[638,0:35] OCTALRADIX [639,0:35] ram[639,0:35] OCTALRADIX [640,0:35] ram[640,0:35] OCTALRADIX [641,0:35] ram[641,0:35] OCTALRADIX [642,0:35] ram[642,0:35] OCTALRADIX [643,0:35] ram[643,0:35] OCTALRADIX [644,0:35] ram[644,0:35] OCTALRADIX [645,0:35] ram[645,0:35] OCTALRADIX [646,0:35] ram[646,0:35] OCTALRADIX [647,0:35] ram[647,0:35] OCTALRADIX [648,0:35] ram[648,0:35] OCTALRADIX [649,0:35] ram[649,0:35] OCTALRADIX [650,0:35] ram[650,0:35] OCTALRADIX [651,0:35] ram[651,0:35] OCTALRADIX [652,0:35] ram[652,0:35] OCTALRADIX [653,0:35] ram[653,0:35] OCTALRADIX [654,0:35] ram[654,0:35] OCTALRADIX [655,0:35] ram[655,0:35] OCTALRADIX [656,0:35] ram[656,0:35] OCTALRADIX [657,0:35] ram[657,0:35] OCTALRADIX [658,0:35] ram[658,0:35] OCTALRADIX [659,0:35] ram[659,0:35] OCTALRADIX [660,0:35] ram[660,0:35] OCTALRADIX [661,0:35] ram[661,0:35] OCTALRADIX [662,0:35] ram[662,0:35] OCTALRADIX [663,0:35] ram[663,0:35] OCTALRADIX [664,0:35] ram[664,0:35] OCTALRADIX [665,0:35] ram[665,0:35] OCTALRADIX [666,0:35] ram[666,0:35] OCTALRADIX [667,0:35] ram[667,0:35] OCTALRADIX [668,0:35] ram[668,0:35] OCTALRADIX [669,0:35] ram[669,0:35] OCTALRADIX [670,0:35] ram[670,0:35] OCTALRADIX [671,0:35] ram[671,0:35] OCTALRADIX [672,0:35] ram[672,0:35] OCTALRADIX [673,0:35] ram[673,0:35] OCTALRADIX [674,0:35] ram[674,0:35] OCTALRADIX [675,0:35] ram[675,0:35] OCTALRADIX [676,0:35] ram[676,0:35] OCTALRADIX [677,0:35] ram[677,0:35] OCTALRADIX [678,0:35] ram[678,0:35] OCTALRADIX [679,0:35] ram[679,0:35] OCTALRADIX [680,0:35] ram[680,0:35] OCTALRADIX [681,0:35] ram[681,0:35] OCTALRADIX [682,0:35] ram[682,0:35] OCTALRADIX [683,0:35] ram[683,0:35] OCTALRADIX [684,0:35] ram[684,0:35] OCTALRADIX [685,0:35] ram[685,0:35] OCTALRADIX [686,0:35] ram[686,0:35] OCTALRADIX [687,0:35] ram[687,0:35] OCTALRADIX [688,0:35] ram[688,0:35] OCTALRADIX [689,0:35] ram[689,0:35] OCTALRADIX [690,0:35] ram[690,0:35] OCTALRADIX [691,0:35] ram[691,0:35] OCTALRADIX [692,0:35] ram[692,0:35] OCTALRADIX [693,0:35] ram[693,0:35] OCTALRADIX [694,0:35] ram[694,0:35] OCTALRADIX [695,0:35] ram[695,0:35] OCTALRADIX [696,0:35] ram[696,0:35] OCTALRADIX [697,0:35] ram[697,0:35] OCTALRADIX [698,0:35] ram[698,0:35] OCTALRADIX [699,0:35] ram[699,0:35] OCTALRADIX [700,0:35] ram[700,0:35] OCTALRADIX [701,0:35] ram[701,0:35] OCTALRADIX [702,0:35] ram[702,0:35] OCTALRADIX [703,0:35] ram[703,0:35] OCTALRADIX [704,0:35] ram[704,0:35] OCTALRADIX [705,0:35] ram[705,0:35] OCTALRADIX [706,0:35] ram[706,0:35] OCTALRADIX [707,0:35] ram[707,0:35] OCTALRADIX [708,0:35] ram[708,0:35] OCTALRADIX [709,0:35] ram[709,0:35] OCTALRADIX [710,0:35] ram[710,0:35] OCTALRADIX [711,0:35] ram[711,0:35] OCTALRADIX [712,0:35] ram[712,0:35] OCTALRADIX [713,0:35] ram[713,0:35] OCTALRADIX [714,0:35] ram[714,0:35] OCTALRADIX [715,0:35] ram[715,0:35] OCTALRADIX [716,0:35] ram[716,0:35] OCTALRADIX [717,0:35] ram[717,0:35] OCTALRADIX [718,0:35] ram[718,0:35] OCTALRADIX [719,0:35] ram[719,0:35] OCTALRADIX [720,0:35] ram[720,0:35] OCTALRADIX [721,0:35] ram[721,0:35] OCTALRADIX [722,0:35] ram[722,0:35] OCTALRADIX [723,0:35] ram[723,0:35] OCTALRADIX [724,0:35] ram[724,0:35] OCTALRADIX [725,0:35] ram[725,0:35] OCTALRADIX [726,0:35] ram[726,0:35] OCTALRADIX [727,0:35] ram[727,0:35] OCTALRADIX [728,0:35] ram[728,0:35] OCTALRADIX [729,0:35] ram[729,0:35] OCTALRADIX [730,0:35] ram[730,0:35] OCTALRADIX [731,0:35] ram[731,0:35] OCTALRADIX [732,0:35] ram[732,0:35] OCTALRADIX [733,0:35] ram[733,0:35] OCTALRADIX [734,0:35] ram[734,0:35] OCTALRADIX [735,0:35] ram[735,0:35] OCTALRADIX [736,0:35] ram[736,0:35] OCTALRADIX [737,0:35] ram[737,0:35] OCTALRADIX [738,0:35] ram[738,0:35] OCTALRADIX [739,0:35] ram[739,0:35] OCTALRADIX [740,0:35] ram[740,0:35] OCTALRADIX [741,0:35] ram[741,0:35] OCTALRADIX [742,0:35] ram[742,0:35] OCTALRADIX [743,0:35] ram[743,0:35] OCTALRADIX [744,0:35] ram[744,0:35] OCTALRADIX [745,0:35] ram[745,0:35] OCTALRADIX [746,0:35] ram[746,0:35] OCTALRADIX [747,0:35] ram[747,0:35] OCTALRADIX [748,0:35] ram[748,0:35] OCTALRADIX [749,0:35] ram[749,0:35] OCTALRADIX [750,0:35] ram[750,0:35] OCTALRADIX [751,0:35] ram[751,0:35] OCTALRADIX [752,0:35] ram[752,0:35] OCTALRADIX [753,0:35] ram[753,0:35] OCTALRADIX [754,0:35] ram[754,0:35] OCTALRADIX [755,0:35] ram[755,0:35] OCTALRADIX [756,0:35] ram[756,0:35] OCTALRADIX [757,0:35] ram[757,0:35] OCTALRADIX [758,0:35] ram[758,0:35] OCTALRADIX [759,0:35] ram[759,0:35] OCTALRADIX [760,0:35] ram[760,0:35] OCTALRADIX [761,0:35] ram[761,0:35] OCTALRADIX [762,0:35] ram[762,0:35] OCTALRADIX [763,0:35] ram[763,0:35] OCTALRADIX [764,0:35] ram[764,0:35] OCTALRADIX [765,0:35] ram[765,0:35] OCTALRADIX [766,0:35] ram[766,0:35] OCTALRADIX [767,0:35] ram[767,0:35] OCTALRADIX [768,0:35] ram[768,0:35] OCTALRADIX [769,0:35] ram[769,0:35] OCTALRADIX [770,0:35] ram[770,0:35] OCTALRADIX [771,0:35] ram[771,0:35] OCTALRADIX [772,0:35] ram[772,0:35] OCTALRADIX [773,0:35] ram[773,0:35] OCTALRADIX [774,0:35] ram[774,0:35] OCTALRADIX [775,0:35] ram[775,0:35] OCTALRADIX [776,0:35] ram[776,0:35] OCTALRADIX [777,0:35] ram[777,0:35] OCTALRADIX [778,0:35] ram[778,0:35] OCTALRADIX [779,0:35] ram[779,0:35] OCTALRADIX [780,0:35] ram[780,0:35] OCTALRADIX [781,0:35] ram[781,0:35] OCTALRADIX [782,0:35] ram[782,0:35] OCTALRADIX [783,0:35] ram[783,0:35] OCTALRADIX [784,0:35] ram[784,0:35] OCTALRADIX [785,0:35] ram[785,0:35] OCTALRADIX [786,0:35] ram[786,0:35] OCTALRADIX [787,0:35] ram[787,0:35] OCTALRADIX [788,0:35] ram[788,0:35] OCTALRADIX [789,0:35] ram[789,0:35] OCTALRADIX [790,0:35] ram[790,0:35] OCTALRADIX [791,0:35] ram[791,0:35] OCTALRADIX [792,0:35] ram[792,0:35] OCTALRADIX [793,0:35] ram[793,0:35] OCTALRADIX [794,0:35] ram[794,0:35] OCTALRADIX [795,0:35] ram[795,0:35] OCTALRADIX [796,0:35] ram[796,0:35] OCTALRADIX [797,0:35] ram[797,0:35] OCTALRADIX [798,0:35] ram[798,0:35] OCTALRADIX [799,0:35] ram[799,0:35] OCTALRADIX [800,0:35] ram[800,0:35] OCTALRADIX [801,0:35] ram[801,0:35] OCTALRADIX [802,0:35] ram[802,0:35] OCTALRADIX [803,0:35] ram[803,0:35] OCTALRADIX [804,0:35] ram[804,0:35] OCTALRADIX [805,0:35] ram[805,0:35] OCTALRADIX [806,0:35] ram[806,0:35] OCTALRADIX [807,0:35] ram[807,0:35] OCTALRADIX [808,0:35] ram[808,0:35] OCTALRADIX [809,0:35] ram[809,0:35] OCTALRADIX [810,0:35] ram[810,0:35] OCTALRADIX [811,0:35] ram[811,0:35] OCTALRADIX [812,0:35] ram[812,0:35] OCTALRADIX [813,0:35] ram[813,0:35] OCTALRADIX [814,0:35] ram[814,0:35] OCTALRADIX [815,0:35] ram[815,0:35] OCTALRADIX [816,0:35] ram[816,0:35] OCTALRADIX [817,0:35] ram[817,0:35] OCTALRADIX [818,0:35] ram[818,0:35] OCTALRADIX [819,0:35] ram[819,0:35] OCTALRADIX [820,0:35] ram[820,0:35] OCTALRADIX [821,0:35] ram[821,0:35] OCTALRADIX [822,0:35] ram[822,0:35] OCTALRADIX [823,0:35] ram[823,0:35] OCTALRADIX [824,0:35] ram[824,0:35] OCTALRADIX [825,0:35] ram[825,0:35] OCTALRADIX [826,0:35] ram[826,0:35] OCTALRADIX [827,0:35] ram[827,0:35] OCTALRADIX [828,0:35] ram[828,0:35] OCTALRADIX [829,0:35] ram[829,0:35] OCTALRADIX [830,0:35] ram[830,0:35] OCTALRADIX [831,0:35] ram[831,0:35] OCTALRADIX [832,0:35] ram[832,0:35] OCTALRADIX [833,0:35] ram[833,0:35] OCTALRADIX [834,0:35] ram[834,0:35] OCTALRADIX [835,0:35] ram[835,0:35] OCTALRADIX [836,0:35] ram[836,0:35] OCTALRADIX [837,0:35] ram[837,0:35] OCTALRADIX [838,0:35] ram[838,0:35] OCTALRADIX [839,0:35] ram[839,0:35] OCTALRADIX [840,0:35] ram[840,0:35] OCTALRADIX [841,0:35] ram[841,0:35] OCTALRADIX [842,0:35] ram[842,0:35] OCTALRADIX [843,0:35] ram[843,0:35] OCTALRADIX [844,0:35] ram[844,0:35] OCTALRADIX [845,0:35] ram[845,0:35] OCTALRADIX [846,0:35] ram[846,0:35] OCTALRADIX [847,0:35] ram[847,0:35] OCTALRADIX [848,0:35] ram[848,0:35] OCTALRADIX [849,0:35] ram[849,0:35] OCTALRADIX [850,0:35] ram[850,0:35] OCTALRADIX [851,0:35] ram[851,0:35] OCTALRADIX [852,0:35] ram[852,0:35] OCTALRADIX [853,0:35] ram[853,0:35] OCTALRADIX [854,0:35] ram[854,0:35] OCTALRADIX [855,0:35] ram[855,0:35] OCTALRADIX [856,0:35] ram[856,0:35] OCTALRADIX [857,0:35] ram[857,0:35] OCTALRADIX [858,0:35] ram[858,0:35] OCTALRADIX [859,0:35] ram[859,0:35] OCTALRADIX [860,0:35] ram[860,0:35] OCTALRADIX [861,0:35] ram[861,0:35] OCTALRADIX [862,0:35] ram[862,0:35] OCTALRADIX [863,0:35] ram[863,0:35] OCTALRADIX [864,0:35] ram[864,0:35] OCTALRADIX [865,0:35] ram[865,0:35] OCTALRADIX [866,0:35] ram[866,0:35] OCTALRADIX [867,0:35] ram[867,0:35] OCTALRADIX [868,0:35] ram[868,0:35] OCTALRADIX [869,0:35] ram[869,0:35] OCTALRADIX [870,0:35] ram[870,0:35] OCTALRADIX [871,0:35] ram[871,0:35] OCTALRADIX [872,0:35] ram[872,0:35] OCTALRADIX [873,0:35] ram[873,0:35] OCTALRADIX [874,0:35] ram[874,0:35] OCTALRADIX [875,0:35] ram[875,0:35] OCTALRADIX [876,0:35] ram[876,0:35] OCTALRADIX [877,0:35] ram[877,0:35] OCTALRADIX [878,0:35] ram[878,0:35] OCTALRADIX [879,0:35] ram[879,0:35] OCTALRADIX [880,0:35] ram[880,0:35] OCTALRADIX [881,0:35] ram[881,0:35] OCTALRADIX [882,0:35] ram[882,0:35] OCTALRADIX [883,0:35] ram[883,0:35] OCTALRADIX [884,0:35] ram[884,0:35] OCTALRADIX [885,0:35] ram[885,0:35] OCTALRADIX [886,0:35] ram[886,0:35] OCTALRADIX [887,0:35] ram[887,0:35] OCTALRADIX [888,0:35] ram[888,0:35] OCTALRADIX [889,0:35] ram[889,0:35] OCTALRADIX [890,0:35] ram[890,0:35] OCTALRADIX [891,0:35] ram[891,0:35] OCTALRADIX [892,0:35] ram[892,0:35] OCTALRADIX [893,0:35] ram[893,0:35] OCTALRADIX [894,0:35] ram[894,0:35] OCTALRADIX [895,0:35] ram[895,0:35] OCTALRADIX [896,0:35] ram[896,0:35] OCTALRADIX [897,0:35] ram[897,0:35] OCTALRADIX [898,0:35] ram[898,0:35] OCTALRADIX [899,0:35] ram[899,0:35] OCTALRADIX [900,0:35] ram[900,0:35] OCTALRADIX [901,0:35] ram[901,0:35] OCTALRADIX [902,0:35] ram[902,0:35] OCTALRADIX [903,0:35] ram[903,0:35] OCTALRADIX [904,0:35] ram[904,0:35] OCTALRADIX [905,0:35] ram[905,0:35] OCTALRADIX [906,0:35] ram[906,0:35] OCTALRADIX [907,0:35] ram[907,0:35] OCTALRADIX [908,0:35] ram[908,0:35] OCTALRADIX [909,0:35] ram[909,0:35] OCTALRADIX [910,0:35] ram[910,0:35] OCTALRADIX [911,0:35] ram[911,0:35] OCTALRADIX [912,0:35] ram[912,0:35] OCTALRADIX [913,0:35] ram[913,0:35] OCTALRADIX [914,0:35] ram[914,0:35] OCTALRADIX [915,0:35] ram[915,0:35] OCTALRADIX [916,0:35] ram[916,0:35] OCTALRADIX [917,0:35] ram[917,0:35] OCTALRADIX [918,0:35] ram[918,0:35] OCTALRADIX [919,0:35] ram[919,0:35] OCTALRADIX [920,0:35] ram[920,0:35] OCTALRADIX [921,0:35] ram[921,0:35] OCTALRADIX [922,0:35] ram[922,0:35] OCTALRADIX [923,0:35] ram[923,0:35] OCTALRADIX [924,0:35] ram[924,0:35] OCTALRADIX [925,0:35] ram[925,0:35] OCTALRADIX [926,0:35] ram[926,0:35] OCTALRADIX [927,0:35] ram[927,0:35] OCTALRADIX [928,0:35] ram[928,0:35] OCTALRADIX [929,0:35] ram[929,0:35] OCTALRADIX [930,0:35] ram[930,0:35] OCTALRADIX [931,0:35] ram[931,0:35] OCTALRADIX [932,0:35] ram[932,0:35] OCTALRADIX [933,0:35] ram[933,0:35] OCTALRADIX [934,0:35] ram[934,0:35] OCTALRADIX [935,0:35] ram[935,0:35] OCTALRADIX [936,0:35] ram[936,0:35] OCTALRADIX [937,0:35] ram[937,0:35] OCTALRADIX [938,0:35] ram[938,0:35] OCTALRADIX [939,0:35] ram[939,0:35] OCTALRADIX [940,0:35] ram[940,0:35] OCTALRADIX [941,0:35] ram[941,0:35] OCTALRADIX [942,0:35] ram[942,0:35] OCTALRADIX [943,0:35] ram[943,0:35] OCTALRADIX [944,0:35] ram[944,0:35] OCTALRADIX [945,0:35] ram[945,0:35] OCTALRADIX [946,0:35] ram[946,0:35] OCTALRADIX [947,0:35] ram[947,0:35] OCTALRADIX [948,0:35] ram[948,0:35] OCTALRADIX [949,0:35] ram[949,0:35] OCTALRADIX [950,0:35] ram[950,0:35] OCTALRADIX [951,0:35] ram[951,0:35] OCTALRADIX [952,0:35] ram[952,0:35] OCTALRADIX [953,0:35] ram[953,0:35] OCTALRADIX [954,0:35] ram[954,0:35] OCTALRADIX [955,0:35] ram[955,0:35] OCTALRADIX [956,0:35] ram[956,0:35] OCTALRADIX [957,0:35] ram[957,0:35] OCTALRADIX [958,0:35] ram[958,0:35] OCTALRADIX [959,0:35] ram[959,0:35] OCTALRADIX [960,0:35] ram[960,0:35] OCTALRADIX [961,0:35] ram[961,0:35] OCTALRADIX [962,0:35] ram[962,0:35] OCTALRADIX [963,0:35] ram[963,0:35] OCTALRADIX [964,0:35] ram[964,0:35] OCTALRADIX [965,0:35] ram[965,0:35] OCTALRADIX [966,0:35] ram[966,0:35] OCTALRADIX [967,0:35] ram[967,0:35] OCTALRADIX [968,0:35] ram[968,0:35] OCTALRADIX [969,0:35] ram[969,0:35] OCTALRADIX [970,0:35] ram[970,0:35] OCTALRADIX [971,0:35] ram[971,0:35] OCTALRADIX [972,0:35] ram[972,0:35] OCTALRADIX [973,0:35] ram[973,0:35] OCTALRADIX [974,0:35] ram[974,0:35] OCTALRADIX [975,0:35] ram[975,0:35] OCTALRADIX [976,0:35] ram[976,0:35] OCTALRADIX [977,0:35] ram[977,0:35] OCTALRADIX [978,0:35] ram[978,0:35] OCTALRADIX [979,0:35] ram[979,0:35] OCTALRADIX [980,0:35] ram[980,0:35] OCTALRADIX [981,0:35] ram[981,0:35] OCTALRADIX [982,0:35] ram[982,0:35] OCTALRADIX [983,0:35] ram[983,0:35] OCTALRADIX [984,0:35] ram[984,0:35] OCTALRADIX [985,0:35] ram[985,0:35] OCTALRADIX [986,0:35] ram[986,0:35] OCTALRADIX [987,0:35] ram[987,0:35] OCTALRADIX [988,0:35] ram[988,0:35] OCTALRADIX [989,0:35] ram[989,0:35] OCTALRADIX [990,0:35] ram[990,0:35] OCTALRADIX [991,0:35] ram[991,0:35] OCTALRADIX [992,0:35] ram[992,0:35] OCTALRADIX [993,0:35] ram[993,0:35] OCTALRADIX [994,0:35] ram[994,0:35] OCTALRADIX [995,0:35] ram[995,0:35] OCTALRADIX [996,0:35] ram[996,0:35] OCTALRADIX [997,0:35] ram[997,0:35] OCTALRADIX [998,0:35] ram[998,0:35] OCTALRADIX [999,0:35] ram[999,0:35] OCTALRADIX [1000,0:35] ram[1000,0:35] OCTALRADIX [1001,0:35] ram[1001,0:35] OCTALRADIX [1002,0:35] ram[1002,0:35] OCTALRADIX [1003,0:35] ram[1003,0:35] OCTALRADIX [1004,0:35] ram[1004,0:35] OCTALRADIX [1005,0:35] ram[1005,0:35] OCTALRADIX [1006,0:35] ram[1006,0:35] OCTALRADIX [1007,0:35] ram[1007,0:35] OCTALRADIX [1008,0:35] ram[1008,0:35] OCTALRADIX [1009,0:35] ram[1009,0:35] OCTALRADIX [1010,0:35] ram[1010,0:35] OCTALRADIX [1011,0:35] ram[1011,0:35] OCTALRADIX [1012,0:35] ram[1012,0:35] OCTALRADIX [1013,0:35] ram[1013,0:35] OCTALRADIX [1014,0:35] ram[1014,0:35] OCTALRADIX [1015,0:35] ram[1015,0:35] OCTALRADIX [1016,0:35] ram[1016,0:35] OCTALRADIX [1017,0:35] ram[1017,0:35] OCTALRADIX [1018,0:35] ram[1018,0:35] OCTALRADIX [1019,0:35] ram[1019,0:35] OCTALRADIX [1020,0:35] ram[1020,0:35] OCTALRADIX [1021,0:35] ram[1021,0:35] OCTALRADIX [1022,0:35] ram[1022,0:35] OCTALRADIX [1023,0:35] ram[1023,0:35] OCTALRADIX label [0,0:35] ram[0,0:35] OCTALRADIX AC0[0:35] label [1,0:35] ram[1,0:35] OCTALRADIX AC1[0:35] label [2,0:35] ram[2,0:35] OCTALRADIX AC2[0:35] label [3,0:35] ram[3,0:35] OCTALRADIX AC3[0:35] label [4,0:35] ram[4,0:35] OCTALRADIX AC4[0:35] label [5,0:35] ram[5,0:35] OCTALRADIX AC5[0:35] label [6,0:35] ram[6,0:35] OCTALRADIX AC6[0:35] label [7,0:35] ram[7,0:35] OCTALRADIX AC7[0:35] label [8,0:35] ram[8,0:35] OCTALRADIX AC10[0:35] label [9,0:35] ram[9,0:35] OCTALRADIX AC11[0:35] label [10,0:35] ram[10,0:35] OCTALRADIX AC12[0:35] label [11,0:35] ram[11,0:35] OCTALRADIX AC13[0:35] label [12,0:35] ram[12,0:35] OCTALRADIX AC14[0:35] label [13,0:35] ram[13,0:35] OCTALRADIX AC15[0:35] label [14,0:35] ram[14,0:35] OCTALRADIX AC16[0:35] label [15,0:35] ram[15,0:35] OCTALRADIX AC17[0:35] label memEN memEN vma memEN vmaACREF vmaACREF Pager label 128 128 255 230 230 230 currADDR[0:11] currADDR[0:11] OCTALRADIX pageWRITE pageWRITE pageSWEEP pageSWEEP pageTABLE1[0:255,0:14] pageTABLE1[0:255,0:14] OCTALRADIX [0,0:14] pageTABLE1[0,0:14] OCTALRADIX [1,0:14] pageTABLE1[1,0:14] OCTALRADIX [2,0:14] pageTABLE1[2,0:14] OCTALRADIX [3,0:14] pageTABLE1[3,0:14] OCTALRADIX [4,0:14] pageTABLE1[4,0:14] OCTALRADIX [5,0:14] pageTABLE1[5,0:14] OCTALRADIX [6,0:14] pageTABLE1[6,0:14] OCTALRADIX [7,0:14] pageTABLE1[7,0:14] OCTALRADIX [8,0:14] pageTABLE1[8,0:14] OCTALRADIX [9,0:14] pageTABLE1[9,0:14] OCTALRADIX [10,0:14] pageTABLE1[10,0:14] OCTALRADIX [11,0:14] pageTABLE1[11,0:14] OCTALRADIX [12,0:14] pageTABLE1[12,0:14] OCTALRADIX [13,0:14] pageTABLE1[13,0:14] OCTALRADIX [14,0:14] pageTABLE1[14,0:14] OCTALRADIX [15,0:14] pageTABLE1[15,0:14] OCTALRADIX [16,0:14] pageTABLE1[16,0:14] OCTALRADIX [17,0:14] pageTABLE1[17,0:14] OCTALRADIX [18,0:14] pageTABLE1[18,0:14] OCTALRADIX [19,0:14] pageTABLE1[19,0:14] OCTALRADIX [20,0:14] pageTABLE1[20,0:14] OCTALRADIX [21,0:14] pageTABLE1[21,0:14] OCTALRADIX [22,0:14] pageTABLE1[22,0:14] OCTALRADIX [23,0:14] pageTABLE1[23,0:14] OCTALRADIX [24,0:14] pageTABLE1[24,0:14] OCTALRADIX [25,0:14] pageTABLE1[25,0:14] OCTALRADIX [26,0:14] pageTABLE1[26,0:14] OCTALRADIX [27,0:14] pageTABLE1[27,0:14] OCTALRADIX [28,0:14] pageTABLE1[28,0:14] OCTALRADIX [29,0:14] pageTABLE1[29,0:14] OCTALRADIX [30,0:14] pageTABLE1[30,0:14] OCTALRADIX [31,0:14] pageTABLE1[31,0:14] OCTALRADIX [32,0:14] pageTABLE1[32,0:14] OCTALRADIX [33,0:14] pageTABLE1[33,0:14] OCTALRADIX [34,0:14] pageTABLE1[34,0:14] OCTALRADIX [35,0:14] pageTABLE1[35,0:14] OCTALRADIX [36,0:14] pageTABLE1[36,0:14] OCTALRADIX [37,0:14] pageTABLE1[37,0:14] OCTALRADIX [38,0:14] pageTABLE1[38,0:14] OCTALRADIX [39,0:14] pageTABLE1[39,0:14] OCTALRADIX [40,0:14] pageTABLE1[40,0:14] OCTALRADIX [41,0:14] pageTABLE1[41,0:14] OCTALRADIX [42,0:14] pageTABLE1[42,0:14] OCTALRADIX [43,0:14] pageTABLE1[43,0:14] OCTALRADIX [44,0:14] pageTABLE1[44,0:14] OCTALRADIX [45,0:14] pageTABLE1[45,0:14] OCTALRADIX [46,0:14] pageTABLE1[46,0:14] OCTALRADIX [47,0:14] pageTABLE1[47,0:14] OCTALRADIX [48,0:14] pageTABLE1[48,0:14] OCTALRADIX [49,0:14] pageTABLE1[49,0:14] OCTALRADIX [50,0:14] pageTABLE1[50,0:14] OCTALRADIX [51,0:14] pageTABLE1[51,0:14] OCTALRADIX [52,0:14] pageTABLE1[52,0:14] OCTALRADIX [53,0:14] pageTABLE1[53,0:14] OCTALRADIX [54,0:14] pageTABLE1[54,0:14] OCTALRADIX [55,0:14] pageTABLE1[55,0:14] OCTALRADIX [56,0:14] pageTABLE1[56,0:14] OCTALRADIX [57,0:14] pageTABLE1[57,0:14] OCTALRADIX [58,0:14] pageTABLE1[58,0:14] OCTALRADIX [59,0:14] pageTABLE1[59,0:14] OCTALRADIX [60,0:14] pageTABLE1[60,0:14] OCTALRADIX [61,0:14] pageTABLE1[61,0:14] OCTALRADIX [62,0:14] pageTABLE1[62,0:14] OCTALRADIX [63,0:14] pageTABLE1[63,0:14] OCTALRADIX [64,0:14] pageTABLE1[64,0:14] OCTALRADIX [65,0:14] pageTABLE1[65,0:14] OCTALRADIX [66,0:14] pageTABLE1[66,0:14] OCTALRADIX [67,0:14] pageTABLE1[67,0:14] OCTALRADIX [68,0:14] pageTABLE1[68,0:14] OCTALRADIX [69,0:14] pageTABLE1[69,0:14] OCTALRADIX [70,0:14] pageTABLE1[70,0:14] OCTALRADIX [71,0:14] pageTABLE1[71,0:14] OCTALRADIX [72,0:14] pageTABLE1[72,0:14] OCTALRADIX [73,0:14] pageTABLE1[73,0:14] OCTALRADIX [74,0:14] pageTABLE1[74,0:14] OCTALRADIX [75,0:14] pageTABLE1[75,0:14] OCTALRADIX [76,0:14] pageTABLE1[76,0:14] OCTALRADIX [77,0:14] pageTABLE1[77,0:14] OCTALRADIX [78,0:14] pageTABLE1[78,0:14] OCTALRADIX [79,0:14] pageTABLE1[79,0:14] OCTALRADIX [80,0:14] pageTABLE1[80,0:14] OCTALRADIX [81,0:14] pageTABLE1[81,0:14] OCTALRADIX [82,0:14] pageTABLE1[82,0:14] OCTALRADIX [83,0:14] pageTABLE1[83,0:14] OCTALRADIX [84,0:14] pageTABLE1[84,0:14] OCTALRADIX [85,0:14] pageTABLE1[85,0:14] OCTALRADIX [86,0:14] pageTABLE1[86,0:14] OCTALRADIX [87,0:14] pageTABLE1[87,0:14] OCTALRADIX [88,0:14] pageTABLE1[88,0:14] OCTALRADIX [89,0:14] pageTABLE1[89,0:14] OCTALRADIX [90,0:14] pageTABLE1[90,0:14] OCTALRADIX [91,0:14] pageTABLE1[91,0:14] OCTALRADIX [92,0:14] pageTABLE1[92,0:14] OCTALRADIX [93,0:14] pageTABLE1[93,0:14] OCTALRADIX [94,0:14] pageTABLE1[94,0:14] OCTALRADIX [95,0:14] pageTABLE1[95,0:14] OCTALRADIX [96,0:14] pageTABLE1[96,0:14] OCTALRADIX [97,0:14] pageTABLE1[97,0:14] OCTALRADIX [98,0:14] pageTABLE1[98,0:14] OCTALRADIX [99,0:14] pageTABLE1[99,0:14] OCTALRADIX [100,0:14] pageTABLE1[100,0:14] OCTALRADIX [101,0:14] pageTABLE1[101,0:14] OCTALRADIX [102,0:14] pageTABLE1[102,0:14] OCTALRADIX [103,0:14] pageTABLE1[103,0:14] OCTALRADIX [104,0:14] pageTABLE1[104,0:14] OCTALRADIX [105,0:14] pageTABLE1[105,0:14] OCTALRADIX [106,0:14] pageTABLE1[106,0:14] OCTALRADIX [107,0:14] pageTABLE1[107,0:14] OCTALRADIX [108,0:14] pageTABLE1[108,0:14] OCTALRADIX [109,0:14] pageTABLE1[109,0:14] OCTALRADIX [110,0:14] pageTABLE1[110,0:14] OCTALRADIX [111,0:14] pageTABLE1[111,0:14] OCTALRADIX [112,0:14] pageTABLE1[112,0:14] OCTALRADIX [113,0:14] pageTABLE1[113,0:14] OCTALRADIX [114,0:14] pageTABLE1[114,0:14] OCTALRADIX [115,0:14] pageTABLE1[115,0:14] OCTALRADIX [116,0:14] pageTABLE1[116,0:14] OCTALRADIX [117,0:14] pageTABLE1[117,0:14] OCTALRADIX [118,0:14] pageTABLE1[118,0:14] OCTALRADIX [119,0:14] pageTABLE1[119,0:14] OCTALRADIX [120,0:14] pageTABLE1[120,0:14] OCTALRADIX [121,0:14] pageTABLE1[121,0:14] OCTALRADIX [122,0:14] pageTABLE1[122,0:14] OCTALRADIX [123,0:14] pageTABLE1[123,0:14] OCTALRADIX [124,0:14] pageTABLE1[124,0:14] OCTALRADIX [125,0:14] pageTABLE1[125,0:14] OCTALRADIX [126,0:14] pageTABLE1[126,0:14] OCTALRADIX [127,0:14] pageTABLE1[127,0:14] OCTALRADIX [128,0:14] pageTABLE1[128,0:14] OCTALRADIX [129,0:14] pageTABLE1[129,0:14] OCTALRADIX [130,0:14] pageTABLE1[130,0:14] OCTALRADIX [131,0:14] pageTABLE1[131,0:14] OCTALRADIX [132,0:14] pageTABLE1[132,0:14] OCTALRADIX [133,0:14] pageTABLE1[133,0:14] OCTALRADIX [134,0:14] pageTABLE1[134,0:14] OCTALRADIX [135,0:14] pageTABLE1[135,0:14] OCTALRADIX [136,0:14] pageTABLE1[136,0:14] OCTALRADIX [137,0:14] pageTABLE1[137,0:14] OCTALRADIX [138,0:14] pageTABLE1[138,0:14] OCTALRADIX [139,0:14] pageTABLE1[139,0:14] OCTALRADIX [140,0:14] pageTABLE1[140,0:14] OCTALRADIX [141,0:14] pageTABLE1[141,0:14] OCTALRADIX [142,0:14] pageTABLE1[142,0:14] OCTALRADIX [143,0:14] pageTABLE1[143,0:14] OCTALRADIX [144,0:14] pageTABLE1[144,0:14] OCTALRADIX [145,0:14] pageTABLE1[145,0:14] OCTALRADIX [146,0:14] pageTABLE1[146,0:14] OCTALRADIX [147,0:14] pageTABLE1[147,0:14] OCTALRADIX [148,0:14] pageTABLE1[148,0:14] OCTALRADIX [149,0:14] pageTABLE1[149,0:14] OCTALRADIX [150,0:14] pageTABLE1[150,0:14] OCTALRADIX [151,0:14] pageTABLE1[151,0:14] OCTALRADIX [152,0:14] pageTABLE1[152,0:14] OCTALRADIX [153,0:14] pageTABLE1[153,0:14] OCTALRADIX [154,0:14] pageTABLE1[154,0:14] OCTALRADIX [155,0:14] pageTABLE1[155,0:14] OCTALRADIX [156,0:14] pageTABLE1[156,0:14] OCTALRADIX [157,0:14] pageTABLE1[157,0:14] OCTALRADIX [158,0:14] pageTABLE1[158,0:14] OCTALRADIX [159,0:14] pageTABLE1[159,0:14] OCTALRADIX [160,0:14] pageTABLE1[160,0:14] OCTALRADIX [161,0:14] pageTABLE1[161,0:14] OCTALRADIX [162,0:14] pageTABLE1[162,0:14] OCTALRADIX [163,0:14] pageTABLE1[163,0:14] OCTALRADIX [164,0:14] pageTABLE1[164,0:14] OCTALRADIX [165,0:14] pageTABLE1[165,0:14] OCTALRADIX [166,0:14] pageTABLE1[166,0:14] OCTALRADIX [167,0:14] pageTABLE1[167,0:14] OCTALRADIX [168,0:14] pageTABLE1[168,0:14] OCTALRADIX [169,0:14] pageTABLE1[169,0:14] OCTALRADIX [170,0:14] pageTABLE1[170,0:14] OCTALRADIX [171,0:14] pageTABLE1[171,0:14] OCTALRADIX [172,0:14] pageTABLE1[172,0:14] OCTALRADIX [173,0:14] pageTABLE1[173,0:14] OCTALRADIX [174,0:14] pageTABLE1[174,0:14] OCTALRADIX [175,0:14] pageTABLE1[175,0:14] OCTALRADIX [176,0:14] pageTABLE1[176,0:14] OCTALRADIX [177,0:14] pageTABLE1[177,0:14] OCTALRADIX [178,0:14] pageTABLE1[178,0:14] OCTALRADIX [179,0:14] pageTABLE1[179,0:14] OCTALRADIX [180,0:14] pageTABLE1[180,0:14] OCTALRADIX [181,0:14] pageTABLE1[181,0:14] OCTALRADIX [182,0:14] pageTABLE1[182,0:14] OCTALRADIX [183,0:14] pageTABLE1[183,0:14] OCTALRADIX [184,0:14] pageTABLE1[184,0:14] OCTALRADIX [185,0:14] pageTABLE1[185,0:14] OCTALRADIX [186,0:14] pageTABLE1[186,0:14] OCTALRADIX [187,0:14] pageTABLE1[187,0:14] OCTALRADIX [188,0:14] pageTABLE1[188,0:14] OCTALRADIX [189,0:14] pageTABLE1[189,0:14] OCTALRADIX [190,0:14] pageTABLE1[190,0:14] OCTALRADIX [191,0:14] pageTABLE1[191,0:14] OCTALRADIX [192,0:14] pageTABLE1[192,0:14] OCTALRADIX [193,0:14] pageTABLE1[193,0:14] OCTALRADIX [194,0:14] pageTABLE1[194,0:14] OCTALRADIX [195,0:14] pageTABLE1[195,0:14] OCTALRADIX [196,0:14] pageTABLE1[196,0:14] OCTALRADIX [197,0:14] pageTABLE1[197,0:14] OCTALRADIX [198,0:14] pageTABLE1[198,0:14] OCTALRADIX [199,0:14] pageTABLE1[199,0:14] OCTALRADIX [200,0:14] pageTABLE1[200,0:14] OCTALRADIX [201,0:14] pageTABLE1[201,0:14] OCTALRADIX [202,0:14] pageTABLE1[202,0:14] OCTALRADIX [203,0:14] pageTABLE1[203,0:14] OCTALRADIX [204,0:14] pageTABLE1[204,0:14] OCTALRADIX [205,0:14] pageTABLE1[205,0:14] OCTALRADIX [206,0:14] pageTABLE1[206,0:14] OCTALRADIX [207,0:14] pageTABLE1[207,0:14] OCTALRADIX [208,0:14] pageTABLE1[208,0:14] OCTALRADIX [209,0:14] pageTABLE1[209,0:14] OCTALRADIX [210,0:14] pageTABLE1[210,0:14] OCTALRADIX [211,0:14] pageTABLE1[211,0:14] OCTALRADIX [212,0:14] pageTABLE1[212,0:14] OCTALRADIX [213,0:14] pageTABLE1[213,0:14] OCTALRADIX [214,0:14] pageTABLE1[214,0:14] OCTALRADIX [215,0:14] pageTABLE1[215,0:14] OCTALRADIX [216,0:14] pageTABLE1[216,0:14] OCTALRADIX [217,0:14] pageTABLE1[217,0:14] OCTALRADIX [218,0:14] pageTABLE1[218,0:14] OCTALRADIX [219,0:14] pageTABLE1[219,0:14] OCTALRADIX [220,0:14] pageTABLE1[220,0:14] OCTALRADIX [221,0:14] pageTABLE1[221,0:14] OCTALRADIX [222,0:14] pageTABLE1[222,0:14] OCTALRADIX [223,0:14] pageTABLE1[223,0:14] OCTALRADIX [224,0:14] pageTABLE1[224,0:14] OCTALRADIX [225,0:14] pageTABLE1[225,0:14] OCTALRADIX [226,0:14] pageTABLE1[226,0:14] OCTALRADIX [227,0:14] pageTABLE1[227,0:14] OCTALRADIX [228,0:14] pageTABLE1[228,0:14] OCTALRADIX [229,0:14] pageTABLE1[229,0:14] OCTALRADIX [230,0:14] pageTABLE1[230,0:14] OCTALRADIX [231,0:14] pageTABLE1[231,0:14] OCTALRADIX [232,0:14] pageTABLE1[232,0:14] OCTALRADIX [233,0:14] pageTABLE1[233,0:14] OCTALRADIX [234,0:14] pageTABLE1[234,0:14] OCTALRADIX [235,0:14] pageTABLE1[235,0:14] OCTALRADIX [236,0:14] pageTABLE1[236,0:14] OCTALRADIX [237,0:14] pageTABLE1[237,0:14] OCTALRADIX [238,0:14] pageTABLE1[238,0:14] OCTALRADIX [239,0:14] pageTABLE1[239,0:14] OCTALRADIX [240,0:14] pageTABLE1[240,0:14] OCTALRADIX [241,0:14] pageTABLE1[241,0:14] OCTALRADIX [242,0:14] pageTABLE1[242,0:14] OCTALRADIX [243,0:14] pageTABLE1[243,0:14] OCTALRADIX [244,0:14] pageTABLE1[244,0:14] OCTALRADIX [245,0:14] pageTABLE1[245,0:14] OCTALRADIX [246,0:14] pageTABLE1[246,0:14] OCTALRADIX [247,0:14] pageTABLE1[247,0:14] OCTALRADIX [248,0:14] pageTABLE1[248,0:14] OCTALRADIX [249,0:14] pageTABLE1[249,0:14] OCTALRADIX [250,0:14] pageTABLE1[250,0:14] OCTALRADIX [251,0:14] pageTABLE1[251,0:14] OCTALRADIX [252,0:14] pageTABLE1[252,0:14] OCTALRADIX [253,0:14] pageTABLE1[253,0:14] OCTALRADIX [254,0:14] pageTABLE1[254,0:14] OCTALRADIX [255,0:14] pageTABLE1[255,0:14] OCTALRADIX pageTABLE2[0:255,0:14] pageTABLE2[0:255,0:14] OCTALRADIX [0,0:14] pageTABLE2[0,0:14] OCTALRADIX [1,0:14] pageTABLE2[1,0:14] OCTALRADIX [2,0:14] pageTABLE2[2,0:14] OCTALRADIX [3,0:14] pageTABLE2[3,0:14] OCTALRADIX [4,0:14] pageTABLE2[4,0:14] OCTALRADIX [5,0:14] pageTABLE2[5,0:14] OCTALRADIX [6,0:14] pageTABLE2[6,0:14] OCTALRADIX [7,0:14] pageTABLE2[7,0:14] OCTALRADIX [8,0:14] pageTABLE2[8,0:14] OCTALRADIX [9,0:14] pageTABLE2[9,0:14] OCTALRADIX [10,0:14] pageTABLE2[10,0:14] OCTALRADIX [11,0:14] pageTABLE2[11,0:14] OCTALRADIX [12,0:14] pageTABLE2[12,0:14] OCTALRADIX [13,0:14] pageTABLE2[13,0:14] OCTALRADIX [14,0:14] pageTABLE2[14,0:14] OCTALRADIX [15,0:14] pageTABLE2[15,0:14] OCTALRADIX [16,0:14] pageTABLE2[16,0:14] OCTALRADIX [17,0:14] pageTABLE2[17,0:14] OCTALRADIX [18,0:14] pageTABLE2[18,0:14] OCTALRADIX [19,0:14] pageTABLE2[19,0:14] OCTALRADIX [20,0:14] pageTABLE2[20,0:14] OCTALRADIX [21,0:14] pageTABLE2[21,0:14] OCTALRADIX [22,0:14] pageTABLE2[22,0:14] OCTALRADIX [23,0:14] pageTABLE2[23,0:14] OCTALRADIX [24,0:14] pageTABLE2[24,0:14] OCTALRADIX [25,0:14] pageTABLE2[25,0:14] OCTALRADIX [26,0:14] pageTABLE2[26,0:14] OCTALRADIX [27,0:14] pageTABLE2[27,0:14] OCTALRADIX [28,0:14] pageTABLE2[28,0:14] OCTALRADIX [29,0:14] pageTABLE2[29,0:14] OCTALRADIX [30,0:14] pageTABLE2[30,0:14] OCTALRADIX [31,0:14] pageTABLE2[31,0:14] OCTALRADIX [32,0:14] pageTABLE2[32,0:14] OCTALRADIX [33,0:14] pageTABLE2[33,0:14] OCTALRADIX [34,0:14] pageTABLE2[34,0:14] OCTALRADIX [35,0:14] pageTABLE2[35,0:14] OCTALRADIX [36,0:14] pageTABLE2[36,0:14] OCTALRADIX [37,0:14] pageTABLE2[37,0:14] OCTALRADIX [38,0:14] pageTABLE2[38,0:14] OCTALRADIX [39,0:14] pageTABLE2[39,0:14] OCTALRADIX [40,0:14] pageTABLE2[40,0:14] OCTALRADIX [41,0:14] pageTABLE2[41,0:14] OCTALRADIX [42,0:14] pageTABLE2[42,0:14] OCTALRADIX [43,0:14] pageTABLE2[43,0:14] OCTALRADIX [44,0:14] pageTABLE2[44,0:14] OCTALRADIX [45,0:14] pageTABLE2[45,0:14] OCTALRADIX [46,0:14] pageTABLE2[46,0:14] OCTALRADIX [47,0:14] pageTABLE2[47,0:14] OCTALRADIX [48,0:14] pageTABLE2[48,0:14] OCTALRADIX [49,0:14] pageTABLE2[49,0:14] OCTALRADIX [50,0:14] pageTABLE2[50,0:14] OCTALRADIX [51,0:14] pageTABLE2[51,0:14] OCTALRADIX [52,0:14] pageTABLE2[52,0:14] OCTALRADIX [53,0:14] pageTABLE2[53,0:14] OCTALRADIX [54,0:14] pageTABLE2[54,0:14] OCTALRADIX [55,0:14] pageTABLE2[55,0:14] OCTALRADIX [56,0:14] pageTABLE2[56,0:14] OCTALRADIX [57,0:14] pageTABLE2[57,0:14] OCTALRADIX [58,0:14] pageTABLE2[58,0:14] OCTALRADIX [59,0:14] pageTABLE2[59,0:14] OCTALRADIX [60,0:14] pageTABLE2[60,0:14] OCTALRADIX [61,0:14] pageTABLE2[61,0:14] OCTALRADIX [62,0:14] pageTABLE2[62,0:14] OCTALRADIX [63,0:14] pageTABLE2[63,0:14] OCTALRADIX [64,0:14] pageTABLE2[64,0:14] OCTALRADIX [65,0:14] pageTABLE2[65,0:14] OCTALRADIX [66,0:14] pageTABLE2[66,0:14] OCTALRADIX [67,0:14] pageTABLE2[67,0:14] OCTALRADIX [68,0:14] pageTABLE2[68,0:14] OCTALRADIX [69,0:14] pageTABLE2[69,0:14] OCTALRADIX [70,0:14] pageTABLE2[70,0:14] OCTALRADIX [71,0:14] pageTABLE2[71,0:14] OCTALRADIX [72,0:14] pageTABLE2[72,0:14] OCTALRADIX [73,0:14] pageTABLE2[73,0:14] OCTALRADIX [74,0:14] pageTABLE2[74,0:14] OCTALRADIX [75,0:14] pageTABLE2[75,0:14] OCTALRADIX [76,0:14] pageTABLE2[76,0:14] OCTALRADIX [77,0:14] pageTABLE2[77,0:14] OCTALRADIX [78,0:14] pageTABLE2[78,0:14] OCTALRADIX [79,0:14] pageTABLE2[79,0:14] OCTALRADIX [80,0:14] pageTABLE2[80,0:14] OCTALRADIX [81,0:14] pageTABLE2[81,0:14] OCTALRADIX [82,0:14] pageTABLE2[82,0:14] OCTALRADIX [83,0:14] pageTABLE2[83,0:14] OCTALRADIX [84,0:14] pageTABLE2[84,0:14] OCTALRADIX [85,0:14] pageTABLE2[85,0:14] OCTALRADIX [86,0:14] pageTABLE2[86,0:14] OCTALRADIX [87,0:14] pageTABLE2[87,0:14] OCTALRADIX [88,0:14] pageTABLE2[88,0:14] OCTALRADIX [89,0:14] pageTABLE2[89,0:14] OCTALRADIX [90,0:14] pageTABLE2[90,0:14] OCTALRADIX [91,0:14] pageTABLE2[91,0:14] OCTALRADIX [92,0:14] pageTABLE2[92,0:14] OCTALRADIX [93,0:14] pageTABLE2[93,0:14] OCTALRADIX [94,0:14] pageTABLE2[94,0:14] OCTALRADIX [95,0:14] pageTABLE2[95,0:14] OCTALRADIX [96,0:14] pageTABLE2[96,0:14] OCTALRADIX [97,0:14] pageTABLE2[97,0:14] OCTALRADIX [98,0:14] pageTABLE2[98,0:14] OCTALRADIX [99,0:14] pageTABLE2[99,0:14] OCTALRADIX [100,0:14] pageTABLE2[100,0:14] OCTALRADIX [101,0:14] pageTABLE2[101,0:14] OCTALRADIX [102,0:14] pageTABLE2[102,0:14] OCTALRADIX [103,0:14] pageTABLE2[103,0:14] OCTALRADIX [104,0:14] pageTABLE2[104,0:14] OCTALRADIX [105,0:14] pageTABLE2[105,0:14] OCTALRADIX [106,0:14] pageTABLE2[106,0:14] OCTALRADIX [107,0:14] pageTABLE2[107,0:14] OCTALRADIX [108,0:14] pageTABLE2[108,0:14] OCTALRADIX [109,0:14] pageTABLE2[109,0:14] OCTALRADIX [110,0:14] pageTABLE2[110,0:14] OCTALRADIX [111,0:14] pageTABLE2[111,0:14] OCTALRADIX [112,0:14] pageTABLE2[112,0:14] OCTALRADIX [113,0:14] pageTABLE2[113,0:14] OCTALRADIX [114,0:14] pageTABLE2[114,0:14] OCTALRADIX [115,0:14] pageTABLE2[115,0:14] OCTALRADIX [116,0:14] pageTABLE2[116,0:14] OCTALRADIX [117,0:14] pageTABLE2[117,0:14] OCTALRADIX [118,0:14] pageTABLE2[118,0:14] OCTALRADIX [119,0:14] pageTABLE2[119,0:14] OCTALRADIX [120,0:14] pageTABLE2[120,0:14] OCTALRADIX [121,0:14] pageTABLE2[121,0:14] OCTALRADIX [122,0:14] pageTABLE2[122,0:14] OCTALRADIX [123,0:14] pageTABLE2[123,0:14] OCTALRADIX [124,0:14] pageTABLE2[124,0:14] OCTALRADIX [125,0:14] pageTABLE2[125,0:14] OCTALRADIX [126,0:14] pageTABLE2[126,0:14] OCTALRADIX [127,0:14] pageTABLE2[127,0:14] OCTALRADIX [128,0:14] pageTABLE2[128,0:14] OCTALRADIX [129,0:14] pageTABLE2[129,0:14] OCTALRADIX [130,0:14] pageTABLE2[130,0:14] OCTALRADIX [131,0:14] pageTABLE2[131,0:14] OCTALRADIX [132,0:14] pageTABLE2[132,0:14] OCTALRADIX [133,0:14] pageTABLE2[133,0:14] OCTALRADIX [134,0:14] pageTABLE2[134,0:14] OCTALRADIX [135,0:14] pageTABLE2[135,0:14] OCTALRADIX [136,0:14] pageTABLE2[136,0:14] OCTALRADIX [137,0:14] pageTABLE2[137,0:14] OCTALRADIX [138,0:14] pageTABLE2[138,0:14] OCTALRADIX [139,0:14] pageTABLE2[139,0:14] OCTALRADIX [140,0:14] pageTABLE2[140,0:14] OCTALRADIX [141,0:14] pageTABLE2[141,0:14] OCTALRADIX [142,0:14] pageTABLE2[142,0:14] OCTALRADIX [143,0:14] pageTABLE2[143,0:14] OCTALRADIX [144,0:14] pageTABLE2[144,0:14] OCTALRADIX [145,0:14] pageTABLE2[145,0:14] OCTALRADIX [146,0:14] pageTABLE2[146,0:14] OCTALRADIX [147,0:14] pageTABLE2[147,0:14] OCTALRADIX [148,0:14] pageTABLE2[148,0:14] OCTALRADIX [149,0:14] pageTABLE2[149,0:14] OCTALRADIX [150,0:14] pageTABLE2[150,0:14] OCTALRADIX [151,0:14] pageTABLE2[151,0:14] OCTALRADIX [152,0:14] pageTABLE2[152,0:14] OCTALRADIX [153,0:14] pageTABLE2[153,0:14] OCTALRADIX [154,0:14] pageTABLE2[154,0:14] OCTALRADIX [155,0:14] pageTABLE2[155,0:14] OCTALRADIX [156,0:14] pageTABLE2[156,0:14] OCTALRADIX [157,0:14] pageTABLE2[157,0:14] OCTALRADIX [158,0:14] pageTABLE2[158,0:14] OCTALRADIX [159,0:14] pageTABLE2[159,0:14] OCTALRADIX [160,0:14] pageTABLE2[160,0:14] OCTALRADIX [161,0:14] pageTABLE2[161,0:14] OCTALRADIX [162,0:14] pageTABLE2[162,0:14] OCTALRADIX [163,0:14] pageTABLE2[163,0:14] OCTALRADIX [164,0:14] pageTABLE2[164,0:14] OCTALRADIX [165,0:14] pageTABLE2[165,0:14] OCTALRADIX [166,0:14] pageTABLE2[166,0:14] OCTALRADIX [167,0:14] pageTABLE2[167,0:14] OCTALRADIX [168,0:14] pageTABLE2[168,0:14] OCTALRADIX [169,0:14] pageTABLE2[169,0:14] OCTALRADIX [170,0:14] pageTABLE2[170,0:14] OCTALRADIX [171,0:14] pageTABLE2[171,0:14] OCTALRADIX [172,0:14] pageTABLE2[172,0:14] OCTALRADIX [173,0:14] pageTABLE2[173,0:14] OCTALRADIX [174,0:14] pageTABLE2[174,0:14] OCTALRADIX [175,0:14] pageTABLE2[175,0:14] OCTALRADIX [176,0:14] pageTABLE2[176,0:14] OCTALRADIX [177,0:14] pageTABLE2[177,0:14] OCTALRADIX [178,0:14] pageTABLE2[178,0:14] OCTALRADIX [179,0:14] pageTABLE2[179,0:14] OCTALRADIX [180,0:14] pageTABLE2[180,0:14] OCTALRADIX [181,0:14] pageTABLE2[181,0:14] OCTALRADIX [182,0:14] pageTABLE2[182,0:14] OCTALRADIX [183,0:14] pageTABLE2[183,0:14] OCTALRADIX [184,0:14] pageTABLE2[184,0:14] OCTALRADIX [185,0:14] pageTABLE2[185,0:14] OCTALRADIX [186,0:14] pageTABLE2[186,0:14] OCTALRADIX [187,0:14] pageTABLE2[187,0:14] OCTALRADIX [188,0:14] pageTABLE2[188,0:14] OCTALRADIX [189,0:14] pageTABLE2[189,0:14] OCTALRADIX [190,0:14] pageTABLE2[190,0:14] OCTALRADIX [191,0:14] pageTABLE2[191,0:14] OCTALRADIX [192,0:14] pageTABLE2[192,0:14] OCTALRADIX [193,0:14] pageTABLE2[193,0:14] OCTALRADIX [194,0:14] pageTABLE2[194,0:14] OCTALRADIX [195,0:14] pageTABLE2[195,0:14] OCTALRADIX [196,0:14] pageTABLE2[196,0:14] OCTALRADIX [197,0:14] pageTABLE2[197,0:14] OCTALRADIX [198,0:14] pageTABLE2[198,0:14] OCTALRADIX [199,0:14] pageTABLE2[199,0:14] OCTALRADIX [200,0:14] pageTABLE2[200,0:14] OCTALRADIX [201,0:14] pageTABLE2[201,0:14] OCTALRADIX [202,0:14] pageTABLE2[202,0:14] OCTALRADIX [203,0:14] pageTABLE2[203,0:14] OCTALRADIX [204,0:14] pageTABLE2[204,0:14] OCTALRADIX [205,0:14] pageTABLE2[205,0:14] OCTALRADIX [206,0:14] pageTABLE2[206,0:14] OCTALRADIX [207,0:14] pageTABLE2[207,0:14] OCTALRADIX [208,0:14] pageTABLE2[208,0:14] OCTALRADIX [209,0:14] pageTABLE2[209,0:14] OCTALRADIX [210,0:14] pageTABLE2[210,0:14] OCTALRADIX [211,0:14] pageTABLE2[211,0:14] OCTALRADIX [212,0:14] pageTABLE2[212,0:14] OCTALRADIX [213,0:14] pageTABLE2[213,0:14] OCTALRADIX [214,0:14] pageTABLE2[214,0:14] OCTALRADIX [215,0:14] pageTABLE2[215,0:14] OCTALRADIX [216,0:14] pageTABLE2[216,0:14] OCTALRADIX [217,0:14] pageTABLE2[217,0:14] OCTALRADIX [218,0:14] pageTABLE2[218,0:14] OCTALRADIX [219,0:14] pageTABLE2[219,0:14] OCTALRADIX [220,0:14] pageTABLE2[220,0:14] OCTALRADIX [221,0:14] pageTABLE2[221,0:14] OCTALRADIX [222,0:14] pageTABLE2[222,0:14] OCTALRADIX [223,0:14] pageTABLE2[223,0:14] OCTALRADIX [224,0:14] pageTABLE2[224,0:14] OCTALRADIX [225,0:14] pageTABLE2[225,0:14] OCTALRADIX [226,0:14] pageTABLE2[226,0:14] OCTALRADIX [227,0:14] pageTABLE2[227,0:14] OCTALRADIX [228,0:14] pageTABLE2[228,0:14] OCTALRADIX [229,0:14] pageTABLE2[229,0:14] OCTALRADIX [230,0:14] pageTABLE2[230,0:14] OCTALRADIX [231,0:14] pageTABLE2[231,0:14] OCTALRADIX [232,0:14] pageTABLE2[232,0:14] OCTALRADIX [233,0:14] pageTABLE2[233,0:14] OCTALRADIX [234,0:14] pageTABLE2[234,0:14] OCTALRADIX [235,0:14] pageTABLE2[235,0:14] OCTALRADIX [236,0:14] pageTABLE2[236,0:14] OCTALRADIX [237,0:14] pageTABLE2[237,0:14] OCTALRADIX [238,0:14] pageTABLE2[238,0:14] OCTALRADIX [239,0:14] pageTABLE2[239,0:14] OCTALRADIX [240,0:14] pageTABLE2[240,0:14] OCTALRADIX [241,0:14] pageTABLE2[241,0:14] OCTALRADIX [242,0:14] pageTABLE2[242,0:14] OCTALRADIX [243,0:14] pageTABLE2[243,0:14] OCTALRADIX [244,0:14] pageTABLE2[244,0:14] OCTALRADIX [245,0:14] pageTABLE2[245,0:14] OCTALRADIX [246,0:14] pageTABLE2[246,0:14] OCTALRADIX [247,0:14] pageTABLE2[247,0:14] OCTALRADIX [248,0:14] pageTABLE2[248,0:14] OCTALRADIX [249,0:14] pageTABLE2[249,0:14] OCTALRADIX [250,0:14] pageTABLE2[250,0:14] OCTALRADIX [251,0:14] pageTABLE2[251,0:14] OCTALRADIX [252,0:14] pageTABLE2[252,0:14] OCTALRADIX [253,0:14] pageTABLE2[253,0:14] OCTALRADIX [254,0:14] pageTABLE2[254,0:14] OCTALRADIX [255,0:14] pageTABLE2[255,0:14] OCTALRADIX pageFLAGS[0:4] pageFLAGS[0:4] OCTALRADIX pageVIRTADDR[18:26] pageVIRTADDR[18:26] OCTALRADIX pageVALID pageVALID pageWRITEABLE pageWRITEABLE pageCACHEABLE pageCACHEABLE pageUSER pageUSER label [0] pageFLAGS[0] Pager Output (Page Valid) label [1] pageFLAGS[1] Pager Output (Page Writable) label [3] pageFLAGS[3] Pager Output (Page Cacheable) label [4] pageFLAGS[4] Pager Output (Page User) label pageADDR[16:26] pageADDR[16:26] OCTALRADIX Pager Output (Phys Page[16:26]) pagedREF pagedREF flagPAGEEN flagPAGEEN APR label 128 128 255 230 230 230 ks10INTR ks10INTR aprFLAGS[22:35] aprFLAGS[22:35] OCTALRADIX flag24 flag24 flag25 flag25 flag26 flag26 flag27 flag27 flag28 flag28 flag29 flag29 flag30 flag30 flag31 flag31 flagTRAPEN flagTRAPEN flagPAGEEN flagPAGEEN flagSWINT flagSWINT PC Flags label 128 128 255 230 230 230 pcFLAGS[0:17] pcFLAGS[0:17] OCTALRADIX flagAOV flagAOV flagCRY0 flagCRY0 flagCRY1 flagCRY1 flagFOV flagFOV flagFPD flagFPD flagUSER flagUSER flagUSERIO flagUSERIO flagTRAP2 flagTRAP2 flagTRAP1 flagTRAP1 flagFXU flagFXU flagNODIV flagNODIV Previous Context (PXCT) label 128 128 255 230 230 230 prevEN prevEN currBLOCK[0:2] currBLOCK[0:2] OCTALRADIX prevBLOCK[0:2] prevBLOCK[0:2] OCTALRADIX Timer label 128 128 255 230 230 230 OCTALRADIX timerCOUNT[18:35] timerCOUNT[18:35] OCTALRADIX ise/ks10.xise0000700000175100010010000014115012061311754 11472 0ustar RobNone
makefile 444 00017510001001 5245 12061677166 10647 0ustar RobNoneRTL := rtl ISE := ISE ARB := $(RTL)/arb CSL := $(RTL)/csl CPU := $(RTL)/cpu ISE := $(ISE) MEM := $(RTL)/mem UBA := $(RTL)/uba UC := $(CPU)/useq LOAD := MAINDEC-10-DSKCC.txt #LOAD := MAINDEC-10-DSKEA.txt #LOAD := smmon.txt SRC := \ $(UC)/crom.vh \ $(UC)/crom.v \ $(UC)/crom.dat \ $(UC)/drom.vh \ $(UC)/drom.v \ $(UC)/drom.dat \ $(UC)/skip.v \ $(UC)/stack.v \ $(UC)/dispatch.v \ $(UC)/useq.v \ $(CPU)/ac_block.v \ $(CPU)/alu.v \ $(CPU)/apr.v \ $(CPU)/bus.v \ $(CPU)/byte_disp.v \ $(CPU)/cache.v \ $(CPU)/dbm.v \ $(CPU)/dbus.v \ $(CPU)/debug.v \ $(CPU)/intf.v \ $(CPU)/intr.v \ $(CPU)/iolatch.v \ $(CPU)/ni_disp.v \ $(CPU)/pager.v \ $(CPU)/pcflags.v \ $(CPU)/pf_disp.v \ $(CPU)/pxct.v \ $(CPU)/ram1kx36.v \ $(CPU)/ramfile.v \ $(CPU)/regir.v \ $(CPU)/scad.v \ $(CPU)/timer.v \ $(CPU)/timing.v \ $(CPU)/traps.v \ $(CPU)/vma.v \ $(CPU)/cpu.v \ $(CSL)/csl.v \ $(MEM)/mem.v \ $(ARB)/arb.v \ $(UBA)/dz11/uart/demet.vhd \ $(UBA)/dz11/uart/ascii_types.vhd \ $(UBA)/dz11/uart/uart_types.vhd \ $(UBA)/dz11/uart/uart_brg.vhd \ $(UBA)/dz11/uart/uart_rx.vhd \ $(UBA)/dz11/uart/uart_tx.vhd \ $(UBA)/dz11/fifo.v \ $(UBA)/dz11/dz11.v \ $(UBA)/ubapag.v \ $(UBA)/uba.v \ $(RTL)/ks10.v \ $(RTL)/ks10.ucf \ $(RTL)/status.txt \ $(RTL)/ssram.dat \ $(RTL)/testbench.v BLD := \ $(ISE)/ks10.xise \ $(ISE)/ks10.gise \ $(ISE)/ks10.wcfg asdf : $(SRC) $(BLD) echo $(SRC) $(BLD) $(UC)/crom.dat : $(UC)/ks10.mcr $(UC)/crom.awk makefile awk -f $(UC)/crom.awk $(UC)/ks10.mcr > $(UC)/crom.dat $(UC)/drom.dat : $(UC)/ks10.mcr $(UC)/drom.awk makefile awk -f $(UC)/drom.awk $(UC)/ks10.mcr > $(UC)/drom.dat $(RTL)/ssram.dat : $(RTL)/$(LOAD) $(RTL)/ssram.awk makefile awk -f $(RTL)/ssram.awk -vfilename=$(LOAD) $(RTL)/$(LOAD) > $(RTL)/ssram.dat clean: rcsclean $(RTL)/* rcsclean $(ARB)/* rcsclean $(CSL)/* rcsclean $(CPU)/* rcsclean $(MEM)/* rcsclean $(UBA)/dz11/uart/* rcsclean $(UBA)/dz11/* rcsclean $(UBA)/* rcsclean $(UC)/* rm -f $(UC)/*.dat rm -f $(RTL)/*.dat find . -type f -name "*~" | xargs rm -fv archive_src: $(SRC) tar -czvf ks10_src_`date '+%y%m%d'`.tgz $(SRC) archive_all: tar -czvf ks10_all_`date '+%y%m%d'`.tgz * fuse := /cygdrive/c/Xilinx/13.3/ISE_DS/ISE/bin/nt64/fuse.exe testbench_isim_beh.exe fuse : cd ise;$(fuse) \ -intstyle ise \ -incremental \ -lib unisims_ver \ -lib unimacro_ver \ -lib xilinxcorelib_ver \ -lib secureip \ -o E:/PDPx/pdp10/KS10/fpga/ise/testbench_isim_beh.exe \ -prj E:/PDPx/pdp10/KS10/fpga/ise/testbench_beh.prj \ work.testbench testbench : ise/testbench_isim_beh.exe -gui rtl/0000700000175100010010000000000012061535422 10036 5ustar RobNonertl/arb/0000700000175100010010000000000012061535413 10602 5ustar RobNonertl/arb/arb.v0000700000175100010010000001520612061517366 11553 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 Bus Arbiter //! //! \details //! This device is the KS10 Bus Arbiter and Bus Multiplexer //! //! \todo //! //! \file //! arb.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // module ARB(cpuREQI, cpuACKO, cpuADDRI, cpuDATAI, cpuDATAO, cslREQI, cslREQO, cslACKI, cslACKO, cslADDRI, cslDATAI, cslDATAO, ubaREQI, ubaREQO, ubaACKI, ubaACKO, ubaADDRI, ubaDATAI, ubaDATAO, memREQO, memACKI, memDATAI, memDATAO, arbADDRO); input cpuREQI; // CPU Bus Request output cpuACKO; // CPU Bus Acknowledge input [0:35] cpuADDRI; // CPU Address input [0:35] cpuDATAI; // CPU Data In output [0:35] cpuDATAO; // CPU Data Out input cslREQI; // CSL Bus Request In output cslREQO; // CSL Bus Request Out input cslACKI; // CSL Bus Acknowledge In output cslACKO; // CSL Bus Acknowledge Out input [0:35] cslADDRI; // CSL Address In input [0:35] cslDATAI; // CSL Data In output [0:35] cslDATAO; // CSL Data Out input ubaREQI; // UBA Bus RequestIn output ubaREQO; // UBA Bus Request Out input ubaACKI; // UBA Bus Acknowledge In output ubaACKO; // UBA Bus Acknowledge Out input [0:35] ubaADDRI; // UBA Address In input [0:35] ubaDATAI; // UBA Data In output [0:35] ubaDATAO; // UBA Data Out output memREQO; // MEM Bus Request Out input memACKI; // MEM Bus Acknowledge In input [0:35] memDATAI; // MEM Data In output [0:35] memDATAO; // MEM Data Out output [0:35] arbADDRO; // ARB Address // // Bus Request Arbitration // // Details: // Console has highest priority // Unibus has next priority // CPU has lowest priority // reg cpuACKO; reg cslACKO; reg cslREQO; reg memREQO; reg ubaREQO; reg ubaACKO; reg [0:35] cslDATAO; reg [0:35] cpuDATAO; reg [0:35] memDATAO; reg [0:35] ubaDATAO; reg [0:35] arbADDRO; always @(cpuREQI or cpuADDRI or cpuDATAI or cpuDATAO or cslREQI or cslACKI or cslADDRI or cslDATAI or ubaREQI or ubaACKI or ubaADDRI or ubaDATAI or memACKI or memDATAI) begin cpuACKO = 1'b0; cslREQO = 1'b0; cslACKO = 1'b0; ubaREQO = 1'b0; ubaACKO = 1'b0; memREQO = 1'b0; arbADDRO = 36'bx; cslDATAO = 36'bx; cpuDATAO = 36'bx; memDATAO = 36'bx; ubaDATAO = 36'bx; arbADDRO = 36'bx; // // Bus Request from the Console // // Details // The console can access the memory or the unibus // if (cslREQI) begin cpuACKO = 1'b0; cslREQO = 1'b0; ubaREQO = 1'b1; ubaACKO = 1'b0; memREQO = 1'b1; arbADDRO = cslADDRI; cpuDATAO = cslDATAI; memDATAO = cslDATAI; ubaDATAO = cslDATAI; if (memACKI) begin cslACKO = 1'b1; cslDATAO = memDATAI; end else if (ubaACKI) begin cslACKO = 1'b1; cslDATAO = ubaDATAI; end else begin cslACKO = 1'b0; cslDATAO = 36'bx; end end // // Bus Request from the Unibus // // Details // The unibus can access the memory // else if (ubaREQI) begin cpuACKO = 1'b0; cslREQO = 1'b0; cslACKO = 1'b0; ubaREQO = 1'b0; memREQO = 1'b1; arbADDRO = ubaADDRI; cslDATAO = ubaDATAI; cpuDATAO = ubaDATAI; memDATAO = ubaDATAI; if (memACKI) begin ubaACKO = 1'b1; ubaDATAO = memDATAI; end else begin ubaACKO = 1'b0; ubaDATAO = 36'bx; end end // // Bus Request from the CPU // // Details // The CPU can access the memory, unibus or // console. // else if (cpuREQI) begin cslREQO = 1'b1; cslACKO = 1'b0; ubaREQO = 1'b1; ubaACKO = 1'b0; memREQO = 1'b1; arbADDRO = cpuADDRI; cslDATAO = cpuDATAI; memDATAO = cpuDATAI; ubaDATAO = cpuDATAI; if (memACKI) begin cpuACKO = 1'b1; cpuDATAO = memDATAI; end else if (ubaACKI) begin cpuACKO = 1'b1; cpuDATAO = ubaDATAI; end else if (cslACKI) begin cpuACKO = 1'b1; cpuDATAO = cslDATAI; end else begin cpuACKO = 1'b0; cpuDATAO = 36'bx; end end end endmodule rtl/cpu/0000700000175100010010000000000012061535474 10634 5ustar RobNonertl/cpu/ac_block.v0000700000175100010010000000531612061517362 12564 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! AC Block //! //! \details //! //! \todo //! //! \file //! ac_block.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module AC_BLOCK(clk, rst, clken, crom, dp, acBLOCK); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Datapath output [0: 5] acBLOCK; // Blocks // // AC Block Selection // // Details // This register holds the current AC block and the // previous AC block. The PXCT selects between the // two. // // Trace // DPE5/E308 // wire specACBLK = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADACBLK); reg [0: 2] currBLOCK; // Current Block reg [0: 2] prevBLOCK; // Previous Block always @(posedge clk or posedge rst) begin if (rst) begin currBLOCK <= 3'b0; prevBLOCK <= 3'b0; end else if (clken & specACBLK) begin currBLOCK <= dp[6: 8]; prevBLOCK <= dp[9:11]; end end // // Fixups // assign acBLOCK[0:2] = currBLOCK; assign acBLOCK[3:5] = prevBLOCK; endmodule rtl/cpu/alu.v0000700000175100010010000007426712061517362 11623 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! AM2901 ALU //! //! \details //! //! \note //! The KS10 ALU implementation uses ten cascaded am2901 4-bit //! slices. Some quick study showed that this did not work //! well with an FPGA implemenation. Most FPGAs have optimized //! (very fast) carry logic to support counters and adders. It //! turns out that the synthesis tools can't infer from the //! description of the 4-bit slices that a single 40-bit carry //! chain exists from the LSB to the MSB. Therefore this ALU //! is implemented as two 20-bit ALUs. The two 20-bit ALUs //! are required because the two ALU halves must operate //! together forming a single 40-bit ALU and must operate //! separately to form two independant registers. //! //! \note //! The ALU bit numbering on the schematic is [-2,-1,0:37]. //! This doesn't work at all for verilog. Therefore the //! bit numbering is [0:39]. //! //! \file //! alu.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module ALU(clk, rst, clken, crom, aluIN, aluLZERO, aluRZERO, aluLSIGN, aluRSIGN, aluAOV, aluCRY0, aluCRY1, aluCRY2, aluQR37, aluOUT, debugADDR, debugDATA); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] aluIN; // Bus input output aluLZERO; // ALU left half Zero output aluRZERO; // ALU right half Zero output aluLSIGN; // ALU left half Sign output aluRSIGN; // ALU right half Sign output aluAOV; // ALU Arithmetic Overflow output aluCRY0; // ALU Carry 0 output aluCRY1; // ALU Carry 1 output aluCRY2; // ALU Carry 2 output aluQR37; // ALU QR37 output [0:35] aluOUT; // ALU Output input [0: 3] debugADDR; // DEBUG Address output [0:35] debugDATA; // DEBUG Data // // Microcode fields // // Note // These temporaries are created so I can see the microcode fields // in the simulator. The synthesis optimizer deletes them. // reg [0:39] f; // ALU Output reg [0:39] q; // Q Register Output wire [0: 2] fun = `cromFUN; // ALU Function wire [0: 2] lsrc = `cromLSRC; // ALU Source (Left Side) wire [0: 2] rsrc = `cromRSRC; // ALU Source (Right Size) wire [0: 2] dst = `cromDST; // ALU Destination wire lclken = `cromLCLKEN; // ALU CLock (Left Side) wire rclken = `cromRCLKEN; // ALU Clock (Right Side) wire [0: 3] aa = `cromALU_A; // ALU DPRAM A Address wire [0: 3] ba = `cromALU_B; // ALU DPRAM B Address wire [0: 2] shstyle = `cromSPEC_SHSTYLE; // ALU Shift Mode // // Carry Inhibit // // Details // Inhibit the carry from right half of the ALU to left half of // the ALU // wire specCRY18INH = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_CRY18INH); // // ALU Register Write // // Note // The following ALU destinations write data into the ALU // registers. // wire write = ((dest ==`cromDST_RAMA) || (dest ==`cromDST_RAMF) || (dest ==`cromDST_RAMQD) || (dest ==`cromDST_RAMQU) || (dest ==`cromDST_RAMD) || (dest ==`cromDST_RAMU)); // // Destination Address Munging // // Note // DST[1] is inverted. // // When the ALU is configured for shift operations, the dst[1] // signal selects between right shifts and left shifts. // // In the KS10, the dst[1] selects tri-state muxes that // implement the right-shift and left-shift operations. // This isn't necessary on the FPGA implementation because // there aren't any tristate pins on the ALU. I just don't // want to change the microcode. So it stays. // // Trace // DPE5/E62 // wire [0:2] dest = {dst[0], ~dst[1], dst[2]}; // // Function Munging // // Note // FUN[2] is munged on DPE5 // // When fun[0] and fun[1] are both zero, fun[2] selects // between add and subract operations. This is used in // the divide implementation and the multiprecision // operations. // // Trace // DPE5/E62 // DPE5/E5 // wire [0:2] func = {fun[0], fun[1], funct_02}; // // Input Sign Extension // // Details // The ALU is 40-bits wide. The input is sign extended from // 36 bits to 38 bits and two bits of zero padding are added to // the right. // // Trace // DPE1/E29 (MSB/Sign Extension) // DPE2/E157 (LSB/Zero pad) // wire [0:39] dd = {aluIN[0], aluIN[0], aluIN[0:35], 2'b00}; // // Shifter Operations: // // Details // The am2901s are wired together to perform specific shift // operation controlled by the cromSPEC_SHSTYLE microcode // field. The ASCII art pictures below detail the various // shifter modes. // // Note // All of the F shifer logic is external to the am2901s. // // Shift Left Operations // // +--------- F shifter --------+ +--------- Q shifter --------+ // | | | | // // multi_shift // | // +----+ +----------+ | +----+ +----------+ // NORM |0123|<------|4 39|<-+ |0123|<------|4 39|<---- 0 // +----+ +----------+ +----+ +----------+ // // +------+ // | | // +----+ | +----------+ +----+ +----------+ // ZER0 |0123|<-+ |4 39|<---- 0 |0123|<------|4 39|<---- 0 // +----+ +----------+ +----+ +----------+ // // +------+ // | | // +----+ | +----------+ +----+ +----------+ // ONES |0123|<-+ |4 39|<---- 1 |0123|<------|4 39|<---- 1 // +----+ +----------+ +----+ +----------+ // // +------+ +---------------+ +---------------+ // | | | | | | // +----+ | | +----------+ | +----+ | +----------+ | // ROT |0123|<-+ +-|4 39|<-+ |0123|<----+-|4 39|<-+ // +----+ +----------+ +----+ +----------+ // // +------+ // | | // +----+ | +----------+ +----+ +----------+ // ASHC |0123|<-+ |4 39|<----+ |0123|<----+-|4 39|<---- 0 // +----+ +----------+ | +----+ | +----------+ // | | // +-----------------+ // // +----+ +----------+ +----+ +----------+ // LSHC |0123|<------|4 39|<----+ |0123|<----+-|4 39|<---- 0 // +----+ +----------+ | +----+ | +----------+ // | | // +-----------------+ // // +----+ +----------+ +----+ +----------+ // DIV |0123|<------|4 39|<----+ |0123|<----+-|4 39|<---- divide_shift // +----+ +----------+ | +----+ | +----------+ // | | // +-----------------+ // // +------+ +----------------------------------------------------+ // | | | | // +----+ | | +----------+ +----+ +----------+ | // ROTC |0123|<-+ +-|4 39|<----+ |0123|<----+-|4 39|<-+ // +----+ +----------+ | +----+ | +----------+ // | | // +-----------------+ // // Shift Right Operations // // +--------- F shifter --------+ +--------- Q shifter --------+ // | | | | // // +---+ 0 // | | | // | +----+ +----------+ | +----+ +----------+ // NORM +->|0123|------>|4 39| +->|0123|------>|4 39| // +----+ +----------+ +----+ +----------+ // // +---+ 0 0 0 // | | | | | // | +----+ | +----------+ | +----+ | +----------+ // ZEROS +->|0123| +->|4 39| +->|0123| +->|4 39| // +----+ +----------+ +----+ +----------+ // // +---+ 1 0 1 // | | | | | // | +----+ | +----------+ | +----+ | +----------+ // ONES +->|0123| +->|4 39| +->|0123| +->|4 39| // +----+ +----------+ +----+ +----------+ // // +---+ +---------------+ 0 +---------------+ // | | | | | | | // | +----+ | +----------+ | | +----+ | +----------+ | // ROT +->|0123| +->|4 39|-+ +->|0123| +->|4 39|-+ // +----+ +----------+ +----+ +----------+ // // +---+ 0 // | | | // | +----+ +----------+ | +----+ +----------+ // ASHC +->|0123|------>|4 39|-----+ +->|0123| +->|4 39| // +----+ +----------+ | +----+ | +----------+ // | | // +----------------+ // // +---+ 0 0 // | | | | // | +----+ | +----------+ | +----+ +----------+ // LSHC +->|0123| +->|4 39|-----+ +->|0123| +->|4 39| // +----+ +----------+ | +----+ | +----------+ // | | // +----------------+ // // +---+ 1 0 // | | | | // | +----+ | +----------+ | +----+ +----------+ // DIV +->|0123| +->|4 39|-----+ +->|0123| +->|4 39| // +----+ +----------+ | +----+ | +----------+ // | | // +----------------+ // // +---+ +----------------------------------------------------+ // | | | 0 | // | +----+ | +----------+ | +----+ +----------+ | // ROTC +->|0123| +->|4 39|-----+ +->|0123| +->|4 39|-+ // +----+ +----------+ | +----+ | +----------+ // | | // +----------------+ // Trace: // DPE1/E12 // DPE1/E20 // DPE1/E41 // DPE1/E48 // DPE1/E71 // reg [0:39] bdi; always @(f or q or dest or shstyle or multi_shift) begin if (dest == `cromDST_RAMQU || dest == `cromDST_RAMU) case (shstyle) `cromSPEC_SHSTYLE_NORM: bdi = {f[1:3], f[4], f[5:39], multi_shift}; `cromSPEC_SHSTYLE_ZERO: bdi = {f[1:3], f[0], f[5:39], 1'b0}; `cromSPEC_SHSTYLE_ONES: bdi = {f[1:3], f[0], f[5:39], 1'b1}; `cromSPEC_SHSTYLE_ROT: bdi = {f[1:3], f[0], f[5:39], f[4]}; `cromSPEC_SHSTYLE_ASHC: bdi = {f[1:3], f[0], f[5:39], q[4]}; `cromSPEC_SHSTYLE_LSHC: bdi = {f[1:3], f[4], f[5:39], q[4]}; `cromSPEC_SHSTYLE_DIV: bdi = {f[1:3], f[4], f[5:39], q[4]}; `cromSPEC_SHSTYLE_ROTC: bdi = {f[1:3], f[0], f[5:39], q[4]}; endcase else if (dest == `cromDST_RAMQD || dest == `cromDST_RAMD) case (shstyle) `cromSPEC_SHSTYLE_NORM: bdi = {f[0], f[0:2], f[3], f[4:38]}; `cromSPEC_SHSTYLE_ZERO: bdi = {f[0], f[0:2], 1'b0, f[4:38]}; `cromSPEC_SHSTYLE_ONES: bdi = {f[0], f[0:2], 1'b1, f[4:38]}; `cromSPEC_SHSTYLE_ROT: bdi = {f[0], f[0:2], f[39], f[4:38]}; `cromSPEC_SHSTYLE_ASHC: bdi = {f[0], f[0:2], f[3], f[4:38]}; `cromSPEC_SHSTYLE_LSHC: bdi = {f[0], f[0:2], 1'b0, f[4:38]}; `cromSPEC_SHSTYLE_DIV: bdi = {f[0], f[0:2], 1'b1, f[4:38]}; `cromSPEC_SHSTYLE_ROTC: bdi = {f[0], f[0:2], q[39], f[4:38]}; endcase else bdi = f; end // // ALU RAM Write Port // // Note // The left side and right side of the ALU can be independantly // clocked and updated. // integer i; reg [0:39] aluRAM [0:15]; always @(posedge clk or posedge rst) begin if (rst) ; else if (clken) begin if (lclken & write) aluRAM[ba][ 0:19] <= bdi[ 0:19]; if (rclken & write) aluRAM[ba][20:39] <= bdi[20:39]; end end // // ALU RAM Read Port(s) // // Details // The am2901 latches the addresses when the clock is low. These latches // would be a problem for an FPGA design. Latching the address lines is // not necessary anyway because the RAM address lines come directly from // the CROM which is already registered. We'll abosorb the address latch // into the CROM register. // // Note: // This asynchronous read (and asynchronous reset) causes the RAM to be // built out of distributed RAM or flip-flops. If this turns into a too // wasteful (576 flip-flops), we can pipeline the CROM register: use the // early CROM to set the read address the synchronous RAM and use the // pipelined delayed CROM for everything else. When combined, the clock // delayed output of the synchronous RAM would be pipelined correctly // with the rest of the CROM. // // Since the registers are implemented in flip-flops, it is no problem // to add a third port to the ALU RAM for debugging or a front panel // interface. // wire [0:39] ad = aluRAM[aa]; wire [0:39] bd = aluRAM[ba]; wire [0:35] cd = aluRAM[debugADDR][2:37]; // // Q Register Shifter // // Note: // All of the Q shifer logic is external to the am2901s. // reg [0:39] qi; always @(f or q or dest or shstyle or divide_shift) begin case (dest) `cromDST_RAMQU: case (shstyle) `cromSPEC_SHSTYLE_NORM: qi <= {q[1:39], 1'b0}; `cromSPEC_SHSTYLE_ZERO: qi <= {q[1:39], 1'b0}; `cromSPEC_SHSTYLE_ONES: qi <= {q[1:39], 1'b1}; `cromSPEC_SHSTYLE_ROT: qi <= {q[1:39], q[4]}; `cromSPEC_SHSTYLE_ASHC: qi <= {q[1:39], 1'b0}; `cromSPEC_SHSTYLE_LSHC: qi <= {q[1:39], 1'b0}; `cromSPEC_SHSTYLE_DIV: qi <= {q[1:39], divide_shift}; `cromSPEC_SHSTYLE_ROTC: qi <= {q[1:39], f[4]}; endcase `cromDST_RAMQD: case (shstyle) `cromSPEC_SHSTYLE_NORM: qi <= {1'b0, q[0:2], q[3], q[4:38]}; `cromSPEC_SHSTYLE_ZERO: qi <= {1'b0, q[0:2], 1'b0, q[4:38]}; `cromSPEC_SHSTYLE_ONES: qi <= {1'b0, q[0:2], 1'b1, q[4:38]}; `cromSPEC_SHSTYLE_ROT: qi <= {1'b0, q[0:2], q[39], q[4:38]}; `cromSPEC_SHSTYLE_ASHC: qi <= {1'b0, q[0:2], f[39], q[4:38]}; `cromSPEC_SHSTYLE_LSHC: qi <= {1'b0, q[0:2], f[39], q[4:38]}; `cromSPEC_SHSTYLE_DIV: qi <= {1'b0, q[0:2], f[39], q[4:38]}; `cromSPEC_SHSTYLE_ROTC: qi <= {1'b0, q[0:2], f[39], q[4:38]}; endcase `cromDST_QREG: qi <= f; `cromDST_NOP, `cromDST_RAMA, `cromDST_RAMF, `cromDST_RAMD, `cromDST_RAMU: qi <= q; endcase end // // Q Register // // Details // The left side and right side of the Q Register can be // independantly clocked and updated. I'm not sure // if the microcode does that, or not. // always @(posedge clk or posedge rst) begin if (rst) q[ 0:39] <= 40'b0; else if (clken) begin if (lclken) q[ 0:19] <= qi[ 0:19]; if (rclken) q[20:39] <= qi[20:39]; end end // // ALU Left R Source Selector // // Details // This selects source for the "R" input to the left-half of // the ALU. // reg [0:39] r; always @(ad or dd or lsrc) begin case (lsrc) `cromSRC_AQ, `cromSRC_AB: r[0:19] = ad[0:19]; `cromSRC_ZQ, `cromSRC_ZB, `cromSRC_ZA: r[0:19] = 20'b0; `cromSRC_DA, `cromSRC_DQ, `cromSRC_DZ: r[0:19] = dd[0:19]; endcase end // // ALU Right R Source Selector // // Details // This selects source for the "R" input to the right-half of // the ALU. // always @(ad or dd or rsrc) begin case (rsrc) `cromSRC_AQ, `cromSRC_AB: r[20:39] = ad[20:39]; `cromSRC_ZQ, `cromSRC_ZB, `cromSRC_ZA: r[20:39] = 20'b0; `cromSRC_DA, `cromSRC_DQ, `cromSRC_DZ: r[20:39] = dd[20:39]; endcase end // // ALU Left S Source Selector // // Details // This selects source for the "S" input to the left-half of // the ALU. // reg [0:39] s; always @(ad or bd or q or lsrc) begin case (lsrc) `cromSRC_AQ, `cromSRC_ZQ, `cromSRC_DQ: s[0:19] = q[0:19]; `cromSRC_AB, `cromSRC_ZB: s[0:19] = bd[0:19]; `cromSRC_ZA, `cromSRC_DA: s[0:19] = ad[0:19]; `cromSRC_DZ: s[0:19] = 20'b0; endcase end // // ALU Right S Source Selector // // Details // This selects source for the "S" input to the right-half of // the ALU. // always @(ad or bd or q or rsrc) begin case (rsrc) `cromSRC_AQ, `cromSRC_ZQ, `cromSRC_DQ: s[20:39] = q[20:39]; `cromSRC_AB, `cromSRC_ZB: s[20:39] = bd[20:39]; `cromSRC_ZA, `cromSRC_DA: s[20:39] = ad[20:39]; `cromSRC_DZ: s[20:39] = 20'b0; endcase end // // ALU Proper // // Details // The ALU is somewhat optimized so that the carry chain can // be optimized. Instead of adding logic into the middle of // of the carry to separate the left half and the right half // of the ALU, the left half, the right half, and the whole // ALU are calculated in parallel. // reg [0:3] g; // ALU Partial Sum reg co; // Carry out of left half reg go; // Partial sum for calculating CRY2 wire ci = carry_in; // Carry into right half reg bb; // Bit Bucket always @(r or s or ci or specCRY18INH or func) begin co = 1'b0; go = 1'b0; g = 4'b0; case (func) `cromFUN_ADD: begin {go, g[ 0: 3]} = {1'b0, r[ 0: 3]} + {1'b0, s[ 0: 3]}; if (specCRY18INH) begin {bb, f[20:39]} = {1'b0, r[20:39]} + {1'b0, s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b0, r[ 0:19]} + {1'b0, s[ 0:19]}; // Left Half (assumes no carry) end else begin {co, f[ 0:39]} = {1'b0, r[ 0:39]} + {1'b0, s[ 0:39]} + ci; // Whole ACC end end `cromFUN_SUBR: begin {go, g[ 0: 3]} = {1'b0, ~r[ 0: 3]} + {1'b0, s[ 0: 3]}; if (specCRY18INH) begin {bb, f[20:39]} = {1'b0, ~r[20:39]} + {1'b0, s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b0, ~r[ 0:19]} + {1'b0, s[ 0:19]}; // Left Half (assumes no carry) end else begin {co, f[ 0:39]} = {1'b0, ~r[ 0:39]} + {1'b0, s[ 0:39]} + ci; // Whole ACC end end `cromFUN_SUBS: begin {go, g[ 0: 3]} = {1'b0, r[ 0: 3]} + {1'b0, ~s[ 0: 3]}; if (specCRY18INH) begin {bb, f[20:39]} = {1'b0, r[20:39]} + {1'b0, ~s[20:39]} + ci; // Right Half {co, f[ 0:19]} = {1'b0, r[ 0:19]} + {1'b0, ~s[ 0:19]}; // Left Half (assumes no carry) end else begin {co, f[ 0:39]} = {1'b0, r[ 0:39]} + {1'b0, ~s[ 0:39]} + ci; // Whole ACC end end `cromFUN_ORRS: f = r | s; `cromFUN_ANDRS: f = r & s; `cromFUN_NOTRS: f = ~r & s; `cromFUN_EXOR: f = r ^ s; `cromFUN_EXNOR: f = ~(r ^ s); endcase end // // ALU Sign outputs // assign aluLSIGN = f[ 0]; assign aluRSIGN = f[20]; // // ALU Zero outputs // assign aluLZERO = f[ 0:19] == 20'b0; assign aluRZERO = f[20:39] == 20'b0; // // Arithmetic Overflow (aluAOV) // // Details // Arithmetic overflow occurs when the sign is different than // the MSB // // Trace // DPE9/E26 // assign aluAOV = aluLSIGN != f[2]; // // aluCRY0 // // Details // This is the carry form ALU bit -2 (Verilog bit 0). // In the KS10, this signal comes from the carry skippers. In // the FPGA implementation, the 'co' signal comes directly from // the ALU serial carry from the MSB. // // Note that the CRY0 doesn't actually come from bit 0: it comes // from bit (-2) using KS10 numbering. Because the top two bits // are sign extensions, they are equivalent. A carry from bit 0 // will cause a carry into bit (-1) and a carry from bit (-1) // will cause a carry into bit (-2). // assign aluCRY0 = co; // // aluCRY1 // // Details // A carry from bit 1 must have occured if the Arithmetic // Overflow bit is different than the carry from bit 0. // // Trace: // DPE9/E26 // assign aluCRY1 = aluAOV != aluCRY0; // aluCRY2: // // Details // This is the carry from ALU bit 2 into ALU bit 1. In Verilog // numbering (see notes at top of file), this is a carry from // ALU bit 4 into ALU bit 3. We don't really have access to // the carry from ALU bit 4, but we infer it by recalculating // the 4 MSBs with the carry cleared, and checking to see if it // yields the same results as the full calculation. If either // the carry or the top four bits are different, there must have // been a carry from ALU bit 2. // assign aluCRY2 = ((go != co) | (f[0:3] != g[0:3])); // // ALU Flag State Register // // Details // These registers store ALU state from one microinstruction to // the next. This state facilates the implementation of multi- // word shifts as well as mutiplication and divide operations. // // Trace // DPE5/E28 // reg flag_fl02; reg flag_qr37; reg flag_carry_02; reg flag_funct_02; reg flag_carry_out; always @(posedge clk or posedge rst) begin if (rst) begin flag_fl02 <= 1'b0; flag_qr37 <= 1'b0; flag_carry_02 <= 1'b0; flag_funct_02 <= 1'b0; flag_carry_out <= 1'b0; end else begin flag_fl02 <= bdi[4]; flag_qr37 <= q[39]; flag_carry_02 <= aluCRY2; flag_funct_02 <= funct_02; flag_carry_out <= aluCRY0; end end // // Shifter Configuration // // Details // This logic contains special connections to the shifter that // support multishift and divide operations. // // The special operations are controlled by the `cromMULTIPREC // and `cromDIVIDE microcode fields. // // Trace // DPE5/E4 // DPE5/E5 // DPE5/E6 // DPE5/E62 // DPE5/E70 // reg multi_shift; reg divide_shift; reg carry_in; reg funct_02; always @(crom or flag_fl02 or flag_carry_02 or flag_funct_02 or flag_carry_out or fun[2]) begin // // Multiprecision operations // if (`cromMULTIPREC) begin multi_shift <= flag_fl02; divide_shift <= 1'b0; carry_in <= flag_carry_02; funct_02 <= flag_funct_02; end // // Divide operations // else if (`cromDIVIDE) begin multi_shift <= 1'b0; divide_shift <= flag_carry_out; carry_in <= flag_carry_out; funct_02 <= flag_carry_out; end // // Nothing special. Carry in is controlled by microcode. // Everything else special is disabled. // else begin multi_shift <= 1'b0; divide_shift <= 1'b0; carry_in <= `cromCRY38; funct_02 <= fun[2]; end end // // QR37 // // Details // This is what is shifted out of the LSB of the Q Register and // is used by the multiplication implementation. I.e., it goes // to the multiplication dispatch logic to control whether to // add (or not) the partial product. // // Note // This is actually QR39 using Verilog numbering. // assign aluQR37 = flag_qr37; // // ALU Destination Selector // // Details // Select ALU output and truncate output bus from 40 bits to 36 // bits. // assign aluOUT = (dest ==`cromDST_RAMA) ? ad[2:37] : f[2:37]; // // ALU Register Debug Data // assign debugDATA = cd; endmodule rtl/cpu/apr.v0000700000175100010010000002032612061517362 11607 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! APR Device //! //! \details //! //! \todo //! //! \file //! apr.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module APR(clk, rst, clken, crom, dp, nxmINTR, ks10INTR, aprFLAGS, aprINTR); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:35] dp; // Data path input nxmINTR; // Non existant memory interrupt input ks10INTR; // Console In Interrupt output [22:35] aprFLAGS; // APR Flags output [ 1: 7] aprINTR; // APR Interrupt Request // // Microcode Decode // wire specLOADAPR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADAPR); wire specAPRFLAGS = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_APRFLAGS); // // APR Flag Register 24 // // Note // This is strictly a software interrupt. // // Trace // DPMB/E159 // reg flag24; always @(posedge clk or posedge rst) begin if (rst) flag24 <= 1'b0; else if (clken & specAPRFLAGS) flag24 <= dp[24]; end // // APR Flag Register 25 // // Note // This KS10 can set this bit to generate an interrupt to the // KS10 console. // // Trace // DPMB/E159 // reg flag25; always @(posedge clk or posedge rst) begin if (rst) flag25 <= 1'b0; else if (clken & specAPRFLAGS) flag25 <= dp[25]; end // // APR Flag Register 26 // // Note // This interrupt indicates that an power fail condition // exists. This interrupt is not implemented. // // Trace // DPMB/E158 // reg flag26; always @(posedge clk or posedge rst) begin if (rst) flag26 <= 1'b0; else if (clken & specAPRFLAGS) flag26 <= dp[26]; end // // APR Flag Register 27 // // Note // This interrupt indicates that non-existant memory has been // accessed. // // Trace // DPMB/E139 // reg flag27; always @(posedge clk or posedge rst) begin if (rst) flag27 <= 1'b0; else if (nxmINTR) flag27 <= 1'b1; else if (clken & specAPRFLAGS) flag27 <= dp[27]; end // // APR Flag Register 28 // // Note // This interrupt indicates that an uncorrectable memory error // has occurred. This is not implemented in the FPGA. // // Trace // DPMB/E139 // reg flag28; always @(posedge clk or posedge rst) begin if (rst) flag28 <= 1'b0; else if (clken & specAPRFLAGS) flag28 <= dp[28]; end // // APR Flag Register 29 // // Note // This interrupt indicates that an correctable memory error // has occurred. This is not implemented in the FPGA. // // Trace // DPMB/E147 // reg flag29; always @(posedge clk or posedge rst) begin if (rst) flag29 <= 1'b0; else if (clken & specAPRFLAGS) flag29 <= dp[29]; end // // APR Flag Register 30 // // Note // This interrupt indicates that an interval timer interrup // has occurred. This microcode manages this bit. // // Trace // DPMB/E147 // reg flag30; always @(posedge clk or posedge rst) begin if (rst) flag30 <= 1'b0; else if (clken & specAPRFLAGS) flag30 <= dp[30]; end // // APR Flag Register 31 // // Note // This interrupt indicates that the Console has requested // a KS10 Interrupt. // // Trace // DPMB/E158 // reg flag31; always @(posedge clk or posedge rst) begin if (rst) flag31 <= 1'b0; else if (ks10INTR) flag31 <= 1'b1; else if (clken & specAPRFLAGS) flag31 <= dp[31]; end // // APR Enable Register // // Trace // DPMB/E123 // DPMB/E132 // DPEB/E173 // reg flagTRAPEN; // Trap Enable reg flagPAGEEN; // Paging Enable reg [24:31] flagAPREN; // APR Enable reg flagSWINT; // Software Interrupt reg [ 1: 7] flagINTR; // APR Interrupt Request always @(posedge clk or posedge rst) begin if (rst) begin flagTRAPEN <= 1'b0; flagPAGEEN <= 1'b0; flagAPREN <= 8'b0; flagSWINT <= 1'b0; flagINTR <= 7'b0; end else if (clken & specLOADAPR) begin flagTRAPEN <= dp[22]; flagPAGEEN <= dp[23]; flagAPREN <= dp[24:31]; flagSWINT <= dp[32]; flagINTR <= dp[33:35]; end end // // APR Interrupt Mask // // Details // This masks the disabled interrupts. // // Trace // DPMB/E154 // DPMB/E161 // DPMB/E168 // DPMB/E174 // wire flagINTREQ = ((flag24 & flagAPREN[24]) || (flag25 & flagAPREN[25]) || (flag26 & flagAPREN[26]) || (flag27 & flagAPREN[27]) || (flag28 & flagAPREN[28]) || (flag29 & flagAPREN[29]) || (flag30 & flagAPREN[30]) || (flag31 & flagAPREN[31]) || (flagSWINT)); // // APR Interrupt Request // // Details // The APR can request interrupts. // // Trace // DPEB/E166 // reg [1:7] aprINTR; always @(flagINTREQ or flagINTR) begin aprINTR <= 7'b0000000; if (flagINTREQ) case (flagINTR) 3'b000 : aprINTR <= 7'b0000000; 3'b001 : aprINTR <= 7'b1000000; 3'b010 : aprINTR <= 7'b0100000; 3'b011 : aprINTR <= 7'b0010000; 3'b100 : aprINTR <= 7'b0001000; 3'b101 : aprINTR <= 7'b0000100; 3'b110 : aprINTR <= 7'b0000010; 3'b111 : aprINTR <= 7'b0000001; endcase end // // FIXUPS // assign aprFLAGS[22] = flagTRAPEN; assign aprFLAGS[23] = flagPAGEEN; assign aprFLAGS[24] = flag24; assign aprFLAGS[25] = flag25; assign aprFLAGS[26] = flag26; assign aprFLAGS[27] = flag27; assign aprFLAGS[28] = flag28; assign aprFLAGS[29] = flag29; assign aprFLAGS[30] = flag30; assign aprFLAGS[31] = flag31; assign aprFLAGS[32] = flagINTREQ; assign aprFLAGS[33] = 1'b1; assign aprFLAGS[34] = 1'b1; assign aprFLAGS[35] = 1'b1; endmodule rtl/cpu/bus.v0000700000175100010010000002045212061517362 11616 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 Bus Interface //! //! \details //! The protocol is not the same as the KS10 //! //! The first 7 bis are the Bus Command Bits //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! Memory Write | VMA Flags | Memory Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! Memory Read | VMA Flags | Memory Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! RMW Memory | VMA Flags | Memory Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! IO Write | VMA Flags | DEV NO | Register Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! IO Write Byte | VMA Flags | DEV NO | Register Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! IO Read | VMA Flags | DEV NO | Register Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +-+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! Read Controller| VMA Flags | | PI NO | Unused | //! Number +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! Read Intr Vect | VMA Flags | DEV NO | Unused | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! //! \todo //! //! \note //! //! \file //! bus.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module BUS(clk, rst, clken, crom, dp, vmaEXTENDED, vmaFLAGS, vmaADDR, pageADDR, aprFLAGS, busDATAO, busADDRO, busREQ, busACK, memWAIT); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:35] dp; // Data path input vmaEXTENDED; // Extended VMA input [ 0:13] vmaFLAGS; // VMA Flags input [14:35] vmaADDR; // Virtual Memory Address input [16:26] pageADDR; // Page Address input [22:35] aprFLAGS; // APR Flags output [ 0:35] busDATAO; // Bus Out output [ 0:35] busADDRO; // Bus Address output busREQ; // Bus Request input busACK; // Bus Acknowledge output memWAIT; // Wait for Memory // // Control ROM Decode // wire pageWRITE = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); // // APR Flags // wire flagPAGEEN = aprFLAGS[23]; // // VMA Flags // wire vmaREADCYCLE = vmaFLAGS[3]; wire vmaWRTESTCYCLE = vmaFLAGS[4]; wire vmaWRITECYCLE = vmaFLAGS[5]; wire vmaPHYSICAL = vmaFLAGS[8]; // // Paged Reference // wire pagedREF = ~vmaPHYSICAL & flagPAGEEN; // // Data Output // // FIXME: // Is the mux necessary? It just zeros out dp[19:20] and dp[23:24]. // reg [0:35] busDATAO; always @(dp or pageWRITE) begin if (pageWRITE) busDATAO[0:35] <= {dp[0:18], 2'b0, dp[21:22], 2'b0, dp[25:35]}; else busDATAO[0:35] <= dp[0:35]; end // // Address Output // reg [0:35] busADDRO; always @(pagedREF or vmaEXTENDED or vmaFLAGS or vmaADDR or pageADDR) begin if (pagedREF) busADDRO <= {vmaFLAGS, vmaADDR[14:15], pageADDR[16:26], vmaADDR[27:35]}; else if (vmaEXTENDED) busADDRO <= {vmaFLAGS, vmaADDR}; else busADDRO <= {vmaFLAGS, vmaADDR} & 36'o777760_777777; end // // Bus Request on the various cycles // assign busREQ = vmaREADCYCLE | vmaWRITECYCLE | vmaWRTESTCYCLE; // // Wait for memory (REQ with no ACK) // assign memWAIT = busREQ & ~busACK; endmodule rtl/cpu/byte_disp.v0000700000175100010010000000500512061517362 13004 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Byte Dispatch //! //! \details //! When the Datapath has a byte pointer and the byte size //! indication is 7 (most common byte size) and the bytes //! are zero aligned, then this hardware is enabled to speed //! byte manipulation. //! //! \todo //! //! \file //! byte_disp.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none module BYTE_DISP(dp, dispBYTE); input [0:35] dp; // Data path output reg [8:11] dispBYTE; // Byte dispatch // // BYTE DISP // // Details // The first 6 bits in DP are the position, the second 6 bits // in DP are the size. This is derived from the byte pointer // format of the PDP10. // // Trace // DPE3/E77 // DPE3/E16 // DPE3/E10 // DPE3/E9 // wire pos = dp[0: 5]; wire size = dp[6:11]; always @(pos, size) begin if (size == 7) case (pos) 1 : dispBYTE = 7; 8 : dispBYTE = 5; 15 : dispBYTE = 4; 22 : dispBYTE = 2; 29 : dispBYTE = 1; default: dispBYTE = 0; endcase else dispBYTE = 0; end endmodule rtl/cpu/cache.v0000700000175100010010000001254712061517364 12100 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Cache Directory //! //! \details //! //! \note //! //! \file //! cache.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details.S // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module CACHE(clk, rst, clken, crom, dp, vmaFLAGS, vmaADDR, vmaACREF, stop_main_memory, memoryCYCLE, memoryWAIT, cacheVALID, cacheUSER, cacheHIT, cacheHITEN, cacheADDR); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:35] dp; // Data path input [ 0:13] vmaFLAGS; // VMA Flags input [14:35] vmaADDR; // VMA Address input vmaACREG; input stop_main_memory; input memoryCYCLE; input memoryWAIT; output cacheVALID; // Cache Valid output cacheUSER; // Cache User output [18:26] cacheADDR; // Cache Addr // // VMA Flags // wire vmaUSER = vmaFLAGS[ 0]; wire vmaREADCYCLE = vmaFLAGS[ 3]; wire vmaCACHEIHN = vmaFLAGS[ 7]; wire vmaPHYSICAL = vmaFLAGS[ 8]; // // VMA Logic // DPE5/E76 // DPE6/E53 // wire [0: 8] virtPAGE = vmaADDR[18:26]; wire [0:11] din = {vmaPHYICAL, 1'b0, vmaUSER, vmaADDR[18:35]}; wire sweep = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); wire cacheWRITE = (~vmaACREF & stop_main_memory & memoryCYCLE & memoryWAIT); wire vmaEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA ) | (`cromMEM_CYCLE & `cromMEM_AREAD & `dromVMA)); // // Cache Directory Memory // reg [0: 8] readADDR; reg [0:11] cacheDIR1[0:255]; reg [0:11] cacheDIR1[0:255]; always @(posedge clk or posedge rst) begin if (rst) readADDR <= 9'b0; else if (clken & vmaEN) begin readADDR <= virtPAGE; if (cacheWRITE) begin if (~virtPAGE[0] | sweep) cacheDIR1[virtPAGE[1:8]] <= din; if ( virtPAGE[0] | sweep) cacheDIR2[virtPAGE[1:8]] <= din; end end end // // Cache Directory Read // wire [0:15] dout = (readADDR[0]) ? cacheDIR2[readADDR[1:8]] : cacheDIR1[readADDR[1:8]]; assign cacheVALID = dout[0]; assign cacheUSER = dout[2]; assign cacheADDR = dout[3:11]; wire cacheHITEN = ((int_or_err ) & (pageVALID ) & (~pageFAIL[5] ) & (~pageFAIL[6] ) & (pageEN ) & (vmaREADCYCLE ) & (~vmaCACHEINH ) & (~vmaPHYSICAL ) & (pageCACHEABLE ) & (cacheENABLE ) & (cacheVALID ) & (cacheUSER == vmaUSER ) & (cacheADDR[18] == vmaADDR[18]) & (cacheADDR[19] == vmaADDR[19]) & (cacheADDR[20] == vmaADDR[20]) & (cacheADDR[21] == vmaADDR[21]) & (cacheADDR[22] == vmaADDR[22]) & (cacheADDR[23] == vmaADDR[23]) & (cacheADDR[24] == vmaADDR[24]) & (cacheADDR[25] == vmaADDR[25]) & (cacheADDR[26] == vmaADDR[26])); wire cacheHIT = (cacheHITEN & ~vma_just_loaded); endmodule rtl/cpu/cpu.v0000700000175100010010000005421512061517366 11624 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 CPU //! //! \details //! //! \todo //! //! \file //! cpu.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module CPU(clk, rst, cslSTEP, cslRUN, cslEXEC, cslCONT, cslHALT, cslTIMEREN, cslTRAPEN, cslCACHEEN, ks10INTR, cslINTR, busINTR, curINTR_NUM, busREQ, busACK, busDATAI, busDATAO, busADDRO, cpuHALT ); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input cslSTEP; // Single Step input cslRUN; // Run input cslEXEC; // Execute input cslCONT; // Continue input cslHALT; // HALT input cslTIMEREN; // Timer Enable input cslTRAPEN; // Enable Traps input cslCACHEEN; // Enable Cache input ks10INTR; // Console Interrupt to KS10 output cslINTR; // KS10 Interrupt to Console input [ 1: 7] busINTR; // Unibus Interrupt Request output [ 0: 2] curINTR_NUM; // Current Interrupt Priority output busREQ; // Bus Request input busACK; // Bus Acknowledge input [ 0:35] busDATAI; // Bus Data Input output [ 0:35] busDATAO; // Bus Data Output output [ 0:35] busADDRO; // Bus Addr and Flags output cpuHALT; // Run/Halt Status // // ROMS // wire [0:cromWidth-1] crom; // Control ROM wire [0:dromWidth-1] drom; // Dispatch ROM // // ALU // wire aluLZERO; // ALU left-half is zero wire aluRZERO; // ALU right-half is zero wire aluLSIGN; // ALU left-half sign wire aluRSIGN; // ALU right-half sign wire aluAOV; // ALU arithmetic overflow wire aluCRY0; // ALU carry into bit 0 wire aluCRY1; // ALU carry into bit 1 wire aluCRY2; // ALU carry into bit 2 wire aluQR37; // Q Register LSB wire aluZERO = aluLZERO & aluRZERO; // ALU (both halves) is zero wire txxx = aluZERO != `dromTXXXEN; // Test Instruction Results // // Processor State // wire cpuRUN; // Run Switch Active wire cpuCONT; // Continue Switch Active wire cpuEXEC; // Execute Switch Active // // flags // wire memory_cycle = 1'b0; // FIXME wire iolatch; // FIXME wire opJRST0; // JRST 0 instruction wire trapCYCLE; // // Interrupts // wire cpuINTR; // Extenal Interrupt wire nxmINTR = 1'b0; // FIXME wire [ 0: 2] newINTR_NUM; // New Interrupt Number wire [ 1: 7] aprINTR; // APR Interrupt Request // // AC Blocks // wire [ 0: 5] acBLOCK; // AC Block wire [ 0: 2] currBLOCK = acBLOCK[0:2]; // Current AC Block wire [ 0: 2] prevBLOCK = acBLOCK[3:5]; // Previous AC Block // // PC Flags // wire [ 0:17] pcFLAGS; // PC Flags wire flagAOV = pcFLAGS[ 0]; // Arithmetic overflow wire flagCRY0 = pcFLAGS[ 1]; // Carry into bit 0 wire flagCRY1 = pcFLAGS[ 2]; // Carry into bit 1 wire flagFOV = pcFLAGS[ 3]; // Floating-poing overflow wire flagFPD = pcFLAGS[ 4]; // First Part Done wire flagUSER = pcFLAGS[ 5]; // User Mode wire flagUSERIO = pcFLAGS[ 6]; // User mode IO instructions wire flagPCU = pcFLAGS[ 6]; // Previous Context User wire flagTRAP2 = pcFLAGS[ 9]; // Trap2 wire flagTRAP1 = pcFLAGS[10]; // Trap1 wire flagFXU = pcFLAGS[11]; // Floating-point underflow wire flagNODIV = pcFLAGS[12]; // Divide failure // // APR Flags // wire [22:35] aprFLAGS; // Arithmetic Processor Flags wire flagTRAPEN = aprFLAGS[22]; // Traps are enabled wire flagPAGEEN = aprFLAGS[23]; // Paging is enabled wire flag24 = aprFLAGS[24]; // Flag 24 wire flagCSL = aprFLAGS[25]; // KS10 Interrupt to Console wire flagPWR = aprFLAGS[26]; // Power fail wire flagNXM = aprFLAGS[27]; // Non existent memory wire flagBADDATA = aprFLAGS[28]; // Bad memory data (not implemented) wire flagCORDATA = aprFLAGS[29]; // Corrected memory data (not implemented) wire flag30 = aprFLAGS[30]; // Flag 30 wire flag31 = aprFLAGS[31]; // Console Interrupt to KS10 wire flagINTREQ = aprFLAGS[32]; // Interrupt Request assign cslINTR = flagCSL; // KS10 Interrupt to Console // // A Registers // wire [14:35] vmaADDR; // VMA Address wire [ 0:13] vmaFLAGS; // VMA Flags wire vmaUSER = vmaFLAGS[ 0]; // 1 = User Mode wire vmaEXEC = vmaFLAGS[ 1]; // 1 = Exec Mode wire vmaFETCH = vmaFLAGS[ 2]; // 1 = Instruction fetch wire vmaREADCYCLE = vmaFLAGS[ 3]; // 1 = Read Cycle (IO or Memory) wire vmaWRTESTCYCLE = vmaFLAGS[ 4]; // 1 = Perform write test for page fail wire vmaWRITECYCLE = vmaFLAGS[ 5]; // 1 = Write Cycle (IO or Memory) wire vmaIORDWR = vmaFLAGS[ 6]; // wire vmaCACHEIHN = vmaFLAGS[ 7]; // 1 = Cache is inhibited wire vmaPHYSICAL = vmaFLAGS[ 8]; // 1 = Physical reference wire vmaPREVIOUS = vmaFLAGS[ 9]; // 1 = VMA Previous Context wire vmaIOCYCLE = vmaFLAGS[10]; // 1 = IO Cycle, 0 = Memory Cycle wire vmaWRUCYCLE = vmaFLAGS[11]; // 1 = Read interrupt controller number wire vmaVECTORCYCLE = vmaFLAGS[12]; // 1 = Read interrupt vector wire vmaIOBYTECYCLE = vmaFLAGS[13]; // 1 = Unibus Byte IO Operation wire vmaEXTENDED; // Extended VMA // // Paging // wire pageFAIL = 1'b0; // Page Fail FIXME wire [16:26] pageADDR; // Page Address wire [ 0: 4] pageFLAGS; // Page Flags wire pageVALID = pageFLAGS[0]; // Page is valid wire pageWRITEABLE = pageFLAGS[1]; // Page is writeable wire pageCACHEABLE = pageFLAGS[2]; // Page is cacheable wire pageUSER = pageFLAGS[3]; // Page is user mode wire pagePARITY = pageFLAGS[4]; // Not implemented // // Timer // wire timerINTR; // Timer Interrupt wire [18:35] timerCOUNT; // Millisecond timer // // Instruction Register IR // wire [ 0:17] regIR; // Instruction Register (IR) wire [ 0: 8] regIR_OPCODE = regIR[ 0: 8]; // IR opcode Field wire [ 9:12] regIR_AC = regIR[ 9:12]; // IR AC field wire regIR_I = regIR[13]; // IR I field wire [14:17] regIR_XR = regIR[14:17]; // IR XR field wire regACZERO = (regIR_AC == 4'b0000); // AC is zero wire regXRZERO = (regIR_XR == 4'b0000); // XR is zero wire xrPREV; // XR is previous // // PXCT // wire prevEN; // Conditionally use previous context // // Cache // wire cacheHIT = 1'b0; // FIXME: Cache not implemented. // // Busses // wire [ 0:35] dp; // ALU output bus wire [ 0:35] dbus; // DBUS Mux output wire [ 0:35] dbm; // DBM Mux output wire [ 0:35] ramfile; // RAMFILE output // // SCAD, SC, and FE // wire [ 0: 9] scad; wire scadSIGN = scad[0]; // SCAD Sign wire scSIGN; // Step Count Sign wire feSIGN; // Floating-point exponent Sign // // Dispatches // wire [ 8:11] dispNI; // Next Instruction dispatch wire [ 8:11] dispPF; // Page Fail dispatch wire [ 8:11] dispBYTE; // Byte dispatch wire [ 8:11] dispSCAD; // SCAD dispatch wire [ 8:11] dispMUL = {1'b0, aluQR37, 1'b0, 1'b0}; // Multiply dispatch wire [ 8:11] dispNORM = {aluZERO, dp[8:9], aluLSIGN};// Normalize dispatch wire [ 8:11] dispEA = {~opJRST0, regIR_I, regXRZERO, 1'b0}; // EA Dispatch wire [ 0:11] dispDIAG = 12'b0; // Diagnostic Dispatch // // DEBUG // wire [0: 3] debugADDR; // DEBUG Address wire [0:35] debugDATA; // DEBUG Data // // Skips // wire skipJFCL; wire [1:7] skip40 = {aluCRY0, aluLZERO, aluRZERO, ~flagUSER, flagFPD, regACZERO, cpuINTR }; wire [1:7] skip20 = {aluCRY2, aluLSIGN, aluRSIGN, flagUSERIO, skipJFCL, aluCRY1, txxx }; wire [1:7] skip10 = {trapCYCLE, aluZERO, scSIGN, cpuEXEC, iolatch, ~cpuCONT, ~timerINTR}; // // Timing // wire clkenDP; // Clock Enable for Datapaths wire clkenCR; // Clock Enable for Control ROM wire memWAIT; // Wait for memory // // Timing and Wait States // TIMING uTIMING (.clk (clk), .rst (rst), .crom (crom), .drom (drom), .dp (dp), .feSIGN (feSIGN), .busREQ (busREQ), .busACK (busACK), .clkenDP (clkenDP), .clkenCR (clkenCR), .memWAIT (memWAIT) ); // // AC Block // AC_BLOCK uAC_BLOCK (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .acBLOCK (acBLOCK) ); // // Arithmetic Logic Unit // ALU uALU (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .aluIN (dbus), .aluLZERO (aluLZERO), .aluRZERO (aluRZERO), .aluLSIGN (aluLSIGN), .aluRSIGN (aluRSIGN), .aluAOV (aluAOV), .aluCRY0 (aluCRY0), .aluCRY1 (aluCRY1), .aluCRY2 (aluCRY2), .aluQR37 (aluQR37), .aluOUT (dp), .debugADDR (debugADDR), .debugDATA (debugDATA) ); // // APR // APR uAPR (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .nxmINTR (nxmINTR), .ks10INTR (ks10INTR), .aprFLAGS (aprFLAGS), .aprINTR (aprINTR) ); // // Byte Dispatch // BYTE_DISP uBYTE_DISP (.dp (dp), .dispBYTE (dispBYTE) ); // // Memory/IO Bus // BUS uBUS (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .vmaEXTENDED (vmaEXTENDED), .vmaFLAGS (vmaFLAGS), .vmaADDR (vmaADDR), .pageADDR (pageADDR), .aprFLAGS (aprFLAGS), .busDATAO (busDATAO), .busADDRO (busADDRO), .busREQ (busREQ), .busACK (busACK), .memWAIT (memWAIT) ); // // Data Bus // DBM uDBM (.crom (crom), .dp (dp), .scad (scad), .dispPF (dispPF), .aprFLAGS (aprFLAGS), .timerCOUNT (timerCOUNT), .vmaFLAGS (vmaFLAGS), .vmaADDR (vmaADDR), .busDATAI (busDATAI), .dbm (dbm) ); // // DEBUG // DEBUG uDEBUG (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .debugDATA (debugDATA), .debugADDR (debugADDR) ); // // DBUS MUX // DBUS uDBUS (.crom (crom), .cacheHIT (cacheHIT), .vmaFLAGS (vmaFLAGS), .vmaADDR (vmaADDR), .pcFLAGS ({pcFLAGS, 1'b0, newINTR_NUM, 4'b1111, vmaADDR[26:35]}), .dp (dp), .ramfile (ramfile), .dbm (dbm), .dbus (dbus) ); // // Dispatch ROM // DROM uDROM (.clk (clk), .rst (rst), .clken (clkenDP), .dbus (dbus), .crom (crom), .drom (drom) ); // // Interrupt Controller // INTR uINTR (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .flagINTREQ (flagINTREQ), .aprINTR (aprINTR), .busINTR (busINTR), .newINTR_NUM (newINTR_NUM), .curINTR_NUM (curINTR_NUM), .cpuINTR (cpuINTR) ); // // INTF // Console Interface // INTF uINTF (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .cslRUN (cslRUN), .cslCONT (cslCONT), .cslEXEC (cslEXEC), .cslHALT (cslHALT), .cpuRUN (cpuRUN), .cpuCONT (cpuCONT), .cpuEXEC (cpuEXEC), .cpuHALT (cpuHALT) ); // // IO Latch // IOLATCH uIOLATCH (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .iolatch (iolatch) ); // // Instruction Register // regIR uIR (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dbus (dbus), .prevEN (prevEN), .regIR (regIR), .xrPREV (xrPREV), .opJRST0 (opJRST0) ); // // Microsequencer // USEQ uUSEQ (.clk (clk), .rst (rst), .clken (clkenCR), .pageFAIL (pageFAIL), .dp (dp), .dispDIAG (dispDIAG), .dispMUL (dispMUL), .dispPF (dispPF), .dispNI (dispNI), .dispBYTE (dispBYTE), .dispEA (dispEA), .dispSCAD (dispSCAD), .dispNORM (dispNORM), .skip40 (skip40), .skip20 (skip20), .skip10 (skip10), .regIR (regIR), .drom (drom), .crom (crom) ); // // Next Instruction Dispatch // NI_DISP uNI_DISP (.aprFLAGS (aprFLAGS), .pcFLAGS (pcFLAGS), .cslTRAPEN (cslTRAPEN), .cpuRUN (cpuRUN), .memory_cycle (memory_cycle), .dispNI (dispNI) ); // // Page Tables // PAGER uPAGER (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .drom (drom), .dp (dp), .vmaADDR (vmaADDR), .vmaFLAGS (vmaFLAGS), .pageFLAGS (pageFLAGS), .pageADDR (pageADDR) ); // // PC Flags // PCFLAGS uPCFLAGS (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .scad (scad), .regIR (regIR), .aluAOV (aluAOV), .aluCRY0 (aluCRY0), .aluCRY1 (aluCRY1), .pcFLAGS (pcFLAGS), .skipJFCL (skipJFCL) ); // // Page Fail Dispatch // PF_DISP uPF_DISP (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .drom (drom), .vmaFLAGS (vmaFLAGS), .vmaADDR (vmaADDR), .aprFLAGS (aprFLAGS), .pageFLAGS (pageFLAGS), .cpuINTR (cpuINTR), .nxmINTR (nxmINTR), .timerINTR (timerINTR), .dispPF (dispPF) ); // // PXCT // Previous context PXCT uPXCT (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .prevEN (prevEN) ); // // RAMFILE // RAMFILE uRAMFILE (.clk (clk), .rst (rst), .clken (1'b1), .crom (crom), .drom (drom), .dp (dp), .dbus (dbus), .regIR (regIR), .xrPREV (xrPREV), .vmaFLAGS (vmaFLAGS), .vmaADDR (vmaADDR), .acBLOCK (acBLOCK), .ramfile (ramfile) ); // // SCAD // SCAD uSCAD (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .dp (dp), .scSIGN (scSIGN), .feSIGN (feSIGN), .scad (scad), .dispSCAD (dispSCAD) ); // // One millisecond (more or less) interval timer. // TIMER uTIMER (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .timerEN (cslTIMEREN), .timerINTR (timerINTR), .timerCOUNT (timerCOUNT) ); // // Traps // TRAPS uTRAPS (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .pcFLAGS (pcFLAGS), .aprFLAGS (aprFLAGS), .cslTRAPEN (cslTRAPEN), .trapCYCLE (trapCYCLE) ); // // VMA // VMA uVMA (.clk (clk), .rst (rst), .clken (clkenDP), .crom (crom), .drom (drom), .dp (dp), .cpuEXEC (cpuEXEC), .prevEN (prevEN), .pcFLAGS (pcFLAGS), .vmaEXTENDED (vmaEXTENDED), .vmaFLAGS (vmaFLAGS), .vmaADDR (vmaADDR) ); endmodule rtl/cpu/dbm.v0000700000175100010010000001137112061517364 11571 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! DBM Multiplexor //! //! \details //! //! \todo //! //! \notes //! //! \file //! dbm.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module DBM(crom, dp, scad, dispPF, aprFLAGS, timerCOUNT, vmaFLAGS, vmaADDR, busDATAI, dbm); parameter cromWidth = `CROM_WIDTH; input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:35] dp; // Datapath input [ 0: 9] scad; // SCAD input [ 8:11] dispPF; // Page Fail Dispatch input [22:35] aprFLAGS; // APR Flags input [18:35] timerCOUNT; // Timer Count input [ 0:13] vmaFLAGS; // VMA Flags input [14:35] vmaADDR; // VMA Address input [ 0:35] busDATAI; // Memory Bus Data output [ 0:35] dbm; // DBM output // // DBM Bus Mux // // Details // Special logic is available for grabbing BYTES from the // dp bus. // // Trace // Select Logic // DPM1/E94 // DPM1/E72 // DPM1/E86 // DBM[0:6] MUX // DPM1/E58 // DPM1/E42 // DPM1/E34 // DPM1/E65 // DPM1/E50 // DPM1/E49 // DPM1/E57 // DBM[7:13] MUX // DPM1/E64 // DPM1/E59 // DPM1/E80 // DPM1/E73 // DPM1/E79 // DPM1/E81 // DPM1/E98 // DBM[14:20] MUX // DPM1/E88 // DPM1/E89 // DPM1/E95 // DPM1/E96 // DPM2/E104 // DPM2/E105 // DPM2/E106 // DBM[21:27] MUX // DPM2/E112 // DPM2/E113 // DPM2/E120 // DPM2/E128 // DPM2/E143 // DPM2/E129 // DPM2/E121 // DBM[28:35] MUX // DPM2/E173 // DPM2/E151 // DPM2/E166 // DPM2/E167 // DPM2/E172 // DPM2/E187 // DPM2/E165 // DPM2/E188 // reg [0:35] dbm; always @(crom or scad or dispPF or aprFLAGS or dp or timerCOUNT or vmaFLAGS or vmaADDR or busDATAI) begin case (`cromDBM_SEL) `cromDBM_SEL_SCADPFAPR: dbm = {scad[1:9], 8'b11111111, scad[0], dispPF, aprFLAGS}; `cromDBM_SEL_BYTES : dbm = {scad[1:7], scad[1:7], scad[1:7], scad[1:7], scad[1:7], dp[35]}; `cromDBM_SEL_EXPTIME : dbm = {1'b0, scad[2:9], dp[9:17], timerCOUNT[18:35]}; `cromDBM_SEL_DP : case (`cromSPEC_SELBYTE) `cromSPEC_SELBYTE_1 : dbm = {scad[1:7], dp[ 7:13], dp[14:20], dp[21:27], dp[28:34], dp[35]}; `cromSPEC_SELBYTE_2 : dbm = {dp[ 0: 6], scad[1:7], dp[14:20], dp[21:27], dp[28:34], dp[35]}; `cromSPEC_SELBYTE_3 : dbm = {dp[ 0: 6], dp[ 7:13], scad[1:7], dp[21:27], dp[28:34], dp[35]}; `cromSPEC_SELBYTE_4 : dbm = {dp[ 0: 6], dp[ 7:13], dp[14:20], scad[1:7], dp[28:34], dp[35]}; `cromSPEC_SELBYTE_5 : // dbm = {dp[ 0: 6], dp[ 7:13], dp[14:20], dp[21:27], scad[1:7], dp[35]}; dbm = {28'b0, scad[1:7], 1'b0}; default: dbm = dp[0:35]; endcase `cromDBM_SEL_DPSWAP : dbm = {dp[18:35], dp[0:17]}; `cromDBM_SEL_VMA : dbm = {vmaFLAGS[0:13], vmaADDR[14:35]}; `cromDBM_SEL_MEM : dbm = busDATAI[0:35]; `cromDBM_SEL_NUM : dbm = {`cromNUM, `cromNUM}; endcase end endmodule rtl/cpu/dbus.v0000700000175100010010000000756412061517364 11775 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! DBUS Multiplexer //! //! \details //! //! \todo //! //! \file //! dbus.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module DBUS(crom, cacheHIT, vmaADDR, vmaFLAGS, pcFLAGS, dp, ramfile, dbm, dbus); parameter cromWidth = `CROM_WIDTH; input [0:cromWidth-1] crom; // Control ROM Data input cacheHIT; // Cache Hit input [ 0:13] vmaFLAGS; // Virtual Memory Flags input [14:35] vmaADDR; // Virtual Memory Address input [ 0:35] pcFLAGS; // PC Flags in Left Half input [ 0:35] dp; // Datapath input [ 0:35] ramfile; // Ramfile input [ 0:35] dbm; // Databus Mux output reg [ 0:35] dbus; // DBus // // VMA Flags // wire vmaREADCYCLE = vmaFLAGS[3]; wire vmaPHYSICAL = vmaFLAGS[8]; // // AC Reference // // Details: // True when addressing lowest 16 addresses using and not // physical addressing. References to the ACs are never // physical. // // Trace // DPM4/E160 // DPM4/E168 // DPM4/E191 // wire vmaACREF = ~vmaPHYSICAL & (vmaADDR[18:31] == 14'b0); // // Force RAMFILE // // Details // This signal is asserted on an AC reference or a cache hit. // When asserted during a read cycle, the DBM mux causes the // RAMFILE to be read instead of main memory. // // Fixme // I'm not sure why I had to hack this to exclude address // 1146. // // Trace // DPM5/E14 // DPM5/E38 // wire forceRAMFILE = ((vmaACREF & vmaREADCYCLE & (crom[0:11] != 12'o1146)) | (cacheHIT & vmaREADCYCLE)); // // DBM // // Details // This is a simple 4-way 36-bit multiplexer. // // Trace // DPE3/E34 // DPE3/E35 // DPE3/E40 // DPE3/E56 // DPE3/E63 // DPE3/E70 // DPE3/E72 // DPE3/E73 // DPE3/E87 // DPE3/E100 // always @(`cromDBUS_SEL or pcFLAGS or dp or ramfile or dbm or forceRAMFILE) begin case (`cromDBUS_SEL) `cromDBUS_SEL_FLAGS: dbus = pcFLAGS; `cromDBUS_SEL_DP: dbus = dp; `cromDBUS_SEL_RAMFILE: dbus = ramfile; `cromDBUS_SEL_DBM: if (forceRAMFILE) dbus = ramfile; else dbus = dbm; endcase end endmodule rtl/cpu/debug.v0000700000175100010010000000573412061517364 12123 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Debug Hack //! //! \details //! //! \todo //! //! \file //! debug.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module DEBUG(clk, rst, clken, crom, debugDATA, debugADDR); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] debugDATA; // DEBUG Data output [0: 3] debugADDR; // DEBUG Address // // Print the Program Counter // // Details: // The program counter is modified by instructions in various // stages of the microcode. A modified PC does not mean that // the instruction was actually executed. For example, the // PC is always incremented after the instruction is fetched // but the PC may be modified (again) later by a branch // instruction. // // This code prints the program counter when the instruction // register is loaded. This occurs once during the instruction // execution. // // synthesis translate_off // wire loadIR = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADIR); reg [18:35] PC; always @(posedge clk or posedge rst) begin if (rst) PC <= 18'b0; else if (loadIR) begin PC <= debugDATA; $display("debug: PC is %06o", debugDATA[18:35]); end end // // PC is Register #1 in the ALU // assign debugADDR = 4'b0001; // synthesis translate_on endmodule rtl/cpu/intf.v0000700000175100010010000001031412061517364 11763 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Console Interface //! //! \details //! //! \note //! //! \todo //! //! \file //! intf.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module INTF(clk, rst, clken, crom, cslRUN, cslCONT, cslEXEC, cslHALT, cpuRUN, cpuCONT, cpuEXEC, cpuHALT); parameter cromWidth = `CROM_WIDTH; input clk; // clock input rst; // reset input clken; // clock enable input [0:cromWidth-1] crom; // Control ROM Data input cslRUN; // Console Run Switch input cslCONT; // Console Continue Switch input cslEXEC; // Console Execute Switch input cslHALT; // Console Halt Switch output reg cpuRUN; // CPU Run Status output reg cpuCONT; // CPU Continue Status output reg cpuEXEC; // CPU Execute Status output reg cpuHALT; // CPU Halt Status // // Spec Decoder // CRA2/E97 // wire specCONS = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_CONS); // // HALT Status // // Trace // CSL4/E161 // CSL4/E162 // CSL4/E168 // always @(posedge clk or posedge rst) begin if (rst) cpuHALT <= 1'b0; else if (clken) begin if (specCONS & `cromCONS_SET_HALT) cpuHALT <= 1'b1; else if (specCONS & `cromCONS_CLR_HALT) cpuHALT <= 1'b0; end end // // RUN Status // // Trace // CSL4/E98 // CSL4/E135 // always @(posedge clk or posedge rst) begin if (rst) cpuRUN <= 1'b0; else if (clken) begin if (cslRUN) cpuRUN <= 1'b1; else if (specCONS & `cromCONS_CLR_RUN) cpuRUN <= 1'b0; end end // // EXECUTE Status // // Trace // CSL4/E149 // CSL4/E168 // always @(posedge clk or posedge rst) begin if (rst) cpuEXEC <= 1'b0; else if (clken) begin if (cslEXEC) cpuEXEC <= 1'b1; else if (specCONS & `cromCONS_CLR_EXEC) cpuEXEC <= 1'b0; end end // // CONTINUE Status // // Trace // CSL4/E168 // CSL4/E171 // always @(posedge clk or posedge rst) begin if (rst) cpuCONT <= 1'b0; else if (clken) begin if (cslCONT) cpuCONT <= 1'b1; else if (specCONS & `cromCONS_CLR_CONT) cpuCONT <= 1'b0; end end endmodule rtl/cpu/intr.v0000700000175100010010000001355412061517364 12010 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Priority Interrupt //! //! \details //! //! \note //! The highest priority is interrupt 1, the lower priority is //! interrupt 7. //! //! \todo //! //! \file //! intr.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module INTR(clk, rst, clken, crom, dp, flagINTREQ, busINTR, aprINTR, newINTR_NUM, curINTR_NUM, cpuINTR); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Data path input flagINTREQ; // Interrupt Request input [1: 7] aprINTR; // Arithmetic Processor request input [1: 7] busINTR; // Unibus request output [0: 2] newINTR_NUM; // New Prioity Interrupt number output [0: 2] curINTR_NUM; // Current Prioity Interrupt number output cpuINTR; // Interrupt Request // // Microcode Decode // wire specLOADPI = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADPI); wire specLOADAPR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADAPR); // // Datapath Interface // // Details // The microcode keeps track of the current interrupt priority // and the interrupt mask. // // Trace // DPEB/E175 // DPEB/E126 // DPEB/E140 // reg intrEN; // Interrupts are enabled reg [1:7] actINTR; // Interrupt mask reg [1:7] curINTR; // Current interrupt level reg [1:7] swINTR; // Software interrupt always @(posedge clk or posedge rst) begin if (rst) begin actINTR <= 7'b0; intrEN <= 1'b0; curINTR <= 7'b0; swINTR <= 7'b0; end else if (clken & specLOADPI) begin actINTR <= ~dp[29:35]; intrEN <= ~dp[28]; curINTR <= ~dp[21:27]; swINTR <= ~dp[11:17]; end end // // Interrupt Enable / Masking // // Details // Interrupts come from Unibus (UBA) or the Arithmetic // Processor (APR), or the microcode software (SW). // // The software interrupts are not masked. // // Trace // DPEB/E174 // DPEB/E168 // DPEB/E154 // DPEB/E161 // wire [1:7] newINTR = ((busINTR[1:7] | aprINTR[1:7]) & actINTR[1:7]) | swINTR[1:7]; // // New Interrupt Priority // // Details // The MSB is present to represent that no interrupt is active. // // Trace // DPEB/E147 // wire [0:3] newINTRNUM = (~intrEN ? 4'b1000 : // Disabled newINTR[1] ? 4'b0001 : // Highest priority newINTR[2] ? 4'b0010 : newINTR[3] ? 4'b0011 : newINTR[4] ? 4'b0100 : newINTR[5] ? 4'b0101 : newINTR[6] ? 4'b0110 : newINTR[7] ? 4'b0111 : 4'b1000); // Lowest priority assign newINTR_NUM = newINTRNUM[1:3]; // // Current Interrupt Priority // // Details // The MSB is present to represent that no interrupt is active. // // Trace // DPEB/E134 // wire [0:3] curINTRNUM = (curINTR[1] ? 4'b0001 : // Highest priority curINTR[2] ? 4'b0010 : curINTR[3] ? 4'b0011 : curINTR[4] ? 4'b0100 : curINTR[5] ? 4'b0101 : curINTR[6] ? 4'b0110 : curINTR[7] ? 4'b0111 : 4'b1000); // Lowest priority assign curINTR_NUM = curINTRNUM[1:3]; // // Interrupt Request // // Details // The priority of the new interrupt level is compared to the // priority of the current interrupt level. If the current input // is a higher priority, an interrupt to the CPU is generated. // // Trace // DPEB/E148 // DPEB/E167 // reg cpuINTR; always @(posedge clk or posedge rst) begin if (rst) cpuINTR <= 1'b0; else if (clken) cpuINTR <= (newINTR_NUM < curINTR_NUM); end endmodule rtl/cpu/iolatch.v0000700000175100010010000000411212061517364 12445 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! IO Latch //! //! \details //! //! \todo //! //! \file //! iolatch.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module IOLATCH(clk, rst, clken, crom, iolatch); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data output reg iolatch; // // IO Latch // // Trace // DPEA/E99 // DPEA/E93 // wire latch = 1'b0; // FIXME always @(posedge clk or posedge rst) begin if (rst) iolatch <= 1'b0; else if (clken) iolatch <= latch; end endmodule rtl/cpu/ni_disp.v0000700000175100010010000000553712061517364 12463 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Next Instruction Dispatch //! //! \details //! This is a 16-way dispatch base on the next instruction. //! //! \todo //! //! \file //! ni_disp.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none module NI_DISP (aprFLAGS, pcFLAGS, cslTRAPEN, cpuRUN, memory_cycle, dispNI); input [ 0:17] pcFLAGS; // PC Flags input [22:35] aprFLAGS; // APR Flags input cslTRAPEN; // Console Trap Enable input cpuRUN; // Run input memory_cycle; // Memory Cycle output [ 8:11] dispNI; // Next Instruction dispatch // // APR Flag // wire flagTRAPEN = aprFLAGS[22]; // // PC Flags // wire flagTRAP2 = pcFLAGS[ 9]; wire flagTRAP1 = pcFLAGS[10]; // // Trap Selection // reg [1:3] traps; wire [0:1] trapSEL = {flagTRAP2, flagTRAP1}; always @(cslTRAPEN or flagTRAPEN or trapSEL) begin if (cslTRAPEN & flagTRAPEN) case (trapSEL) 0: traps = 3'b000; 1: traps = 3'b001; 2: traps = 3'b010; 3: traps = 3'b100; endcase else traps = 3'b000; end // // NICOND Dispatch // // Trace // CRA2/E147 // assign dispNI[8] = memory_cycle; // Fetch in progress assign dispNI[9:11] = ((traps[3]) ? 3'o1 : (traps[2]) ? 3'o2 : (traps[1]) ? 3'o3 : (~cpuRUN ) ? 3'o5 : 3'o7); endmodule rtl/cpu/pager.v0000700000175100010010000001474612061517364 12136 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Pager //! //! \details //! The page table translates virtual addresses/page numbers to //! phyical addresses/page numbers. There are 512 virtual pages //! which map to 2048 pages. //! //! 18 26 27 35 //! +--------------------+------------------------+ //! |Virtual Page Number | Word Number | //! +--------------------+------------------------+ //! | | //! | | //! \ / | //! +-------+-------+ | //! | Page | | //! | Translation | | //! +-------+-------+ | //! | | //! | | //! \ / \ / //! +------------------------+------------------------+ //! | Physical Page Number | Word Number | //! +------------------------+------------------------+ //! 16 26 27 35 //! //! //! \note //! The Page Tables use asynchronous memory which won't work //! in an FPGA. Since the Page Table is addressed by the VMA //! register and the VMA register is loaded synchronously, we //! can absorb the VMA register into the Page Table Memory //! addressing. //! //! \file //! pager.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details.S // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module PAGER(clk, rst, clken, crom, drom, dp, vmaFLAGS, vmaADDR, pageFLAGS, pageADDR); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:dromWidth-1] drom; // Dispatch ROM Data input [ 0:35] dp; // Data path input [0 :13] vmaFLAGS; // input [14:35] vmaADDR; // Virtural address output [ 0: 4] pageFLAGS; // Page Flags output [16:26] pageADDR; // Page Address // // vmaFLAGS // wire pageUSER = vmaFLAGS[0]; // // VMA Logic // // Details // During a page table sweep, both specPAGESWEEP and specPAGEWRITE are asserted // simultaneously. // // Trace // DPE5/E76 // DPE6/E53 // wire specPAGESWEEP = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE ); wire specPAGEWRITE = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PAGEWRITE); // // Sweep and Page Write // // Details: // These signals occur on the cycle before they are required. // // Trace: // DPM4/E184 // DPMC/E3 // reg pageSWEEP; reg pageWRITE; always @(posedge clk or posedge rst) begin if (rst) begin pageSWEEP <= 0; pageWRITE <= 0; end else if (clken) begin pageSWEEP <= specPAGESWEEP; pageWRITE <= specPAGEWRITE; end end // // Page Table Contents // wire [18:26] pageVIRTADDR = vmaADDR[18:26]; wire pageVALID = dp[18]; wire pageWRITEABLE = dp[21]; wire pageCACHEABLE = dp[22]; wire [16:26] pagePHYSADDR = dp[25:35]; wire [ 0:14] pageDATAIN = {pageVALID, pageWRITEABLE, pageCACHEABLE, pageUSER, pagePHYSADDR}; // // Page memory // // Details // The page tables perform the virtual address to physical // address translation using a lookup table that is addressed // by the virtual address. // // Notes // This has been converted to synchronous memory. // The page table address is set when the vma address is set // // The page table is interleaved with odd and even memories // so that the memory can be swept two entries at a time. // // Page parity is not implemented. // // Trace // Even Memory // DPM6/E130 // DPM6/E154 // DPM6/E162 // DPM6/E184 // Odd Memory // DPM6/E138 // DPM6/E146 // DPM6/E176 // DPM6/E192 // reg [0:14] pageTABLE1[0:255]; reg [0:14] pageTABLE2[0:255]; always @(pageVIRTADDR or pageSWEEP or pageDATAIN) begin if (pageWRITE) begin if (~pageVIRTADDR[18] | pageSWEEP) pageTABLE1[pageVIRTADDR[19:26]] <= pageDATAIN; if ( pageVIRTADDR[18] | pageSWEEP) pageTABLE2[pageVIRTADDR[19:26]] <= pageDATAIN; end end // // Page Table Read // wire [18:26] readADDR = pageVIRTADDR; wire [ 0:14] pageDATAOUT = (readADDR[18]) ? pageTABLE2[readADDR[19:26]] : pageTABLE1[readADDR[19:26]]; // // Fixup Page RAM data // assign pageFLAGS = pageDATAOUT[0: 3]; assign pageADDR = pageDATAOUT[4:14]; endmodule rtl/cpu/pcflags.v0000700000175100010010000003556212061517364 12456 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! PC Flags //! //! \details //! The KS10 flags are defined as: //! //! 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 //! +----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ //! USER |AOV |CRY0|CRY1| FOV| FPD|USER|USER| PUB| |TRAP|TRAP| FXU| NO | | | | | | //! | | | | | | | IO | | | 2 | 1 | | DIV| | | | | | //! +----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ //! EXEC | PCP|CRY0|CRY1| FOV| FPD|USER| PCU| PUB| |TRAP|TRAP| FXU| NO | | | | | | //! | * | | | | | | | | | 2 | 1 | | DIV| | | | | | //! +----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+ //! //! AOV - Overflow //! CRY0 - Carry out of bit 0. //! CRY1 - Carry out of bit 1. //! FOV - Floating-point overflow. //! FPD - First part done. //! USER - //! USERIO - //! PUB - Public. //! Not implemented on the KS10. Bit seven always //! indicates 0. //! TRAP2 - Trap 2. //! TRAP1 - Trap 1. //! FXU - Floating-point underflow. //! NODIV - No Divide. //! *PCP - Previous Context Public //! Not implemented on the KS10. Bit zero always //! indicates AOV. //! PCU - Previous Context User //! //! Overflow occurs if CRY0 and CRY1 differ. //! //! \note //! The logic has been simplified by recognizing that //! selPCFLAGS, selEXPTEST, and selASHTEST are mutually //! exclusive. //! //! \note //! In the original circuitry the Control ROM (microcode) //! was supplied to this module via the dbm input. This //! has been replaced by a direct connection to the Control //! ROM. Presumably this was done because of circuit board //! interconnection limitations. //! //! \file //! flags.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source fiit under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module PCFLAGS(clk, rst, clken, crom, dp, scad, regIR, aluAOV, aluCRY0, aluCRY1, pcFLAGS, skipJFCL); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Data path input [0: 9] scad; // SCAD input [0:17] regIR; // Instruction Register input aluAOV; // ALU Arithmetic Overflow input aluCRY0; // ALU Carry 0 input aluCRY1; // ALU Carry 1 output [0:17] pcFLAGS; // Flags output skipJFCL; // JFCL Skip // // Flags Registers // reg flagAOV; // Overflow reg flagCRY0; // Carry 0 reg flagCRY1; // Carry 1 reg flagFOV; // Floating-point overflow reg flagFPD; // First part done reg flagUSER; // User mode reg flagUSERIO; // User IO or User IOT reg flagTRAP2; // Trap 2 reg flagTRAP1; // Trap 1 reg flagFXU; // Floating-point underflow reg flagNODIV; // Divide failure // // DP Inputs // // Details // When `cromADFLAGS is asserted, the dp bus has the contents of // the last ALU operation. In this mode dpOV, dpCRY0, dpCRY1, // are use to update the flags. // // When `cromLDFLAGS is asserted, the dp bus is used by the // microcode to directly modify the flags. // wire dpOV = dp[ 0]; // Overflow flag wire dpCRY0 = dp[ 1]; // Carry 0 wire dpCRY1 = dp[ 2]; // Carry 1 wire dpFOV = dp[ 3]; // Floating-point overflow wire dpFPD = dp[ 4]; // First Part Done wire dpUSER = dp[ 5]; // USER wire dpUSERIO = dp[ 6]; // USER IO wire dpTRAP2 = dp[ 9]; // Trap 2 wire dpTRAP1 = dp[10]; // Trap 1 wire dpFXU = dp[11]; // Floating-point underflow wire dpNODIV = dp[12]; // No divide // // DPE9/E27 // DPE9/E83 // wire selPCFLAGS = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_PCFLAGS); wire selEXPTEST = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_EXPTEST); wire selASHTEST = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_ASHTEST); // // JFCL // See JFCL Instruction Format. // DPE9/E85 // DPE9/E92 // wire [9:12] JFCL; wire [9:12] regIR_AC = regIR[9:12]; assign JFCL[ 9] = selPCFLAGS & `cromJFCLFLAGS & flagAOV & regIR_AC[ 9]; assign JFCL[10] = selPCFLAGS & `cromJFCLFLAGS & flagCRY0 & regIR_AC[10]; assign JFCL[11] = selPCFLAGS & `cromJFCLFLAGS & flagCRY1 & regIR_AC[11]; assign JFCL[12] = selPCFLAGS & `cromJFCLFLAGS & flagFOV & regIR_AC[12]; // // JFCL Skip // // Trace // DPE9/E77 // assign skipJFCL = JFCL[9] | JFCL[10] | JFCL[11] | JFCL[12]; // // Arithmetic Overflow Flag (AOV) // // Details: // AOV is set on an ALU overflow. Arithmetic Overflow occurs if // CRY0 and CRY1 differ. A subsequent operation that does not // generate an ALU Overflow will not clear the AOV flag. // AOV is set by SETAOV in microcode. // AOV is cleared by JFCL 9. // AOV is modified by dp. // // Trace // DPE9/E17 // DPE9/E26 // DPE9/E33 // DPE9/E78 // DPE9/E92 // DPE8/E98 // always @(posedge clk or posedge rst) begin if (rst) flagAOV <= 1'b0; else if (clken) begin if (selASHTEST) flagAOV <= (dpCRY0 != dpCRY1); else if (selEXPTEST) flagAOV <= scad[1]; else if (selPCFLAGS) begin if (`cromSETOV) flagAOV <= 1'b1; else if (`cromADFLAGS & aluAOV) flagAOV <= 1'b1; else if (JFCL[9]) flagAOV <= 1'b0; else if (`cromLDFLAGS) flagAOV <= dpOV; end end end // // Carry 0 Flag (CRY0) // // Details: // CRY 0 is set on an ALU Carry 0. A subsequent operation that // does not generate an ALU Carry 0 will not clear the CRY0 // flag. // CRY 0 is cleared by JFCL 10 // CRY 0 is modified by dp. // // Trace // DPE9/E17 // DPE9/E25 // DPE9/E32 // always @(posedge clk or posedge rst) begin if (rst) flagCRY0 <= 1'b0; else if (clken & selPCFLAGS) begin if (`cromADFLAGS & aluCRY0) flagCRY0 <= 1'b1; else if (JFCL[10]) flagCRY0 <= 1'b0; else if (`cromLDFLAGS) flagCRY0 <= dpCRY0; end end // // Carry 1 Flag (CRY1) // // Details: // CRY 1 is set on an ALU Carry 1. A subsequent operation that // does not generate an ALU Carry 1 will not clear the CRY1 // flag. // CRY 1 is cleared by JFCL 11 // CRY 1 is modified by dp. // // Trace // DPE9/E17 // DPE9/E25 // DPE9/E32 // always @(posedge clk or posedge rst) begin if (rst) flagCRY1 <= 1'b0; else if (clken & selPCFLAGS) begin if (`cromADFLAGS & aluCRY1) flagCRY1 <= 1'b1; else if (JFCL[11]) flagCRY1 <= 1'b0; else if (`cromLDFLAGS) flagCRY1 <= dpCRY1; end end // // Floating-point Overflow Flag (FOV) // // Details: // FOV is set on an Floating-point overflow. A floatint-point // oerration that does not overflow will not clear the FOV flag. // FOV is cleared by JFCL 12 // FOV is modified by dp. // // Trace // DPE9/E26 // DPE9/E33 // DPE9/E32 // DPE9/E78 // always @(posedge clk or posedge rst) begin if (rst) flagFOV <= 1'b0; else if (clken) begin if (selEXPTEST) flagFOV <= scad[1]; else if (selPCFLAGS) begin if (JFCL[12]) flagFOV <= 1'b0; else if (`cromSETFOV) flagFOV <= 1'b1; else if (`cromLDFLAGS) flagFOV <= dpFOV; end end end // // First Part Done Flag (FPD) // // Note // The Clear operation has priority over the Set operation. // The Set operation has priority over the Load operation. // always @(posedge clk or posedge rst) begin if (rst) flagFPD <= 1'b0; else if (clken & selPCFLAGS) begin if (`cromCLRFPD) flagFPD <= 1'b0; else if (`cromSETFPD) flagFPD <= 1'b1; else if (`cromLDFLAGS) flagFPD <= dpFPD; else flagFPD <= flagFPD; end end // // USER Flag // always @(posedge clk or posedge rst) begin if (rst) flagUSER <= 1'b0; else if (clken & selPCFLAGS) begin if (`cromLDFLAGS) flagUSER <= dpUSER; else if (`cromHOLDUSER) flagUSER <= flagUSER; else flagUSER <= 1'b0; end end // // USERIO Flag // always @(posedge clk or posedge rst) begin if (rst) flagUSERIO <= 1'b0; else if (clken & selPCFLAGS) flagUSERIO <= ((flagUSER & dpUSERIO & `cromLDFLAGS ) | (flagUSERIO & `cromLDFLAGS ) | (flagUSER & `cromSETPCU ) | (flagUSERIO & dpUSERIO & `cromHOLDUSER & `cromLDFLAGS )); end // // TRAP2 Flag // always @(posedge clk or posedge rst) begin if (rst) flagTRAP2 <= 1'b0; else if (clken & selPCFLAGS) begin if (`cromSETTRAP2) flagTRAP2 <= 1'b1; else if (`cromLDFLAGS) flagTRAP2 <= dpTRAP2; else flagTRAP2 <= 1'b0; end end // // TRAP1 Flag // // Notes // An arithmetic overflow occurs if CRY0 and CRY1 differ which // also sets the TRAP1 flag. // always @(posedge clk or posedge rst) begin if (rst) flagTRAP1 <= 1'b0; else if (clken) begin if (selASHTEST) flagTRAP1 <= (dpCRY0 != dpCRY1); else if (selEXPTEST) flagTRAP1 <= scad[1]; else if (selPCFLAGS) begin if (`cromSETTRAP1) flagTRAP1 <= 1'b1; else if (`cromADFLAGS) flagTRAP1 <= aluAOV; else if (`cromLDFLAGS) flagTRAP1 <= dpTRAP1; else flagTRAP1 <= 1'b0; end end end // // Floating-point Underflow Flag (FXU) // always @(posedge clk or posedge rst) begin if (rst) flagFXU <= 1'b0; else if (clken) begin if (selEXPTEST) flagFXU <= scad[0]; else if (selPCFLAGS) begin if (`cromLDFLAGS) flagFXU <= dpFXU; else flagFXU <= flagFXU; end end end // // NODIV Flag // always @(posedge clk or posedge rst) begin if (rst) flagNODIV <= 1'b0; else if (clken & selPCFLAGS) begin if (`cromSETNODIV) flagNODIV <= 1'b1; else if (`cromLDFLAGS) flagNODIV <= dpNODIV; else flagNODIV <= flagNODIV; end end // // Output fixups // assign pcFLAGS[ 0] = flagAOV; assign pcFLAGS[ 1] = flagCRY0; assign pcFLAGS[ 2] = flagCRY1; assign pcFLAGS[ 3] = flagFOV; assign pcFLAGS[ 4] = flagFPD; assign pcFLAGS[ 5] = flagUSER; assign pcFLAGS[ 6] = flagUSERIO; assign pcFLAGS[ 7] = 1'b0; assign pcFLAGS[ 8] = 1'b0; assign pcFLAGS[ 9] = flagTRAP2; assign pcFLAGS[10] = flagTRAP1; assign pcFLAGS[11] = flagFXU; assign pcFLAGS[12] = flagNODIV; assign pcFLAGS[13] = 1'b0; assign pcFLAGS[14] = 1'b0; assign pcFLAGS[15] = 1'b0; assign pcFLAGS[16] = 1'b0; assign pcFLAGS[17] = 1'b0; endmodule rtl/cpu/pf_disp.v0000700000175100010010000001675612061517364 12467 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Page Fail Dispatch //! //! \details //! See comments in microcode at PAGE-FAIL entry point. //! //! The dispatch is via "DP LEFT". The dispatch into the CROM //! Address (see DISP/PAGE FAIL=63) is never used. It looks //! like the traces are delete from the board. //! //! The microcode has the following dispatches defined: //! //! 0001: Interrupt //! 0011: Bad Data (Not implemented) //! 0101: NXM (Non-existant Memory) //! 0111: NXM and Bad Data (Not implemented) //! 1000: Write Violation //! 1010: Page not valid //! 1011: Exec/User Mismatch //! //! The description in the Technical Manual is incorrect wrt //! the LSB. //! //! \note //! //! \file //! pf_disp.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details.S // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module PF_DISP(clk, rst, clken, crom, drom, vmaFLAGS, vmaADDR, aprFLAGS, pageFLAGS, cpuINTR, nxmINTR, timerINTR, dispPF); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:dromWidth-1] drom; // Dispatch ROM Data input [ 0:13] vmaFLAGS; // Virtual Memory Flags input [14:35] vmaADDR; // Virtual Memory Address input [22:35] aprFLAGS; // APR Flags input [ 0: 4] pageFLAGS; // Page Flags input timerINTR; // Timer Interrupt input cpuINTR; // CPU Interrupt input nxmINTR; // NXM Interrupt output [ 0: 3] dispPF; // Page Fail Dispatch // // Microcode decode // // Note // specMEMCLR and specMEMWAIT can be asserted simultaneously. // // Trace // DPMA/E2 // DPMA/E8 // wire specMEMCLR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMCLR ); wire specMEMWAIT = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_MEMWAIT); // // aprFLAGS // wire flagPAGEEN = aprFLAGS[23]; // Paging is enabled // // vmaFLAGS // wire vmaUSER = vmaFLAGS[0]; // VMA User wire vmaWRTESTCYCLE = vmaFLAGS[4]; // Write Test Cycle wire vmaWRITECYCLE = vmaFLAGS[5]; // Write Cycle wire vmaPHYSICAL = vmaFLAGS[8]; // VMA Physical // // Page Flags // wire pageVALID = pageFLAGS[0]; // Page is valid wire pageWRITEABLE = pageFLAGS[1]; // Page is writeable wire pageCACHEABLE = pageFLAGS[2]; // Page is cacheable wire pageUSER = pageFLAGS[3]; // Page is user mode // // AC Reference // // Details // True when addressing lowest 16 addresses using and not // physical addressing. References to the ACs are never // physical. // // Trace // DPM4/E160 // DPM4/E168 // DPM4/E191 // wire vmaACREF = ~vmaPHYSICAL & (vmaADDR[18:31] == 14'b0); // // Memory Cycles // // Trace // DPM5/E110 // wire memEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA ) | (`cromMEM_CYCLE & `cromMEM_AREAD & `dromVMA)); wire memWAIT = specMEMCLR | specMEMWAIT | memEN; // // Latch Interrupt Sources during memory cycle // // Details: // // Trace: // DPM6/E16 // reg intTIM; reg intCPU; always @(posedge clk or posedge rst) begin if (rst) begin `ifdef INITREGS intCPU <= 1'b0; intTIM <= 1'b0; `else intCPU <= 1'bx; intTIM <= 1'bx; `endif end else if (clken & memWAIT) begin intCPU <= cpuINTR; intTIM <= timerINTR; end end // // FIXME wire startCYCLE = 1'b0; // // Memory Cycle // reg memCYCLE; always @(posedge clk or posedge rst) begin if (rst) memCYCLE <= 1'b0; else if (clken & memWAIT) memCYCLE <= startCYCLE; end // // Page Logic // // Trace: // DPM6/E9 // DPM6/E15 // DPM6/E17 // wire INT_OR_ERR = ((intCPU & memCYCLE & ~(vmaPHYSICAL | vmaWRITECYCLE)) | (intTIM & memCYCLE & ~(vmaPHYSICAL | vmaWRITECYCLE))); // // pagingOK // // Details: // This logic enables Page Fail dispatch. Paging is enabled when: // 1. Paging is enabled // 2. The reference is not to an AC. ACs are always physical. // 3. The reference it not a physical address. // 4. An interrupt or error is not being handled. // // Trace: // DPM6/E47 // wire pagingOK = flagPAGEEN & ~vmaACREF & ~vmaPHYSICAL & ~INT_OR_ERR; // // Page Fail Dispatch // // Details: // This logic generates // // Note: // The two msbs of the priority encoder are inverted. // The lsb is not. The output of the priority encoder is "111" // when not enabled. This translates to "001" when the inverters // are added. // // Notice also the nxmINTR generates a dispatch but disables the // priority encoder - so the two kinds of dispatches (interrupts // and paging errors) are independant. // // Trace: // DPM6/E41 // DPM6/E47 // DPM6/E115 // DPM6/E124 // reg [ 0: 3] dispPF; always @(nxmINTR or pagingOK or pageVALID or pageUSER or vmaWRTESTCYCLE or vmaUSER or pageWRITEABLE) begin if (nxmINTR) dispPF = 4'b0101; else if (pagingOK) begin if (~pageVALID) dispPF = 4'b1010; else if (pageUSER != vmaUSER) dispPF = 4'b1011; else if (vmaWRTESTCYCLE & ~pageWRITEABLE) dispPF = 4'b1000; else dispPF = 4'b0001; end else dispPF = 3'b0001; end endmodule rtl/cpu/pxct.v0000700000175100010010000001406012061517364 12003 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! PXCT //! //! \details //! //! \note //! For a really good explanation of these bits see Mike Eulers //! Interoffice Memorandum on Extended Addressing. //! //! It is available from: //! //! //! The following information is extracted from that document //! verbatim. //! //! Bit References made in previous context if bit is 1 //! //! 9 (E1) Effective address calculation of instruction //! (index registers, indirect words). //! //! 10 (D1) Memory operands specified by EA, whether fetch //! or store (e.g, PUSH source, POP or BLT //! destination); byte pointer. //! //! 11 (E2) Effective address calculation of byte pointer; //! source in EXTEND (e.g., XBLT or MOVSLJ source); //! effective address calculation of source byte //! pointer in EXTEND (MOVSLJ). //! //! 12 (D2) Byte data; source in BLT; destination in EXTEND //! (e.g., XBLT or MOVSLJ destination); effective //! address calculation of destination byte pointer //! in EXTEND (MOVSLJ). //! //! \file //! pxct.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module PXCT(clk, rst, clken, crom, dp, prevEN); parameter cromWidth = `CROM_WIDTH; input clk; // clock input rst; // reset input clken; // clock enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Data Path output reg prevEN; // Previous Enable // // Microcode fields // wire specPXCTEN = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_PXCTEN ); wire specPXCTOFF = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_PXCTOFF); wire [0:2] memPXCTSEL = `cromMEM_PXCTSEL; // // PCXT Register // // Details: // The microcode saves the AC field of the XCT instruction into // this register. The PXCT state is used in the operation // that follows. // // Note: // specPXCTEN and specPXCTOFF can occur simultaneously or // independantly. // // Trace: // DPMA/E71 // DPMA/E78 // DPMA/E2 // reg enPXCT; reg [9:12] pxct; always @(posedge clk or posedge rst) begin if (rst) begin enPXCT <= 1'b0; // Enable PXCT pxct <= 4'b0; // PXCT Bits end else if (clken & specPXCTEN) begin enPXCT <= ~specPXCTOFF; // Enable PXCT pxct[ 9] <= dp[ 9]; // PXCT E1 Bit pxct[10] <= dp[10]; // PXCT D1 Bit pxct[11] <= dp[11]; // PXCT E2 Bit pxct[12] <= dp[12]; // PXCT D2 Bit end end // // PXCT AC Field Decode // // Details: // The use of previous context (prevEN) is a function of AC // field of the XCT opcode and the type of memory operation // being performed. // // The microcode indexes this device with the type of // memory operation (memPXCTSEL) and this device examines // the AC field of the XCT instruction (pxct[9:12]) to // determine if previous context is applicable to this // specific memory operation, or not. // // See additional information in file header. // // Trace: // DPMA/E62 // DPMA/E63 // always @(pxct or enPXCT or memPXCTSEL) begin if (enPXCT) case (memPXCTSEL) 0: prevEN <= 1'b0; // Current 1: prevEN <= pxct[ 9]; // E1: PXCT EA 2: prevEN <= pxct[10] & pxct[9]; // Not used 3: prevEN <= pxct[10]; // D1: PXCT DATA or // PXCT BLT DEST 4: prevEN <= pxct[11] & pxct[9]; // BIS-SRC-EA 5: prevEN <= pxct[11]; // E2: PXCT BYTE PTR EA or // PXCT EXTEND EA 6: prevEN <= pxct[12] & pxct[9]; // BIS-DST-EA 7: prevEN <= pxct[12]; // D2: PXCT BYTE DATA or // PXCT STACK WORD or // PXCT BLT SRC endcase else prevEN <= 1'b0; // Current end endmodule rtl/cpu/ram1kx36.v0000700000175100010010000000531112061517364 12400 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! RAM 1Kx36 //! //! \details //! //! \note //! //! \todo //! //! \file //! ram1kx36.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none module RAM1Kx36(clk, clken, wr, addr, din, dout); input clk; // Clock input clken; // Clock enable input wr; // Write input [0: 9] addr; // Address input [0:35] din; // Data in output [0:35] dout; // Data out // // RAM 1kx36 // // FIXME: // The fall edge clock on the RAM is a hack but it is good enough // for simulation and until I figure out what to do here. // It will create synthesis issues. // // Trace // DPE7/E906, DPE7/E907, DPE7/E908, DPE7/E909, DPE7/E910, DPE7/E911 // DPE7/E912, DPE7/E913, DPE7/E914, DPE7/E915, DPE7/E916, DPE7/E917 // DPE7/E918, DPE7/E919, DPE7/E920, DPE7/E921, DPE7/E922, DPE7/E923 // DPE7/E806, DPE7/E807, DPE7/E808, DPE7/E809, DPE7/E810, DPE7/E811 // DPE7/E812, DPE7/E813, DPE7/E814, DPE7/E815, DPE7/E816, DPE7/E817 // DPE7/E818, DPE7/E819, DPE7/E820, DPE7/E821, DPE7/E822, DPE7/E823 // reg [0:35] ram [0:1023]; reg [0: 9] rd_addr; always @(negedge clk) begin if (clken) begin if (wr) ram[addr] <= din; rd_addr <= addr; end end assign dout = ram[rd_addr]; endmodule rtl/cpu/ramfile.v0000700000175100010010000002106712061517364 12451 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Ramfile //! //! \details //! //! \note //! //! +------+----------------+ //! | 1777 | | //! | | Cache | //! | 1000 | | //! +------+----------------+ //! | 0777 | | //! | | Workspace | //! | 0200 | | //! +------+----------------+ //! | 0177 | | //! | | AC Block 7 | //! | 0160 | | //! +------+----------------+ //! | 0067 | | //! | | AC Block 6 | //! | 0140 | | //! +------+----------------+ //! | 0037 | | //! | | AC Block 5 | //! | 0120 | | //! +------+----------------+ //! | 0117 | | //! | | AC Block 4 | //! | 0100 | | //! +------+----------------+ //! | 0077 | | //! | | AC Block 3 | //! | 0060 | | //! +------+----------------+ //! | 0057 | | //! | | AC Block 2 | //! | 0040 | | //! +------+----------------+ //! | 0037 | | //! | | AC Block 1 | //! | 0020 | | //! +------+----------------+ //! | 0017 | | //! | | AC Block 0 | //! | 0000 | | //! +------+----------------+ //! //! \note //! In the original circuitry the Control ROM (microcode) //! was supplied to this module via the dbm input. This //! has been replaced by a direct connection to the Control //! ROM. Presumably this was done because of circuit board //! interconnection limitations. //! //! \todo //! //! \file //! ramfile.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module RAMFILE(clk, rst, clken, crom, drom, dp, dbus, regIR, xrPREV, vmaFLAGS, vmaADDR, acBLOCK, ramfile); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:dromWidth-1] drom; // Dispatch ROM Data input [ 0:35] dp; // DP Input input [ 0:35] dbus; // DBUS Input input [ 0:17] regIR; // Instruction Register input xrPREV; // XR Previous input [ 0:13] vmaFLAGS; // Virtual Memory Flags input [14:35] vmaADDR; // Virtual Memory Address input [ 0: 5] acBLOCK; // AC Blocks output [ 0:35] ramfile; // RAMFILE output // // IR Fields // wire [ 9:12] regIR_AC = regIR[ 9:12]; // Instruction Register AC Field wire [14:17] regIR_XR = regIR[14:17]; // Instruction Register XR Field // // VMA Flags // wire vmaREADCYCLE = vmaFLAGS[3]; wire vmaWRITECYCLE = vmaFLAGS[5]; wire vmaPHYSICAL = vmaFLAGS[8]; wire vmaPREVIOUS = vmaFLAGS[9]; // // AC Reference // // Details: // True when addressing lowest 16 addresses using and not // physical addressing. References to the ACs are never // physical. // // Trace // DPM4/E160 // DPM4/E168 // DPM4/E191 // wire vmaACREF = ~vmaPHYSICAL & (vmaADDR[18:31] == 14'b0); // // AC Blocks // wire [0:2] currBLOCK = acBLOCK[0:2]; // Current AC Block wire [0:2] prevBLOCK = acBLOCK[3:5]; // Previous AC Block // // Address Mux // // Details // This mux provide the address for various RAMFILE // operations. Operations can be: // // Access to the RAMFILE ACs are selected using the // AC field of the instruction. // // 1. Access to an AC in the current context using // the AC field of the instruction. // 2. Access to an AC in the current context using // the XR field of the instruction. // 3. Access to an AC in the previous context using // the XR field of the instruction. // 4. Access to an AC in the current context using // a plain address. // 5. Access to an AC in the previous context using // a plain address. // 6. Access to RAMFILE storage. // 7. Access to the cache // // Note: // The KS10 used {dbm[26:28], dbm[11:17]} for the // cromRAMADDR_SEL_NUM case below. Since the number // field in on both halves of the dbm, this is // equivalent to dbm[8:17]. This has been replaced // by a direct connection to the CROM. // // This was a 74LS181 ALU in the KS10. Only the part of // that device that is used is implemented. This adder is // controlled by one of the overloaded usages of the CROM // number field. // // Trace // DPE6/E3 // DPE6/E6 // DPE6/E7 // DPE6/E8 // DPE6/E13 // DPE6/E14 // DPE6/E15 // DPE6/E16 // DPE6/E21 // DPE6/E22 // DPE6/E23 // DPE6/E24 // DPE6/E79 // reg [0:9] addr; always@(crom or currBLOCK or prevBLOCK or regIR_AC or regIR_XR or xrPREV or vmaACREF or vmaPREVIOUS or vmaADDR) begin case(`cromRAMADDR_SEL) `cromRAMADDR_SEL_AC: addr = {3'b0, currBLOCK, regIR_AC }; `cromRAMADDR_SEL_ACOPNUM: case (`cromACALU_FUN) 6'o25 : addr = {3'b0, currBLOCK, `cromACALU_NUM}; 6'o62 : addr = {3'b0, currBLOCK, `cromACALU_NUM + regIR_AC}; default: addr = {3'b0, currBLOCK, `cromACALU_NUM}; endcase `cromRAMADDR_SEL_XR: begin if (xrPREV) addr = {3'b0, prevBLOCK, regIR_XR}; else addr = {3'b0, currBLOCK, regIR_XR}; end `cromRAMADDR_SEL_VMA: begin if (vmaACREF) begin if (vmaPREVIOUS) addr = {3'b0, prevBLOCK, vmaADDR[32:35]}; else addr = {3'b0, currBLOCK, vmaADDR[32:35]}; end else addr = {1'b1, vmaADDR[27:35]}; end `cromRAMADDR_SEL_RAM: addr = vmaADDR[26:35]; `cromRAMADDR_SEL_NUM: addr = `cromSNUM; default: addr = 9'b0; endcase end // // RAMFILE WRITE // // Todo // FIXME: This is a work-in-progess. // // Trace // DPE5/E119 // DPMA/E22 // DPMA/E54 // wire ramfileWRITE = ((vmaACREF & vmaWRITECYCLE) | (`cromFMWRITE)); // // RAMFILE MEMORY // RAM1Kx36 uRAM1Kx36 (.clk(clk), .clken(clken), .wr(ramfileWRITE), .addr(addr), .din(dbus), .dout(ramfile) ); endmodule rtl/cpu/regir.v0000700000175100010010000000664112061517364 12143 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Instruction Register (IR) //! //! \details //! //! \todo //! //! \file //! ir.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module regIR(clk, rst, clken, crom, dbus, prevEN, regIR, xrPREV, opJRST0); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dbus; // Input Bus input prevEN; // Previous Enable output [0:17] regIR; // Instruction register output xrPREV; // XR Previous output opJRST0; // JRST Instruction // // Microcode Decode // // Note: // 'loadIR' and 'loadXR' can occur simultaneously. Therefore // both parts of the IR register can be loaded simultaneously. // wire loadIR = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADIR); wire loadXR = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADXR); // // Instruction Register and AC Selection. // // Trace // DPEA/E55 // DPEA/E64 // DPEA/E93 // DPEA/E99 // reg [0:17] regIR; reg xrPREV; always @(posedge clk or posedge rst) begin if (rst) begin regIR <= 18'b0; xrPREV <= 1'b0; end else if (clken) begin if (loadIR) begin regIR[ 0:12] <= dbus[ 0:12]; end if (loadXR) begin regIR[13:17] <= dbus[13:17]; xrPREV <= prevEN; end end end // // JRST 0 decode // // Details // This decodes a JRST 0 instruction. // // Trace // DPEA/E54 // DPEA/E61 // DPE1/E62 // wire irOPCODE = regIR[0: 8]; wire irAC = regIR[9:12]; assign opJRST0 = ((irOPCODE == 9'o254) & (irAC == 4'b0)); endmodule rtl/cpu/scad.v0000700000175100010010000001641512061517364 11745 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Step Count Adder //! //! \details //! //! \todo //! //! \file //! scad.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module SCAD(clk, rst, clken, crom, dp, feSIGN, scSIGN, scad, dispSCAD); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Data path output feSIGN; // FE Sign output scSIGN; // SC Sign output [0: 9] scad; // SCAD output [8:11] dispSCAD; // SCAD Dispatch // // CROM interface // wire [0:2] fun = `cromSCAD_FUN; // SCAN Function wire [0:2] asel = `cromSCAD_ASEL; // SCAD B Input wire [0:1] bsel = `cromSCAD_BSEL; // SCAD A Input wire [0:9] snum = `cromSNUM; // Small number field wire loadSC = `cromLOADSC; // Load SC wire loadFE = `cromLOADFE; // Load FE // // SCADA MUX // // Details: // This mux provides one input to the SCAD ALU. // // Trace: // DPM3/E28 // DPM3/E51 // DPM3/E67 // DPM3/E68 // DPM3/E75 // DPM3/E83 // DPM3/E91 // DPM3/E99 // DPM3/E100 // DPM3/E107 // reg [0: 9] scadA; always @(asel or sc or snum or dp) begin case (asel) `cromSCAD_ASEL_SC: scadA <= sc[0:9]; `cromSCAD_ASEL_SNUM: scadA <= snum[0:9]; `cromSCAD_ASEL_PTR44: scadA <= {sc[0], 6'o44, dp[6], sc[8:9]}; `cromSCAD_ASEL_BYTE1: scadA <= {snum[0], dp[ 0: 6], snum[8:9]}; `cromSCAD_ASEL_BYTE2: scadA <= {sc[0], dp[ 7:13], sc[8:9]}; `cromSCAD_ASEL_BYTE3: scadA <= {snum[0], dp[14:20], snum[8:9]}; `cromSCAD_ASEL_BYTE4: scadA <= {sc[0], dp[21:27], sc[8:9]}; `cromSCAD_ASEL_BYTE5: scadA <= {snum[0], dp[28:34], snum[8:9]}; endcase end // // SCADB Mux // // Details: // This mux provides the other input to the SCAD ALU. // // Trace: // DPM3/E36 // DPM3/E60 // DPM3/E75 // DPM3/E84 // reg [0:9] scadB; always @(bsel or fe or dp) begin case (bsel) `cromSCAD_BSEL_FE: scadB <= fe[0:9]; `cromSCAD_BSEL_EXP: if (dp[0]) scadB <= {2'b00, ~dp[1:8]}; else scadB <= {2'b00, dp[1:8]}; `cromSCAD_BSEL_SHIFT: scadB <= {dp[18], dp[18], dp[28:35]}; `cromSCAD_BSEL_SIZE: scadB <= {1'b0, dp[6:11], 3'b0}; endcase end // // SCAD ALU: // // Details: // The 74LS181 ALUs implment 16 functions. Only 8 functions // are used. Therefore this is a bunch of logic to map the // microcode into the ALU function. // // Notes: // This is positive logic. Be sure to use the right table in // the 74ls181 data sheet. // // Be sure to notice that the CY# input to the ALU is tied to // FUN2 // // The SCAD Carry Skipper DPM4/E704 does not need to be // implemented. The FPGA carry logic does not require // parallel carries for this level of performance. // // The following truth table is derived from the circuit // diagram. // // +-------------+-+-------------------------+---------------+ // | FUN FUN FUN | | ALU ALU ALU ALU ALU ALU | | // | 0 1 2 | | 8 4 2 1 CY M | Descripton | // +-------------+-+-------------------------+---------------+ // | 0 0 0 | | 1 1 0 0 1 0 | F = A + A | // | 0 0 1 | | 1 1 1 0 0 1 | F = A | B | // | 0 1 0 | | 0 1 1 0 1 0 | F = A - B - 1 | // | 0 1 1 | | 0 1 1 0 0 0 | F = A - B | // | 1 0 0 | | 1 0 0 1 1 0 | F = A + B | // | 1 0 1 | | 1 0 1 1 0 1 | F = A & B | // | 1 1 0 | | 1 1 1 1 1 0 | F = A - 1 | // | 1 1 1 | | 1 1 1 1 0 0 | F = A | // +-------------+-+-------------------------+---------------+ // // Funny enough, this matches the microcode. // // Trace: // DPM3/E5 // DPM3/E19 // DPM3/E22 // DPM3/E20 // DPM3/E24 // reg [0:9] scad; always @(fun or scadA or scadB) begin case (fun) `cromSCAD_A_PLUS_A: scad <= scadA + scadA; `cromSCAD_A_OR_B: scad <= scadA | scadB; `cromSCAD_A_MINUS_B_1: scad <= scadA - scadB - 1'b1; `cromSCAD_A_MINUS_B: scad <= scadA - scadB; `cromSCAD_A_PLUS_B: scad <= scadA + scadB; `cromSCAD_A_AND_B: scad <= scadA & scadB; `cromSCAD_A_MINUS_1: scad <= scadA - 1'b1; `cromSCAD_A: scad <= scadA; endcase end // // FE Register // // Details: // Floating-point exponent // // Trace // DPM4/E44 // DPM4/E52 // reg [0:9] fe; always @(posedge clk or posedge rst) begin if (rst) fe <= 9'b0; else if (clken & loadFE) fe <= scad; end // // SC Register // // Details: // Step Counter // // Trace // DPM4/E35 // DPM4/E43 // reg [0:9] sc; always @(posedge clk or posedge rst) begin if (rst) sc <= 9'b0; else if (clken & loadSC) sc <= scad; end // // FE Sign and SC Sign // assign feSIGN = fe[0]; assign scSIGN = sc[0]; // // SCAD Dispatch // assign dispSCAD = (scad[0]) ? 4'b0010 : 4'b0000; endmodule rtl/cpu/timer.v0000700000175100010010000001400612061517364 12145 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Timer //! //! \details //! The original KS10 interval timer was 12 bits and operated //! with a 4.096 MHz clock. The 12-bit timer generates an //! interrupt exactly every one millisecond. //! //! This did not work well in practice. The RDTIME instruction //! needs to convert timer output to time in 10 us increment //! which would require a division by 40.96. Therefore the //! timer frequency was changed to 4.100 MHz and the microcode //! does a division by 41 to support the RDTIME instruction. //! //! You can find the details of KS10 timer design (and it's //! problems) in a DEC memo authored by Dan Murphy entitled //! "Clocks for Dolphin" on bitsavers.org //! //! The KS10 would benefit from two timers, one clocked every //! 10 microseconds and another clocked every 1 ms, supported //! by updated microcode. //! //! \note //! This timer code has been extensively re-written to remove //! the 4.1 MHz clock and use the 50 MHz master clock. //! //! IF YOU CHANGE THE CLOCK FREQUENCY FROM 50 MHZ YOU MUST //! CHANGE THE CONSTANTS IN THIS MODULE FOR THE TIMER TO //! WORK CORRECTLY. //! //! \file //! timer.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module TIMER(clk, rst, clken, crom, timerEN, timerINTR, timerCOUNT); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:cromWidth-1] crom; // Control ROM Data input timerEN; // Timer Enable output timerINTR; // Timer Interrupt output [18:35] timerCOUNT; // Timer output // // Frequency Divider // // Detail: // This creates the required 4.1 MHz 'clock' for the KS10 timer. // // Note: // This is an implementation of a Fractional N divider using an // accumulator. // // 32-bit was chosen because at 32-bits, the frequency error // from the frequency division approximation is less than the // frequency error of the clock generator crystal. // // increment = round-to-integer(2**32 * 4.1 MHz / 50.0 MHz) // // Everytime this 32-bit counter overflow, it is time to // increment the interval timer. // // The use of an accumulator instead of divider keeps the // average output frequency correct. IOW, the accumulator // maintains the fractional time when the count overflows. // reg [0:31] accum; reg carry; wire [0:31] incr = 32'd352187318; always @(posedge clk or posedge rst) begin if (rst) {carry, accum} = 33'b0; else {carry, accum} = {1'b0, accum} + {1'b0, incr}; end wire timerINC = carry; // // Timer // // Details: // This is the one millisecond interval timer. Most of the // timer is implemented in microcode. // // Note: // In the KS10, the timer has the up/down pin wired to the // reset signal. This doesn't make any sense. I have not // implemented this. // // Trace: // DPMC/E180 // DPMC/E181 // DPMC/E189 // reg [0:11] count; always @(posedge clk or posedge rst) begin if (rst) count <= 12'b0; else if (timerEN & timerINC) count <= count + 1'b1; end // // Timer Interrupt // // Details // The timerINTR signal is asserted on a timer overflow; i.e., // when MSB changes from '1' to '0'. // // Note: // Resetting the interrupt has priority over setting the // interrupt. // // Trace: // DPMC/E1 // DPMC/E3 // DPMC/E56 // wire timerRST = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_CLR1MSEC); reg timerMSB; reg intr; always @(posedge clk or posedge rst) begin if (rst) begin intr <= 1'b0; timerMSB <= 1'b0; end else if (clken) begin if (timerRST) intr <= 1'b0; else if (timerEN & ~count[0] & timerMSB) intr <= 1'b1; timerMSB <= count[0]; end end // // Fixups // The KS10 does not use the two LSBS of the timer. The upper // 6-bits are also not significant. The microcode seems to // read all of the bits and does not perform any masking. // assign timerCOUNT[18:23] = 6'b0; assign timerCOUNT[24:33] = count[0:9]; assign timerCOUNT[34:35] = 2'b0; assign timerINTR = intr; endmodule rtl/cpu/timing.v0000700000175100010010000000704712061517366 12325 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Read/Write Timing //! //! \details //! //! \note //! //! \todo //! //! \file //! timing.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module TIMING(clk, rst, crom, drom, dp, feSIGN, busREQ, busACK, clkenDP, clkenCR, memWAIT); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input [0:cromWidth-1] crom; // Control ROM Data input [0:dromWidth-1] drom; // Control ROM Data input [0:35] dp; // Data path input feSIGN; // FE Sign output busREQ; // Bus Request input busACK; // Bus Acknowledge output clkenDP; // Clock Enable output clkenCR; // Clock Enable Microsequencer input memWAIT; // Memory Wait // // Fast Shift // // Details: // The KS10 fast shifts while the FE is negative. // // Note: // The obvious implementation shifts one count too many and // shifts by one when the count is zero. This is very counter- // intuitive. // // Be careful. When the shift count is zero (FE = -1 or 1777) // no shifts should be peformed. // // FIXME: // This crazy fast shift stuff should be replaced by a microcode hack. // The FPGA doesn't really require this fast shift implementation. // // Trace // CSL5/E33 // CSL5/E44 // CSL5/E45 // CSL5/E52 // CSL5/E53 // CSL5/E54 // CSL5/E71 // reg done; always @(posedge clk or posedge rst) begin if (rst) done = 1'b0; else done = feSIGN & `cromMULTISHIFT; end // // Clock enables // // Details // In the KS10, the Control ROM (KS10 CRA/M) and the Data Path // (KS10 DPE/M) are clock enabled independantly. // // Trace // CSL5/E33 // CSL5/E54 // assign clkenCR = ~((`cromMULTISHIFT & feSIGN) | memWAIT); assign clkenDP = ~((`cromMULTISHIFT & ~feSIGN) | (done & clkenCR) | memWAIT); endmodule rtl/cpu/traps.v0000700000175100010010000000530512061517366 12162 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Traps //! //! \details //! //! \note //! //! \file //! traps.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source fiit under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" module TRAPS(clk, rst, clken, crom, pcFLAGS, aprFLAGS, cslTRAPEN, trapCYCLE); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:17] pcFLAGS; // PC Flags input [22:35] aprFLAGS; // APR Flags input cslTRAPEN; // Console Trap Enable output reg trapCYCLE; // Trap Cycle // // Trap Enable Flag // wire flagTRAPEN = aprFLAGS[22]; // // Trap Flags // wire flagTRAP2 = pcFLAGS[ 9]; wire flagTRAP1 = pcFLAGS[10]; // // Trap Cycle // // Notes // The schematic uses NICOND_09. This is the same logic but // a little more straight forward. // // Trace // CRA2/E159 // wire specNICOND = `cromSPEC_EN_10 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADNICOND); wire trapEN = ((cslTRAPEN & flagTRAPEN & flagTRAP2) | (cslTRAPEN & flagTRAPEN & flagTRAP1)); always @(posedge clk or posedge rst) begin if (rst) trapCYCLE <= 1'b0; else if (clken & specNICOND) trapCYCLE <= trapEN; end endmodule rtl/cpu/useq/0000700000175100010010000000000012061535501 11600 5ustar RobNonertl/cpu/useq/crom.awk0000700000175100010010000000217712061517360 13261 0ustar RobNoneBEGIN { FS="[, ; ]"; printf "//\n"; printf "//\n"; printf "// CROM.DAT\n"; printf "// This code is extracted from the KS10 microcode listing by an\n"; printf "// AWK script. DO NOT EDIT THIS FILE!\n"; printf "//\n"; printf "//\n"; printf "\n"; } /U [0-7][0-7][0-7][0-7], / { #print $4 " " $5 " " $6 " " $7 " " $8 " " $9 " " $10 " " $11 " " $12 "// " $2 i = strtonum("0" $2) MAP2[i] = $2; MAP[4,i] = $4; MAP[5,i] = $5; MAP[6,i] = $6; MAP[7,i] = $7; MAP[8,i] = $8; MAP[9,i] = $9; MAP[10,i] = $10; MAP[11,i] = $11; MAP[12,i] = $12; } END { for (i = 0; i < 04000; i++) { if (strtonum("0" MAP2[i]) == i) { printf " CROM[%4d] = 108'o%s_%s_%s_%s_%s_%s_%s_%s_%s;\n", i, MAP[ 4,i], MAP[ 5,i], MAP[ 6,i], MAP[ 7,i], MAP[ 8,i], MAP[ 9,i], MAP[10,i], MAP[11,i], MAP[12,i] } else { printf " CROM[%4d] = 108'o%s_%s_%s_%s_%s_%s_%s_%s_%s; // Unused\n", i, "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000", "0000" } } } rtl/cpu/useq/crom.dat0000700000175100010010000046056112061517362 13256 0ustar RobNone// // // CROM.DAT // This code is extracted from the KS10 microcode listing by an // AWK script. DO NOT EDIT THIS FILE! // // CROM[ 0] = 108'o0002_3771_0012_4374_4007_0700_0000_0037_7777; CROM[ 1] = 108'o3676_3333_0004_7174_4007_0700_0410_0000_0212; CROM[ 2] = 108'o0013_3445_1212_4174_4007_0700_0000_0000_0000; CROM[ 3] = 108'o0100_4751_1203_4374_4007_0700_0000_0037_6000; CROM[ 4] = 108'o2476_4443_0000_4174_4107_0640_0000_0000_0062; CROM[ 5] = 108'o0004_4443_0000_4174_4007_0660_0000_0000_0000; CROM[ 6] = 108'o3412_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 7] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 8] = 108'o0560_3771_0004_1276_6007_0701_0010_0000_1444; CROM[ 9] = 108'o0024_3771_0004_7274_4007_0701_0000_0000_0227; CROM[ 10] = 108'o0324_3333_0005_6174_4007_0700_0400_0000_0000; CROM[ 11] = 108'o0053_3551_1212_4374_4007_0700_0000_0000_0001; CROM[ 12] = 108'o1400_3333_0005_4174_4007_0571_0000_0000_0000; CROM[ 13] = 108'o1116_7441_0303_4174_4007_0700_0000_0000_0000; CROM[ 14] = 108'o1123_6551_0303_0274_4007_0700_0000_0000_0000; CROM[ 15] = 108'o1123_3551_0303_0274_4007_0700_0000_0000_0000; CROM[ 16] = 108'o2746_4221_0002_4174_0007_0700_0010_0000_0000; CROM[ 17] = 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; CROM[ 18] = 108'o3541_3333_0002_4175_5007_0701_0210_0000_0002; CROM[ 19] = 108'o3667_0111_0704_4170_4007_0700_0210_0023_1016; CROM[ 20] = 108'o3700_4223_0000_4364_4277_0700_0210_0000_0010; CROM[ 21] = 108'o1176_3333_0004_4174_4007_0621_0000_0000_0000; CROM[ 22] = 108'o2475_4443_0000_4174_4107_0700_0000_0000_0074; CROM[ 23] = 108'o2740_4751_1205_4374_4007_0700_0000_0000_0430; CROM[ 24] = 108'o0002_3773_0000_2274_4464_1700_0000_0001_0004; CROM[ 25] = 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; CROM[ 26] = 108'o0002_3333_0002_4174_4464_1700_0000_0001_0004; CROM[ 27] = 108'o3060_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 28] = 108'o2556_0551_0202_2270_4007_0700_0200_0004_0012; CROM[ 29] = 108'o2760_3445_0403_4174_4007_0700_0000_0000_0000; CROM[ 30] = 108'o2556_3443_0200_4174_4007_0700_0200_0004_0112; CROM[ 31] = 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; CROM[ 32] = 108'o0000_3771_0003_4365_5001_2700_0200_0000_0002; CROM[ 33] = 108'o0000_3771_0003_0276_6001_2700_0000_0000_0000; CROM[ 34] = 108'o0401_3771_0003_4365_5007_0700_0200_0000_0002; CROM[ 35] = 108'o0415_3771_0003_0276_6007_0700_0000_0000_0000; CROM[ 36] = 108'o0000_3333_0003_4174_4001_2530_3000_0041_5777; CROM[ 37] = 108'o0416_3772_0000_1275_5007_0701_0000_0000_1441; CROM[ 38] = 108'o0372_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 39] = 108'o0372_3771_0003_4365_5007_0700_0200_0000_0002; CROM[ 40] = 108'o0000_3770_0103_4365_5001_2700_0200_0014_0012; CROM[ 41] = 108'o0402_3771_0005_4365_5177_0521_3000_0041_2000; CROM[ 42] = 108'o0404_4443_0000_4174_4007_0040_0000_0000_0000; CROM[ 43] = 108'o0061_3447_1200_4174_4007_0700_0000_0000_0000; CROM[ 44] = 108'o1232_4552_0000_1275_5007_0701_0000_0000_1441; CROM[ 45] = 108'o3060_6551_1717_4374_4007_0700_0010_0000_0007; CROM[ 46] = 108'o3027_0001_1616_4174_4007_0700_0000_0000_0000; CROM[ 47] = 108'o3025_2225_0016_4174_4007_0700_4000_0000_0000; CROM[ 48] = 108'o3667_3443_0300_4174_4007_0700_0210_0003_0012; CROM[ 49] = 108'o0071_3771_0015_4374_4007_0700_0000_0000_0001; CROM[ 50] = 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; CROM[ 51] = 108'o1372_3333_0003_4174_4007_0520_0000_0000_0000; CROM[ 52] = 108'o3670_0111_0703_4170_4007_0700_0210_0003_0012; CROM[ 53] = 108'o2606_0111_0703_4174_4007_0700_0200_0004_0002; CROM[ 54] = 108'o3147_0661_0003_7274_4007_0701_0000_0000_0225; CROM[ 55] = 108'o2440_4571_1205_4374_4007_0700_0000_0024_1220; CROM[ 56] = 108'o3101_0553_0300_2274_4007_0700_0200_0004_0712; CROM[ 57] = 108'o0003_4751_1207_4374_4007_0700_0010_0000_0001; CROM[ 58] = 108'o3101_3443_0300_4174_4007_0700_0200_0004_0712; CROM[ 59] = 108'o1514_0111_0503_4174_4003_7700_0200_0003_0001; CROM[ 60] = 108'o3100_0553_0300_2274_4007_0700_0200_0004_0512; CROM[ 61] = 108'o0054_3447_0303_4174_4007_0700_0000_0000_0000; CROM[ 62] = 108'o3100_3443_0300_4174_4007_0700_0200_0004_0512; CROM[ 63] = 108'o2440_4571_1205_4374_4007_0700_0000_0024_1200; CROM[ 64] = 108'o0106_3333_0003_7174_4007_0700_0400_0000_0227; CROM[ 65] = 108'o3474_4751_1203_4374_4367_0700_0000_0000_0423; CROM[ 66] = 108'o3474_4751_1203_4374_4367_0700_0000_0000_0422; CROM[ 67] = 108'o3474_4751_1203_4374_4367_0700_0000_0000_0421; CROM[ 68] = 108'o3676_3333_0004_7174_4007_0700_0410_0000_0212; CROM[ 69] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_0002; CROM[ 70] = 108'o0110_4221_0011_4364_4277_0700_0200_0000_0010; CROM[ 71] = 108'o0117_3443_0100_4174_4007_0700_0200_0014_0012; CROM[ 72] = 108'o0125_4221_0010_4174_4477_0700_0000_0000_0000; CROM[ 73] = 108'o3474_4751_1203_4374_4367_0700_0000_0000_0423; CROM[ 74] = 108'o3474_4751_1203_4374_4367_0700_0000_0000_0422; CROM[ 75] = 108'o3474_4751_1203_4374_4367_0700_0000_0000_0421; CROM[ 76] = 108'o3675_4223_0000_4364_4277_0700_0210_0000_0010; CROM[ 77] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_0002; CROM[ 78] = 108'o3674_4221_0004_4174_4007_0700_0200_0021_1016; CROM[ 79] = 108'o0363_3771_0002_4365_5617_0700_0200_0000_0002; CROM[ 80] = 108'o2774_4557_0006_1274_4007_0701_0010_0000_1441; CROM[ 81] = 108'o2764_4557_0004_1274_4007_0701_0000_0000_1442; CROM[ 82] = 108'o0122_3336_0604_4174_4046_2630_2000_0060_0000; CROM[ 83] = 108'o0004_3334_0604_4174_4004_1700_0000_0000_0000; CROM[ 84] = 108'o0171_3223_0000_1174_4007_0700_0400_0000_1443; CROM[ 85] = 108'o0131_4221_0013_4174_4257_0700_0000_0000_0000; CROM[ 86] = 108'o0142_1116_0604_4174_4046_2630_6000_0060_0000; CROM[ 87] = 108'o0004_1114_0604_4174_4004_1700_4000_0000_0000; CROM[ 88] = 108'o3075_3771_0003_0276_6007_0700_0010_0000_0000; CROM[ 89] = 108'o0162_3333_0013_7174_4007_0700_0400_0000_0230; CROM[ 90] = 108'o2055_4221_0017_4174_4007_0700_0010_0000_0000; CROM[ 91] = 108'o2030_3441_0305_1174_4007_0421_0000_0000_1441; CROM[ 92] = 108'o3671_3441_0104_4170_4007_0700_0010_0000_0000; CROM[ 93] = 108'o1400_0551_0501_4370_4007_0701_0000_0000_0001; CROM[ 94] = 108'o1400_4113_0305_4174_4007_0330_0000_0000_0020; CROM[ 95] = 108'o3613_3771_0005_4374_0007_0700_0000_0003_0130; CROM[ 96] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_1005; CROM[ 97] = 108'o3607_4221_0014_4174_4007_0700_0010_0000_0000; CROM[ 98] = 108'o0122_0116_0604_4174_4046_2630_2000_0060_0000; CROM[ 99] = 108'o0004_0114_0604_4174_4004_1700_0000_0000_0000; CROM[ 100] = 108'o3043_4222_0000_4174_4007_0700_2010_0071_0033; CROM[ 101] = 108'o0144_3447_0303_4174_4007_0700_1000_0041_0001; CROM[ 102] = 108'o0142_3336_0604_4174_4046_2630_2000_0060_0000; CROM[ 103] = 108'o0004_3334_0604_4174_4004_1700_0000_0000_0000; CROM[ 104] = 108'o2551_3771_0002_4365_5217_0700_0210_0000_0002; CROM[ 105] = 108'o0343_4751_1217_4374_4007_0700_0000_0000_0120; CROM[ 106] = 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; CROM[ 107] = 108'o2055_3444_1616_4174_4067_0700_0010_0000_0000; CROM[ 108] = 108'o3204_3227_0003_4174_4007_0700_0000_0000_0000; CROM[ 109] = 108'o2054_3333_0003_4174_4007_0621_0010_0000_0000; CROM[ 110] = 108'o2054_3333_0003_4174_4007_0621_0010_0000_0000; CROM[ 111] = 108'o3204_3227_0003_4174_4007_0700_0000_0000_0000; CROM[ 112] = 108'o1216_7443_0300_4174_4007_0621_0000_0000_0000; CROM[ 113] = 108'o0164_3333_0005_4174_4007_0621_0000_0000_0000; CROM[ 114] = 108'o0212_3333_0013_7174_4007_0700_0400_0000_0300; CROM[ 115] = 108'o3000_3446_0606_4174_4007_0700_0010_0000_0000; CROM[ 116] = 108'o0370_4443_0000_4174_4007_0700_2010_0071_0042; CROM[ 117] = 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; CROM[ 118] = 108'o1177_3441_0304_4174_4007_0700_0000_0000_0000; CROM[ 119] = 108'o3177_4662_0000_4370_4007_0700_0000_0077_7000; CROM[ 120] = 108'o0172_0551_0505_2270_4007_0700_0000_0000_0000; CROM[ 121] = 108'o0563_3442_0300_4174_4007_0700_2010_0071_0043; CROM[ 122] = 108'o0556_5741_0505_4174_4003_7700_0200_0000_0010; CROM[ 123] = 108'o3225_3444_1616_4174_4067_0700_0000_0000_0000; CROM[ 124] = 108'o3263_0551_0505_2270_4007_0700_0200_0004_0512; CROM[ 125] = 108'o2763_3441_0416_4174_4007_0700_0000_0000_0000; CROM[ 126] = 108'o3263_3443_0500_4174_4007_0700_0200_0004_0512; CROM[ 127] = 108'o3204_2227_0003_4174_4007_0700_4000_0000_0000; CROM[ 128] = 108'o0200_3444_0303_4174_4043_4701_1000_0041_1777; CROM[ 129] = 108'o0110_0551_0201_2270_4156_4700_0200_0014_0012; CROM[ 130] = 108'o0322_3333_0003_4174_4003_4701_0010_0000_0000; CROM[ 131] = 108'o0110_3441_0201_4170_4156_4700_0200_0014_0012; CROM[ 132] = 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; CROM[ 133] = 108'o0366_0551_0202_2270_4007_0700_0200_0004_0012; CROM[ 134] = 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; CROM[ 135] = 108'o0366_3443_0200_4174_4007_0700_0200_0004_0012; CROM[ 136] = 108'o3255_4002_0000_4174_0007_0700_0000_0000_0000; CROM[ 137] = 108'o0213_0551_0202_2270_4007_0700_0000_0000_0000; CROM[ 138] = 108'o0214_3333_0013_7174_4007_0700_0400_0000_0301; CROM[ 139] = 108'o0000_5741_0203_4174_4001_3700_0200_0000_0342; CROM[ 140] = 108'o0223_4223_0000_1174_4007_0700_0400_0000_1443; CROM[ 141] = 108'o0366_0551_0202_2270_4007_0700_0200_0004_0112; CROM[ 142] = 108'o0610_4111_1204_4174_4007_0700_0000_0000_0000; CROM[ 143] = 108'o0366_3443_0200_4174_4007_0700_0200_0004_0112; CROM[ 144] = 108'o0221_3441_0301_4174_4007_0700_0200_0014_0012; CROM[ 145] = 108'o0100_3440_0404_0174_4156_4700_0400_0000_0000; CROM[ 146] = 108'o1400_3440_0404_0174_4007_0700_0400_0000_0000; CROM[ 147] = 108'o0226_3333_0007_1174_4007_0700_0400_0000_1444; CROM[ 148] = 108'o0323_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 149] = 108'o0140_6553_0500_4374_4007_0321_0000_0033_0656; CROM[ 150] = 108'o0235_4221_0003_4174_4007_0700_2000_0071_0023; CROM[ 151] = 108'o2452_4553_0300_4374_4007_0331_0000_0000_0001; CROM[ 152] = 108'o3101_0553_0300_2274_4007_0701_0200_0004_0712; CROM[ 153] = 108'o3447_3441_0503_4174_4007_0700_0000_0000_0000; CROM[ 154] = 108'o3101_3443_0300_4174_4007_0700_0200_0004_0712; CROM[ 155] = 108'o3446_3770_0503_4334_4017_0700_0000_0032_6000; CROM[ 156] = 108'o3454_0553_0300_2274_4007_0701_0200_0004_0612; CROM[ 157] = 108'o0242_3333_0007_7174_4007_0700_0400_0000_0344; CROM[ 158] = 108'o3454_3443_0300_4174_4007_0700_0200_0004_0612; CROM[ 159] = 108'o3650_4571_1204_4374_4007_0700_0000_0021_1200; CROM[ 160] = 108'o3127_3333_0003_7174_4007_0700_0400_0000_0223; CROM[ 161] = 108'o0350_3770_0305_4334_4016_7351_0010_0033_6000; CROM[ 162] = 108'o0244_4223_0000_7174_4007_0700_0400_0000_0373; CROM[ 163] = 108'o2054_3333_0017_4174_4007_0621_0010_0000_0000; CROM[ 164] = 108'o0311_3771_0002_4374_4007_0700_0000_0000_0344; CROM[ 165] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 166] = 108'o3412_3333_0004_7174_4007_0700_0410_0000_0246; CROM[ 167] = 108'o3411_3771_0003_7274_4007_0701_0000_0000_0246; CROM[ 168] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 169] = 108'o1400_3333_0003_4174_4007_0520_0000_0000_0000; CROM[ 170] = 108'o1400_3333_0003_4174_4007_0621_0000_0000_0000; CROM[ 171] = 108'o1400_3333_0003_4174_4007_0421_0000_0000_0000; CROM[ 172] = 108'o0110_0111_0701_4170_4156_4700_0200_0014_0012; CROM[ 173] = 108'o0260_3333_0003_4174_4007_0520_0000_0000_0000; CROM[ 174] = 108'o0260_3333_0003_4174_4007_0621_0000_0000_0000; CROM[ 175] = 108'o0260_3333_0003_4174_4007_0421_0000_0000_0000; CROM[ 176] = 108'o0110_0111_0701_4170_4156_4700_0200_0014_0012; CROM[ 177] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 178] = 108'o0407_3447_0705_4174_4003_7700_0000_0000_0000; CROM[ 179] = 108'o3236_3444_0303_4174_4047_0700_0000_0000_0000; CROM[ 180] = 108'o3077_3333_0003_4174_4217_0700_0010_0000_0500; CROM[ 181] = 108'o0360_3333_0003_4174_4006_5701_0010_0000_0000; CROM[ 182] = 108'o0262_3447_0303_4174_4007_0700_1000_0041_0001; CROM[ 183] = 108'o1400_4443_0000_4174_4467_0700_0000_0005_0000; CROM[ 184] = 108'o0100_3440_0505_0174_4156_4700_0400_0000_0000; CROM[ 185] = 108'o0762_3770_0505_0174_4007_0520_0400_0000_0000; CROM[ 186] = 108'o0762_3770_0505_0174_4007_0621_0400_0000_0000; CROM[ 187] = 108'o0762_3770_0505_0174_4007_0421_0400_0000_0000; CROM[ 188] = 108'o0764_3440_0505_0174_4007_0700_0400_0000_0000; CROM[ 189] = 108'o0764_3770_0505_0174_4007_0520_0400_0000_0000; CROM[ 190] = 108'o0764_3770_0505_0174_4007_0621_0400_0000_0000; CROM[ 191] = 108'o0764_3770_0505_0174_4007_0421_0400_0000_0000; CROM[ 192] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 193] = 108'o2551_3771_0002_4365_5217_0700_0210_0000_0002; CROM[ 194] = 108'o0016_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 195] = 108'o2432_4553_1400_4374_4007_0331_0010_0007_7400; CROM[ 196] = 108'o0305_5111_0514_4170_4007_0700_0000_0000_0000; CROM[ 197] = 108'o3610_3770_1416_4344_4007_0700_0010_0000_0000; CROM[ 198] = 108'o0016_3447_0303_4174_4004_1700_1000_0041_0001; CROM[ 199] = 108'o3610_3770_1416_4344_4007_0700_0010_0000_0000; CROM[ 200] = 108'o2746_3333_0002_4175_5007_0701_0210_0000_0002; CROM[ 201] = 108'o0323_3771_0006_4374_4007_0700_0000_0000_0373; CROM[ 202] = 108'o2745_3741_0103_4074_4007_0700_0010_0000_0000; CROM[ 203] = 108'o0022_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 204] = 108'o2746_3333_0003_4175_5007_0701_0210_0000_0002; CROM[ 205] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 206] = 108'o0020_3333_0001_4175_5007_0701_0200_0000_0002; CROM[ 207] = 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; CROM[ 208] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 209] = 108'o2432_4553_1400_4374_4007_0331_0010_0007_7400; CROM[ 210] = 108'o0462_0007_0704_4174_4007_0511_0000_0000_0000; CROM[ 211] = 108'o0010_0111_0706_4174_4007_0700_0200_0000_0010; CROM[ 212] = 108'o0334_0111_0702_4174_4007_0700_0200_0000_0010; CROM[ 213] = 108'o0335_3333_0012_4174_4437_0700_0000_0000_0000; CROM[ 214] = 108'o0322_3446_0303_4174_4047_0700_1000_0041_0001; CROM[ 215] = 108'o2002_4553_1300_4374_4007_0321_0000_0000_2000; CROM[ 216] = 108'o1220_3333_0005_4174_4007_0520_0000_0000_0000; CROM[ 217] = 108'o3071_4551_0404_4374_0007_0700_0010_0037_7777; CROM[ 218] = 108'o3450_3771_0003_7274_4007_0700_0010_0000_0244; CROM[ 219] = 108'o1220_3333_0005_4174_4007_0520_0000_0000_0000; CROM[ 220] = 108'o0224_3333_0004_6174_4007_0630_2400_0060_0000; CROM[ 221] = 108'o1525_4223_0000_4364_4277_0700_0200_0000_0010; CROM[ 222] = 108'o3437_3771_0003_1276_6007_0701_0000_0000_1443; CROM[ 223] = 108'o2005_4111_1203_4174_4007_0700_0000_0000_0000; CROM[ 224] = 108'o0550_4443_0000_4174_4006_7701_0000_0031_0210; CROM[ 225] = 108'o3102_3770_0505_4334_4057_0700_0000_0073_0000; CROM[ 226] = 108'o3102_3770_0505_4334_4057_0700_0000_0074_0000; CROM[ 227] = 108'o0346_4221_0001_4174_4467_0700_0000_0000_0004; CROM[ 228] = 108'o3102_3770_0505_4334_4057_0700_0000_0075_0000; CROM[ 229] = 108'o3102_3770_0505_4334_4057_0700_0000_0076_0000; CROM[ 230] = 108'o0116_3771_0017_4374_4007_0700_0000_0000_0000; CROM[ 231] = 108'o3102_3770_0505_4334_4057_0700_0000_0077_0000; CROM[ 232] = 108'o3075_3441_0503_4174_4007_0700_0200_0003_0002; CROM[ 233] = 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 234] = 108'o3074_3770_0503_4334_4017_0700_0000_0032_6000; CROM[ 235] = 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 236] = 108'o1264_3446_1200_4174_4007_0700_2010_0071_0042; CROM[ 237] = 108'o3040_3444_0303_4174_4047_0700_0000_0000_0000; CROM[ 238] = 108'o3021_3224_0016_4174_4007_0700_0000_0000_0000; CROM[ 239] = 108'o3037_2222_0000_4174_4007_0700_4000_0000_0000; CROM[ 240] = 108'o3114_3333_0003_4174_4007_0700_1000_0031_7770; CROM[ 241] = 108'o3112_3770_0503_4334_4017_0700_0000_0041_0000; CROM[ 242] = 108'o3112_3770_0503_4334_4027_0700_0000_0041_0000; CROM[ 243] = 108'o0201_0111_0701_2170_4366_6700_0200_0010_0010; CROM[ 244] = 108'o3112_3770_0503_4334_4037_0700_0000_0041_0000; CROM[ 245] = 108'o3112_3770_0503_4334_4047_0700_0000_0041_0000; CROM[ 246] = 108'o0371_3771_0002_4361_5217_0700_0200_0000_0102; CROM[ 247] = 108'o3112_3770_0503_4334_4057_0700_0000_0041_0000; CROM[ 248] = 108'o3043_4662_0000_4374_0007_0700_0010_0037_7777; CROM[ 249] = 108'o0201_3443_0100_2174_4006_6700_0200_0010_0010; CROM[ 250] = 108'o0412_3333_0003_4174_4007_0520_3010_0041_2000; CROM[ 251] = 108'o0000_4221_0004_4174_4001_2700_0000_0000_0000; CROM[ 252] = 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 253] = 108'o0002_2222_0000_4174_4004_1700_4000_0000_0000; CROM[ 254] = 108'o0377_2222_0000_4174_4007_0700_4000_0000_0000; CROM[ 255] = 108'o0002_2441_0303_4174_4004_1700_4000_0000_0000; CROM[ 256] = 108'o2747_3333_0003_4174_4007_0700_0200_0003_0012; CROM[ 257] = 108'o0406_0111_0702_4170_4007_0700_0200_0004_0312; CROM[ 258] = 108'o0445_0111_0703_4174_4007_0700_0200_0004_0312; CROM[ 259] = 108'o0432_0111_0703_4174_4007_0700_0200_0004_0312; CROM[ 260] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 261] = 108'o0000_4443_0000_4174_4001_2700_0000_0000_0000; CROM[ 262] = 108'o0000_3771_0004_4365_5001_2700_0200_0000_0002; CROM[ 263] = 108'o0016_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 264] = 108'o2775_3777_0006_0274_4007_0701_0010_0000_0000; CROM[ 265] = 108'o2777_0113_1616_1174_4007_0701_0400_0000_1441; CROM[ 266] = 108'o0001_4551_0303_4374_0004_1700_0000_0000_0777; CROM[ 267] = 108'o0001_3551_0303_4374_0004_1700_0000_0077_7000; CROM[ 268] = 108'o2765_3223_0000_1174_4007_0700_0400_0000_1442; CROM[ 269] = 108'o0000_3771_0004_1276_6001_2701_0000_0000_1441; CROM[ 270] = 108'o0431_3776_0005_0274_4007_0701_0000_0000_0000; CROM[ 271] = 108'o0302_0111_0503_4174_4003_4701_0000_0000_0000; CROM[ 272] = 108'o0420_3444_0303_4174_4063_4701_1000_0041_1777; CROM[ 273] = 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; CROM[ 274] = 108'o0262_3333_0003_4174_4003_4701_0010_0000_0000; CROM[ 275] = 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; CROM[ 276] = 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; CROM[ 277] = 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; CROM[ 278] = 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; CROM[ 279] = 108'o2000_2222_0000_4174_4007_0311_4000_0000_0000; CROM[ 280] = 108'o1376_3223_0000_4174_4007_0621_0000_0000_0000; CROM[ 281] = 108'o0044_3446_0505_4174_4007_0700_0000_0000_0000; CROM[ 282] = 108'o0451_3551_0505_4374_0007_0700_0000_0077_7000; CROM[ 283] = 108'o3222_5111_1217_4174_4007_0700_0000_0000_0000; CROM[ 284] = 108'o1515_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 285] = 108'o1400_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 286] = 108'o1377_3770_0303_4324_0457_0700_0000_0041_0000; CROM[ 287] = 108'o0433_0222_0000_4174_4007_0700_4000_0000_0000; CROM[ 288] = 108'o0440_3444_0303_4174_4063_4701_1000_0041_1777; CROM[ 289] = 108'o2214_3771_0004_1276_6007_0701_0010_0000_1441; CROM[ 290] = 108'o0262_3333_0003_4174_4003_4701_0010_0000_0000; CROM[ 291] = 108'o2170_0111_0706_4174_4007_0630_2000_0060_0000; CROM[ 292] = 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; CROM[ 293] = 108'o0451_4551_0505_4374_0007_0700_0000_0000_0777; CROM[ 294] = 108'o0262_3447_0303_4174_4007_0700_1010_0041_0001; CROM[ 295] = 108'o2172_4553_0600_4374_4007_0331_0000_0077_7777; CROM[ 296] = 108'o0440_3444_0303_4174_4063_4701_1000_0041_1777; CROM[ 297] = 108'o0452_4557_0004_4365_5007_0701_0200_0000_0002; CROM[ 298] = 108'o0467_3447_0503_4174_4007_0700_0000_0000_0000; CROM[ 299] = 108'o3227_3446_1616_4174_4047_0700_0000_0000_0000; CROM[ 300] = 108'o0454_3444_0303_4174_4447_0630_2000_0060_0000; CROM[ 301] = 108'o1515_3445_0303_4174_4007_0700_0000_0000_0000; CROM[ 302] = 108'o0327_3770_0303_4324_0453_7700_0000_0041_0000; CROM[ 303] = 108'o0453_3551_1313_4374_0007_0700_0000_0000_2000; CROM[ 304] = 108'o1074_0551_0703_7274_4007_0701_0010_0000_0242; CROM[ 305] = 108'o2142_4553_0600_4374_4007_0321_0000_0010_0000; CROM[ 306] = 108'o0016_3770_0303_4324_0454_1700_0000_0041_0000; CROM[ 307] = 108'o0462_0441_0303_4174_4003_4701_4000_0000_0000; CROM[ 308] = 108'o3335_7771_0003_7274_4007_0701_0000_0000_0242; CROM[ 309] = 108'o2132_1553_0300_4374_4007_0532_4000_0000_0012; CROM[ 310] = 108'o0462_3447_0303_4174_4007_0700_1000_0041_0001; CROM[ 311] = 108'o0471_3447_0303_4174_4007_0700_2000_0011_0000; CROM[ 312] = 108'o3667_3741_0105_4074_4007_0700_0010_0000_0000; CROM[ 313] = 108'o0000_3443_0100_4174_4001_2700_0200_0014_0012; CROM[ 314] = 108'o0472_3446_1616_4174_4046_2630_2000_0060_0000; CROM[ 315] = 108'o0453_3221_0017_4174_4006_2700_0000_0000_0000; CROM[ 316] = 108'o3664_3771_0003_4374_0007_0700_0010_0000_0000; CROM[ 317] = 108'o2714_3441_0301_4174_4467_0700_0000_0000_0004; CROM[ 318] = 108'o2016_3551_1313_4374_0007_0700_0000_0000_2000; CROM[ 319] = 108'o2017_3551_1313_4374_0007_0700_0000_0000_2000; CROM[ 320] = 108'o1074_0551_0703_7274_4007_0701_0010_0000_0242; CROM[ 321] = 108'o0750_3441_0304_4174_4007_0520_0000_0000_0000; CROM[ 322] = 108'o0767_3441_0301_4174_4007_0700_0200_0014_0012; CROM[ 323] = 108'o1400_4223_0000_1174_4007_0700_0400_0000_1441; CROM[ 324] = 108'o3270_1771_0003_7274_4007_0701_4000_0000_0242; CROM[ 325] = 108'o3450_3771_0013_4370_4007_0700_0010_0000_0005; CROM[ 326] = 108'o1515_3333_0005_4175_5007_0701_0200_0000_0002; CROM[ 327] = 108'o0500_3771_0013_4370_4007_0700_0000_0000_0003; CROM[ 328] = 108'o3450_3771_0013_4370_4007_0700_0010_0000_0012; CROM[ 329] = 108'o1402_3771_0003_0270_6007_0700_0000_0000_0000; CROM[ 330] = 108'o1402_3771_0003_0276_0007_0700_0000_0000_0000; CROM[ 331] = 108'o2040_3333_0017_4174_4007_0520_1000_0031_0202; CROM[ 332] = 108'o0514_3445_0505_4174_4007_0520_1000_0041_0004; CROM[ 333] = 108'o1006_3777_0003_4334_4057_0700_0000_0041_0000; CROM[ 334] = 108'o3365_2551_0705_1274_4007_0701_4000_0000_1443; CROM[ 335] = 108'o0513_0222_0000_4174_4007_0700_4000_0000_0000; CROM[ 336] = 108'o0520_3444_0303_4174_4043_4701_1000_0041_1777; CROM[ 337] = 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; CROM[ 338] = 108'o0322_3333_0003_4174_4003_4701_0010_0000_0000; CROM[ 339] = 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; CROM[ 340] = 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; CROM[ 341] = 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; CROM[ 342] = 108'o0322_3446_0303_4174_4047_0700_1010_0041_0001; CROM[ 343] = 108'o2044_4553_1300_4374_4007_0321_0000_0000_2000; CROM[ 344] = 108'o3251_4002_0000_4174_0007_0700_0000_0000_0000; CROM[ 345] = 108'o0532_3333_0004_4175_5007_0701_0200_0000_0002; CROM[ 346] = 108'o0435_3443_0200_4174_4007_0700_0200_0003_0312; CROM[ 347] = 108'o3444_1111_0703_4174_4007_0700_4000_0000_0000; CROM[ 348] = 108'o0534_3446_0505_4174_4057_0630_2000_0060_0000; CROM[ 349] = 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; CROM[ 350] = 108'o3250_4221_0013_4174_4007_0700_0000_0000_0000; CROM[ 351] = 108'o1074_0551_0703_7274_4007_0701_0000_0000_0242; CROM[ 352] = 108'o2274_3333_0004_7174_4007_0520_0410_0000_0242; CROM[ 353] = 108'o0750_3441_0304_4174_4007_0520_0000_0000_0000; CROM[ 354] = 108'o3450_3771_0013_4370_4007_0700_0010_0000_0005; CROM[ 355] = 108'o0563_3442_0300_4174_4007_0700_2010_0071_0043; CROM[ 356] = 108'o0544_3444_0505_4174_4057_0630_2000_0060_0000; CROM[ 357] = 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; CROM[ 358] = 108'o3306_0551_0704_7274_4007_0701_0000_0000_0242; CROM[ 359] = 108'o2766_3445_0404_4174_4467_0700_0000_0005_0000; CROM[ 360] = 108'o3104_4443_0000_4174_4007_0700_1000_0031_0000; CROM[ 361] = 108'o1264_3446_0316_4174_4007_0520_2010_0071_0042; CROM[ 362] = 108'o3103_3770_0505_4344_4007_0700_0000_0000_0000; CROM[ 363] = 108'o3024_3224_0016_4174_4007_0700_0000_0000_0000; CROM[ 364] = 108'o1046_3772_0000_1275_5007_0701_0000_0000_1441; CROM[ 365] = 108'o0100_4443_0000_4174_4156_4700_0000_0000_0000; CROM[ 366] = 108'o3400_3333_0005_7174_4001_2700_0400_0000_0241; CROM[ 367] = 108'o2056_3333_0005_4174_4007_0530_0000_0000_0000; CROM[ 368] = 108'o0620_3771_0005_1276_6007_0701_0010_0000_1443; CROM[ 369] = 108'o2140_0551_0404_1274_4007_0562_0010_0000_1444; CROM[ 370] = 108'o2214_0111_0705_4174_4007_0700_0010_0000_0000; CROM[ 371] = 108'o3002_3446_1200_4174_4007_0700_0010_0000_0000; CROM[ 372] = 108'o1500_3111_0503_4174_4003_7700_0200_0003_0001; CROM[ 373] = 108'o0600_0551_0505_1274_4007_0701_0000_0000_1443; CROM[ 374] = 108'o3364_3333_0003_7174_4007_0700_0400_0000_0247; CROM[ 375] = 108'o0004_0113_0404_4174_4464_1701_0000_0001_0001; CROM[ 376] = 108'o0571_3771_0003_4374_4007_0700_0000_0000_0000; CROM[ 377] = 108'o0370_3333_0005_7174_4007_0700_0410_0000_0226; CROM[ 378] = 108'o1515_3445_0303_4174_4007_0700_1020_0041_0001; CROM[ 379] = 108'o3143_3772_0000_4374_0007_0700_0000_0000_0000; CROM[ 380] = 108'o0500_3771_0013_4370_4007_0700_0000_0000_0003; CROM[ 381] = 108'o3265_3771_0005_1276_6007_0701_0000_0000_1444; CROM[ 382] = 108'o3305_3441_0304_4174_4007_0700_0000_0000_0000; CROM[ 383] = 108'o0630_3771_0004_1276_6007_0522_0000_0000_1443; CROM[ 384] = 108'o0621_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 385] = 108'o2140_0111_0304_4174_4007_0561_0010_0000_0000; CROM[ 386] = 108'o0602_3445_0303_4174_4007_0630_2000_0060_0000; CROM[ 387] = 108'o3772_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 388] = 108'o0340_3333_0003_4174_4006_5701_1010_0051_0770; CROM[ 389] = 108'o3333_3440_0404_1174_4007_0700_0400_0000_1444; CROM[ 390] = 108'o0555_3440_0303_0174_4467_0700_0400_0005_0000; CROM[ 391] = 108'o1000_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 392] = 108'o3256_4111_0004_4174_4007_0700_0010_0000_0000; CROM[ 393] = 108'o1515_3447_0303_4174_4007_0700_1020_0041_0001; CROM[ 394] = 108'o3253_6111_0004_4174_4007_0700_0000_0000_0000; CROM[ 395] = 108'o2050_2441_0404_4174_4007_0561_4000_0000_0000; CROM[ 396] = 108'o0634_3447_0505_4174_4007_0700_2000_0041_1776; CROM[ 397] = 108'o0624_3447_0505_4174_4007_0700_2000_0031_1776; CROM[ 398] = 108'o3330_3771_0013_4370_4007_0700_0000_0000_0007; CROM[ 399] = 108'o0616_3551_0606_4374_0007_0700_0000_0040_0000; CROM[ 400] = 108'o0621_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 401] = 108'o0622_0111_0505_4174_4007_0700_0000_0000_0000; CROM[ 402] = 108'o2140_0111_0404_4174_4007_0561_0010_0000_0000; CROM[ 403] = 108'o3001_3447_0606_4174_4007_0700_2010_0071_0043; CROM[ 404] = 108'o0624_3446_0505_4174_4047_0630_2000_0060_0000; CROM[ 405] = 108'o1053_3444_0505_4174_4047_0700_0000_0000_0000; CROM[ 406] = 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 407] = 108'o0730_3442_0300_4174_4007_0700_2000_0071_0043; CROM[ 408] = 108'o3274_3771_0003_1276_6007_0701_0000_0000_1441; CROM[ 409] = 108'o2263_3771_0013_4370_4007_0700_0010_0000_0006; CROM[ 410] = 108'o0454_3777_0003_0274_4007_0631_2000_0060_0000; CROM[ 411] = 108'o3306_0551_0704_7274_4007_0701_0000_0000_0242; CROM[ 412] = 108'o0634_3444_0505_4174_4447_0630_2000_0060_0000; CROM[ 413] = 108'o1053_3444_0505_4174_4447_0700_0000_0000_0000; CROM[ 414] = 108'o2206_3333_0003_4174_4007_0700_0200_0004_0012; CROM[ 415] = 108'o0510_3333_0004_7174_4007_0700_0400_0000_0250; CROM[ 416] = 108'o2157_3440_0606_1174_4007_0700_0400_0000_1443; CROM[ 417] = 108'o3450_3333_0005_7174_4007_0700_0410_0000_0242; CROM[ 418] = 108'o1064_4662_0000_4374_0007_0700_0000_0037_7777; CROM[ 419] = 108'o1064_3662_0000_4374_0007_0700_0000_0040_0000; CROM[ 420] = 108'o0644_3446_0505_4174_4077_0630_2000_0060_0000; CROM[ 421] = 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; CROM[ 422] = 108'o0701_3447_0303_4174_4007_0700_0000_0000_0000; CROM[ 423] = 108'o3362_2551_0705_1274_4007_0701_4000_0000_1443; CROM[ 424] = 108'o3274_3441_0503_4174_4007_0700_0000_0000_0000; CROM[ 425] = 108'o3275_7771_0003_7274_4007_0701_0000_0000_0242; CROM[ 426] = 108'o3276_3770_0503_4334_4017_0700_0000_0032_6000; CROM[ 427] = 108'o3275_7771_0003_7274_4007_0701_0000_0000_0242; CROM[ 428] = 108'o2226_3770_0303_4344_4007_0700_2000_0071_0007; CROM[ 429] = 108'o2227_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 430] = 108'o2226_3447_0303_4174_4007_0700_2000_0071_0006; CROM[ 431] = 108'o3403_4551_0303_4374_4007_0700_0000_0000_0777; CROM[ 432] = 108'o0370_3771_0003_4374_4007_0700_0010_0000_0000; CROM[ 433] = 108'o2232_1553_0300_4374_4007_0532_4000_0000_0005; CROM[ 434] = 108'o3135_3223_0000_7174_4007_0700_0400_0000_0224; CROM[ 435] = 108'o2250_3333_0006_4174_4007_0520_0000_0000_0000; CROM[ 436] = 108'o0370_3771_0003_4374_4007_0700_0010_0000_0000; CROM[ 437] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 438] = 108'o3141_3333_0003_7174_4007_0700_0400_0000_0225; CROM[ 439] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 440] = 108'o1334_3333_0005_4174_4007_0520_0000_0000_0000; CROM[ 441] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 442] = 108'o3172_3441_0304_4174_4007_0700_0000_0000_0000; CROM[ 443] = 108'o2254_4553_0600_4374_4007_0321_0000_0010_0000; CROM[ 444] = 108'o0555_4443_0000_4174_4467_0700_0000_0041_1000; CROM[ 445] = 108'o2254_4553_0600_4374_4007_0321_0000_0020_0000; CROM[ 446] = 108'o0720_4443_0000_4174_4006_7701_2000_0041_1544; CROM[ 447] = 108'o2254_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 448] = 108'o3443_0551_0303_7274_4007_0700_0010_0000_0241; CROM[ 449] = 108'o0706_3447_0303_4174_4037_0700_1020_0041_0001; CROM[ 450] = 108'o2244_3333_0003_4174_4007_0621_0000_0000_0000; CROM[ 451] = 108'o0246_3771_0013_4370_4007_0700_0000_0000_0011; CROM[ 452] = 108'o3404_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 453] = 108'o3450_3771_0013_4370_4007_0700_0010_0000_0013; CROM[ 454] = 108'o0455_3445_0303_4174_4007_0700_0000_0000_0000; CROM[ 455] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 456] = 108'o3404_0111_0701_4174_4007_0700_0000_0000_0000; CROM[ 457] = 108'o2240_3771_0013_4370_4007_0700_0000_0000_0011; CROM[ 458] = 108'o0006_3333_0006_4174_4007_0520_0000_0000_0000; CROM[ 459] = 108'o3423_4551_0606_4374_0007_0700_0000_0007_7777; CROM[ 460] = 108'o0715_3771_0005_1276_6007_0701_0000_0000_1443; CROM[ 461] = 108'o2236_3443_0500_4174_4007_0700_0200_0004_0012; CROM[ 462] = 108'o3442_3447_0303_4174_4007_0700_0000_0000_0000; CROM[ 463] = 108'o3440_3770_0303_7174_0007_0700_0000_0000_0241; CROM[ 464] = 108'o1370_4443_0000_4174_4007_0630_2000_0060_0000; CROM[ 465] = 108'o2270_3333_0006_4174_4007_0520_0000_0000_0000; CROM[ 466] = 108'o3210_4443_0000_4174_4007_0700_2000_0031_0232; CROM[ 467] = 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; CROM[ 468] = 108'o1264_4222_0000_4174_4007_0700_2010_0071_0032; CROM[ 469] = 108'o0721_5551_0606_4374_0007_0700_0000_0010_0000; CROM[ 470] = 108'o1054_3221_0016_4174_4007_0700_2000_0071_0043; CROM[ 471] = 108'o0721_3551_0606_4374_0007_0700_0000_0010_0000; CROM[ 472] = 108'o3002_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 473] = 108'o0721_3551_0606_4374_0007_0700_0000_0020_0000; CROM[ 474] = 108'o3002_3442_0500_4174_4007_0700_2010_0071_0043; CROM[ 475] = 108'o0004_3551_0606_4374_0004_1700_0000_0020_0000; CROM[ 476] = 108'o3233_3441_0416_4174_4007_0700_0000_0000_0000; CROM[ 477] = 108'o0731_5551_0606_4374_0007_0700_0000_0010_0000; CROM[ 478] = 108'o3235_3221_0017_4174_4007_0700_0000_0000_0000; CROM[ 479] = 108'o0721_3551_0606_4374_0007_0700_0000_0030_0000; CROM[ 480] = 108'o3450_3551_1313_4370_4007_0700_0010_0000_0012; CROM[ 481] = 108'o3416_3551_0606_4374_0007_0700_0000_0040_0000; CROM[ 482] = 108'o0742_3444_0505_4174_4077_0630_2000_0060_0000; CROM[ 483] = 108'o1033_3444_0505_4174_4007_0700_0000_0000_0000; CROM[ 484] = 108'o0250_3440_0303_0174_4003_7700_0400_0000_0000; CROM[ 485] = 108'o0250_4443_0000_4174_4003_7700_0000_0000_0000; CROM[ 486] = 108'o3416_3551_0606_4374_0007_0700_0000_0040_0000; CROM[ 487] = 108'o0752_3447_0303_4174_4007_0700_0000_0000_0000; CROM[ 488] = 108'o3307_4223_0000_1174_4007_0700_0400_0000_1443; CROM[ 489] = 108'o2263_3771_0013_4370_4007_0700_0010_0000_0004; CROM[ 490] = 108'o0706_3445_0303_4174_4037_0700_1020_0041_0001; CROM[ 491] = 108'o2147_3440_0606_0174_4007_0700_0400_0000_0000; CROM[ 492] = 108'o0533_3771_0003_1276_6003_7701_0000_0000_1443; CROM[ 493] = 108'o2271_3551_0606_4374_0007_0700_0000_0040_0000; CROM[ 494] = 108'o0002_3771_0003_7274_4004_1701_0000_0000_0244; CROM[ 495] = 108'o0003_3771_0003_1276_6004_1701_0000_0000_1444; CROM[ 496] = 108'o3450_3771_0013_4370_4007_0700_0010_0000_0012; CROM[ 497] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 498] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 499] = 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; CROM[ 500] = 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; CROM[ 501] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 502] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 503] = 108'o0514_4443_0000_4174_4007_0700_1000_0071_1764; CROM[ 504] = 108'o0770_3773_0000_4074_4003_1701_0000_0000_0000; CROM[ 505] = 108'o3622_3551_1414_4370_4007_0700_0000_0004_0000; CROM[ 506] = 108'o3623_3551_1414_4370_4007_0700_0000_0002_0000; CROM[ 507] = 108'o3624_3551_1414_4370_4007_0700_0000_0001_0000; CROM[ 508] = 108'o3625_3551_1414_4370_4007_0700_0000_0000_4000; CROM[ 509] = 108'o3626_3551_1414_4370_4007_0700_0000_0000_2000; CROM[ 510] = 108'o3627_3551_1414_4370_4007_0700_0000_0000_1000; CROM[ 511] = 108'o3630_3551_1414_4370_4007_0700_0000_0000_0400; CROM[ 512] = 108'o3767_4443_0000_4174_4007_0700_2010_0071_0007; CROM[ 513] = 108'o2552_4553_0300_4374_4007_0321_0000_0000_0077; CROM[ 514] = 108'o2550_0551_0303_7274_4007_0701_0000_0000_0215; CROM[ 515] = 108'o3772_0551_0303_7274_4007_0701_0010_0000_0215; CROM[ 516] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 517] = 108'o2601_3441_0301_4174_4007_0700_0000_0000_0000; CROM[ 518] = 108'o1023_4251_0303_4374_4007_0700_0000_0000_0077; CROM[ 519] = 108'o2546_4553_0300_4374_4007_0321_0000_0000_0077; CROM[ 520] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 521] = 108'o0303_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 522] = 108'o3002_3442_0300_4174_4007_0700_2010_0071_0043; CROM[ 523] = 108'o3647_3551_0505_0274_4007_0700_0000_0000_0000; CROM[ 524] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 525] = 108'o0060_4521_1205_4074_4007_0700_0000_0000_0000; CROM[ 526] = 108'o0243_3446_0403_4174_4007_0700_1000_0041_1576; CROM[ 527] = 108'o3647_5551_0505_0274_4007_0700_0000_0000_0000; CROM[ 528] = 108'o2275_3771_0013_4370_4007_0700_0010_0000_0011; CROM[ 529] = 108'o2120_3333_0004_4174_4007_0520_0000_0000_0000; CROM[ 530] = 108'o3312_3333_0003_7174_4007_0700_0400_0000_0245; CROM[ 531] = 108'o0100_3440_0303_1174_4156_4700_0400_0000_1441; CROM[ 532] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 533] = 108'o2715_3443_0300_4174_4007_0700_0200_0003_0012; CROM[ 534] = 108'o0534_4443_0000_4174_4007_0630_2000_0060_0000; CROM[ 535] = 108'o2442_4553_0300_4374_4007_0331_0000_0000_0001; CROM[ 536] = 108'o2122_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 537] = 108'o3315_3771_0003_7274_4007_0701_0000_0000_0244; CROM[ 538] = 108'o3315_3440_0404_1174_4007_0700_0400_0000_1443; CROM[ 539] = 108'o1036_3444_0505_4174_4007_0700_0000_0000_0000; CROM[ 540] = 108'o2716_3441_0302_4174_4617_0700_0000_0000_0100; CROM[ 541] = 108'o1034_3333_0002_4174_4167_0700_0000_0000_0000; CROM[ 542] = 108'o1064_3440_0505_0174_4007_0700_0400_0000_0000; CROM[ 543] = 108'o0003_3441_0503_4174_4004_1700_0000_0000_0000; CROM[ 544] = 108'o2642_3771_0003_7274_4007_0622_0010_0000_0423; CROM[ 545] = 108'o2642_3771_0003_7274_4007_0622_0010_0000_0424; CROM[ 546] = 108'o1047_3333_0004_7174_4007_0700_0400_0000_0423; CROM[ 547] = 108'o1047_3333_0004_7174_4007_0700_0400_0000_0424; CROM[ 548] = 108'o0220_3333_0005_4175_5003_7701_0200_0000_0002; CROM[ 549] = 108'o2720_3333_0005_4175_5007_0701_0200_0000_0002; CROM[ 550] = 108'o0614_3776_0005_0274_4007_0631_0000_0000_0000; CROM[ 551] = 108'o1130_0113_0405_4174_4007_0700_0200_0024_1016; CROM[ 552] = 108'o0560_3771_0004_1276_6007_0701_0010_0000_1444; CROM[ 553] = 108'o3331_3771_0005_1276_6007_0701_0000_0000_1444; CROM[ 554] = 108'o0460_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 555] = 108'o0642_0113_0505_0174_4007_0521_0400_0000_0000; CROM[ 556] = 108'o1264_5002_0000_4174_4007_0621_0010_0000_0000; CROM[ 557] = 108'o2466_3771_0004_2274_4007_0120_0000_0000_0000; CROM[ 558] = 108'o3247_3446_1200_4174_4007_0700_0000_0000_0000; CROM[ 559] = 108'o0001_3771_0003_7274_4124_1701_0000_0000_0422; CROM[ 560] = 108'o1060_3773_0000_4304_4003_1702_0000_0000_0000; CROM[ 561] = 108'o1503_3333_0005_7174_4007_0700_0400_0000_0213; CROM[ 562] = 108'o3556_4553_0500_4374_4007_0321_0010_0076_0740; CROM[ 563] = 108'o3724_3771_0006_4374_4007_0700_0000_0000_0000; CROM[ 564] = 108'o0100_3223_0000_1174_4156_4700_0400_0000_1441; CROM[ 565] = 108'o1501_4571_1206_4374_4007_0700_0000_0037_0000; CROM[ 566] = 108'o3257_4521_0206_4374_4007_0700_0000_0000_0740; CROM[ 567] = 108'o1501_4571_1206_4374_4007_0700_0000_0037_0000; CROM[ 568] = 108'o3727_3333_0005_7174_4007_0700_0400_0000_0213; CROM[ 569] = 108'o1503_3333_0005_7174_4007_0700_0400_0000_0213; CROM[ 570] = 108'o3727_3333_0005_7174_4007_0700_0400_0000_0213; CROM[ 571] = 108'o3727_3333_0005_7174_4007_0700_0400_0000_0213; CROM[ 572] = 108'o2274_3333_0003_7174_4007_0520_0410_0000_0242; CROM[ 573] = 108'o0001_4221_0013_4170_4004_1700_0000_0000_0000; CROM[ 574] = 108'o0716_4443_0000_7174_4003_7700_0000_0000_0241; CROM[ 575] = 108'o0644_4443_0000_4174_4007_0630_2000_0060_0000; CROM[ 576] = 108'o2702_4221_0013_4170_4007_0370_0000_0000_0000; CROM[ 577] = 108'o3167_3771_0003_7274_4007_0701_0000_0000_0212; CROM[ 578] = 108'o1562_0111_0701_4174_4007_0700_0000_0000_0000; CROM[ 579] = 108'o3463_3771_0013_4370_4007_0700_0000_0000_0011; CROM[ 580] = 108'o3463_3771_0013_4370_4007_0700_0000_0000_0012; CROM[ 581] = 108'o2310_3771_0013_4370_4007_0700_0000_0000_0003; CROM[ 582] = 108'o3472_3771_0013_4370_4007_0700_0000_0000_0012; CROM[ 583] = 108'o3467_3771_0013_4370_4007_0700_0000_0000_0011; CROM[ 584] = 108'o3461_3771_0013_4370_4007_0700_0000_0000_0011; CROM[ 585] = 108'o2302_4221_0013_4170_4007_0700_0000_0000_0000; CROM[ 586] = 108'o2310_4221_0013_4170_4007_0700_0000_0000_0000; CROM[ 587] = 108'o2310_3771_0013_4370_4007_0700_0000_0000_0011; CROM[ 588] = 108'o3661_0111_0702_4170_4007_0700_0210_0004_0012; CROM[ 589] = 108'o3572_4551_0404_4370_4007_0700_0010_0077_0000; CROM[ 590] = 108'o1123_4551_0303_0274_4007_0700_0000_0000_0000; CROM[ 591] = 108'o1400_3333_0004_7174_4007_0700_0400_0000_0301; CROM[ 592] = 108'o3561_3771_0003_7274_4117_0700_0010_0000_0301; CROM[ 593] = 108'o3577_3333_0002_4174_4007_0700_0200_0003_0012; CROM[ 594] = 108'o1764_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 595] = 108'o0014_3440_0303_0174_4007_0700_0400_0000_0000; CROM[ 596] = 108'o3657_3333_0016_7174_4127_0700_0400_0000_0210; CROM[ 597] = 108'o1124_4443_0000_4174_4006_7653_2000_0060_0000; CROM[ 598] = 108'o3657_3333_0016_7174_4127_0700_0400_0000_0210; CROM[ 599] = 108'o2473_3333_0016_7174_4007_0700_0400_0000_0210; CROM[ 600] = 108'o3767_3771_0003_4365_5007_0700_0210_0000_0002; CROM[ 601] = 108'o1134_4553_0300_4374_4007_0321_0000_0000_0077; CROM[ 602] = 108'o2561_0551_0303_7274_4007_0701_0000_0000_0215; CROM[ 603] = 108'o2566_3770_0305_4344_4007_0670_0000_0000_0000; CROM[ 604] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[ 605] = 108'o2622_4251_0304_4374_4007_0700_0010_0000_3777; CROM[ 606] = 108'o1143_4443_0000_4174_4007_0700_0200_0003_0002; CROM[ 607] = 108'o3737_3551_0606_4374_0007_0700_0000_0010_0000; CROM[ 608] = 108'o3561_3771_0003_7274_4117_0701_0010_0000_0301; CROM[ 609] = 108'o2673_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 610] = 108'o1507_4223_0000_4364_4277_0700_0200_0000_0010; CROM[ 611] = 108'o1477_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 612] = 108'o2724_3443_0300_4174_4007_0700_0200_0003_0312; CROM[ 613] = 108'o2723_3443_0300_4174_4007_0700_0200_0003_0312; CROM[ 614] = 108'o1147_4443_0000_4174_4467_0700_0000_0001_2000; CROM[ 615] = 108'o0221_3771_0001_4361_5007_0700_0200_0000_0002; CROM[ 616] = 108'o1152_0113_0503_0174_4407_0521_0400_0000_0000; CROM[ 617] = 108'o1154_0113_0503_0174_4407_0521_0400_0000_0000; CROM[ 618] = 108'o0100_4443_0000_4174_4156_4700_0000_0000_0000; CROM[ 619] = 108'o0555_4443_0000_4174_4467_0700_0000_0001_2000; CROM[ 620] = 108'o0555_4443_0000_4174_4467_0700_0000_0001_2000; CROM[ 621] = 108'o0100_4443_0000_4174_4156_4700_0000_0000_0000; CROM[ 622] = 108'o1510_0111_1104_4174_4007_0700_0010_0000_0000; CROM[ 623] = 108'o1160_3333_0010_4174_4007_0520_0000_0000_0000; CROM[ 624] = 108'o0310_3333_0004_4174_4007_0700_0200_0021_1016; CROM[ 625] = 108'o1162_3770_0203_4344_4007_0700_0000_0000_0000; CROM[ 626] = 108'o2745_4521_1203_4074_0007_0700_0010_0000_0000; CROM[ 627] = 108'o0314_3333_0004_4174_4007_0700_0200_0021_1016; CROM[ 628] = 108'o1165_3551_0505_4370_4007_0700_0000_0000_0001; CROM[ 629] = 108'o1166_4553_0300_4374_4007_0321_0000_0001_0000; CROM[ 630] = 108'o1167_3551_0505_4370_4007_0700_0000_0000_0004; CROM[ 631] = 108'o2743_3333_0005_4174_4007_0700_0200_0024_1016; CROM[ 632] = 108'o2753_0551_0303_0274_4467_0702_4000_0001_0001; CROM[ 633] = 108'o2752_7441_1205_4174_4007_0700_0000_0000_0000; CROM[ 634] = 108'o2753_2551_0303_0274_4467_0702_0000_0001_0001; CROM[ 635] = 108'o2753_2551_0303_0274_4467_0702_4000_0001_0001; CROM[ 636] = 108'o1404_4551_0404_4374_0007_0700_0000_0037_7777; CROM[ 637] = 108'o1404_3551_0404_4374_0007_0700_0000_0040_0000; CROM[ 638] = 108'o2755_3445_0404_4174_4007_0700_0000_0000_0000; CROM[ 639] = 108'o1500_3221_0003_4174_4003_7700_0200_0003_0001; CROM[ 640] = 108'o1202_3770_0404_4174_0007_0520_0000_0000_0000; CROM[ 641] = 108'o1500_7001_0003_4174_4003_7700_0200_0003_0001; CROM[ 642] = 108'o1404_3221_0003_4174_4467_0700_0000_0041_1000; CROM[ 643] = 108'o1404_7001_0003_4174_4467_0700_0000_0041_1000; CROM[ 644] = 108'o1500_4001_0004_4174_4003_7700_0200_0003_0001; CROM[ 645] = 108'o1206_4113_0616_4174_4007_0520_0000_0000_0000; CROM[ 646] = 108'o1500_7001_0004_4174_4003_7700_0200_0003_0001; CROM[ 647] = 108'o1404_7001_0004_4174_4467_0700_0000_0041_1000; CROM[ 648] = 108'o2773_3223_0000_1174_4007_0700_0400_0000_1441; CROM[ 649] = 108'o2767_7003_0000_1174_4007_0700_0400_0000_1441; CROM[ 650] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 651] = 108'o1400_4443_0000_4174_4467_0700_0000_0041_1000; CROM[ 652] = 108'o0161_4221_0003_4174_4007_0700_0000_0000_0000; CROM[ 653] = 108'o0161_2441_0703_4174_4007_0700_4000_0000_0000; CROM[ 654] = 108'o3007_3441_0306_4174_4007_0700_0000_0000_0000; CROM[ 655] = 108'o0164_3333_0005_4174_4007_0621_0000_0000_0000; CROM[ 656] = 108'o1222_2113_0305_4174_4007_0521_4000_0000_0000; CROM[ 657] = 108'o1222_0113_0305_4174_4007_0521_0000_0000_0000; CROM[ 658] = 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; CROM[ 659] = 108'o0161_3441_0603_4174_4007_0700_0000_0000_0000; CROM[ 660] = 108'o1230_3446_0505_4174_4007_0700_0000_0000_0000; CROM[ 661] = 108'o1226_3446_0505_4174_4007_0520_0000_0000_0000; CROM[ 662] = 108'o1230_4003_0000_4174_4007_0621_0000_0000_0000; CROM[ 663] = 108'o3012_4751_1217_4374_4007_0700_0000_0000_0005; CROM[ 664] = 108'o3015_3446_0505_4174_4047_0700_0000_0000_0000; CROM[ 665] = 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; CROM[ 666] = 108'o3042_3446_0303_4174_4007_0700_0010_0000_0000; CROM[ 667] = 108'o1234_2113_0305_4174_4007_0521_4000_0000_0000; CROM[ 668] = 108'o1236_2113_0305_4174_4007_0620_4000_0000_0000; CROM[ 669] = 108'o3020_3221_0004_4174_4007_0700_0000_0000_0000; CROM[ 670] = 108'o0033_3333_0017_4174_4003_5701_0000_0000_0000; CROM[ 671] = 108'o1240_1003_0600_4174_4007_0521_4000_0000_0000; CROM[ 672] = 108'o0033_3333_0017_4174_4003_5701_0000_0000_0000; CROM[ 673] = 108'o3020_3221_0004_4174_4007_0700_0000_0000_0000; CROM[ 674] = 108'o3042_3442_0400_4174_4007_0700_0010_0000_0000; CROM[ 675] = 108'o3023_3221_0004_4174_4007_0700_0000_0000_0000; CROM[ 676] = 108'o3030_3440_1616_1174_4007_0700_0400_0000_1441; CROM[ 677] = 108'o3032_4223_0000_1174_4007_0700_0400_0000_1441; CROM[ 678] = 108'o3036_3442_0400_4174_4007_0700_0000_0000_0000; CROM[ 679] = 108'o3033_0112_0406_4174_4007_0700_0000_0000_0000; CROM[ 680] = 108'o0100_4003_0000_1174_4156_4700_0400_0000_1443; CROM[ 681] = 108'o3041_4002_0000_1174_4007_0700_0000_0000_1443; CROM[ 682] = 108'o3045_4221_0004_4174_4007_0700_0000_0000_0000; CROM[ 683] = 108'o1254_2222_0000_4174_4007_0621_4000_0000_0000; CROM[ 684] = 108'o3044_7441_0303_4174_4007_0700_0000_0000_0000; CROM[ 685] = 108'o3044_2441_0303_4174_4007_0700_4000_0000_0000; CROM[ 686] = 108'o3047_3446_0303_4174_4007_0700_0000_0000_0000; CROM[ 687] = 108'o3046_2441_0505_4174_4007_0700_4000_0000_0000; CROM[ 688] = 108'o1260_0114_0503_4174_4067_0630_2100_0060_0000; CROM[ 689] = 108'o3053_3444_1717_4174_4067_0700_0100_0000_0000; CROM[ 690] = 108'o3054_3444_0303_4174_4007_0700_0000_0000_0000; CROM[ 691] = 108'o1262_0111_0503_4174_4007_0700_0000_0000_0000; CROM[ 692] = 108'o3057_1114_0604_4174_4057_0700_4000_0000_0000; CROM[ 693] = 108'o3057_0114_0604_4174_4057_0700_0000_0000_0000; CROM[ 694] = 108'o3057_0114_0604_4174_4067_0700_0100_0000_0000; CROM[ 695] = 108'o0002_4444_0002_4174_4064_1700_0100_0000_0000; CROM[ 696] = 108'o3064_7772_0000_1274_4007_0701_0000_0000_1442; CROM[ 697] = 108'o3062_1772_0000_1274_4007_0701_4000_0000_1442; CROM[ 698] = 108'o3065_7772_0000_1274_4007_0701_0000_0000_1441; CROM[ 699] = 108'o3063_1772_0000_1274_4007_0701_4000_0000_1441; CROM[ 700] = 108'o3066_7771_0003_0274_4007_0700_0000_0000_0000; CROM[ 701] = 108'o3066_1771_0003_0274_4007_0701_4000_0000_0000; CROM[ 702] = 108'o2220_7441_0303_4174_4467_0700_0000_0001_0001; CROM[ 703] = 108'o2220_2441_0303_4174_4467_0701_4000_0001_0001; CROM[ 704] = 108'o2220_7441_0303_4174_4007_0700_0000_0000_0000; CROM[ 705] = 108'o2220_2441_0303_4174_4007_0700_4000_0000_0000; CROM[ 706] = 108'o1302_3447_0404_4174_4007_0630_2000_0060_0000; CROM[ 707] = 108'o3130_4557_0404_4374_4007_0701_0000_0000_0176; CROM[ 708] = 108'o1304_3447_0505_4174_4007_0630_2000_0060_0000; CROM[ 709] = 108'o1306_3333_0005_7174_4007_0621_0400_0000_0222; CROM[ 710] = 108'o0660_3442_0400_4174_4007_0700_2000_0071_0042; CROM[ 711] = 108'o1404_3771_0003_7274_4007_0701_0000_0000_0223; CROM[ 712] = 108'o0570_0662_0000_0274_4007_0522_2000_0071_0042; CROM[ 713] = 108'o0555_4443_0000_4174_4467_0700_0000_0051_1000; CROM[ 714] = 108'o3145_0661_0005_7274_4407_0701_0000_0000_0223; CROM[ 715] = 108'o3144_1002_0700_4170_4007_0700_4000_0000_0000; CROM[ 716] = 108'o1314_3445_0303_4174_4007_0630_2000_0060_0000; CROM[ 717] = 108'o3152_4551_0505_4374_0007_0700_0000_0000_7777; CROM[ 718] = 108'o3663_3443_0400_4174_4007_0700_0210_0004_0712; CROM[ 719] = 108'o3154_4221_0006_4174_0007_0700_0000_0000_0000; CROM[ 720] = 108'o3164_3443_0600_4174_4007_0700_0200_0003_0312; CROM[ 721] = 108'o3162_3443_0600_4174_4007_0700_0200_0003_0312; CROM[ 722] = 108'o3165_4443_0000_4174_4007_0700_0000_0000_0000; CROM[ 723] = 108'o1324_2113_0603_4174_4007_0521_4000_0000_0000; CROM[ 724] = 108'o1400_4221_0013_4170_4007_0700_0000_0000_0000; CROM[ 725] = 108'o1326_0111_0704_4174_4007_0370_0000_0000_0000; CROM[ 726] = 108'o3162_0111_0706_4170_4007_0700_0200_0003_0312; CROM[ 727] = 108'o3164_0111_0706_4170_4007_0700_0200_0003_0312; CROM[ 728] = 108'o1400_4221_0013_4170_4007_0700_0000_0000_0000; CROM[ 729] = 108'o3166_0111_0706_4174_4007_0700_0000_0000_0000; CROM[ 730] = 108'o3175_4551_0303_4374_0007_0700_0000_0000_0777; CROM[ 731] = 108'o3175_3551_0303_4374_0007_0700_0000_0077_7000; CROM[ 732] = 108'o3175_4551_0505_4374_0007_0700_0000_0000_0777; CROM[ 733] = 108'o3175_3551_0505_4374_0007_0700_0000_0077_7000; CROM[ 734] = 108'o1336_3446_0505_4174_4047_0630_2000_0060_0000; CROM[ 735] = 108'o0420_0111_0503_4174_4003_4701_0000_0000_0000; CROM[ 736] = 108'o3176_4551_0606_4374_0007_0700_0000_0000_0777; CROM[ 737] = 108'o3176_3551_0606_4374_0007_0700_0000_0077_7000; CROM[ 738] = 108'o1344_3771_0003_0276_6007_0520_1000_0030_2000; CROM[ 739] = 108'o0555_4443_0000_4174_4467_0700_0000_0071_1000; CROM[ 740] = 108'o3201_4551_0303_4374_0007_0700_0000_0000_0777; CROM[ 741] = 108'o3202_3551_0303_4374_0007_0700_0000_0077_7000; CROM[ 742] = 108'o1350_2113_0406_4174_4007_0311_4000_0000_0000; CROM[ 743] = 108'o1346_2445_0506_4174_4007_0700_4000_0000_0000; CROM[ 744] = 108'o1352_3447_0606_4174_4007_0700_0000_0000_0000; CROM[ 745] = 108'o0555_4443_0000_4174_4467_0700_0000_0071_1000; CROM[ 746] = 108'o3665_3445_0303_4174_4007_0700_0010_0000_0000; CROM[ 747] = 108'o0144_2113_0604_4174_4007_0421_4000_0000_0000; CROM[ 748] = 108'o1356_2441_0305_4174_4007_0521_4000_0000_0000; CROM[ 749] = 108'o1363_4222_0000_4174_4007_0700_1000_0071_0233; CROM[ 750] = 108'o1360_4553_0500_4374_4007_0321_0000_0077_7000; CROM[ 751] = 108'o3205_4222_0000_4174_4007_0700_1000_0071_0244; CROM[ 752] = 108'o3205_4222_0000_4174_4007_0700_1000_0071_0244; CROM[ 753] = 108'o1363_4222_0000_4174_4007_0700_1000_0071_0233; CROM[ 754] = 108'o1362_3446_0303_4174_4047_0630_2000_0060_0000; CROM[ 755] = 108'o0420_3333_0003_4174_4003_4701_0000_0000_0000; CROM[ 756] = 108'o1363_4551_0303_4374_0007_0700_0000_0000_0777; CROM[ 757] = 108'o1363_3551_0303_4374_0007_0700_0000_0077_7000; CROM[ 758] = 108'o1366_3446_0303_4174_4047_0630_2000_0060_0000; CROM[ 759] = 108'o0063_3447_0705_4174_4003_7700_0000_0000_0000; CROM[ 760] = 108'o1370_3445_0303_4174_4007_0630_2000_0060_0000; CROM[ 761] = 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; CROM[ 762] = 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; CROM[ 763] = 108'o1374_3223_0000_4174_4007_0621_0000_0000_0000; CROM[ 764] = 108'o1514_0111_0703_4174_4003_7700_0200_0003_0001; CROM[ 765] = 108'o0073_7441_1205_4174_4007_0700_0000_0000_0000; CROM[ 766] = 108'o0420_3444_0303_4174_4063_4701_1000_0041_1777; CROM[ 767] = 108'o1514_4443_0000_4174_4003_7700_0200_0003_0001; CROM[ 768] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[ 769] = 108'o0110_0111_0701_4170_4156_4700_0200_0014_0012; CROM[ 770] = 108'o1500_3770_0303_4344_4003_7700_0200_0003_0001; CROM[ 771] = 108'o1404_3333_0003_4174_4007_0520_0000_0000_0000; CROM[ 772] = 108'o1500_4443_0000_4174_4003_7700_0200_0003_0001; CROM[ 773] = 108'o1404_2441_0303_4174_4467_0701_4000_0001_0001; CROM[ 774] = 108'o0506_3771_0005_0276_6007_0700_0200_0003_0002; CROM[ 775] = 108'o1500_3771_0003_0276_0003_7700_0200_0003_0001; CROM[ 776] = 108'o1500_3771_0003_0270_6003_7700_0200_0003_0001; CROM[ 777] = 108'o1410_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 778] = 108'o1407_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 779] = 108'o0511_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 780] = 108'o1500_3770_0303_4344_0003_7700_0200_0003_0001; CROM[ 781] = 108'o0512_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 782] = 108'o1500_3770_0303_4340_4003_7700_0200_0003_0001; CROM[ 783] = 108'o1420_3333_0003_4174_4007_0530_0000_0000_0000; CROM[ 784] = 108'o1500_5731_0003_4174_4003_7700_0200_0003_0001; CROM[ 785] = 108'o1500_5431_1203_4174_4003_7700_0200_0003_0001; CROM[ 786] = 108'o1424_3333_0003_4174_4007_0530_0000_0000_0000; CROM[ 787] = 108'o1426_3333_0003_4174_4007_0520_0000_0000_0000; CROM[ 788] = 108'o1402_3771_0003_4374_0007_0700_0000_0000_0000; CROM[ 789] = 108'o1402_3771_0003_4374_0007_0700_0000_0077_7777; CROM[ 790] = 108'o1402_3771_0003_4370_4007_0700_0000_0000_0000; CROM[ 791] = 108'o1402_3771_0003_4370_4007_0700_0000_0077_7777; CROM[ 792] = 108'o1432_3333_0003_4174_4007_0520_0000_0000_0000; CROM[ 793] = 108'o1136_0111_0703_4174_4467_0701_0000_0001_0001; CROM[ 794] = 108'o1500_5371_0003_4174_4003_7700_0200_0003_0001; CROM[ 795] = 108'o1500_5341_1203_4174_4003_7700_0200_0003_0001; CROM[ 796] = 108'o3070_4551_0404_4374_0007_0700_0010_0037_7777; CROM[ 797] = 108'o2660_4553_0400_4374_4007_0331_0000_0002_0000; CROM[ 798] = 108'o1515_3440_0404_1174_4007_0700_0400_0000_1441; CROM[ 799] = 108'o1136_1111_0703_4174_4467_0701_4000_0001_0001; CROM[ 800] = 108'o0270_3771_0005_0276_6003_7700_0000_0000_0000; CROM[ 801] = 108'o1500_4221_0003_4174_4003_7700_0200_0003_0001; CROM[ 802] = 108'o1500_4551_0303_0274_4003_7700_0200_0003_0001; CROM[ 803] = 108'o1500_5551_0303_0274_4003_7700_0200_0003_0001; CROM[ 804] = 108'o1442_7441_0303_4174_4007_0700_0000_0000_0000; CROM[ 805] = 108'o1500_6551_0303_0274_4003_7700_0200_0003_0001; CROM[ 806] = 108'o1500_3551_0303_0274_4003_7700_0200_0003_0001; CROM[ 807] = 108'o1443_7441_0303_4174_4007_0700_0000_0000_0000; CROM[ 808] = 108'o1500_7551_0303_0274_4003_7700_0200_0003_0001; CROM[ 809] = 108'o1500_7771_0003_0274_4003_7700_0200_0003_0001; CROM[ 810] = 108'o0564_7771_0005_0274_4007_0700_0000_0000_0000; CROM[ 811] = 108'o1500_7441_0303_4174_4003_7700_0200_0003_0001; CROM[ 812] = 108'o1446_7441_0303_4174_4007_0700_0000_0000_0000; CROM[ 813] = 108'o1453_4551_0303_0274_4007_0700_0000_0000_0000; CROM[ 814] = 108'o1500_2441_0703_4174_4003_7700_4200_0003_0001; CROM[ 815] = 108'o1170_0551_0404_1274_4007_0562_0000_0000_1441; CROM[ 816] = 108'o2436_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 817] = 108'o2446_3771_0005_0276_6007_0700_0000_0000_0000; CROM[ 818] = 108'o0502_4551_1205_0276_6007_0622_0000_0000_0000; CROM[ 819] = 108'o1400_3440_0303_0174_4007_0700_0400_0000_0000; CROM[ 820] = 108'o0544_4443_0000_4174_4007_0630_2000_0060_0000; CROM[ 821] = 108'o1026_3333_0003_4174_4007_0700_2000_0031_5777; CROM[ 822] = 108'o0554_3333_0003_4174_4007_0330_3000_0041_4000; CROM[ 823] = 108'o1062_3771_0005_4365_5007_0700_0200_0000_0002; CROM[ 824] = 108'o0742_4443_0000_4174_4007_0630_2000_0060_0000; CROM[ 825] = 108'o1077_3333_0003_4174_4007_0700_2000_0031_5777; CROM[ 826] = 108'o1473_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 827] = 108'o0014_4221_0005_4174_4003_7700_0000_0000_0000; CROM[ 828] = 108'o1475_3770_0303_4344_4007_0700_0000_0000_0000; CROM[ 829] = 108'o0014_4551_0305_0274_4003_7700_0000_0000_0000; CROM[ 830] = 108'o0250_2551_0303_0274_4003_7701_4000_0000_0000; CROM[ 831] = 108'o0744_3770_0303_4174_0007_0360_0000_0000_0000; CROM[ 832] = 108'o2607_3551_0606_4374_4007_0700_0000_0004_0000; CROM[ 833] = 108'o2670_3333_0005_7174_4007_0700_0400_0000_0213; CROM[ 834] = 108'o2656_3111_0506_4174_4007_0700_0000_0000_0000; CROM[ 835] = 108'o1140_4443_0000_4174_4007_0370_0000_0000_0000; CROM[ 836] = 108'o0434_4443_0000_4174_4007_0360_0000_0000_0000; CROM[ 837] = 108'o1515_3440_0404_1174_4007_0700_0400_0000_1441; CROM[ 838] = 108'o1505_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 839] = 108'o3762_3771_0003_7274_4007_0701_0000_0000_0210; CROM[ 840] = 108'o0001_4223_0000_4364_4274_1700_0200_0000_0010; CROM[ 841] = 108'o2700_3333_0003_4174_4467_0700_0000_0000_0004; CROM[ 842] = 108'o2704_3443_0300_4174_4007_0700_0200_0021_1016; CROM[ 843] = 108'o1563_3333_0005_4175_5007_0701_0200_0000_0002; CROM[ 844] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_1000; CROM[ 845] = 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; CROM[ 846] = 108'o1400_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 847] = 108'o1515_3333_0003_4175_5007_0701_0200_0000_0002; CROM[ 848] = 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; CROM[ 849] = 108'o0110_3441_0301_4170_4156_4700_0200_0014_0012; CROM[ 850] = 108'o0150_1113_0701_4170_4007_0700_4200_0004_0012; CROM[ 851] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 852] = 108'o1004_4443_0000_4174_4007_0340_0000_0000_0000; CROM[ 853] = 108'o2606_3443_0300_4174_4007_0700_0200_0004_0012; CROM[ 854] = 108'o0320_4443_0000_4174_4007_0340_0000_0000_0000; CROM[ 855] = 108'o1014_4443_0000_4174_4007_0340_0000_0000_0000; CROM[ 856] = 108'o1010_1113_0701_4170_4007_0040_4200_0004_0012; CROM[ 857] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 858] = 108'o0300_1113_0701_4170_4007_0040_4200_0004_0012; CROM[ 859] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 860] = 108'o1024_4443_0000_4174_4007_0340_0000_0000_0000; CROM[ 861] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 862] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 863] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 864] = 108'o0762_4443_0000_4174_4467_0551_0000_0001_0010; CROM[ 865] = 108'o1034_4443_0000_4174_4007_0340_0000_0000_0000; CROM[ 866] = 108'o0270_2551_0705_0274_4463_7702_4000_0001_0001; CROM[ 867] = 108'o2717_3771_0005_4365_5007_0700_0200_0000_0002; CROM[ 868] = 108'o2717_3741_0105_4074_4467_0700_0000_0005_0000; CROM[ 869] = 108'o2721_3771_0004_0276_6007_0701_0200_0004_0712; CROM[ 870] = 108'o2725_3771_0004_0276_6007_0701_0200_0004_0712; CROM[ 871] = 108'o0270_0551_1505_0274_4403_7701_0000_0000_0000; CROM[ 872] = 108'o2727_3741_0105_4074_4007_0700_0000_0000_0000; CROM[ 873] = 108'o2726_3770_0303_4344_0007_0700_0000_0000_0000; CROM[ 874] = 108'o2730_3741_0105_4074_4467_0700_0000_0005_0000; CROM[ 875] = 108'o3713_3551_0303_4374_0007_0700_0000_0016_0000; CROM[ 876] = 108'o2733_3441_0305_4174_4007_0700_0200_0003_0002; CROM[ 877] = 108'o2734_3771_0005_0276_6007_0700_0000_0000_0000; CROM[ 878] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 879] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 880] = 108'o1500_0551_0303_0274_4463_7701_0200_0001_0001; CROM[ 881] = 108'o1500_2551_0303_0274_4463_7701_4200_0001_0001; CROM[ 882] = 108'o2710_4221_0013_4170_4007_0370_0000_0000_0000; CROM[ 883] = 108'o2743_0111_0703_4174_4007_0700_0200_0024_1016; CROM[ 884] = 108'o0001_0111_0703_4170_4004_1700_0200_0023_1016; CROM[ 885] = 108'o3067_3771_0004_1276_6007_0701_0010_0000_1441; CROM[ 886] = 108'o2761_3447_0303_4174_4007_0700_0000_0000_0000; CROM[ 887] = 108'o0531_0113_0207_4174_4007_0700_0200_0003_0312; CROM[ 888] = 108'o1340_3771_0006_0276_6007_0521_1000_0040_2000; CROM[ 889] = 108'o2756_3442_0300_0174_4007_0700_0000_0000_0000; CROM[ 890] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 891] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 892] = 108'o1342_3441_0305_0174_4007_0621_0000_0000_0000; CROM[ 893] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 894] = 108'o1577_2441_0303_4174_4007_0700_4000_0000_0000; CROM[ 895] = 108'o0670_3771_0005_0276_6006_7701_2000_0020_2000; CROM[ 896] = 108'o3003_3441_0305_0174_4007_0700_0000_0000_0000; CROM[ 897] = 108'o3004_3441_0305_4174_4007_0700_0000_0000_0000; CROM[ 898] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 899] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 900] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 901] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 902] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 903] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 904] = 108'o0240_4443_0000_4174_4007_0360_0000_0000_0000; CROM[ 905] = 108'o0270_0551_0705_0274_4463_7702_0000_0001_0001; CROM[ 906] = 108'o0572_3771_0003_0276_6007_0700_1000_0031_1777; CROM[ 907] = 108'o0611_4551_1203_0276_6007_0700_1000_0041_0001; CROM[ 908] = 108'o2436_4443_0000_4174_4007_0700_0010_0000_0000; CROM[ 909] = 108'o1172_2551_0404_1274_4007_0562_4000_0000_1441; CROM[ 910] = 108'o1354_4553_0300_4374_4007_0321_0000_0077_7000; CROM[ 911] = 108'o0014_4551_0305_0274_4003_7700_0000_0000_0000; CROM[ 912] = 108'o0350_3770_0305_4334_4016_7351_0010_0033_6000; CROM[ 913] = 108'o3206_3333_0003_4174_4007_0700_2000_0041_4000; CROM[ 914] = 108'o0632_4222_0000_4174_4007_0700_0000_0000_0000; CROM[ 915] = 108'o0611_3771_0003_0276_6007_0700_1000_0041_0001; CROM[ 916] = 108'o3077_3333_0003_4174_4217_0701_1010_0073_0500; CROM[ 917] = 108'o0604_3443_0100_4174_4007_0700_0200_0014_0012; CROM[ 918] = 108'o0674_4222_0000_4174_4006_7701_0000_0041_1534; CROM[ 919] = 108'o3011_4112_0400_4174_4007_0700_0000_0000_0000; CROM[ 920] = 108'o0350_3770_0305_4334_4016_7351_0010_0033_6000; CROM[ 921] = 108'o2020_3442_0400_4174_4007_0700_2000_0071_0006; CROM[ 922] = 108'o0747_3777_0003_0274_4007_0701_1000_0031_1777; CROM[ 923] = 108'o0646_3777_0003_0274_4007_0701_1000_0041_0001; CROM[ 924] = 108'o3072_3775_0004_0274_4007_0701_0000_0000_0000; CROM[ 925] = 108'o3212_2441_0404_4174_4007_0700_4000_0000_0000; CROM[ 926] = 108'o0132_3441_0406_4174_4007_0700_0000_0000_0000; CROM[ 927] = 108'o3213_4557_0006_1274_4007_0701_0000_0000_1441; CROM[ 928] = 108'o3153_3771_0006_0276_6007_0700_0010_0000_0000; CROM[ 929] = 108'o2754_3441_0306_0174_4007_0700_0000_0000_0000; CROM[ 930] = 108'o3662_3440_0505_0174_4007_0700_0410_0000_0000; CROM[ 931] = 108'o3161_0551_0405_4370_4007_0701_0000_0000_0001; CROM[ 932] = 108'o2436_3441_0306_4174_4007_0700_0010_0000_0000; CROM[ 933] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 934] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 935] = 108'o1013_3441_0305_4174_4003_7700_0000_0000_0000; CROM[ 936] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 937] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 938] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 939] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 940] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 941] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 942] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 943] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 944] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 945] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 946] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 947] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 948] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 949] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 950] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 951] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 952] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 953] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 954] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 955] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 956] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 957] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 958] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 959] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 960] = 108'o0137_3771_0005_4374_4007_0700_0000_0001_0001; CROM[ 961] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 962] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 963] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 964] = 108'o3503_3771_0005_7274_4007_0701_0000_0000_0230; CROM[ 965] = 108'o3516_3771_0005_7274_4007_0701_0000_0000_0230; CROM[ 966] = 108'o3502_3771_0005_4304_4007_0701_0000_0000_0000; CROM[ 967] = 108'o3500_3771_0005_4304_4007_0701_0000_0000_0000; CROM[ 968] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 969] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 970] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 971] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 972] = 108'o2364_4553_0300_4374_4007_0331_0000_0001_0000; CROM[ 973] = 108'o3613_3441_1405_4174_4007_0700_0000_0000_0000; CROM[ 974] = 108'o0136_3441_1405_4174_4007_0700_0000_0000_0000; CROM[ 975] = 108'o3501_3441_1405_4174_4007_0700_0000_0000_0000; CROM[ 976] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 977] = 108'o2352_4551_1105_4374_0007_0700_0000_0050_7700; CROM[ 978] = 108'o3615_3443_0300_4174_4147_0700_0200_0000_0010; CROM[ 979] = 108'o3524_3443_0300_4174_4007_0700_0200_0004_0012; CROM[ 980] = 108'o2342_3445_0303_4174_4007_0700_2000_0071_0006; CROM[ 981] = 108'o2350_3447_1005_4174_4007_0700_2000_0071_0006; CROM[ 982] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 983] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 984] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 985] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 986] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 987] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 988] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 989] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 990] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 991] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[ 992] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 993] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 994] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 995] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 996] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 997] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[ 998] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[ 999] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[1000] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[1001] = 108'o0400_4751_1203_4374_4007_0700_0000_0000_0040; CROM[1002] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[1003] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[1004] = 108'o3672_3443_0300_4174_4207_0700_0200_0004_0012; CROM[1005] = 108'o3673_3443_0300_4174_4207_0700_0200_0003_0012; CROM[1006] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[1007] = 108'o0000_0000_0000_0000_0000_0000_0000_0000_0000; // Unused CROM[1008] = 108'o3613_3771_0005_7274_4007_0701_0000_0000_0215; CROM[1009] = 108'o3613_3771_0005_7274_4007_0701_0000_0000_0216; CROM[1010] = 108'o3613_3771_0005_7274_4007_0701_0000_0000_0220; CROM[1011] = 108'o3613_3771_0005_7274_4007_0701_0000_0000_0217; CROM[1012] = 108'o3573_4451_1205_4324_4007_0700_0000_0000_0000; CROM[1013] = 108'o3613_3771_0005_7274_4007_0701_0000_0000_0302; CROM[1014] = 108'o3613_3771_0005_7274_4007_0701_0000_0000_0227; CROM[1015] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[1016] = 108'o3544_4443_0000_4174_4007_0703_0200_0006_0002; CROM[1017] = 108'o3546_4443_0000_4174_4007_0703_0200_0006_0002; CROM[1018] = 108'o3550_4443_0000_4174_4007_0703_0200_0006_0002; CROM[1019] = 108'o3552_4443_0000_4174_4007_0703_0200_0006_0002; CROM[1020] = 108'o3571_4443_0000_4174_4007_0700_0200_0004_0002; CROM[1021] = 108'o3602_4443_0000_4174_4007_0700_0200_0004_0002; CROM[1022] = 108'o3554_4443_0000_4174_4007_0703_0200_0006_0002; CROM[1023] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[1024] = 108'o0440_7441_0303_4174_4003_4701_0000_0000_0000; CROM[1025] = 108'o0440_2441_0303_4174_4003_4701_4000_0000_0000; CROM[1026] = 108'o3211_7441_0303_4174_4007_0700_0000_0000_0000; CROM[1027] = 108'o2004_3223_0000_4174_4007_0621_0000_0000_0000; CROM[1028] = 108'o3211_7441_0303_4174_4007_0700_0000_0000_0000; CROM[1029] = 108'o3211_2441_0303_4174_4007_0700_4000_0000_0000; CROM[1030] = 108'o2010_5547_0505_0374_4007_0631_0000_0077_7400; CROM[1031] = 108'o2010_3547_0505_0374_4007_0631_0000_0077_7400; CROM[1032] = 108'o2012_3442_0600_4174_4007_0700_0000_0000_0000; CROM[1033] = 108'o3215_3771_0016_0276_6007_0700_2000_0041_2000; CROM[1034] = 108'o0153_3441_0516_4174_4007_0700_0010_0000_0000; CROM[1035] = 108'o3214_3441_1605_4174_4007_0700_0000_0000_0000; CROM[1036] = 108'o0153_3441_0316_4174_4007_0700_0010_0000_0000; CROM[1037] = 108'o3217_3441_1603_4174_4007_0700_0000_0000_0000; CROM[1038] = 108'o2016_3446_1616_4174_4047_0630_2000_0060_0000; CROM[1039] = 108'o0453_3221_0017_4174_4007_0700_0000_0000_0000; CROM[1040] = 108'o2020_3444_0303_4174_4047_0630_2000_0060_0000; CROM[1041] = 108'o3230_3446_1200_4174_4007_0700_0000_0000_0000; CROM[1042] = 108'o0732_5547_0606_4374_4007_0701_0000_0077_7400; CROM[1043] = 108'o0732_3547_0606_4374_4007_0701_0000_0077_7400; CROM[1044] = 108'o2025_0002_0500_4174_4007_0700_0000_0000_0000; CROM[1045] = 108'o3240_3444_0303_4174_4047_0700_0000_0000_0000; CROM[1046] = 108'o2027_0002_0500_4174_4007_0700_0000_0000_0000; CROM[1047] = 108'o0520_3333_0003_4174_4003_4701_1000_0041_0002; CROM[1048] = 108'o3243_4557_0004_1274_4007_0700_0000_0000_1441; CROM[1049] = 108'o3241_7441_1717_4174_4007_0700_0000_0000_0000; CROM[1050] = 108'o2034_5547_0303_4374_4007_0701_0000_0077_7400; CROM[1051] = 108'o3244_7441_1717_4174_4007_0700_0000_0000_0000; CROM[1052] = 108'o3042_3442_0400_4174_4007_0700_0010_0000_0000; CROM[1053] = 108'o2036_2113_0305_4174_4007_0521_4000_0000_0000; CROM[1054] = 108'o0555_4443_0000_4174_4467_0700_0000_0071_1000; CROM[1055] = 108'o0724_3221_0004_4174_4007_0700_0000_0000_0000; CROM[1056] = 108'o0520_3441_1603_4174_4003_4701_0000_0000_0000; CROM[1057] = 108'o0200_3441_1603_4174_4003_4701_0000_0000_0000; CROM[1058] = 108'o0520_3444_0303_4174_4043_4701_1000_0041_1777; CROM[1059] = 108'o1515_3440_0303_1174_4007_0700_0400_0000_1441; CROM[1060] = 108'o3252_7222_0000_4174_4007_0700_0000_0000_0000; CROM[1061] = 108'o2046_2222_0000_4174_4007_0511_4000_0000_0000; CROM[1062] = 108'o0200_7441_0303_4174_4003_4701_0000_0000_0000; CROM[1063] = 108'o0200_2441_0303_4174_4003_4701_4000_0000_0000; CROM[1064] = 108'o3254_7333_0003_0174_4007_0700_0400_0000_0000; CROM[1065] = 108'o3254_2443_0300_0174_4007_0701_4400_0000_0000; CROM[1066] = 108'o0200_3444_0303_4174_4043_4701_1000_0041_1777; CROM[1067] = 108'o1515_3440_0303_1174_4007_0700_0400_0000_1441; CROM[1068] = 108'o0023_3551_1313_4374_0004_1700_0000_0000_2000; CROM[1069] = 108'o0023_5551_1313_4374_0004_1700_0000_0000_2000; CROM[1070] = 108'o3400_3333_0005_7174_4001_2700_0400_0000_0241; CROM[1071] = 108'o0556_3771_0005_4374_0007_0700_0000_0077_7777; CROM[1072] = 108'o3556_4553_0500_4374_4007_0321_0010_0077_7000; CROM[1073] = 108'o3556_4553_0400_4374_4007_0321_0010_0077_7000; CROM[1074] = 108'o3460_4521_0306_4374_4007_0700_0010_0077_7000; CROM[1075] = 108'o2066_2113_0305_1174_4007_0521_4400_0000_1443; CROM[1076] = 108'o2062_3771_0003_0276_6007_0700_0000_0000_0000; CROM[1077] = 108'o2110_3771_0006_0276_6007_0700_0000_0000_0000; CROM[1078] = 108'o3264_7441_0503_4174_4007_0700_0000_0000_0000; CROM[1079] = 108'o3264_7441_0303_4174_4007_0700_0000_0000_0000; CROM[1080] = 108'o2070_4224_0003_4174_4026_7701_1000_0041_1770; CROM[1081] = 108'o3560_4443_0000_4174_4007_0700_0010_0000_0000; CROM[1082] = 108'o3267_7221_0003_4174_4007_0700_0000_0000_0000; CROM[1083] = 108'o3302_3771_0003_7274_4007_0701_0000_0000_0211; CROM[1084] = 108'o3271_3440_0303_1174_4007_0700_0400_0000_1443; CROM[1085] = 108'o2074_1111_0503_4174_4007_0700_4000_0000_0000; CROM[1086] = 108'o2077_0111_0503_4174_4007_0700_0000_0000_0000; CROM[1087] = 108'o3273_3111_0603_4174_4007_0700_0000_0000_0000; CROM[1088] = 108'o3277_3333_0003_7174_4007_0700_0400_0000_0211; CROM[1089] = 108'o2102_1111_0704_4174_4007_0521_4000_0000_0000; CROM[1090] = 108'o0650_3770_0305_4334_4016_7371_0000_0033_6000; CROM[1091] = 108'o0546_4223_0000_1174_4007_0700_0400_0000_1443; CROM[1092] = 108'o3664_0111_0403_4174_4007_0700_0010_0000_0000; CROM[1093] = 108'o3720_3113_0306_0174_4007_0700_0400_0000_0000; CROM[1094] = 108'o2107_0111_0703_4174_4007_0700_0000_0000_0000; CROM[1095] = 108'o2112_0111_0703_4170_4007_0700_0200_0004_0012; CROM[1096] = 108'o3556_4553_0600_4374_4007_0321_0010_0077_7000; CROM[1097] = 108'o3556_4553_0600_4374_4007_0321_0010_0004_7777; CROM[1098] = 108'o3662_4221_0003_4174_4007_0700_0010_0000_0000; CROM[1099] = 108'o3320_3223_0000_7174_4007_0700_0400_0000_0244; CROM[1100] = 108'o2106_2113_0604_4174_4007_0521_4000_0000_0000; CROM[1101] = 108'o3401_3443_0600_4174_4007_0700_0200_0004_0012; CROM[1102] = 108'o0250_4221_0013_4170_4003_7700_0000_0000_0000; CROM[1103] = 108'o3311_3771_0003_1276_6007_0701_0000_0000_1441; CROM[1104] = 108'o3323_3772_0000_7274_4007_0701_0000_0000_0244; CROM[1105] = 108'o2116_4221_0003_4174_4007_0700_0000_0000_0000; CROM[1106] = 108'o3451_3771_0003_1276_6007_0701_0010_0000_1444; CROM[1107] = 108'o0340_3333_0003_4174_4006_5701_1000_0051_0770; CROM[1108] = 108'o2220_3771_0004_1276_6007_0701_0010_0000_1444; CROM[1109] = 108'o2220_3333_0004_7174_4007_0700_0410_0000_0250; CROM[1110] = 108'o2130_3440_0404_1174_4007_0700_0400_0000_1444; CROM[1111] = 108'o2160_3333_0003_7174_4007_0520_0400_0000_0247; CROM[1112] = 108'o2154_3333_0006_4174_4007_0520_0010_0000_0000; CROM[1113] = 108'o0616_4551_0303_4374_0003_7700_0000_0000_0777; CROM[1114] = 108'o3335_7771_0003_7274_4007_0701_0000_0000_0242; CROM[1115] = 108'o1050_3771_0005_1276_6007_0622_0000_0000_1443; CROM[1116] = 108'o1050_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1117] = 108'o3332_3775_0005_1276_6007_0701_0000_0000_1444; CROM[1118] = 108'o3665_0551_0505_1274_4007_0700_0010_0000_1444; CROM[1119] = 108'o0460_0113_0305_1174_4007_0701_0400_0000_1444; CROM[1120] = 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1121] = 108'o3334_4551_0404_4374_0007_0700_0000_0037_7777; CROM[1122] = 108'o3341_3771_0004_1276_6007_0701_0000_0000_1444; CROM[1123] = 108'o3337_3771_0003_1276_6007_0701_0000_0000_1444; CROM[1124] = 108'o3340_4551_0303_4374_0007_0700_0000_0037_7777; CROM[1125] = 108'o3340_3551_0303_4374_0007_0700_0000_0040_0000; CROM[1126] = 108'o2154_3770_0606_0174_4007_0520_0410_0000_0000; CROM[1127] = 108'o0260_4221_0013_4170_4007_0700_0000_0000_0000; CROM[1128] = 108'o2153_7771_0003_1274_4007_0700_0000_0000_1443; CROM[1129] = 108'o2152_1771_0003_1274_4007_0621_4000_0000_1443; CROM[1130] = 108'o2153_4571_1204_4374_4007_0700_0000_0040_0000; CROM[1131] = 108'o3343_3440_0303_1174_4007_0700_0400_0000_1443; CROM[1132] = 108'o3344_4223_0000_1174_4007_0700_0400_0000_1443; CROM[1133] = 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1134] = 108'o3345_4551_0606_4374_4007_0700_0000_0077_7000; CROM[1135] = 108'o3363_3771_0003_0276_6007_0700_0000_0000_0000; CROM[1136] = 108'o2170_4221_0006_4170_4007_0700_0000_0000_0000; CROM[1137] = 108'o2164_3551_0606_4374_0007_0700_0000_0010_0000; CROM[1138] = 108'o2160_3440_0404_1174_4007_0700_0400_0000_1441; CROM[1139] = 108'o3347_0111_0704_4174_4007_0700_0000_0000_0000; CROM[1140] = 108'o3071_4551_0404_4374_0007_0700_0010_0037_7777; CROM[1141] = 108'o2220_3441_1617_4174_4007_0700_0210_0000_0010; CROM[1142] = 108'o2162_3770_0303_0174_4007_0520_0400_0000_0000; CROM[1143] = 108'o2216_1551_0404_6274_4007_0561_4000_0000_0000; CROM[1144] = 108'o0441_3771_0003_0276_6007_0700_0000_0000_0000; CROM[1145] = 108'o2174_3551_0606_4374_0007_0700_0000_0020_0000; CROM[1146] = 108'o2174_3551_0606_4374_0007_0700_0000_0020_0000; CROM[1147] = 108'o2174_0111_0706_4174_4007_0700_0000_0000_0000; CROM[1148] = 108'o3460_3771_0003_1276_6007_0701_0010_0000_1443; CROM[1149] = 108'o3350_4221_0005_4174_4007_0700_0000_0000_0000; CROM[1150] = 108'o3373_3771_0004_7274_4007_0701_0000_0000_0250; CROM[1151] = 108'o2200_3333_0006_4174_4007_0520_0000_0000_0000; CROM[1152] = 108'o2157_3440_0606_1174_4007_0700_0400_0000_1443; CROM[1153] = 108'o3352_3441_0603_4174_0007_0700_0000_0000_0000; CROM[1154] = 108'o3374_0111_0704_4174_4007_0700_0000_0000_0000; CROM[1155] = 108'o3370_3440_0303_0174_4007_0700_0400_0000_0000; CROM[1156] = 108'o0562_2441_0705_4174_4467_0701_4000_0003_0000; CROM[1157] = 108'o0260_4221_0013_4170_4467_0700_0000_0005_0000; CROM[1158] = 108'o3660_4221_0013_4170_4007_0700_0010_0000_0000; CROM[1159] = 108'o2210_4553_0600_4374_4007_0331_0000_0077_7777; CROM[1160] = 108'o0637_4221_0003_4174_0007_0700_0000_0000_0000; CROM[1161] = 108'o2212_4553_0600_4374_4007_0321_0000_0010_0000; CROM[1162] = 108'o2213_3770_0303_4344_4007_0700_0000_0000_0000; CROM[1163] = 108'o0637_4221_0003_4174_0007_0700_0000_0000_0000; CROM[1164] = 108'o2165_0551_0616_4374_4007_0701_0000_0000_0344; CROM[1165] = 108'o2677_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1166] = 108'o2217_1111_0703_4174_4007_0700_4000_0000_0000; CROM[1167] = 108'o3375_0551_0616_4374_4007_0701_0000_0000_0373; CROM[1168] = 108'o0002_4551_0404_4374_0004_1700_0000_0037_7777; CROM[1169] = 108'o3377_0551_0303_6274_4007_0700_0000_0000_0000; CROM[1170] = 108'o0006_4551_0404_4374_0004_1700_0000_0037_7777; CROM[1171] = 108'o2222_0111_0703_4174_4007_0700_0000_0000_0000; CROM[1172] = 108'o3660_0115_0505_4174_4007_0700_0010_0000_0000; CROM[1173] = 108'o0654_3333_0005_4174_4003_1701_0000_0000_0000; CROM[1174] = 108'o2226_3447_0303_4174_4007_0630_2000_0060_0000; CROM[1175] = 108'o3403_4551_0303_4374_4007_0700_0000_0000_0777; CROM[1176] = 108'o2230_3447_0505_4174_4007_0630_2000_0060_0000; CROM[1177] = 108'o0661_3333_0005_4174_4003_5701_0000_0000_0000; CROM[1178] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1179] = 108'o0710_3333_0003_4174_4003_5701_0000_0000_0000; CROM[1180] = 108'o1515_3770_0303_4334_4017_0700_0000_0041_0000; CROM[1181] = 108'o2234_0111_0703_4174_4007_0700_1000_0051_0700; CROM[1182] = 108'o3660_3772_0000_1275_5007_0701_0010_0000_1444; CROM[1183] = 108'o3407_4443_0000_4174_4007_0700_0200_0003_0002; CROM[1184] = 108'o2275_3771_0003_1276_6007_0701_0010_0000_1441; CROM[1185] = 108'o0360_3333_0003_4174_4006_5701_0010_0000_0000; CROM[1186] = 108'o0700_3447_0303_7174_4007_0700_0000_0000_0241; CROM[1187] = 108'o0006_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1188] = 108'o0705_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1189] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1190] = 108'o3417_4751_1203_4374_4007_0700_0010_0000_0002; CROM[1191] = 108'o0740_3771_0003_4365_5007_0621_0200_0000_0002; CROM[1192] = 108'o0760_3771_0003_7274_4007_0622_0000_0000_0244; CROM[1193] = 108'o2252_4251_0303_4374_4007_0700_0000_0000_0077; CROM[1194] = 108'o3417_0111_0703_7174_4007_0700_0010_0000_0240; CROM[1195] = 108'o0760_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1196] = 108'o3421_4551_0303_4374_4007_0700_0000_0000_0077; CROM[1197] = 108'o3423_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1198] = 108'o2260_3447_0303_4174_4007_0700_2000_0071_0000; CROM[1199] = 108'o2256_3551_0303_4370_4007_0700_0000_0000_0200; CROM[1200] = 108'o2260_3447_0303_4174_4007_0630_2000_0060_0000; CROM[1201] = 108'o3432_0111_0306_4170_4007_0700_0000_0000_0000; CROM[1202] = 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1203] = 108'o0332_4443_0000_7174_4007_0700_0000_0000_0244; CROM[1204] = 108'o3661_3445_0303_4174_4007_0700_0010_0000_0000; CROM[1205] = 108'o2266_4553_0300_4374_4007_0331_0000_0000_0001; CROM[1206] = 108'o0721_3441_0403_4174_4003_1701_0000_0000_0000; CROM[1207] = 108'o2266_3770_0404_4344_4007_0700_0000_0000_0000; CROM[1208] = 108'o0754_3333_0004_4174_4003_7530_0000_0000_0000; CROM[1209] = 108'o0005_4251_0403_4374_4004_1700_0000_0007_7777; CROM[1210] = 108'o1074_3771_0003_7274_4007_0701_0000_0000_0242; CROM[1211] = 108'o1074_0551_0703_7274_4007_0701_0000_0000_0242; CROM[1212] = 108'o0001_3771_0003_1276_6004_1701_0000_0000_1443; CROM[1213] = 108'o3445_3771_0003_1276_6007_0701_0000_0000_1441; CROM[1214] = 108'o3076_3333_0003_4174_4217_0701_1010_0073_0500; CROM[1215] = 108'o0340_3333_0003_4174_4006_5701_1000_0051_0770; CROM[1216] = 108'o3451_3771_0003_1276_6007_0701_0010_0000_1444; CROM[1217] = 108'o2241_0113_0404_4174_4007_0701_1000_0077_0000; CROM[1218] = 108'o3473_3771_0003_1276_6007_0701_0010_0000_1441; CROM[1219] = 108'o2700_3440_0505_1174_4007_0700_0400_0000_1441; CROM[1220] = 108'o3453_3441_0503_4174_4217_0700_0000_0000_0600; CROM[1221] = 108'o3572_0111_0703_4174_4007_0700_0010_0000_0000; CROM[1222] = 108'o3452_3770_0503_4334_4017_0700_0000_0032_6000; CROM[1223] = 108'o2356_4221_0003_4174_4007_0700_0000_0000_0000; CROM[1224] = 108'o3473_3771_0003_1276_6007_0701_0010_0000_1444; CROM[1225] = 108'o2700_3440_0505_1174_4007_0700_0400_0000_1444; CROM[1226] = 108'o3466_3440_0303_1174_4007_0700_0400_0000_1443; CROM[1227] = 108'o2314_3441_0304_4174_4007_0700_0000_0000_0000; CROM[1228] = 108'o3671_3551_0404_7274_4007_0701_0010_0000_0214; CROM[1229] = 108'o3465_1111_0503_4174_4007_0700_4000_0000_0000; CROM[1230] = 108'o3476_0111_1103_4364_4007_0700_0200_0024_1016; CROM[1231] = 108'o3476_0111_1003_4364_4007_0700_0200_0024_1016; CROM[1232] = 108'o2716_4443_0000_4174_4467_0700_0000_0001_0000; CROM[1233] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[1234] = 108'o2323_3111_0405_4174_4007_0700_0000_0000_0000; CROM[1235] = 108'o2324_4553_0300_4374_4007_0331_0000_0004_0000; CROM[1236] = 108'o2325_5111_0405_4174_4007_0700_0000_0000_0000; CROM[1237] = 108'o3510_3771_0006_4304_4007_0701_0000_0000_0000; CROM[1238] = 108'o2327_5111_0406_4174_4007_0700_0000_0000_0000; CROM[1239] = 108'o2330_4553_0300_4374_4007_0331_0000_0001_0000; CROM[1240] = 108'o2331_3111_0406_4174_4007_0700_0000_0000_0000; CROM[1241] = 108'o2332_4553_0300_4374_4007_0331_0000_0003_0000; CROM[1242] = 108'o3513_3333_0006_4174_4007_0700_0000_0000_0000; CROM[1243] = 108'o3511_3333_0005_4174_4007_0700_0000_0000_0000; CROM[1244] = 108'o2336_4551_0303_4374_0007_0321_0000_0010_0000; CROM[1245] = 108'o3525_4551_1111_4374_0007_0700_0000_0077_0077; CROM[1246] = 108'o3527_4551_0305_4374_4007_0700_0000_0000_3777; CROM[1247] = 108'o1400_3111_0311_4174_0477_0700_0000_0000_0000; CROM[1248] = 108'o2340_3445_0505_4174_4007_0630_2000_0060_0000; CROM[1249] = 108'o3530_4551_1111_4374_0007_0700_0000_0077_7774; CROM[1250] = 108'o2342_3445_0303_4174_4007_0630_2000_0060_0000; CROM[1251] = 108'o3533_3771_0005_7274_4007_0701_0000_0000_0230; CROM[1252] = 108'o2345_3551_0505_4370_4007_0700_0000_0003_0000; CROM[1253] = 108'o3535_3333_0005_4174_4257_0700_0000_0000_0000; CROM[1254] = 108'o2406_3551_1010_4374_0007_0700_0000_0040_0000; CROM[1255] = 108'o2406_5551_1010_4374_0007_0700_0000_0040_0000; CROM[1256] = 108'o2350_3447_0505_4174_4007_0630_2000_0060_0000; CROM[1257] = 108'o3540_4551_0505_4374_4007_0700_0000_0006_3777; CROM[1258] = 108'o2354_3447_1106_4174_4007_0700_2010_0071_0006; CROM[1259] = 108'o3614_3443_0300_4174_4007_0700_0200_0003_0012; CROM[1260] = 108'o2354_3447_0606_4174_4007_0630_2000_0060_0000; CROM[1261] = 108'o3543_4551_0606_4374_4007_0700_0000_0000_3777; CROM[1262] = 108'o3564_3333_0003_7174_4007_0700_0400_0000_0301; CROM[1263] = 108'o2305_3771_0003_7274_4007_0701_0000_0000_0300; CROM[1264] = 108'o0002_3333_0003_7174_4004_1700_0400_0000_0303; CROM[1265] = 108'o3566_3771_0003_7274_4007_0701_0000_0000_0302; CROM[1266] = 108'o2363_3441_0604_4174_4007_0700_0000_0000_0000; CROM[1267] = 108'o3576_3771_0005_7274_4007_0701_0000_0000_0300; CROM[1268] = 108'o2365_4221_0014_4174_4007_0700_0000_0000_0000; CROM[1269] = 108'o2366_4553_0300_4374_4007_0331_0000_0074_0000; CROM[1270] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[1271] = 108'o3605_4551_0305_4374_4007_0700_0000_0000_0177; CROM[1272] = 108'o2371_5111_0514_4174_0007_0700_0000_0000_0000; CROM[1273] = 108'o2372_4553_0300_4374_4007_0331_0000_0000_4000; CROM[1274] = 108'o2373_3111_0514_4174_0007_0700_0000_0000_0000; CROM[1275] = 108'o2374_4553_0300_4374_4007_0331_0000_0000_0200; CROM[1276] = 108'o2375_3551_1414_4370_4007_0700_0000_0000_0200; CROM[1277] = 108'o2376_4553_0300_4374_4007_0331_0000_0000_0400; CROM[1278] = 108'o2377_5551_1414_4370_4007_0700_0000_0000_0200; CROM[1279] = 108'o2400_4553_0300_4374_4007_0331_0000_0000_2000; CROM[1280] = 108'o2401_3111_0514_4170_4007_0700_0000_0000_0000; CROM[1281] = 108'o0304_4553_0300_4374_4007_0331_0000_0000_1000; CROM[1282] = 108'o3621_3771_0003_4374_4007_0700_0010_0037_7377; CROM[1283] = 108'o3616_3771_0005_4374_4247_0700_0000_0000_1001; CROM[1284] = 108'o2404_1111_0503_4174_4247_0630_6000_0060_1000; CROM[1285] = 108'o2411_3333_0003_4174_4007_0700_0000_0000_0000; CROM[1286] = 108'o3621_3771_0003_4374_4007_0700_0010_0037_7377; CROM[1287] = 108'o3617_3771_0005_4374_4347_0700_0000_0000_1001; CROM[1288] = 108'o2410_1111_0503_4174_4347_0630_6000_0060_1000; CROM[1289] = 108'o3620_4223_0000_7174_4007_0700_0400_0000_0424; CROM[1290] = 108'o3666_4571_1203_4374_4007_0700_0010_0024_1300; CROM[1291] = 108'o2414_3771_0003_4364_4007_0331_0200_0000_0002; CROM[1292] = 108'o3642_4221_0004_4174_4007_0700_0000_0000_0000; CROM[1293] = 108'o3634_3445_0603_4174_4007_0700_0000_0000_0000; CROM[1294] = 108'o2420_6553_0300_4374_4007_0321_0000_0026_4000; CROM[1295] = 108'o3641_4521_1205_4074_4007_0700_0000_0000_0000; CROM[1296] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_0101; CROM[1297] = 108'o0470_4443_0000_4174_4007_0700_0200_0023_0002; CROM[1298] = 108'o3642_0111_1504_4174_4007_0700_0000_0000_0000; CROM[1299] = 108'o2424_4571_1203_4374_4007_0700_0000_0024_1240; CROM[1300] = 108'o3666_3111_0403_4174_4007_0700_0010_0000_0000; CROM[1301] = 108'o2426_3771_0016_4364_4007_0700_0200_0000_0002; CROM[1302] = 108'o3663_0551_1005_4374_4007_0701_0010_0000_0100; CROM[1303] = 108'o3643_0111_0504_4174_4007_0700_0200_0024_1016; CROM[1304] = 108'o3644_4557_1606_4374_4007_0701_0000_0000_0774; CROM[1305] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_0102; CROM[1306] = 108'o3646_3771_0005_4374_4007_0700_0000_0004_0000; CROM[1307] = 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1308] = 108'o0004_5111_0514_4170_4004_1700_0000_0000_0000; CROM[1309] = 108'o3646_3447_0505_4174_4007_0700_0000_0000_0000; CROM[1310] = 108'o2456_4443_0000_4174_4137_0700_0010_0000_0000; CROM[1311] = 108'o0067_4443_0000_4174_4003_7700_0000_0000_0000; CROM[1312] = 108'o3656_3113_0305_4174_4007_0701_0210_0000_0036; CROM[1313] = 108'o1027_3771_0005_4364_4003_7700_0200_0000_0002; CROM[1314] = 108'o2444_3447_0505_4174_4007_0700_2000_0071_0005; CROM[1315] = 108'o0003_4551_0503_4374_4004_1700_0000_0000_0377; CROM[1316] = 108'o2444_3447_0505_4174_4007_0630_2000_0060_0000; CROM[1317] = 108'o0003_4551_0503_4374_4004_1700_0000_0000_0377; CROM[1318] = 108'o2456_4443_0000_4174_4137_0700_0010_0000_0000; CROM[1319] = 108'o0227_4443_0000_4174_4003_7700_0000_0000_0000; CROM[1320] = 108'o3656_3333_0005_4175_5007_0701_0210_0000_0002; CROM[1321] = 108'o0110_3443_0100_4174_4156_4700_0200_0014_0012; CROM[1322] = 108'o2454_3445_0505_4174_4007_0700_2000_0071_0005; CROM[1323] = 108'o3650_4571_1204_4374_4007_0700_0000_0021_1220; CROM[1324] = 108'o2454_3445_0505_4174_4007_0630_2000_0060_0000; CROM[1325] = 108'o3650_4571_1204_4374_4007_0700_0000_0021_1220; CROM[1326] = 108'o3660_1113_0701_4170_4007_0700_4210_0004_0012; CROM[1327] = 108'o3651_7441_0306_4174_4007_0700_0000_0000_0000; CROM[1328] = 108'o2462_4553_0200_4374_4007_0321_0000_0000_0020; CROM[1329] = 108'o2460_4713_1203_7174_4007_0700_0400_0000_0422; CROM[1330] = 108'o3652_3771_0003_7274_4007_0701_0000_0000_0422; CROM[1331] = 108'o1055_4443_0000_2174_4006_6700_0000_0000_0000; CROM[1332] = 108'o2465_0551_0303_2270_4007_0701_0000_0000_0000; CROM[1333] = 108'o3654_3443_0300_4174_4007_0700_0200_0004_0012; CROM[1334] = 108'o0001_0551_0403_7274_4124_1701_0000_0000_0422; CROM[1335] = 108'o3655_0551_0403_7274_4007_0701_0000_0000_0422; CROM[1336] = 108'o2472_4443_0000_4174_4127_0630_2000_0060_0000; CROM[1337] = 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1338] = 108'o2470_4443_0000_4174_4127_0653_0000_0000_0000; CROM[1339] = 108'o1501_4571_1206_4374_4007_0700_0000_0020_0000; CROM[1340] = 108'o3670_0111_0704_4170_4007_0700_0210_0023_1016; CROM[1341] = 108'o0005_4443_0000_4174_4107_0700_0000_0000_0074; CROM[1342] = 108'o0117_3443_0100_4174_4007_0700_0200_0014_0012; CROM[1343] = 108'o2500_4571_1203_4374_4007_0700_0000_0024_1200; CROM[1344] = 108'o3666_3551_0303_4370_4007_0700_0010_0020_0000; CROM[1345] = 108'o2716_3771_0002_4365_5617_0700_0200_0000_0002; CROM[1346] = 108'o3700_3333_0012_4174_4437_0700_0000_0000_0000; CROM[1347] = 108'o0002_3771_0004_7274_4004_1701_0000_0000_0212; CROM[1348] = 108'o2746_3333_0000_4175_5007_0701_0210_0000_0002; CROM[1349] = 108'o2746_3333_0002_4175_5007_0701_0210_0000_0002; CROM[1350] = 108'o3701_3333_0001_4175_5007_0701_0200_0000_0002; CROM[1351] = 108'o2510_3333_0003_4175_5007_0701_0200_0000_0002; CROM[1352] = 108'o2746_3333_0003_7174_4007_0700_0410_0000_0211; CROM[1353] = 108'o2746_3333_0003_4175_5007_0701_0210_0000_0002; CROM[1354] = 108'o2511_3771_0003_7274_4007_0701_0000_0000_0212; CROM[1355] = 108'o3702_3333_0005_4175_5007_0701_0200_0000_0002; CROM[1356] = 108'o2746_3333_0006_4175_5007_0701_0210_0000_0002; CROM[1357] = 108'o2746_3333_0010_4175_5007_0701_0210_0000_0002; CROM[1358] = 108'o3703_3333_0007_4175_5007_0701_0200_0000_0002; CROM[1359] = 108'o3704_3333_0011_4175_5007_0701_0200_0000_0002; CROM[1360] = 108'o2746_3333_0012_4175_5007_0701_0210_0000_0002; CROM[1361] = 108'o2746_3333_0014_4175_5007_0701_0210_0000_0002; CROM[1362] = 108'o3705_3333_0013_4175_5007_0701_0200_0000_0002; CROM[1363] = 108'o3706_3333_0015_4175_5007_0701_0200_0000_0002; CROM[1364] = 108'o2746_3333_0016_4175_5007_0701_0210_0000_0002; CROM[1365] = 108'o2746_3771_0003_7274_4007_0701_0010_0000_0210; CROM[1366] = 108'o2525_3333_0017_4175_5007_0701_0200_0000_0002; CROM[1367] = 108'o3707_3333_0003_4175_5007_0701_0200_0000_0002; CROM[1368] = 108'o3727_3771_0013_4370_4007_0700_0000_0040_0002; CROM[1369] = 108'o0100_3440_0303_0174_4156_4700_0400_0000_0000; CROM[1370] = 108'o2533_3551_0606_4374_0007_0700_0000_0001_0000; CROM[1371] = 108'o3732_4551_0606_4374_0007_0700_0000_0041_1000; CROM[1372] = 108'o2534_3447_0505_4174_4007_0630_2000_0060_0000; CROM[1373] = 108'o3734_4251_0505_4374_4007_0700_0000_0000_0777; CROM[1374] = 108'o2540_3333_0006_4174_4007_0520_0000_0000_0000; CROM[1375] = 108'o3774_3447_0504_4174_4007_0700_0000_0000_0000; CROM[1376] = 108'o2544_3771_0004_7274_4007_0622_0000_0000_0423; CROM[1377] = 108'o2542_3771_0004_7274_4007_0622_0000_0000_0424; CROM[1378] = 108'o1130_0113_0405_4174_4007_0700_0200_0024_1016; CROM[1379] = 108'o3735_0551_1103_4374_4007_0701_0000_0000_0540; CROM[1380] = 108'o1130_0113_0405_4174_4007_0700_0200_0024_1016; CROM[1381] = 108'o3735_0551_1003_4374_4007_0701_0000_0000_0540; CROM[1382] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1383] = 108'o0602_3445_0303_4174_4007_0630_2000_0060_0000; CROM[1384] = 108'o3772_4443_0000_4174_4007_0700_0010_0000_0000; CROM[1385] = 108'o0030_4443_0000_2174_4006_6700_0000_0000_0000; CROM[1386] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1387] = 108'o2555_4251_0304_4374_4007_0700_0000_0000_3777; CROM[1388] = 108'o2552_4553_0300_4374_4007_0321_0000_0000_0077; CROM[1389] = 108'o2622_3441_0403_4174_4007_0700_0010_0000_0000; CROM[1390] = 108'o2551_3771_0002_4365_5217_0700_0200_0000_0002; CROM[1391] = 108'o2560_3551_0303_7274_4007_0701_0000_0000_0220; CROM[1392] = 108'o3075_4443_0000_4174_4007_0700_0210_0001_0002; CROM[1393] = 108'o3772_4443_0000_4174_4007_0700_0010_0000_0000; CROM[1394] = 108'o2562_3445_0404_4174_4007_0630_2000_0060_0000; CROM[1395] = 108'o1040_3333_0006_4174_4007_0520_0000_0000_0000; CROM[1396] = 108'o2562_4443_0000_4174_4007_0700_2000_0071_0007; CROM[1397] = 108'o1134_4553_0300_4374_4007_0321_0000_0000_0077; CROM[1398] = 108'o2600_3333_0003_7174_4007_0700_0400_0000_0426; CROM[1399] = 108'o2570_4251_0505_4374_4007_0370_0000_0000_0777; CROM[1400] = 108'o1000_4551_0303_4374_0007_0700_0000_0027_7000; CROM[1401] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1402] = 108'o3745_3551_0606_4374_4007_0700_0000_0002_0000; CROM[1403] = 108'o2574_4553_0600_4374_4007_0321_0000_0003_0000; CROM[1404] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1405] = 108'o2603_3551_0303_7274_4007_0701_0000_0000_0220; CROM[1406] = 108'o2604_3551_0303_4370_4007_0700_0000_0000_0001; CROM[1407] = 108'o2604_4553_0300_4374_4007_0331_0000_0000_0001; CROM[1408] = 108'o3561_3771_0003_7274_4117_0701_0010_0000_0301; CROM[1409] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_0001; CROM[1410] = 108'o1133_3771_0003_7274_4007_0701_0000_0000_0426; CROM[1411] = 108'o3075_4443_0000_4174_4007_0700_0210_0001_0002; CROM[1412] = 108'o2575_3551_0606_4374_0007_0700_0000_0004_0000; CROM[1413] = 108'o2575_5551_1313_4374_0007_0700_0000_0002_0000; CROM[1414] = 108'o2623_3771_0005_4365_5007_0700_0200_0000_0002; CROM[1415] = 108'o2610_4553_1300_4374_4007_0331_0000_0040_0000; CROM[1416] = 108'o2612_3441_0403_4174_4007_0700_2000_0071_0007; CROM[1417] = 108'o3753_3771_0003_7274_4007_0701_0000_0000_0210; CROM[1418] = 108'o2612_3445_0303_4174_4007_0630_2000_0060_0000; CROM[1419] = 108'o3746_4551_0303_4374_0007_0700_0000_0000_0003; CROM[1420] = 108'o2615_3551_0606_4374_0007_0700_0000_0000_2000; CROM[1421] = 108'o3752_4551_0606_4370_4007_0700_0000_0000_0777; CROM[1422] = 108'o2617_3551_0606_4374_4007_0700_0000_0004_0000; CROM[1423] = 108'o2620_4553_1300_4374_4147_0321_0000_0000_4000; CROM[1424] = 108'o3762_3551_0606_4374_4007_0700_0000_0002_0000; CROM[1425] = 108'o3762_3333_0006_4174_4007_0700_0000_0000_0000; CROM[1426] = 108'o3772_0551_0303_7274_4007_0701_0010_0000_0216; CROM[1427] = 108'o2627_0111_0703_4174_4007_0700_0200_0004_0012; CROM[1428] = 108'o0002_4551_0303_7274_4004_1701_0000_0000_0217; CROM[1429] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1430] = 108'o2624_4553_0300_4374_4007_0321_0000_0077_0000; CROM[1431] = 108'o2701_3771_0001_4361_5007_0700_0200_0000_0002; CROM[1432] = 108'o2632_4553_0300_4374_4007_0321_0000_0030_0000; CROM[1433] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1434] = 108'o2634_4553_0300_4374_4007_0321_0000_0010_0000; CROM[1435] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1436] = 108'o2636_4553_0300_4374_4007_0321_0000_0020_0000; CROM[1437] = 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1438] = 108'o0003_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1439] = 108'o0001_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1440] = 108'o0004_3771_0003_4365_5004_1700_0200_0000_0002; CROM[1441] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1442] = 108'o0007_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1443] = 108'o3773_7441_1303_4174_4007_0700_0000_0000_0000; CROM[1444] = 108'o0007_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1445] = 108'o0002_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1446] = 108'o2650_1553_0500_4374_4007_0532_4000_0000_0340; CROM[1447] = 108'o3775_0111_1104_4174_4007_0700_0200_0024_1016; CROM[1448] = 108'o2652_1553_0500_4374_4007_0532_4000_0000_0400; CROM[1449] = 108'o2652_0551_0404_4374_4007_0701_0000_0000_0600; CROM[1450] = 108'o3775_0111_1004_4174_4007_0700_0200_0024_1016; CROM[1451] = 108'o2647_0551_0404_4374_4007_0701_0000_0000_0220; CROM[1452] = 108'o2656_3333_0004_4174_4007_0530_0000_0000_0000; CROM[1453] = 108'o2654_3770_0404_4344_4007_0700_0000_0000_0000; CROM[1454] = 108'o2672_4553_1300_4374_4007_0321_0000_0001_0000; CROM[1455] = 108'o1435_5551_1313_4374_4007_0700_0000_0002_4000; CROM[1456] = 108'o2661_3551_1313_4374_0007_0700_0000_0000_4000; CROM[1457] = 108'o2662_4553_0400_4374_4007_0331_0000_0004_0000; CROM[1458] = 108'o2663_3551_0606_4374_0007_0700_0000_0002_0000; CROM[1459] = 108'o2664_4553_0400_4374_4007_0331_0000_0010_0000; CROM[1460] = 108'o1500_3551_1313_4374_0007_0700_0000_0002_0000; CROM[1461] = 108'o2666_4553_0600_4374_4007_0321_0000_0001_0000; CROM[1462] = 108'o2656_3551_0606_4374_0007_0700_0000_0010_0000; CROM[1463] = 108'o2607_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1464] = 108'o1510_3771_0005_4354_4007_0700_0010_0000_0000; CROM[1465] = 108'o1502_4551_0505_4374_0007_0700_0000_0040_1237; CROM[1466] = 108'o0104_4751_1217_4374_4007_0700_0000_0000_0100; CROM[1467] = 108'o2674_3771_0003_7274_4007_0611_0000_0000_0210; CROM[1468] = 108'o2676_4553_0300_4374_4007_0321_0000_0010_0000; CROM[1469] = 108'o1511_3771_0003_7274_4007_0701_0000_0000_0425; CROM[1470] = 108'o1100_4443_0000_4174_4007_0700_0000_0000_0000; CROM[1471] = 108'o2700_1111_0701_4170_4007_0700_4000_0000_0000; CROM[1472] = 108'o1100_3333_0013_4174_4003_5701_0000_0000_0000; CROM[1473] = 108'o2714_3333_0005_4174_4467_0700_0000_0001_0004; CROM[1474] = 108'o1512_0551_1103_4374_4007_0701_0000_0000_0500; CROM[1475] = 108'o0770_3551_1313_4374_0007_0700_0000_0001_0000; CROM[1476] = 108'o1564_3333_0006_4175_5007_0701_0210_0000_0002; CROM[1477] = 108'o2706_4553_1000_4374_4007_0321_0000_0040_0000; CROM[1478] = 108'o2712_4521_1205_4074_4007_0700_0000_0000_0000; CROM[1479] = 108'o1513_3741_0105_4074_4007_0700_0000_0000_0000; CROM[1480] = 108'o1500_3441_0603_4174_4003_7700_0200_0003_0001; CROM[1481] = 108'o2703_1111_0701_4174_4007_0700_4000_0000_0000; CROM[1482] = 108'o1564_3333_0005_4175_5007_0701_0210_0000_0002; CROM[1483] = 108'o1563_3333_0001_4175_5007_0701_0200_0000_0002; CROM[1484] = 108'o0305_5551_1313_4374_4007_0700_0000_0001_0000; CROM[1485] = 108'o0435_4521_1203_4074_4007_0700_0000_0000_0000; CROM[1486] = 108'o0371_4713_1202_7174_4007_0700_0400_0000_0422; CROM[1487] = 108'o1044_0551_1504_0274_4407_0311_0200_0003_0712; CROM[1488] = 108'o0220_4443_0000_4174_4463_7700_0000_0001_2000; CROM[1489] = 108'o2722_3771_0005_4365_5007_0700_0200_0000_0002; CROM[1490] = 108'o1144_0551_0404_4374_4407_0311_0000_0077_7777; CROM[1491] = 108'o0220_3333_0005_4175_5003_7701_0200_0000_0002; CROM[1492] = 108'o2720_3333_0005_4175_5007_0701_0200_0000_0002; CROM[1493] = 108'o1146_0551_0404_4374_4407_0311_0000_0077_7777; CROM[1494] = 108'o1150_3771_0005_0276_6007_0521_0000_0000_0000; CROM[1495] = 108'o0764_3440_0505_0174_4467_0700_0400_0005_0000; CROM[1496] = 108'o2731_3443_0300_4174_4007_0700_0200_0003_0012; CROM[1497] = 108'o2732_3333_0005_4175_5007_0701_0200_0000_0002; CROM[1498] = 108'o1400_0551_0301_4370_4007_0701_0000_0000_0001; CROM[1499] = 108'o0130_3770_0304_4344_4007_0700_0000_0000_0000; CROM[1500] = 108'o2735_3770_0505_4344_4007_0700_0000_0000_0000; CROM[1501] = 108'o2736_3443_0500_4174_4007_0700_0200_0004_0012; CROM[1502] = 108'o0274_3771_0005_4365_5007_0700_0200_0000_0002; CROM[1503] = 108'o1156_4751_1204_4374_4007_0700_0000_0000_0424; CROM[1504] = 108'o2741_0111_1105_4174_4007_0700_0000_0000_0000; CROM[1505] = 108'o2742_4521_1203_4074_4007_0700_0000_0000_0000; CROM[1506] = 108'o1164_4553_0300_4374_4007_0321_0000_0000_0600; CROM[1507] = 108'o2744_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1508] = 108'o0764_3333_0003_4174_4467_0700_0000_0000_0404; CROM[1509] = 108'o0001_5551_0303_4374_0004_1700_0000_0000_0600; CROM[1510] = 108'o0002_0111_0704_4170_4004_1700_0200_0023_1016; CROM[1511] = 108'o2750_4551_0202_4374_0007_0700_0000_0077_7740; CROM[1512] = 108'o2751_3333_0002_4175_5007_0701_0200_0000_0002; CROM[1513] = 108'o2501_0111_0703_4170_4007_0700_0200_0004_0012; CROM[1514] = 108'o1170_3111_0503_4170_4007_0700_0000_0000_0000; CROM[1515] = 108'o1174_3770_0303_4174_0007_0520_0000_0000_0000; CROM[1516] = 108'o0021_3772_0000_0275_5007_0700_2000_0071_0043; CROM[1517] = 108'o1200_5113_0412_4174_4007_0621_0000_0000_0000; CROM[1518] = 108'o2757_3441_0316_4174_4007_0700_0000_0000_0000; CROM[1519] = 108'o0031_3771_0006_0276_6007_0700_2000_0071_0043; CROM[1520] = 108'o1204_3770_0303_4174_0007_0520_0000_0000_0000; CROM[1521] = 108'o2762_4117_0004_4174_4007_0700_0000_0000_0000; CROM[1522] = 108'o0120_3441_0405_4174_4007_0350_0000_0000_0000; CROM[1523] = 108'o0410_3227_0004_1174_4007_0700_0400_0000_1442; CROM[1524] = 108'o0410_3777_0016_1276_6007_0701_0000_0000_1441; CROM[1525] = 108'o0543_0111_1604_4174_4007_0700_0000_0000_0000; CROM[1526] = 108'o1210_3770_0404_0174_4007_0520_0400_0000_0000; CROM[1527] = 108'o2770_3772_0000_1275_5007_0701_0000_0000_1442; CROM[1528] = 108'o2771_7003_0000_1174_4007_0700_0400_0000_1442; CROM[1529] = 108'o2772_3772_0000_1275_5007_0701_0000_0000_1443; CROM[1530] = 108'o2773_7003_0000_1174_4007_0700_0400_0000_1443; CROM[1531] = 108'o1212_3741_0103_4074_4007_0520_0000_0000_0000; CROM[1532] = 108'o2775_4221_0004_4174_4007_0700_0000_0000_0000; CROM[1533] = 108'o2776_3442_0500_4174_4007_0700_2000_0071_0043; CROM[1534] = 108'o0563_3447_0606_4174_4007_0700_0000_0000_0000; CROM[1535] = 108'o2677_4443_0000_4174_4467_0700_0000_0003_0000; CROM[1536] = 108'o3001_3446_0606_4174_4007_0700_0000_0000_0000; CROM[1537] = 108'o0122_4226_0004_4174_4007_0630_2000_0060_0000; CROM[1538] = 108'o0122_3446_1200_4174_4007_0630_2000_0060_0000; CROM[1539] = 108'o1214_3772_0000_0275_5007_0520_0000_0000_0000; CROM[1540] = 108'o3005_3771_0003_0276_6007_0700_0000_0000_0000; CROM[1541] = 108'o3006_3772_0000_1275_5007_0701_0000_0000_1441; CROM[1542] = 108'o0160_3333_0003_4174_4007_0621_0000_0000_0000; CROM[1543] = 108'o3010_3221_0004_4174_4007_0700_0000_0000_0000; CROM[1544] = 108'o0330_3333_0003_4174_4007_0520_0000_0000_0000; CROM[1545] = 108'o1224_3447_0305_4174_4007_0421_0000_0000_0000; CROM[1546] = 108'o3013_3662_0000_4374_0007_0700_0000_0060_0000; CROM[1547] = 108'o3014_2222_0000_4174_4007_0700_4000_0000_0000; CROM[1548] = 108'o3016_2446_0505_4174_4047_0700_0040_0000_0000; CROM[1549] = 108'o3016_4751_1217_4374_4007_0700_0000_0000_0004; CROM[1550] = 108'o3017_3221_0006_0174_4007_0700_0000_0000_0000; CROM[1551] = 108'o0054_3777_0003_0274_4007_0520_0000_0000_0000; CROM[1552] = 108'o0354_4552_0000_1275_5007_0701_0000_0000_1442; CROM[1553] = 108'o3022_0002_1600_4174_4007_0700_0000_0000_0000; CROM[1554] = 108'o1242_4003_0000_1174_4007_0700_0400_0000_1440; CROM[1555] = 108'o0551_4552_0000_1275_5007_0701_0000_0000_1443; CROM[1556] = 108'o0056_3333_0017_4174_4003_5701_0000_0000_0000; CROM[1557] = 108'o3026_1772_0000_0274_4007_0701_0040_0000_0000; CROM[1558] = 108'o1244_3223_0000_0174_4007_0621_0400_0000_0000; CROM[1559] = 108'o3032_4113_1600_1174_4007_0700_0400_0000_1441; CROM[1560] = 108'o3031_3551_1616_4374_0007_0700_0000_0040_0000; CROM[1561] = 108'o3032_3440_1616_1174_4007_0700_0400_0000_1441; CROM[1562] = 108'o1246_3333_0003_4174_4007_0520_0000_0000_0000; CROM[1563] = 108'o3034_0111_0503_4174_4007_0700_0040_0000_0000; CROM[1564] = 108'o3035_0002_0600_4174_4007_0700_0000_0000_0000; CROM[1565] = 108'o3036_0111_0503_4174_4007_0700_0040_0000_0000; CROM[1566] = 108'o0355_3333_0017_4174_4003_5701_0000_0000_0000; CROM[1567] = 108'o3040_2444_0303_4174_4047_0700_0040_0000_0000; CROM[1568] = 108'o1250_0113_0303_1174_4007_0521_0400_0000_1442; CROM[1569] = 108'o0100_7003_0000_1174_4156_4700_0400_0000_1443; CROM[1570] = 108'o0001_3446_0303_4174_4044_1700_0000_0000_0000; CROM[1571] = 108'o1252_3333_0003_4174_4007_0520_0000_0000_0000; CROM[1572] = 108'o3045_3771_0004_4374_4007_0700_0000_0010_0000; CROM[1573] = 108'o1256_3333_0005_4174_4007_0520_0000_0000_0000; CROM[1574] = 108'o1256_3551_0404_4374_4007_0700_0000_0004_0000; CROM[1575] = 108'o3050_3447_0303_4174_4007_0700_0000_0000_0000; CROM[1576] = 108'o3051_3447_0505_4174_4007_0700_0000_0000_0000; CROM[1577] = 108'o3052_3447_0505_4174_4007_0700_0000_0000_0000; CROM[1578] = 108'o1260_1114_0503_4174_4067_0630_6000_0060_0000; CROM[1579] = 108'o1262_3447_0303_4174_4007_0520_0000_0000_0000; CROM[1580] = 108'o3055_3444_0303_4174_4007_0700_0000_0000_0000; CROM[1581] = 108'o3056_4002_1200_4174_4007_0700_0000_0000_0000; CROM[1582] = 108'o0014_3333_0004_4174_4000_1701_0000_0000_0000; CROM[1583] = 108'o1266_0115_0503_4174_4007_0630_2040_0060_0000; CROM[1584] = 108'o3061_1772_0000_1274_4007_0701_4000_0000_1443; CROM[1585] = 108'o1270_4003_0000_1174_4007_0621_0400_0000_1443; CROM[1586] = 108'o1272_4003_0000_1174_4007_0621_0400_0000_1442; CROM[1587] = 108'o1274_4003_0000_1174_4007_0621_0400_0000_1441; CROM[1588] = 108'o1272_4003_0000_1174_4007_0700_0400_0000_1442; CROM[1589] = 108'o1274_4003_0000_1174_4007_0700_0400_0000_1441; CROM[1590] = 108'o0024_3440_0303_0174_4004_1700_0400_0000_0000; CROM[1591] = 108'o3070_4551_0404_4374_0007_0700_0000_0037_7777; CROM[1592] = 108'o1276_2441_0404_4174_4007_0621_4000_0000_0000; CROM[1593] = 108'o1300_2441_0404_4174_4007_0621_4000_0000_0000; CROM[1594] = 108'o3073_3443_0400_4174_4007_0701_1000_0077_0000; CROM[1595] = 108'o0264_3771_0004_0276_6007_0700_0000_0000_0000; CROM[1596] = 108'o3075_0111_0703_4170_4007_0700_0200_0003_0002; CROM[1597] = 108'o0004_3333_0003_4175_5004_1701_0200_0000_0002; CROM[1598] = 108'o0070_4443_0000_2174_4006_6700_0000_0000_0000; CROM[1599] = 108'o0070_4443_0000_2174_4466_6700_0000_0003_0000; CROM[1600] = 108'o3076_3771_0003_4361_5217_0700_0200_0000_0502; CROM[1601] = 108'o0001_4551_1205_4365_5004_1700_0200_0000_0002; CROM[1602] = 108'o0002_4257_0503_4374_4004_1701_0000_0000_0376; CROM[1603] = 108'o3104_4221_0005_4174_0007_0700_1000_0031_0220; CROM[1604] = 108'o3105_3447_0505_4174_4007_0700_1020_0041_0010; CROM[1605] = 108'o3106_3333_0003_4174_4007_0700_1000_0031_7770; CROM[1606] = 108'o3107_4222_0000_4174_4007_0700_0000_0000_0000; CROM[1607] = 108'o3110_4224_0003_4174_4027_0700_1020_0041_0010; CROM[1608] = 108'o3111_4224_0003_4174_4027_0700_0000_0000_0000; CROM[1609] = 108'o0002_4001_0503_4174_4004_1700_0000_0000_0000; CROM[1610] = 108'o3113_3447_1200_4174_4007_0700_0200_0003_0002; CROM[1611] = 108'o0002_3333_0003_4175_5004_1701_0200_0000_0002; CROM[1612] = 108'o3115_4222_0000_4174_4007_0700_0000_0000_0000; CROM[1613] = 108'o3116_4224_0000_4174_4027_0700_1020_0041_0010; CROM[1614] = 108'o3117_4224_0000_4174_4027_0700_0000_0000_0000; CROM[1615] = 108'o3120_3333_0003_4174_4007_0701_1000_0073_0000; CROM[1616] = 108'o3121_4443_0000_4174_4007_0700_1000_0051_0770; CROM[1617] = 108'o3122_4002_1200_4174_4007_0700_1000_0031_0000; CROM[1618] = 108'o3123_3444_0404_4174_4007_0700_1020_0041_0010; CROM[1619] = 108'o3124_7221_0003_4174_4007_0700_0000_0000_0000; CROM[1620] = 108'o3125_4111_0503_4174_4007_0700_0000_0000_0000; CROM[1621] = 108'o3126_4001_0404_4174_4007_0700_0000_0000_0000; CROM[1622] = 108'o3112_3111_0403_4174_4007_0700_0000_0000_0000; CROM[1623] = 108'o1302_3770_0304_4344_4007_0700_2000_0071_0011; CROM[1624] = 108'o3131_3771_0004_4374_0007_0700_0000_0000_0000; CROM[1625] = 108'o3132_3333_0004_7174_4007_0700_0400_0000_0221; CROM[1626] = 108'o3133_4557_0305_4374_4007_0701_0000_0000_7700; CROM[1627] = 108'o3134_3770_0505_4344_4007_0700_2000_0071_0003; CROM[1628] = 108'o1304_4221_0005_4174_0007_0700_0000_0000_0000; CROM[1629] = 108'o3136_3772_0000_4370_4007_0700_0000_0000_0044; CROM[1630] = 108'o3137_1662_0000_7274_4007_0701_4000_0000_0221; CROM[1631] = 108'o3140_3771_0005_7274_4007_0701_0000_0000_0222; CROM[1632] = 108'o0664_4443_0000_4174_4007_0700_2000_0071_0042; CROM[1633] = 108'o3142_3771_0003_4374_4007_0700_0000_0077_7777; CROM[1634] = 108'o1310_0661_0005_7274_4007_0622_0000_0000_0224; CROM[1635] = 108'o1312_3333_0003_4174_4007_0421_0000_0000_0000; CROM[1636] = 108'o1312_0551_0303_7274_4007_0701_0000_0000_0226; CROM[1637] = 108'o3146_3441_0306_4174_4007_0700_2000_0071_0043; CROM[1638] = 108'o0062_3772_0000_7274_4007_0701_0000_0000_0222; CROM[1639] = 108'o3150_2555_0303_4374_4007_0701_4000_0000_0044; CROM[1640] = 108'o3151_3770_0303_4344_4007_0700_2000_0071_0011; CROM[1641] = 108'o1314_3771_0003_4370_4007_0700_0000_0000_0000; CROM[1642] = 108'o1400_3113_0305_0174_4007_0700_0400_0000_0000; CROM[1643] = 108'o1316_3770_0604_4344_4007_0700_0000_0000_0000; CROM[1644] = 108'o3155_2112_0306_4174_4007_0700_4000_0000_0000; CROM[1645] = 108'o3156_0001_0705_4174_4007_0700_0000_0000_0000; CROM[1646] = 108'o3157_3770_0505_4344_0007_0700_0000_0000_0000; CROM[1647] = 108'o3160_0551_0505_0274_4407_0701_0000_0000_0000; CROM[1648] = 108'o0002_3771_0013_4370_4004_1700_0000_0000_0001; CROM[1649] = 108'o1320_2113_0506_4174_4007_0331_4000_0000_0000; CROM[1650] = 108'o1322_3223_0000_4174_4007_0671_0200_0000_0002; CROM[1651] = 108'o1320_3772_0000_4365_5007_0700_0200_0000_0002; CROM[1652] = 108'o3165_3223_0000_4174_4007_0701_0200_0000_0002; CROM[1653] = 108'o1330_2113_0603_4174_4007_0521_4000_0000_0000; CROM[1654] = 108'o3163_0111_0704_4170_4007_0700_0200_0004_0712; CROM[1655] = 108'o3170_3770_0303_4344_4007_0700_0000_0000_0000; CROM[1656] = 108'o3171_3771_0003_7270_4007_0701_0000_0000_0214; CROM[1657] = 108'o1100_3440_0303_0174_4007_0700_0400_0000_0000; CROM[1658] = 108'o3173_3441_0503_4174_4007_0700_2000_0041_2000; CROM[1659] = 108'o3174_3441_0405_4174_4007_0700_2000_0020_0000; CROM[1660] = 108'o1332_3333_0003_4174_4007_0520_1000_0041_2000; CROM[1661] = 108'o1336_4222_0000_4174_4007_0630_2000_0060_0000; CROM[1662] = 108'o0163_3442_0300_4174_4007_0700_2000_0071_0033; CROM[1663] = 108'o3200_3441_0403_4174_4007_0700_1000_0041_0002; CROM[1664] = 108'o0420_3446_0303_4174_4003_4701_1000_0041_1600; CROM[1665] = 108'o3203_3441_0304_4174_4007_0700_1000_0031_0200; CROM[1666] = 108'o3203_2441_0304_4174_4007_0700_5000_0031_0200; CROM[1667] = 108'o1346_3445_0506_4174_4007_0520_0000_0000_0000; CROM[1668] = 108'o1363_4222_0000_4174_4007_0700_0000_0000_0000; CROM[1669] = 108'o1362_3446_0303_4174_4047_0700_2000_0071_0006; CROM[1670] = 108'o3207_4222_0000_0174_4007_0700_0000_0000_0000; CROM[1671] = 108'o1364_3771_0003_0276_6007_0520_1000_0040_2000; CROM[1672] = 108'o1366_4443_0000_4174_4007_0630_2000_0060_0000; CROM[1673] = 108'o1514_4221_0013_4174_4003_7700_0200_0003_0001; CROM[1674] = 108'o1637_2441_0303_4174_4007_0700_0040_0000_0000; CROM[1675] = 108'o2006_3777_0005_0274_4007_0521_2000_0020_2000; CROM[1676] = 108'o3220_0002_0400_4174_4007_0700_0000_0000_0000; CROM[1677] = 108'o3216_3442_0400_4174_4007_0700_2000_0020_0000; CROM[1678] = 108'o2014_3333_0016_4174_4007_0700_1000_0041_2000; CROM[1679] = 108'o3220_0002_0600_4174_4007_0700_0000_0000_0000; CROM[1680] = 108'o3221_0116_0503_4174_4047_0700_0040_0000_0000; CROM[1681] = 108'o0433_3444_0303_4174_4046_2700_0000_0000_0000; CROM[1682] = 108'o3223_3444_0303_4174_4047_0700_1000_0041_1777; CROM[1683] = 108'o3224_3444_0303_4174_4047_0700_1000_0041_1777; CROM[1684] = 108'o2027_3002_1700_4170_4007_0700_0000_0000_0000; CROM[1685] = 108'o3226_3444_1616_4174_4067_0700_0000_0000_0000; CROM[1686] = 108'o0472_3446_1616_4174_4047_0630_2000_0060_0000; CROM[1687] = 108'o0001_3446_1616_4174_4044_1700_0000_0000_0000; CROM[1688] = 108'o3231_4662_0000_4374_0007_0700_0000_0007_7777; CROM[1689] = 108'o3232_3221_0005_4174_4007_0700_0000_0000_0000; CROM[1690] = 108'o0623_4557_0006_1274_4007_0700_0000_0000_1441; CROM[1691] = 108'o3234_3227_0004_4174_4007_0700_2000_0011_0000; CROM[1692] = 108'o2022_3777_0006_0274_4007_0521_1000_0040_2000; CROM[1693] = 108'o1012_0111_1604_4174_4007_0700_0000_0000_0000; CROM[1694] = 108'o3237_3447_0705_4174_4007_0700_0000_0000_0000; CROM[1695] = 108'o2024_4553_1700_4374_4007_0321_0000_0020_0000; CROM[1696] = 108'o2026_4553_1700_4374_4007_0321_0000_0010_0000; CROM[1697] = 108'o3242_2441_0606_4174_4007_0700_4000_0000_0000; CROM[1698] = 108'o2030_2331_0005_1174_4007_0521_0040_0000_1441; CROM[1699] = 108'o2032_3777_0003_0274_4007_0521_1000_0030_2000; CROM[1700] = 108'o3245_3547_0303_4374_4007_0701_0000_0077_7400; CROM[1701] = 108'o3246_2442_0400_4174_4007_0700_4000_0000_0000; CROM[1702] = 108'o2035_2446_0303_4174_4047_0700_0040_0000_0000; CROM[1703] = 108'o0513_3444_1616_4174_4046_2700_0000_0000_0000; CROM[1704] = 108'o1515_4113_0400_1174_4007_0700_0400_0000_1441; CROM[1705] = 108'o2042_3223_0000_4174_4007_0621_0000_0000_0000; CROM[1706] = 108'o2046_4221_0013_4174_4007_0700_0000_0000_0000; CROM[1707] = 108'o2050_4221_0013_4174_4007_0700_0000_0000_0000; CROM[1708] = 108'o0100_4113_0400_1174_4156_4700_0400_0000_1441; CROM[1709] = 108'o2052_3223_0000_4174_4007_0621_0000_0000_0000; CROM[1710] = 108'o0002_4553_1300_4374_4004_1321_0000_0000_2000; CROM[1711] = 108'o3260_3111_0605_4174_0417_0700_0000_0000_0000; CROM[1712] = 108'o3261_3333_0005_4174_4217_0700_0000_0000_0500; CROM[1713] = 108'o3262_3333_0003_7174_4007_0700_0400_0000_0240; CROM[1714] = 108'o0170_4443_0000_2174_4006_6700_0000_0000_0000; CROM[1715] = 108'o3262_3771_0005_4361_5217_0700_0200_0000_0502; CROM[1716] = 108'o0574_3333_0003_7174_4003_7700_0400_0000_0242; CROM[1717] = 108'o3266_3333_0005_4174_4007_0700_1000_0041_6020; CROM[1718] = 108'o2070_4222_0000_4174_4006_7701_1000_0041_1770; CROM[1719] = 108'o0507_4113_0312_7174_4007_0700_0400_0000_0243; CROM[1720] = 108'o2074_3771_0005_1276_6007_0522_0000_0000_1443; CROM[1721] = 108'o3272_7771_0003_7274_4007_0701_0000_0000_0242; CROM[1722] = 108'o2076_3333_0005_4174_4007_0520_0000_0000_0000; CROM[1723] = 108'o1515_4221_0013_4170_4007_0700_0000_0000_0000; CROM[1724] = 108'o2100_3440_0303_1174_4007_0670_0400_0000_1441; CROM[1725] = 108'o2104_3440_0303_1174_4007_0700_0400_0000_1443; CROM[1726] = 108'o3274_0111_0703_4170_4007_0700_0000_0000_0000; CROM[1727] = 108'o3300_3333_0005_7174_4007_0700_0400_0000_0213; CROM[1728] = 108'o3301_3333_0004_7174_4007_0700_0400_0000_0212; CROM[1729] = 108'o2071_3333_0006_7174_4007_0700_0400_0000_0214; CROM[1730] = 108'o3303_3771_0005_7274_4007_0701_0000_0000_0213; CROM[1731] = 108'o3304_3771_0004_7274_4007_0701_0000_0000_0212; CROM[1732] = 108'o3274_3771_0006_7274_4007_0701_0000_0000_0214; CROM[1733] = 108'o3306_0111_0704_4174_4007_0700_0000_0000_0000; CROM[1734] = 108'o0540_3771_0013_4370_4007_0700_0000_0000_0003; CROM[1735] = 108'o3310_3113_0406_0174_4007_0700_0400_0000_0000; CROM[1736] = 108'o0252_4221_0013_4170_4007_0700_0000_0000_0000; CROM[1737] = 108'o1020_3333_0006_4174_4007_0520_0000_0000_0000; CROM[1738] = 108'o3313_3440_0606_0174_4007_0700_0400_0000_0000; CROM[1739] = 108'o3314_3771_0013_4370_4007_0700_0000_0000_0010; CROM[1740] = 108'o1030_3333_0004_4174_4007_0520_0000_0000_0000; CROM[1741] = 108'o3316_4111_1203_7174_4007_0700_0000_0000_0245; CROM[1742] = 108'o3317_4551_1205_7274_4007_0700_0000_0000_0245; CROM[1743] = 108'o3320_2111_0503_4174_4007_0700_4000_0000_0000; CROM[1744] = 108'o3321_1111_0704_4174_4007_0700_4000_0000_0000; CROM[1745] = 108'o3322_1111_0706_4174_4007_0700_4000_0000_0000; CROM[1746] = 108'o2116_3333_0003_4174_4007_0621_0000_0000_0000; CROM[1747] = 108'o3324_3771_0013_4370_4007_0700_0000_0000_0012; CROM[1748] = 108'o1030_3223_0000_7174_4007_0700_0400_0000_0245; CROM[1749] = 108'o3326_3333_0003_7174_4007_0700_0400_0000_0243; CROM[1750] = 108'o3327_3771_0003_0276_6007_0700_0000_0000_0000; CROM[1751] = 108'o2124_4521_0306_4374_4007_0700_0000_0077_7000; CROM[1752] = 108'o0460_7333_0003_7174_4007_0700_0400_0000_0242; CROM[1753] = 108'o2134_4553_0500_4374_4007_0321_0000_0076_0000; CROM[1754] = 108'o2136_3445_0505_1174_4007_0700_0000_0000_1444; CROM[1755] = 108'o0002_3440_0505_1174_4004_1700_0400_0000_1443; CROM[1756] = 108'o0004_0111_0705_4174_4004_1700_0000_0000_0000; CROM[1757] = 108'o3336_3111_0306_4174_4007_0700_0000_0000_0000; CROM[1758] = 108'o2143_1111_0701_4170_4007_0700_4000_0000_0000; CROM[1759] = 108'o2144_3771_0005_1276_6007_0522_0000_0000_1443; CROM[1760] = 108'o2146_3440_0303_1174_4007_0700_0400_0000_1444; CROM[1761] = 108'o3342_4551_0404_4374_0007_0700_0000_0037_7777; CROM[1762] = 108'o2150_2441_0404_1174_4007_0621_4000_0000_1443; CROM[1763] = 108'o2143_3440_0404_1174_4007_0700_0400_0000_1444; CROM[1764] = 108'o0001_4223_0000_1174_4004_1700_0400_0000_1444; CROM[1765] = 108'o3346_3771_0004_1276_6007_0701_0000_0000_1441; CROM[1766] = 108'o2125_3771_0003_0276_6007_0700_2000_0071_0024; CROM[1767] = 108'o2164_3551_0606_4374_0007_0700_0000_0004_0000; CROM[1768] = 108'o3351_3441_0605_4170_4007_0700_0000_0000_0000; CROM[1769] = 108'o2176_1111_0305_4174_4007_0421_4000_0000_0000; CROM[1770] = 108'o3353_3440_0303_1174_4007_0700_0400_0000_1443; CROM[1771] = 108'o3354_3771_0003_7274_4007_0701_0000_0000_0240; CROM[1772] = 108'o3355_0111_0703_4174_4007_0700_0200_0004_0012; CROM[1773] = 108'o3356_3771_0016_4365_5007_0700_0200_0000_0002; CROM[1774] = 108'o3357_3771_0013_4370_4007_0700_0000_0000_0012; CROM[1775] = 108'o3360_2113_0507_7174_4007_0701_4400_0000_0242; CROM[1776] = 108'o3361_3441_1603_7174_4007_0700_0000_0000_0242; CROM[1777] = 108'o0640_0551_0705_7274_4007_0521_0000_0000_0242; CROM[1778] = 108'o3360_3440_0505_1174_4007_0700_0400_0000_1443; CROM[1779] = 108'o3372_3771_0004_1276_6007_0701_0000_0000_1441; CROM[1780] = 108'o0636_0551_0503_7274_4003_7701_0000_0000_0241; CROM[1781] = 108'o3366_3771_0003_7274_4007_0701_0000_0000_0247; CROM[1782] = 108'o3367_3771_0004_7274_4007_0701_0000_0000_0250; CROM[1783] = 108'o2202_4553_0500_4374_4007_0321_0000_0004_0000; CROM[1784] = 108'o3371_3440_0404_1174_4007_0700_0400_0000_1441; CROM[1785] = 108'o3372_3440_0505_1174_4007_0700_0400_0000_1443; CROM[1786] = 108'o2204_1111_0706_4174_4007_0531_4000_0000_0000; CROM[1787] = 108'o1505_3771_0003_7274_4007_0701_0000_0000_0247; CROM[1788] = 108'o2203_5551_0505_4374_0007_0700_0000_0004_0000; CROM[1789] = 108'o3376_3333_0016_4174_4007_0700_0200_0000_0010; CROM[1790] = 108'o2220_1551_0303_6274_4007_0522_4000_0000_0000; CROM[1791] = 108'o3400_3333_0017_4174_4007_0700_0200_0000_0010; CROM[1792] = 108'o2222_0551_0404_6274_4007_0561_0000_0000_0000; CROM[1793] = 108'o3402_4221_0013_4170_4007_0700_0000_0000_0000; CROM[1794] = 108'o2224_3770_0605_4344_4007_0700_0000_0000_0000; CROM[1795] = 108'o2230_3447_0305_4174_4007_0700_2000_0071_0002; CROM[1796] = 108'o3405_7441_0605_4174_4007_0700_1000_0071_0010; CROM[1797] = 108'o3406_3441_0603_4174_4007_0701_1000_0043_0000; CROM[1798] = 108'o2234_4553_0500_4374_4007_0321_0000_0003_0000; CROM[1799] = 108'o3410_3223_0000_4174_4007_0701_0200_0000_0002; CROM[1800] = 108'o3423_3440_0303_1174_4007_0700_0400_0000_1444; CROM[1801] = 108'o0705_4251_0303_4374_4007_0700_0000_0007_7777; CROM[1802] = 108'o3413_3771_0005_1276_6007_0701_0000_0000_1443; CROM[1803] = 108'o3414_3443_0500_4174_4007_0700_0200_0003_0012; CROM[1804] = 108'o3415_3771_0005_1276_6007_0701_0000_0000_1444; CROM[1805] = 108'o2246_3333_0005_4175_5007_0701_0200_0000_0002; CROM[1806] = 108'o0007_3440_0606_0174_4004_1700_0400_0000_0000; CROM[1807] = 108'o3420_0551_0303_7274_4007_0701_0000_0000_0240; CROM[1808] = 108'o0001_3443_0300_4174_4004_1700_0200_0004_0012; CROM[1809] = 108'o3422_0115_0703_4174_4007_0700_0000_0000_0000; CROM[1810] = 108'o3424_3333_0003_4174_4007_0701_2000_0007_0000; CROM[1811] = 108'o3424_4443_0000_4174_4007_0700_2000_0071_0000; CROM[1812] = 108'o3425_3333_0006_4174_4007_0701_1000_0073_0000; CROM[1813] = 108'o3426_4443_0000_4174_4007_0700_1000_0051_0030; CROM[1814] = 108'o3427_4443_0000_4174_4007_0700_1000_0040_0000; CROM[1815] = 108'o3430_4443_0000_4174_4007_0700_1000_0041_0010; CROM[1816] = 108'o3431_3777_0003_4334_4057_0700_2000_0041_0000; CROM[1817] = 108'o2256_4251_0303_4374_4007_0630_0000_0000_0170; CROM[1818] = 108'o3433_3770_0303_4334_4017_0700_0000_0041_0000; CROM[1819] = 108'o3434_4551_0606_4374_0007_0700_0000_0070_0000; CROM[1820] = 108'o3435_4551_0303_4374_4007_0700_0000_0003_0000; CROM[1821] = 108'o3436_3111_0306_4174_0007_0700_0000_0000_0000; CROM[1822] = 108'o2115_3440_0606_0174_4007_0700_0400_0000_0000; CROM[1823] = 108'o2262_0113_0703_1174_4007_0521_0400_0000_1443; CROM[1824] = 108'o3441_0551_0303_7274_4007_0700_0000_0000_0241; CROM[1825] = 108'o0004_4553_0300_7274_4004_1622_0000_0000_0243; CROM[1826] = 108'o3443_0551_0303_7274_4007_0701_0000_0000_0241; CROM[1827] = 108'o2264_3333_0003_4174_4007_0700_0200_0004_0012; CROM[1828] = 108'o2272_3770_0303_1174_4007_0520_0400_0000_1443; CROM[1829] = 108'o0231_3770_0305_4334_4016_7701_0000_0033_6000; CROM[1830] = 108'o3447_0111_0703_4170_4007_0700_0000_0000_0000; CROM[1831] = 108'o2276_3440_0303_1174_4007_0700_0400_0000_1441; CROM[1832] = 108'o2300_3441_0304_4174_4007_0700_0000_0000_0000; CROM[1833] = 108'o2304_3770_0305_4334_4016_7701_0000_0033_6000; CROM[1834] = 108'o3453_0111_0703_4170_4217_0700_0000_0000_0600; CROM[1835] = 108'o0230_3440_0303_1174_4006_6701_1400_0073_1444; CROM[1836] = 108'o3455_3771_0003_4361_5217_0700_0200_0000_0602; CROM[1837] = 108'o0230_4443_0000_2174_4006_6700_0000_0000_0000; CROM[1838] = 108'o3457_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1839] = 108'o0010_3333_0003_7174_4004_1700_0400_0000_0244; CROM[1840] = 108'o0001_4551_0303_4374_0004_1700_0000_0000_0777; CROM[1841] = 108'o3462_3771_0003_7274_4007_0701_0000_0000_0214; CROM[1842] = 108'o2310_0113_0703_0174_4007_0701_0400_0000_0000; CROM[1843] = 108'o3464_1771_0003_7274_4007_0701_4000_0000_0242; CROM[1844] = 108'o2312_3771_0005_1276_6007_0522_0000_0000_1443; CROM[1845] = 108'o2700_3440_0303_1174_4007_0700_0400_0000_1443; CROM[1846] = 108'o3470_0111_0503_4174_4007_0700_0000_0000_0000; CROM[1847] = 108'o3470_1771_0003_7274_4007_0701_4000_0000_0242; CROM[1848] = 108'o3471_3551_0303_7274_4007_0701_0000_0000_0214; CROM[1849] = 108'o2700_3440_0303_0174_4007_0700_0400_0000_0000; CROM[1850] = 108'o3464_7771_0003_7274_4007_0701_0000_0000_0242; CROM[1851] = 108'o0001_3770_0305_4334_4014_1700_0000_0043_6000; CROM[1852] = 108'o3475_3741_0104_4074_4007_0700_0000_0000_0000; CROM[1853] = 108'o2316_3333_0004_7174_4007_0340_0400_0000_0425; CROM[1854] = 108'o3477_3771_0002_4365_5617_0700_0200_0000_0002; CROM[1855] = 108'o2320_4553_0200_4374_4007_0321_0000_0070_0000; CROM[1856] = 108'o3501_4251_0505_4374_4007_0700_0000_0000_7770; CROM[1857] = 108'o0260_4113_0305_4174_4007_0330_0000_0000_0000; CROM[1858] = 108'o0136_4251_0505_4374_4007_0700_0000_0000_7770; CROM[1859] = 108'o3504_5551_0505_4370_4007_0700_0000_0000_0007; CROM[1860] = 108'o3505_4551_0304_4374_4007_0700_0000_0000_0007; CROM[1861] = 108'o3506_3111_0405_4174_4007_0700_0000_0000_0000; CROM[1862] = 108'o3507_4551_0304_4374_4007_0700_0000_0000_7760; CROM[1863] = 108'o2322_4553_0300_4374_4007_0331_0000_0010_0000; CROM[1864] = 108'o2326_4553_0300_4374_4007_0331_0000_0002_0000; CROM[1865] = 108'o3512_3333_0005_4174_4257_0700_0000_0000_0000; CROM[1866] = 108'o1400_3333_0005_7174_4007_0700_0400_0000_0230; CROM[1867] = 108'o3514_3333_0006_4174_4237_0700_0000_0000_0000; CROM[1868] = 108'o3515_5551_0606_4370_4007_0700_0000_0000_2000; CROM[1869] = 108'o2333_3333_0006_4174_4237_0700_0000_0000_0000; CROM[1870] = 108'o3517_3770_0505_4344_0007_0700_0000_0000_0000; CROM[1871] = 108'o3520_4551_0505_4374_0007_0700_0000_0000_7760; CROM[1872] = 108'o3521_4551_0505_4370_4007_0700_0000_0000_0007; CROM[1873] = 108'o3522_3771_0004_4304_4007_0701_0000_0000_0000; CROM[1874] = 108'o3523_4251_0404_4374_4007_0700_0000_0000_7770; CROM[1875] = 108'o3613_3111_0405_4174_4007_0700_0000_0000_0000; CROM[1876] = 108'o2334_3771_0003_4365_5007_0521_0200_0000_0002; CROM[1877] = 108'o3526_4551_0303_4374_0007_0700_0000_0050_7700; CROM[1878] = 108'o2336_4553_0300_4374_4007_0321_0000_0010_0000; CROM[1879] = 108'o2340_4221_0005_4174_0007_0700_2000_0071_0007; CROM[1880] = 108'o3531_4221_0011_4170_4007_0700_0000_0000_0000; CROM[1881] = 108'o3532_3111_0511_4174_4007_0700_0000_0000_0000; CROM[1882] = 108'o2406_3111_0311_4174_0477_0700_0000_0000_0000; CROM[1883] = 108'o3534_4551_0505_4370_4007_0700_0000_0074_7777; CROM[1884] = 108'o2344_4553_0300_4374_4007_0321_0000_0000_0020; CROM[1885] = 108'o3536_3333_0005_7174_4007_0700_0400_0000_0230; CROM[1886] = 108'o3537_3441_0310_4174_4007_0700_0000_0000_0000; CROM[1887] = 108'o2346_4553_1000_4374_4007_0321_0000_0000_0040; CROM[1888] = 108'o3613_4221_0005_4174_0007_0700_0000_0000_0000; CROM[1889] = 108'o3542_4551_1105_4374_0007_0700_0000_0050_7700; CROM[1890] = 108'o2354_3447_1106_4174_4007_0700_2000_0071_0006; CROM[1891] = 108'o0001_3441_0605_4170_4004_1700_0000_0000_0000; CROM[1892] = 108'o3545_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1893] = 108'o1400_3333_0003_7174_4007_0700_0400_0000_0215; CROM[1894] = 108'o3547_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1895] = 108'o1400_3333_0003_7174_4007_0700_0400_0000_0216; CROM[1896] = 108'o3551_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1897] = 108'o1400_3333_0003_7174_4007_0700_0400_0000_0220; CROM[1898] = 108'o3553_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1899] = 108'o1400_3333_0003_7174_4007_0700_0400_0000_0217; CROM[1900] = 108'o3555_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1901] = 108'o1400_3333_0003_7174_4007_0700_0400_0000_0227; CROM[1902] = 108'o2737_4551_0202_4374_0007_0700_0000_0077_7740; CROM[1903] = 108'o0004_4443_0000_4174_4004_1700_0000_0000_0000; CROM[1904] = 108'o3561_3771_0003_7274_4117_0701_0000_0000_0301; CROM[1905] = 108'o3562_4751_1205_4374_4007_0700_0000_0001_0000; CROM[1906] = 108'o3563_0111_0503_4174_4007_0700_0000_0000_0000; CROM[1907] = 108'o2356_3770_0303_4174_0007_0520_0000_0000_0000; CROM[1908] = 108'o3565_3771_0003_7274_4007_0701_0000_0000_0303; CROM[1909] = 108'o2360_1111_0503_4174_4007_0421_4000_0000_0000; CROM[1910] = 108'o3567_3771_0005_4304_4007_0701_0000_0000_0000; CROM[1911] = 108'o3570_3551_0505_4374_4007_0700_0000_0000_0040; CROM[1912] = 108'o2360_3333_0005_4174_4237_0700_0000_0000_0000; CROM[1913] = 108'o1114_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1914] = 108'o0002_3333_0003_7174_4004_1700_0400_0000_0300; CROM[1915] = 108'o3574_4451_1204_4324_4007_0700_0000_0000_0000; CROM[1916] = 108'o3575_4451_1206_4324_4007_0700_0000_0000_0000; CROM[1917] = 108'o2362_6113_0405_4174_4007_0621_0000_0000_0000; CROM[1918] = 108'o1120_0551_0404_7274_4007_0671_0000_0000_0301; CROM[1919] = 108'o3600_3333_0005_4175_5007_0701_0200_0000_0002; CROM[1920] = 108'o3601_0111_0702_4170_4007_0700_0200_0003_0012; CROM[1921] = 108'o1400_3333_0004_4175_5007_0701_0200_0000_0002; CROM[1922] = 108'o3603_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1923] = 108'o3604_3333_0003_7174_4007_0700_0400_0000_0302; CROM[1924] = 108'o1400_3333_0003_7174_4007_0700_0400_0000_0303; CROM[1925] = 108'o3606_3770_0505_4344_0007_0700_0000_0000_0000; CROM[1926] = 108'o2370_4553_0300_4374_4007_0331_0000_0002_0000; CROM[1927] = 108'o3610_3770_1416_4344_4007_0700_0000_0000_0000; CROM[1928] = 108'o3611_2441_0716_4170_4007_0700_4000_0000_0000; CROM[1929] = 108'o3612_4111_1416_4174_4007_0700_0000_0000_0000; CROM[1930] = 108'o0010_7443_1600_4174_4434_1700_0000_0000_0000; CROM[1931] = 108'o3614_3443_0300_4174_4007_0700_0200_0003_0012; CROM[1932] = 108'o1400_3333_0005_4175_5007_0701_0200_0000_0002; CROM[1933] = 108'o2402_4221_0003_4174_4007_0700_0000_0000_0000; CROM[1934] = 108'o2404_3333_0003_4174_4247_0700_0000_0000_1000; CROM[1935] = 108'o2410_3333_0003_4174_4347_0700_0000_0000_1000; CROM[1936] = 108'o1400_4223_0000_7174_4007_0700_0400_0000_0423; CROM[1937] = 108'o0001_4443_0000_4174_4004_1700_2000_0071_0375; CROM[1938] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0001; CROM[1939] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0002; CROM[1940] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0003; CROM[1941] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0004; CROM[1942] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0005; CROM[1943] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0006; CROM[1944] = 108'o3631_4751_1206_4374_4007_0700_0000_0000_0007; CROM[1945] = 108'o3632_4251_1403_4374_4007_0700_0000_0007_7577; CROM[1946] = 108'o3633_7443_0300_4174_4437_0700_0000_0000_0000; CROM[1947] = 108'o2412_4223_0000_4364_4277_0700_0200_0000_0010; CROM[1948] = 108'o3635_0551_0303_4370_4007_0701_0000_0000_0040; CROM[1949] = 108'o3636_0111_1003_4174_4007_0700_0000_0000_0000; CROM[1950] = 108'o3637_3443_0300_4174_4007_0700_0200_0024_1016; CROM[1951] = 108'o3640_3771_0003_4365_5007_0701_0200_0020_0012; CROM[1952] = 108'o2416_6553_0300_4374_4007_0321_0000_0025_4340; CROM[1953] = 108'o0060_4223_0000_4174_4467_0700_0000_0000_0004; CROM[1954] = 108'o2422_3445_0303_4174_4007_0530_0000_0000_0000; CROM[1955] = 108'o2430_3771_0005_4365_5007_0331_0200_0000_0002; CROM[1956] = 108'o3645_3447_0606_4174_4007_0700_0000_0000_0000; CROM[1957] = 108'o3637_0111_0605_4174_4007_0700_0200_0024_0012; CROM[1958] = 108'o2434_4113_0514_4174_4007_0330_0000_0000_0000; CROM[1959] = 108'o2446_3441_0603_4174_4007_0700_0000_0000_0000; CROM[1960] = 108'o2450_3113_0304_4174_4007_0701_0200_0000_0036; CROM[1961] = 108'o2460_4553_0600_4374_4007_0321_0000_0070_0000; CROM[1962] = 108'o3653_3333_0002_4174_4217_0700_0000_0000_0000; CROM[1963] = 108'o2464_4553_0200_4374_4007_0321_0000_0000_0017; CROM[1964] = 108'o0001_3771_0003_4365_5124_1700_0200_0000_0002; CROM[1965] = 108'o0001_4221_0003_4174_0124_1700_0000_0000_0000; CROM[1966] = 108'o1124_3771_0016_4354_4007_0650_2000_0071_0200; CROM[1967] = 108'o2470_4443_0000_4174_4007_0650_2000_0071_0777; CROM[1968] = 108'o0001_3771_0003_4365_5004_1700_0200_0000_0002; CROM[1969] = 108'o0001_3771_0004_4365_5004_1700_0200_0000_0002; CROM[1970] = 108'o0001_3772_0000_4365_5004_1700_0200_0000_0002; CROM[1971] = 108'o0001_4221_0004_4174_0004_1700_0000_0000_0000; CROM[1972] = 108'o0001_0111_0703_4174_4004_1700_0000_0000_0000; CROM[1973] = 108'o0001_3445_0505_4174_4004_1700_0000_0000_0000; CROM[1974] = 108'o0001_3443_0300_4174_4004_1701_0200_0000_0036; CROM[1975] = 108'o0004_3333_0005_4175_5004_1701_0200_0000_0002; CROM[1976] = 108'o0001_3333_0001_4175_5004_1701_0200_0000_0002; CROM[1977] = 108'o0001_3440_0404_0174_4004_1700_0400_0000_0000; CROM[1978] = 108'o1515_3771_0003_4365_5007_0700_0200_0000_0002; CROM[1979] = 108'o1516_3771_0003_0276_6007_0700_0000_0000_0000; CROM[1980] = 108'o2474_3333_0017_4175_5007_0701_0200_0000_0002; CROM[1981] = 108'o2502_3771_0004_7274_4007_0422_0000_0000_0227; CROM[1982] = 108'o3677_3771_0004_4354_4007_0700_0000_0000_0000; CROM[1983] = 108'o0010_3333_0004_7174_4004_1700_0400_0000_0210; CROM[1984] = 108'o2504_3333_0004_4174_4007_0700_0200_0021_1016; CROM[1985] = 108'o2505_0111_0704_4170_4007_0700_0200_0023_1016; CROM[1986] = 108'o2514_0111_0704_4170_4007_0700_0200_0023_1016; CROM[1987] = 108'o2515_0111_0704_4170_4007_0700_0200_0023_1016; CROM[1988] = 108'o2520_0111_0704_4170_4007_0700_0200_0023_1016; CROM[1989] = 108'o2521_0111_0704_4170_4007_0700_0200_0023_1016; CROM[1990] = 108'o2524_0111_0704_4170_4007_0700_0200_0023_1016; CROM[1991] = 108'o3710_3771_0003_7274_4007_0701_0000_0000_0211; CROM[1992] = 108'o3711_3771_0004_7274_4007_0701_0000_0000_0210; CROM[1993] = 108'o3712_3443_0400_4174_4007_0700_0200_0000_0010; CROM[1994] = 108'o0006_3771_0004_7274_4004_1701_0000_0000_0212; CROM[1995] = 108'o3714_3771_0006_4354_4007_0700_0000_0000_0000; CROM[1996] = 108'o3715_4551_0606_4374_0007_0700_0000_0040_0000; CROM[1997] = 108'o3716_3333_0006_7174_4007_0700_0400_0000_0210; CROM[1998] = 108'o3717_3771_0005_7274_4007_0701_0000_0000_0230; CROM[1999] = 108'o2530_4553_0500_4374_4007_0331_0000_0003_0000; CROM[2000] = 108'o3721_3333_0006_7174_4007_0700_0400_0000_0214; CROM[2001] = 108'o3722_3771_0006_4354_4007_0700_0000_0000_0000; CROM[2002] = 108'o3723_3333_0006_7174_4007_0700_0400_0000_0210; CROM[2003] = 108'o1060_3333_0004_7174_4007_0370_0400_0000_0212; CROM[2004] = 108'o3725_3333_0006_7174_4007_0700_0400_0000_0160; CROM[2005] = 108'o3726_3333_0006_7174_4007_0700_0400_0000_0161; CROM[2006] = 108'o1501_4571_1206_4374_4007_0700_0000_0036_0000; CROM[2007] = 108'o3730_4223_0000_4364_4277_0700_0200_0000_0010; CROM[2008] = 108'o3731_3551_1313_4374_0007_0700_0000_0002_4000; CROM[2009] = 108'o2532_4553_0600_4374_4007_0321_0000_0002_0000; CROM[2010] = 108'o3733_6551_0606_4374_0007_0700_0000_0000_1000; CROM[2011] = 108'o2534_3441_0605_4174_4007_0700_2000_0071_0007; CROM[2012] = 108'o2536_4553_1000_4374_4007_0321_0000_0000_0040; CROM[2013] = 108'o3736_3443_0300_4174_4007_0700_0200_0024_1016; CROM[2014] = 108'o1000_3771_0003_4365_5007_0700_0200_0000_0002; CROM[2015] = 108'o2572_4553_1300_4374_4007_0321_0000_0002_0000; CROM[2016] = 108'o2061_3771_0004_1276_6007_0701_0000_0000_1443; CROM[2017] = 108'o3456_0111_0703_4170_4007_0700_0210_0004_0012; CROM[2018] = 108'o3325_4571_1203_4374_4007_0700_0000_0077_7777; CROM[2019] = 108'o2156_3771_0006_1276_6007_0351_0000_0000_1443; CROM[2020] = 108'o3456_0111_0703_4174_4007_0700_0210_0004_0012; CROM[2021] = 108'o2576_4553_0600_4374_4007_0321_0000_0001_0000; CROM[2022] = 108'o3747_4221_0013_4170_4007_0700_0000_0000_0000; CROM[2023] = 108'o3750_3551_0606_4374_0007_0700_0000_0010_0000; CROM[2024] = 108'o2614_4553_1300_4374_4007_0321_0000_0000_4000; CROM[2025] = 108'o2111_3771_0006_0276_6007_0700_0000_0000_0000; CROM[2026] = 108'o1500_3111_0603_4174_4003_7700_0200_0003_0001; CROM[2027] = 108'o3755_3441_0305_4174_4007_0700_0000_0000_0000; CROM[2028] = 108'o2060_3771_0005_1276_6007_0701_0000_0000_1443; CROM[2029] = 108'o3756_5551_0305_4374_0007_0700_0000_0007_0000; CROM[2030] = 108'o3757_3443_0500_4174_4007_0701_0200_0000_0030; CROM[2031] = 108'o3760_4251_0404_4374_4007_0700_0000_0000_3777; CROM[2032] = 108'o3761_3551_0406_4374_4007_0700_0000_0040_0000; CROM[2033] = 108'o2616_4553_1300_4374_4007_0321_0000_0002_0000; CROM[2034] = 108'o3763_3771_0004_7274_4007_0701_0000_0000_0212; CROM[2035] = 108'o3764_3771_0005_7274_4007_0701_0000_0000_0213; CROM[2036] = 108'o3765_3771_0006_7274_4007_0701_0000_0000_0214; CROM[2037] = 108'o3766_3443_0300_4174_4007_0701_0200_0000_0032; CROM[2038] = 108'o0000_3771_0003_7274_4004_1701_0000_0000_0211; CROM[2039] = 108'o3770_3551_0304_4374_4007_0700_0000_0075_3777; CROM[2040] = 108'o3771_4111_0413_4174_0007_0700_0000_0000_0000; CROM[2041] = 108'o2630_3333_0003_4174_4007_0520_0000_0000_0000; CROM[2042] = 108'o2640_3443_0300_4174_4007_0370_0200_0024_1016; CROM[2043] = 108'o2644_4553_0300_4374_4007_0321_0000_0002_4000; CROM[2044] = 108'o2646_3333_0006_4174_4007_0520_0000_0000_0000; CROM[2045] = 108'o3776_3771_0004_4365_5007_0700_0200_0000_0002; CROM[2046] = 108'o2654_4553_0500_4374_4007_0331_0000_0000_0001; CROM[2047] = 108'o3720_3333_0003_7174_4007_0700_0400_0000_0211; rtl/cpu/useq/crom.v0000700000175100010010000001334012061517360 12736 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Microcontroller Control ROM (CROM) //! //! \details //! The Control ROM contains the executable microcode of the //! the microcontroller. //! //! \note //! Although all of the microcontroller addressing supports //! 12-bit addresses (4096 words of ROM) the Control ROM only //! implements 2048 words of ROM. //! //! The current microcode uses all of the ROM except for //! about 25 words. //! //! Implementing 4096 words of ROM would all double the amount //! of microcode and allow for feature growth. //! //! \note //! The contents of this file was extracted from the microcode //! listing file by a simple AWK script. Go see the makefile. //! //! \file //! crom.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "crom.vh" module CROM(clk, rst, clken, addr, crom); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:11] addr; // Address output reg [0:cromWidth-1] crom; // Output Data // // Control ROM initialization // // Note: // The KS10 microcode is extracted from the listing file by // a 'simple' AWK script and is included below. // reg [0:cromWidth-1] CROM[0:2047]; initial begin `include "crom.dat" end // // Control ROM // // Details: // The Control ROM stores the microcode. // // Note: // The KS10 only implemented half of the microcode. Therefore // the MSB of the address is ignored. If you need more than // 2048 words of microcode, you can simply add more ROM. See // notes at top-of-file. // // The KS10 used asynchronous ROM followed by a 108-bit wide // register. This register has been absorbed into this // synchronous ROM implementation. // // Trace: // Registers // CRA6/E2, CRA6/E46, CRA6/E67, CRA6/E86, CRA6/E87, CRA6/E104 // Address buffers: // CRA7/E5, CRA7/E6, CRA7/E10, CRA7/E11, CRA7/E19, CRA7/E20 // CRA7/E68, CRA7/E80, CRA7/E93, CRA7/E94, CRA7/E100, CRA7/E106 // ROMS: // CRA8/E8, CRA8/E13, CRA8/E14, CRA8/E22, CRA8/E23, CRA8/E28, // CRA8/E29, CRA8/E37, CRA8/E38, CRA8/E40, CRA8/E41, CRA8/E49, // CRA8/E50, CRA8/E52, CRA8/E53, CRA8/E60, CRA8/E61, CRA8/E63, // CRA8/E64, CRA8/E71, CRA8/E72, CRA8/E74, CRA8/E75, CRA8/E83, // CRA8/E109, CRA8/E117, CRA8/E120, CRA8/E126, CRA8/E134, CRA8/E142, // CRA8/E146, CRA8/E154, CRA8/E157, CRA8/E166, CRA8/E169, CRA8/E178, // // CRA9/E7, CRA9/E12, CRA9/E21, CRA9/E27, CRA9/E36, CRA9/E39, // CRA9/E48, CRA9/E51, CRA9/E59, CRA9/E62, CRA9/E70, CRA9/E73, // CRA9/E102, CRA9/E108, CRA9/E116, CRA9/E119, CRA9/E125, CRA9/E133, // CRA9/E141, CRA9/E145, CRA9/E153, CRA9/E156, CRA9/E165, CRA9/E168, // CRA9/E101, CRA9/E107, CRA9/E115, CRA9/E118, CRA9/E124, CRA9/E132, // CRA9/E140, CRA9/E144, CRA9/E152, CRA9/E155, CRA9/E164, CRA9/E167, // // CRM4/E7, CRM4/E14, CRM4/E19, CRM4/E33, CRM4/E40, CRM4/E45, // CRM4/E52, CRM4/E56, CRM4/E82, CRM4/E89, CRM4/E94, CRM4/E101, // CRM4/E105, CRM4/E117, CRM4/E127, CRM4/E132, CRM4/E133, CRM4/E140, // CRM4/E147, CRM4/E152, CRM4/E159, CRM4/E184, CRM4/E191, CRM4/E198, // // CRM5/E6, CRM5/E13, CRM5/E18, CRM5/E39, CRM5/E44, CRM5/E51, // CRM5/E70, CRM5/E74, CRM5/E81, CRM5/E88, CRM5/E100, CRM5/E104, // CRM5/E112, CRM5/E116, CRM5/E126, CRM5/E139, CRM5/E146, CRM5/E151, // CRM5/E158, CRM5/E165, CRM5/E178, CRM5/E183, CRM5/E190, CRM5/E197, // // CRM6/E5, CRM6/E12, CRM6/E17, CRM6/E31, CRM6/E38, CRM6/E43, // CRM6/E50, CRM6/E54, CRM6/E60, CRM6/E73, CRM6/E80, CRM6/E87, // CRM6/E103, CRM6/E107, CRM6/E125, CRM6/E138, CRM6/E145, CRM6/E150, // CRM6/E157, CRM6/E164, CRM6/E170, CRM6/E182, CRM6/E189, CRM6/E196, // // CRM7/E4, CRM7/E11, CRM7/E16, CRM7/E23, CRM7/E42, CRM7/E49, // CRM7/E59, CRM7/E62, CRM7/E68, CRM7/E72, CRM7/E79, CRM7/E93, // CRM7/E98, CRM7/E102, CRM7/E110, CRM7/E114, CRM7/E137, CRM7/E144, // CRM7/E156, CRM7/E163, CRM7/E176, CRM7/E181, CRM7/E188, CRM7/E195, // always @(posedge clk) begin if (clken) crom <= CROM[addr[1:11]]; end endmodule rtl/cpu/useq/crom.vh0000700000175100010010000004617712061517360 13124 0ustar RobNone//////////////////////////////////////////////////////////////////// // // KS-10 Processor // // \brief // Control ROM (CROM) Definitions // // \details // This file contains the Control ROM microcode field // definitions. // // Include it everywhere you need to access the Control ROM. // // \file // crom.vh // // \author // Rob Doyle - doyle (at) cox (dot) net // //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `define CROM_WIDTH 108 // CROM Width // // Control ROM Fields // `define cromJ crom[0:11] // Jump address // // ALU Functions // See LSRC and RSRC (below) for definition of R and S // `define cromFUN crom[12:14] // ALU Function `define cromFUN_ADD 3'b000 // F <- R + S `define cromFUN_SUBR 3'b001 // F <- R - S `define cromFUN_SUBS 3'b010 // F <- S - R `define cromFUN_ORRS 3'b011 // F <- R | S `define cromFUN_ANDRS 3'b100 // F <- R & S `define cromFUN_NOTRS 3'b101 // F <- ~R & S `define cromFUN_EXOR 3'b110 // F <- R ^ S `define cromFUN_EXNOR 3'b111 // F <- ~(R ^ S) // // ALU Sources (Left and Right) // `define cromLSRC crom[15:17] // ALU Left Source `define cromRSRC crom[18:20] // ALU Right Source `define cromSRC_AQ 3'b000 // R <- A, S <- Q `define cromSRC_AB 3'b001 // R <- A, S <- B `define cromSRC_ZQ 3'b010 // R <- 0, S <- Q `define cromSRC_ZB 3'b011 // R <- 0, S <- B `define cromSRC_ZA 3'b100 // R <- 0, S <- A `define cromSRC_DA 3'b101 // R <- D, S <- A `define cromSRC_DQ 3'b110 // R <- D, S <- Q `define cromSRC_DZ 3'b111 // R <- D, S <- 0 // // ALU Destinations // The shift operation are controlled by the cromSPEC_SHSTYLE field // `define cromDST crom[21:23] // ALU Destinations `define cromDST_QREG 3'b000 // RAM <- RAM, Q <- F `define cromDST_NOP 3'b001 // RAM <- RAM, Q <- Q `define cromDST_RAMA 3'b010 // RAM <- A, Q <- Q `define cromDST_RAMF 3'b011 // RAM <- F, Q <- Q `define cromDST_RAMQD 3'b100 // RAM <- F shifted right, Q <- Q shifted right `define cromDST_RAMD 3'b101 // RAM <- F shifted right, Q <- Q `define cromDST_RAMQU 3'b110 // RAM <- F shifted left, Q <- Q shifted left `define cromDST_RAMU 3'b111 // RAM <- F shifted left, Q <- Q // // ALU Register Selection // `define cromALU_A crom[26:29] // ALU A Address `define cromALU_B crom[32:35] // ALU B Address // // RAMFILE Address // `define cromRAMADDR_SEL crom[36:38] // RAMFILE address mux `define cromRAMADDR_SEL_AC 3'b000 // AC `define cromRAMADDR_SEL_ACOPNUM 3'b001 // AC OP # `define cromRAMADDR_SEL_XR 3'b010 // XR `define cromRAMADDR_SEL_SPARE3 3'b011 // Not used `define cromRAMADDR_SEL_VMA 3'b100 // `define cromRAMADDR_SEL_SPARE5 3'b101 // Not used `define cromRAMADDR_SEL_RAM 3'b110 // `define cromRAMADDR_SEL_NUM 3'b111 // Number Field // // DBUS // `define cromDBUS_SEL crom[40:41] // DBUS MUX Select `define cromDBUS_SEL_FLAGS 2'b00 // PC Flags `define cromDBUS_SEL_DP 2'b01 // Datapath `define cromDBUS_SEL_RAMFILE 2'b10 // RAM file `define cromDBUS_SEL_DBM 2'b11 // DBM Mux // // DBM // `define cromDBM_SEL crom[42:44] // DBM Select `define cromDBM_SEL_SCADPFAPR 3'b000 // SCAD,PF DISP, APR `define cromDBM_SEL_BYTES 3'b001 // BYTES `define cromDBM_SEL_EXPTIME 3'b010 // EXP, TIMER `define cromDBM_SEL_DP 3'b011 // DP `define cromDBM_SEL_DPSWAP 3'b100 // DP swapped `define cromDBM_SEL_VMA 3'b101 // VMA flags, VMA `define cromDBM_SEL_MEM 3'b110 // Memory bus `define cromDBM_SEL_NUM 3'b111 // CROM Number field // // Clock enables // `define cromLCLKEN crom[45] // ALU Left Clock Enable `define cromRCLKEN crom[48] // ALU Right Clock Enable // // SPEC Field // `define cromSPEC crom[51:56] // SPEC Fields `define cromSPEC_EN_40 crom[51] // SPEC Select 40 `define cromSPEC_EN_20 crom[52] // SPEC Select 20 `define cromSPEC_EN_10 crom[53] // SPEC Select 10 `define cromSPEC_SEL crom[54:56] // SPEC Select `define cromSPEC_SEL_CONS 3'b000 // 10: Console `define cromSPEC_SEL_PREVIOUS 3'b000 // 20: Force Previous Context `define cromSPEC_SEL_CRY18INH 3'b000 // 40: Inhibit Carry into Left Half `define cromSPEC_SEL_LOADIR 3'b001 // 10: Load IR `define cromSPEC_SEL_LOADXR 3'b001 // 20: Load XR `define cromSPEC_SEL_CLR1MSEC 3'b001 // 40: CLR Interval Timer `define cromSPEC_SEL_SPARE10_2 3'b010 // 10: Spare `define cromSPEC_SEL_SPARE20_2 3'b010 // 20: Spare `define cromSPEC_SEL_CLRIOLAT 3'b010 // 40: Clear IO Latch `define cromSPEC_SEL_LOADPI 3'b011 // 10: Load PI `define cromSPEC_SEL_APRFLAGS 3'b011 // 20: Load APR Flags `define cromSPEC_SEL_CLRIOBUSY 3'b011 // 40: Clear IO Busy `define cromSPEC_SEL_ASHTEST 3'b100 // 10: ASH Test `define cromSPEC_SEL_CLRCACHE 3'b100 // 20: Clear/Sweep cache `define cromSPEC_SEL_PAGEWRITE 3'b100 // 40: PAGE WRITE `define cromSPEC_SEL_EXPTEST 3'b101 // 10: EXP Test `define cromSPEC_SEL_LOADAPR 3'b101 // 20: Load APR `define cromSPEC_SEL_LOADNICOND 3'b101 // 40: Load NICOND `define cromSPEC_SEL_PCFLAGS 3'b110 // 10: Load PC FLAGS `define cromSPEC_SEL_PXCTOFF 3'b110 // 20: Turn off PXCT `define cromSPEC_SEL_PXCTEN 3'b110 // 40: Enable PXCT `define cromSPEC_SEL_MEMWAIT 3'b111 // 10: Mem Wait `define cromSPEC_SEL_MEMCLR 3'b111 // 20: Mem Clear `define cromSPEC_SEL_LOADACBLK 3'b111 // 40: Load AC Block `define cromSPEC_SHSTYLE crom[54:56] // Shift Style `define cromSPEC_SHSTYLE_NORM 3'b000 // NORMAL `define cromSPEC_SHSTYLE_ZERO 3'b001 // ZERO `define cromSPEC_SHSTYLE_ONES 3'b010 // ONES `define cromSPEC_SHSTYLE_ROT 3'b011 // ROT `define cromSPEC_SHSTYLE_ASHC 3'b100 // ASHC `define cromSPEC_SHSTYLE_LSHC 3'b101 // LSHC `define cromSPEC_SHSTYLE_DIV 3'b110 // DIV `define cromSPEC_SHSTYLE_ROTC 3'b111 // ROTC `define cromSPEC_SELBYTE crom[54:56] // Byte Select `define cromSPEC_SELBYTE_1 3'b001 // Byte Select Byte 1 `define cromSPEC_SELBYTE_2 3'b010 // Byte Select Byte 2 `define cromSPEC_SELBYTE_3 3'b011 // Byte Select Byte 3 `define cromSPEC_SELBYTE_4 3'b100 // Byte Select Byte 4 `define cromSPEC_SELBYTE_5 3'b101 // Byte Select Byte 5 // // Displacement Select // `define cromDISP crom[57:62] // DISP Fields `define cromDISP_EN_40 (~crom[57]) // DISP Select 40 (active low in microcode) `define cromDISP_EN_20 (~crom[58]) // DISP Select 20 (active low in microcode) `define cromDISP_EN_10 (~crom[59]) // DISP Select 10 (active low in microcode) `define cromDISP_SELH crom[61:62] // DISP Select (high 4 bits) `define cromDISP_SELH_DIAG 2'b00 // Diagnostic Dispatch `define cromDISP_SELH_RET 2'b01 // Return Dispatch `define cromDISP_SELH_J 2'b10 // DROM J Dispatch `define cromDISP_SELH_AREAD 2'b11 // DROM AREAD Dispatch `define cromDISP_SEL crom[60:62] // DISP Select (low 8 bits) `define cromDISP_SEL_DIAG 3'b000 // Diagnostic Dispatch `define cromDISP_SEL_RET 3'b001 // Return Dispatch `define cromDISP_SEL_MULTIPLY 3'b010 // Multiply Dispatch `define cromDISP_SEL_PAGEFAIL 3'b011 // Page Fail Dispatch `define cromDISP_SEL_NICOND 3'b100 // Next Instruction Dispatch `define cromDISP_SEL_BYTE 3'b101 // Byte Dispatch `define cromDISP_SEL_EAMODE 3'b110 // EA Mode Dispatch `define cromDISP_SEL_SCAD 3'b111 // SCAD Dispatch `define cromDISP_SEL_ZERO 3'b000 // No Dispatch (NOP) `define cromDISP_SEL_DP18TO21 3'b001 // DP[18:21] Dispatch `define cromDISP_SEL_J 3'b010 // DROM J Dispatch `define cromDISP_SEL_AREAD 3'b011 // DROM AREAD Dispatch `define cromDISP_SEL_NORM 3'b100 // Normailze Dispatch `define cromDISP_SEL_DP32TO35 3'b101 // DP[32:35] Dispatch `define cromDISP_SEL_DROMA 3'b110 // DROM A Dispatch `define cromDISP_SEL_DROMB 3'b111 // DROM B Dispatch // // Skip Select // `define cromSKIP crom[63:68] // SKIP Fields `define cromSKIP_EN_40 (~crom[63]) // SKIP Select 40 (active low in microcode) `define cromSKIP_EN_20 (~crom[64]) // SKIP Select 20 (active low in microcode) `define cromSKIP_EN_10 (~crom[65]) // SKIP Select 10 (active low in microcode) `define cromSKIP_SEL crom[66:68] // SKIP Select // // Misc Bits // `define cromT crom[69:71] // Microinstruction cycle length `define cromCRY38 crom[72] // Insert a carry into the LSB of the ALU `define cromLOADSC crom[73] // Load Step Counter from SCAD `define cromLOADFE crom[74] // Load FE Register from SCAD `define cromFMWRITE crom[75] // Write to RAMFILE `define cromMEM_CYCLE crom[76] // Start/complete a memory or IO cycle using # field `define cromDIVIDE crom[77] // Microinstruction is doing a divide `define cromMULTIPREC crom[78] // Multiprecision step (Divide, DFAD, DFSB) `define cromMULTISHIFT crom[79] // Fast Shift (repeat until FE overflows) `define cromCALL crom[80] // Save current location on stack // // SCAD // `define cromSCAD_FUN crom[90:92] // SCAD ALU OP `define cromSCAD_A_PLUS_A 3'b000 // A + A `define cromSCAD_A_OR_B 3'b001 // A | B `define cromSCAD_A_MINUS_B_1 3'b010 // A - B - 1 `define cromSCAD_A_MINUS_B 3'b011 // A - B `define cromSCAD_A_PLUS_B 3'b100 // A + B `define cromSCAD_A_AND_B 3'b101 // A & B `define cromSCAD_A_MINUS_1 3'b110 // A - 1 `define cromSCAD_A 3'b111 // A `define cromSCAD_ASEL crom[93:95] // SCAD A MUX Select `define cromSCAD_ASEL_SC 3'b000 // Step Counter `define cromSCAD_ASEL_SNUM 3'b001 // Small Number field `define cromSCAD_ASEL_PTR44 3'b010 // 044 `define cromSCAD_ASEL_BYTE1 3'b011 // DP[ 0: 6] `define cromSCAD_ASEL_BYTE2 3'b100 // DP[ 7:13] `define cromSCAD_ASEL_BYTE3 3'b101 // DP[14:20] `define cromSCAD_ASEL_BYTE4 3'b110 // DP[21:28] `define cromSCAD_ASEL_BYTE5 3'b111 // DP[28:34] `define cromSCAD_BSEL crom[96:97] // SCAD B MUX Select `define cromSCAD_BSEL_FE 2'b00 // FE `define cromSCAD_BSEL_EXP 2'b01 // EXP `define cromSCAD_BSEL_SHIFT 2'b10 // Shift `define cromSCAD_BSEL_SIZE 2'b11 // DP[6:11] `define cromSNUM crom[98:107] // Small Number field (10-bit) for SCAD // // Number Field // `define cromNUM crom[90:107] // // // State Field // Overloaded with Number Field // `define cromSTATE crom[90:107] // // // Memory Cycle Control // Overloaded with Number Field // `define cromMEM_FORCEUSER crom[90] // Force user mode reference `define cromMEM_FORCEEXEC crom[91] // Force exec mode reference `define cromMEM_FETCHCYCLE crom[92] // This is an instruction fetch cycle `define cromMEM_READCYCLE crom[93] // This is a read cycle `define cromMEM_WRTESTCYCLE crom[94] // Page Fail if not written `define cromMEM_WRITECYCLE crom[95] // This is a write cycle `define cromMEM_CACHEINH crom[97] // Don't lock in cache `define cromMEM_PHYSICAL crom[98] // Don't invoke paging hardare `define cromMEM_PXCTSEL crom[99:101] // Which PXCT bits to look at `define cromMEM_AREAD crom[102] // Let DROM select cycle type and VMA load `define cromMEM_DPFUNC crom[103] // Use dp[0:13] instead of cromNUM[0:13] `define cromMEM_CYCLE_SEL crom[102:103] // See above. Select Cycle type as a group. `define cromMEM_LOADVMA crom[104] // Load the VMA `define cromMEM_EXTADDR crom[105] // Put VMA[14:17] Bits onto Bus `define cromMEM_WAIT crom[106] // Start memory or IO cycle `define cromMEM_BWRITE crom[107] // Start memory cycle if DROM asks for it // These are only defined when cromMEM_DPFUNC (bit 103) is asserted `define cromMEM_IOCYCLE crom[100] // This is an IO cycle `define cromMEM_WRUCYCLE crom[101] // This is a WRU cycle `define cromMEM_VECTORCYCLE crom[102] // This is a read vector interrupt cycle `define cromMEM_IOBYTECYCLE crom[103] // This is a byte cycle // // Flag Manipulation // Overloaded with Number Field // `define cromSETOV crom[90] // Set arithmetic overflow `define cromSETFOV crom[91] // Set floating point overflow `define cromSETNODIV crom[92] // Set no divide `define cromCLRFPD crom[93] // Clear first part done `define cromSETFPD crom[94] // Set first part done `define cromHOLDUSER crom[95] // Do not update USER `define cromSPARE1 crom[96] // Spare `define cromSETTRAP2 crom[97] // Set trap 2 `define cromSETTRAP1 crom[98] // Set trap 1 `define cromSETPCU crom[99] // Set PCU `define cromSPARE2 crom[100] // Spare `define cromSPARE3 crom[101] // Spare `define cromSPARE4 crom[102] // Spare `define cromSPARE5 crom[103] // Spare `define cromJFCLFLAGS crom[104] // JFCL instruction `define cromLDFLAGS crom[105] // Load flags from DP bus `define cromSPARE6 crom[106] // Spare `define cromADFLAGS crom[107] // Update Carry Flags // // AC Math // // // MICROCODE // BIT -> 98 99 100 101 102 103 104 105 105 106 // +-----+-----+-----+-----+-----+-----+-----+-----+-----+-----+ // |CARRY| S8 | S4 | S2 | S1 | MODE| B8 | B4 | B2 | B1 | // | IN | FUNCTION | | DATA INPUTS | // +-----+-----------------------+-----+-----------------------+ // `define cromACALU_FUN crom[98:103] // AC ALU Function `define cromACALU_NUM crom[104:107] // AC ALU Number `define cromACALU_FUN_NUM 6'o25; // NUM `define cromACALU_FUN_ADDAC 6'o62; // AC + NUM // // Priority Interrupt (PI) bits // Overloaded with Number Field // `define cromPI_ZER crom[90:92] // (Not used) `define cromPI_IP1 crom[93] // PI 1 in progress `define cromPI_IP2 crom[94] // PI 2 in progress (Not used) `define cromPI_IP3 crom[95] // PI 3 in progress (Not used) `define cromPI_IP4 crom[96] // PI 4 in progress (Not used) `define cromPI_IP5 crom[97] // PI 5 in progress (Not used) `define cromPI_IP6 crom[98] // PI 6 in progress (Not used) `define cromPI_IP7 crom[99] // PI 7 in progress (Not used) `define cromPI_ON crom[100] // PI is on `define cromPI_CO11 crom[101] // Chan 1 is on (Not used) `define cromPI_CO12 crom[102] // Chan 2 is on (Not used) `define cromI_CO3 crom[103] // (Not used) `define cromI_CO4 crom[104] // (Not used) `define cromI_CO5 crom[105] // (Not used) `define cromI_CO6 crom[106] // (Not used) `define cromI_CO7 crom[107] // (Not used) // // Console Interface // Overloaded with Number Field // This usage is not very well documented in the microcode listing. // See "SET HALT", "CLEAR CONTINUE", "CLEAR EXECUTE", "CLEAR RUN" // and "UNHALT" macros in the microcode listing. // `define cromCONS_CLR_CONT crom[102] // Clear Continue `define cromCONS_CLR_EXEC crom[103] // Clear Execute `define cromCONS_CLR_RUN crom[104] // Clear Run `define cromCONS_SET_HALT crom[105] // Set Halt `define cromCONS_CLR_HALT crom[106] // Clear Halt `define cromCONS_UNUSED107 crom[107] // Not used // // Workspace Address Field // Overloaded with Number Field // `define cromWORK crom[98:107] // Workspace Address // // DT Field // `define cromDT crom[109:111] // Not used rtl/cpu/useq/dispatch.v0000700000175100010010000001463512061517362 13607 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Microcontroller Dispatch Logic //! //! \details //! //! \todo //! //! \file //! disp.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "crom.vh" module DISPATCH(crom, dp, dispDIAG, dispRET, dispJ, dispAREAD, dispMUL, dispPF, dispNI, dispBYTE, dispEA, dispSCAD, dispNORM, dispDROM_A, dispDROM_B, dispADDR); parameter cromWidth = `CROM_WIDTH; input [0:cromWidth-1] crom; // Control ROM Data input [0:35] dp; // Datapath Dispatch input [0:11] dispDIAG; // Diagnostic dispatch input [0:11] dispRET; // Microcode return dispatch input [0:11] dispJ; // Jump dispatch input [0:11] dispAREAD; // Address Read dispatch input [8:11] dispMUL; // Multiply Dispatch input [8:11] dispPF; // Page Fail Dispatch input [8:11] dispNI; // Next Instruction Dispatch input [8:11] dispBYTE; // Byte Size/Position Dispatch input [8:11] dispEA; // Effective Address Mode Dispatch input [8:11] dispSCAD; // SCAD Dispatch input [8:11] dispNORM; // Normalize Dispatch input [8:11] dispDROM_A; // DROM A Dispatch input [8:11] dispDROM_B; // DROM B Dispatch output reg [0:11] dispADDR; // Dispatch Addr // // Microcode aliases // wire dispEN10 = `cromDISP_EN_10; wire dispEN20 = `cromDISP_EN_20; wire dispEN40 = `cromDISP_EN_40; wire [0:1] dispSELH = `cromDISP_SELH; wire [0:2] dispSEL = `cromDISP_SEL; // // Control ROM Dispatch Address // // Details // The micro-machine provides many mechanisms to perform an // N-way dispatch based on conditions. // // This supplies the dispatch address when a dispatch is // required. // // Note: // Like the skip function, the dispatch function can only // set bits in the microcode address. It cannot clear // bits. // always @(dispDIAG or dispRET or dispJ or dispAREAD or dispMUL or dispPF or dispNI or dispBYTE or dispEA or dispSCAD or dispNORM or dispDROM_A or dispDROM_B or dispEN40 or dispEN20 or dispEN10 or dispSEL or dispSELH or dp) begin // // Default dispatch if none of the data selectors // are activated. // dispADDR[0:11] = 12'b000_000_000_000; // // Dispatch Address Select MSBs // CRA1/E69 // CRA1/E68 // CRA1/E151 // CRA1/E138 // if (dispEN20) begin case (dispSELH) `cromDISP_SELH_DIAG: dispADDR[0:7] = dispDIAG[0:7]; `cromDISP_SELH_RET: dispADDR[0:7] = dispRET[0:7]; `cromDISP_SELH_J: dispADDR[0:7] = dispJ[0:7]; `cromDISP_SELH_AREAD: dispADDR[0:7] = dispAREAD[0:7]; endcase end // // Dispatch Address Select LSBs // CRA1/E158 // CRA1/E170 // CRA1/E171 // CRA1/E182 // if (dispEN10) begin case (dispSEL) `cromDISP_SEL_DIAG: dispADDR[8:11] = dispDIAG[8:11]; `cromDISP_SEL_RET: dispADDR[8:11] = dispRET[8:11]; `cromDISP_SEL_MULTIPLY: dispADDR[8:11] = dispMUL[8:11]; `cromDISP_SEL_PAGEFAIL: dispADDR[8:11] = dispPF[8:11]; `cromDISP_SEL_NICOND: dispADDR[8:11] = dispNI[8:11]; `cromDISP_SEL_BYTE: dispADDR[8:11] = dispBYTE[8:11]; `cromDISP_SEL_EAMODE: dispADDR[8:11] = dispEA[8:11]; `cromDISP_SEL_SCAD: dispADDR[8:11] = dispSCAD[8:11]; endcase end // // Dispatch Address Select LSBs // DPEA/E132 // DPEA/E138 // DPEA/E146 // DPEA/E160 // if (dispEN40) begin case (dispSEL) `cromDISP_SEL_ZERO: dispADDR[8:11] = 4'b0; `cromDISP_SEL_DP18TO21: dispADDR[8:11] = dp[18:21]; `cromDISP_SEL_J: dispADDR[8:11] = dispJ[8:11]; `cromDISP_SEL_AREAD: dispADDR[8:11] = dispAREAD[8:11]; `cromDISP_SEL_NORM: dispADDR[8:11] = dispNORM[8:11]; `cromDISP_SEL_DP32TO35: dispADDR[8:11] = dp[32:35]; `cromDISP_SEL_DROMA: dispADDR[8:11] = dispDROM_A; `cromDISP_SEL_DROMB: dispADDR[8:11] = dispDROM_B; endcase end end endmodule rtl/cpu/useq/drom.awk0000700000175100010010000000142612061517362 13260 0ustar RobNoneBEGIN { FS="[, ; ]"; printf "//\n"; printf "//\n"; printf "// DROM.DAT\n"; printf "// This code is extracted from the KS10 microcode listing by an\n"; printf "// AWK script. DO NOT EDIT THIS FILE!\n"; printf "//\n"; printf "//\n"; printf "\n"; } /D [0-7][0-7][0-7][0-7], / { #print $2 " " $4 " " $5 " " $6 i = strtonum("0" $2) MAP2[i] = $2; MAP[4,i] = $4; MAP[5,i] = $5; MAP[6,i] = $6; } END { for (i = 0; i < 512; i++) { if (strtonum("0" MAP2[i]) == i) { printf " DROM[%3d] = 36'o%s_%s_%s;\n", i, MAP[ 4,i], MAP[ 5,i], MAP[ 6,i] } else { printf " DROM[%3d] <= 36'o%s_%s_%s; // Unused\n", i, "0000", "0000", "0000" } } } rtl/cpu/useq/drom.dat0000700000175100010010000005020112061517362 13241 0ustar RobNone// // // DROM.DAT // This code is extracted from the KS10 microcode listing by an // AWK script. DO NOT EDIT THIS FILE! // // DROM[ 0] = 36'o0000_1556_2100; DROM[ 1] = 36'o0001_1740_2100; DROM[ 2] = 36'o0002_1740_2100; DROM[ 3] = 36'o0003_1740_2100; DROM[ 4] = 36'o0002_1741_2100; DROM[ 5] = 36'o0005_1740_2100; DROM[ 6] = 36'o0006_1740_2100; DROM[ 7] = 36'o0007_1740_2100; DROM[ 8] = 36'o0001_1742_2100; DROM[ 9] = 36'o0004_1742_2100; DROM[ 10] = 36'o0001_1743_2100; DROM[ 11] = 36'o0000_1743_2100; DROM[ 12] = 36'o0001_1744_2100; DROM[ 13] = 36'o0000_1744_2100; DROM[ 14] = 36'o0002_1744_2100; DROM[ 15] = 36'o0003_1744_2100; DROM[ 16] = 36'o0000_1746_2100; DROM[ 17] = 36'o0000_1747_2100; DROM[ 18] = 36'o0000_1750_2100; DROM[ 19] = 36'o0000_1751_2100; DROM[ 20] = 36'o0001_1751_2100; DROM[ 21] = 36'o0002_1751_2100; DROM[ 22] = 36'o0004_1751_2100; DROM[ 23] = 36'o0010_1751_2100; DROM[ 24] = 36'o0000_1557_2100; DROM[ 25] = 36'o0001_1557_2100; DROM[ 26] = 36'o0002_1557_2100; DROM[ 27] = 36'o0003_1557_2100; DROM[ 28] = 36'o0004_1557_2100; DROM[ 29] = 36'o0005_1557_2100; DROM[ 30] = 36'o0006_1557_2100; DROM[ 31] = 36'o0007_1557_2100; DROM[ 32] = 36'o0000_1556_2100; DROM[ 33] = 36'o0000_1556_2100; DROM[ 34] = 36'o0000_1556_2100; DROM[ 35] = 36'o0000_1556_2100; DROM[ 36] = 36'o0000_1556_2100; DROM[ 37] = 36'o0000_1556_2100; DROM[ 38] = 36'o0000_1556_2100; DROM[ 39] = 36'o0000_1556_2100; DROM[ 40] = 36'o0000_1556_2100; DROM[ 41] = 36'o0000_1556_2100; DROM[ 42] = 36'o0000_1556_2100; DROM[ 43] = 36'o0000_1556_2100; DROM[ 44] = 36'o0000_1556_2100; DROM[ 45] = 36'o0000_1556_2100; DROM[ 46] = 36'o0000_1556_2100; DROM[ 47] = 36'o0000_1556_2100; DROM[ 48] = 36'o0000_1556_2100; DROM[ 49] = 36'o0000_1556_2100; DROM[ 50] = 36'o0000_1556_2100; DROM[ 51] = 36'o0000_1556_2100; DROM[ 52] = 36'o0000_1556_2100; DROM[ 53] = 36'o0000_1556_2100; DROM[ 54] = 36'o0000_1556_2100; DROM[ 55] = 36'o0000_1556_2100; DROM[ 56] = 36'o0000_1556_2100; DROM[ 57] = 36'o0000_1556_2100; DROM[ 58] = 36'o0000_1556_2100; DROM[ 59] = 36'o0000_1556_2100; DROM[ 60] = 36'o0000_1556_2100; DROM[ 61] = 36'o0000_1556_2100; DROM[ 62] = 36'o0000_1556_2100; DROM[ 63] = 36'o0000_1556_2100; DROM[ 64] = 36'o0000_1556_2100; DROM[ 65] = 36'o0000_1661_2100; DROM[ 66] = 36'o0000_1662_2100; DROM[ 67] = 36'o0000_1663_2100; DROM[ 68] = 36'o0000_1664_2100; DROM[ 69] = 36'o0000_1551_3000; DROM[ 70] = 36'o0000_1666_2100; DROM[ 71] = 36'o0000_1667_2100; DROM[ 72] = 36'o1100_1637_1100; DROM[ 73] = 36'o1100_1635_1100; DROM[ 74] = 36'o1105_1631_1100; DROM[ 75] = 36'o1105_1636_1100; DROM[ 76] = 36'o0205_1457_1100; DROM[ 77] = 36'o0205_1615_1100; DROM[ 78] = 36'o0205_1566_1100; DROM[ 79] = 36'o0205_1627_1100; DROM[ 80] = 36'o0205_1505_1100; DROM[ 81] = 36'o0215_1434_1100; DROM[ 82] = 36'o0701_1626_1100; DROM[ 83] = 36'o0000_1467_3100; DROM[ 84] = 36'o0300_1567_0100; DROM[ 85] = 36'o0100_1565_0500; DROM[ 86] = 36'o0711_1626_1100; DROM[ 87] = 36'o0011_1616_1100; DROM[ 88] = 36'o0000_1660_2100; DROM[ 89] = 36'o0001_1660_2100; DROM[ 90] = 36'o0001_1621_2100; DROM[ 91] = 36'o0015_1610_1100; DROM[ 92] = 36'o0000_1620_1500; DROM[ 93] = 36'o0000_1624_1100; DROM[ 94] = 36'o0000_1630_1500; DROM[ 95] = 36'o0000_1634_1100; DROM[ 96] = 36'o0701_1577_1100; DROM[ 97] = 36'o0002_1660_2100; DROM[ 98] = 36'o0702_1577_1700; DROM[ 99] = 36'o0703_1577_1700; DROM[100] = 36'o0711_1577_1100; DROM[101] = 36'o0611_1577_0100; DROM[102] = 36'o0712_1577_1700; DROM[103] = 36'o0713_1577_1700; DROM[104] = 36'o0701_1576_1100; DROM[105] = 36'o0003_1660_2100; DROM[106] = 36'o0702_1576_1700; DROM[107] = 36'o0703_1576_1700; DROM[108] = 36'o0711_1576_1100; DROM[109] = 36'o0611_1576_0100; DROM[110] = 36'o0712_1576_1700; DROM[111] = 36'o0713_1576_1700; DROM[112] = 36'o0701_1570_1100; DROM[113] = 36'o0004_1660_2100; DROM[114] = 36'o0702_1570_1700; DROM[115] = 36'o0703_1570_1700; DROM[116] = 36'o0711_1570_1100; DROM[117] = 36'o0611_1570_0100; DROM[118] = 36'o0712_1570_1700; DROM[119] = 36'o0713_1570_1700; DROM[120] = 36'o0701_1574_1100; DROM[121] = 36'o0005_1660_2100; DROM[122] = 36'o0702_1574_1700; DROM[123] = 36'o0703_1574_1700; DROM[124] = 36'o0711_1574_1100; DROM[125] = 36'o0611_1574_0100; DROM[126] = 36'o0712_1574_1700; DROM[127] = 36'o0713_1574_1700; DROM[128] = 36'o1015_1515_1100; DROM[129] = 36'o0015_1515_3000; DROM[130] = 36'o0116_1404_0700; DROM[131] = 36'o0004_1504_1700; DROM[132] = 36'o1015_1402_1100; DROM[133] = 36'o0015_1402_3000; DROM[134] = 36'o0116_1402_0700; DROM[135] = 36'o0004_1402_1700; DROM[136] = 36'o1015_1405_1100; DROM[137] = 36'o0015_1405_3000; DROM[138] = 36'o0116_1405_0700; DROM[139] = 36'o0004_1405_1700; DROM[140] = 36'o1015_1403_1100; DROM[141] = 36'o0015_1515_3000; DROM[142] = 36'o0116_1403_0700; DROM[143] = 36'o0004_1403_1700; DROM[144] = 36'o1015_1641_1100; DROM[145] = 36'o0015_1641_3000; DROM[146] = 36'o0016_1641_1700; DROM[147] = 36'o0017_1641_1700; DROM[148] = 36'o1005_1571_1100; DROM[149] = 36'o0005_1571_3000; DROM[150] = 36'o0016_1571_1700; DROM[151] = 36'o0006_1571_1700; DROM[152] = 36'o1005_1600_1100; DROM[153] = 36'o0005_1600_3000; DROM[154] = 36'o0016_1600_1700; DROM[155] = 36'o0006_1600_1700; DROM[156] = 36'o1005_1601_1100; DROM[157] = 36'o0005_1601_3000; DROM[158] = 36'o0016_1601_1700; DROM[159] = 36'o0006_1601_1700; DROM[160] = 36'o0400_1622_1000; DROM[161] = 36'o0400_1632_1000; DROM[162] = 36'o0400_1612_1000; DROM[163] = 36'o0000_1462_2100; DROM[164] = 36'o0000_1466_3000; DROM[165] = 36'o0500_1470_1000; DROM[166] = 36'o0500_1464_1000; DROM[167] = 36'o0000_1665_2100; DROM[168] = 36'o0015_1406_1500; DROM[169] = 36'o0000_1640_2100; DROM[170] = 36'o0005_1547_2100; DROM[171] = 36'o0001_1547_2100; DROM[172] = 36'o0000_1520_6000; DROM[173] = 36'o0000_1540_2100; DROM[174] = 36'o0000_1541_1100; DROM[175] = 36'o1215_1553_0100; DROM[176] = 36'o0000_1544_2100; DROM[177] = 36'o0002_1543_3100; DROM[178] = 36'o0002_1545_2100; DROM[179] = 36'o0000_1546_2100; DROM[180] = 36'o0000_1552_2100; DROM[181] = 36'o0000_1550_2100; DROM[182] = 36'o0000_1554_2100; DROM[183] = 36'o0000_1555_2100; DROM[184] = 36'o1015_1560_1100; DROM[185] = 36'o0015_1560_3000; DROM[186] = 36'o0016_1560_1700; DROM[187] = 36'o0017_1560_1700; DROM[188] = 36'o1015_1561_1100; DROM[189] = 36'o0015_1561_3000; DROM[190] = 36'o0016_1561_1700; DROM[191] = 36'o0017_1561_1700; DROM[192] = 36'o0000_1400_2100; DROM[193] = 36'o0001_1476_2100; DROM[194] = 36'o0002_1476_2100; DROM[195] = 36'o0003_1476_2100; DROM[196] = 36'o0004_1476_2100; DROM[197] = 36'o0005_1476_2100; DROM[198] = 36'o0006_1476_2100; DROM[199] = 36'o0007_1476_2100; DROM[200] = 36'o0000_1476_1100; DROM[201] = 36'o0001_1476_1100; DROM[202] = 36'o0002_1476_1100; DROM[203] = 36'o0003_1476_1100; DROM[204] = 36'o0004_1476_1100; DROM[205] = 36'o0005_1476_1100; DROM[206] = 36'o0006_1476_1100; DROM[207] = 36'o0007_1476_1100; DROM[208] = 36'o0000_1400_2100; DROM[209] = 36'o0001_1440_2100; DROM[210] = 36'o0002_1440_2100; DROM[211] = 36'o0003_1440_2100; DROM[212] = 36'o0004_1520_2100; DROM[213] = 36'o0005_1440_2100; DROM[214] = 36'o0006_1440_2100; DROM[215] = 36'o0007_1440_2100; DROM[216] = 36'o0000_1477_1100; DROM[217] = 36'o0001_1477_1100; DROM[218] = 36'o0002_1477_1100; DROM[219] = 36'o0003_1477_1100; DROM[220] = 36'o0004_1477_1100; DROM[221] = 36'o0005_1477_1100; DROM[222] = 36'o0006_1477_1100; DROM[223] = 36'o0007_1477_1100; DROM[224] = 36'o0000_1611_3000; DROM[225] = 36'o0001_1611_2100; DROM[226] = 36'o0002_1611_2100; DROM[227] = 36'o0003_1611_2100; DROM[228] = 36'o0004_1611_2100; DROM[229] = 36'o0005_1611_2100; DROM[230] = 36'o0006_1611_2100; DROM[231] = 36'o0007_1611_2100; DROM[232] = 36'o0000_1431_1500; DROM[233] = 36'o0001_1431_1500; DROM[234] = 36'o0002_1431_1500; DROM[235] = 36'o0003_1431_1500; DROM[236] = 36'o0004_1431_1500; DROM[237] = 36'o0005_1431_1500; DROM[238] = 36'o0006_1431_1500; DROM[239] = 36'o0007_1431_1500; DROM[240] = 36'o0000_1542_3000; DROM[241] = 36'o0001_1542_2100; DROM[242] = 36'o0002_1542_2100; DROM[243] = 36'o0003_1542_2100; DROM[244] = 36'o0004_1542_2100; DROM[245] = 36'o0005_1542_2100; DROM[246] = 36'o0006_1542_2100; DROM[247] = 36'o0007_1542_2100; DROM[248] = 36'o0000_1437_1500; DROM[249] = 36'o0001_1437_1500; DROM[250] = 36'o0002_1437_1500; DROM[251] = 36'o0003_1437_1500; DROM[252] = 36'o0004_1437_1500; DROM[253] = 36'o0005_1437_1500; DROM[254] = 36'o0006_1437_1500; DROM[255] = 36'o0007_1437_1500; DROM[256] = 36'o0015_1441_3000; DROM[257] = 36'o0015_1441_3000; DROM[258] = 36'o0016_1441_2700; DROM[259] = 36'o0017_1441_2700; DROM[260] = 36'o1015_1442_1100; DROM[261] = 36'o0015_1442_3000; DROM[262] = 36'o0016_1442_1700; DROM[263] = 36'o0017_1442_1700; DROM[264] = 36'o1015_1443_1100; DROM[265] = 36'o0015_1443_3000; DROM[266] = 36'o0016_1443_1700; DROM[267] = 36'o0017_1443_1700; DROM[268] = 36'o1015_1404_1100; DROM[269] = 36'o0015_1404_3000; DROM[270] = 36'o0016_1404_1700; DROM[271] = 36'o0017_1404_1700; DROM[272] = 36'o1015_1444_1100; DROM[273] = 36'o0015_1444_3000; DROM[274] = 36'o0016_1444_1700; DROM[275] = 36'o0017_1444_1700; DROM[276] = 36'o0000_1400_1100; DROM[277] = 36'o0000_1400_2100; DROM[278] = 36'o0116_1404_0700; DROM[279] = 36'o0116_1404_0700; DROM[280] = 36'o1015_1445_1100; DROM[281] = 36'o0015_1445_3000; DROM[282] = 36'o0016_1445_1700; DROM[283] = 36'o0017_1445_1700; DROM[284] = 36'o1015_1446_1100; DROM[285] = 36'o0015_1446_3000; DROM[286] = 36'o0016_1446_1700; DROM[287] = 36'o0017_1446_1700; DROM[288] = 36'o1015_1447_1100; DROM[289] = 36'o0015_1447_3000; DROM[290] = 36'o0016_1447_1700; DROM[291] = 36'o0017_1447_1700; DROM[292] = 36'o1015_1450_1100; DROM[293] = 36'o0015_1450_3000; DROM[294] = 36'o0016_1450_1700; DROM[295] = 36'o0017_1450_1700; DROM[296] = 36'o0015_1451_3000; DROM[297] = 36'o0015_1451_3000; DROM[298] = 36'o0016_1451_2700; DROM[299] = 36'o0017_1451_2700; DROM[300] = 36'o1015_1452_1100; DROM[301] = 36'o0015_1452_3000; DROM[302] = 36'o0016_1452_1700; DROM[303] = 36'o0017_1452_1700; DROM[304] = 36'o1015_1453_1100; DROM[305] = 36'o0015_1453_3000; DROM[306] = 36'o0016_1453_1700; DROM[307] = 36'o0017_1453_1700; DROM[308] = 36'o1015_1454_1100; DROM[309] = 36'o0015_1454_3000; DROM[310] = 36'o0016_1454_1700; DROM[311] = 36'o0017_1454_1700; DROM[312] = 36'o1015_1455_1100; DROM[313] = 36'o0015_1455_3000; DROM[314] = 36'o0016_1455_1700; DROM[315] = 36'o0017_1455_1700; DROM[316] = 36'o0015_1456_3000; DROM[317] = 36'o0015_1456_3000; DROM[318] = 36'o0016_1456_2700; DROM[319] = 36'o0017_1456_2700; DROM[320] = 36'o1015_1410_1100; DROM[321] = 36'o0015_1410_3000; DROM[322] = 36'o0016_1407_1700; DROM[323] = 36'o0004_1404_1700; DROM[324] = 36'o1015_1411_1100; DROM[325] = 36'o0015_1411_3000; DROM[326] = 36'o0016_1413_1700; DROM[327] = 36'o0004_1414_1700; DROM[328] = 36'o1015_1432_1100; DROM[329] = 36'o0015_1432_3000; DROM[330] = 36'o0116_1432_0700; DROM[331] = 36'o0004_1432_1700; DROM[332] = 36'o1015_1424_1100; DROM[333] = 36'o0015_1424_3000; DROM[334] = 36'o0116_1424_0700; DROM[335] = 36'o0004_1424_1700; DROM[336] = 36'o1015_1433_1100; DROM[337] = 36'o0015_1433_3000; DROM[338] = 36'o0116_1433_0700; DROM[339] = 36'o0004_1433_1700; DROM[340] = 36'o1015_1425_1100; DROM[341] = 36'o0015_1425_3000; DROM[342] = 36'o0116_1425_0700; DROM[343] = 36'o0004_1425_1700; DROM[344] = 36'o1015_1430_1100; DROM[345] = 36'o0015_1430_3000; DROM[346] = 36'o0116_1430_0700; DROM[347] = 36'o0004_1430_1700; DROM[348] = 36'o1015_1422_1100; DROM[349] = 36'o0015_1422_3000; DROM[350] = 36'o0116_1422_0700; DROM[351] = 36'o0004_1422_1700; DROM[352] = 36'o1015_1407_1100; DROM[353] = 36'o0015_1407_3000; DROM[354] = 36'o0016_1410_1700; DROM[355] = 36'o0004_1404_1700; DROM[356] = 36'o1015_1412_1100; DROM[357] = 36'o0015_1412_3000; DROM[358] = 36'o0016_1415_1700; DROM[359] = 36'o0004_1416_1700; DROM[360] = 36'o1015_1420_1100; DROM[361] = 36'o0015_1420_3000; DROM[362] = 36'o0116_1420_0700; DROM[363] = 36'o0004_1420_1700; DROM[364] = 36'o1015_1426_1100; DROM[365] = 36'o0015_1426_3000; DROM[366] = 36'o0116_1426_0700; DROM[367] = 36'o0004_1426_1700; DROM[368] = 36'o1015_1421_1100; DROM[369] = 36'o0015_1421_3000; DROM[370] = 36'o0116_1421_0700; DROM[371] = 36'o0004_1421_1700; DROM[372] = 36'o1015_1427_1100; DROM[373] = 36'o0015_1427_3000; DROM[374] = 36'o0116_1427_0700; DROM[375] = 36'o0004_1427_1700; DROM[376] = 36'o1015_1417_1100; DROM[377] = 36'o0015_1417_3000; DROM[378] = 36'o0116_1417_0700; DROM[379] = 36'o0004_1417_1700; DROM[380] = 36'o1015_1423_1100; DROM[381] = 36'o0015_1423_3000; DROM[382] = 36'o0116_1423_0700; DROM[383] = 36'o0004_1423_1700; DROM[384] = 36'o0000_1400_2100; DROM[385] = 36'o0000_1400_2100; DROM[386] = 36'o0000_1475_2100; DROM[387] = 36'o0000_1474_2100; DROM[388] = 36'o0000_1473_2100; DROM[389] = 36'o0000_1472_2100; DROM[390] = 36'o0004_1475_2100; DROM[391] = 36'o0004_1474_2100; DROM[392] = 36'o0000_1400_2100; DROM[393] = 36'o0000_1400_2100; DROM[394] = 36'o0000_1475_1100; DROM[395] = 36'o0000_1474_1100; DROM[396] = 36'o0000_1473_1100; DROM[397] = 36'o0000_1472_1100; DROM[398] = 36'o0004_1475_1100; DROM[399] = 36'o0004_1474_1100; DROM[400] = 36'o0005_1473_2100; DROM[401] = 36'o0005_1472_2100; DROM[402] = 36'o0001_1475_2100; DROM[403] = 36'o0001_1474_2100; DROM[404] = 36'o0001_1473_2100; DROM[405] = 36'o0001_1472_2100; DROM[406] = 36'o0005_1475_2100; DROM[407] = 36'o0005_1474_2100; DROM[408] = 36'o0005_1473_1100; DROM[409] = 36'o0005_1472_1100; DROM[410] = 36'o0001_1475_1100; DROM[411] = 36'o0001_1474_1100; DROM[412] = 36'o0001_1473_1100; DROM[413] = 36'o0001_1472_1100; DROM[414] = 36'o0005_1475_1100; DROM[415] = 36'o0005_1474_1100; DROM[416] = 36'o0006_1473_2100; DROM[417] = 36'o0006_1472_2100; DROM[418] = 36'o0002_1475_2100; DROM[419] = 36'o0002_1474_2100; DROM[420] = 36'o0002_1473_2100; DROM[421] = 36'o0002_1472_2100; DROM[422] = 36'o0006_1475_2100; DROM[423] = 36'o0006_1474_2100; DROM[424] = 36'o0006_1473_1100; DROM[425] = 36'o0006_1472_1100; DROM[426] = 36'o0002_1475_1100; DROM[427] = 36'o0002_1474_1100; DROM[428] = 36'o0002_1473_1100; DROM[429] = 36'o0002_1472_1100; DROM[430] = 36'o0006_1475_1100; DROM[431] = 36'o0006_1474_1100; DROM[432] = 36'o0007_1473_2100; DROM[433] = 36'o0007_1472_2100; DROM[434] = 36'o0003_1475_2100; DROM[435] = 36'o0003_1474_2100; DROM[436] = 36'o0003_1473_2100; DROM[437] = 36'o0003_1472_2100; DROM[438] = 36'o0007_1475_2100; DROM[439] = 36'o0007_1474_2100; DROM[440] = 36'o0007_1473_1100; DROM[441] = 36'o0007_1472_1100; DROM[442] = 36'o0003_1475_1100; DROM[443] = 36'o0003_1474_1100; DROM[444] = 36'o0003_1473_1100; DROM[445] = 36'o0003_1472_1100; DROM[446] = 36'o0007_1475_1100; DROM[447] = 36'o0007_1474_1100; DROM[448] = 36'o1200_1700_4100; DROM[449] = 36'o1200_1720_4100; DROM[450] = 36'o1216_1760_4700; DROM[451] = 36'o0003_1650_2100; DROM[452] = 36'o1200_1754_0100; DROM[453] = 36'o1200_1755_0100; DROM[454] = 36'o0006_1650_2100; DROM[455] = 36'o0007_1650_2100; DROM[456] = 36'o1210_1614_0100; DROM[457] = 36'o1214_1614_0100; DROM[458] = 36'o1210_1460_0100; DROM[459] = 36'o1210_1461_0100; DROM[460] = 36'o1210_1644_0100; DROM[461] = 36'o1214_1644_0100; DROM[462] = 36'o0006_1651_2100; DROM[463] = 36'o0007_1651_2100; DROM[464] = 36'o1200_1614_0100; DROM[465] = 36'o1204_1614_0100; DROM[466] = 36'o1200_1460_0100; DROM[467] = 36'o1200_1461_0100; DROM[468] = 36'o1200_1644_0100; DROM[469] = 36'o1204_1644_0100; DROM[470] = 36'o0006_1652_2100; DROM[471] = 36'o0007_1652_2100; DROM[472] = 36'o0000_1653_2100; DROM[473] = 36'o0001_1653_2100; DROM[474] = 36'o0002_1653_2100; DROM[475] = 36'o0003_1653_2100; DROM[476] = 36'o0004_1653_2100; DROM[477] = 36'o0005_1653_2100; DROM[478] = 36'o0006_1653_2100; DROM[479] = 36'o0007_1653_2100; DROM[480] = 36'o0000_1654_2100; DROM[481] = 36'o0001_1654_2100; DROM[482] = 36'o0002_1654_2100; DROM[483] = 36'o0003_1654_2100; DROM[484] = 36'o0004_1654_2100; DROM[485] = 36'o0005_1654_2100; DROM[486] = 36'o0006_1654_2100; DROM[487] = 36'o0007_1654_2100; DROM[488] = 36'o0000_1655_2100; DROM[489] = 36'o0001_1655_2100; DROM[490] = 36'o0002_1655_2100; DROM[491] = 36'o0003_1655_2100; DROM[492] = 36'o0004_1655_2100; DROM[493] = 36'o0005_1655_2100; DROM[494] = 36'o0006_1655_2100; DROM[495] = 36'o0007_1655_2100; DROM[496] = 36'o0000_1656_2100; DROM[497] = 36'o0001_1656_2100; DROM[498] = 36'o0002_1656_2100; DROM[499] = 36'o0003_1656_2100; DROM[500] = 36'o0004_1656_2100; DROM[501] = 36'o0005_1656_2100; DROM[502] = 36'o0006_1656_2100; DROM[503] = 36'o0007_1656_2100; DROM[504] = 36'o0000_1657_2100; DROM[505] = 36'o0001_1657_2100; DROM[506] = 36'o0002_1657_2100; DROM[507] = 36'o0003_1657_2100; DROM[508] = 36'o0004_1657_2100; DROM[509] = 36'o0005_1657_2100; DROM[510] = 36'o0006_1657_2100; DROM[511] = 36'o0007_1657_2100; rtl/cpu/useq/drom.v0000700000175100010010000000633612061517362 12750 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Dispatch ROM (DROM) //! //! \details //! The Dispatch ROM maps the instruction (from the Instruction //! Register) to the address of code that executes that //! instruction in the Control ROM. //! //! \note //! The contents of this file was extracted from the microcode //! listing file by a simple AWK script. Go see the makefile. //! //! \file //! drom.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "crom.vh" `include "drom.vh" module DROM(clk, rst, clken, dbus, crom, drom); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [0:35] dbus; // DBUS input [0:cromWidth-1] crom; // Control ROM output reg [0:dromWidth-1] drom; // Dispatch ROM Output // // Microcode decode // wire loadIR = `cromSPEC_EN_40 & (`cromSPEC_SEL == `cromSPEC_SEL_LOADIR); wire [0:8] addr = dbus[0:8]; // // Dispatch ROM initialization // // Note: // The KS10 microcode is extracted from the listing file by // a 'simple' AWK script and is included below. // reg [0:dromWidth-1] DROM[0:511]; initial begin `include "drom.dat" end // // Dispatch ROM // // Details: // The DROM in the KS10 is asynchronous. That won't work in an FPGA // implementation. Fortunately the DROM is addressed by the Instruction // Register (IR) which is loaded synchronously. Therefore we can // absorb a copy of the OPCODE portion of IR directly into Dispatch ROM // addressing. // // Simply put: when we load the IR, we also synchronously lookup the // contents of the Dispatch ROM. // // Trace: // DPEA/E98 // DPEA/E117 // DPEA/E110 // always @(posedge clk) begin if (clken & loadIR) drom <= DROM[addr]; end endmodule rtl/cpu/useq/drom.vh0000700000175100010010000001003412061517362 13106 0ustar RobNone//////////////////////////////////////////////////////////////////// // // KS-10 Processor // // \brief // Dispatch ROM (DROM) Definitions // // \details // The Dispatch ROM is addressed by the instruction OPCODE and // provides a microcode dispatch address to handle the // instruction as well as some other instruction specific // information. // // \file // drom.vh // // \author // Rob Doyle - doyle (at) cox (dot) net // //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `define DROM_WIDTH 36 // DROM Width // // Dispatch ROM Fields // // Details: // The Dispatch ROM is addressed by the instruction OPCODE and // provides a microcode dispatch address to handle the instruction // as well as some other instruction specific information. // // Notes // See page 5-39 of EK-0KS10-TM-002 for info about dromTXXXEN. // The bit is not replicated into DROM DPEA/E114[2]. // // The microcode constrains the jump address ("cromJ") to be // between o1400 and o1777. With this constraint, the four upper // address bits of the "cromJ" field are always b"0001". This // allows these four bits of data to be elided from the DISPATCH // ROM. The KS10 then hard-wires these bits into the dispatch // logic. // // This works nicely but creates a design that is somewhat difficult // to understand. This specialization has been removed from the // verilog design - with no ill effects. // // The verilog synthesis tool is smart and discovers that the // contents of these DISPATCH ROM bits are constant and replaces // these ROM bit with hard-wired logic anyway. // // dromI and dromAEQJ are aliases of each other. // // The dromTXXXEN usage is used in the schematic but it's definition // is buried deeply in the microcode. The microcode states that // for the purposes of the "Test Group" dispatch that "... bit 1 of // the B field is used to determine the sense" // `define dromA drom[ 2: 5] // Operand Fetch Mode `define dromB drom[ 8:11] // Store result as: `define dromROUND drom[ 8] // Round the result `define dromMODE drom[ 9] // Seperate Add/Sub & Mul/Div `define dromTXXXEN drom[ 9] // Test Instruction sense `define dromFL_B drom[10:11] // Store Floating-point results as `define dromJ drom[12:23] // Dispatch "Jump" address `define dromACDISP drom[24] // Dispatch on AC Field `define dromI drom[25] // Immediate dispatch on J field. `define dromAEQJ drom[25] // Immediate dispatch on J field. `define dromREADCYCLE drom[26] // Start a read at AREAD `define dromWRTESTCYCLE drom[27] // Start a write test at AREAD `define dromCOND_FUNC drom[28] // Start a memory cycle on BWRITE `define dromVMA drom[29] // Load the VMA on AREAD `define dromWRITECYCLE drom[30] // Start a write on AREAD rtl/cpu/useq/ks10.mcr0000700000175100010010000247344212061517360 13107 0ustar RobNone; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 1 ; Table of Contents ; 1 KS10.MIC[7,3] 14:54 7-JAN-1986 ; 57 REVISION HISTORY ; 184 HOW TO READ THE MICROCODE ; 389 CONDITIONAL ASSEMBLY DEFINITIONS ; 435 2901 REGISTER USAGE ; 471 MICROCODE FIELDS -- LISTING FORMAT ; 519 MICROCODE FIELDS -- DATAPATH CHIP ; 671 MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS ; 705 MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL ; 728 MICROCODE FIELDS -- SPEC ; 831 MICROCODE FIELDS -- DISPATCH ; 875 MICROCODE FIELDS -- SKIP ; 926 MICROCODE FIELDS -- TIME CONTROL ; 946 MICROCODE FIELDS -- RANDOM CONTROL BITS ; 968 MICROCODE FIELDS -- NUMBER FIELD ; 1312 DISPATCH ROM DEFINITIONS ; 1358 HOW TO READ MACROS ; 1517 MACROS -- DATA PATH CHIP -- GENERAL ; 1667 MACROS -- DATA PATH CHIP -- Q ; 1702 MACROS -- DATA PATH CHIP -- MISC. ; 1723 MACROS -- STORE IN AC ; 1755 MACROS -- MICROCODE WORK SPACE ; 1782 MACROS -- MEMORY CONTROL ; 1832 MACROS -- VMA ; 1849 MACROS -- TIME CONTROL ; 1862 MACROS -- SCAD, SC, FE LOGIC ; 1945 MACROS -- DATA PATH FIELD CONTROL ; 1961 MACROS -- SHIFT PATH CONTROL ; 1974 MACROS -- SPECIAL FUNCTIONS ; 2005 MACROS -- PC FLAGS ; 2034 MACROS -- PAGE FAIL FLAGS ; 2042 MACROS -- SINGLE SKIPS ; 2067 MACROS -- SPECIAL DISPATCH MACROS ; 2101 DISPATCH ROM MACROS ; 2142 SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ; 2144 POWER UP SEQUENCE ; 2226 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2350 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2462 THE INSTRUCTION LOOP -- STORE ANSWERS ; 2546 MOVE GROUP ; 2583 EXCH ; 2598 HALFWORD GROUP ; 2765 DMOVE, DMOVN, DMOVEM, DMOVNM ; 2796 BOOLEAN GROUP ; 2951 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 3047 ROTATES AND LOGICAL SHIFTS -- LSHC ; 3082 ROTATES AND LOGICAL SHIFTS -- ASHC ; 3121 ROTATES AND LOGICAL SHIFTS -- ROTC ; 3153 TEST GROUP ; 3305 COMPARE -- CAI, CAM ; 3374 ARITHMETIC SKIPS -- AOS, SOS, SKIP ; 3424 CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ ; 3515 AC DECODE JUMPS -- JRST, JFCL ; 3605 EXTENDED ADDRESSING INSTRUCTIONS ; 3646 XCT ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 2 ; Table of Contents ; 3668 STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ ; 3765 STACK INSTRUCTIONS -- ADJSP ; 3798 SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA ; 3853 ILLEGAL INSTRUCTIONS AND UUO'S ; 4052 ARITHMETIC -- ADD, SUB ; 4081 ARITHMETIC -- DADD, DSUB ; 4114 ARITHMETIC -- MUL, IMUL ; 4165 ARITHMETIC -- DMUL ; 4306 ARITHMETIC -- DIV, IDIV ; 4383 ARITHMETIC -- DDIV ; 4504 ARITHMETIC -- DIVIDE SUBROUTINE ; 4569 ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE ; 4609 ARITHMETIC -- SUBROUTINES FOR ARITHMETIC ; 4655 BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB ; 4732 BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE ; 4745 BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR ; 4779 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 4832 BYTE GROUP -- DEPOSIT BYTE IN MEMORY ; 4920 BYTE GROUP -- ADJUST BYTE POINTER ; 5079 BLT ; 5261 FLT.MIC[7,3] 01:46 20-MAR-1981 ; 5262 FLOATING POINT -- FAD, FSB ; 5307 FLAOTING POINT -- FMP ; 5336 FLOATING POINT -- FDV ; 5386 FLOATING POINT -- FLTR, FSC ; 5421 FLOATING POINT -- FIX AND FIXR ; 5458 FLOATING POINT -- SINGLE PRECISION NORMALIZE ; 5525 FLOATING POINT -- ROUND ANSWER ; 5536 FLOATING POINT -- DFAD, DFSB ; 5625 FLOATING POINT -- DFMP ; 5686 FLOATING POINT -- DFDV ; 5740 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 5850 EXTEND.MIC[7,3] 11:35 26-JULY-1984 ; 5851 EXTEND -- DISPATCH ROM ENTRIES ; 5906 EXTEND -- INSTRUCTION SET DECODING ; 5948 EXTEND -- MOVE STRING -- SETUP ; 5993 EXTEND -- MOVE STRING -- OFFSET/TRANSLATE ; 6024 EXTEND -- MOVE STRING -- MOVSRJ ; 6072 EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP ; 6096 EXTEND -- COMPARE STRING ; 6157 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6289 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6447 EXTEND -- EDIT -- MAIN LOOP ; 6501 EXTEND -- EDIT -- DECODE OPERATE GROUP ; 6520 EXTEND -- EDIT -- STOP EDIT ; 6535 EXTEND -- EDIT -- START SIGNIFICANCE ; 6542 EXTEND -- EDIT -- EXCHANGE MARK AND DESTINATION ; 6553 EXTEND -- EDIT -- PROCESS SOURCE BYTE ; 6616 EXTEND -- EDIT -- MESSAGE BYTE ; 6639 EXTEND -- EDIT -- SKIP ; 6653 EXTEND -- EDIT -- ADVANCE PATTERN POINTER ; 6686 EXTEND SUBROUTINES -- FILL OUT DESTINATION ; 6710 EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE ; 6747 EXTEND SUBROUTINES -- TRANSLATE ; 6833 EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 3 ; Table of Contents ; 6862 EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING ; 6883 EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS ; 6927 EXTEND -- PAGE FAIL CLEANUP ; 6966 INOUT.MIC[7,3] 13:32 7-JAN-1986 ; 6967 TRAPS ; 6998 IO -- INTERNAL DEVICES ; 7109 IO -- INTERNAL DEVICES -- EBR & UBR ; 7235 IO -- INTERNAL DEVICES -- KL PAGING REGISTERS ; 7277 IO -- INTERNAL DEVICES -- TIMER CONTROL ; 7308 IO -- INTERNAL DEVICES -- WRTIME & RDTIME ; 7347 IO -- INTERNAL DEVICES -- WRINT & RDINT ; 7361 IO -- INTERNAL DEVICES -- RDPI & WRPI ; 7401 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7542 PRIORITY INTERRUPTS -- DISMISS SUBROUTINE ; 7557 EXTERNAL IO INSTRUCTIONS ; 7745 SMALL SUBROUTINES ; 7769 UNDEFINED IO INSTRUCTIONS ; 7850 UMOVE AND UMOVEM ; 7905 WRITE HALT STATUS BLOCK ; 7997 PAGEF.MIC[7,3] 12:15 10-APR-1985 ; 7999 PAGE FAIL REFIL LOGIC ; Cross Reference Index ; DCODE Location / Line Number Index ; UCODE Location / Line Number Index ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 4 ; KS10.MIC[7,3] 14:54 7-JAN-1986 KS10.MIC[7,3] 14:54 7-JAN-1986 ; 1 .NOBIN ; 2 .TITLE "KS10 MICROCODE V130, 7-JAN-86" ; 3 ; 4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 7 ;;; ;;; ; 8 ;;; ;;; ; 9 ;;; COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982, ;;; ; 10 ;;; 1984,1985,1986 ;;; ; 11 ;;; DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ;;; ; 12 ;;; ;;; ; 13 ;;; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ;;; ; 14 ;;; ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ;;; ; 15 ;;; ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT ;;; ; 16 ;;; NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, ;;; ; 17 ;;; MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ;;; ; 18 ;;; ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND ;;; ; 19 ;;; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO ;;; ; 20 ;;; AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES ;;; ; 21 ;;; REMAIN IN DEC. ;;; ; 22 ;;; ;;; ; 23 ;;; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ;;; ; 24 ;;; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS ;;; ; 25 ;;; A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ;;; ; 26 ;;; ;;; ; 27 ;;; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR ;;; ; 28 ;;; RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS ;;; ; 29 ;;; NOT SUPPLIED BY DEC. ;;; ; 30 ;;; ;;; ; 31 ;;; DESIGNED AND WRITTEN BY: ;;; ; 32 ;;; DONALD A. LEWINE ;;; ; 33 ;;; DIGITAL EQUIPMENT CORP. ;;; ; 34 ;;; MARLBORO, MASS. ;;; ; 35 ;;; MR1-2/E47 X6430 ;;; ; 36 ;;; ;;; ; 37 ;;; MAINTAINED AND ENHANCED BY: ;;; ; 38 ;;; DONALD D. DOSSA ;;; ; 39 ;;; DIGITAL EQUIPMENT CORP. ;;; ; 40 ;;; MARLBORO, MASS. ;;; ; 41 ;;; MR1-2/E18 DTN 231-4138 ;;; ; 42 ;;; ;;; ; 43 ;;; SEAN KEENAN ;;; ; 44 ;;; DIGITAL EQUIPMENT CORP. ;;; ; 45 ;;; MARLBORO, MASS. ;;; ; 46 ;;; MR1-2/E18 DTN 231-4463 ;;; ; 47 ;;; ;;; ; 48 ;;; TIMOTHE LITT ;;; ; 49 ;;; DIGITAL EQUIPMENT CORP. ;;; ; 50 ;;; MARLBORO, MASS. ;;; ; 51 ;;; IND-3/C9 262-8374 ;;; ; 52 ;;; ;;; ; 53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 54 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 55 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 56 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 5 ; KS10.MIC[7,3] 14:54 7-JAN-1986 REVISION HISTORY ; 57 .TOC "REVISION HISTORY" ; 58 ; 59 ;REV WHY ; 60 ;1 START KS10 MICROCODE BASED ON SM10 MICROCODE VERSION 510 ; 61 ;2 UPDATE TO KS10 VERSION 512 ; 62 ;3 FIX SOME DEFAULTS ; 63 ;4 CHANGE HARDWARE TO MATCH ECO #215 ; 64 ;5 START TO UPDATE IO MICROCODE ; 65 ;6 MORE WORK ON IO ; 66 ;7 MAKE INTERRUPT THE 8080 BE A PULSE. ; 67 ;10 ADD NEW RDIO AND WRIO ; 68 ;11 FIX PROBLEMS IN MUUO CODE & CORRECT T-FIELDS ; 69 ;12 FIX PROBLEMS IN DDIV ; 70 ;13 FIX UP PROBLEMS IN PI ; 71 ;14 TURN ON WRITE FOR FL-EXIT ; 72 ;15 FIX UP MAP INSTRUCTION ; 73 ;16 MORE WORK ON KI-STYLE MAP ; 74 ;17 INVERT HOLD RIGHT AND HOLD LEFT BITS ; 75 ;20 FIXUP WRIO & RDIO EFFECTIVE ADDRESS CALC. ; 76 ;21 FIX EDIT 15 ; 77 ;22 HAVE LSH USE FAST SHIFT HARDWARE ; 78 ;23 FIX T-FIELD VALUES FOR PRODUCTION HARDWARE ; 79 ;24 REMOVE WRITE TEST FROM IO READS & WRITES ; 80 ;25 REWRITE MUL & MULI TO BE FASTER AND SMALLER. ALSO MAKE ADJBP ; 81 ; USE NEW MULSUB ; 82 ;26 MAKE BYTES USE FAST SHIFT ECO. ; 83 ;27 MAKE SURE VMA FETCH IS CORRECT ; 84 ;30 MORE OF 25 (FORGOT FMP) ; 85 ;31 FIX SOME PROBLEMS WITH TRAPS ; 86 ;32 SPEED UP EFFECTIVE ADDRESS CALCULATION ; 87 ;33 MORE OF 32 ; 88 ;34 SPEED UP ASH & ROT ; 89 ;35 FIX UP RDTIM SO THAT TIME DOES NOT GO BACKWARDS ; 90 ;36 MORE OF 35 ; 91 ;37 FIX UP PROBLEMS WITH INTERRUPTS AND DOUBLE F.P. ; 92 ;40 IMPROVE LISTING FORMAT ; 93 ;41 SPEEDUP KL-MODE PAGE REFILL ; 94 ;42 FIX UP DDIV ; 95 ;43 STILL MORE DDIV STUFF ; 96 ;44 CORRECT PROBLEMS IN D.P. PARITY STUFF ; 97 ;45 CORRECT THE BLT CLEAR-CORE CASE TO INTERRUPT CORRECTLY ; 98 ;46 MORE OF 45 ; 99 ;47 DO NOT ALLOW SOFTWARE INTERRUPTS IF THE PI LEVEL IS NOT ; 100 ; ACTIVE. ; 101 ;50 MAKE FDV WORK THE SAME AS THE KL10 ; 102 ;51 FIX INTERRUPT IN CVTBDX. MAKE ABORT WORK LIKE SPEC. ; 103 ;52 FIX BUG IN HALT LOOP ; 104 ;53 FIX IOEA TO WORK IF NO @ OR INDEXING ; 105 ;54 EDIT 47 BROKE JEN ; 106 ;55 FIX FLAGS IN MULTIPLY. ALSO CODE BUMS ; 107 ;56 MORE CODE BUMS ; 108 ;57 CORRECT OVERFLOW TRAPS WHICH DO MUUOS TO NOT STORE ; 109 ; THE TRAP FLAGS. ; 110 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 6 ; KS10.MIC[7,3] 14:54 7-JAN-1986 REVISION HISTORY ; 111 ;60 CORRECT TRAPS SO THAT DSKEA RUNS RIGHT ; 112 ;61 MORE OF 60. NOTE: MICROCODE REQUIRES ECO #299!! ; 113 ;62 ONE MORE TRY AT EDIT 60. ; 114 ;63 CORRECT TOPS-10 STYLE PAGING SO THAT A WRITE VIOLATION SETS ; 115 ; BIT 2 IN THE PAGE FAIL WORD (ACCESS ALLOWED). ; 116 ;64 EDIT 63 BROKE HARD PAGE FAILS. (NXM, BAD DATA, AND IO NXM) ; 117 ;65 INTERRUPTS OUT OF MOVSRJ INSTRUCTIONS DO STRANGE THINGS. ; 118 ;66 IO NXM PAGE FAIL FOR MISSING UBA GIVES PC+1 IN PAGE FAIL BLOCK. ; 119 ;67 ON A BAD DATA ERROR, STORE THE BAD WORD IN AC BLOCK 7 WORD 0 AND ; 120 ; 1 ; 121 ;70 FIX A BUG WHICH CAUSED INTERRUPTS OUT OF CVTBDT TO GENERATE A BAD ; 122 ; ANSWER. ; 123 ;71 CLEANUP SOME THINGS TO MAKE LIFE EASIER FOR FIELD SERVICE ; 124 ;72 LOOK FOR 1-MS TRAP ON @ PAGE POINTERS AND ABORT REFILL IF ; 125 ; SET. ; 126 ;73 CORRECT EDIT 72. ; 127 ;74 EDIT 67 GENERATES A DATA PATH PARITY ERROR BECAUSE OF THE BAD ; 128 ; DATA. CORRECT TO NOT CHECK PARITY. ; 129 ; ALSO CHANGE POP TO TIE UP BUS LESS. ; 130 ;75 EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:. ; 131 ;76 CORRECT BUG IN DFAD AND DFSB ; 132 ;77 FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED ; 133 ; BY EDIT 76 ; 134 ;100 CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE ; 135 ; KL10 ANSWERS FOR ALL NORMALIZED INPUTS ; 136 ; ALSO FIX A BUG IN CVTBDX PAGE FAIL LOGIC. ; 137 ;101 DFDV OF 0.0 / -0.5 HANGS THE MACHINE ; 138 ;102 FIX CHOPPED FLOATING POINT INSTRUCTIONS ; 139 ;103 CORRECT DFDV ROUNDING BUG. ; 140 ;104 CORRECT PROBLEMS IN DFMP ; 141 ;105 RDTIME SOMETIMES GIVES WRONG ANSWER. CARRY BETWEEN ; 142 ; WORDS GETS LOST SOMETIME. ; 143 ;106 MOVEM (ALSO, SETZM, SETOM, ETC.) SOMETIMES DOES NOT GENERATE ; 144 ; A WRITE-TRAP IN 100% OF THE CASES THAT IT SHOULD. ; 145 ;107 PXCT 14, DOES NOT GET THE INDEX REGISTER IN THE PREVIOUS ; 146 ; CONTEXT ALL THE TIME. ; 147 ;110 FIX TYPO IN EDIT 103 ; 148 ;111 63. BIT BYTES DO NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS ; 149 ; PROBLEM. ; 150 ;******* VERSION 111 WENT OUT WITH SYSTEM REV 2 ******* ; 151 ; 152 ;112 FIX COMMENT IN TEST INSTRUCTIONS ; 153 ;113 CORRECT IOEA TO COMPUTE CORRECT ADDRESS IF JUST LOCAL INDEXING ; 154 ; IS USED. ; 155 ;114 CORRECT INTERRUPT BUG IN DMUL ; 156 ;115 CORRECT COMMENTS HALT STATUS BLOCK ; 157 ;116 CORRECT PROBLEM WHERE CST MODIFIED BIT GETS SET BY MISTAKE. ; 158 ;117 RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANDOM TRASH ; 159 ; IN THE WRONG PLACE. NEED TO LOAD BR NOT AR. ; 160 ;120 FLOATING POINT OPERATIONS SOMETIMES GET THE WRONG RESULT WITH ; 161 ; INPUTS OF UNNORMALIZED ZEROS. THIS SHOULD NEVER HAPPEN WITH ; 1623 ; FORTRAN OR ANY OTHER DEC LANGUAGE. ; 163 ;121 PREVENT KEEP-ALIVE CRASHES FROM OCCURRING BECAUSE THE MOVSRJ ; 164 ; INSTRUCTION CAN LOCK OUT THE 1MS TIMER INTERRUPTS FROM BEING ; 165 ; HANDLED. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE ; 166 ; PASSAGE OF TIME. ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 6-1 ; KS10.MIC[7,3] 14:54 7-JAN-1986 REVISION HISTORY ; 167 ;122 DFAD FOLLOWED BY A FSC OF -5 CAUSES THE FSC TO GET WRONG ; 168 ; ANSWER. HAD TO CLEAR FLAG WORD AT EXIT OF DFAD TO FIX PROBLEM ; 169 ;123 MORE CODE FOR EDIT 121. ADDED ANOTHER DISPATCH ADDRESS FOR ; 170 ; PAGE FAIL CODE AT PFD:. ; 171 ;124 ADD ASSEMBLY OPTIONS FOR NOCST AND INHIBIT CST UPDATE. ; 172 ; ADD BLTUB/BLTBU TO GET UBA STYLE BYTES SWAPPED TO/FROM ILDB FORM. ; 173 ; ADD ASSEMBLY OPTIONS FOR KI/KL PAGE. NEED THE SPACE FOR BLTUB/BU. ; 174 ;125 SUPPORT THE "MAJOR/MINOR VERSION IN 136" UCODE STANDARD. ; 175 ; FIX BAD CONSTRAINT FOR INHCST ASSEMBLIES (NOT CURRENTLY USED) ; 176 ;126 FIX NON-TRIVIAL CASES OF RDUBR,WRUBR, AND PROCESS CONTEXT WORD. ; 177 ;127 JSR IN A TRAP CYCLE STORES E+1 SOMETIMES. TRAP CYCLE WAS NOT BEING ; 178 ; CLEARED (BY NICOND) BEFORE STARTING THE NEXT MEMORY READ. ; 179 ;130 FIX UCODE HANG WITH STOPPPED CLOCKS ON WR (KL-PAGING REGISTER) IF ; 180 ; PAGING IS ON. IDEALLY, WE WOULD REMOVE WRITE TEST FROM THE DROM ; 181 ; FIELD, BUT IT'S TOO LATE TO ECO THE ROMS. ; 182 ; RESTRICTION: WRITE KLPAGE REGISTER LOCATION MUST BE WRITABLE. ; 183 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 7 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ THE MICROCODE ; 184 .TOC "HOW TO READ THE MICROCODE" ; 185 ; 186 ; ; 187 ; ; 188 ; 1.0 FIELD DEFINITIONS ; 189 ; ; 190 ; THESE OCCUR AT THE BEGINNING OF THE LISTING, IN THE SOURCE FILE KS10.MIC ; 191 ; (CONTROL AND DISPATCH RAM DEFINITIONS). THEY HAVE THE FORM: ; 192 ; ; 193 ; SYMBOL/=M,J ; 194 ; ; 195 ; THE PARAMETER (J) IS MEANINGFUL WHEN "D" IS SPECIFIED AS THE DEFAULT MECHANISM, ; 196 ; AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL. WHEN "F" IS ; 197 ; SPECIFIED AS THE DEFAULT MECHANISM, (J) IS THE NAME OF A FIELD WHICH CONTAINS ; 198 ; THE DEFAULT VALUE FOR THIS FIELD. ; 199 ; ; 200 ; THE PARAMETER (L) GIVES THE BIT POSITION OF THE LEFTMOST BIT IN THE FIELD. THE ; 201 ; SAME METHOD IS USED AS FOR (R) BELOW. ; 202 ; ; 203 ; THE PARAMETER (R) GIVES THE FIELD POSITION IN DECIMAL AS THE BIT NUMBER OF THE ; 204 ; RIGHTMOST BIT OF THE FIELD. BITS ARE NUMBERED FROM 0 ON THE LEFT. NOTE THAT ; 205 ; THE POSITION OF BITS IN THE MICROWORD SHOWN IN THE LISTING BEARS NO RELATION TO ; 206 ; THE ORDERING OF BITS IN THE HARDWARE MICROWORD, WHERE FIELDS ARE OFTEN BROKEN UP ; 207 ; AND SCATTERED. ; 208 ; ; 209 ; THE PARAMETER (M) IS OPTIONAL, AND SELECTS A DEFAULT MECHANISM FOR THE FIELD. ; 210 ; THE LEGAL VALUES OF THIS PARAMETER ARE THE CHARACTERS "D", "F", "T", "P", OR ; 211 ; "+". ; 212 ; ; 213 ; "D" MEANS (J) IS THE DEFAULT VALUE OF THE FIELD IF NO EXPLICIT VALUE IS ; 214 ; SPECIFIED. ; 215 ; ; 216 ; "F" IS USED TO CAUSE THIS FIELD TO DEFAULT TO SOME OTHER FIELD. ; 217 ; ; 218 ; "T" IS USED ON THE TIME FIELD TO SPECIFY THAT THE VALUE OF THE FIELD ; 219 ; DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS. "T" IS NOT ; 220 ; USED IN THE KS10. ; 221 ; ; 222 ; "P" IS USED ON THE PARITY FIELD TO SPECIFY THAT THE VALUE OF THE FIELD ; 223 ; SHOULD DEFAULT SUCH THAT PARITY OF THE ENTIRE WORD IS ODD. "P" IS NOT ; 224 ; USED ON THE KS10. ; 225 ; ; 226 ; "+" IS USED ON THE JUMP ADDRESS FIELD TO SPECIFY THAT THE DEFAULT JUMP ; 227 ; ADDRESS IS THE ADDRESS OF THE NEXT INSTRUCTION ASSEMBLED (NOT, IN ; 228 ; GENERAL, THE CURRENT LOCATION +1). ; 229 ; ; 230 ; IN GENERAL, A FIELD CORRESPONDS TO THE SET OF BITS WHICH PROVIDE SELECT INPUTS ; 231 ; FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU'S. ; 232 ; ; 233 ; ; 234 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 8 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ THE MICROCODE ; 235 ; 2.0 VALUE DEFINITIONS ; 236 ; ; 237 ; FOLLOWING A FIELD DEFINITION, SYMBOLS MAY BE CREATED IN THAT FIELD TO CORRESPOND ; 238 ; TO VALUES OF THE FIELD. THE FORM IS: ; 239 ; ; 240 ; SYMBOL=N ; 241 ; ; 242 ; "N" IS, IN OCTAL, THE VALUE OF SYMBOL WHEN USED IN THE FIELD. ; 243 ; ; 244 ; ; 245 ; ; 246 ; 3.0 LABEL DEFINITIONS ; 247 ; ; 248 ; A MICRO INSTRUCTION MAY BE LABELLED BY A SYMBOL FOLLOWED BY COLON PRECEDING THE ; 249 ; MICROINSTRUCTION DEFINITION. THE ADDRESS OF THE MICROINSTRUCTION BECOMES THE ; 250 ; VALUE OF THE SYMBOL IN THE FIELD NAMED "J". EXAMPLE: ; 251 ; ; 252 ; FOO: J/FOO ; 253 ; ; 254 ; THIS IS A MICROINSTRUCTION WHOSE "J" FIELD (JUMP ADDRESS) CONTAINS THE VALUE ; 255 ; "FOO". IT ALSO DEFINES THE SYMBOL "FOO" TO BE THE ADDRESS OF ITSELF. ; 256 ; THEREFORE, IF EXECUTED BY THE MICROPROCESSOR, IT WOULD LOOP ON ITSELF. ; 257 ; ; 258 ; ; 259 ; ; 260 ; 4.0 COMMENTS ; 261 ; ; 262 ; A SEMICOLON ANYWHERE ON A LINE CAUSES THE REST OF THE LINE TO BE IGNORED BY THE ; 263 ; ASSEMBLER. THIS TEXT IS AN EXAMPLE OF COMMENTS. ; 264 ; ; 265 ; ; 266 ; ; 267 ; 5.0 MICROINSTRUCTION DEFINITION ; 268 ; ; 269 ; A WORD OF MICROCODE IS DEFINED BY SPECIFYING A FIELD NAME, FOLLOWED BY SLASH ; 270 ; (/), FOLLOWED BY A VALUE. THE VALUE MAY BE A SYMBOL DEFINED FOR THAT FIELD, AN ; 271 ; OCTAL DIGIT STRING, OR A DECIMAL DIGIT STRING (DISTINGUISHED BY THE FACT THAT IT ; 272 ; CONTAINS "8" AND/OR "9" AND/OR IS TERMINATED BY A PERIOD). SEVERAL FIELDS MAY ; 273 ; BE SPECIFIED IN ONE MICROINSTRUCTION BY SEPARATING FIELD/VALUE SPECIFICATIONS ; 274 ; WITH COMMAS. EXAMPLE: ; 275 ; ; 276 ; AD/ZERO,RAMADR/AC*#,ACALU/AC+N,ACN/1,DBUS/DP ; 277 ; ; 278 ; ; 279 ; 6.0 CONTINUATION ; 280 ; ; 281 ; THE DEFINITION OF A MICROINSTRUCTION MAY CONTINUED ONTO TWO OR MORE LINES BY ; 282 ; BREAKING IT AFTER ANY COMMA. IN OTHER WORDS, IF THE LAST NON-BLANK, NON-COMMENT ; 283 ; CHARACTER ON A LINE IS A COMMA, THE INSTRUCTION SPECIFICATION IS CONTINUED ON ; 284 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 9 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ THE MICROCODE ; 285 ; THE FOLLOWING LINE. EXAMPLE: ; 286 ; READ [AR], ;LOOK AT EFFECTIVE ADDRESS ; 287 ; SKIP DP18, ;SEE IF RIGHT OR LEFT SHIFT ; 288 ; SC_SHIFT-1, ;PUT NUMBER OF PLACE TO ; 289 ; ;SHIFT IN SC ; 290 ; LOAD FE, ; AND IN FE ; 291 ; INST DISP ;GO DO THE SHIFT ; 292 ; ; 293 ; ; 294 ; ; 295 ; 7.0 MACROS ; 296 ; ; 297 ; A MACRO IS A SYMBOL WHOSE VALUE IS ONE OR MORE FIELD/VALUE SPECIFICATIONS AND/OR ; 298 ; MACROS. A MACRO DEFINITION IS A LINE CONTAINING THE MACRO NAME FOLLOWED BY A ; 299 ; QUOTED STRING WHICH IS THE VALUE OF THE MACRO. EXAMPLE: ; 300 ; ; 301 ; LOAD VMA "MEM/1, LDVMA/1 ; 302 ; ; 303 ; THE APPEARANCE OF A MACRO IN A MICROINSTRUCTION DEFINITION IS EQUIVALENT TO THE ; 304 ; APPEARANCE OF ITS VALUE. ; 305 ; ; 306 ; MACRO MAY HAVE PARAMETERS ENCLOSED IN []. FOR EXAMPLE, ; 307 ; ; 308 ; []_[] "AD/A,A/@2,DEST/AD,B/@1" ; 309 ; ; 310 ; THE @1 GETS REPLACED BY WHAT IS WRITTEN IN THE FIRST SET OF [] AND @2 IS ; 311 ; REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF []. THUS ; 312 ; ; 313 ; [AR]_[ARX] ; 314 ; ; 315 ; HAS THE SAME EFFECT AS SAYING ; 316 ; ; 317 ; AD/A,A/ARX,DEST/AD,B/AR ; 318 ; ; 319 ; ; 320 ; SEE DESCRIPTION OF RULES FOR MACRO NAMES. ; 321 ; ; 322 ; 8.0 PSEUDO OPS ; 323 ; ; 324 ; THE MICRO ASSEMBLER HAS 13 PSEUDO-OPERATORS: ; 325 ; ; 326 ; .DCODE AND .UCODE SELECT THE RAM INTO WHICH SUBSEQUENT MICROCODE WILL BE ; 327 ; LOADED, AND THEREFORE THE FIELD DEFINITIONS AND MACROS WHICH ARE ; 328 ; MEANINGFUL IN SUBSEQUENT MICROCODE ; 329 ; .TITLE DEFINES A STRING OF TEXT TO APPEAR IN THE PAGE HEADER, AND ; 330 ; .TOC DEFINES AN ENTRY FOR THE TABLE OF CONTENTS AT THE BEGINNING. ; 331 ; .SET DEFINES THE VALUE OF A CONDITIONAL ASSEMBLY PARAMETER, ; 332 ; .CHANGE REDEFINES A CONDITIONAL ASSEMBLY PARAMETER, ; 333 ; .DEFAULT ASSIGNS A VALUE TO AN UNDEFINED PARAMETER. ; 334 ; .IF ENABLES ASSEMBLY IF THE VALUE OF THE PARAMETER IS NOT ZERO, ; 335 ; .IFNOT ENABLES ASSEMBLY IF THE PARAMETER VALUE IS ZERO, AND ; 336 ; .ENDIF RE-ENABLES ASSEMBLY IF SUPPRESSED BY THE PARAMETER NAMED. ; 337 ; .NOBIN TURNS OFF THE BINARY A GETS RID OF THE SPACE USED TO LIST IT, ; 338 ; .BIN TURN BINARY BACK ON AGAIN. ; 339 ; .WIDTH CONTROLS THE NUMBER OF BITS IN THE CRAM ; 340 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 10 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ THE MICROCODE ; 341 ; 9.0 LOCATION CONTROL ; 342 ; ; 343 ; A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS ASSIGNED TO THAT ADDRESS. ; 344 ; ; 345 ; THE CHARACTER "=" AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF 0'S, 1'S, ; 346 ; AND/OR *'S, SPECIFIES A CONSTRAINT ON THE ADDRESS OF FOLLOWING ; 347 ; MICROINSTRUCTIONS. THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING ; 348 ; THE "=") IS THE NUMBER OF LOW-ORDER BITS CONSTRAINED IN THE ADDRESS. THE ; 349 ; MICROASSEMBLER ATTEMPTS TO FIND AN UNUSED LOCATION WHOSE ADDRESS HAS 0 BITS IN ; 350 ; THE POSITIONS CORRESPONDING TO 0'S IN THE CONSTRAINT STRING AND 1 BITS WHERE THE ; 351 ; CONSTRAINT HAS 1'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS. ; 352 ; ; 353 ; IF THERE ARE ANY 0'S IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF ; 354 ; <2**N> MICROWORDS, WHERE N IS THE NUMBER OF 0'S IN THE STRING. ALL LOCATIONS IN ; 355 ; THE BLOCK WILL HAVE 1'S IN THE ADDRESS BITS CORRESPONDING TO 1'S IN THE STRING, ; 356 ; AND BIT POSITIONS DENOTED BY *'S WILL BE THE SAME IN ALL LOCATIONS OF THE BLOCK. ; 357 ; ; 358 ; IN SUCH A CONSTRAINT BLOCK, THE DEFAULT ADDRESS PROGRESSION IS COUNTING IN THE ; 359 ; "0" POSITIONS OF THE CONSTRAINT STRING, BUT A NEW CONSTRAINT STRING OCCURING ; 360 ; WITHIN A BLOCK MAY FORCE SKIPPING OVER SOME LOCATIONS OF THE BLOCK. WITHIN A ; 361 ; BLOCK, A NEW CONSTRAINT STRING DOES NOT CHANGE THE PATTERN OF DEFAULT ADDRESS ; 362 ; PROGRESSION, IT MERELY ADVANCES THE LOCATION COUNTER OVER THOSE LOCATIONS. THE ; 363 ; MICROASSEMBLER WILL LATER FILL THEM IN. ; 364 ; ; 365 ; A NULL CONSTRAINT STRING ("=" FOLLOWED BY ANYTHING BUT "0", "1", OR "*") SERVES ; 366 ; TO TERMINATE A CONSTRAINT BLOCK. EXAMPLES: ; 367 ; ; 368 ; =0 ; 369 ; ; 370 ; THIS SPECIFIES THAT THE LOW-ORDER ADDRESS BIT MUST BE ZERO-- THE MICROASSEMBLER ; 371 ; FINDS AN EVEN-ODD PAIR OF LOCATIONS, AND PUTS THE NEXT TWO MICROINSTRUCTIONS ; 372 ; INTO THEM. ; 373 ; ; 374 ; =11 ; 375 ; THIS SPECIFIES THAT THE TWO LOW-ORDER BITS OF THE ADDRESS MUST BOTH BE ONES. ; 376 ; SINCE THERE ARE NO 0'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION ; 377 ; MEETING THE CONSTRAINT. ; 378 ; ; 379 ; =0***** ; 380 ; ; 381 ; THIS SPECIFIES AN ADDRESS IN WHICH THE "40" BIT IS ZERO. DUE TO THE ; 382 ; IMPLEMENTATION OF THIS FEATURE IN THE ASSEMBLER, THE DEFAULT ADDRESS PROGRESSION ; 383 ; APPLIES ONLY TO THE LOW-ORDER 5 BITS, SO THIS CONSTRAINT FINDS ONE WORD IN WHICH ; 384 ; THE "40" BIT IS ZERO, AND DOES NOT ATTEMPT TO FIND ONE IN WHICH THAT BIT IS A ; 385 ; ONE. THIS LIMITATION HAS BEEN CHANGED WITH NEWER ASSEMBLER VERSIONS. HOWEVER ; 386 ; NONE OF THE LOCATIONS IN THE MICROCODE REQUIRE ANYTHING BUT THE CONSTRAINT ; 387 ; MENTIONED ABOVE. ; 388 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 11 ; KS10.MIC[7,3] 14:54 7-JAN-1986 CONDITIONAL ASSEMBLY DEFINITIONS ; 389 .TOC "CONDITIONAL ASSEMBLY DEFINITIONS" ; 390 ; 391 .DEFAULT/SIM=0 ;0=RUN ON REAL HARDWARE ; 392 ;1=RUN UNDER SIMULATOR ; 393 ; 394 .DEFAULT/FULL=1 ;0=INCLUDE ONLY BASIC INSTRUCTIONS ; 395 ;1=INCLUDE FULL INSTRUCTION SET ; 396 ; 397 .DEFAULT/INHCST=0 ;0=NO CODE TO INHIBIT CST UPDATE IF CSB=0 ; 398 ;1=DON'T UPDATE CST IF CSB=0 ; 399 ; 400 .DEFAULT/NOCST=0 ;0=INCLUDE SUPPORT FOR WRITING THE CST ; 401 ;1=COMPLETELY DESUPPORT CST (FOR TOPS-10) ; 402 ; 403 .DEFAULT/UBABLT=0 ;0=NO UBABLT SUPPORT ; 404 ;1=SUPPORT UBA STYLE BLT INSTRUCTIONS. ; 405 ; 406 .DEFAULT/KIPAGE=1 ;0=DON'T SUPPORT KI PAGING ; 407 ;1=DO ; 408 ; 409 .DEFAULT/KLPAGE=1 ;0=DON'T SUPPORT KL PAGING ; 410 ;1=DO ; 411 ;;412 .IF/UBABLT ;THESE INSTRUCTIONS ;;413 .IF/KLPAGE ;;414 .CHANGE/KIPAGE=0 ;;415 .ENDIF/KLPAGE ;;416 .IF/KIPAGE ;ALLOW ONLY ONE PAGING MODE ;;417 .CHANGE/KLPAGE=0 ;;418 .ENDIF/KIPAGE ; 419 .ENDIF/UBABLT ;OTHERWISE, MAY HAVE EITHER OR BOTH ; 420 ;;421 .IF/NOCST ;;422 .CHANGE/INHCST=0 ; 423 .ENDIF/NOCST ; 424 ; 425 .DEFAULT/NONSTD=0 ;0=STANDARD MICROCODE ; 426 ;1=NON-STANDARD MICROCODE ; 427 ; 428 .WIDTH/108 ;ONLY FIELDS BETWEEN BITS 0 AND 107 EVER ; 429 ; GET LOADED INTO THE CRAM. OTHER FIELDS ; 430 ; ARE USED FOR DEFAULTING PROCESS. ; 431 ; 432 .REGION/0,1377/2000,3777/1400,1777 ; 433 ;TRY AND KEEP STUFF OUT OF DROM SPACE ; 434 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 12 ; KS10.MIC[7,3] 14:54 7-JAN-1986 2901 REGISTER USAGE ; 435 .TOC "2901 REGISTER USAGE" ; 436 ; 437 ; !=========================================================================! ; 438 ;0: ! MAG (ONES IN BITS 1-36, REST ZERO) ! ; 439 ; !-------------------------------------------------------------------------! ; 440 ;1: ! PC (ADDRESS OF CURRENT INSTRUCTION + 1) ! ; 441 ; !-------------------------------------------------------------------------! ; 442 ;2: ! HR (CURRENT INSTRUCTION) ! ; 443 ; !-------------------------------------------------------------------------! ; 444 ;3: ! AR (TEMP -- MEM OP AT INST START) ! ; 445 ; !-------------------------------------------------------------------------! ; 446 ;4: ! ARX (TEMP -- LOW ORDER HALF OF DOUBLE PREC) ! ; 447 ; !-------------------------------------------------------------------------! ; 448 ;5: ! BR (TEMP) ! ; 449 ; !-------------------------------------------------------------------------! ; 450 ;6: ! BRX (TEMP -- LOW ORDER HALF OF DOUBLE PREC BR!BRX) ! ; 451 ; !-------------------------------------------------------------------------! ; 452 ;7: ! ONE (THE CONSTANT 1) ! ; 453 ; !-------------------------------------------------------------------------! ; 454 ;10: ! EBR (EXEC BASE REGISTER) ! ; 455 ; !-------------------------------------------------------------------------! ; 456 ;11: ! UBR (USER BASE REGISTER) ! ; 457 ; !-------------------------------------------------------------------------! ; 458 ;12: ! MASK (ONES IN BITS 0-35, ZERO IN -1, -2, 36 AND 37) ! ; 459 ; !-------------------------------------------------------------------------! ; 460 ;13: ! FLG (FLAG BITS) ! PAGE FAIL CODE ! ; 461 ; !-------------------------------------------------------------------------! ; 462 ;14: ! PI (PI SYSTEM STATUS REGISTER [RDPI]) ! ; 463 ; !-------------------------------------------------------------------------! ; 464 ;15: ! XWD1 (1 IN EACH HALF WORD) ! ; 465 ; !-------------------------------------------------------------------------! ; 466 ;16: ! T0 (TEMP) ! ; 467 ; !-------------------------------------------------------------------------! ; 468 ;17: ! T1 (TEMP) ! ; 469 ; !=========================================================================! ; 470 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 13 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- LISTING FORMAT ; 471 .TOC "MICROCODE FIELDS -- LISTING FORMAT" ; 472 ; 473 ; ; 3633 1561: ; 474 ; ; 3634 SUB: [AR]_AC-[AR], ; 475 ; ; 3635 AD FLAGS, 3T, ; 476 ; U 1561, 1500,2551,0303,0274,4463,7701,4200,0001,0001 ; 3636 EXIT ; 477 ; [--] [--] !!!! [][] !!![-][][-][]! !!! [----] ; 478 ; ! ! !!!! ! ! !!!! ! ! ! ! !!! ! ; 479 ; ! ! !!!! ! ! !!!! ! ! ! ! !!! +---- # (MAGIC NUMBER) ; 480 ; ! ! !!!! ! ! !!!! ! ! ! ! !!! ; 481 ; ! ! !!!! ! ! !!!! ! ! ! ! !!+------------- MULTI PREC, MULTI SHIFT, CALL (4S, 2S, 1S) ; 482 ; ! ! !!!! ! ! !!!! ! ! ! ! !! ; 483 ; ! ! !!!! ! ! !!!! ! ! ! ! !+-------------- FM WRITE, MEM, DIVIDE (4S, 2S, 1S) ; 484 ; ! ! !!!! ! ! !!!! ! ! ! ! ! ; 485 ; ! ! !!!! ! ! !!!! ! ! ! ! +--------------- CRY38, LOAD SC, LOAD FE (4S, 2S, 1S) ; 486 ; ! ! !!!! ! ! !!!! ! ! ! ! ; 487 ; ! ! !!!! ! ! !!!! ! ! ! +----------------- T ; 488 ; ! ! !!!! ! ! !!!! ! ! ! ; 489 ; ! ! !!!! ! ! !!!! ! ! +------------------- SKIP ; 490 ; ! ! !!!! ! ! !!!! ! ! ; 491 ; ! ! !!!! ! ! !!!! ! +---------------------- DISP ; 492 ; ! ! !!!! ! ! !!!! ! ; 493 ; ! ! !!!! ! ! !!!! +------------------------ SPEC ; 494 ; ! ! !!!! ! ! !!!! ; 495 ; ! ! !!!! ! ! !!!+--------------------------- CLOCKS & PARITY (CLKR, GENR, CHKR, CLKL, GENL, CHKL) ; 496 ; ! ! !!!! ! ! !!! ; 497 ; ! ! !!!! ! ! !!+---------------------------- DBM ; 498 ; ! ! !!!! ! ! !! ; 499 ; ! ! !!!! ! ! !+----------------------------- DBUS ; 500 ; ! ! !!!! ! ! ! ; 501 ; ! ! !!!! ! ! +------------------------------ RAM ADDRESS ; 502 ; ! ! !!!! ! ! ; 503 ; ! ! !!!! ! +--------------------------------- B ; 504 ; ! ! !!!! ! ; 505 ; ! ! !!!! +----------------------------------- A ; 506 ; ! ! !!!! ; 507 ; ! ! !!!+------------------------------------- DEST ; 508 ; ! ! !!! ; 509 ; ! ! !!+-------------------------------------- RSRC ; 510 ; ! ! !! ; 511 ; ! ! !+--------------------------------------- LSRC ] ; 512 ; ! ! ! ] - AD ; 513 ; ! ! +---------------------------------------- ALU ] ; 514 ; ! ! ; 515 ; ! +--------------------------------------------- J ; 516 ; ! ; 517 ; LOCATION OF THIS MICRO WORD ; 518 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 14 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- DATAPATH CHIP ; 519 .TOC "MICROCODE FIELDS -- DATAPATH CHIP" ; 520 ; 521 J/=<0:11>+ ;CRA1 ; 522 ;NEXT MICROCODE ADDRESS ; 523 ; 524 ;ALU FUNCTIONS ; 525 ; 526 ;NOTE: THE AD FIELD IS A 2 DIGIT FIELD. THE LEFT DIGIT IS THE ; 527 ; 2901 ALU FUNCTION. THE RIGHT DIGIT IS THE 2901 SRC CODE FOR ; 528 ; THE LEFT HALF. NORMALY THE RIGHT HALF SRC CODE IS THE SAME AS ; 529 ; THE LEFT HALF. ; 530 AD/=<12:17>D,44 ;DPE1 & DPE2 ; 531 A+Q=00 ; 532 A+B=01 ; 533 0+Q=02 ; 534 0+B=03 ; 535 0+A=04 ; 536 D+A=05 ; 537 D+Q=06 ; 538 0+D=07 ; 539 Q-A-.25=10 ; 540 B-A-.25=11 ; 541 Q-.25=12 ; 542 B-.25=13 ; 543 A-.25=14 ; 544 A-D-.25=15 ; 545 Q-D-.25=16 ; 546 -D-.25=17 ; 547 A-Q-.25=20 ; 548 A-B-.25=21 ; 549 -Q-.25=22 ; 550 -B-.25=23 ; 551 -A-.25=24 ; 552 D-A-.25=25 ; 553 D-Q-.25=26 ; 554 D-.25=27 ; 555 A.OR.Q=30 ; 556 A.OR.B=31 ; 557 Q=32 ; 558 B=33 ; 559 A=34 ; 560 D.OR.A=35 ; 561 D.OR.Q=36 ; 562 D=37 ; 563 A.AND.Q=40 ; 564 A.AND.B=41 ; 565 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 15 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- DATAPATH CHIP ; 566 ;MORE ALU FUNCTIONS ; 567 ; 568 ZERO=42 ; 569 ; ZERO=43 ; 570 ; ZERO=44 ; 571 D.AND.A=45 ; 572 D.AND.Q=46 ; 573 ; ZERO=47 ; 574 .NOT.A.AND.Q=50 ; 575 .NOT.A.AND.B=51 ; 576 ; Q=52 ; 577 ; B=53 ; 578 ; A=54 ; 579 .NOT.D.AND.A=55 ; 580 .NOT.D.AND.Q=56 ; 581 ; ZERO=57 ; 582 A.XOR.Q=60 ; 583 A.XOR.B=61 ; 584 ; Q=62 ; 585 ; B=63 ; 586 ; A=64 ; 587 D.XOR.A=65 ; 588 D.XOR.Q=66 ; 589 ; D=67 ; 590 A.EQV.Q=70 ; 591 A.EQV.B=71 ; 592 .NOT.Q=72 ; 593 .NOT.B=73 ; 594 .NOT.A=74 ; 595 D.EQV.A=75 ; 596 D.EQV.Q=76 ; 597 .NOT.D=77 ; 598 ; 599 ;THIS FIELD IS THE RIGHTMOST 3 BITS OF THE ; 600 ; AD FIELD. IT IS USED ONLY TO DEFAULT THE RSRC ; 601 ; FIELD. ; 602 LSRC/=<15:17> ;DPE1 ; 603 ; 604 ;THIS IS THE SOURCE FOR THE RIGHT HALF OF THE ; 605 ; DATA PATH. IT LETS US MAKE THE RIGHT AND LEFT ; 606 ; HALF WORDS DO SLIGHTLY DIFFERENT THINGS. ; 607 RSRC/=<18:20>F,LSRC ;DPE2 ; 608 AQ=0 ;A Q ; 609 AB=1 ;A B ; 610 0Q=2 ;0 Q ; 611 0B=3 ;0 B ; 612 0A=4 ;0 A ; 613 DA=5 ;D A ; 614 DQ=6 ;D Q ; 615 D0=7 ;D 0 ; 616 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 16 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- DATAPATH CHIP ; 617 ;DESTINATION CONTROL ; 618 ;SEE DPE1 AND DPE2 (2'S WEIGHT IS INVERTED ON DPE5) ; 619 DEST/=<21:23>D,3 ;DPE1 & DPE2 ; 620 A=0 ;A REG IS CHIP OUTPUT, AD IS WRITTEN ; 621 ; INTO REG FILE ; 622 AD=1 ;REG FILE GETS AD ; 623 Q_AD=2 ;REG FILE IS NOT LOADED ; 624 PASS=3 ;AD OUTPUT IS CHIP OUTPUT ; 625 ; Q AND REG FILE LEFT ALONE ; 626 Q_Q*2=4 ;ALSO REG FILE GETS AD*2 ; 627 AD*2=5 ;AND Q IS LEFT ALONE ; 628 Q_Q*.5=6 ;ALSO REG FILE GETS AD*.5 ; 629 AD*.5=7 ;AND Q IS LEFT ALONE ; 630 ; 631 ; <24:25> ;UNUSED ; 632 ; 633 A/=<26:29> ;DPE1 & DPE2 ; 634 MAG=0 ; 635 PC=1 ; 636 HR=2 ; 637 AR=3 ; 638 ARX=4 ; 639 BR=5 ; 640 BRX=6 ; 641 ONE=7 ; 642 EBR=10 ; 643 UBR=11 ; 644 MASK=12 ; 645 FLG=13 ; 646 PI=14 ; 647 XWD1=15 ; 648 T0=16 ; 649 T1=17 ; 650 ; 651 ; <30:31> ;UNUSED ; 652 ; 653 B/=<32:35>D,0 ;DPE1 & DPE2 ; 654 MAG=0 ; 655 PC=1 ; 656 HR=2 ; 657 AR=3 ; 658 ARX=4 ; 659 BR=5 ; 660 BRX=6 ; 661 ONE=7 ; 662 EBR=10 ; 663 UBR=11 ; 664 MASK=12 ; 665 FLG=13 ; 666 PI=14 ; 667 XWD1=15 ; 668 T0=16 ; 669 T1=17 ; 670 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 17 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS ; 671 .TOC "MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS" ; 672 ; 673 RAMADR/=<36:38>D,4 ;DPE6 ; 674 AC#=0 ;AC NUMBER ; 675 AC*#=1 ;AC .FN. # ; 676 XR#=2 ;INDEX REGISTER ; 677 VMA=4 ;VIRTUAL MEMORY REFERENCE ; 678 RAM=6 ;VMA SUPPLIES 10-BIT RAM ADDRESS ; 679 #=7 ;ABSOLUTE RAM FILE REFERENCE ; 680 ; 681 ; <39:39> ; 682 ; 683 ;LEFT HALF ON DPE3 AND RIGHT HALF ON DPE4 ; 684 DBUS/=<40:41>D,1 ;DPE3 & DPE4 ; 685 PC FLAGS=0 ;PC FLAGS IN LEFT HALF ; 686 PI NEW=0 ;NEW PI LEVEL IN BITS 19-21 ; 687 ; VMA=0 ;VMA IN BITS 27-35 ; 688 DP=1 ;DATA PATH ; 689 RAM=2 ;CACHE, AC'S AND WORKSPACE ; 690 DBM=3 ;DBM MIXER ; 691 ; 692 ;LEFT HALF ON DPM1 AND RIGHT HALF ON DPM2 ; 693 DBM/=<42:44>D,7 ;DPM1 & DPM2 ; 694 SCAD DIAG=0 ;(LH) SCAD DIAGNOSTIC ; 695 PF DISP=0 ;PAGE FAIL DISP IN BITS 18-21 ; 696 APR FLAGS=0 ;APR FLAGS IN BITS 22-35 ; 697 BYTES=1 ;5 COPIES OF SCAD 1-7 ; 698 EXP=2 ;LH=EXPONENT, RH=TIME FRACTION ; 699 DP=3 ;DATA PATH ; 700 DP SWAP=4 ;DATA PATH SWAPPED ; 701 VMA=5 ;VMA FLAGS,,VMA ; 702 MEM=6 ;MEMORY BUFFER ; 703 #=7 ;NUMBER FIELD IN BOTH HALVES ; 704 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 18 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL ; 705 .TOC "MICROCODE FIELDS -- PARITY GENERATION & HALF WORD CONTROL" ; 706 ; 707 AD PARITY OK/=<108>D,0 ;**NOT STORED IN CRAM** ; 708 ;THIS BIT IS A 1 IF THE ALU IS DOING ; 709 ; SOMETHING WHICH DOES NOT INVALIDATE ; 710 ; PARITY. IT DOES NOT APPEAR IN THE ; 711 ; REAL MACHINE. WE JUST USE IT TO SET ; 712 ; THE DEFAULT FOR GENR & GENL ; 713 ; 714 CLKL/=<45:45>D,1 ;DPE5 ; 715 ;CLOCK THE LEFT HALF OF THE MACHINE ; 716 GENL/=<46:46>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN LEFT H ; 717 ;STORE PARITY FOR 2901 LEFT ; 718 CHKL/=<47:47> ;DPE4 FROM CRM2 PARITY CHK LEFT H ; 719 ;CHECK LEFT HALF DBUS PARITY ; 720 ; 721 CLKR/=<48:48>D,1 ;DPE5 ; 722 ;CLOCK THE RIGHT HALF OF THE MACHINE ; 723 GENR/=<49:49>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN RIGHT H ; 724 ;STORE PARITY FOR 2901 RIGHT ; 725 CHKR/=<50:50> ;DPE4 FROM CRM2 PARITY CHK RIGHT H ; 726 ;CHECK RIGHT HALF DBUS PARITY ; 727 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 19 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- SPEC ; 728 .TOC "MICROCODE FIELDS -- SPEC" ; 729 ; 730 ; 731 ; ; 732 ;THE FOLLOWING SPECIAL FUNCTION ARE DECODED ON DPE1, DPE5, AND DPMA: ; 733 ; !=========================================================================! ; 734 ; !S! EFFECT ! CRA6 SPEC ! CRA6 SPEC ! CRA6 SPEC ! ; 735 ; !P! ON SHIFT ! EN 40 ! EN 20 ! EN 10 ! ; 736 ; !E! PATHS ! E102 ON DPE5 ! E101 ON DPE5 ! E410 ON DPMA ! ; 737 ; !C! (SEE DPE1) ! ! E411 ON DPMA ! E113 ON CRA2 ! ; 738 ; !=========================================================================! ; 739 ; !0! NORMAL ! CRY 18 INH ! PREVIOUS ! # ! ; 740 ; !-------------------------------------------------------------------------! ; 741 ; !1! ZERO ! IR LOAD ! XR LOAD ! CLR 1 MSEC ! ; 742 ; !-------------------------------------------------------------------------! ; 743 ; !2! ONES ! ! ! CLR IO LATCH ! ; 744 ; !-------------------------------------------------------------------------! ; 745 ; !3! ROT ! PI LOAD ! APR FLAGS ! CLR IO BUSY ! ; 746 ; !-------------------------------------------------------------------------! ; 747 ; !4! ASHC ! ASH TEST ! SET SWEEP ! PAGE WRITE ! ; 748 ; !-------------------------------------------------------------------------! ; 749 ; !5! LSHC ! EXP TEST ! APR EN ! NICOND ! ; 750 ; !-------------------------------------------------------------------------! ; 751 ; !6! DIV ! PC FLAGS ! PXCT OFF ! PXCT EN ! ; 752 ; !-------------------------------------------------------------------------! ; 753 ; !7! ROTC ! AC BLOCKS EN ! MEM CLR ! MEM WAIT ! ; 754 ; !=========================================================================! ; 755 ; THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE ; 756 ; DBM MIXER, AS FOLLOWS: ; 757 ; ; 758 ; !=====================================! ; 759 ; ! S ! ! ; 760 ; ! P ! ACTION WHEN DBM ! ; 761 ; ! E ! SELECTS DP ! ; 762 ; ! C ! GET DP BITS ! GET SCAD 1-7 ! ; 763 ; !=====================================! ; 764 ; ! 0 ! ALL ! NONE ! ; 765 ; !-------------------------------------! ; 766 ; ! 1 ! 7-35 ! 0-6 ! ; 767 ; !-------------------------------------! ; 768 ; ! 2 !0-6 AND 14-35 ! 7-13 ! ; 769 ; !-------------------------------------! ; 770 ; ! 3 !0-13 AND 21-35! 14-20 ! ; 771 ; !-------------------------------------! ; 772 ; ! 4 !0-20 AND 28-35! 21-27 ! ; 773 ; !-------------------------------------! ; 774 ; ! 5 ! 0-27 AND 35 ! 28-34 ! ; 775 ; !-------------------------------------! ; 776 ; ! 6 ! SAME AS ZERO ! ; 777 ; !-------------------------------------! ; 778 ; ! 7 ! SAME AS ZERO ! ; 779 ; !=====================================! ; 780 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 20 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- SPEC ; 781 ;THE SPEC FIELD IS DEFINED AS A 6-BIT FIELD. THE TOP 3 BITS ; 782 ; ARE SPEC SEL A, SPEC SEL B, AND SPEC SEL C. THE LOW 3 BITS ARE ; 783 ; THE SELECT CODE. ; 784 ; 785 SPEC/=<51:56>D,0 ;DPE1 & DPE5 & DPM1 & DPMA ; 786 #=10 ;DECODE # BITS ; 787 CLRCLK=11 ;CLEAR 1MS NICOND FLAG ; 788 CLR IO LATCH=12 ;CLEAR IO LATCH ; 789 CLR IO BUSY=13 ;CLEAR IO BUSY ; 790 LDPAGE=14 ;WRITE PAGE TABLE ; 791 NICOND=15 ;DOING NICOND DISPATCH ; 792 LDPXCT=16 ;LOAD PXCT FLAGS ; 793 WAIT=17 ;MEM WAIT ; 794 PREV=20 ;FORCE PREVIOUS CONTEXT ; 795 LOADXR=21 ;LOAD XR #, USES PXCT FIELD TO SELECT ; 796 ; CORRECT AC BLOCK ; 797 APR FLAGS=23 ;LOAD APR FLAGS ; 798 CLRCSH=24 ;CLEAR CACHE ; 799 APR EN=25 ;SET APR ENABLES ; 800 MEMCLR=27 ;CLEAR PAGE FAULT CONDITION ; 801 SWEEP=34 ;SET SWEEP ; 802 PXCT OFF=36 ;TURN OFF THE EFFECT OF PXCT ; 803 INHCRY18=40 ;INHIBIT CARRY INTO LEFT HALF ; 804 LOADIR=41 ;LOAD THE IR ; 805 LDPI=43 ;LOAD PI SYSTEM ; 806 ASHOV=44 ;TEST RESULT OF ASH ; 807 EXPTST=45 ;TEST RESULT OF FLOATING POINT ; 808 FLAGS=46 ;CHANGE PC FLAGS ; 809 LDACBLK=47 ;LOAD AC BLOCK NUMBERS ; 810 LDINST=61 ;LOAD INSTRUCTION ; 811 ; 812 ;THE SPEC FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF ; 813 BYTE/=<54:56> ;DPM1 (SPEC SEL) ; 814 BYTE1=1 ; 815 BYTE2=2 ; 816 BYTE3=3 ; 817 BYTE4=4 ; 818 BYTE5=5 ; 819 ; 820 ;THE SPEC FIELD IS REDEFINED WHEN USED TO CONTROL SHIFT PATHS ; 821 SHSTYLE/=<54:56> ;DPE1 (SPEC SEL) ; 822 NORM=0 ;2 40-BIT REGISTERS ; 823 ZERO=1 ;SHIFT ZERO INTO 36 BITS (ASH TOP 2901) ; 824 ONES=2 ;SHIFT IN ONES ; 825 ROT=3 ;ROTATE ; 826 ASHC=4 ;ASHC ; 827 LSHC=5 ;LSHC ; 828 DIV=6 ;SPECIAL DIVIDE ; 829 ROTC=7 ;ROTATE DOUBLE ; 830 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 21 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- DISPATCH ; 831 .TOC "MICROCODE FIELDS -- DISPATCH" ; 832 ; !=======================================================! ; 833 ; ! D ! CRA1 ! CRA1 ! DPEA ! ; 834 ; ! I ! DISP ! DISP ! DISP ! ; 835 ; ! S ! 10 ! 20 ! 40 ! ; 836 ; ! P ! ! ! ! ; 837 ; !=======================================================! ; 838 ; ! 0 ! DIAG ADR ! DIAG ADR ! 0 ! ; 839 ; !-------------------------------------------------------! ; 840 ; ! 1 ! RETURN ! RETURN ! DP 18-21 ! ; 841 ; !-------------------------------------------------------! ; 842 ; ! 2 ! MULTIPLY ! J ! J ! ; 843 ; !-------------------------------------------------------! ; 844 ; ! 3 ! PAGE FAIL ! AREAD ! AREAD ! ; 845 ; !-------------------------------------------------------! ; 846 ; ! 4 ! NICOND ! NOT USABLE ! NORM ! ; 847 ; !-------------------------------------------------------! ; 848 ; ! 5 ! BYTE ! NOT USABLE ! DP 32-35 ! ; 849 ; !-------------------------------------------------------! ; 850 ; ! 6 ! EA MODE ! NOT USABLE ! DROM A ! ; 851 ; !-------------------------------------------------------! ; 852 ; ! 7 ! SCAD ! NOT USABLE ! DROM B ! ; 853 ; !=======================================================! ; 854 ;NOTE: DISP EN 40 & DISP EN 10 ONLY CONTROL THE LOW 4 BITS OF THE ; 855 ; JUMP ADDRESS. DISP EN 20 ONLY CONTROLS THE HI 7 BITS. TO DO ; 856 ; SOMETHING TO ALL 11 BITS BOTH 20 & 40 OR 20 & 10 MUST BE ENABLED. ; 857 ; 858 DISP/=<57:62>D,70 ;CRA1 & DPEA ; 859 CONSOLE=00 ;CONSOLE DISPATCH ; 860 DROM=12 ;DROM ; 861 AREAD=13 ;AREAD ; 862 DP LEFT=31 ;DP 18-21 ; 863 NORM=34 ;NORMALIZE ; 864 DP=35 ;DP 32-35 ; 865 ADISP=36 ;DROM A FIELD ; 866 BDISP=37 ;DROM B FIELD ; 867 RETURN=41 ;RETURN ; 868 MUL=62 ;MULTIPLY ; 869 PAGE FAIL=63 ;PAGE FAIL ; 870 NICOND=64 ;NEXT INSTRUCTION DISPATCH ; 871 BYTE=65 ;BYTE SIZE AND POSITION ; 872 EAMODE=66 ;EFFECTIVE ADDRESS MODE ; 873 SCAD0=67 ;J!2 IF SCAD BIT 0 = 1 ; 874 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 22 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- SKIP ; 875 .TOC "MICROCODE FIELDS -- SKIP" ; 876 ; !=======================================================! ; 877 ; ! S ! CRA2 ! DPEA ! DPEA ! ; 878 ; ! K ! SKIP ! SKIP ! SKIP ! ; 879 ; ! I ! 10 ! 20 ! 40 ! ; 880 ; ! P ! ! ! ! ; 881 ; !=======================================================! ; 882 ; ! 0 ! 0 ! 0 ! 0 ! ; 883 ; !-------------------------------------------------------! ; 884 ; ! 1 ! TRAP CYCLE ! CRY 02 ! CARRY OUT ! ; 885 ; !-------------------------------------------------------! ; 886 ; ! 2 ! AD=0 ! ADL SIGN ! ADL=0 ! ; 887 ; !-------------------------------------------------------! ; 888 ; ! 3 ! SC SIGN ! ADR SIGN ! ADR=0 ! ; 889 ; !-------------------------------------------------------! ; 890 ; ! 4 ! EXECUTE ! USER IOT ! -USER ! ; 891 ; !-------------------------------------------------------! ; 892 ; ! 5 ! -BUS IO BUSY ! JFCL SKIP ! FPD FLAG ! ; 893 ; !-------------------------------------------------------! ; 894 ; ! 6 ! -CONTINUE ! CRY 01 ! AC # IS ZERO ! ; 895 ; !-------------------------------------------------------! ; 896 ; ! 7 ! -1 MSEC ! TXXX ! INTERRUPT REQ ! ; 897 ; !=======================================================! ; 898 ; 899 SKIP/=<63:68>D,70 ;CRA2 & DPEA ; 900 IOLGL=04 ;(.NOT.USER)!(USER IOT)!(CONSOLE EXECUTE MODE) ; 901 LLE=12 ;AD LEFT .LE. 0 ; 902 CRY0=31 ;AD CRY -2 ; 903 ADLEQ0=32 ;ADDER LEFT = 0 ; 904 ADREQ0=33 ;ADDER RIGHT = 0 ; 905 KERNEL=34 ;.NOT. USER ; 906 FPD=35 ;FIRST PART DONE ; 907 AC0=36 ;AC NUMBER IS ZERO ; 908 INT=37 ;INTERRUPT REQUEST ; 909 LE=42 ;(AD SIGN)!(AD.EQ.0) ; 910 CRY2=51 ;AD CRY 02 ; 911 DP0=52 ;AD SIGN ; 912 DP18=53 ;AD BIT 18 ; 913 IOT=54 ;USER IOT ; 914 JFCL=55 ;JFCL SKIP ; 915 CRY1=56 ;AD CRY 1 ; 916 TXXX=57 ;TEST INSTRUCTION SHOULD SKIP ; 917 TRAP CYCLE=61 ;THIS INSTRUCTION IS THE RESULT OF A ; 918 ; TRAP 1, 2, OR 3 ; 919 ADEQ0=62 ;AD.EQ.0 ; 920 SC=63 ;SC SIGN BIT ; 921 EXECUTE=64 ;CONSOLE EXECUTE MODE ; 922 -IO BUSY=65 ;.NOT. I/O LATCH ; 923 -CONTINUE=66 ;.NOT. CONTINUE ; 924 -1 MS=67 ;.NOT. 1 MS. TIMER ; 925 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 23 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- TIME CONTROL ; 926 .TOC "MICROCODE FIELDS -- TIME CONTROL" ; 927 ; 928 DT/=<109:111>D,0 ;**NOT STORED IN CRAM** ; 929 ;DEFAULT TIME FIELD (USED IN MACROS) ; 930 ; CAN BE OVERRIDDEN IN MACRO CALL ; 931 2T=0 ; 932 3T=1 ; 933 4T=2 ; 934 5T=3 ; 935 ; 936 ; 937 T/=<69:71>F,DT ;CSL5 (E601) ; 938 ;CLOCK TICKS MINUS TWO REQUIRED TO ; 939 ; DO A MICRO INSTRUCTION ; 940 2T=0 ;TWO TICKS ; 941 3T=1 ;THREE TICKS ; 942 4T=2 ;FOUR TICKS ; 943 5T=3 ;FIVE TICKS ; 944 ; 945 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 24 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- RANDOM CONTROL BITS ; 946 .TOC "MICROCODE FIELDS -- RANDOM CONTROL BITS" ; 947 ; 948 CRY38/=<72> ;DPE5 ; 949 ;INJECT A CARRY INTO THE 2901 ADDER ; 950 LOADSC/=<73> ;DPM4 ; 951 ;LOAD THE STEP COUNTER FROM THE SCAD ; 952 LOADFE/=<74> ;DPM4 ; 953 ;LOAD THE FE REGISTER FROM THE SCAD ; 954 FMWRITE/=<75> ;DPE5 (E302) ; 955 ;WRITE THE RAM FILE. ; 956 MEM/=<76> ;DPM5 (E612) & DPE5 (E205) ; 957 ;START (OR COMPLETE) A MEMORY OR I/O CYCLE UNDER ; 958 ; CONTROL OF THE NUMBER FIELD. ; 959 DIVIDE/=<77> ;DPE5 ; 960 ;THIS MICROINSTRUCTION IS DOING A DIVIDE ; 961 MULTI PREC/=<78> ;DPE5 ; 962 ;MULTIPRECISION STEP IN DIVIDE, DFAD, DFSB ; 963 MULTI SHIFT/=<79> ;CSL5 (HAS NOTHING TO DO WITH DPE5 MULTI SHIFT) ; 964 ;FAST SHIFT ; 965 CALL/=<80> ;CRA2 (STACK IS ON CRA3) ; 966 ;THIS IS A CALL ; 967 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 25 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 968 .TOC "MICROCODE FIELDS -- NUMBER FIELD" ; 969 ; 970 ;HERE IS THE GENERAL FIELD ; 971 #/=<90:107> ;MANY PLACES ; 972 ; 973 ;# REDEFINED WHEN USED AS SCAD CONTROL: ; 974 SCAD/=<90:92> ;DPM3 ; 975 A*2=0 ; 976 A.OR.B=1 ; 977 A-B-1=2 ; 978 A-B=3 ; 979 A+B=4 ; 980 A.AND.B=5 ; 981 A-1=6 ; 982 A=7 ; 983 SCADA/=<93:95> ;DPM3 ; 984 SC=0 ; 985 S#=1 ; 986 PTR44=2 ;44 AND BIT 6 (SEE DPM3) ; 987 BYTE1=3 ; 988 BYTE2=4 ; 989 BYTE3=5 ; 990 BYTE4=6 ; 991 BYTE5=7 ; 992 SCADB/=<96:97> ;DPM3 ; 993 FE=0 ; 994 EXP=1 ; 995 SHIFT=2 ; 996 SIZE=3 ; 997 S#/=<98:107> ;DPM3 ; 998 ; 999 ;# REDEFINED WHEN USED AS STATE REGISTER CONTROL: ; 1000 STATE/=<90:107> ;NOT USED BY HARDWARE ; 1001 SIMPLE=0 ;SIMPLE INSTRUCTIONS ; 1002 BLT=1 ;BLT IN PROGRESS ; 1003 MAP=400002 ;MAP IN PROGRESS ; 1004 SRC=3 ;MOVE STRING SOURCE IN PROGRESS ; 1005 DST=4 ;MOVE STRING FILL IN PROGRESS ; 1006 SRC+DST=5 ;MOVE STRING DEST IN PROGRESS ; 1007 DSTF=6 ;FILLING DEST ; 1008 CVTDB=7 ;CONVERT DEC TO BIN ; 1009 COMP-DST=10 ;COMPARE DEST ; 1010 EDIT-SRC=11 ;EDIT SOURCE ; 1011 EDIT-DST=12 ;EDIT DEST ; 1012 EDIT-S+D=13 ;BOTH SRC AND DST POINTERS ; 1013 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 26 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1014 ;# REDEFINED WHEN USED AS WORSPACE ADDRESS ; 1015 ; 1016 WORK/=<98:107> ;DPE6 ; 1017 BADW0=160 ;AC BLK 7 WORD 0 (BAD DATA FROM MEMORY) ; 1018 BADW1=161 ;AC BLK 7 WORD 1 (BAD DATA FROM MEMORY) ; 1019 MUL=200 ;TEMP FOR MULTIPLY ; 1020 DIV=201 ;TEMP FOR DIVIDE ; 1021 SV.VMA=210 ;SAVE VMA ; 1022 SV.AR=211 ;SAVE AR ; 1023 SV.ARX=212 ;SAVE ARX ; 1024 SV.BR=213 ;SAVE BR ; 1025 SV.BRX=214 ;SAVE BRX ; 1026 SBR=215 ;SPT BASE REGISTER ; 1027 CBR=216 ;CST BASE ADDRESS ; 1028 CSTM=217 ;CST MASK ; 1029 PUR=220 ;PROCESS USE REGISTER ; 1030 ADJP=221 ;"P" FOR ADJBP ; 1031 ADJS=222 ;"S" FOR ADJBP ; 1032 ADJPTR=223 ;BYTE POINTER FOR ADJBP ; 1033 ADJQ1=224 ;TEMP FOR ADJBP ; 1034 ADJR2=225 ;TEMP FOR ADJBP ; 1035 ADJBPW=226 ;(BYTES/WORD) FOR ADJBP ; 1036 HSBADR=227 ;ADDRESS OF HALT STATUS BLOCK ; 1037 APR=230 ;APR ENABLES ; 1038 ;THE FOLLOWING WORDS ARE USED BY EXTEND INSTRUCTION ; 1039 E0=240 ;ORIGINAL EFFECTIVE ADDRESS ; 1040 E1=241 ;EFFECTIVE ADDRESS OF WORD AT E0 ; 1041 SLEN=242 ;SOURCE LENGTH ; 1042 MSK=243 ;BYTE MASK ; 1043 FILL=244 ;FILL BYTE ; 1044 CMS=245 ;SRC BYTE IN STRING COMPARE ; 1045 FSIG=246 ;PLACE TO SAVE ARX WHILE STORING ; 1046 ; THE FLOAT CHAR ; 1047 BDH=247 ;BINARY BEING CONVERTED TO ; 1048 BDL=250 ; DECIMAL ; 1049 ; 1050 ;TIMER STUFF ; 1051 TIME0=300 ;HIGH ORDER 36 BITS OF TIME ; 1052 TIME1=301 ;LOW ORDER 36 BITS OF TIME ; 1053 PERIOD=302 ;INTERRUPT PERIOD ; 1054 TTG=303 ;TIME TO GO TO NEXT INTERRUPT ; 1055 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 27 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1056 ;DDIV STUFF ; 1057 AC0=314 ; 1058 AC1=315 ; 1059 AC2=316 ; 1060 AC3=317 ; 1061 DDIV SGN=320 ; 1062 DVSOR H=321 ; 1063 DVSOR L=322 ; 1064 ;POWERS OF TEN ; 1065 DECLO=344 ;LOW WORD ; 1066 DECHI=373 ;HIGH WORD ; 1067 ; 1068 YSAVE=422 ;Y OF LAST INDIRECT POINTER ; 1069 PTA.E=423 ;ADDRESS OF EXEC PAGE MAP (NOT PROCESS TABLE) ; 1070 PTA.U=424 ;ADDRESS OF USER PAGE MAP ; 1071 TRAPPC=425 ;SAVED PC FROM TRAP CYCLE ; 1072 SV.AR1=426 ;ANOTHER PLACE TO SAVE AR ; 1073 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 28 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1074 ;# REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9) ; 1075 ; 1076 SETOV/=<90> ;DPE9 ; 1077 ;SET ARITHMETIC OVERFLOW ; 1078 SETFOV/=<91> ;SET FLOATING OVERFLOW ; 1079 SETNDV/=<92> ;SET NO DIVIDE ; 1080 ; 1081 ;--------------------------------------------------------------------- ; 1082 ; 1083 CLRFPD/=<93> ;CLEAR FIRST PART DONE ; 1084 SETFPD/=<94> ;SET FIRST PART DONE ; 1085 HOLD USER/=<95> ;WHEN THIS BIT IS SET IT: ; 1086 ; 1. PREVENTS SETTING USER IOT IN USER MODE ; 1087 ; 2. PREVENTS CLEARING USER IN USER MODE ; 1088 ; 1089 ;--------------------------------------------------------------------- ; 1090 ; 1091 ; <96> ;SPARE ; 1092 TRAP2/=<97> ;SET TRAP 2 ; 1093 TRAP1/=<98> ;SET TRAP 1 ; 1094 ; 1095 ;--------------------------------------------------------------------- ; 1096 ; 1097 LD PCU/=<99> ;LOAD PCU FROM USER ; 1098 ; <100> ;SPARE ; 1099 ; <101> ;SPARE ; 1100 ; 1101 ;--------------------------------------------------------------------- ; 1102 ; 1103 ; <102> ;SPARE ; 1104 ; <103> ;SPARE ; 1105 JFCLFLG/=<104> ;DO A JFCL INSTRUCTION ; 1106 ; 1107 ;--------------------------------------------------------------------- ; 1108 ; 1109 LD FLAGS/=<105> ;LOAD FLAGS FROM DP ; 1110 ; <106> ; 1111 ADFLGS/=<107> ;UPDATE CARRY FLAGS ; 1112 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 29 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1113 ;# REDEFINED WHEN USED AS MEMORY CYCLE CONTROL ; 1114 ; 1115 FORCE USER/=<90> ;FORCE USER MODE REFERENCE ; 1116 FORCE EXEC/=<91> ;FORCE EXEC MODE REFERENCE ; 1117 ; (DOES NOT WORK UNDER PXCT) ; 1118 FETCH/=<92> ;THIS IS AN INSTRUCTION FETCH ; 1119 ; 1120 ;--------------------------------------------------------------------- ; 1121 ; 1122 READ CYCLE/=<93> ;SELECT A READ CYCLE ; 1123 WRITE TEST/=<94> ;PAGE FAILE IF NOT WRITTEN ; 1124 WRITE CYCLE/=<95> ;SELECT A MEMORY WRITE CYCLE ; 1125 ; 1126 ;--------------------------------------------------------------------- ; 1127 ; 1128 ; <96> ;SPARE BIT ; 1129 DONT CACHE/=<97> ;DO NOT LOOK IN CACHE ; 1130 PHYSICAL/=<98> ;DO NOT INVOKE PAGING HARDWARE ; 1131 ; 1132 ;--------------------------------------------------------------------- ; 1133 ; 1134 PXCT/=<99:101> ;WHICH PXCT BITS TO LOOK AT ; 1135 CURRENT=0 ; 1136 E1=1 ; 1137 D1=3 ; 1138 BIS-SRC-EA=4 ; 1139 E2=5 ; 1140 BIS-DST-EA=6 ; 1141 D2=7 ; 1142 ; 1143 ;--------------------------------------------------------------------- ; 1144 ; 1145 AREAD/=<102> ;LET DROM SELECT SYSLE TYPE AND VMA LOAD ; 1146 DP FUNC/=<103> ;IGNORE # BITS 0-11 AND USE DP 0-13 INSTEAD ; 1147 ; DP9 MEANS "FORCE PREVIOUS" ; 1148 LDVMA/=<104> ;LOAD THE VMA ; 1149 ; 1150 ;--------------------------------------------------------------------- ; 1151 ; 1152 EXT ADR/=<105> ;PUT VMA BITS 14-17 ONTO BUS ; 1153 WAIT/=<106> ;START A MEMORY OR I/O CYCLE ; 1154 BWRITE/=<107> ;START A MEMORY CYCLE IF DROM ASKS FOR IT ; 1155 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 30 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1156 ;THESE BITS ARE USED ONLY TO SETUP DP FOR A DP FUNCTION ; 1157 ; 1158 ; <99> ;PREVIOUS ; 1159 IO CYCLE/=<100> ;THIS IS AN I/O CYCLE ; 1160 WRU CYCLE/=<101> ;WHO ARE YOU CYCLE ; 1161 ; 1162 ;--------------------------------------------------------------------- ; 1163 ; 1164 VECTOR CYCLE/=<102> ;READ INTERRUPT VECTOR ; 1165 IO BYTE/=<103> ;BYTE CYCLE ; 1166 ; <104> ; 1167 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 31 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1168 ;# REDEFINED WHEN USED AS PI RIGHT BITS ; 1169 PI.ZER/=<90:92> ;ZEROS ; 1170 PI.IP1/=<93> ;PI 1 IN PROG ; 1171 PI.IP2/=<94> ; 1172 PI.IP3/=<95> ; 1173 PI.IP4/=<96> ; 1174 PI.IP5/=<97> ; 1175 PI.IP6/=<98> ; 1176 PI.IP7/=<99> ; 1177 PI.ON/=<100> ;SYSTEM IS ON; ; 1178 PI.CO1/=<101> ;CHAN 1 IS ON ; 1179 PI.CO2/=<102> ; 1180 I.CO3/=<103> ; 1181 I.CO4/=<104> ; 1182 I.CO5/=<105> ; 1183 I.CO6/=<106> ; 1184 I.CO7/=<107> ; 1185 ; 1186 ;# REDEFINED WHEN USED AS WRPI DATA ; 1187 PI.MBZ/=<90:93> ;MUST BE ZERO ; 1188 PI.DIR/=<94> ;DROP INTERRUPT REQUESTS ; 1189 PI.CLR/=<95> ;CLEAR SYSTEM ; 1190 PI.REQ/=<96> ;REQUEST INTERRUPT ; 1191 PI.TCN/=<97> ;TURN CHANNEL ON ; 1192 PI.TCF/=<98> ;TURN CHANNEL OFF ; 1193 PI.TSF/=<99> ;TURN SYSTEM OFF ; 1194 PI.TSN/=<100> ;TURN SYSTEM ON ; 1195 PI.SC1/=<101> ;SELECT CHANNEL 1 ; 1196 PI.SC2/=<102> ; 1197 PI.SC3/=<103> ; 1198 PI.SC4/=<104> ; 1199 PI.SC5/=<105> ; 1200 PI.SC6/=<106> ; 1201 PI.SC7/=<107> ; 1202 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 32 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1203 ;# REDEFINED WHEN USED AS AC CONTROL ; 1204 ; 1205 ; 1206 ;THIS FIELD CONTROLS THE INPUT TO A 74LS181 ON DPE6. THE NUMBER ; 1207 ; FIELD HAS THIS FORMAT IN <98:107>: ; 1208 ; ; 1209 ; !-----!-----!-----!-----!-----!-----!-----!-----!-----!-----! ; 1210 ; !CARRY! S8 ! S4 ! S2 ! S1 ! MODE! B8 ! B4 ! B2 ! B1 ! ; 1211 ; ! IN ! FUNCTION ! ! DATA INPUTS ! ; 1212 ; !-----!-----------------------!-----!-----------------------! ; 1213 ; ; 1214 ; 1215 ACALU/=<98:103> ; 1216 B=25 ; 1217 AC+N=62 ; 1218 ACN/=<104:107> ; 1219 ;AC NAMES FOR STRING INSTRUCTIONS ; 1220 SRCLEN=0 ;SOURCE LENGTH ; 1221 SRCP=1 ;SOURCE POINTER ; 1222 DLEN=3 ;DEST LENGTH ; 1223 DSTP=4 ;DEST POINTER ; 1224 MARK=3 ;POINTER TO MARK ; 1225 BIN0=3 ;HIGH WORD OF BINARY ; 1226 BIN1=4 ;LOW WORD OF BINARY ; 1227 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 33 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1228 ;# FIELD REDEFINED WHEN USE AS APRID DATA ; 1229 MICROCODE OPTIONS/=<90:98> ; 1230 ;100 - NON-STANDARD MICROCODE ; 1231 ;200 - NO CST AT ALL ; 1232 ;400 - INHIBIT CST UPDATE IS AVAILABLE ; 1233 ;040 - UBABLT INSTRUCTIONS ARE PRESENT ; 1234 ;020 - KI PAGING IS PRESENT ; 1235 ;010 - KL PAGING IS PRESENT ; 1236 MICROCODE OPTION(INHCST)/=<90> ;;1237 .IF/INHCST ;;1238 OPT=1 ; 1239 .IFNOT/INHCST ; 1240 OPT=0 ; 1241 .ENDIF/INHCST ; 1242 MICROCODE OPTION(NOCST)/=<91> ;;1243 .IF/NOCST ;;1244 OPT=1 ; 1245 .IFNOT/NOCST ; 1246 OPT=0 ; 1247 .ENDIF/NOCST ; 1248 MICROCODE OPTION(NONSTD)/=<92> ;;1249 .IF/NONSTD ;;1250 OPT=1 ; 1251 .IFNOT/NONSTD ; 1252 OPT=0 ; 1253 .ENDIF/NONSTD ; 1254 MICROCODE OPTION(UBABLT)/=<93> ;;1255 .IF/UBABLT ;;1256 OPT=1 ; 1257 .IFNOT/UBABLT ; 1258 OPT=0 ; 1259 .ENDIF/UBABLT ; 1260 MICROCODE OPTION(KIPAGE)/=<94> ; 1261 .IF/KIPAGE ; 1262 OPT=1 ;;1263 .IFNOT/KIPAGE ;;1264 OPT=0 ; 1265 .ENDIF/KIPAGE ; 1266 MICROCODE OPTION(KLPAGE)/=<95> ; 1267 .IF/KLPAGE ; 1268 OPT=1 ;;1269 .IFNOT/KLPAGE ;;1270 OPT=0 ; 1271 .ENDIF/KLPAGE ; 1272 ; 1273 MICROCODE VERSION/=<99:107> ; 1274 UCV=130 ; 1275 ; 1276 MICROCODE RELEASE(MAJOR)/=<99:104> ; 1277 UCR=2 ;MAJOR VERSION NUMBER (1,2,3,....) ; 1278 ; 1279 MICROCODE RELEASE(MINOR)/=<105:107> ; 1280 UCR=0 ;MINOR VERSION NUMBER (.1,.2,.3,...) ; 1281 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 34 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MICROCODE FIELDS -- NUMBER FIELD ; 1282 ;# FIELD REDEFINED WHEN USED AS A HALT CODE ; 1283 ; 1284 HALT/=<90:107> ; 1285 ;CODES 0 TO 77 ARE "NORMAL" HALTS ; 1286 POWER=0 ;POWER UP ; 1287 HALT=1 ;HALT INSTRUCTION ; 1288 CSL=2 ;CONSOLE HALT ; 1289 ;CODES 100 TO 777 ARE SOFTWARE ERRORS ; 1290 IOPF=100 ;I/O PAGE FAIL ; 1291 ILLII=101 ;ILLEGAL INTERRUPT INSTRUCTION ; 1292 ILLINT=102 ;BAD POINTER TO UNIBUS INTERRUPT VECTOR ; 1293 ;CODES 1000 TO 1777 ARE HARDWARE ERRORS ; 1294 BW14=1000 ;ILLEGAL BWRITE FUNCTION (BAD DROM) ; 1295 NICOND 5=1004 ;ILLEGAL NICOND DISPATCH ; 1296 MULERR=1005 ;VALUE COMPUTED FOR 10**21 WAS WRONG ;;1297 .IFNOT/FULL ;;1298 PAGEF=1777 ;PAGE FAIL IN SMALL MICROCODE ; 1299 .ENDIF/FULL ; 1300 ; 1301 ; 1302 ; 1303 ;# FIELD REDEFINED WHEN USED AS FLG BITS ; 1304 ; 1305 FLG.W/=<94> ;W BIT FROM PAGE MAP ; 1306 FLG.PI/=<95> ;PI CYCLE ; 1307 FLG.C/=<96> ;CACHE BIT FROM PAGE MAP ; 1308 FLG.SN/=<97> ;SPECIAL NEGATE IN FDV & DFDV ; 1309 ; 1310 ;RIGHT HALF OF FLG USED TO RECOVER FROM PAGE FAILS ; 1311 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 35 ; KS10.MIC[7,3] 14:54 7-JAN-1986 DISPATCH ROM DEFINITIONS ; 1312 .TOC "DISPATCH ROM DEFINITIONS" ; 1313 ; 1314 ;ALL ON DPEA ; 1315 ; 1316 .DCODE ; 1317 A/=<2:5> ;OPERAND FETCH MODE ; 1318 READ=0 ;READ ; 1319 WRITE=1 ;WRITE ; 1320 DREAD=2 ;DOUBLE READ ; 1321 DBLAC=3 ;DOUBLE AC ; 1322 SHIFT=4 ;SIMPLE SHIFT ; 1323 DSHIFT=5 ;DOUBLE SHIFT ; 1324 FPI=6 ;FLOATING POINT IMMEDIATE ; 1325 FP=7 ;FLOATING POINT ; 1326 RD-PF=10 ;READ, THEN START PREFETCH ; 1327 DFP=11 ;DOUBLE FLOATING POINT ; 1328 IOT=12 ;CHECK FOR IO LEGAL THEN SAME AS I ; 1329 ; 1330 B/=<8:11> ;STORE RESULTS AS ; 1331 SELF=4 ;SELF ; 1332 DBLAC=5 ;DOUBLE AC ; 1333 DBLB=6 ;DOUBLE BOTH ; 1334 AC=15 ;AC ; 1335 MEM=16 ;MEMORY ; 1336 BOTH=17 ;BOTH ; 1337 ; 1338 ;B-FIELD WHEN USED IN FLOATING POINT OPERATIONS ; 1339 ROUND/=<8> ;ROUND THE RESULT ; 1340 MODE/=<9> ;SEPARATE ADD/SUB & MUL/DIV ETC. ; 1341 FL-B/=<10:11> ;STORE RESULTS AS ; 1342 AC=1 ;AC ; 1343 MEM=2 ;MEMORY ; 1344 BOTH=3 ;BOTH ; 1345 ; 1346 J/=<12:23> ;DISPATCH ADDRESS (MUST BE 1400 TO 1777) ; 1347 ; 1348 ACDISP/=<24> ;DISPATCH ON AC FIELD ; 1349 I/=<25> ;IMMEDIATE DISPATCH. DISP/AREAD DOES A DISP/DROM ; 1350 ; IF THIS BIT IS SET. ; 1351 READ/=<26> ;START A READ AT AREAD ; 1352 TEST/=<27> ;START A WRITE TEST AT AREAD ; 1353 COND FUNC/=<28> ;START A MEMORY CYCLE ON BWRITE ; 1354 VMA/=<29>D,1 ;LOAD THE VMA ON AREAD ; 1355 WRITE/=<30> ;START A WRITE ON AREAD ; 1356 .UCODE ; 1357 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 36 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ MACROS ; 1358 .TOC "HOW TO READ MACROS" ; 1359 ; ; 1360 ; 1.0 REGISTER TRANSFER MACROS ; 1361 ; ; 1362 ; MOST MACROS USED IN THE KS10 ARE USED TO OPERATE ON DATA IN (OR FROM/TO) 2901 ; 1363 ; REGISTERS. THE NAMES OF THE 2901 REGISTERS ARE MACRO PARAMETERS AND ARE ; 1364 ; ENCLOSED IN []. A TYPICAL MACRO IS: ; 1365 ; ; 1366 ; [AR]_[AR]+[BR] ; 1367 ; ; 1368 ; THE SYMBOL _ IS PRONOUNCED "GETS". THE ABOVE MACRO WOULD BE READ "THE AR GETS ; 1369 ; THE AR PLUS THE BR". ; 1370 ; ; 1371 ; IF A MACRO DOES NOT HAVE A _ IN IT, THERE IS NO RESULT STORED. THUS, [AR]-[BR] ; 1372 ; JUST COMPARES THE AR AND THE BR AND ALLOWS FOR SKIPS ON THE VARIOUS ALU BITS. ; 1373 ; ; 1374 ; ; 1375 ; ; 1376 ; 1.1 SPECIAL SYMBOLS ; 1377 ; ; 1378 ; THERE ARE A BUNCH OF SYMBOLS USED IN THE MACROS WHICH ARE NOT 2901 REGISTERS. ; 1379 ; THEY ARE DEFINED HERE: ; 1380 ; ; 1381 ; 1. AC -- THE AC SELECTED BY THE CURRENT INSTRUCTION. SEE DPEA ; 1382 ; ; 1383 ; 2. AC[] -- AC+N. AC[1] IS AC+1, AC[2] IS AC+2, ETC. ; 1384 ; ; 1385 ; 3. APR -- THE APR FLAGS FROM DPMA ; 1386 ; ; 1387 ; 4. EA -- THE EFFECTIVE ADDRESS. THAT IS, 0 IN THE LEFT HALF AND THE ; 1388 ; CONTENTS OF THE HR IN THE RIGHT HALF. ; 1389 ; ; 1390 ; 5. EXP -- THE F.P. EXPONENT FROM THE SCAD. [AR]_EXP WILL TAKE THE ; 1391 ; EXPONENT OUT OF THE FE AND PUT IT BACK INTO THE NUMBER IN THE AR. ; 1392 ; ; 1393 ; 6. FE -- THE FE REGISTER ; 1394 ; ; 1395 ; 7. FLAGS -- THE PC FLAGS (FROM DPE9) IN THE LEFT HALF. ; 1396 ; ; 1397 ; 8. Q -- THE Q REGISTER ; 1398 ; ; 1399 ; 9. RAM -- THE RAM FILE, RAM ADDRESS IS IN THE VMA. ; 1400 ; ; 1401 ; 10. P -- THE P FIELD OF THE BYTE POINTER. SAME IDEA AS EXP. ; 1402 ; ; 1403 ; 11. TIME -- THE 1MS. TIMER ; 1404 ; ; 1405 ; 12. VMA -- THE VMA. WHEN READ IT INCLUDES THE VMA FLAGS ; 1406 ; ; 1407 ; 13. XR -- INDEX REGISTER ; 1408 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 37 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ MACROS ; 1409 ; 14. XWD -- HALF WORD. USED TO GENERATE CONSTANTS. FOR EXAMPLE, [AR]_0 XWD ; 1410 ; [40] WOULD LOAD THE CONSTANT 40 (OCTAL) INTO THE AR. ; 1411 ; ; 1412 ; 15. +SIGN AND -SIGN -- SIGN BITS USED TO SIGN SMEAR F.P. NUMBERS. FOR ; 1413 ; EXAMPLE, [AR]_+SIGN WOULD CLEAR AR BITS 0 TO 8. ; 1414 ; ; 1415 ; 16. WORK[] -- LOCATIONS IN THE WORKSPACE USED AS SCRATCH SPACE. FOR ; 1416 ; EXAMPLE, [AR]_WORK[CSTM] WOULD LOAD THE AR WITH THE CST MASK FROM THE ; 1417 ; RAM. CSTM IS A SYMBOL DEFINED IN THE WORK FIELD. ; 1418 ; ; 1419 ; ; 1420 ; ; 1421 ; ; 1422 ; 1.2 LONG ; 1423 ; ; 1424 ; LONG IS USED ON SHIFT OPERATIONS TO INDICATE THAT THE Q REGISTER IS ALSO ; 1425 ; SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP. ; 1426 ; ; 1427 ; ; 1428 ; ; 1429 ; 2.0 MEMORY MACROS ; 1430 ; ; 1431 ; MEMORY IS INDICATED BY THE SYMBOL "MEM". WHEN WE ARE WAITING FOR DATA FROM ; 1432 ; MEMORY THE "MEM READ" MACRO IS USED. WHEN WE ARE SENDING DATA TO MEMORY, THE ; 1433 ; "MEM WRITE" MACRO IS USED. EXAMPLE, ; 1434 ; MEM READ, ;WAIT FOR MEMORY ; 1435 ; [AR]_MEM ;LOAD DATA INTO AR ; 1436 ; VMA_ IS USED THE LOAD THE VMA. THUS, VMA_[PC] LOADS THE VMA FROM THE PC. ; 1437 ; ; 1438 ; ; 1439 ; ; 1440 ; 3.0 TIME CONTROL ; 1441 ; ; 1442 ; THERE ARE 2 SETS OF MACROS USED FOR TIME CONTROL. THE FIRST, SELECTS THE RAM ; 1443 ; ADDRESS TO SPEED UP THE NEXT INSTRUCTION. THESE MACROS ARE AC, AC[], XR, VMA, ; 1444 ; WORK[]. THE SECOND, SETS THE TIME FIELD. THESE ARE 2T, 3T, 4T, AND 5T TO ; 1445 ; SELECT 2, 3, 4, OR 5 TICKS. ; 1446 ; ; 1447 ; ; 1448 ; ; 1449 ; 4.0 SCAD MACROS ; 1450 ; ; 1451 ; THE SCAD MACROS LOOK LIKE THE 2901 MACROS EXECPT NO [] ARE REQUIRED. THERE ARE ; 1452 ; ONLY A FEW SYMBOLS USED. ; 1453 ; ; 1454 ; 1. FE -- THE FE REGISTER ; 1455 ; ; 1456 ; 2. SC -- THE SC REGISTER ; 1457 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 38 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ MACROS ; 1458 ; 3. EXP -- THE EXPONENT FROM A F.P. NUMBER. FOR EXAMPLE FE_EXP LOADS THE ; 1459 ; FE FROM DP BITS 1-8. ; 1460 ; ; 1461 ; 4. SHIFT -- THE SHIFT COUNT FROM SHIFT INSTRUCTIONS. THAT IS DP BITS 18 ; 1462 ; AND 28-35. ; 1463 ; ; 1464 ; 5. S# -- THE SMALL NUMBER. THE 10 BIT MAGIC NUMBER INPUT TO THE SCADA ; 1465 ; MIXER. ; 1466 ; ; 1467 ; ; 1468 ; ; 1469 ; ; 1470 ; 5.0 CONTROL MACROS ; 1471 ; ; 1472 ; ALL CONTROL MACROS LOOK LIKE ENGLISH COMMANDS. SOME EXAMPLES, ; 1473 ; HOLD LEFT ;DO NOT CLOCK LEFT HALF OF DP ; 1474 ; SET APR ENABLES ;LOAD APR ENABLES FROM DP ; 1475 ; SET NO DIVIDE ;SET NO DIVIDE PC FLAG ; 1476 ; ; 1477 ; ; 1478 ; ; 1479 ; 6.0 SKIPS ; 1480 ; ; 1481 ; ALL SKIPS CAUSE THE NEXT MICRO INSTRUCTION TO COME FROM THE ODD WORD OF AN ; 1482 ; EVEN/ODD PAIR. THE MACROS HAVE THE FORMAT OF SKIP COND. THEY SKIP IF CONDITION ; 1483 ; IS TRUE. SOME EXAMPLES, ; 1484 ; SKIP AD.EQ.0 ;SKIP IF ADDER OUTPUT IS ZERO ; 1485 ; SKIP IRPT ;SKIP IF INTERRUPT IS PENDING ; 1486 ; ; 1487 ; ; 1488 ; ; 1489 ; 7.0 DISPATCH MACROS ; 1490 ; ; 1491 ; DISPATCH MACROS CAUSE THE MACHINE TO GO TO ONE OF MANY PLACES. IN MOST CASES ; 1492 ; THEY HAVE THE WORD "DISP" IN THE NAME OF THE MACRO. FOR EXAMPLE, MUL DISP, BYTE ; 1493 ; DISP. ; 1494 ; ; 1495 ; ; 1496 ; ; 1497 ; 8.0 SUPER MACROS ; 1498 ; ; 1499 ; THERE ARE PLACES WHERE ONE MICRO INSTRUCTION IS USED IN MANY PLACES. FOR ; 1500 ; EXAMPLE, MANY PLACES DETECT ILLEGAL OPERATIONS AND WANT TO GENERATE A TRAP TO ; 1501 ; THE MONITOR. WE COULD WRITE ; 1502 ; J/UUO ; 1503 ; BUT THIS WASTES A MICRO STEP DOING A USELESS JUMP. INSTEAD WE WRITE, ; 1504 ; UUO ; 1505 ; THIS MACRO IS THE FIRST STEP OF THE UUO ROUTINE AND JUMPS TO THE SECOND ; 1506 ; INSTRUCTION. WE WRITE THE EXPANSION OF THE UUO MACRO AS THE FIRST INSTRUCTION ; 1507 ; OF THE UUO ROUTINE SO THAT THE READER CAN SEE WHAT IT DOES. SOME EXAMPLES OF ; 1508 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 39 ; KS10.MIC[7,3] 14:54 7-JAN-1986 HOW TO READ MACROS ; 1509 ; SUPER MACROS ARE: ; 1510 ; PAGE FAIL TRAP ;GENERATE A PAGE FAIL TRAP ; 1511 ; DONE ;THIS INSTRUCTION IS NOW COMPLETE ; 1512 ; ; USED WITH A SKIP OR DISP WHERE ; 1513 ; ; SOME PATHS ARE NOP'S ; 1514 ; HALT [] ;JUMP TO HALT LOOP. ARGUMENT IS A ; 1515 ; ; CODE ; 1516 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 40 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- DATA PATH CHIP -- GENERAL ; 1517 .TOC "MACROS -- DATA PATH CHIP -- GENERAL" ; 1518 ; 1519 .NOT.[] "AD/.NOT.A,A/@1" ; 1520 []+[] "AD/A+B,A/@1,B/@2" ; 1521 []-[] "AD/A-B-.25,A/@1,B/@2,ADD .25" ; 1522 []-# "AD/A-D-.25,DBUS/DBM,DBM/#,A/@1,ADD .25" ; 1523 [].AND.# "AD/D.AND.A,DBUS/DBM,DBM/#,A/@1" ; 1524 [].AND.Q "AD/A.AND.Q,A/@1,DEST/PASS" ; 1525 [].AND.[] "AD/A.AND.B,A/@2,B/@1,DEST/PASS" ; 1526 [].AND.NOT.[] "AD/.NOT.A.AND.B,A/@2,B/@1,DEST/PASS" ; 1527 [].OR.[] "AD/A.OR.B,A/@2,B/@1,DEST/PASS" ; 1528 [].XOR.# "AD/D.XOR.A,DBUS/DBM,DBM/#,A/@1" ; 1529 [].XOR.[] "AD/A.XOR.B,A/@2,B/@1,DEST/PASS" ; 1530 []_#-[] "AD/D-A-.25,DEST/AD,A/@2,B/@1,DBUS/DBM,DBM/#,ADD .25" ; 1531 []_# "AD/D,DBUS/DBM,DBM/#,DEST/AD,B/@1" ; 1532 []_-1 "AD/-A-.25,A/ONE,DEST/AD,B/@1,ADD .25" ; 1533 []_-2 "AD/-A-.25,DEST/AD*2,A/ONE,B/@1,ADD .25" ; 1534 []_-Q "AD/-Q-.25,DEST/AD,B/@1,ADD .25" ; 1535 []_-Q*2 "AD/-Q-.25,DEST/AD*2,B/@1,ADD .25" ; 1536 []_-Q*.5 "AD/-Q-.25,DEST/AD*.5,B/@1,ADD .25" ; 1537 []_-[] "AD/-A-.25,A/@2,DEST/AD,B/@1,ADD .25" ; 1538 []_-[]-.25 "AD/-A-.25,A/@2,DEST/AD,B/@1" ; 1539 []_-[]*2 "AD/-A-.25,A/@2,DEST/AD*2,B/@1,ADD .25" ; 1540 []_.NOT.AC "AD/.NOT.D,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1" ; 1541 []_.NOT.AC[] "AD/.NOT.D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,DT/3T" ; 1542 []_.NOT.Q "AD/.NOT.Q,DEST/AD,B/@1" ; 1543 []_.NOT.[] "AD/.NOT.A,A/@2,DEST/AD,B/@1" ; 1544 []_0 "AD/ZERO,DEST/AD,B/@1" ; 1545 []_0*.5 LONG "AD/ZERO,DEST/Q_Q*.5,B/@1" ; 1546 []_0 XWD [] "AD/47,DEST/AD,B/@1,DBM/#,DBUS/DBM,#/@2,RSRC/DA,A/MASK" ; 1547 []_AC "AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,AD PARITY" ; 1548 []_-AC "AD/-D-.25,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,ADD .25" ; 1549 []_-AC[] "AD/-D-.25,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,ADD .25,DT/3T" ; 1550 []_AC*.5 "AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD*.5,B/@1,DT/3T" ; 1551 []_AC*.5 LONG "AD/D,DBUS/RAM,RAMADR/AC#,DEST/Q_Q*.5,B/@1,DT/3T" ; 1552 []_AC*2 "AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD*2,B/@1,DT/3T" ; 1553 []_AC+1 "AD/D+A,DBUS/RAM,RAMADR/AC#,A/ONE,DEST/AD,B/@1" ; 1554 []_AC+1000001 "AD/D+A,DBUS/RAM,RAMADR/AC#,A/XWD1,DEST/AD,B/@1" ; 1555 []_AC+[] "AD/D+A,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,DT/3T" ; 1556 []_AC-1 "AD/D-A-.25,DBUS/RAM,RAMADR/AC#,A/ONE,DEST/AD,B/@1,ADD .25" ; 1557 []_AC-[] "AD/D-A-.25,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,ADD .25" ; 1558 []_AC-[]-.25 "AD/D-A-.25,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1" ; 1559 []_AC[]-[] "AD/D-A-.25,A/@3,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,ADD .25,DT/3T" ; 1560 []_AC[]-1 "AD/D-A-.25,A/ONE,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,ADD .25,DT/3T" ; 1561 []_AC[].AND.[] "AD/D.AND.A,A/@3,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,DT/3T" ; 1562 []_AC.AND.MASK "AD/D.AND.A,A/MASK,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,AD PARITY" ; 1563 []_AC[] "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD,B/@1,AD PARITY,DT/3T" ; 1564 []_AC[]*2 "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD*2,B/@1,AD PARITY,DT/3T" ; 1565 []_AC[]*.5 "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@2,DEST/AD*.5,B/@1,AD PARITY,DT/3T" ; 1566 []_APR "AD/D,DBUS/DBM,DBM/APR FLAGS,DEST/AD,B/@1,DT/3T" ; 1567 []_CURRENT AC [] "AD/D,DBUS/RAM,RAMADR/#,ACALU/B,ACN/@2,DEST/AD,B/@1,AD PARITY,DT/3T" ; 1568 []_EA FROM [] "AD/57,RSRC/0A,A/@2,DEST/AD,B/@1" ; 1569 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 41 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- DATA PATH CHIP -- GENERAL ; 1570 []_EA "AD/57,RSRC/0A,A/HR,DEST/AD,B/@1" ; 1571 []_EXP "AD/D,DBUS/DBM,DBM/EXP,A/@1,B/@1,DEST/A,SCAD/A+B,SCADA/S#,S#/0,SCADB/FE,HOLD RIGHT,EXP TEST" ; 1572 []_FE "AD/D,DEST/AD*.5,B/@1,DBUS/DBM,DBM/DP,SCAD/A+B,SCADA/S#,S#/0,SCADB/FE,BYTE/BYTE5" ; 1573 []_FLAGS "AD/D.AND.A,DBUS/PC FLAGS,A/MASK,DEST/AD,B/@1,RSRC/0Q" ; 1574 []_P "AD/D,DEST/A,A/@1,B/@1,DBUS/DBM,DBM/DP,BYTE/BYTE1,SCAD/A+B,SCADA/S#,S#/0,SCADB/FE" ; 1575 []_PC WITH FLAGS "AD/D,DBUS/PC FLAGS,RSRC/0A,A/PC,DEST/AD,B/@1" ; 1576 []_Q "AD/Q,DEST/AD,B/@1" ; 1577 []_Q*.5 "AD/Q,DEST/AD*.5,B/@1" ; 1578 []_Q*2 "AD/Q,DEST/AD*2,B/@1" ; 1579 []_Q*2 LONG "AD/Q,DEST/Q_Q*2,B/@1" ; 1580 []_Q+1 "AD/A+Q,A/ONE,DEST/AD,B/@1" ; 1581 []_RAM "AD/D,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@1,AD PARITY" ; 1582 []_TIME "AD/44,RSRC/DA,A/MASK,DBUS/DBM,DBM/EXP,DEST/AD,B/@1" ; 1583 []_VMA "AD/D,DEST/AD,B/@1,DBUS/DBM,DBM/VMA" ; 1584 []_XR "AD/D,DBUS/RAM,RAMADR/XR#,DEST/AD,B/@1" ; 1585 []_[] "AD/A,A/@2,DEST/AD,B/@1" ; 1586 []_[] SWAP "AD/D,DBUS/DBM,DBM/DP SWAP,DEST/A,A/@2,B/@1" ; 1587 []_[] XWD 0 "AD/45,DEST/AD,B/@1,DBM/#,DBUS/DBM,#/@2,RSRC/D0,A/MASK" ; 1588 []_[]*.5 "AD/A,A/@2,DEST/AD*.5,B/@1" ; 1589 []_[]*.5 LONG "AD/A,A/@2,DEST/Q_Q*.5,B/@1" ; 1590 []_[]*2 "AD/A,A/@2,DEST/AD*2,B/@1" ; 1591 []_[]*2 LONG "AD/A,A/@2,DEST/Q_Q*2,B/@1" ; 1592 []_[]*4 "AD/A+B,A/@2,B/@1,DEST/AD*2" ; 1593 []_[]+# "AD/D+A,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1" ; 1594 []_[]+.25 "AD/0+A,A/@2,DEST/AD,B/@1, ADD .25" ; 1595 []_[]+0 "AD/0+A,A/@2,DEST/AD,B/@1" ; 1596 []_[]+1 "AD/A+B,A/ONE,B/@1,B/@2,DEST/AD" ; 1597 []_[]+1000001 "AD/D+A,A/@2,DBUS/DBM,DBM/#,#/1,DEST/AD,B/@1" ; 1598 []_[]+AC "AD/D+A,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1" ; 1599 []_[]+AC[] "AD/D+A,A/@2,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@3,DEST/AD,B/@1,DT/3T" ; 1600 []_[]+Q "AD/A+Q,A/@2,DEST/AD,B/@1" ; 1601 []_[]+RAM "AD/D+A,A/@2,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@1" ; 1602 []_[]+XR "AD/D+A,DBUS/RAM,RAMADR/XR#,A/@2,DEST/AD,B/@1,HOLD LEFT" ; 1603 []_[]+[] "AD/A+B,A/@3,B/@1,B/@2,DEST/AD" ; 1604 []_[]+[]+.25 "AD/A+B,A/@3,B/@1,B/@2,DEST/AD, ADD .25" ; 1605 []_[]-# "AD/A-D-.25,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1, ADD .25" ; 1606 []_[]-1 "AD/B-A-.25,B/@1,A/ONE,DEST/AD,ADD .25" ; 1607 []_[]-1000001 "AD/A-D-.25,A/@2,DBUS/DBM,DBM/#,#/1,DEST/AD,B/@1,ADD .25" ; 1608 []_[]-AC "AD/A-D-.25,A/@2,DBUS/RAM,RAMADR/AC#,DEST/AD,B/@1,ADD .25" ; 1609 []_[]-RAM "AD/A-D-.25,A/@2,DBUS/RAM,RAMADR/RAM,DEST/AD,B/@1,ADD .25" ; 1610 []_[]-[] "AD/B-A-.25,B/@1,B/@2,A/@3,DEST/AD,ADD .25" ; 1611 []_[]-[] REV "AD/A-B-.25,B/@1,B/@3,A/@2,DEST/AD,ADD .25" ; 1612 []_[].AND.# "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1" ; 1613 []_[].AND.# CLR LH "AD/ZERO,RSRC/DA,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1" ; 1614 []_[].AND.# CLR RH "AD/D.AND.A,RSRC/0Q,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1" ; 1615 []_(AC[].AND.[])*.5 "AD/D.AND.A,DEST/AD*.5,A/@3,B/@1,RAMADR/AC*#,DBUS/RAM,ACALU/AC+N,ACN/@2" ; 1616 []_(Q+1)*.5 "AD/A+Q,A/ONE,DEST/AD*.5,B/@1" ; 1617 []_(#-[])*2 "AD/D-A-.25,DEST/AD*2,A/@2,B/@1,DBUS/DBM,DBM/#,ADD .25" ; 1618 []_(-[])*.5 "AD/-A-.25,A/@2,DEST/AD*.5,B/@1,ADD .25" ; 1619 []_(-[]-.25)*.5 LONG "AD/-A-.25,A/@2,DEST/Q_Q*.5,B/@1" ; 1620 []_(-[]-.25)*2 LONG "AD/-A-.25,A/@2,DEST/Q_Q*2,B/@1" ; 1621 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 42 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- DATA PATH CHIP -- GENERAL ; 1622 []_([].AND.#)*.5 "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@2,B/@1" ; 1623 []_([].AND.#)*2 "AD/D.AND.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1" ; 1624 []_([].AND.NOT.#)*.5 "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@2,B/@1" ; 1625 []_([].AND.NOT.#)*2 "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1" ; 1626 []_([].AND.[])*.5 "AD/A.AND.B,DEST/AD*.5,A/@3,B/@1,B/@2" ; 1627 []_([].AND.[])*2 "AD/A.AND.B,DEST/AD*2,A/@3,B/@1,B/@2" ; 1628 []_([].OR.#)*.5 "AD/D.OR.A,DBUS/DBM,DBM/#,DEST/AD*.5,A/@2,B/@1" ; 1629 []_([].OR.#)*2 "AD/D.OR.A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1" ; 1630 []_([]+#)*2 "AD/D+A,DBUS/DBM,DBM/#,DEST/AD*2,A/@2,B/@1" ; 1631 []_([]+1)*2 "AD/A+B,A/ONE,B/@1,B/@2,DEST/AD*2" ; 1632 []_([]+[])*.5 LONG "AD/A+B,A/@3,B/@1,B/@2,DEST/Q_Q*.5" ; 1633 []_([]+[])*2 LONG "AD/A+B,A/@3,B/@1,B/@2,DEST/Q_Q*2" ; 1634 []_([]-[])*.5 LONG "AD/B-A-.25,A/@3,B/@1,B/@2,DEST/Q_Q*.5, ADD .25" ; 1635 []_([]-[])*2 LONG "AD/B-A-.25,A/@3,B/@1,B/@2,DEST/Q_Q*2, ADD .25" ; 1636 []_([]+[]+.25)*.5 LONG "AD/A+B,A/@3,B/@1,B/@2,DEST/Q_Q*.5, ADD .25" ; 1637 []_[].AND.AC "AD/D.AND.A,DBUS/RAM,RAMADR/AC#,A/@2,DEST/AD,B/@1" ; 1638 []_[].AND.NOT.# "AD/.NOT.D.AND.A,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1" ; 1639 []_[].AND.NOT.[] "AD/.NOT.A.AND.B,DEST/AD,B/@1,B/@2,A/@3" ; 1640 []_[].AND.NOT.AC "AD/.NOT.D.AND.A,DBUS/RAM,RAMADR/AC#,A/@2,DEST/AD,B/@1" ; 1641 []_[].AND.Q "AD/A.AND.Q,A/@2,DEST/AD,B/@1" ; 1642 []_[].AND.[] "AD/A.AND.B,A/@3,B/@1,B/@2,DEST/AD" ; 1643 []_[].EQV.AC "AD/D.EQV.A,DBUS/RAM,RAMADR/AC#,A/@2,DEST/AD,B/@1" ; 1644 []_[].EQV.Q "AD/A.EQV.Q,A/@2,DEST/AD,B/@1" ; 1645 []_[].OR.# "AD/D.OR.A,DBUS/DBM,DBM/#,A/@2,DEST/AD,B/@1" ; 1646 []_[].OR.AC "AD/D.OR.A,DBUS/RAM,RAMADR/AC#,A/@2,DEST/AD,B/@1" ; 1647 []_[].OR.FLAGS "AD/D.OR.A,DBUS/PC FLAGS,RSRC/0A,A/@1,DEST/AD,B/@1" ; 1648 []_[].OR.[] "AD/A.OR.B,A/@3,B/@2,B/@1,DEST/AD" ; 1649 []_[].XOR.# "AD/D.XOR.A,DBUS/DBM,DBM/#,DEST/AD,A/@2,B/@1" ; 1650 []_[].XOR.AC "AD/D.XOR.A,DBUS/RAM,RAMADR/AC#,A/@1,DEST/AD,B/@2" ; 1651 []_[].XOR.[] "AD/A.XOR.B,A/@3,B/@1,B/@2,DEST/AD" ; 1652 ; 1653 [] LEFT_0 "AD/57,RSRC/0B,DEST/AD,B/@1" ; 1654 [] RIGHT_0 "AD/53,RSRC/D0,DEST/AD,B/@1" ; 1655 [] LEFT_-1 "AD/54,RSRC/0B,DEST/AD,A/MASK,B/@1" ; 1656 [] RIGHT_-1 "AD/53,RSRC/0A,DEST/AD,A/MASK,B/@1" ; 1657 ; 1658 ; 1659 []_+SIGN "[@1]_[@1].AND.#, #/777, HOLD RIGHT" ; 1660 []_-SIGN "[@1]_[@1].OR.#, #/777000, HOLD RIGHT" ; 1661 ;THE FOLLOWING 2 MACROS ARE USED IN DOUBLE FLOATING STUFF ; 1662 ; THEY ASSUME THAT THE OPERAND HAS BEEN SHIFTED RIGHT 1 PLACE. ; 1663 ; THEY SHIFT 1 MORE PLACE ; 1664 []_+SIGN*.5 "AD/.NOT.D.AND.A,A/@1,B/@1,DEST/AD*.5,DBUS/DBM,DBM/#,#/777400,RSRC/0A" ; 1665 []_-SIGN*.5 "AD/D.OR.A,A/@1,B/@1,DEST/AD*.5,DBUS/DBM,DBM/#,#/777400,RSRC/0A" ; 1666 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 43 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- DATA PATH CHIP -- Q ; 1667 .TOC "MACROS -- DATA PATH CHIP -- Q" ; 1668 ; 1669 Q-[] "AD/Q-A-.25,A/@1,ADD .25" ; 1670 Q.AND.NOT.[] "AD/.NOT.A.AND.Q,A/@1,DEST/PASS" ; 1671 Q_[] "AD/A,DEST/Q_AD,A/@1" ; 1672 Q_[]-[] "AD/A-B-.25,A/@1,B/@2,DEST/Q_AD,ADD .25" ; 1673 Q_[]+[] "AD/A+B,A/@1,B/@2,DEST/Q_AD" ; 1674 Q_[].AND.[] "AD/A.AND.B,A/@1,B/@2,DEST/Q_AD" ; 1675 Q_.NOT.AC[] "AD/.NOT.D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q_AD,DT/3T" ; 1676 Q_-[] "AD/-A-.25,DEST/Q_AD,A/@1, ADD .25" ; 1677 Q_-1 "Q_-[ONE]" ; 1678 Q_-AC[] "AD/-D-.25,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q_AD,ADD .25,DT/3T" ; 1679 Q_-Q "AD/-Q-.25,ADD .25,DEST/Q_AD" ; 1680 Q_AC "AD/D,DBUS/RAM,RAMADR/AC#,DEST/Q_AD,CHK PARITY" ; 1681 Q_AC[] "AD/D,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q_AD,CHK PARITY,DT/3T" ; 1682 Q_AC[].AND.MASK "AD/D.AND.A,A/MASK,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q_AD,CHK PARITY,DT/3T" ; 1683 Q_AC[].AND.[] "AD/D.AND.A,A/@2,DBUS/RAM,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DEST/Q_AD,CHK PARITY,DT/3T" ; 1684 Q_.NOT.Q "AD/.NOT.Q,DEST/Q_AD" ; 1685 Q_# "AD/D,DBUS/DBM,DBM/#,DEST/Q_AD" ; 1686 Q_0 "AD/ZERO,DEST/Q_AD" ; 1687 Q_0 XWD [] "AD/47,DEST/Q_AD,DBM/#,DBUS/DBM,#/@1,RSRC/DA,A/MASK" ; 1688 Q_Q+.25 "AD/0+Q,DEST/Q_AD,ADD .25" ; 1689 Q_Q+1 "AD/A+Q,A/ONE,DEST/Q_AD" ; 1690 Q_Q-1 "AD/Q-A-.25,A/ONE,DEST/Q_AD, ADD .25" ; 1691 Q_Q+AC "AD/D+Q,DBUS/RAM,RAMADR/AC#,DEST/Q_AD" ; 1692 Q_Q*.5 "[MAG]_[MASK]*.5 LONG, SHSTYLE/NORM" ; 1693 Q_Q*2 "[MASK]_[MAG]*2 LONG, SHSTYLE/NORM" ; 1694 Q_Q.OR.# "AD/D.OR.Q,DBUS/DBM,DBM/#,DEST/Q_AD" ; 1695 Q_Q.AND.# "AD/D.AND.Q,DBUS/DBM,DBM/#,DEST/Q_AD" ; 1696 Q_Q.AND.[] "AD/A.AND.Q,A/@1,DEST/Q_AD" ; 1697 Q_Q.AND.NOT.[] "AD/.NOT.A.AND.Q,A/@1,DEST/Q_AD" ; 1698 Q_Q+[] "AD/A+Q,A/@1,DEST/Q_AD" ; 1699 Q_[].AND.Q "AD/A.AND.Q,A/@1,DEST/Q_AD" ; 1700 Q_[].OR.Q "AD/A.OR.Q,A/@1,DEST/Q_AD" ; 1701 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 44 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- DATA PATH CHIP -- MISC. ; 1702 .TOC "MACROS -- DATA PATH CHIP -- MISC." ; 1703 ; 1704 CLEAR []0 "AD/D.AND.A,A/@1,DBUS/DBM,DBM/#,#/377777,DEST/AD,B/@1,HOLD RIGHT" ; 1705 CLEAR ARX0 "CLEAR [ARX]0" ; 1706 ; 1707 ;CYCLE CHIP REGISTERS THRU AD SO WE CAN TEST BITS ; 1708 READ XR "AD/D,DBUS/RAM,RAMADR/XR#" ; 1709 READ [] "AD/B,B/@1" ; 1710 READ Q "AD/Q" ; 1711 ; 1712 ;TEST BITS IN REGISTERS (SKIP IF ZERO) ; 1713 TR [] "AD/D.AND.A,DBUS/DBM,DBM/#,A/@1,SKIP ADR.EQ.0,DT/3T" ; 1714 TL [] "AD/D.AND.A,DBUS/DBM,DBM/#,A/@1,SKIP ADL.EQ.0,DT/3T" ; 1715 ; 1716 ; 1717 ;CAUSE BITS -2 AND -1 TO MATCH BIT 0. ; 1718 FIX [] SIGN "AD/D,DEST/A,A/@1,B/@1,DBUS/DP,HOLD RIGHT" ; 1719 ; 1720 ;GENERATE A MASK IN Q AND ZERO A 2901 REGISTER ; 1721 GEN MSK [] "AD/ZERO,DEST/Q_Q*2,B/@1,ONES" ; 1722 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 45 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- STORE IN AC ; 1723 .TOC "MACROS -- STORE IN AC" ; 1724 ; 1725 FM WRITE "FMWRITE/1" ; 1726 ; 1727 AC[]_[] VIA AD "AD/B,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,CHK PARITY" ; 1728 AC_[] VIA AD "AD/B,DEST/PASS,B/@1,RAMADR/AC#,DBUS/DP,FM WRITE,CHK PARITY" ; 1729 AC[]_[] "AD/A,DEST/A,B/@2,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE" ; 1730 AC[]_[] TEST "AD/D,DBUS/DP,DEST/A,B/@2,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE" ; 1731 AC[]_[]+1 "AD/A+B,DEST/PASS,A/ONE,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1732 AC[]_[]*2 "AD/A+B,DEST/PASS,A/@2,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1733 AC_[] "AD/A,DEST/A,B/@1,A/@1,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1734 AC_[] TEST "AD/D,DBUS/DP,DEST/A,B/@1,A/@1,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1735 AC_[]+1 "AD/A+B,DEST/PASS,A/ONE,B/@1,RAMADR/AC#, FM WRITE" ; 1736 AC_[]+Q "AD/A+Q,DEST/PASS,A/@1,B/@1,RAMADR/AC#, FM WRITE" ; 1737 AC[]_[]+Q "AD/A+Q,DEST/PASS,A/@2,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1, FM WRITE" ; 1738 AC[]_[]-[] "AD/A-B-.25,DEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,ADD .25" ; 1739 AC[]_[]+[] "AD/A+B,DEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1740 AC_[]+[] "AD/A+B,DEST/PASS,B/@2,A/@1,RAMADR/AC#,DBUS/DP,FM WRITE" ; 1741 AC[]_[].AND.[] "AD/A.AND.B,DEST/PASS,B/@3,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1742 AC[]_Q.AND.[] "AD/A.AND.Q,DEST/PASS,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1743 AC[]_[].EQV.Q "AD/A.EQV.Q,DEST/PASS,A/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1744 AC[]_-[] "AD/-B-.25,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,ADD .25" ; 1745 AC_-[] "AD/-A-.25,DEST/PASS,A/@1,RAMADR/AC#,DBUS/DP, ADD .25,FM WRITE" ; 1746 AC_[].OR.[] "AD/A.OR.B,A/@1,B/@2,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1747 AC[]_.NOT.[] "AD/.NOT.B,DEST/PASS,B/@2,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1748 AC_.NOT.[] "AD/.NOT.B,DEST/PASS,B/@1,RAMADR/AC#,DBUS/DP,FM WRITE" ; 1749 AC[]_-Q "AD/-Q-.25,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE,ADD .25" ; 1750 AC_Q "AD/Q,RAMADR/AC#,DBUS/DP, FM WRITE" ; 1751 AC[]_0 "AD/ZERO,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE" ; 1752 AC[]_1 "AD/B,DEST/PASS,B/ONE,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP,FM WRITE" ; 1753 AC[]_Q "AD/Q,RAMADR/AC*#,ACALU/AC+N,ACN/@1,DBUS/DP, FM WRITE" ; 1754 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 46 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- MICROCODE WORK SPACE ; 1755 .TOC "MACROS -- MICROCODE WORK SPACE" ; 1756 ; 1757 ; 1758 WORK[]_Q "AD/Q,DEST/PASS,RAMADR/#,WORK/@1,FM WRITE" ; 1759 Q_WORK[] "AD/D,DEST/Q_AD,RAMADR/#,DBUS/RAM,WORK/@1,DT/3T" ; 1760 WORK[]_0 "AD/ZERO,DEST/PASS,RAMADR/#,WORK/@1,FM WRITE" ; 1761 WORK[]_1 "AD/B,DEST/PASS,RAMADR/#,WORK/@1,B/ONE,FM WRITE" ; 1762 WORK[]_[] "AD/B,DEST/PASS,RAMADR/#,WORK/@1,B/@2,FM WRITE" ; 1763 WORK[]_[] CLR LH "AD/47,RSRC/AB,DEST/PASS,RAMADR/#,WORK/@1,B/@2,A/MASK,FM WRITE" ; 1764 WORK[]_[]-1 "AD/A-B-.25,A/@2,B/ONE,DEST/PASS,RAMADR/#,WORK/@1,FM WRITE, ADD .25" ; 1765 WORK[]_.NOT.[] "AD/.NOT.B,DEST/PASS,RAMADR/#,WORK/@1,B/@2,FM WRITE" ; 1766 WORK[]_[].AND.[] "AD/A.AND.B,DEST/PASS,RAMADR/#,WORK/@1,A/@2,B/@3,FM WRITE" ; 1767 [].AND.NOT.WORK[] "AD/.NOT.D.AND.A,A/@1,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T" ; 1768 [].AND.WORK[] "AD/D.AND.A,A/@1,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T" ; 1769 []_[]+WORK[] "AD/D+A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@3,DT/3T" ; 1770 []_[].AND.WORK[] "AD/D.AND.A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@3,DT/3T" ; 1771 []_[].AND.NOT.WORK[] "AD/.NOT.D.AND.A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@3,DT/3T" ; 1772 []_[].OR.WORK[] "AD/D.OR.A,A/@2,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@3,DT/3T" ; 1773 []_WORK[] "AD/D,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T" ; 1774 []_.NOT.WORK[] "AD/.NOT.D,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T" ; 1775 []_-WORK[] "AD/-D-.25,ADD .25,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T" ; 1776 []_WORK[]+1 "AD/D+A,A/ONE,DEST/AD,B/@1,DBUS/RAM,RAMADR/#,WORK/@2,DT/3T" ; 1777 Q_Q-WORK[] "AD/Q-D-.25,DEST/Q_AD,DBUS/RAM,RAMADR/#,WORK/@1,ADD .25,DT/3T" ; 1778 []_[]-WORK[] "AD/A-D-.25,DEST/AD,A/@2,B/@1,DBUS/RAM,RAMADR/#,WORK/@3,ADD .25,DT/3T" ; 1779 ; 1780 RAM_[] "AD/B,DEST/PASS,RAMADR/RAM,B/@1,FM WRITE" ; 1781 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 47 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- MEMORY CONTROL ; 1782 .TOC "MACROS -- MEMORY CONTROL" ; 1783 ; 1784 MEM CYCLE "MEM/1" ; 1785 ; 1786 ;THE FOLLOWING MACROS CONTROL MEMORY ADDRESS ; 1787 LOAD VMA "MEM CYCLE,LDVMA/1" ; 1788 FORCE EXEC "FORCE EXEC/1" ; 1789 VMA PHYSICAL "PHYSICAL/1,FORCE EXEC/1,FORCE USER/0,EXT ADR/1,LOAD VMA" ; 1790 VMA PHYSICAL WRITE "LOAD VMA,VMA PHYSICAL,WAIT/1,MEM/1,WRITE CYCLE/1,WRITE TEST/0" ; 1791 VMA PHYSICAL READ "LOAD VMA,VMA PHYSICAL,WAIT/1,MEM/1,READ CYCLE/1,WRITE TEST/0" ; 1792 VMA EXTENDED "EXT ADR/1" ; 1793 ; 1794 PXCT EA "PXCT/E1" ; 1795 PXCT DATA "PXCT/D1" ; 1796 PXCT BLT DEST "PXCT/D1" ; 1797 PXCT BYTE PTR EA "PXCT/E2" ; 1798 PXCT BYTE DATA "PXCT/D2" ; 1799 PXCT STACK WORD "PXCT/D2" ; 1800 PXCT BLT SRC "PXCT/D2" ; 1801 PXCT EXTEND EA "PXCT/E2" ; 1802 ; 1803 ;THE FOLLOWING MACROS GET MEMORY CYCLES STARTED ; 1804 WRITE TEST "WRITE TEST/1,WAIT/1" ; 1805 START READ "MEM CYCLE,READ CYCLE/1,WAIT/1" ; 1806 START WRITE "MEM CYCLE,WRITE TEST,WRITE CYCLE/1,WAIT/1" ; 1807 START NO TEST WRITE "MEM CYCLE,WRITE CYCLE/1,WAIT/1" ; 1808 FETCH "START READ,FETCH/1,PXCT/CURRENT,WAIT/1" ; 1809 ; 1810 ;THE FOLLOWING MACROS COMPLETE MEMORY CYCLES ; 1811 MEM WAIT "MEM CYCLE,WAIT/1" ; 1812 MEM READ "MEM WAIT,DBUS/DBM,DBM/MEM" ; 1813 MEM WRITE "MEM WAIT,DT/3T" ; 1814 SPEC MEM READ "SPEC/WAIT,DBUS/DBM,DBM/MEM" ; 1815 SPEC MEM WRITE "SPEC/WAIT,DT/3T" ; 1816 ; 1817 ; 1818 ;THINGS WHICH WRITE MEMORY ; 1819 MEM_[] "AD/B,DEST/PASS,B/@1,DBUS/DP,RAMADR/VMA,CHK PARITY" ; 1820 MEM_Q "AD/Q,DBUS/DP,RAMADR/VMA" ; 1821 ; 1822 ; 1823 ;THINGS WHICH READ MEMORY ; 1824 []_IO DATA "AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@1" ; 1825 []_MEM "AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@1,CHK PARITY" ; 1826 []_MEM THEN FETCH "AD/D,DBUS/DBM,RAMADR/VMA,DEST/A,A/PC,B/@1,CHK PARITY, FETCH, LOAD VMA" ; 1827 []_MEM*.5 "AD/D,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/@1,CHK PARITY" ; 1828 []_MEM.AND.MASK "AD/D.AND.A,A/MASK,DBUS/DBM,RAMADR/VMA,DEST/AD,B/@1,CHK PARITY" ; 1829 []_(MEM.AND.[])*.5 "AD/D.AND.A,A/@2,DBUS/DBM,RAMADR/VMA,DEST/AD*.5,B/@1,CHK PARITY" ; 1830 Q_MEM "AD/D,DBUS/DBM,RAMADR/VMA,DEST/Q_AD,CHK PARITY" ; 1831 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 48 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- VMA ; 1832 .TOC "MACROS -- VMA" ; 1833 ; 1834 VMA_[] "AD/A,A/@1,DEST/PASS,LOAD VMA" ; 1835 VMA_[] WITH FLAGS "AD/A,A/@1,DEST/PASS,LOAD VMA,WAIT/1, MEM/1, EXT ADR/1, DP FUNC/1, DT/3T" ; 1836 VMA_[].OR.[] WITH FLAGS "AD/A.OR.B,A/@1,B/@2,DEST/PASS,LOAD VMA,WAIT/1, MEM/1, EXT ADR/1, DP FUNC/1, DT/3T" ; 1837 VMA_[]+1 "AD/A+B,A/ONE,B/@1,DEST/AD,HOLD LEFT,LOAD VMA" ; 1838 VMA_[]-1 "AD/B-A-.25,A/ONE,B/@1,ADD .25,HOLD LEFT,LOAD VMA" ; 1839 VMA_[]+XR "AD/D+A,DBUS/RAM,RAMADR/XR#,A/@1,LOAD VMA" ; 1840 VMA_[]+[] "AD/A+B,DEST/PASS,A/@1,B/@2,LOAD VMA" ; 1841 ; 1842 NEXT [] PHYSICAL WRITE "AD/A+B,A/ONE,B/@1,DEST/AD,HOLD LEFT,LOAD VMA, VMA PHYSICAL, START WRITE" ; 1843 ; 1844 ;MACROS TO LOAD A 2901 REGISTER WITH VMA FLAG BITS ; 1845 []_VMA FLAGS "AD/45,DEST/AD,B/@1,DBM/#,DBUS/DBM,RSRC/D0,A/MASK" ; 1846 []_VMA IO READ "[@1]_VMA FLAGS,READ CYCLE/1,IO CYCLE/1,WRITE TEST/0, PHYSICAL/1, FORCE EXEC/1, FORCE USER/0" ; 1847 []_VMA IO WRITE "[@1]_VMA FLAGS,WRITE CYCLE/1,IO CYCLE/1,WRITE TEST/0, PHYSICAL/1, FORCE EXEC/1, FORCE USER/0" ; 1848 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 49 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- TIME CONTROL ; 1849 .TOC "MACROS -- TIME CONTROL" ; 1850 ; 1851 AC "RAMADR/AC#" ; 1852 AC[] "RAMADR/AC*#,ACALU/AC+N,ACN/@1" ; 1853 XR "RAMADR/XR#" ; 1854 VMA "RAMADR/VMA" ; 1855 WORK[] "RAMADR/#, WORK/@1" ; 1856 ; 1857 2T "T/2T" ; 1858 3T "T/3T" ; 1859 4T "T/4T" ; 1860 5T "T/5T" ; 1861 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 50 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- SCAD, SC, FE LOGIC ; 1862 .TOC "MACROS -- SCAD, SC, FE LOGIC" ; 1863 ; 1864 LOAD SC "LOADSC/1" ; 1865 LOAD FE "LOADFE/1" ; 1866 STEP SC "SCAD/A-1,SCADA/SC,LOAD SC,SKIP/SC" ; 1867 SHIFT "SCAD/A+B,SCADA/S#,SCADB/FE,S#/1, LOAD FE, MULTI SHIFT/1" ; 1868 ; 1869 SC_SC-1 "SCAD/A-1,SCADA/SC,LOAD SC" ; 1870 SC_SHIFT "SCAD/A+B,SCADA/S#,S#/0,SCADB/SHIFT,LOAD SC" ; 1871 SC_SHIFT-1 "SCAD/A+B,SCADA/S#,S#/1777,SCADB/SHIFT,LOAD SC" ; 1872 SC_SHIFT-2 "SCAD/A+B,SCADA/S#,S#/1776,SCADB/SHIFT,LOAD SC" ; 1873 SC_-SHIFT "SCAD/A-B,SCADA/S#,S#/0000,SCADB/SHIFT,LOAD SC" ; 1874 SC_-SHIFT-1 "SCAD/A-B,SCADA/S#,SCADB/SHIFT,S#/1777,LOAD SC" ; 1875 SC_-SHIFT-2 "SCAD/A-B,SCADA/S#,SCADB/SHIFT,S#/1776,LOAD SC" ; 1876 SC_SC-EXP "SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD SC" ; 1877 SC_SC-EXP-1 "SCAD/A-B-1,SCADA/SC,SCADB/EXP,LOAD SC" ; 1878 SC_SC-FE-1 "SCAD/A-B-1,SCADA/SC,SCADB/FE,LOAD SC" ; 1879 SC_SC-FE "SCAD/A-B,SCADA/SC,SCADB/FE,LOAD SC" ; 1880 SC_EXP "SCAD/A+B,SCADA/S#,S#/0,SCADB/EXP,LOAD SC" ; 1881 SC_S#-FE "SCAD/A-B,SCADA/S#,SCADB/FE,LOAD SC" ; 1882 SC_FE+S# "SCAD/A+B,SCADA/S#,SCADB/FE,LOAD SC" ; 1883 SC_FE "SCAD/A.OR.B,SCADA/S#,S#/0,SCADB/FE,LOAD SC" ; 1884 SC_S# "SCAD/A,SCADA/S#,LOAD SC" ; 1885 ; 1886 ; 1887 SC_36. "SC_S#,S#/36." ; 1888 SC_35. "SC_S#,S#/35." ; 1889 SC_34. "SC_S#,S#/34." ; 1890 SC_28. "SC_S#,S#/28." ; 1891 SC_27. "SC_S#,S#/27." ; 1892 SC_26. "SC_S#,S#/26." ; 1893 SC_24. "SC_S#,S#/24." ; 1894 SC_22. "SC_S#,S#/22." ; 1895 SC_20. "SC_S#,S#/20." ; 1896 SC_19. "SC_S#,S#/19." ; 1897 SC_14. "SC_S#,S#/14." ; 1898 SC_11. "SC_S#,S#/11." ; 1899 SC_9. "SC_S#,S#/9." ; 1900 SC_8. "SC_S#,S#/8." ; 1901 SC_7 "SC_S#,S#/7" ; 1902 SC_6 "SC_S#,S#/6" ; 1903 SC_5 "SC_S#,S#/5" ; 1904 SC_4 "SC_S#,S#/4" ; 1905 SC_3 "SC_S#,S#/3" ; 1906 SC_2 "SC_S#,S#/2" ; 1907 SC_1 "SC_S#,S#/1" ; 1908 SC_0 "SC_S#,S#/0." ; 1909 SC_-1 "SC_S#,S#/1777" ; 1910 SC_-2 "SC_S#,S#/1776" ; 1911 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 51 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- SCAD, SC, FE LOGIC ; 1912 FE_-FE "SCAD/A-B,SCADA/S#,S#/0,SCADB/FE,LOAD FE" ; 1913 FE_-FE-1 "SCAD/A-B,SCADA/S#,S#/1777,SCADB/FE,LOAD FE" ; 1914 FE_FE-19 "SCAD/A+B,SCADB/FE,SCADA/S#,S#/1550,LOAD FE" ; 1915 FE_-FE+S# "SCAD/A-B,SCADA/S#,SCADB/FE,LOAD FE" ; 1916 FE_FE+SC "SCAD/A+B,SCADA/SC,SCADB/FE, LOAD FE" ; 1917 FE_FE.AND.S# "SCAD/A.AND.B,SCADA/S#,SCADB/FE, LOAD FE" ; 1918 FE_P "SCAD/A,SCADA/BYTE1, LOAD FE" ; 1919 FE_S "SCAD/A+B, SCADA/S#, S#/0 ,SCADB/SIZE, LOAD FE" ; 1920 FE_S+2 "SCAD/A+B, SCADA/S#, S#/20, SCADB/SIZE, LOAD FE" ; 1921 FE_-S-20 "SCAD/A-B,SCADA/S#,S#/1760,SCADB/SIZE, LOAD FE" ; 1922 FE_-S-10 "SCAD/A-B,SCADA/S#,S#/1770,SCADB/SIZE, LOAD FE" ; 1923 FE_S# "SCAD/A,SCADA/S#,LOAD FE" ; 1924 FE_S#-FE "SCAD/A-B,SCADA/S#,SCADB/FE,LOAD FE" ; 1925 FE_-2 "FE_S#,S#/1776" ; 1926 FE_-12. "FE_S#,S#/1764" ; 1927 FE_0 "FE_S#,S#/0" ; 1928 FE_-1 "FE_S#,S#/1777" ; 1929 FE_FE+1 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/1,LOAD FE" ; 1930 FE_FE+2 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/2,LOAD FE" ; 1931 FE_FE+10 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/10,LOAD FE" ; 1932 FE_FE-1 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/1777,LOAD FE" ; 1933 FE_FE+4 "SCAD/A+B,SCADA/S#,SCADB/FE,S#/4,LOAD FE" ; 1934 FE_EXP "SCAD/A+B,SCADA/S#,S#/0,SCADB/EXP,LOAD FE" ; 1935 FE_SC+EXP "SCAD/A+B,SCADA/SC,SCADB/EXP,LOAD FE" ; 1936 FE_SC-EXP "SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD FE" ; 1937 FE_FE+P "SCAD/A+B,SCADA/BYTE1,SCADB/FE, LOAD FE" ; 1938 FE_FE-200 "SCAD/A+B,SCADA/S#,S#/1600,SCADB/FE,LOAD FE" ; 1939 FE_-FE+200 "SCAD/A-B,SCADA/S#,S#/200,SCADB/FE,LOAD FE" ; 1940 FE_FE+S# "SCAD/A+B,SCADA/S#,SCADB/FE,LOAD FE" ; 1941 ; 1942 ; 1943 GEN 17-FE "SCAD/A-B,SCADA/S#,S#/210,SCADB/FE" ; 1944 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 52 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- DATA PATH FIELD CONTROL ; 1945 .TOC "MACROS -- DATA PATH FIELD CONTROL" ; 1946 ; 1947 HOLD LEFT "CLKL/0,GENL/0" ; 1948 ADL PARITY "GENL/1" ; 1949 CHK PARITY L "CHKL/1" ; 1950 ; 1951 HOLD RIGHT "CLKR/0,GENR/0" ; 1952 ADR PARITY "GENR/1" ; 1953 CHK PARITY R "CHKR/1" ; 1954 ; 1955 AD PARITY "AD PARITY OK/1" ; 1956 CHK PARITY "CHKL/1,CHKR/1" ; 1957 BAD PARITY "CHKL/0,CHKR/0" ; 1958 ; 1959 INH CRY18 "SPEC/INHCRY18" ; 1960 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 53 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- SHIFT PATH CONTROL ; 1961 .TOC "MACROS -- SHIFT PATH CONTROL" ; 1962 ; 1963 ASH "SHSTYLE/NORM" ;ASH SHIFT ; 1964 LSH "SHSTYLE/NORM" ;LSH SHIFT (SAME HARDWARE AS ASH BUT ; 1965 ; BITS -2 AND -1 ARE PRESET TO ZERO) ; 1966 ROT "SHSTYLE/ROT" ; 1967 LSHC "SHSTYLE/LSHC" ; 1968 ASHC "SHSTYLE/ASHC" ; 1969 ROTC "SHSTYLE/ROTC" ; 1970 ONES "SHSTYLE/ONES" ;SHIFT IN 1 BITS ; 1971 DIV "SHSTYLE/DIV" ;SPECIAL PATH FOR DIVIDE (LIKE ROTC BUT ; 1972 ; COMPLEMENT BIT AS IT GOES AROUND) ; 1973 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 54 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- SPECIAL FUNCTIONS ; 1974 .TOC "MACROS -- SPECIAL FUNCTIONS" ; 1975 ; 1976 LOAD IR "SPEC/LOADIR" ;LOAD INSTRUCTION REG FROM ; 1977 ; DBUS0-DBUS8, LOAD AC# FROM ; 1978 ; DBUS9-DBUS12 ; 1979 ; UPDATE LAST-INST-PUBLIC PC FLAG ; 1980 LOAD INST "SPEC/LDINST" ; 1981 LOAD INST EA "SPEC/LOADXR,PXCT/CURRENT" ; 1982 LOAD BYTE EA "SPEC/LOADXR,PXCT/E2" ; 1983 LOAD IND EA "SPEC/LOADXR,PXCT/E1" ; 1984 LOAD SRC EA "SPEC/LOADXR,PXCT/BIS-SRC-EA" ; 1985 LOAD DST EA "SPEC/LOADXR,PXCT/BIS-DST-EA" ; 1986 ADD .25 "CRY38/1" ;GENERATE CARRY IN TO BIT 37 ; 1987 CALL [] "CALL/1,J/@1" ;CALL A SUBROUTINE ; 1988 LOAD PXCT "SPEC/LDPXCT" ;LOAD PXCT FLAGS IF EXEC MODE ; 1989 TURN OFF PXCT "SPEC/PXCT OFF" ; 1990 LOAD PAGE TABLE "SPEC/LDPAGE" ; 1991 LOAD AC BLOCKS "SPEC/LDACBLK" ; 1992 SWEEP "SPEC/SWEEP,PHYSICAL/1" ; 1993 CLRCSH "SPEC/CLRCSH,PHYSICAL/1" ; 1994 LOAD PI "SPEC/LDPI" ; 1995 SET HALT "SPEC/#,#/74" ; 1996 CLEAR CONTINUE "SPEC/#,#/40" ; 1997 CLEAR EXECUTE "SPEC/#,#/20" ; 1998 CLEAR RUN "SPEC/#,#/10" ; 1999 UNHALT "SPEC/#,#/62" ; 2000 SET APR ENABLES "SPEC/APR EN" ; 2001 ABORT MEM CYCLE "DBUS/DBM,RAMADR/VMA,DBM/MEM,AD/ZERO,SPEC/MEMCLR,LOAD VMA" ; 2002 CLR IO BUSY "SPEC/CLR IO BUSY" ; 2003 CLR IO LATCH "SPEC/CLR IO LATCH" ; 2004 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 55 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- PC FLAGS ; 2005 .TOC "MACROS -- PC FLAGS" ; 2006 ; 2007 CHANGE FLAGS "SPEC/FLAGS" ; 2008 ; 2009 SET AROV "CHANGE FLAGS, HOLD USER/1, SETOV/1, TRAP1/1" ; 2010 SET FOV "CHANGE FLAGS, HOLD USER/1, SETFOV/1, TRAP1/1" ; 2011 SET NO DIVIDE "CHANGE FLAGS, HOLD USER/1, SETOV/1, SETNDV/1, TRAP1/1" ; 2012 SET FL NO DIVIDE "SET NO DIVIDE, SETFOV/1" ; 2013 ; 2014 ASH AROV "SPEC/ASHOV" ; 2015 SET FPD "CHANGE FLAGS, HOLD USER/1, SETFPD/1" ; 2016 CLR FPD "CHANGE FLAGS, HOLD USER/1, CLRFPD/1" ; 2017 ; 2018 SET PDL OV "CHANGE FLAGS, HOLD USER/1, TRAP2/1" ; 2019 SET TRAP1 "CHANGE FLAGS, HOLD USER/1, TRAP1/1" ; 2020 ; 2021 LOAD PCU "CHANGE FLAGS, LD PCU/1" ; 2022 UPDATE USER "CHANGE FLAGS, HOLD USER/1" ; 2023 LEAVE USER "CHANGE FLAGS, HOLD USER/0" ; 2024 ; 2025 JFCL FLAGS "CHANGE FLAGS, HOLD USER/1, JFCLFLG/1" ; 2026 ; 2027 LOAD FLAGS "CHANGE FLAGS, LD FLAGS/1" ; 2028 EXP TEST "SPEC/EXPTST" ; 2029 AD FLAGS "CHANGE FLAGS, ADFLGS/1, HOLD USER/1" ; 2030 ; 2031 NO DIVIDE "SET NO DIVIDE, J/NIDISP" ; 2032 FL NO DIVIDE "SET FL NO DIVIDE, J/NIDISP" ; 2033 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 56 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- PAGE FAIL FLAGS ; 2034 .TOC "MACROS -- PAGE FAIL FLAGS" ; 2035 ; 2036 STATE_[] "[FLG]_#,STATE/@1,HOLD LEFT" ; 2037 END STATE "[FLG]_0, HOLD LEFT" ; 2038 ; 2039 END BLT "END STATE" ; 2040 END MAP "END STATE" ; 2041 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 57 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- SINGLE SKIPS ; 2042 .TOC "MACROS -- SINGLE SKIPS" ; 2043 ;SKIPS IF: ; 2044 SKIP IF AC0 "SKIP/AC0" ;THE AC NUMBER IS ZERO ; 2045 SKIP DP0 "SKIP/DP0" ;DP BIT 0=1 ; 2046 SKIP DP18 "SKIP/DP18" ;DP BIT 18=1 ; 2047 SKIP AD.EQ.0 "SKIP/ADEQ0,DT/3T" ;ADDER OUTPUT IS ZERO ; 2048 SKIP AD.LE.0 "SKIP/LE,DT/3T" ;ADDER OUTPUT IS LESS THAN OR EQUAL ; 2049 ; TO ZERO. ; 2050 SKIP ADL.LE.0 "SKIP/LLE,DT/3T" ;ADDER LEFT IS LESS THAN OR EQUAL ; 2051 ; TO ZERO. ; 2052 SKIP FPD "SKIP/FPD" ;FIRST-PART-DONE PC FLAG IS SET ; 2053 SKIP KERNEL "SKIP/KERNEL" ;USER=0 ; 2054 SKIP IO LEGAL "SKIP/IOLGL" ;USER=0 OR USER IOT=1 ; 2055 SKIP CRY0 "SKIP/CRY0" ;ADDER BIT CRY0=1 (NOT PC FLAG BIT) ; 2056 SKIP CRY1 "SKIP/CRY1" ;ADDER BIT CRY1=1 (NOT PC FLAG BIT) ; 2057 SKIP CRY2 "SKIP/CRY2,DT/3T" ;ADDER BIT CRY2=1 ; 2058 SKIP JFCL "SKIP/JFCL" ;IF JFCL SHOULD JUMP ; 2059 SKIP ADL.EQ.0 "SKIP/ADLEQ0" ;ALU BITS -2 TO 17 = 0 ; 2060 SKIP ADR.EQ.0 "SKIP/ADREQ0" ;ALU BITS 18-35 = 0 ; 2061 SKIP IRPT "SKIP/INT" ;INTERRUPT IS PENDING ; 2062 SKIP -1MS "SKIP/-1 MS" ;DON'T SKIP IF 1MS TIMER HAS EXPIRED. ; 2063 SKIP AC REF "SKIP/ACREF" ;VMA IS 0-17 ; 2064 SKIP EXECUTE "SKIP/EXECUTE" ;CONSOLE EXECUTE ; 2065 TXXX TEST "SKIP/TXXX" ;TEST INSTRUCTION SHOULD SKIP ; 2066 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 58 ; KS10.MIC[7,3] 14:54 7-JAN-1986 MACROS -- SPECIAL DISPATCH MACROS ; 2067 .TOC "MACROS -- SPECIAL DISPATCH MACROS" ; 2068 ; 2069 NEXT INST "DISP/NICOND,SPEC/NICOND,J/NICOND" ; 2070 NEXT INST FETCH "DISP/NICOND,SPEC/NICOND,J/NICOND-FETCH" ; 2071 EA MODE DISP "DISP/EAMODE,RAMADR/XR#" ; 2072 AREAD "DISP/AREAD,WAIT/1,AREAD/1,MEM/1,J/0" ; 2073 B DISP "DISP/BDISP" ; 2074 BWRITE DISP "B DISP,MEM/1,BWRITE/1,WRITE CYCLE/1,J/BWRITE" ; 2075 INST DISP "DISP/DROM,J/0" ; 2076 EXIT "BWRITE DISP,SPEC/0, WRITE TEST/1" ; 2077 AD FLAGS EXIT "BWRITE DISP, WRITE TEST/0, AD FLAGS" ; 2078 FL-EXIT "WRITE CYCLE/1,WRITE TEST/1,MEM/1,BWRITE/1,B DISP,J/FL-BWRITE" ; 2079 TEST DISP "B DISP,J/TEST-TABLE" ; 2080 SKIP-COMP DISP "B DISP,J/SKIP-COMP-TABLE" ; 2081 JUMP DISP "B DISP,J/JUMP-TABLE" ; 2082 DONE "VMA_[PC],LOAD VMA, FETCH, NEXT INST FETCH" ; 2083 JUMPA "[PC]_[AR],HOLD LEFT,LOAD VMA,FETCH,NEXT INST FETCH" ; 2084 UUO "[HR]_[HR].AND.#,#/777740,HOLD RIGHT,J/UUOGO" ; 2085 LUUO "[AR]_0 XWD [40], J/LUUO1" ; 2086 PAGE FAIL TRAP "TL [FLG], FLG.PI/1, J/PFT" ; 2087 TAKE INTERRUPT "[FLG]_[FLG].OR.#,FLG.PI/1,HOLD RIGHT,J/PI" ; 2088 INTERRUPT TRAP "WORK[SV.AR]_[AR], J/ITRAP" ; 2089 MUL DISP "DISP/MUL" ; 2090 DIV DISP "DISP/DIV" ; 2091 BYTE DISP "DISP/BYTE, DT/3T" ; 2092 SCAD DISP "DISP/SCAD0" ;SKIP (2'S WEIGHT) IS SCAD IS MINUS ; 2093 RETURN [] "DISP/RETURN,J/@1" ; 2094 PI DISP "DISP/PI" ; 2095 NORM DISP "DISP/NORM,DT/3T" ; 2096 DISMISS "TR [PI], #/077400, CALL [JEN1],DT/3T" ; 2097 CALL LOAD PI "[T0]_[PI] SWAP, CALL [LDPI2]" ; 2098 HALT [] "AD/47,DEST/AD,B/T1,DBM/#,DBUS/DBM,HALT/@1,RSRC/DA,A/MASK, J/HALTED" ; 2099 CLEANUP DISP "READ [FLG], DBUS/DP, DISP/DP, 3T, J/CLEANUP" ; 2100 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 59 ; KS10.MIC[7,3] 14:54 7-JAN-1986 DISPATCH ROM MACROS ; 2101 .TOC "DISPATCH ROM MACROS" ; 2102 .DCODE ; 2103 ; 2104 ;"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS ; 2105 ; 2106 I "I/1" ; 2107 I-PF "I/1,VMA/0,READ/1" ; 2108 R "A/READ,READ/1" ; 2109 R-PF "A/RD-PF,READ/1" ; 2110 W "A/WRITE,TEST/1" ; 2111 RW "A/READ,TEST/1,READ/1" ; 2112 IW "I/1,TEST/1" ;IMMED WHICH STORE IN E. (SETZM, ETC.) ; 2113 IR "I/1,READ/1" ;START READ A GO TO EXECUTE CODE ; 2114 DBL R "A/DREAD,READ/1" ;AR!ARX _ E!E+1 ; 2115 DBL AC "A/DBLAC" ; 2116 SH "A/SHIFT,VMA/0,READ/1" ; 2117 SHC "A/DSHIFT,VMA/0,READ/1" ; 2118 FL-R "A/FP,READ/1" ;FLOATING POINT READ ; 2119 FL-RW "A/FP,READ/1,TEST/1" ; 2120 FL-I "A/FPI,READ/0" ;FLOATING POINT IMMEDIATE ; 2121 DBL FL-R "A/DFP,READ/1" ; 2122 IOT "A/IOT" ;CHECK FOR IO LEGAL ; 2123 ; 2124 ;"B FIELD" MACROS SAY HOW TO STORE RESULTS ; 2125 ; 2126 AC "B/AC" ; 2127 M "B/MEM,TEST/1,COND FUNC/1" ; 2128 B "B/BOTH,TEST/1,COND FUNC/1" ; 2129 S "B/SELF,TEST/1,COND FUNC/1" ; 2130 DAC "B/DBLAC" ; 2131 DBL B "B/DBLB,TEST/1,COND FUNC/1" ; 2132 FL-AC "FL-B/AC" ;FLOATING POINT ; 2133 FL-MEM "FL-B/MEM,TEST/1,COND FUNC/1" ;FLOATING POINT TO MEMORY ; 2134 FL-BOTH "FL-B/BOTH,TEST/1,COND FUNC/1" ;FLOATING POINT TO BOTH ; 2135 ROUND "ROUND/1" ;FLOATING POINT ROUNDED ; 2136 ; 2137 ; 2138 ;CONTROL BITS ; 2139 W TEST "TEST/1" ; 2140 AC DISP "ACDISP/1" ; 2141 .UCODE ; 2142 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 60 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 DISPATCH ROM MACROS ; 2143 .BIN ; 2144 .TOC "POWER UP SEQUENCE" ; 2145 ; 2146 .UCODE ; 2147 ; 2148 ;HERE IS WHERE WE FIRE THE MACHINE UP DURING POWER ON ; 2149 ; 2150 U 0000, 0002,3771,0012,4374,4007,0700,0000,0037,7777 ; 2151 0: [MASK]_#, #/377777 ;BUILD A MASK WITH U 0002, 0013,3445,1212,4174,4007,0700,0000,0000,0000 ; 2152 [MASK]_[MASK]*2 ; A ONE IN 36-BITS AND 0 U 0013, 0053,3551,1212,4374,4007,0700,0000,0000,0001 ; 2153 [MASK]_[MASK].OR.#,#/1 ; IN BITS -2,-1,36,37 U 0053, 0061,3447,1200,4174,4007,0700,0000,0000,0000 ; 2154 [MAG]_[MASK]*.5 ;MAKE CONSTANT U 0061, 0071,3771,0015,4374,4007,0700,0000,0000,0001 ; 2155 [XWD1]_#, #/1 ;CONSTANT WITH 1 IN EACH ; 2156 ; HALF WORD ; 2157 [ONE]_0 XWD [1], ;THE CONSTANT 1 U 0071, 0003,4751,1207,4374,4007,0700,0010,0000,0001 ; 2158 CALL/1 ;RESET STACK (CAN NEVER RETURN ; 2159 ; TO WHERE MR LEFT US) U 0003, 0100,4751,1203,4374,4007,0700,0000,0037,6000 ; 2160 3: [AR]_0 XWD [376000] ;ADDRESS OF HALT STATUS ; 2161 ; BLOCK U 0100, 0106,3333,0003,7174,4007,0700,0400,0000,0227 ; 2162 WORK[HSBADR]_[AR] ;SAVE FOR HALT LOOP U 0106, 0110,4221,0011,4364,4277,0700,0200,0000,0010 ; 2163 [UBR]_0, ABORT MEM CYCLE ;CLEAR THE UBR AND RESET ; 2164 ; MEMORY CONTROL LOGIC U 0110, 0125,4221,0010,4174,4477,0700,0000,0000,0000 ; 2165 [EBR]_0, LOAD AC BLOCKS ;CLEAR THE EBR AND FORCE ; 2166 ; PREVIOUS AND CURRENT AC ; 2167 ; BLOCKS TO ZERO U 0125, 0131,4221,0013,4174,4257,0700,0000,0000,0000 ; 2168 [FLG]_0, SET APR ENABLES ;CLEAR THE STATUS FLAGS AND ; 2169 ; DISABLE ALL APR CONDITIONS U 0131, 0162,3333,0013,7174,4007,0700,0400,0000,0230 ; 2170 WORK[APR]_[FLG] ;ZERO REMEMBERED ENABLES ; 2171 U 0162, 0212,3333,0013,7174,4007,0700,0400,0000,0300 ; 2172 WORK[TIME0]_[FLG] ;CLEAR TIME BASE U 0212, 0214,3333,0013,7174,4007,0700,0400,0000,0301 ; 2173 WORK[TIME1]_[FLG] ; .. ; 2174 .IF/FULL U 0214, 0223,4223,0000,1174,4007,0700,0400,0000,1443 ; 2175 AC[BIN0]_0 ;COMPUTE A TABLE OF POWERS OF U 0223, 0226,3333,0007,1174,4007,0700,0400,0000,1444 ; 2176 AC[BIN1]_1 ; TEN U 0226, 0235,4221,0003,4174,4007,0700,2000,0071,0023 ; 2177 [AR]_0, SC_19. ;WE WANT TO GET 22 NUMBERS U 0235, 0242,3333,0007,7174,4007,0700,0400,0000,0344 ; 2178 WORK[DECLO]_1 ;STARTING WITH 1 U 0242, 0244,4223,0000,7174,4007,0700,0400,0000,0373 ; 2179 WORK[DECHI]_0 ; .. U 0244, 0311,3771,0002,4374,4007,0700,0000,0000,0344 ; 2180 [HR]_#, WORK/DECLO ;ADDRESS OF LOW WORD U 0311, 0323,3771,0006,4374,4007,0700,0000,0000,0373 ; 2181 [BRX]_#, WORK/DECHI ;ADDRESS OF HIGH WORD U 0323, 0010,0111,0706,4174,4007,0700,0200,0000,0010 ; 2182 TENLP: [BRX]_[BRX]+1, LOAD VMA ;ADDRESS THE HIGH WORD ; 2183 =0* [ARX]_AC[BIN1], ;LOW WORD TO ARX U 0010, 0560,3771,0004,1276,6007,0701,0010,0000,1444 ; 2184 CALL [DBSLOW] ;MULTIPLY BY TEN U 0012, 0324,3333,0005,6174,4007,0700,0400,0000,0000 ; 2185 RAM_[BR] ;SAVE HIGH WORD U 0324, 0334,0111,0702,4174,4007,0700,0200,0000,0010 ; 2186 [HR]_[HR]+1, LOAD VMA ;WHERE TO STORE LOW WORD U 0334, 0224,3333,0004,6174,4007,0630,2400,0060,0000 ; 2187 RAM_[ARX], STEP SC ;STORE LOW WORD AND SEE IF ; 2188 ; WE ARE DONE U 0224, 0323,4443,0000,4174,4007,0700,0000,0000,0000 ; 2189 =0 J/TENLP ;NOT YET--KEEP GOING U 0225, 0140,6553,0500,4374,4007,0321,0000,0033,0656 ; 2190 [BR].XOR.#, 3T, SKIP ADL.EQ.0, #/330656 ; 2191 ;DID WE GET THE RIGHT ANSWER ; 2192 ; IN THE TOP 18 BITS? U 0140, 0104,4751,1217,4374,4007,0700,0000,0000,1005 ; 2193 =0**0 HALT [MULERR] ;NO--CPU IS BROKEN ; 2194 .ENDIF/FULL ; 2195 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 61 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 POWER UP SEQUENCE U 0141, 3607,4221,0014,4174,4007,0700,0010,0000,0000 ; 2196 =0**1 [PI]_0, CALL [LOADPI] ;CLEAR PI STATE ; 2197 =1**1 ;CLEAR REGISTERS SO NO ; 2198 ;PARITY ERROR HAPPEN ;;2199 .IFNOT/FULL ;;2200 [ARX]_0 ;WRITTEN WHILE COMPUTING POWERS ;;2201 [BR]_0 ;OF 10 ;;2202 [BRX]_0 ; 2203 .ENDIF/FULL U 0151, 0343,4751,1217,4374,4007,0700,0000,0000,0120 ; 2204 [T1]_0 XWD [120] ;RH OF 120 CONTAINS START ADDRESS ; 2205 ; FOR SIMULATOR. FOR THE REAL ; 2206 ; MACHINE IT IS JUST DATA WITH ; 2207 ; GOOD PARITY. ; 2208 = ; 2209 ;THE CODE UNDER .IF/SIM MUST USE THE SAME ADDRESS AS THE CODE ; 2210 ; UNDER .IFNOT/SIM SO THAT MICROCODE ADDRESSES DO NOT CHANGE BETWEEN ; 2211 ; VERSIONS ;;2212 .IF/SIM ;;2213 VMA_[T1], START READ ;READ THE WORD ;;2214 MEM READ, [PC]_MEM, HOLD LEFT, J/START ;;2215 ;GO FIRE UP SIMULATOR AT THE ;;2216 ; PROGRAMS STARTING ADDRESS ; 2217 .IFNOT/SIM ; 2218 [PC]_0, ;CLEAR LH OF PC ; 2219 LEAVE USER, ;ENTER EXEC MODE U 0343, 0346,4221,0001,4174,4467,0700,0000,0000,0004 ; 2220 LOAD FLAGS ;CLEAR TRAP FLAGS ; 2221 [T1]_#, HALT/POWER, ;LOAD T1 WITH POWER UP CODE U 0346, 0116,3771,0017,4374,4007,0700,0000,0000,0000 ; 2222 J/PWRON ;ENTER HALT LOOP. DO NOT STORE ; 2223 ; HALT STATUS BLOCK ; 2224 .ENDIF/SIM ; 2225 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 62 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2226 .TOC "THE INSTRUCTION LOOP -- START NEXT INSTRUCTION" ; 2227 ; 2228 ;ALL INSTRUCTIONS EXCEPT JUMP'S AND UUO'S END UP HERE ; 2229 1400: U 1400, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 2230 DONE: DONE U 1401, 0110,0111,0701,4170,4156,4700,0200,0014,0012 ; 2231 1401: VMA_[PC]+1, NEXT INST FETCH, FETCH ; 2232 =0 U 0260, 0110,0111,0701,4170,4156,4700,0200,0014,0012 ; 2233 SKIP: VMA_[PC]+1, NEXT INST FETCH, FETCH U 0261, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 2234 DONE ; 2235 ; 2236 ; 2237 ;16-WAY DISPATCH BASED ON NEXT INSTRUCTION ; 2238 =0000 ; 2239 NICOND: ; 2240 =0001 [AR]_0 XWD [423], ;TRAP TYPE 3 ; 2241 ; GET ADDRESS OF TRAP INST ; 2242 TURN OFF PXCT, ;CLEAR PXCT U 0101, 3474,4751,1203,4374,4367,0700,0000,0000,0423 ; 2243 J/TRAP ;PROCESS TRAP (INOUT.MIC) ; 2244 =0010 [AR]_0 XWD [422], ;TRAP TYPE 2 ; 2245 TURN OFF PXCT, ;CLEAR PXCT U 0102, 3474,4751,1203,4374,4367,0700,0000,0000,0422 ; 2246 J/TRAP ;GO TRAP ; 2247 =0011 [AR]_0 XWD [421], ;TRAP TYPE 1 ; 2248 TURN OFF PXCT, ;TURN OF PXCT U 0103, 3474,4751,1203,4374,4367,0700,0000,0000,0421 ; 2249 J/TRAP ;GO TRAP U 0105, 0104,4751,1217,4374,4007,0700,0000,0000,0002 ; 2250 =0101 HALT [CSL] ;"HA" COMMAND TO 8080 ; 2251 =0111 ; 2252 VMA_[PC], ;LOAD VMA ; 2253 FETCH, ;INDICATE INSTRUCTION FETCH U 0107, 0117,3443,0100,4174,4007,0700,0200,0014,0012 ; 2254 J/XCTGO ;GO GET INSTRUCTION ; 2255 ;THE NEXT SET OF CASES ARE USED WHEN THERE IS A FETCH ; 2256 ; IN PROGESS ; 2257 =1000 ; 2258 NICOND-FETCH: ; 2259 =1001 [AR]_0 XWD [423], ;TRAP TYPE 3 ; 2260 TURN OFF PXCT, U 0111, 3474,4751,1203,4374,4367,0700,0000,0000,0423 ; 2261 J/TRAP ; 2262 =1010 [AR]_0 XWD [422], ;TRAP TYPE 2 ; 2263 TURN OFF PXCT, U 0112, 3474,4751,1203,4374,4367,0700,0000,0000,0422 ; 2264 J/TRAP ; 2265 =1011 [AR]_0 XWD [421], ;TRAP TYPE 1 ; 2266 TURN OFF PXCT, U 0113, 3474,4751,1203,4374,4367,0700,0000,0000,0421 ; 2267 J/TRAP U 0115, 0104,4751,1217,4374,4007,0700,0000,0000,0002 ; 2268 =1101 HALT [CSL] ;"HA" COMMAND TO 8080 ; 2269 =1111 ; 2270 XCTGO: MEM READ, ;WAIT FOR MEMORY ; 2271 [HR]_MEM, ;PUT DATA IN HR ; 2272 LOAD INST, ;LOAD IR & AC # U 0117, 0363,3771,0002,4365,5617,0700,0200,0000,0002 ; 2273 J/INCPC ;GO BUMP PC ; 2274 = ; 2275 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 63 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2276 ;HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR ; 2277 ; EFFECTIVE ADDRESS LOGIC TO SETTLE ; 2278 INCPC: VMA_[PC]+1, ;ADDRESS OF NEXT INSTRUCTION ; 2279 FETCH/1, ;INSTRUCTION FETCH ; 2280 TURN OFF PXCT, ;CLEAR EFFECT OF PXCT U 0363, 0201,0111,0701,2170,4366,6700,0200,0010,0010 ; 2281 EA MODE DISP ;DISPACTH OF INDEXING AND @ ; 2282 ; 2283 ;MAIN EFFECTIVE ADDRESS CALCULATION ; 2284 =0001 ; 2285 EACALC: ; 2286 ; ; 2287 ; THE FIRST 4 CASES ARE USED ONLY FOR JRST ; 2288 ; ; 2289 ; 2290 ;CASE 0 -- JRST 0,FOO(XR) ; 2291 [PC]_[HR]+XR, ;UPDATE PC ; 2292 HOLD LEFT, ;ONLY RH ; 2293 LOAD VMA, FETCH, ;START GETTING IT U 0201, 0110,0551,0201,2270,4156,4700,0200,0014,0012 ; 2294 NEXT INST FETCH ;START NEXT INST ; 2295 ; 2296 ;CASE 2 -- JRST 0,FOO ; 2297 [PC]_[HR], ;NEW PC ; 2298 HOLD LEFT, ;ONLY RH ; 2299 LOAD VMA, FETCH, ;START GETTING IT U 0203, 0110,3441,0201,4170,4156,4700,0200,0014,0012 ; 2300 NEXT INST FETCH ;START NEXT INST ; 2301 ; 2302 ;CASE 4 -- JRST 0,@FOO(XR) ; 2303 [HR]_[HR]+XR, ;ADD IN INDEX ; 2304 START READ, ;START TO FETCH @ WORD ; 2305 LOAD VMA, ;PUT ADDRESS IN VMA U 0205, 0366,0551,0202,2270,4007,0700,0200,0004,0012 ; 2306 J/FETIND ;GO DO MEM WAIT (FORGET ABOUT JRST) ; 2307 ; 2308 ;CASE 6 -- JRST 0,@FOO ; 2309 VMA_[HR], ;LOAD UP ADDRESS ; 2310 START READ, ;START TO FETCH @ WORD U 0207, 0366,3443,0200,4174,4007,0700,0200,0004,0012 ; 2311 J/FETIND ;GO DO MEM WAIT (FORGET ABOUT JRST) ; 2312 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 64 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- START NEXT INSTRUCTION ; 2313 ; ; 2314 ;THESE 4 ARE FOR THE NON-JRST CASE ; 2315 ; ; 2316 ; 2317 ;CASE 10 -- JUST INDEXING ; 2318 INDEX: [HR]_[HR]+XR, ;ADD IN INDEX REGISTER U 0211, 0213,0551,0202,2270,4007,0700,0000,0000,0000 ; 2319 HOLD LEFT ;JUST DO RIGHT HALF ; 2320 ; 2321 ;CASE 12 -- NO INDEXING OR INDIRECT ; 2322 NOMOD: [AR]_EA, ;PUT 0,,E IN AR U 0213, 0000,5741,0203,4174,4001,3700,0200,0000,0342 ; 2323 PXCT DATA, AREAD ;DO ONE OR MORE OF THE FOLLWING ; 2324 ; ACCORDING TO THE DROM: ; 2325 ;1. LOAD VMA ; 2326 ;2. START READ OR WRITE ; 2327 ;3. DISPATCH TO 40-57 ; 2328 ; OR DIRECTLY TO EXECUTE CODE ; 2329 ; 2330 ;CASE 14 -- BOTH INDEXING AND INDIRECT ; 2331 BOTH: [HR]_[HR]+XR, ;ADD IN INDEX REGISTER ; 2332 LOAD VMA, PXCT EA, ;PUT ADDRESS IN VMA U 0215, 0366,0551,0202,2270,4007,0700,0200,0004,0112 ; 2333 START READ, J/FETIND ;START CYCLE AND GO WAIT FOR DATA ; 2334 ; 2335 ;CASE 16 -- JUST INDIRECT ; 2336 INDRCT: VMA_[HR], ;LOAD ADDRESS OF @ WORD U 0217, 0366,3443,0200,4174,4007,0700,0200,0004,0112 ; 2337 START READ, PXCT EA ;START CYCLE ; 2338 ; 2339 ; 2340 ;HERE TO FETCH INDIRECT WORD ; 2341 FETIND: MEM READ, [HR]_MEM, ;GET DATA WORD ; 2342 HOLD LEFT, ;JUST RIGHT HALF U 0366, 0371,3771,0002,4361,5217,0700,0200,0000,0102 ; 2343 LOAD IND EA ;RELOAD @ AND INDEX FLOPS ; 2344 ; 2345 XCT2: VMA_[PC], ;PUT PC BACK IN VMA ; 2346 FETCH/1, ;TURN ON FETCH FLAG ; 2347 EA MODE DISP, ;REDO CALCULATION FOR U 0371, 0201,3443,0100,2174,4006,6700,0200,0010,0010 ; 2348 J/EACALC ; NEW WORD ; 2349 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 65 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2350 .TOC "THE INSTRUCTION LOOP -- FETCH ARGUMENTS" ; 2351 ;HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH ; 2352 ; 2353 ;CASE 0 -- READ (E) ; 2354 40: MEM READ, ;WAIT FOR DATA ; 2355 [AR]_MEM, ;PUT WORD IN AR U 0040, 0000,3771,0003,4365,5001,2700,0200,0000,0002 ; 2356 INST DISP ;GO TO EXECUTE CODE ; 2357 ; 2358 ;CASE 1 -- WRITE (E) ; 2359 41: [AR]_AC, ;PUT AC IN AR U 0041, 0000,3771,0003,0276,6001,2700,0000,0000,0000 ; 2360 INST DISP ;GO TO EXECUTE CODE ; 2361 ; 2362 ;CASE 2 -- DOUBLE READ ; 2363 42: MEM READ, ;WAIT FOR DATA U 0042, 0401,3771,0003,4365,5007,0700,0200,0000,0002 ; 2364 [AR]_MEM ;PUT HI WORD IN AR ; 2365 VMA_[HR]+1, PXCT DATA, ;POINT TO E+1 U 0401, 0406,0111,0702,4170,4007,0700,0200,0004,0312 ; 2366 START READ ;START MEMORY CYCLE ; 2367 MEM READ, ;WAIT FOR DATA ; 2368 [ARX]_MEM, ;LOW WORD IN ARX U 0406, 0000,3771,0004,4365,5001,2700,0200,0000,0002 ; 2369 INST DISP ;GO TO EXECUTE CODE ; 2370 ; 2371 ;CASE 3 -- DOUBLE AC U 0043, 0415,3771,0003,0276,6007,0700,0000,0000,0000 ; 2372 43: [AR]_AC ;GET HIGH AC ; 2373 [ARX]_AC[1], ;PUT C(AC+1) IN ARX U 0415, 0000,3771,0004,1276,6001,2701,0000,0000,1441 ; 2374 INST DISP ;GO TO EXECUTE CODE ; 2375 ; 2376 ;CASE 4 -- SHIFT ; 2377 44: ; 2378 SHIFT: READ [AR], ;LOOK AT EFFECTIVE ADDRESS ; 2379 SKIP DP18, ;SEE IF LEFT OR RIGHT ; 2380 SC_SHIFT-1, ;PUT NUMBER OF PLACES TO SHIFT IN ; 2381 LOAD FE, ; SC AND FE U 0044, 0000,3333,0003,4174,4001,2530,3000,0041,5777 ; 2382 INST DISP ;GO DO THE SHIFT ; 2383 ; 2384 ;CASE 5 -- SHIFT COMBINED U 0045, 0416,3772,0000,1275,5007,0701,0000,0000,1441 ; 2385 45: Q_AC[1] ;PUT LOW WORD IN Q U 0416, 0431,3776,0005,0274,4007,0701,0000,0000,0000 ; 2386 [BR]_AC*.5 LONG ;PUT AC IN BR & SHIFT BR!Q RIGHT ; 2387 [BR]_[BR]*.5 LONG, ;SHIFT BR!Q 1 MORE PLACE RIGHT U 0431, 0044,3446,0505,4174,4007,0700,0000,0000,0000 ; 2388 J/SHIFT ;GO DO SHIFT SETUP ; 2389 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 66 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2390 ;CASE 6 -- FLOATING POINT IMMEDIATE ; 2391 46: [AR]_[AR] SWAP, ;FLIP BITS TO LEFT HALF U 0046, 0372,3770,0303,4344,4007,0700,0000,0000,0000 ; 2392 J/FPR0 ;JOIN COMMON F.P. CODE ; 2393 ; 2394 ;CASE 7 -- FLOATING POINT ; 2395 47: MEM READ, ;WAIT FOR MEMORY (SPEC/MEM WAIT) U 0047, 0372,3771,0003,4365,5007,0700,0200,0000,0002 ; 2396 [AR]_MEM ;DATA INTO AR ; 2397 =0 ; 2398 FPR0: READ [AR], ;LOOK AT NUMBER ; 2399 SC_EXP, FE_EXP, ;PUT EXPONENT IN SC & FE ; 2400 SKIP DP0, ;SEE IF NEGATIVE U 0372, 0412,3333,0003,4174,4007,0520,3010,0041,2000 ; 2401 CALL [ARSIGN] ;EXTEND AR SIGN ; 2402 FPR1: [ARX]_0, ;ZERO ARX U 0373, 0000,4221,0004,4174,4001,2700,0000,0000,0000 ; 2403 INST DISP ;GO TO EXECUTE CODE ; 2404 ; 2405 ;CASE 10 -- READ THEN PREFETCH ; 2406 50: MEM READ, ;WAIT FOR DATA ; 2407 [AR]_MEM THEN FETCH, ;PUT DATA IN AR AND START A READ ; 2408 ; VMA HAS PC+1. U 0050, 0000,3770,0103,4365,5001,2700,0200,0014,0012 ; 2409 INST DISP ;GO DO IT ; 2410 ; 2411 ;CASE 11 -- DOUBLE FLOATING READ ; 2412 51: SPEC MEM READ, ;WAIT FOR DATA ; 2413 [BR]_MEM, ;HOLD IN BR ; 2414 SC_EXP, FE_EXP, ;SAVE EXPONENT U 0051, 0402,3771,0005,4365,5177,0521,3000,0041,2000 ; 2415 SKIP DP0, 3T ;SEE IF MINUS ; 2416 =0 [AR]_[AR]+1, ;POINT TO E+1 ; 2417 LOAD VMA, PXCT DATA, ;PUT IN VMA U 0402, 0445,0111,0703,4174,4007,0700,0200,0004,0312 ; 2418 START READ, J/DFPR1 ;GO GET POSITIVE DATA ; 2419 [AR]_[AR]+1, ;POINT TO E+1 ; 2420 LOAD VMA, PXCT DATA, ;PUT IN VMA U 0403, 0432,0111,0703,4174,4007,0700,0200,0004,0312 ; 2421 START READ ;GO GET NEGATIVE DATA ; 2422 [BR]_-SIGN, ;SMEAR MINUS SIGN U 0432, 0451,3551,0505,4374,0007,0700,0000,0077,7000 ; 2423 J/DFPR2 ;CONTINUE BELOW U 0445, 0451,4551,0505,4374,0007,0700,0000,0000,0777 ; 2424 DFPR1: [BR]_+SIGN ;SMEAR PLUS SIGN ; 2425 DFPR2: MEM READ, 3T, ;WAIT FOR MEMORY ; 2426 [ARX]_(MEM.AND.[MAG])*.5, U 0451, 0452,4557,0004,4365,5007,0701,0200,0000,0002 ; 2427 ASH ;SET SHIFT PATHS U 0452, 0467,3447,0503,4174,4007,0700,0000,0000,0000 ; 2428 [AR]_[BR]*.5 ;SHIFT AR ; 2429 [AR]_[AR]*.5, ;COMPLETE SHIFTING U 0467, 0471,3447,0303,4174,4007,0700,2000,0011,0000 ; 2430 SC_FE ;PAGE FAIL MAY HAVE ZAPPED ; 2431 ; THE SC. ; 2432 VMA_[PC], FETCH, ;GET NEXT INST U 0471, 0000,3443,0100,4174,4001,2700,0200,0014,0012 ; 2433 INST DISP ;DO THIS ONE ; 2434 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 67 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- FETCH ARGUMENTS ; 2435 ;CASE 12 -- TEST FOR IO LEGAL U 0052, 0404,4443,0000,4174,4007,0040,0000,0000,0000 ; 2436 52: SKIP IO LEGAL ;IS IO LEGAL? U 0404, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 2437 =0 UUO ;NO U 0405, 0000,4443,0000,4174,4001,2700,0000,0000,0000 ; 2438 INST DISP ;YES--DO THE INSTRUCTION ; 2439 ; 2440 ; 2441 ;CASE 13 -- RESERVED ; 2442 ;53: ; 2443 ; 2444 ;CASE 14 -- RESERVED ; 2445 ;54: ; 2446 ; 2447 ;CASE 15 -- RESERVED ; 2448 ;55: ; 2449 ; 2450 ;CASE 16 -- RESERVED ; 2451 ;56: ; 2452 ; 2453 ;CASE 17 -- RESERVED ; 2454 ;57: ; 2455 ; 2456 ;EXTEND AR SIGN. ; 2457 ;CALL WITH SKIP ON AR0, RETURNS 1 ALWAYS ; 2458 =0 U 0412, 0001,4551,0303,4374,0004,1700,0000,0000,0777 ; 2459 ARSIGN: [AR]_+SIGN, RETURN [1] ;EXTEND + SIGN U 0413, 0001,3551,0303,4374,0004,1700,0000,0077,7000 ; 2460 [AR]_-SIGN, RETURN [1] ;EXTEND - SIGN ; 2461 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 68 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- STORE ANSWERS ; 2462 .TOC "THE INSTRUCTION LOOP -- STORE ANSWERS" ; 2463 ; 2464 ;NOTE: INSTRUCTIONS WHICH STORE IN BOTH AC AND MEMORY ; 2465 ; (E.G. ADDB, AOS) MUST STORE IN MEMORY FIRST ; 2466 ; SO THAT IF A PAGE FAIL HAPPENS THE AC IS ; 2467 ; STILL INTACT. ; 2468 ; 2469 1500: ; 2470 BWRITE: ;BASE ADDRESS OF BWRITE DISPATCH ; 2471 ; 2472 ;CASE 0 -- RESERVED ; 2473 ;1500: ; 2474 ; 2475 ;CASE 1 -- RESERVED ; 2476 ;1501: ; 2477 ; 2478 ;CASE 2 -- RESERVED ; 2479 ;1502: ; 2480 ; 2481 ;CASE 3 -- RESERVED ; 2482 ;1503: ; 2483 ; 2484 ;CASE 4 -- STORE SELF ; 2485 1504: ; 2486 STSELF: SKIP IF AC0, ;IS AC # ZERO? U 1504, 0434,4443,0000,4174,4007,0360,0000,0000,0000 ; 2487 J/STBTH1 ;GO TO STORE BOTH CASE ; 2488 ; 2489 ;CASE 5 -- STORE DOUBLE AC ; 2490 1505: ; 2491 DAC: AC[1]_[ARX], ;STORE AC 1 U 1505, 1515,3440,0404,1174,4007,0700,0400,0000,1441 ; 2492 J/STAC ;GO STORE AC ; 2493 ; 2494 ;CASE 6 -- STORE DOUBLE BOTH (KA10 STYLE MEM_AR ONLY) ; 2495 1506: ; 2496 STDBTH: MEM WRITE, ;WAIT FOR MEMORY ; 2497 MEM_[AR], ;STORE AR U 1506, 1505,3333,0003,4175,5007,0701,0200,0000,0002 ; 2498 J/DAC ;NOW STORE AC & AC+1 ; 2499 ; 2500 ;CASE 7 -- RESERVED ; 2501 ;1507: ; 2502 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 69 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 THE INSTRUCTION LOOP -- STORE ANSWERS ; 2503 ;CASE 10 -- RESERVED ; 2504 ;1510: ; 2505 ; 2506 ;CASE 11 -- RESERVED ; 2507 ;1511: ; 2508 ; 2509 ;CASE 12 -- RESERVED ; 2510 ;1512: ; 2511 ; 2512 ;CASE 13 -- RESERVED ; 2513 ;1513: ; 2514 ; 2515 ;CASE 14 -- RESERVED ; 2516 1514: ; 2517 FL-BWRITE: ;THE NEXT 4 CASES ARE ALSO ; 2518 ;USED IN FLOATING POINT U 1514, 0104,4751,1217,4374,4007,0700,0000,0000,1000 ; 2519 HALT [BW14] ; 2520 ; 2521 ;CASE 15 -- STORE AC ; 2522 1515: ; 2523 STAC: AC_[AR], ;STORE AC U 1515, 0100,3440,0303,0174,4156,4700,0400,0000,0000 ; 2524 NEXT INST ;DO NEXT INSTRUCTION ; 2525 ; 2526 ;CASE 16 -- STORE IN MEMORY ; 2527 1516: ; 2528 STMEM: MEM WRITE, ;WAIT FOR MEMORY ; 2529 MEM_[AR], ;STORE AR U 1516, 1400,3333,0003,4175,5007,0701,0200,0000,0002 ; 2530 J/DONE ;START FETCH OF NEXT ; 2531 ; 2532 ;CASE 17 -- STORE BOTH ; 2533 1517: ; 2534 STBOTH: MEM WRITE, ;WAIT FOR MEMORY ; 2535 MEM_[AR], ;STORE AR U 1517, 1515,3333,0003,4175,5007,0701,0200,0000,0002 ; 2536 J/STAC ;NOW STORE AC ; 2537 ; 2538 =0 ; 2539 STBTH1: MEM WRITE, ;WAIT FOR MEMORY ; 2540 MEM_[AR], ;STORE AR U 0434, 1515,3333,0003,4175,5007,0701,0200,0000,0002 ; 2541 J/STAC ;NOW STORE AC ; 2542 STORE: MEM WRITE, ;WAIT FOR MEMORY ; 2543 MEM_[AR], ;STORE AC U 0435, 1400,3333,0003,4175,5007,0701,0200,0000,0002 ; 2544 J/DONE ;START NEXT INST ; 2545 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 70 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 MOVE GROUP ; 2546 .TOC "MOVE GROUP" ; 2547 ; 2548 .DCODE D 0200, 1015,1515,1100 ; 2549 200: R-PF, AC, J/STAC ;MOVE D 0201, 0015,1515,3000 ; 2550 I-PF, AC, J/STAC ;MOVEI D 0202, 0116,1404,0700 ; 2551 W, M, J/MOVE ;MOVEM D 0203, 0004,1504,1700 ; 2552 RW, S, J/STSELF ;MOVES ; 2553 D 0204, 1015,1402,1100 ; 2554 204: R-PF, AC, J/MOVS ;MOVS D 0205, 0015,1402,3000 ; 2555 I-PF, AC, J/MOVS ;MOVSI D 0206, 0116,1402,0700 ; 2556 W, M, J/MOVS ;MOVSM D 0207, 0004,1402,1700 ; 2557 RW, S, J/MOVS ;MOVSS ; 2558 D 0210, 1015,1405,1100 ; 2559 210: R-PF, AC, J/MOVN ;MOVN D 0211, 0015,1405,3000 ; 2560 I-PF, AC, J/MOVN ;MOVNI D 0212, 0116,1405,0700 ; 2561 W, M, J/MOVN ;MOVNM D 0213, 0004,1405,1700 ; 2562 RW, S, J/MOVN ;MOVNS ; 2563 D 0214, 1015,1403,1100 ; 2564 214: R-PF, AC, J/MOVM ;MOVM D 0215, 0015,1515,3000 ; 2565 I-PF, AC, J/STAC ;MOVMI D 0216, 0116,1403,0700 ; 2566 W, M, J/MOVM ;MOVMM D 0217, 0004,1403,1700 ; 2567 RW, S, J/MOVM ;MOVNS ; 2568 .UCODE ; 2569 ; 2570 1402: U 1402, 1500,3770,0303,4344,4003,7700,0200,0003,0001 ; 2571 MOVS: [AR]_[AR] SWAP,EXIT ; 2572 ; 2573 1403: U 1403, 1404,3333,0003,4174,4007,0520,0000,0000,0000 ; 2574 MOVM: READ [AR], SKIP DP0, J/MOVE ; 2575 ; 2576 1404: U 1404, 1500,4443,0000,4174,4003,7700,0200,0003,0001 ; 2577 MOVE: EXIT ; 2578 1405: ; 2579 MOVN: [AR]_-[AR], ;NEGATE NUMBER ; 2580 AD FLAGS, 3T, ;UPDATE FLAGS U 1405, 1404,2441,0303,4174,4467,0701,4000,0001,0001 ; 2581 J/MOVE ;STORE ANSWER ; 2582 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 71 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 EXCH ; 2583 .TOC "EXCH" ; 2584 ; 2585 .DCODE D 0250, 0015,1406,1500 ; 2586 250: R,W TEST, AC, J/EXCH ; 2587 .UCODE ; 2588 ; 2589 1406: ; 2590 EXCH: [BR]_AC, ;COPY AC TO THE BR U 1406, 0506,3771,0005,0276,6007,0700,0200,0003,0002 ; 2591 START WRITE ;START A WRITE CYCLE ; 2592 MEM WRITE, ;COMPLETE WRITE CYCLE ; 2593 MEM_[BR], ;STORE BR (AC) IN MEMORY U 0506, 1515,3333,0005,4175,5007,0701,0200,0000,0002 ; 2594 J/STAC ;STORE THE AR IN AC. NOTE: AR ; 2595 ; WAS LOADED WITH MEMORY OPERAND ; 2596 ; AS PART OF INSTRUCTION DISPATCH ; 2597 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 72 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 HALFWORD GROUP ; 2598 .TOC "HALFWORD GROUP" ; 2599 ; DESTINATION LEFT HALF ; 2600 ; 2601 .DCODE D 0500, 1015,1410,1100 ; 2602 500: R-PF, AC, J/HLL D 0501, 0015,1410,3000 ; 2603 I-PF, AC, J/HLL D 0502, 0016,1407,1700 ; 2604 RW, M, J/HRR ;HLLM = HRR EXCEPT FOR STORE D 0503, 0004,1404,1700 ; 2605 RW, S, J/MOVE ;HLLS = MOVES ; 2606 D 0504, 1015,1411,1100 ; 2607 R-PF, AC, J/HRL D 0505, 0015,1411,3000 ; 2608 I-PF, AC, J/HRL D 0506, 0016,1413,1700 ; 2609 RW, M, J/HRLM D 0507, 0004,1414,1700 ; 2610 RW, S, J/HRLS ; 2611 D 0510, 1015,1432,1100 ; 2612 510: R-PF, AC, J/HLLZ D 0511, 0015,1432,3000 ; 2613 I-PF, AC, J/HLLZ D 0512, 0116,1432,0700 ; 2614 W, M, J/HLLZ D 0513, 0004,1432,1700 ; 2615 RW, S, J/HLLZ ; 2616 D 0514, 1015,1424,1100 ; 2617 R-PF, AC, J/HRLZ D 0515, 0015,1424,3000 ; 2618 I-PF, AC, J/HRLZ D 0516, 0116,1424,0700 ; 2619 W, M, J/HRLZ D 0517, 0004,1424,1700 ; 2620 RW, S, J/HRLZ ; 2621 D 0520, 1015,1433,1100 ; 2622 520: R-PF, AC, J/HLLO D 0521, 0015,1433,3000 ; 2623 I-PF, AC, J/HLLO D 0522, 0116,1433,0700 ; 2624 W, M, J/HLLO D 0523, 0004,1433,1700 ; 2625 RW, S, J/HLLO ; 2626 D 0524, 1015,1425,1100 ; 2627 R-PF, AC, J/HRLO D 0525, 0015,1425,3000 ; 2628 I-PF, AC, J/HRLO D 0526, 0116,1425,0700 ; 2629 W, M, J/HRLO D 0527, 0004,1425,1700 ; 2630 RW, S, J/HRLO ; 2631 D 0530, 1015,1430,1100 ; 2632 530: R-PF, AC, J/HLLE D 0531, 0015,1430,3000 ; 2633 I-PF, AC, J/HLLE D 0532, 0116,1430,0700 ; 2634 W, M, J/HLLE D 0533, 0004,1430,1700 ; 2635 RW, S, J/HLLE ; 2636 D 0534, 1015,1422,1100 ; 2637 R-PF, AC, J/HRLE D 0535, 0015,1422,3000 ; 2638 I-PF, AC, J/HRLE D 0536, 0116,1422,0700 ; 2639 W, M, J/HRLE D 0537, 0004,1422,1700 ; 2640 RW, S, J/HRLE ; 2641 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 73 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 HALFWORD GROUP ; 2642 ; DESTINATION RIGHT HALF ; 2643 D 0540, 1015,1407,1100 ; 2644 540: R-PF, AC, J/HRR D 0541, 0015,1407,3000 ; 2645 I-PF, AC, J/HRR D 0542, 0016,1410,1700 ; 2646 RW, M, J/HLL ;HRRM = HLL EXCEPT FOR STORE D 0543, 0004,1404,1700 ; 2647 RW, S, J/MOVE ;HRRS = MOVES ; 2648 D 0544, 1015,1412,1100 ; 2649 R-PF, AC, J/HLR D 0545, 0015,1412,3000 ; 2650 I-PF, AC, J/HLR D 0546, 0016,1415,1700 ; 2651 RW, M, J/HLRM D 0547, 0004,1416,1700 ; 2652 RW, S, J/HLRS ; 2653 D 0550, 1015,1420,1100 ; 2654 550: R-PF, AC, J/HRRZ D 0551, 0015,1420,3000 ; 2655 I-PF, AC, J/HRRZ D 0552, 0116,1420,0700 ; 2656 W, M, J/HRRZ D 0553, 0004,1420,1700 ; 2657 RW, S, J/HRRZ ; 2658 D 0554, 1015,1426,1100 ; 2659 R-PF, AC, J/HLRZ D 0555, 0015,1426,3000 ; 2660 I-PF, AC, J/HLRZ D 0556, 0116,1426,0700 ; 2661 W, M, J/HLRZ D 0557, 0004,1426,1700 ; 2662 RW, S, J/HLRZ ; 2663 D 0560, 1015,1421,1100 ; 2664 560: R-PF, AC, J/HRRO D 0561, 0015,1421,3000 ; 2665 I-PF, AC, J/HRRO D 0562, 0116,1421,0700 ; 2666 W, M, J/HRRO D 0563, 0004,1421,1700 ; 2667 RW, S, J/HRRO ; 2668 D 0564, 1015,1427,1100 ; 2669 R-PF, AC, J/HLRO D 0565, 0015,1427,3000 ; 2670 I-PF, AC, J/HLRO D 0566, 0116,1427,0700 ; 2671 W, M, J/HLRO D 0567, 0004,1427,1700 ; 2672 RW, S, J/HLRO ; 2673 D 0570, 1015,1417,1100 ; 2674 570: R-PF, AC, J/HRRE D 0571, 0015,1417,3000 ; 2675 I-PF, AC, J/HRRE D 0572, 0116,1417,0700 ; 2676 W, M, J/HRRE D 0573, 0004,1417,1700 ; 2677 RW, S, J/HRRE ; 2678 D 0574, 1015,1423,1100 ; 2679 R-PF, AC, J/HLRE D 0575, 0015,1423,3000 ; 2680 I-PF, AC, J/HLRE D 0576, 0116,1423,0700 ; 2681 W, M, J/HLRE D 0577, 0004,1423,1700 ; 2682 RW, S, J/HLRE ; 2683 ; 2684 .UCODE ; 2685 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 74 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 HALFWORD GROUP ; 2686 ;FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE ; 2687 ; 2688 ;THE AR CONTAINS THE MEMORY OPERAND. SO WE WANT TO PUT THE LH OF ; 2689 ; AC INTO AR TO DO A HRR. OBVIOUS THING FOR HLL. ; 2690 1407: U 1407, 1500,3771,0003,0276,0003,7700,0200,0003,0001 ; 2691 HRR: [AR]_AC,HOLD RIGHT,EXIT ; 2692 1410: U 1410, 1500,3771,0003,0270,6003,7700,0200,0003,0001 ; 2693 HLL: [AR]_AC,HOLD LEFT,EXIT ; 2694 ; 2695 ;HRL FLOW: ; 2696 ;AT HRL AR CONTAINS: ; 2697 ; ; 2698 ; !------------------!------------------! ; 2699 ; ! LH OF (E) ! RH OF (E) ! ; 2700 ; !------------------!------------------! ; 2701 ; ; 2702 ;AR_AR SWAP GIVES: ; 2703 ; ; 2704 ; !------------------!------------------! ; 2705 ; ! RH OF (E) ! LH OF (E) ! ; 2706 ; !------------------!------------------! ; 2707 ; ; 2708 ;AT HLL, AR_AC,HOLD LEFT GIVES: ; 2709 ; ; 2710 ; !------------------!------------------! ; 2711 ; ! RH OF (E) ! RH OF AC ! ; 2712 ; !------------------!------------------! ; 2713 ; ; 2714 ;THE EXIT MACRO CAUSES THE AR TO BE STORED IN AC (AT STAC). ; 2715 ; THE REST OF THE HALF WORD IN THIS GROUP ARE VERY SIMILAR. ; 2716 ; 2717 1411: U 1411, 1410,3770,0303,4344,4007,0700,0000,0000,0000 ; 2718 HRL: [AR]_[AR] SWAP,J/HLL ; 2719 1412: U 1412, 1407,3770,0303,4344,4007,0700,0000,0000,0000 ; 2720 HLR: [AR]_[AR] SWAP,J/HRR ; 2721 ; 2722 1413: U 1413, 0511,3770,0303,4344,4007,0700,0000,0000,0000 ; 2723 HRLM: [AR]_[AR] SWAP U 0511, 1402,3771,0003,0270,6007,0700,0000,0000,0000 ; 2724 [AR]_AC,HOLD LEFT,J/MOVS ; 2725 1414: U 1414, 1500,3770,0303,4344,0003,7700,0200,0003,0001 ; 2726 HRLS: [AR]_[AR] SWAP,HOLD RIGHT,EXIT ; 2727 ; 2728 1415: U 1415, 0512,3770,0303,4344,4007,0700,0000,0000,0000 ; 2729 HLRM: [AR]_[AR] SWAP U 0512, 1402,3771,0003,0276,0007,0700,0000,0000,0000 ; 2730 [AR]_AC,HOLD RIGHT,J/MOVS ; 2731 1416: U 1416, 1500,3770,0303,4340,4003,7700,0200,0003,0001 ; 2732 HLRS: [AR]_[AR] SWAP,HOLD LEFT,EXIT ; 2733 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 75 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 HALFWORD GROUP ; 2734 ;NOW THE HALFWORD OPS WHICH CONTROL THE "OTHER" HALF. ; 2735 ; ENTER WITH 0,,E (E) OR (AC) IN AR ; 2736 ; 2737 1417: U 1417, 1420,3333,0003,4174,4007,0530,0000,0000,0000 ; 2738 HRRE: READ [AR],SKIP DP18 ; 2739 1420: U 1420, 1500,5731,0003,4174,4003,7700,0200,0003,0001 ; 2740 HRRZ: [AR] LEFT_0, EXIT ; 2741 1421: U 1421, 1500,5431,1203,4174,4003,7700,0200,0003,0001 ; 2742 HRRO: [AR] LEFT_-1, EXIT ; 2743 ; 2744 1422: U 1422, 1424,3333,0003,4174,4007,0530,0000,0000,0000 ; 2745 HRLE: READ [AR],SKIP DP18 ; 2746 1424: U 1424, 1402,3771,0003,4374,0007,0700,0000,0000,0000 ; 2747 HRLZ: [AR]_#,#/0,HOLD RIGHT,J/MOVS ; 2748 1425: U 1425, 1402,3771,0003,4374,0007,0700,0000,0077,7777 ; 2749 HRLO: [AR]_#,#/777777,HOLD RIGHT,J/MOVS ; 2750 ; 2751 1423: U 1423, 1426,3333,0003,4174,4007,0520,0000,0000,0000 ; 2752 HLRE: READ [AR],SKIP DP0 ; 2753 1426: U 1426, 1402,3771,0003,4370,4007,0700,0000,0000,0000 ; 2754 HLRZ: [AR]_#,#/0,HOLD LEFT,J/MOVS ; 2755 1427: U 1427, 1402,3771,0003,4370,4007,0700,0000,0077,7777 ; 2756 HLRO: [AR]_#,#/777777,HOLD LEFT,J/MOVS ; 2757 ; 2758 1430: U 1430, 1432,3333,0003,4174,4007,0520,0000,0000,0000 ; 2759 HLLE: READ [AR],SKIP DP0 ; 2760 1432: U 1432, 1500,5371,0003,4174,4003,7700,0200,0003,0001 ; 2761 HLLZ: [AR] RIGHT_0, EXIT ; 2762 1433: U 1433, 1500,5341,1203,4174,4003,7700,0200,0003,0001 ; 2763 HLLO: [AR] RIGHT_-1, EXIT ; 2764 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 76 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 DMOVE, DMOVN, DMOVEM, DMOVNM ; 2765 .TOC "DMOVE, DMOVN, DMOVEM, DMOVNM" ; 2766 ; 2767 .DCODE D 0120, 0205,1505,1100 ; 2768 120: DBL R, DAC, J/DAC D 0121, 0215,1434,1100 ; 2769 DBL R, AC, J/DMOVN ; 2770 .UCODE ; 2771 ; 2772 1434: U 1434, 3070,4551,0404,4374,0007,0700,0010,0037,7777 ; 2773 DMOVN: CLEAR ARX0, CALL [DBLNGA] U 1436, 1515,3440,0404,1174,4007,0700,0400,0000,1441 ; 2774 1436: AC[1]_[ARX], J/STAC ; 2775 ; 2776 .DCODE D 0124, 0300,1567,0100 ; 2777 124: DBL AC, J/DMOVN1 D 0125, 0100,1565,0500 ; 2778 W, J/DMOVNM ; 2779 .UCODE ; 2780 ; 2781 ; 2782 1565: U 1565, 3067,3771,0004,1276,6007,0701,0010,0000,1441 ; 2783 DMOVNM: [ARX]_AC[1],CALL [DBLNEG] ; 2784 1567: ; 2785 DMOVN1: [HR]+[ONE], ;GET E+1 ; 2786 LOAD VMA, ;PUT THAT IN VMA ; 2787 START WRITE, ;STORE IN E+1 U 1567, 0531,0113,0207,4174,4007,0700,0200,0003,0312 ; 2788 PXCT DATA ;DATA CYCLE U 0531, 0532,3333,0004,4175,5007,0701,0200,0000,0002 ; 2789 MEM WRITE, MEM_[ARX] ;STORE LOW WORD ; 2790 VMA_[HR], ;GET E ; 2791 LOAD VMA, ;SAVE IN VMA ; 2792 PXCT DATA, ;OPERAND STORE ; 2793 START WRITE, ;START MEM CYCLE U 0532, 0435,3443,0200,4174,4007,0700,0200,0003,0312 ; 2794 J/STORE ;GO STORE AR ; 2795 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 77 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BOOLEAN GROUP ; 2796 .TOC "BOOLEAN GROUP" ; 2797 ; 2798 .DCODE D 0400, 0015,1441,3000 ; 2799 400: I-PF, AC, J/SETZ D 0401, 0015,1441,3000 ; 2800 I-PF, AC, J/SETZ D 0402, 0016,1441,2700 ; 2801 IW, M, J/SETZ D 0403, 0017,1441,2700 ; 2802 IW, B, J/SETZ ; 2803 .UCODE ; 2804 ; 2805 1441: U 1441, 1500,4221,0003,4174,4003,7700,0200,0003,0001 ; 2806 SETZ: [AR]_0, EXIT ; 2807 ; 2808 .DCODE D 0404, 1015,1442,1100 ; 2809 404: R-PF, AC, J/AND D 0405, 0015,1442,3000 ; 2810 I-PF, AC, J/AND D 0406, 0016,1442,1700 ; 2811 RW, M, J/AND D 0407, 0017,1442,1700 ; 2812 RW, B, J/AND ; 2813 .UCODE ; 2814 ; 2815 1442: U 1442, 1500,4551,0303,0274,4003,7700,0200,0003,0001 ; 2816 AND: [AR]_[AR].AND.AC,EXIT ; 2817 ; 2818 .DCODE D 0410, 1015,1443,1100 ; 2819 410: R-PF, AC, J/ANDCA D 0411, 0015,1443,3000 ; 2820 I-PF, AC, J/ANDCA D 0412, 0016,1443,1700 ; 2821 RW, M, J/ANDCA D 0413, 0017,1443,1700 ; 2822 RW, B, J/ANDCA ; 2823 .UCODE ; 2824 ; 2825 1443: U 1443, 1500,5551,0303,0274,4003,7700,0200,0003,0001 ; 2826 ANDCA: [AR]_[AR].AND.NOT.AC,EXIT ; 2827 ; 2828 .DCODE D 0414, 1015,1404,1100 ; 2829 414: R-PF, AC, J/MOVE ;SETM = MOVE D 0415, 0015,1404,3000 ; 2830 I-PF, AC, J/MOVE D 0416, 0016,1404,1700 ; 2831 RW, M, J/MOVE ;SETMM = NOP THAT WRITES MEMORY D 0417, 0017,1404,1700 ; 2832 RW, B, J/MOVE ;SETMB = MOVE THAT WRITES MEMORY ; 2833 D 0420, 1015,1444,1100 ; 2834 420: R-PF, AC, J/ANDCM D 0421, 0015,1444,3000 ; 2835 I-PF, AC, J/ANDCM D 0422, 0016,1444,1700 ; 2836 RW, M, J/ANDCM D 0423, 0017,1444,1700 ; 2837 RW, B, J/ANDCM ; 2838 .UCODE ; 2839 ; 2840 1444: U 1444, 1442,7441,0303,4174,4007,0700,0000,0000,0000 ; 2841 ANDCM: [AR]_.NOT.[AR],J/AND ; 2842 ; 2843 .DCODE D 0424, 0000,1400,1100 ; 2844 424: R, J/DONE D 0425, 0000,1400,2100 ; 2845 I, J/DONE D 0426, 0116,1404,0700 ; 2846 W, M, J/MOVE ;SETAM = MOVEM D 0427, 0116,1404,0700 ; 2847 W, M, J/MOVE ;SETAB, TOO ; 2848 .UCODE ; 2849 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 78 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BOOLEAN GROUP ; 2850 .DCODE D 0430, 1015,1445,1100 ; 2851 430: R-PF, AC, J/XOR D 0431, 0015,1445,3000 ; 2852 I-PF, AC, J/XOR D 0432, 0016,1445,1700 ; 2853 RW, M, J/XOR D 0433, 0017,1445,1700 ; 2854 RW, B, J/XOR ; 2855 .UCODE ; 2856 ; 2857 1445: U 1445, 1500,6551,0303,0274,4003,7700,0200,0003,0001 ; 2858 XOR: [AR]_[AR].XOR.AC,EXIT ; 2859 ; 2860 .DCODE D 0434, 1015,1446,1100 ; 2861 434: R-PF, AC, J/IOR D 0435, 0015,1446,3000 ; 2862 I-PF, AC, J/IOR D 0436, 0016,1446,1700 ; 2863 RW, M, J/IOR D 0437, 0017,1446,1700 ; 2864 RW, B, J/IOR ; 2865 .UCODE ; 2866 ; 2867 1446: U 1446, 1500,3551,0303,0274,4003,7700,0200,0003,0001 ; 2868 IOR: [AR]_[AR].OR.AC,EXIT ; 2869 ; 2870 .DCODE D 0440, 1015,1447,1100 ; 2871 440: R-PF, AC, J/ANDCB D 0441, 0015,1447,3000 ; 2872 I-PF, AC, J/ANDCB D 0442, 0016,1447,1700 ; 2873 RW, M, J/ANDCB D 0443, 0017,1447,1700 ; 2874 RW, B, J/ANDCB ; 2875 .UCODE ; 2876 ; 2877 1447: U 1447, 1443,7441,0303,4174,4007,0700,0000,0000,0000 ; 2878 ANDCB: [AR]_.NOT.[AR],J/ANDCA ; 2879 ; 2880 .DCODE D 0444, 1015,1450,1100 ; 2881 444: R-PF, AC, J/EQV D 0445, 0015,1450,3000 ; 2882 I-PF, AC, J/EQV D 0446, 0016,1450,1700 ; 2883 RW, M, J/EQV D 0447, 0017,1450,1700 ; 2884 RW, B, J/EQV ; 2885 .UCODE ; 2886 ; 2887 1450: U 1450, 1500,7551,0303,0274,4003,7700,0200,0003,0001 ; 2888 EQV: [AR]_[AR].EQV.AC,EXIT ; 2889 ; 2890 .DCODE D 0450, 0015,1451,3000 ; 2891 450: I-PF, AC, J/SETCA D 0451, 0015,1451,3000 ; 2892 I-PF, AC, J/SETCA D 0452, 0016,1451,2700 ; 2893 IW, M, J/SETCA D 0453, 0017,1451,2700 ; 2894 IW, B, J/SETCA ; 2895 .UCODE ; 2896 ; 2897 1451: U 1451, 1500,7771,0003,0274,4003,7700,0200,0003,0001 ; 2898 SETCA: [AR]_.NOT.AC,EXIT ; 2899 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 79 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BOOLEAN GROUP ; 2900 .DCODE D 0454, 1015,1452,1100 ; 2901 454: R-PF, AC, J/ORCA D 0455, 0015,1452,3000 ; 2902 I-PF, AC, J/ORCA D 0456, 0016,1452,1700 ; 2903 RW, M, J/ORCA D 0457, 0017,1452,1700 ; 2904 RW, B, J/ORCA ; 2905 .UCODE ; 2906 ; 2907 1452: U 1452, 0564,7771,0005,0274,4007,0700,0000,0000,0000 ; 2908 ORCA: [BR]_.NOT.AC U 0564, 1500,3111,0503,4174,4003,7700,0200,0003,0001 ; 2909 [AR]_[AR].OR.[BR],EXIT ; 2910 ; 2911 .DCODE D 0460, 1015,1453,1100 ; 2912 460: R-PF, AC, J/SETCM D 0461, 0015,1453,3000 ; 2913 I-PF, AC, J/SETCM D 0462, 0016,1453,1700 ; 2914 RW, M, J/SETCM D 0463, 0017,1453,1700 ; 2915 RW, B, J/SETCM ; 2916 .UCODE ; 2917 ; 2918 1453: U 1453, 1500,7441,0303,4174,4003,7700,0200,0003,0001 ; 2919 SETCM: [AR]_.NOT.[AR],EXIT ; 2920 ; 2921 .DCODE D 0464, 1015,1454,1100 ; 2922 464: R-PF, AC, J/ORCM D 0465, 0015,1454,3000 ; 2923 I-PF, AC, J/ORCM D 0466, 0016,1454,1700 ; 2924 RW, M, J/ORCM D 0467, 0017,1454,1700 ; 2925 RW, B, J/ORCM ; 2926 .UCODE ; 2927 ; 2928 1454: U 1454, 1446,7441,0303,4174,4007,0700,0000,0000,0000 ; 2929 ORCM: [AR]_.NOT.[AR],J/IOR ; 2930 ; 2931 .DCODE D 0470, 1015,1455,1100 ; 2932 470: R-PF, AC, J/ORCB D 0471, 0015,1455,3000 ; 2933 I-PF, AC, J/ORCB D 0472, 0016,1455,1700 ; 2934 RW, M, J/ORCB D 0473, 0017,1455,1700 ; 2935 RW, B, J/ORCB ; 2936 .UCODE ; 2937 ; 2938 1455: U 1455, 1453,4551,0303,0274,4007,0700,0000,0000,0000 ; 2939 ORCB: [AR]_[AR].AND.AC,J/SETCM ; 2940 ; 2941 .DCODE D 0474, 0015,1456,3000 ; 2942 474: I-PF, AC, J/SETO D 0475, 0015,1456,3000 ; 2943 I-PF, AC, J/SETO D 0476, 0016,1456,2700 ; 2944 IW, M, J/SETO D 0477, 0017,1456,2700 ; 2945 IW, B, J/SETO ; 2946 .UCODE ; 2947 ; 2948 1456: U 1456, 1500,2441,0703,4174,4003,7700,4200,0003,0001 ; 2949 SETO: [AR]_-[ONE], EXIT ; 2950 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 80 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 2951 .TOC "ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO" ; 2952 ; 2953 .DCODE D 0240, 0400,1622,1000 ; 2954 240: SH, J/ASH D 0241, 0400,1632,1000 ; 2955 SH, J/ROT D 0242, 0400,1612,1000 ; 2956 SH, J/LSH D 0243, 0000,1462,2100 ; 2957 I, J/JFFO D 0244, 0000,1466,3000 ; 2958 I-PF, J/ASHC D 0245, 0500,1470,1000 ; 2959 245: SHC, J/ROTC D 0246, 0500,1464,1000 ; 2960 SHC, J/LSHC ; 2961 .UCODE ; 2962 ; 2963 ; 2964 ;HERE IS THE CODE FOR LOGICAL SHIFT. THE EFFECTIVE ADDRESS IS ; 2965 ; IN AR. ; 2966 1612: ; 2967 LSH: [AR]_AC, ;PICK UP AC ; 2968 FE_-FE-1, ;NEGATIVE SHIFT U 1612, 0572,3771,0003,0276,6007,0700,1000,0031,1777 ; 2969 J/LSHL ;SHIFT LEFT ; 2970 1613: [AR]_AC.AND.MASK, ;MAKE IT LOOK POSITIVE ; 2971 FE_FE+1, ;UNDO -1 AT SHIFT U 1613, 0611,4551,1203,0276,6007,0700,1000,0041,0001 ; 2972 J/ASHR ;GO SHIFT RIGHT ; 2973 ; 2974 LSHL: [AR]_[AR]*2, ;SHIFT LEFT U 0572, 1515,3445,0303,4174,4007,0700,1020,0041,0001 ; 2975 SHIFT, J/STAC ;FAST SHIFT & GO STORE AC ; 2976 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 81 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 2977 ;HERE IS THE CODE FOR ARITHMETIC SHIFT. THE EFFECTIVE ADDRESS IS ; 2978 ; IN AR. ; 2979 ; 2980 ASH36 LEFT "[AR]_[AR]*2 LONG, ASHC, STEP SC, ASH AROV" ; 2981 ; 2982 1622: U 1622, 0632,4222,0000,4174,4007,0700,0000,0000,0000 ; 2983 ASH: Q_0, J/ASHL0 ;HARDWARE ONLY DOES ASHC ; 2984 1623: [AR]_AC, ;GET THE ARGUMENT U 1623, 0611,3771,0003,0276,6007,0700,1000,0041,0001 ; 2985 FE_FE+1 ;FE HAS NEGATIVE SHIFT COUNT ; 2986 ASHR: [AR]_[AR]*.5, ;SHIFT RIGHT ; 2987 ASH, SHIFT, ;FAST SHIFT U 0611, 1515,3447,0303,4174,4007,0700,1020,0041,0001 ; 2988 J/STAC ;STORE AC WHEN DONE ; 2989 ; 2990 ASHL0: [AR]_AC*.5, ;GET INTO 9 CHIPS U 0632, 0454,3777,0003,0274,4007,0631,2000,0060,0000 ; 2991 STEP SC ;SEE IF NULL SHIFT ; 2992 =0 U 0454, 0454,3444,0303,4174,4447,0630,2000,0060,0000 ; 2993 ASHL: ASH36 LEFT, J/ASHL ;SHIFT LEFT ; 2994 ;SLOW BECAUSE WE HAVE TO ; 2995 ; TEST FOR OVERFLOW ; 2996 U 0455, 1515,3445,0303,4174,4007,0700,0000,0000,0000 ; 2997 ASHX: [AR]_[AR]*2, J/STAC ;SHIFT BACK INTO 10 CHIPS ; 2998 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 82 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 2999 ;HERE IS THE CODE FOR ROTATE. THE EFFECTIVE ADDRESS IS ; 3000 ; IN AR. ; 3001 1632: ; 3002 ROT: [AR]_AC*.5, ;PICK UP THE AC (& SHIFT) ; 3003 FE_-FE-1, ;NEGATIVE SHIFT COUNT U 1632, 0747,3777,0003,0274,4007,0701,1000,0031,1777 ; 3004 J/ROTL ;ROTATE LEFT ; 3005 1633: [AR]_AC*.5, ;PICK UP THE AC (& SHIFT) U 1633, 0646,3777,0003,0274,4007,0701,1000,0041,0001 ; 3006 FE_FE+1 ;NEGATIVE SHIFT COUNT U 0646, 0701,3447,0303,4174,4007,0700,0000,0000,0000 ; 3007 [AR]_[AR]*.5 ;PUT IN 9 DIPS ; 3008 [AR]_[AR]*.5, ;SHIFT RIGHT U 0701, 0706,3447,0303,4174,4037,0700,1020,0041,0001 ; 3009 ROT, SHIFT ;FAST SHIFT U 0706, 0455,3445,0303,4174,4007,0700,0000,0000,0000 ; 3010 ASHXX: [AR]_[AR]*2,J/ASHX ;SHIFT TO STD PLACE ; 3011 U 0747, 0752,3447,0303,4174,4007,0700,0000,0000,0000 ; 3012 ROTL: [AR]_[AR]*.5 ;PUT IN RIGHT 36-BITS ; 3013 [AR]_[AR]*2, ;ROTATE LEFT ; 3014 ROT, SHIFT, ;FAST SHIFT U 0752, 0706,3445,0303,4174,4037,0700,1020,0041,0001 ; 3015 J/ASHXX ;ALL DONE--SHIFT BACK ; 3016 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 83 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- ROT, LSH, JFFO ; 3017 1462: ; 3018 JFFO: [BR]_AC.AND.MASK, 4T, ;GET AC WITH NO SIGN U 1462, 0502,4551,1205,0276,6007,0622,0000,0000,0000 ; 3019 SKIP AD.EQ.0 ; EXTENSION. SKIP IF ; 3020 ; ZERO. ; 3021 =0 [PC]_[AR], ;NOT ZERO--JUMP ; 3022 LOAD VMA, FETCH, ;GET NEXT INST U 0502, 0767,3441,0301,4174,4007,0700,0200,0014,0012 ; 3023 J/JFFO1 ;ENTER LOOP U 0503, 1400,4223,0000,1174,4007,0700,0400,0000,1441 ; 3024 AC[1]_0, J/DONE ;ZERO--DONE ; 3025 U 0767, 0514,4443,0000,4174,4007,0700,1000,0071,1764 ; 3026 JFFO1: FE_-12. ;WHY -12.? WELL THE ; 3027 ; HARDWARE LOOKS AT ; 3028 ; BIT -2 SO THE FIRST ; 3029 ; 2 STEPS MOVE THE BR ; 3030 ; OVER. WE ALSO LOOK AT ; 3031 ; THE DATA BEFORE THE SHIFT ; 3032 ; SO WE END UP GOING 1 PLACE ; 3033 ; TOO MANY. THAT MEANS THE ; 3034 ; FE SHOULD START AT -3. ; 3035 ; HOWEVER, WE COUNT THE FE BY ; 3036 ; 4 (BECAUSE THE 2 LOW ORDER ; 3037 ; BITS DO NOT COME BACK) SO ; 3038 ; FE_-12. ; 3039 =0 ; 3040 JFFOL: [BR]_[BR]*2, ;SHIFT LEFT ; 3041 FE_FE+4, ;COUNT UP BIT NUMBER U 0514, 0514,3445,0505,4174,4007,0520,1000,0041,0004 ; 3042 SKIP DP0, J/JFFOL ;LOOP TILL WE FIND THE BIT U 0515, 1006,3777,0003,4334,4057,0700,0000,0041,0000 ; 3043 [AR]_FE ;GET ANSWER BACK U 1006, 1023,4251,0303,4374,4007,0700,0000,0000,0077 ; 3044 [AR]_[AR].AND.# CLR LH,#/77 ;MASK TO 1 COPY U 1023, 0100,3440,0303,1174,4156,4700,0400,0000,1441 ; 3045 AC[1]_[AR], NEXT INST ;STORE AND EXIT ; 3046 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 84 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- LSHC ; 3047 .TOC "ROTATES AND LOGICAL SHIFTS -- LSHC" ; 3048 ; 3049 ;SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "LSHC" IS DONE: ; 3050 ; ; 3051 ; !-! !----!------------------------------------! ; 3052 ; !0!-->!0000! HIGH ORDER 36 BITS ! RAM FILE ; 3053 ; !-! !----!------------------------------------! ; 3054 ; ^ ; 3055 ; : ; 3056 ; .................................... ; 3057 ; : ; 3058 ; !----!------------------------------------! ; 3059 ; !0000! LOW ORDER 36 BITS ! Q-REGISTER ; 3060 ; !----!------------------------------------! ; 3061 ; ^ ; 3062 ; : ; 3063 ; !-! ; 3064 ; !0! ; 3065 ; !-! ; 3066 ; ; 3067 ; 3068 1464: U 1464, 0544,4443,0000,4174,4007,0630,2000,0060,0000 ; 3069 LSHC: STEP SC, J/LSHCL U 1465, 1026,3333,0003,4174,4007,0700,2000,0031,5777 ; 3070 1465: READ [AR], SC_-SHIFT-1 U 1026, 0534,4443,0000,4174,4007,0630,2000,0060,0000 ; 3071 STEP SC ; 3072 =0 U 0534, 0534,3446,0505,4174,4057,0630,2000,0060,0000 ; 3073 LSHCR: [BR]_[BR]*.5 LONG,STEP SC,LSHC,J/LSHCR U 0535, 1033,3444,0505,4174,4007,0700,0000,0000,0000 ; 3074 [BR]_[BR]*2 LONG,J/LSHCX ; 3075 ; 3076 =0 U 0544, 0544,3444,0505,4174,4057,0630,2000,0060,0000 ; 3077 LSHCL: [BR]_[BR]*2 LONG,LSHC,STEP SC,J/LSHCL U 0545, 1033,3444,0505,4174,4007,0700,0000,0000,0000 ; 3078 [BR]_[BR]*2 LONG U 1033, 1036,3444,0505,4174,4007,0700,0000,0000,0000 ; 3079 LSHCX: [BR]_[BR]*2 LONG U 1036, 1064,3440,0505,0174,4007,0700,0400,0000,0000 ; 3080 AC_[BR], J/ASHCQ1 ; 3081 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 85 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- ASHC ; 3082 .TOC "ROTATES AND LOGICAL SHIFTS -- ASHC" ; 3083 ; 3084 ; 3085 1466: ; 3086 ASHC: READ [AR], ;PUT AR ON DP ; 3087 SC_SHIFT, LOAD FE, ;PUT SHIFT IN BOTH SC AND FE U 1466, 0554,3333,0003,4174,4007,0330,3000,0041,4000 ; 3088 SKIP ADR.EQ.0 ;SEE IF NULL SHIFT ; 3089 =0 Q_AC[1], ;NOT NULL--GET LOW WORD U 0554, 1046,3772,0000,1275,5007,0701,0000,0000,1441 ; 3090 J/ASHC1 ;CONTINUE BELOW U 0555, 0100,4443,0000,4174,4156,4700,0000,0000,0000 ; 3091 NIDISP: NEXT INST ;NULL--ALL DONE ; 3092 ASHC1: [BR]_AC*.5 LONG, ;GET HIGH WORD ; 3093 ;AND SHIFT Q U 1046, 0614,3776,0005,0274,4007,0631,0000,0000,0000 ; 3094 SKIP/SC ;SEE WHICH DIRECTION ; 3095 =0 [BR]_[BR]*.5, ;ADJUST POSITION ; 3096 SC_FE+S#, S#/1776, ;SUBRTACT 2 FROM FE U 0614, 0634,3447,0505,4174,4007,0700,2000,0041,1776 ; 3097 J/ASHCL ;GO LEFT ; 3098 [BR]_[BR]*.5, ;ADJUST POSITION U 0615, 0624,3447,0505,4174,4007,0700,2000,0031,1776 ; 3099 SC_S#-FE, S#/1776 ;SC_-2-FE, SC_+# OF STEPS ; 3100 =0 ;HERE TO GO RIGHT ; 3101 ASHCR: [BR]_[BR]*.5 LONG, ;GO RIGHT ; 3102 ASHC, ;SET DATA PATHS FOR ASHC (SEE DPE1) U 0624, 0624,3446,0505,4174,4047,0630,2000,0060,0000 ; 3103 STEP SC, J/ASHCR ;COUNT THE STEP AND KEEP LOOPING ; 3104 [BR]_[BR]*2 LONG, ;PUT BACK WHERE IT GOES U 0625, 1053,3444,0505,4174,4047,0700,0000,0000,0000 ; 3105 ASHC, J/ASHCX ;COMPLETE INSTRUCTION ; 3106 ; 3107 =0 ; 3108 ASHCL: [BR]_[BR]*2 LONG, ;GO LEFT ; 3109 ASHC, ASH AROV, ;SEE IF OVERFLOW U 0634, 0634,3444,0505,4174,4447,0630,2000,0060,0000 ; 3110 STEP SC, J/ASHCL ;LOOP OVER ALL PLACES ; 3111 [BR]_[BR]*2 LONG, ;SHIFT BACK WHERE IT GOES U 0635, 1053,3444,0505,4174,4447,0700,0000,0000,0000 ; 3112 ASHC, ASH AROV ;CAN STILL OVERFLOW ; 3113 ASHCX: AC_[BR]+[BR], 3T, ;PUT BACK HIGH WORD U 1053, 0642,0113,0505,0174,4007,0521,0400,0000,0000 ; 3114 SKIP DP0 ;SEE HOW TO FIX LOW SIGN ; 3115 =0 Q_Q.AND.#, #/377777, ;POSITIVE, CLEAR LOW SIGN U 0642, 1064,4662,0000,4374,0007,0700,0000,0037,7777 ; 3116 HOLD RIGHT, J/ASHCQ1 ;GO STORE ANSWER ; 3117 Q_Q.OR.#, #/400000, ;NEGATIVE, SET LOW SIGN U 0643, 1064,3662,0000,4374,0007,0700,0000,0040,0000 ; 3118 HOLD RIGHT ;IN LEFT HALF U 1064, 0100,3223,0000,1174,4156,4700,0400,0000,1441 ; 3119 ASHCQ1: AC[1]_Q, NEXT INST ;PUT BACK Q AND EXIT ; 3120 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 86 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ROTATES AND LOGICAL SHIFTS -- ROTC ; 3121 .TOC "ROTATES AND LOGICAL SHIFTS -- ROTC" ; 3122 ; 3123 ;SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "ROTC" IS DONE: ; 3124 ; ; 3125 ; !----!------------------------------------! ; 3126 ; .....>!0000! HIGH ORDER 36 BITS ! RAM FILE ; 3127 ; : !----!------------------------------------! ; 3128 ; : ^ ; 3129 ; : : ; 3130 ; : ............................................ ; 3131 ; : : ; 3132 ; : : !----!------------------------------------! ; 3133 ; : ..!0000! LOW ORDER 36 BITS ! Q-REGISTER ; 3134 ; : !----!------------------------------------! ; 3135 ; : ^ ; 3136 ; : : ; 3137 ; :..............................................: ; 3138 ; ; 3139 ; 3140 1470: U 1470, 0742,4443,0000,4174,4007,0630,2000,0060,0000 ; 3141 ROTC: STEP SC, J/ROTCL U 1471, 1077,3333,0003,4174,4007,0700,2000,0031,5777 ; 3142 1471: READ [AR], SC_-SHIFT-1 U 1077, 0644,4443,0000,4174,4007,0630,2000,0060,0000 ; 3143 STEP SC ; 3144 =0 U 0644, 0644,3446,0505,4174,4077,0630,2000,0060,0000 ; 3145 ROTCR: [BR]_[BR]*.5 LONG,STEP SC,ROTC,J/ROTCR U 0645, 1033,3444,0505,4174,4007,0700,0000,0000,0000 ; 3146 [BR]_[BR]*2 LONG,J/LSHCX ; 3147 ; 3148 =0 U 0742, 0742,3444,0505,4174,4077,0630,2000,0060,0000 ; 3149 ROTCL: [BR]_[BR]*2 LONG,ROTC,STEP SC,J/ROTCL ; 3150 [BR]_[BR]*2 LONG, U 0743, 1033,3444,0505,4174,4007,0700,0000,0000,0000 ; 3151 J/LSHCX ; 3152 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 87 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 TEST GROUP ; 3153 .TOC "TEST GROUP" ; 3154 ; 3155 .DCODE ; 3156 ; 3157 ;SPECIAL MACROS USED ONLY IN B-FIELD OF TEST INSTRUCTIONS ; 3158 TN- "B/4" ; 3159 TNE "B/0" ; 3160 WORD-TNE "B/10" ;USED IN TIOE ; 3161 TNA "B/0" ; 3162 TNN "B/4" ; 3163 WORD-TNN "B/14" ;USED IN TION ; 3164 TZ- "B/5" ; 3165 TZE "B/1" ; 3166 TZA "B/1" ; 3167 TZN "B/5" ; 3168 TC- "B/6" ; 3169 TCE "B/2" ; 3170 TCA "B/2" ; 3171 TCN "B/6" ; 3172 TO- "B/7" ; 3173 TOE "B/3" ; 3174 TOA "B/3" ; 3175 TON "B/7" ; 3176 D 0600, 0000,1400,2100 ; 3177 600: I, J/DONE ;TRN- IS NOP D 0601, 0000,1400,2100 ; 3178 I, J/DONE ;SO IS TLN- D 0602, 0000,1475,2100 ; 3179 I, TNE, J/TDXX D 0603, 0000,1474,2100 ; 3180 I, TNE, J/TSXX D 0604, 0000,1473,2100 ; 3181 I, TNA, J/TDX D 0605, 0000,1472,2100 ; 3182 I, TNA, J/TSX D 0606, 0004,1475,2100 ; 3183 I, TNN, J/TDXX D 0607, 0004,1474,2100 ; 3184 I, TNN, J/TSXX ; 3185 D 0610, 0000,1400,2100 ; 3186 610: I, J/DONE ;TDN- IS A NOP D 0611, 0000,1400,2100 ; 3187 I, J/DONE ;TSN- ALSO D 0612, 0000,1475,1100 ; 3188 R, TNE, J/TDXX D 0613, 0000,1474,1100 ; 3189 R, TNE, J/TSXX D 0614, 0000,1473,1100 ; 3190 R, TNA, J/TDX D 0615, 0000,1472,1100 ; 3191 R, TNA, J/TSX D 0616, 0004,1475,1100 ; 3192 R, TNN, J/TDXX D 0617, 0004,1474,1100 ; 3193 R, TNN, J/TSXX ; 3194 D 0620, 0005,1473,2100 ; 3195 620: I, TZ-, J/TDX D 0621, 0005,1472,2100 ; 3196 I, TZ-, J/TSX D 0622, 0001,1475,2100 ; 3197 I, TZE, J/TDXX D 0623, 0001,1474,2100 ; 3198 I, TZE, J/TSXX D 0624, 0001,1473,2100 ; 3199 I, TZA, J/TDX D 0625, 0001,1472,2100 ; 3200 I, TZA, J/TSX D 0626, 0005,1475,2100 ; 3201 I, TZN, J/TDXX D 0627, 0005,1474,2100 ; 3202 I, TZN, J/TSXX ; 3203 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 88 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 TEST GROUP D 0630, 0005,1473,1100 ; 3204 630: R, TZ-, J/TDX D 0631, 0005,1472,1100 ; 3205 R, TZ-, J/TSX D 0632, 0001,1475,1100 ; 3206 R, TZE, J/TDXX D 0633, 0001,1474,1100 ; 3207 R, TZE, J/TSXX D 0634, 0001,1473,1100 ; 3208 R, TZA, J/TDX D 0635, 0001,1472,1100 ; 3209 R, TZA, J/TSX D 0636, 0005,1475,1100 ; 3210 R, TZN, J/TDXX D 0637, 0005,1474,1100 ; 3211 R, TZN, J/TSXX ; 3212 D 0640, 0006,1473,2100 ; 3213 640: I, TC-, J/TDX D 0641, 0006,1472,2100 ; 3214 I, TC-, J/TSX D 0642, 0002,1475,2100 ; 3215 I, TCE, J/TDXX D 0643, 0002,1474,2100 ; 3216 I, TCE, J/TSXX D 0644, 0002,1473,2100 ; 3217 I, TCA, J/TDX D 0645, 0002,1472,2100 ; 3218 I, TCA, J/TSX D 0646, 0006,1475,2100 ; 3219 I, TCN, J/TDXX D 0647, 0006,1474,2100 ; 3220 I, TCN, J/TSXX ; 3221 D 0650, 0006,1473,1100 ; 3222 650: R, TC-, J/TDX D 0651, 0006,1472,1100 ; 3223 R, TC-, J/TSX D 0652, 0002,1475,1100 ; 3224 R, TCE, J/TDXX D 0653, 0002,1474,1100 ; 3225 R, TCE, J/TSXX D 0654, 0002,1473,1100 ; 3226 R, TCA, J/TDX D 0655, 0002,1472,1100 ; 3227 R, TCA, J/TSX D 0656, 0006,1475,1100 ; 3228 R, TCN, J/TDXX D 0657, 0006,1474,1100 ; 3229 R, TCN, J/TSXX D 0660, 0007,1473,2100 ; 3230 660: I, TO-, J/TDX D 0661, 0007,1472,2100 ; 3231 I, TO-, J/TSX D 0662, 0003,1475,2100 ; 3232 I, TOE, J/TDXX D 0663, 0003,1474,2100 ; 3233 I, TOE, J/TSXX D 0664, 0003,1473,2100 ; 3234 I, TOA, J/TDX D 0665, 0003,1472,2100 ; 3235 I, TOA, J/TSX D 0666, 0007,1475,2100 ; 3236 I, TON, J/TDXX D 0667, 0007,1474,2100 ; 3237 I, TON, J/TSXX ; 3238 D 0670, 0007,1473,1100 ; 3239 670: R, TO-, J/TDX D 0671, 0007,1472,1100 ; 3240 R, TO-, J/TSX D 0672, 0003,1475,1100 ; 3241 R, TOE, J/TDXX D 0673, 0003,1474,1100 ; 3242 R, TOE, J/TSXX D 0674, 0003,1473,1100 ; 3243 R, TOA, J/TDX D 0675, 0003,1472,1100 ; 3244 R, TOA, J/TSX D 0676, 0007,1475,1100 ; 3245 R, TON, J/TDXX D 0677, 0007,1474,1100 ; 3246 R, TON, J/TSXX ; 3247 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 89 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 TEST GROUP ; 3248 .UCODE ; 3249 ; 3250 ;THESE 64 INSTRUCTIONS ARE DECODED BY MASK MODE(IMMEDIATE OR MEMORY) ; 3251 ; IN THE A FIELD, DISPATCH TO HERE ON THE J FIELD, AND RE-DISPATCH ; 3252 ; FOR THE MODIFICATION ON THE B FIELD. ; 3253 ; 3254 ; ENTER WITH 0,E OR (E) IN AR, B FIELD BITS 2 AND 3 AS FOLLOWS: ; 3255 ; 0 0 NO MODIFICATION ; 3256 ; 0 1 0S ; 3257 ; 1 0 COMPLEMENT ; 3258 ; 1 1 ONES ; 3259 ; THIS ORDER HAS NO SIGNIFICANCE EXCEPT THAT IT CORRESPONDS TO THE ; 3260 ; ORDER OF INSTRUCTIONS AT TGROUP. ; 3261 ; 3262 ;THE BIT 1 OF THE B FIELD IS USED TO DETERMINE THE SENSE ; 3263 ; OF THE SKIP ; 3264 ; 1 SKIP IF AC.AND.MASK .NE. 0 (TXX- AND TXXN) ; 3265 ; 0 SKIP IF AC.AND.MASK .EQ. 0 (TXXA AND TXXE) ; 3266 ; 3267 ;BIT 0 IS UNUSED AND MUST BE ZERO ; 3268 ; 3269 ; 3270 1472: U 1472, 1473,3770,0303,4344,4007,0700,0000,0000,0000 ; 3271 TSX: [AR]_[AR] SWAP ;TSXX AND TLXX ; 3272 1473: U 1473, 0014,4221,0005,4174,4003,7700,0000,0000,0000 ; 3273 TDX: [BR]_0,TEST DISP ; ALWAYS AND NEVER SKIP CASES ; 3274 ; 3275 1474: U 1474, 1475,3770,0303,4344,4007,0700,0000,0000,0000 ; 3276 TSXX: [AR]_[AR] SWAP ;TSXE, TSXN, TLXE, TLXN ; 3277 1475: ; 3278 TDXX: [BR]_[AR].AND.AC, ;TDXE, TDXN, TRXE, TRXN U 1475, 0014,4551,0305,0274,4003,7700,0000,0000,0000 ; 3279 TEST DISP ; 3280 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 90 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 TEST GROUP ; 3281 ;TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B-FIELD OF DROM ; 3282 ; 3283 =1100 ; 3284 TEST-TABLE: ; 3285 ; 3286 ;CASE 0 & 4 -- TXNX U 0014, 1400,3333,0005,4174,4007,0571,0000,0000,0000 ; 3287 TXXX: READ [BR], TXXX TEST, 3T, J/DONE ; 3288 ; 3289 ;CASE 1 & 5 -- TXZ AND TXZX U 0015, 1116,7441,0303,4174,4007,0700,0000,0000,0000 ; 3290 [AR]_.NOT.[AR],J/TXZX ; 3291 ; 3292 ;CASE 2 & 6 -- TXC AND TXCX U 0016, 1123,6551,0303,0274,4007,0700,0000,0000,0000 ; 3293 [AR]_[AR].XOR.AC,J/TDONE ; 3294 ; 3295 ;CASE 3 & 7 -- TXO AND TXOX U 0017, 1123,3551,0303,0274,4007,0700,0000,0000,0000 ; 3296 [AR]_[AR].OR.AC,J/TDONE ; 3297 ; 3298 ;THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF ; 3299 ; AD.EQ.0 AND DROM B IS 0-3 OR AD.NE.0 AND DROM B IS 4-7. ; 3300 U 1116, 1123,4551,0303,0274,4007,0700,0000,0000,0000 ; 3301 TXZX: [AR]_[AR].AND.AC U 1123, 0014,3440,0303,0174,4007,0700,0400,0000,0000 ; 3302 TDONE: AC_[AR],J/TXXX ; 3303 ; READ BR,TXXX TEST,J/DONE ; 3304 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 91 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 COMPARE -- CAI, CAM ; 3305 .TOC "COMPARE -- CAI, CAM" ; 3306 ; 3307 .DCODE ; 3308 ; 3309 ;SPECIAL B-FIELD ENCODING USED BY SKIP-JUMP-COMPARE CLASS ; 3310 ; INSTRUCTIONS: ; 3311 ; 3312 SJC- "B/0" ;NEVER ; 3313 SJCL "B/1" ;LESS ; 3314 SJCE "B/2" ;EQUAL ; 3315 SJCLE "B/3" ;LESS EQUAL ; 3316 SJCA "B/4" ;ALWAYS ; 3317 SJCGE "B/5" ;GREATER THAN OR EQUAL ; 3318 SJCN "B/6" ;NOT EQUAL ; 3319 SJCG "B/7" ;GREATER ; 3320 ; 3321 .UCODE ; 3322 ; 3323 ;COMPARE TABLE ; 3324 =1000 ; 3325 SKIP-COMP-TABLE: ; 3326 ; 3327 ;CASE 0 -- NEVER U 0250, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 3328 DONE ; 3329 ; 3330 ;CASE 1 -- LESS U 0251, 1400,3333,0003,4174,4007,0520,0000,0000,0000 ; 3331 READ [AR], SKIP DP0,J/DONE ; 3332 ; 3333 ;CASE 2 -- EQUAL U 0252, 1400,3333,0003,4174,4007,0621,0000,0000,0000 ; 3334 SKIPE: READ [AR], SKIP AD.EQ.0,J/DONE ; 3335 ; 3336 ;CASE 3 -- LESS OR EQUAL U 0253, 1400,3333,0003,4174,4007,0421,0000,0000,0000 ; 3337 READ [AR], SKIP AD.LE.0,J/DONE ; 3338 ; 3339 ;CASE 4 -- ALWAYS U 0254, 0110,0111,0701,4170,4156,4700,0200,0014,0012 ; 3340 VMA_[PC]+1, NEXT INST FETCH, FETCH ; 3341 ; 3342 ;CASE 5 -- GREATER THAN OR EQUAL U 0255, 0260,3333,0003,4174,4007,0520,0000,0000,0000 ; 3343 READ [AR], SKIP DP0,J/SKIP ; 3344 ; 3345 ;CASE 6 -- NOT EQUAL U 0256, 0260,3333,0003,4174,4007,0621,0000,0000,0000 ; 3346 READ [AR], SKIP AD.EQ.0,J/SKIP ; 3347 ; 3348 ;CASE 7 -- GREATER U 0257, 0260,3333,0003,4174,4007,0421,0000,0000,0000 ; 3349 READ [AR], SKIP AD.LE.0,J/SKIP ; 3350 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 92 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 COMPARE -- CAI, CAM ; 3351 .DCODE D 0300, 0000,1400,2100 ; 3352 300: I, SJC-, J/DONE ;CAI D 0301, 0001,1476,2100 ; 3353 I, SJCL, J/CAIM D 0302, 0002,1476,2100 ; 3354 I, SJCE, J/CAIM D 0303, 0003,1476,2100 ; 3355 I, SJCLE, J/CAIM D 0304, 0004,1476,2100 ; 3356 I, SJCA, J/CAIM D 0305, 0005,1476,2100 ; 3357 I, SJCGE, J/CAIM D 0306, 0006,1476,2100 ; 3358 I, SJCN, J/CAIM D 0307, 0007,1476,2100 ; 3359 I, SJCG, J/CAIM ; 3360 D 0310, 0000,1476,1100 ; 3361 310: R, SJC-, J/CAIM ;CAM D 0311, 0001,1476,1100 ; 3362 R, SJCL, J/CAIM D 0312, 0002,1476,1100 ; 3363 R, SJCE, J/CAIM D 0313, 0003,1476,1100 ; 3364 R, SJCLE, J/CAIM D 0314, 0004,1476,1100 ; 3365 R, SJCA, J/CAIM D 0315, 0005,1476,1100 ; 3366 R, SJCGE, J/CAIM D 0316, 0006,1476,1100 ; 3367 R, SJCN, J/CAIM D 0317, 0007,1476,1100 ; 3368 R, SJCG, J/CAIM ; 3369 .UCODE ; 3370 ; 3371 1476: U 1476, 0250,2551,0303,0274,4003,7701,4000,0000,0000 ; 3372 CAIM: [AR]_AC-[AR], 3T, SKIP-COMP DISP ; 3373 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 93 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC SKIPS -- AOS, SOS, SKIP ; 3374 .TOC "ARITHMETIC SKIPS -- AOS, SOS, SKIP" ; 3375 ;ENTER WITH (E) IN AR ; 3376 ; 3377 .DCODE D 0330, 0000,1477,1100 ; 3378 330: R, SJC-, J/SKIPS ;NOT A NOP IF AC .NE. 0 D 0331, 0001,1477,1100 ; 3379 R, SJCL, J/SKIPS D 0332, 0002,1477,1100 ; 3380 R, SJCE, J/SKIPS D 0333, 0003,1477,1100 ; 3381 R, SJCLE, J/SKIPS D 0334, 0004,1477,1100 ; 3382 R, SJCA, J/SKIPS D 0335, 0005,1477,1100 ; 3383 R, SJCGE, J/SKIPS D 0336, 0006,1477,1100 ; 3384 R, SJCN, J/SKIPS D 0337, 0007,1477,1100 ; 3385 R, SJCG, J/SKIPS ; 3386 .UCODE ; 3387 ; 3388 1477: ; 3389 SKIPS: FIX [AR] SIGN, U 1477, 0744,3770,0303,4174,0007,0360,0000,0000,0000 ; 3390 SKIP IF AC0 U 0744, 0250,3440,0303,0174,4003,7700,0400,0000,0000 ; 3391 =0 AC_[AR],SKIP-COMP DISP U 0745, 0250,4443,0000,4174,4003,7700,0000,0000,0000 ; 3392 SKIP-COMP DISP ; 3393 ; 3394 .DCODE D 0350, 0000,1431,1500 ; 3395 350: RW, SJC-, J/AOS D 0351, 0001,1431,1500 ; 3396 RW, SJCL, J/AOS D 0352, 0002,1431,1500 ; 3397 RW, SJCE, J/AOS D 0353, 0003,1431,1500 ; 3398 RW, SJCLE, J/AOS D 0354, 0004,1431,1500 ; 3399 RW, SJCA, J/AOS D 0355, 0005,1431,1500 ; 3400 RW, SJCGE, J/AOS D 0356, 0006,1431,1500 ; 3401 RW, SJCN, J/AOS D 0357, 0007,1431,1500 ; 3402 RW, SJCG, J/AOS ; 3403 .UCODE ; 3404 ; 3405 1431: U 1431, 1136,0111,0703,4174,4467,0701,0000,0001,0001 ; 3406 AOS: [AR]_[AR]+1, 3T, AD FLAGS U 1136, 1143,4443,0000,4174,4007,0700,0200,0003,0002 ; 3407 XOS: START WRITE U 1143, 1477,3333,0003,4175,5007,0701,0200,0000,0002 ; 3408 MEM WRITE,MEM_[AR],J/SKIPS ; 3409 ; 3410 .DCODE D 0370, 0000,1437,1500 ; 3411 370: RW, SJC-, J/SOS D 0371, 0001,1437,1500 ; 3412 RW, SJCL, J/SOS D 0372, 0002,1437,1500 ; 3413 RW, SJCE, J/SOS D 0373, 0003,1437,1500 ; 3414 RW, SJCLE, J/SOS D 0374, 0004,1437,1500 ; 3415 RW, SJCA, J/SOS D 0375, 0005,1437,1500 ; 3416 RW, SJCGE, J/SOS D 0376, 0006,1437,1500 ; 3417 RW, SJCN, J/SOS D 0377, 0007,1437,1500 ; 3418 RW, SJCG, J/SOS ; 3419 .UCODE ; 3420 ; 3421 1437: U 1437, 1136,1111,0703,4174,4467,0701,4000,0001,0001 ; 3422 SOS: [AR]_[AR]-1, 3T, AD FLAGS, J/XOS ; 3423 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 94 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ ; 3424 .TOC "CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ" ; 3425 ; ENTER WITH E IN AR ; 3426 ; 3427 =1000 ; 3428 JUMP-TABLE: ; 3429 ; 3430 ;CASE 0 -- NEVER U 0270, 0100,3440,0505,0174,4156,4700,0400,0000,0000 ; 3431 AC_[BR], NEXT INST ; 3432 ; 3433 ;CASE 1 -- LESS U 0271, 0762,3770,0505,0174,4007,0520,0400,0000,0000 ; 3434 AC_[BR] TEST, SKIP DP0, J/JUMP- ; 3435 ; 3436 ;CASE 2 -- EQUAL U 0272, 0762,3770,0505,0174,4007,0621,0400,0000,0000 ; 3437 AC_[BR] TEST, SKIP AD.EQ.0, J/JUMP- ; 3438 ; 3439 ;CASE 3 -- LESS THAN OR EQUAL U 0273, 0762,3770,0505,0174,4007,0421,0400,0000,0000 ; 3440 AC_[BR] TEST, SKIP AD.LE.0, J/JUMP- ; 3441 ; 3442 ;CASE 4 -- ALWAYS U 0274, 0764,3440,0505,0174,4007,0700,0400,0000,0000 ; 3443 JMPA: AC_[BR], J/JUMPA ; 3444 ; 3445 ;CASE 5 -- GREATER THAN OR EQUAL TO U 0275, 0764,3770,0505,0174,4007,0520,0400,0000,0000 ; 3446 AC_[BR] TEST, SKIP DP0, J/JUMPA ; 3447 ; 3448 ;CASE 6 -- NOT EQUAL U 0276, 0764,3770,0505,0174,4007,0621,0400,0000,0000 ; 3449 AC_[BR] TEST, SKIP AD.EQ.0, J/JUMPA ; 3450 ; 3451 ;CASE 7 -- GREATER U 0277, 0764,3770,0505,0174,4007,0421,0400,0000,0000 ; 3452 AC_[BR] TEST, SKIP AD.LE.0, J/JUMPA ; 3453 ; 3454 =0 U 0762, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 3455 JUMP-: DONE U 0763, 0110,3441,0301,4170,4156,4700,0200,0014,0012 ; 3456 JUMPA ; 3457 ; 3458 =0 U 0764, 0110,3441,0301,4170,4156,4700,0200,0014,0012 ; 3459 JUMPA: JUMPA U 0765, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 3460 DONE ; 3461 ; 3462 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 95 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ ; 3463 .DCODE D 0320, 0000,1400,2100 ; 3464 320: I, SJC-, J/DONE D 0321, 0001,1440,2100 ; 3465 I, SJCL, J/JUMP D 0322, 0002,1440,2100 ; 3466 I, SJCE, J/JUMP D 0323, 0003,1440,2100 ; 3467 I, SJCLE, J/JUMP D 0324, 0004,1520,2100 ; 3468 I, SJCA, J/JRST D 0325, 0005,1440,2100 ; 3469 I, SJCGE, J/JUMP D 0326, 0006,1440,2100 ; 3470 I, SJCN, J/JUMP D 0327, 0007,1440,2100 ; 3471 I, SJCG, J/JUMP ; 3472 .UCODE ; 3473 ; 3474 1440: U 1440, 0270,3771,0005,0276,6003,7700,0000,0000,0000 ; 3475 JUMP: [BR]_AC,JUMP DISP ; 3476 ; 3477 .DCODE D 0340, 0000,1611,3000 ; 3478 340: I-PF, SJC-, J/AOJ D 0341, 0001,1611,2100 ; 3479 I, SJCL, J/AOJ D 0342, 0002,1611,2100 ; 3480 I, SJCE, J/AOJ D 0343, 0003,1611,2100 ; 3481 I, SJCLE, J/AOJ D 0344, 0004,1611,2100 ; 3482 I, SJCA, J/AOJ D 0345, 0005,1611,2100 ; 3483 I, SJCGE, J/AOJ D 0346, 0006,1611,2100 ; 3484 I, SJCN, J/AOJ D 0347, 0007,1611,2100 ; 3485 I, SJCG, J/AOJ ; 3486 .UCODE ; 3487 ; 3488 1611: U 1611, 0270,0551,0705,0274,4463,7702,0000,0001,0001 ; 3489 AOJ: [BR]_AC+1, AD FLAGS, 4T, JUMP DISP ; 3490 ; 3491 .DCODE D 0360, 0000,1542,3000 ; 3492 360: I-PF, SJC-, J/SOJ D 0361, 0001,1542,2100 ; 3493 I, SJCL, J/SOJ D 0362, 0002,1542,2100 ; 3494 I, SJCE, J/SOJ D 0363, 0003,1542,2100 ; 3495 I, SJCLE, J/SOJ D 0364, 0004,1542,2100 ; 3496 I, SJCA, J/SOJ D 0365, 0005,1542,2100 ; 3497 I, SJCGE, J/SOJ D 0366, 0006,1542,2100 ; 3498 I, SJCN, J/SOJ D 0367, 0007,1542,2100 ; 3499 I, SJCG, J/SOJ ; 3500 .UCODE ; 3501 ; 3502 1542: U 1542, 0270,2551,0705,0274,4463,7702,4000,0001,0001 ; 3503 SOJ: [BR]_AC-1, AD FLAGS, 4T, JUMP DISP ; 3504 ; 3505 .DCODE D 0252, 0005,1547,2100 ; 3506 252: I, SJCGE, J/AOBJ D 0253, 0001,1547,2100 ; 3507 I, SJCL, J/AOBJ ; 3508 .UCODE ; 3509 ; 3510 1547: ; 3511 AOBJ: [BR]_AC+1000001, ;ADD 1 TO BOTH HALF WORDS ; 3512 INH CRY18, 3T, ;NO CARRY INTO LEFT HALF U 1547, 0270,0551,1505,0274,4403,7701,0000,0000,0000 ; 3513 JUMP DISP ;HANDLE EITHER AOBJP OR AOBJN ; 3514 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 96 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 AC DECODE JUMPS -- JRST, JFCL ; 3515 .TOC "AC DECODE JUMPS -- JRST, JFCL" ; 3516 ; 3517 .DCODE D 0254, 0000,1520,6000 ; 3518 254: I,VMA/0, AC DISP, J/JRST ;DISPATCHES TO 1 OF 16 ; 3519 ; PLACES ON AC BITS D 0255, 0000,1540,2100 ; 3520 I, J/JFCL ; 3521 .UCODE ; 3522 ; 3523 ;JRST DISPATCHES TO ONE OF 16 LOC'NS ON AC BITS ; 3524 ; 3525 =0000 ; 3526 1520: U 1520, 0110,3441,0301,4170,4156,4700,0200,0014,0012 ; 3527 JRST: JUMPA ;(0) JRST 0, U 1521, 0110,3441,0301,4170,4156,4700,0200,0014,0012 ; 3528 1521: JUMPA ;(1) PORTAL IS SAME AS JRST ; 3529 1522: VMA_[PC]-1, START READ, ;(2) JRSTF U 1522, 0150,1113,0701,4170,4007,0700,4200,0004,0012 ; 3530 J/JRSTF U 1523, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3531 1523: UUO ;(3) U 1524, 1004,4443,0000,4174,4007,0340,0000,0000,0000 ; 3532 1524: SKIP KERNEL, J/HALT ;(4) HALT ; 3533 1525: ; 3534 XJRSTF0: VMA_[AR], START READ, ;(5) XJRSTF U 1525, 2606,3443,0300,4174,4007,0700,0200,0004,0012 ; 3535 J/XJRSTF U 1526, 0320,4443,0000,4174,4007,0340,0000,0000,0000 ; 3536 1526: SKIP KERNEL, J/XJEN ;(6) XJEN U 1527, 1014,4443,0000,4174,4007,0340,0000,0000,0000 ; 3537 1527: SKIP KERNEL, J/XPCW ;(7) XPCW ; 3538 1530: VMA_[PC]-1, START READ, ;(10) U 1530, 1010,1113,0701,4170,4007,0040,4200,0004,0012 ; 3539 SKIP IO LEGAL, J/JRST10 U 1531, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3540 1531: UUO ;(11) ; 3541 1532: VMA_[PC]-1, START READ, ;(12) JEN U 1532, 0300,1113,0701,4170,4007,0040,4200,0004,0012 ; 3542 SKIP IO LEGAL, J/JEN U 1533, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3543 1533: UUO ;(13) U 1534, 1024,4443,0000,4174,4007,0340,0000,0000,0000 ; 3544 1534: SKIP KERNEL, J/SFM ;(14) SFM U 1535, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3545 1535: UUO ;(15) U 1536, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3546 1536: UUO ;(16) U 1537, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3547 1537: UUO ;(17) ; 3548 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 97 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 AC DECODE JUMPS -- JRST, JFCL ; 3549 =0* ; 3550 JRSTF: MEM READ, ;WAIT FOR DATA ; 3551 [HR]_MEM, ;STICK IN HR ; 3552 LOAD INST EA, ;LOAD @ AND XR U 0150, 2551,3771,0002,4365,5217,0700,0210,0000,0002 ; 3553 CALL [JRST0] ;COMPUTE EA AGAIN U 0152, 0110,3441,0301,4170,4156,4700,0200,0014,0012 ; 3554 JUMPA ;JUMP ; 3555 U 2551, 0030,4443,0000,2174,4006,6700,0000,0000,0000 ; 3556 JRST0: EA MODE DISP ;WHAT TYPE OF EA? ; 3557 =100* ; 3558 READ XR, ;INDEXED ; 3559 LOAD FLAGS, ;GET FLAGS FROM XR ; 3560 UPDATE USER, ;ALLOW USER TO SET U 0030, 0002,3773,0000,2274,4464,1700,0000,0001,0004 ; 3561 RETURN [2] ;ALL DONE ; 3562 READ [HR], ;PLAIN ; 3563 LOAD FLAGS, ;LOAD FLAGS FROM INST ; 3564 UPDATE USER, ;ALLOW USER TO SET U 0032, 0002,3333,0002,4174,4464,1700,0000,0001,0004 ; 3565 RETURN [2] ;RETURN ; 3566 [HR]_[HR]+XR, ;BOTH ; 3567 LOAD VMA, ;FETCH IND WORD ; 3568 START READ, ;START MEM CYCLE U 0034, 2556,0551,0202,2270,4007,0700,0200,0004,0012 ; 3569 J/JRST1 ;CONTINUE BELOW ; 3570 VMA_[HR], ;INDIRECT ; 3571 START READ, ;FETCH IND WORD ; 3572 PXCT EA, ;SETUP PXCT STUFF U 0036, 2556,3443,0200,4174,4007,0700,0200,0004,0112 ; 3573 J/JRST1 ;CONTINUE BELOW ; 3574 JRST1: MEM READ, ;WAIT FOR DATA ; 3575 [HR]_MEM, ;LOAD THE HR ; 3576 LOAD INST EA, ;LOAD @ AND XR U 2556, 2551,3771,0002,4365,5217,0700,0200,0000,0002 ; 3577 J/JRST0 ;LOOP BACK ; 3578 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 98 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 AC DECODE JUMPS -- JRST, JFCL ; 3579 =0 U 1004, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3580 HALT: UUO ;USER MODE U 1005, 2601,3441,0301,4174,4007,0700,0000,0000,0000 ; 3581 [PC]_[AR] ;EXEC MODE--CHANGE PC U 2601, 0104,4751,1217,4374,4007,0700,0000,0000,0001 ; 3582 HALT [HALT] ;HALT INSTRUCTION ; 3583 ; 3584 =0 U 1010, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3585 JRST10: UUO U 1011, 0303,4443,0000,4174,4007,0700,0000,0000,0000 ; 3586 J/JEN2 ;DISMISS INTERRUPT ; 3587 =0000 U 0300, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3588 JEN: UUO ; FLAGS ; 3589 MEM READ, ; 3590 [HR]_MEM, ;GET INST ; 3591 LOAD INST EA, ;LOAD XR & @ U 0301, 2551,3771,0002,4365,5217,0700,0210,0000,0002 ; 3592 CALL [JRST0] ;COMPUTE FLAGS ; 3593 =0011 U 0303, 2432,4553,1400,4374,4007,0331,0010,0007,7400 ; 3594 JEN2: DISMISS ;DISMISS INTERRUPT U 0307, 3610,3770,1416,4344,4007,0700,0010,0000,0000 ; 3595 =0111 CALL LOAD PI ;RELOAD PI HARDWARE U 0317, 0110,3441,0301,4170,4156,4700,0200,0014,0012 ; 3596 =1111 JUMPA ;GO JUMP ; 3597 = ; 3598 ; 3599 1540: ; 3600 JFCL: JFCL FLAGS, ;ALL DONE IN HARDWARE ; 3601 SKIP JFCL, ;SEE IF SKIPS ; 3602 3T, ;ALLOW TIME U 1540, 0762,4443,0000,4174,4467,0551,0000,0001,0010 ; 3603 J/JUMP- ;JUMP IF WE SHOULD ; 3604 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 99 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 EXTENDED ADDRESSING INSTRUCTIONS ; 3605 .TOC "EXTENDED ADDRESSING INSTRUCTIONS" ; 3606 ; 3607 =0000 U 0320, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3608 XJEN: UUO ;HERE IF USER MODE U 0321, 2432,4553,1400,4374,4007,0331,0010,0007,7400 ; 3609 DISMISS ;CLEAR HIGHEST INTERRUPT U 0325, 0335,3333,0012,4174,4437,0700,0000,0000,0000 ; 3610 =0101 READ [MASK], LOAD PI ;NO MORE INTERRUPTS ; 3611 =1101 ABORT MEM CYCLE, ;AVOID INTERRUPT PAGE FAIL U 0335, 1525,4223,0000,4364,4277,0700,0200,0000,0010 ; 3612 J/XJRSTF0 ;START READING FLAG WORD ; 3613 = ; 3614 U 2606, 2623,3771,0005,4365,5007,0700,0200,0000,0002 ; 3615 XJRSTF: MEM READ, [BR]_MEM ;PUT FLAGS IN BR ; 3616 [AR]_[AR]+1, ;INCREMENT ADDRESS ; 3617 LOAD VMA, ;PUT RESULT IN VMA U 2623, 2627,0111,0703,4174,4007,0700,0200,0004,0012 ; 3618 START READ ;START MEMORY ; 3619 MEM READ, [PC]_MEM, ;PUT DATA IN PC U 2627, 2701,3771,0001,4361,5007,0700,0200,0000,0002 ; 3620 HOLD LEFT ;IGNORE SECTION NUMBER ; 3621 READ [BR], LOAD FLAGS, ;LOAD NEW FLAGS U 2701, 2714,3333,0005,4174,4467,0700,0000,0001,0004 ; 3622 UPDATE USER ;BUT HOLD USER FLAG ; 3623 PISET: [FLG]_[FLG].AND.NOT.#, ;CLEAR PI CYCLE U 2714, 0305,5551,1313,4374,4007,0700,0000,0001,0000 ; 3624 FLG.PI/1, J/PIEXIT ;RELOAD PI HARDWARE ; 3625 ; INCASE THIS IS AN ; 3626 ; INTERRUPT INSTRUCTION ; 3627 ; 3628 =0 U 1014, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3629 XPCW: UUO ;USER MODE U 1015, 0060,4521,1205,4074,4007,0700,0000,0000,0000 ; 3630 [BR]_FLAGS ;PUT FLAGS IN BR ; 3631 =0*0 ; 3632 PIXPCW: VMA_[AR], START WRITE, ;STORE FLAGS U 0060, 3667,3443,0300,4174,4007,0700,0210,0003,0012 ; 3633 CALL [STOBR] ;PUT BR IN MEMORY ; 3634 =1*0 VMA_[AR]+1, LOAD VMA, ; 3635 START WRITE, ;PREPEARE TO STORE PC U 0064, 3670,0111,0703,4170,4007,0700,0210,0003,0012 ; 3636 CALL [STOPC] ;PUT PC IN MEMORY ; 3637 =1*1 [AR]_[AR]+1, ;DO NEW PC PART U 0065, 2606,0111,0703,4174,4007,0700,0200,0004,0002 ; 3638 START READ, J/XJRSTF ; 3639 = ; 3640 ; 3641 =0 U 1024, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3642 SFM: UUO U 1025, 2715,3443,0300,4174,4007,0700,0200,0003,0012 ; 3643 VMA_[AR], START WRITE ;STORE FLAGS U 2715, 0435,4521,1203,4074,4007,0700,0000,0000,0000 ; 3644 [AR]_FLAGS, J/STORE ;STORE AND EXIT ; 3645 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 100 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 XCT ; 3646 .TOC "XCT" ; 3647 ; 3648 .DCODE D 0256, 0000,1541,1100 ; 3649 256: R, J/XCT ;OPERAND FETCHED AS DATA ; 3650 .UCODE ; 3651 ; 3652 1541: U 1541, 1034,4443,0000,4174,4007,0340,0000,0000,0000 ; 3653 XCT: SKIP KERNEL ;SEE IF MAY BE PXCT ; 3654 =0 ; 3655 XCT1A: [HR]_[AR], ;STUFF INTO HR ; 3656 DBUS/DP, ;PLACE ON DBUS FOR IR ; 3657 LOAD INST, ;LOAD IR, AC, XR, ETC. ; 3658 PXCT/E1, ;ALLOW XR TO BE PREVIOUS U 1034, 2716,3441,0302,4174,4617,0700,0000,0000,0100 ; 3659 J/XCT1 ;CONTINUE BELOW ; 3660 ; 3661 READ [HR], ;LOAD PXCT FLAGS ; 3662 LOAD PXCT, ; .. U 1035, 1034,3333,0002,4174,4167,0700,0000,0000,0000 ; 3663 J/XCT1A ;CONTINUE WITH NORMAL FLOW ; 3664 ; 3665 XCT1: WORK[YSAVE]_[HR] CLR LH,;SAVE FOR IO INSTRUCTIONS U 2716, 0371,4713,1202,7174,4007,0700,0400,0000,0422 ; 3666 J/XCT2 ;GO EXECUTE IT ; 3667 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 101 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ ; 3668 .TOC "STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ" ; 3669 ; 3670 .DCODE D 0260, 0000,1544,2100 ; 3671 260: I, B/0, J/PUSHJ D 0261, 0002,1543,3100 ; 3672 IR, B/2, J/PUSH D 0262, 0002,1545,2100 ; 3673 I, B/2, J/POP D 0263, 0000,1546,2100 ; 3674 I, J/POPJ ; 3675 .UCODE ; 3676 ; 3677 ;ALL START WITH E IN AR ; 3678 1543: ; 3679 PUSH: MEM READ, ;PUT MEMOP IN BR U 1543, 2717,3771,0005,4365,5007,0700,0200,0000,0002 ; 3680 [BR]_MEM ; .. ; 3681 PUSH1: [ARX]_AC+1000001, ;BUMP BOTH HALVES OF AC ; 3682 INH CRY18, ;NO CARRY ; 3683 LOAD VMA, ;START TO STORE ITEM ; 3684 START WRITE, ;START MEM CYCLE ; 3685 PXCT STACK WORD, ;THIS IS THE STACK DATA WORD ; 3686 3T, ;ALLOW TIME ; 3687 SKIP CRY0, ;GO TO STMAC, SKIP IF PDL OV U 2717, 1044,0551,1504,0274,4407,0311,0200,0003,0712 ; 3688 J/STMAC ; .. ; 3689 ; 3690 1544: ; 3691 PUSHJ: [BR]_PC WITH FLAGS, ;COMPUTE UPDATED FLAGS ; 3692 CLR FPD, ;CLEAR FIRST-PART-DONE U 1544, 2717,3741,0105,4074,4467,0700,0000,0005,0000 ; 3693 J/PUSH1 ; AND JOIN PUSH CODE ; 3694 ; 3695 =0 ; 3696 STMAC: MEM WRITE, ;WAIT FOR MEMORY ; 3697 MEM_[BR], ;STORE BR ON STACK ; 3698 B DISP, ;SEE IF PUSH OR PUSHJ U 1044, 0220,3333,0005,4175,5003,7701,0200,0000,0002 ; 3699 J/JSTAC ;BELOW ; 3700 ;WE MUST STORE THE STACK WORD PRIOR TO SETTING PDL OV IN CASE OF ; 3701 ; PAGE FAIL. ; 3702 MEM WRITE, ;WAIT FOR MEMORY U 1045, 2720,3333,0005,4175,5007,0701,0200,0000,0002 ; 3703 MEM_[BR] ;STORE BR ; 3704 SETPDL: SET PDL OV, ;OVERFLOW ; 3705 B DISP, ;SEE IF PUSH OR PUSHJ U 2720, 0220,4443,0000,4174,4463,7700,0000,0001,2000 ; 3706 J/JSTAC ;BELOW ; 3707 ; 3708 =00 ; 3709 JSTAC: [PC]_[AR], ;PUSHJ--LOAD PC ; 3710 LOAD VMA, ;LOAD ADDRESS U 0220, 0221,3441,0301,4174,4007,0700,0200,0014,0012 ; 3711 FETCH ;GET NEXT INST ; 3712 JSTAC1: AC_[ARX], ;STORE BACK STACK PTR U 0221, 0100,3440,0404,0174,4156,4700,0400,0000,0000 ; 3713 NEXT INST ;DO NEXT INST ; 3714 AC_[ARX], ;UPDATE STACK POINTER U 0222, 1400,3440,0404,0174,4007,0700,0400,0000,0000 ; 3715 J/DONE ;DO NEXT INST ; 3716 = ; 3717 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 102 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 STACK INSTRUCTIONS -- PUSHJ, PUSH, POP, POPJ ; 3718 1545: ; 3719 POP: [ARX]_AC, ;GET POINTER ; 3720 LOAD VMA, ;ADDRESS OF STACK WORD ; 3721 START READ, 3T, ;START CYCLE U 1545, 2721,3771,0004,0276,6007,0701,0200,0004,0712 ; 3722 PXCT STACK WORD ;FOR PXCT ; 3723 ; 3724 MEM READ, ;LOAD BR (QUIT IF PAGE FAIL) U 2721, 2722,3771,0005,4365,5007,0700,0200,0000,0002 ; 3725 [BR]_MEM ;STACK WORD TO BR ; 3726 ; 3727 [ARX]_[ARX]+#, ;UPDATE POINTER ; 3728 #/777777, ;-1 IN EACH HALF ; 3729 INH CRY18, 3T, ;BUT NO CARRY U 2722, 1144,0551,0404,4374,4407,0311,0000,0077,7777 ; 3730 SKIP CRY0 ;SEE IF OVERFLOW ; 3731 ; 3732 =0 VMA_[AR], ;EFFECTIVE ADDRESS ; 3733 PXCT DATA, ;FOR PXCT ; 3734 START WRITE, ;WHERE TO STORE RESULT U 1144, 2724,3443,0300,4174,4007,0700,0200,0003,0312 ; 3735 J/POPX1 ;OVERFLOW ; 3736 ; 3737 VMA_[AR], ;EFFECTIVE ADDRESS ; 3738 PXCT DATA, ;FOR PXCT U 1145, 2723,3443,0300,4174,4007,0700,0200,0003,0312 ; 3739 START WRITE ;WHERE TO STORE RESULT ; 3740 ; 3741 MEM WRITE, ;WAIT FOR MEM ; 3742 MEM_[BR], ;STORE BR ; 3743 B DISP, ;POP OR POPJ? U 2723, 0220,3333,0005,4175,5003,7701,0200,0000,0002 ; 3744 J/JSTAC ;STORE POINTER ; 3745 ; 3746 ; 3747 POPX1: MEM WRITE, ;WAIT FOR MEMORY ; 3748 MEM_[BR], ;STORE BR U 2724, 2720,3333,0005,4175,5007,0701,0200,0000,0002 ; 3749 J/SETPDL ;GO SET PDL OV ; 3750 ; 3751 1546: ; 3752 POPJ: [ARX]_AC, ;GET POINTER ; 3753 LOAD VMA, ;POINT TO STACK WORD ; 3754 PXCT STACK WORD, 3T, ;FOR PXCT U 1546, 2725,3771,0004,0276,6007,0701,0200,0004,0712 ; 3755 START READ ;START READ ; 3756 [ARX]_[ARX]+#, ;UPDATE POINTER ; 3757 #/777777, ;-1 IN BOTH HALFS ; 3758 INH CRY18, 3T, ;INHIBIT CARRY 18 U 2725, 1146,0551,0404,4374,4407,0311,0000,0077,7777 ; 3759 SKIP CRY0 ;SEE IF OVERFLOW U 1146, 1147,4443,0000,4174,4467,0700,0000,0001,2000 ; 3760 =0 SET PDL OV ;SET OVERFLOW ; 3761 MEM READ, [PC]_MEM, ;STICK DATA IN PC ; 3762 HOLD LEFT, ;NO FLAGS U 1147, 0221,3771,0001,4361,5007,0700,0200,0000,0002 ; 3763 J/JSTAC1 ;STORE POINTER ; 3764 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 103 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 STACK INSTRUCTIONS -- ADJSP ; 3765 .TOC "STACK INSTRUCTIONS -- ADJSP" ; 3766 ; 3767 .DCODE D 0105, 0000,1551,3000 ; 3768 105: I-PF, B/0, J/ADJSP ; 3769 .UCODE ; 3770 ; 3771 1551: ; 3772 ADJSP: [AR]_[AR] SWAP, ;MAKE 2 COPIES OF RH U 1551, 2726,3770,0303,4344,0007,0700,0000,0000,0000 ; 3773 HOLD RIGHT ; 3774 [BR]_AC, ;READ AC, SEE IF MINUS ; 3775 3T, U 2726, 1150,3771,0005,0276,6007,0521,0000,0000,0000 ; 3776 SKIP DP0 ; 3777 =0 AC_[BR]+[AR], ;UPDATE AC ; 3778 INH CRY18, ;NO CARRY ; 3779 SKIP DP0, ;SEE IF STILL OK ; 3780 3T, ;ALLOW TIME U 1150, 1152,0113,0503,0174,4407,0521,0400,0000,0000 ; 3781 J/ADJSP1 ;TEST FOR OFLO ; 3782 AC_[BR]+[AR], ;UPDATE AC ; 3783 INH CRY18, ;NO CARRY ; 3784 SKIP DP0, ;SEE IF STILL MINUS ; 3785 3T, ;ALLOW TIME FOR SKIP U 1151, 1154,0113,0503,0174,4407,0521,0400,0000,0000 ; 3786 J/ADJSP2 ;CONTINUE BELOW ; 3787 ; 3788 =0 U 1152, 0100,4443,0000,4174,4156,4700,0000,0000,0000 ; 3789 ADJSP1: NEXT INST ;NO OVERFLOW ; 3790 SET PDL OV, ;SET PDL OV U 1153, 0555,4443,0000,4174,4467,0700,0000,0001,2000 ; 3791 J/NIDISP ;GO DO NICOND DISP ; 3792 ; 3793 =0 ; 3794 ADJSP2: SET PDL OV, ;SET PDL OV U 1154, 0555,4443,0000,4174,4467,0700,0000,0001,2000 ; 3795 J/NIDISP ;GO DO NICOND DISP U 1155, 0100,4443,0000,4174,4156,4700,0000,0000,0000 ; 3796 NEXT INST ;NO OVERFLOW ; 3797 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 104 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA ; 3798 .TOC "SUBROUTINE CALL/RETURN -- JSR, JSP, JSA, JRA" ; 3799 ; 3800 .DCODE D 0264, 0000,1552,2100 ; 3801 264: I, J/JSR D 0265, 0000,1550,2100 ; 3802 I, J/JSP D 0266, 0000,1554,2100 ; 3803 I, J/JSA D 0267, 0000,1555,2100 ; 3804 I, J/JRA ; 3805 .UCODE ; 3806 ; 3807 1550: U 1550, 2727,3741,0105,4074,4007,0700,0000,0000,0000 ; 3808 JSP: [BR]_PC WITH FLAGS ;GET PC WITH FLAGS ; 3809 CLR FPD, ;CLEAR FIRST-PART-DONE ; 3810 AC_[BR], ;STORE FLAGS U 2727, 0764,3440,0505,0174,4467,0700,0400,0005,0000 ; 3811 J/JUMPA ;GO JUMP ; 3812 ; 3813 1552: ; 3814 JSR: [BR]_PC WITH FLAGS, ;GET PC WITH FLAGS U 1552, 2730,3741,0105,4074,4467,0700,0000,0005,0000 ; 3815 CLR FPD ;CLEAR FIRST-PART-DONE ; 3816 VMA_[AR], ;EFFECTIVE ADDRESS U 2730, 2731,3443,0300,4174,4007,0700,0200,0003,0012 ; 3817 START WRITE ;STORE OLD PC WORD ; 3818 MEM WRITE, ;WAIT FOR MEMORY U 2731, 2732,3333,0005,4175,5007,0701,0200,0000,0002 ; 3819 MEM_[BR] ;STORE ; 3820 [PC]_[AR]+1000001, ;PC _ E+1 ; 3821 HOLD LEFT, ;NO JUNK IN LEFT ; 3822 3T, ;ALLOW TIME FOR DBM U 2732, 1400,0551,0301,4370,4007,0701,0000,0000,0001 ; 3823 J/DONE ;[127] START AT E+1 ; 3824 ;[127] MUST NICOND TO CLEAR TRAP CYCLE ; 3825 ; 3826 ; 3827 ; 3828 1554: ; 3829 JSA: [BR]_[AR], ;SAVE E U 1554, 2733,3441,0305,4174,4007,0700,0200,0003,0002 ; 3830 START WRITE ;START TO STORE U 2733, 0130,3770,0304,4344,4007,0700,0000,0000,0000 ; 3831 [ARX]_[AR] SWAP ;ARX LEFT _ E ; 3832 =0*0 [AR]_AC, ;GET OLD AC U 0130, 3075,3771,0003,0276,6007,0700,0010,0000,0000 ; 3833 CALL [IBPX] ;SAVE AR IN MEMORY ; 3834 =1*0 [ARX]_[PC], ;ARX NOW HAS E,,PC ; 3835 HOLD LEFT, ; .. U 0134, 3671,3441,0104,4170,4007,0700,0010,0000,0000 ; 3836 CALL [AC_ARX] ;GO PUT ARX IN AC ; 3837 =1*1 [PC]_[BR]+1000001, ;NEW PC ; 3838 3T, ;ALLOW TIME ; 3839 HOLD LEFT, ;NO JUNK IN PC LEFT U 0135, 1400,0551,0501,4370,4007,0701,0000,0000,0001 ; 3840 J/DONE ;[127] START AT E+1 ; 3841 ;[127] NICOND MUST CLEAR TRAP CYCLE ; 3842 = ; 3843 ; 3844 1555: U 1555, 2734,3771,0005,0276,6007,0700,0000,0000,0000 ; 3845 JRA: [BR]_AC ;GET AC U 2734, 2735,3770,0505,4344,4007,0700,0000,0000,0000 ; 3846 [BR]_[BR] SWAP ;OLD E IN BR RIGHT ; 3847 VMA_[BR], ;LOAD VMA U 2735, 2736,3443,0500,4174,4007,0700,0200,0004,0012 ; 3848 START READ ;FETCH SAVED AC ; 3849 MEM READ, ;WAIT FOR MEMORY ; 3850 [BR]_MEM, ;LOAD BR WITH SAVE AC U 2736, 0274,3771,0005,4365,5007,0700,0200,0000,0002 ; 3851 J/JMPA ;GO JUMP ; 3852 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 105 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ILLEGAL INSTRUCTIONS AND UUO'S ; 3853 .TOC "ILLEGAL INSTRUCTIONS AND UUO'S" ; 3854 ;LUUO'S TRAP TO CURRENT CONTEXT ; 3855 ; 3856 .DCODE D 0030, 0000,1557,2100 ; 3857 030: I, B/0, J/LUUO D 0031, 0001,1557,2100 ; 3858 I, B/1, J/LUUO D 0032, 0002,1557,2100 ; 3859 I, B/2, J/LUUO D 0033, 0003,1557,2100 ; 3860 I, B/3, J/LUUO D 0034, 0004,1557,2100 ; 3861 I, B/4, J/LUUO D 0035, 0005,1557,2100 ; 3862 I, B/5, J/LUUO D 0036, 0006,1557,2100 ; 3863 I, B/6, J/LUUO D 0037, 0007,1557,2100 ; 3864 I, B/7, J/LUUO ; 3865 ; 3866 ;MONITOR UUO'S -- TRAP TO EXEC ; 3867 D 0040, 0000,1556,2100 ; 3868 040: I, J/MUUO ;CALL D 0041, 0000,1556,2100 ; 3869 I, J/MUUO ;INIT D 0042, 0000,1556,2100 ; 3870 I, J/MUUO D 0043, 0000,1556,2100 ; 3871 I, J/MUUO D 0044, 0000,1556,2100 ; 3872 I, J/MUUO D 0045, 0000,1556,2100 ; 3873 I, J/MUUO D 0046, 0000,1556,2100 ; 3874 I, J/MUUO D 0047, 0000,1556,2100 ; 3875 I, J/MUUO ;CALLI D 0050, 0000,1556,2100 ; 3876 I, J/MUUO ;OPEN D 0051, 0000,1556,2100 ; 3877 I, J/MUUO ;TTCALL D 0052, 0000,1556,2100 ; 3878 I, J/MUUO D 0053, 0000,1556,2100 ; 3879 I, J/MUUO D 0054, 0000,1556,2100 ; 3880 I, J/MUUO D 0055, 0000,1556,2100 ; 3881 I, J/MUUO ;RENAME D 0056, 0000,1556,2100 ; 3882 I, J/MUUO ;IN D 0057, 0000,1556,2100 ; 3883 I, J/MUUO ;OUT D 0060, 0000,1556,2100 ; 3884 I, J/MUUO ;SETSTS D 0061, 0000,1556,2100 ; 3885 I, J/MUUO ;STATO D 0062, 0000,1556,2100 ; 3886 I, J/MUUO ;GETSTS D 0063, 0000,1556,2100 ; 3887 I, J/MUUO ;STATZ D 0064, 0000,1556,2100 ; 3888 I, J/MUUO ;INBUF D 0065, 0000,1556,2100 ; 3889 I, J/MUUO ;OUTBUF D 0066, 0000,1556,2100 ; 3890 I, J/MUUO ;INPUT D 0067, 0000,1556,2100 ; 3891 I, J/MUUO ;OUTPUT D 0070, 0000,1556,2100 ; 3892 I, J/MUUO ;CLOSE D 0071, 0000,1556,2100 ; 3893 I, J/MUUO ;RELEAS D 0072, 0000,1556,2100 ; 3894 I, J/MUUO ;MTAPE D 0073, 0000,1556,2100 ; 3895 I, J/MUUO ;UGETF D 0074, 0000,1556,2100 ; 3896 I, J/MUUO ;USETI D 0075, 0000,1556,2100 ; 3897 I, J/MUUO ;USETO D 0076, 0000,1556,2100 ; 3898 I, J/MUUO ;LOOKUP D 0077, 0000,1556,2100 ; 3899 I, J/MUUO ;ENTER ; 3900 ; 3901 ;EXPANSION OPCODES ; 3902 D 0100, 0000,1556,2100 ; 3903 100: I, J/UUO ;UJEN D 0101, 0000,1661,2100 ; 3904 I, J/UUO101 D 0102, 0000,1662,2100 ; 3905 I, J/UUO102 ;GFAD D 0103, 0000,1663,2100 ; 3906 I, J/UUO103 ;GFSB ; 3907 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 106 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ILLEGAL INSTRUCTIONS AND UUO'S ; 3908 ;RESERVED OPCODES ; 3909 D 0000, 0000,1556,2100 ; 3910 000: I, J/UUO D 0104, 0000,1664,2100 ; 3911 104: I, J/JSYS ;JSYS D 0106, 0000,1666,2100 ; 3912 106: I, J/UUO106 ;GFMP D 0107, 0000,1667,2100 ; 3913 I, J/UUO107 ;GFDV D 0130, 0000,1660,2100 ; 3914 130: I, B/0, J/FP-LONG ;UFA D 0131, 0001,1660,2100 ; 3915 I, B/1, J/FP-LONG ;DFN D 0141, 0002,1660,2100 ; 3916 141: I, B/2, J/FP-LONG ;FADL D 0151, 0003,1660,2100 ; 3917 151: I, B/3, J/FP-LONG ;FSBL D 0161, 0004,1660,2100 ; 3918 161: I, B/4, J/FP-LONG ;FMPL D 0171, 0005,1660,2100 ; 3919 171: I, B/5, J/FP-LONG ;FDVL D 0247, 0000,1665,2100 ; 3920 247: I, J/UUO247 ;RESERVED ; 3921 .UCODE ; 3922 ; 3923 1661: U 1661, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3924 UUO101: UUO ; 3925 1662: U 1662, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3926 UUO102: UUO ; 3927 1663: U 1663, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3928 UUO103: UUO ; 3929 1664: U 1664, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3930 JSYS: UUO ; 3931 1666: U 1666, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3932 UUO106: UUO ; 3933 1667: U 1667, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3934 UUO107: UUO ; 3935 1660: U 1660, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3936 FP-LONG:UUO ; 3937 1665: U 1665, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3938 UUO247: UUO ; 3939 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 107 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ILLEGAL INSTRUCTIONS AND UUO'S ; 3940 ;HERE FOR UUO'S WHICH TRAP TO EXEC ; 3941 1556: ; 3942 UUO: ;THIS TAG IS USED FOR ILLEGAL THINGS WHICH DO UUO TRAPS ; 3943 MUUO: ;THIS TAG IS USED FOR MONITOR CALL INSTRUCTIONS ; 3944 [HR]_[HR].AND.#, ;MASK OUT @ AND XR ; 3945 #/777740, ;MASK U 1556, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 3946 HOLD RIGHT ;KEEP RIGHT ; 3947 ;THE UUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO UUOGO U 2737, 1156,4751,1204,4374,4007,0700,0000,0000,0424 ; 3948 UUOGO: [ARX]_0 XWD [424] ;HERE FROM UUO MACRO ; 3949 ;GET OFFSET TO UPT ; 3950 =0 [ARX]_[ARX]+[UBR], ;ADDRESS OF MUUO WORD U 1156, 1510,0111,1104,4174,4007,0700,0010,0000,0000 ; 3951 CALL [ABORT] ;STOP MEMORY ; 3952 .IF/KIPAGE ; 3953 .IF/KLPAGE ; 3954 READ [EBR], ;IF BOTH POSSIBLE, SEE WHICH IS ENABLED U 1157, 1160,3333,0010,4174,4007,0520,0000,0000,0000 ; 3955 SKIP DP0 ;KL PAGING ?? ; 3956 =0 ; 3957 .ENDIF/KLPAGE ; 3958 READ [ARX], ;GET THE ADDRESS ; 3959 LOAD VMA, ;START WRITE ; 3960 VMA PHYSICAL WRITE, ;ABSOLUTE ADDRESS U 1160, 0310,3333,0004,4174,4007,0700,0200,0021,1016 ; 3961 J/KIMUUO ;GO STORE KI STYLE ; 3962 .ENDIF/KIPAGE ; 3963 .IF/KLPAGE U 1161, 1162,3770,0203,4344,4007,0700,0000,0000,0000 ; 3964 [AR]_[HR] SWAP ;PUT IN RIGHT HALF ; 3965 =0 [AR]_FLAGS, ;FLAGS IN LEFT HALF ; 3966 HOLD RIGHT, ;JUST WANT FLAGS U 1162, 2745,4521,1203,4074,0007,0700,0010,0000,0000 ; 3967 CALL [UUOFLG] ;CLEAR TRAP FLAGS ; 3968 READ [ARX], ;LOOK AT ADDRESS ; 3969 LOAD VMA, ;LOAD THE VMA U 1163, 0314,3333,0004,4174,4007,0700,0200,0021,1016 ; 3970 VMA PHYSICAL WRITE ;STORE FLAG WORD ; 3971 =0* MEM WRITE, ;WAIT FOR MEMORY U 0314, 2746,3333,0003,4175,5007,0701,0210,0000,0002 ; 3972 MEM_[AR], CALL [NEXT] ;STORE ; 3973 MEM WRITE, ;WAIT FOR MEMORY U 0316, 0020,3333,0001,4175,5007,0701,0200,0000,0002 ; 3974 MEM_[PC] ;STORE FULL WORD PC ; 3975 =000 [HR]_0, ;SAVE E U 0020, 2746,4221,0002,4174,0007,0700,0010,0000,0000 ; 3976 HOLD RIGHT, CALL [NEXT] ;BUT CLEAR OPCODE ; 3977 .ENDIF/KLPAGE ; 3978 =010 ; 3979 UUOPCW: MEM WRITE, ;WAIT FOR MEMORY ; 3980 MEM_[HR], ;STORE INSTRUCTION IN KI ; 3981 ; OR FULL WORD E IN KL U 0022, 3541,3333,0002,4175,5007,0701,0210,0000,0002 ; 3982 CALL [GETPCW] ;GET PROCESS-CONTEXT-WORD ; 3983 ; 3984 =011 NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD U 0023, 3667,0111,0704,4170,4007,0700,0210,0023,1016 ; 3985 CALL [STOBR] ;STORE PROCESS CONTEXT WORD ; 3986 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 108 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ILLEGAL INSTRUCTIONS AND UUO'S ; 3987 ;NOW WE MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS U 0027, 2740,4751,1205,4374,4007,0700,0000,0000,0430 ; 3988 =111 [BR]_0 XWD [430] ;OFFSET INTO UPT ; 3989 = U 2740, 2741,0111,1105,4174,4007,0700,0000,0000,0000 ; 3990 [BR]_[BR]+[UBR] ;ADDRESS OF WORD U 2741, 2742,4521,1203,4074,4007,0700,0000,0000,0000 ; 3991 [AR]_FLAGS ;GET FLAGS ; 3992 TL [AR], ;LOOK AT FLAGS U 2742, 1164,4553,0300,4374,4007,0321,0000,0000,0600 ; 3993 #/600 ;TRAP SET? ; 3994 =0 [BR]_[BR].OR.#, ;YES--POINT TO TRAP CASE ; 3995 #/1, ; .. U 1164, 1165,3551,0505,4370,4007,0700,0000,0000,0001 ; 3996 HOLD LEFT ;LEAVE LEFT ALONE ; 3997 TL [AR], ;USER OR EXEC U 1165, 1166,4553,0300,4374,4007,0321,0000,0001,0000 ; 3998 #/10000 ; .. ; 3999 =0 [BR]_[BR].OR.#, ;USER ; 4000 #/4, ;POINT TO USER WORDS U 1166, 1167,3551,0505,4370,4007,0700,0000,0000,0004 ; 4001 HOLD LEFT ; 4002 READ [BR], ;LOOK AT ADDRESS ; 4003 LOAD VMA, ;PLACE IN VMA ; 4004 VMA PHYSICAL, ;PHYSICAL ADDRESS U 1167, 2743,3333,0005,4174,4007,0700,0200,0024,1016 ; 4005 START READ ;GET NEW PC WORD ; 4006 GOEXEC: MEM READ, ;WAIT FOR DATA U 2743, 2744,3771,0003,4365,5007,0700,0200,0000,0002 ; 4007 [AR]_MEM ;STICK IN AR ; 4008 READ [AR], ;LOOK AT DATA ; 4009 LOAD FLAGS, ;LOAD NEW FLAGS ; 4010 LEAVE USER, ;ALLOW USER TO LOAD ; 4011 LOAD PCU, ;SET PCU FROM USER U 2744, 0764,3333,0003,4174,4467,0700,0000,0000,0404 ; 4012 J/JUMPA ;JUMP ; 4013 ; 4014 .IF/KIPAGE ; 4015 ;HERE FOR TOPS-10 STYLE PAGING ; 4016 ; 4017 =00 ; 4018 KIMUUO: MEM WRITE, ;STORE INSTRUCTION U 0310, 2746,3333,0002,4175,5007,0701,0210,0000,0002 ; 4019 MEM_[HR], CALL [NEXT] ;IN MEMORY ; 4020 =10 [AR]_PC WITH FLAGS, ;GET PC WORD U 0312, 2745,3741,0103,4074,4007,0700,0010,0000,0000 ; 4021 CALL [UUOFLG] ;CLEAR TRAP FLAGS ; 4022 =11 MEM WRITE, ;STORE PC WORD ; 4023 MEM_[AR], ; .. U 0313, 0022,3333,0003,4175,5007,0701,0200,0000,0002 ; 4024 J/UUOPCW ;GO STORE PROCESS CONTEXT ; 4025 .ENDIF/KIPAGE ; 4026 ; 4027 UUOFLG: [AR]_[AR].AND.NOT.#, ;CLEAR TRAP FLAGS ; 4028 #/600, HOLD RIGHT, ; IN WORD TO SAVE U 2745, 0001,5551,0303,4374,0004,1700,0000,0000,0600 ; 4029 RETURN [1] ; BACK TO CALLER ; 4030 ; 4031 NEXT: NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD U 2746, 0002,0111,0704,4170,4004,1700,0200,0023,1016 ; 4032 RETURN [2] ; 4033 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 109 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ILLEGAL INSTRUCTIONS AND UUO'S ; 4034 ;HERE FOR LUUO'S ; 4035 1557: U 1557, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 4036 LUUO: [AR]_0 XWD [40] ;AR GET CONSTANT 40 ; 4037 ;THE LUUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO LUUO1 ; 4038 400: ;FOR SIMULATOR ; 4039 LUUO1: READ [AR], ;LOAD 40 INTO ; 4040 LOAD VMA, ; THE VMA AND U 0400, 2747,3333,0003,4174,4007,0700,0200,0003,0012 ; 4041 START WRITE ; PREPARE TO STORE ; 4042 [HR]_[HR].AND.#, ;CLEAR OUT INDEX AND @ ; 4043 #/777740, ; .. U 2747, 2750,4551,0202,4374,0007,0700,0000,0077,7740 ; 4044 HOLD RIGHT ; 4045 MEM WRITE, ;STORE LUUO IN 40 U 2750, 2751,3333,0002,4175,5007,0701,0200,0000,0002 ; 4046 MEM_[HR] ; 4047 VMA_[AR]+1, ;POINT TO 41 ; 4048 LOAD VMA, ;PUT 41 IN VMA ; 4049 START READ, ;START FETCH U 2751, 2501,0111,0703,4170,4007,0700,0200,0004,0012 ; 4050 J/CONT1 ;GO EXECUTE THE INSTRUCTION ; 4051 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 110 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- ADD, SUB ; 4052 .TOC "ARITHMETIC -- ADD, SUB" ; 4053 ; 4054 .DCODE D 0270, 1015,1560,1100 ; 4055 270: R-PF, AC, J/ADD D 0271, 0015,1560,3000 ; 4056 I-PF, AC, J/ADD D 0272, 0016,1560,1700 ; 4057 RW, M, J/ADD D 0273, 0017,1560,1700 ; 4058 RW, B, J/ADD ; 4059 .UCODE ; 4060 ; 4061 1560: ; 4062 ADD: [AR]_[AR]+AC, ;DO THE ADD U 1560, 1500,0551,0303,0274,4463,7701,0200,0001,0001 ; 4063 AD FLAGS EXIT, 3T ;UPDATE CARRY FLAGS ; 4064 ;STORE ANSWER ; 4065 ;MISSES 3-TICKS BY 3 NS. ; 4066 ; 4067 ; 4068 .DCODE D 0274, 1015,1561,1100 ; 4069 274: R-PF, AC, J/SUB D 0275, 0015,1561,3000 ; 4070 I-PF, AC, J/SUB D 0276, 0016,1561,1700 ; 4071 RW, M, J/SUB D 0277, 0017,1561,1700 ; 4072 RW, B, J/SUB ; 4073 .UCODE ; 4074 ; 4075 1561: ; 4076 SUB: [AR]_AC-[AR], ;DO THE SUBTRACT U 1561, 1500,2551,0303,0274,4463,7701,4200,0001,0001 ; 4077 AD FLAGS EXIT, 3T ;UPDATE PC CARRY FLAGS ; 4078 ;ALL DONE ; 4079 ;MISSES 3-TICKS BY 3 NS. ; 4080 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 111 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DADD, DSUB ; 4081 .TOC "ARITHMETIC -- DADD, DSUB" ; 4082 ; 4083 .DCODE D 0114, 0205,1457,1100 ; 4084 114: DBL R, DAC, J/DADD D 0115, 0205,1615,1100 ; 4085 DBL R, DAC, J/DSUB ; 4086 .UCODE ; 4087 ; 4088 1457: ; 4089 DADD: [ARX]_[ARX]+AC[1], 4T, ;ADD LOW WORDS U 1457, 1170,0551,0404,1274,4007,0562,0000,0000,1441 ; 4090 SKIP CRY1 ;SEE IF CARRY TO HIGH WORD ; 4091 =0 ; 4092 DADD1: [AR]_[AR]+AC, ;ADD HIGH WORDS ; 4093 ADD .25, ;ADD IN ANY CARRY FROM LOW WORD ; 4094 AD FLAGS, 4T, ;UPDATE PC FLAGS U 1170, 2753,0551,0303,0274,4467,0702,4000,0001,0001 ; 4095 J/CPYSGN ;COPY SIGN TO LOW WORD U 1171, 2752,7441,1205,4174,4007,0700,0000,0000,0000 ; 4096 [BR]_.NOT.[MASK] ;SET BITS 35 AND 36 IN ; 4097 [AR]_[AR].OR.[BR], ; AR SO THAT ADD .25 WILL U 2752, 1170,3111,0503,4170,4007,0700,0000,0000,0000 ; 4098 HOLD LEFT, J/DADD1 ; ADD 1. ; 4099 ; 4100 1615: ; 4101 DSUB: [ARX]_AC[1]-[ARX], 4T, ;SUBTRACT LOW WORD U 1615, 1172,2551,0404,1274,4007,0562,4000,0000,1441 ; 4102 SKIP CRY1 ;SEE IF CARRY ; 4103 =0 [AR]_AC-[AR]-.25, ;NO CARRY ; 4104 AD FLAGS, 4T, ;UPDATE PC FLAGS U 1172, 2753,2551,0303,0274,4467,0702,0000,0001,0001 ; 4105 J/CPYSGN ;GO COPY SIGN ; 4106 [AR]_AC-[AR], 4T, ;THERE WAS A CARRY U 1173, 2753,2551,0303,0274,4467,0702,4000,0001,0001 ; 4107 AD FLAGS ;UPDATE CARRY FLAGS ; 4108 U 2753, 1174,3770,0303,4174,0007,0520,0000,0000,0000 ; 4109 CPYSGN: FIX [AR] SIGN, SKIP DP0 U 1174, 1404,4551,0404,4374,0007,0700,0000,0037,7777 ; 4110 =0 [ARX]_[ARX].AND.#, #/377777, HOLD RIGHT, J/MOVE U 1175, 1404,3551,0404,4374,0007,0700,0000,0040,0000 ; 4111 [ARX]_[ARX].OR.#, #/400000, HOLD RIGHT, J/MOVE ; 4112 ; 4113 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 112 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- MUL, IMUL ; 4114 .TOC "ARITHMETIC -- MUL, IMUL" ; 4115 ; 4116 .DCODE D 0220, 1015,1641,1100 ; 4117 220: R-PF, AC, J/IMUL D 0221, 0015,1641,3000 ; 4118 I-PF, AC, J/IMUL D 0222, 0016,1641,1700 ; 4119 RW, M, J/IMUL D 0223, 0017,1641,1700 ; 4120 RW, B, J/IMUL ; 4121 .UCODE ; 4122 1641: U 1641, 2754,3441,0306,0174,4007,0700,0000,0000,0000 ; 4123 IMUL: [BRX]_[AR], AC ;COPY C(E) U 2754, 0021,3772,0000,0275,5007,0700,2000,0071,0043 ; 4124 Q_AC, SC_35. ;GET THE AC ; 4125 =0** [BRX]_[BRX]*.5 LONG, ;SHIFT RIGHT U 0021, 3000,3446,0606,4174,4007,0700,0010,0000,0000 ; 4126 CALL [MULSUB] ;MULTIPLY U 0025, 1176,3333,0004,4174,4007,0621,0000,0000,0000 ; 4127 READ [ARX], SKIP AD.EQ.0 ;SEE IF FITS U 1176, 2755,3445,0404,4174,4007,0700,0000,0000,0000 ; 4128 =0 [ARX]_[ARX]*2, J/IMUL2 ;NOT ZERO--SHIFT LEFT U 1177, 1500,3221,0003,4174,4003,7700,0200,0003,0001 ; 4129 IMUL1: [AR]_Q, EXIT ;POSITIVE ; 4130 ; 4131 IMUL2: [MASK].AND.NOT.[ARX], ;SEE IF ALL SIGN BITS U 2755, 1200,5113,0412,4174,4007,0621,0000,0000,0000 ; 4132 SKIP AD.EQ.0 ; .. ; 4133 =0 FIX [ARX] SIGN, ;NOT ALL SIGN BITS U 1200, 1202,3770,0404,4174,0007,0520,0000,0000,0000 ; 4134 SKIP DP0, J/IMUL3 ;GIVE + OR - OVERFLOW U 1201, 1500,7001,0003,4174,4003,7700,0200,0003,0001 ; 4135 [AR]_[MAG].EQV.Q, EXIT ;NEGATIVE ; 4136 =0 U 1202, 1404,3221,0003,4174,4467,0700,0000,0041,1000 ; 4137 IMUL3: [AR]_Q, SET AROV, J/MOVE U 1203, 1404,7001,0003,4174,4467,0700,0000,0041,1000 ; 4138 [AR]_[MAG].EQV.Q, SET AROV, J/MOVE ; 4139 ; 4140 ; 4141 .DCODE D 0224, 1005,1571,1100 ; 4142 224: R-PF, DAC, J/MUL D 0225, 0005,1571,3000 ; 4143 I-PF, DAC, J/MUL D 0226, 0016,1571,1700 ; 4144 RW, M, J/MUL D 0227, 0006,1571,1700 ; 4145 RW, DBL B, J/MUL ; 4146 .UCODE ; 4147 ; 4148 ; 4149 1571: U 1571, 2756,3442,0300,0174,4007,0700,0000,0000,0000 ; 4150 MUL: Q_[AR], AC ;COPY C(E) U 2756, 2757,3441,0316,4174,4007,0700,0000,0000,0000 ; 4151 [T0]_[AR] ;SAVE FOR OVERFLOW TEST U 2757, 0031,3771,0006,0276,6007,0700,2000,0071,0043 ; 4152 [BRX]_AC, SC_35. ;GET THE AC ; 4153 =0** [BRX]_[BRX]*.5 LONG, ;SHIFT OVER U 0031, 3000,3446,0606,4174,4007,0700,0010,0000,0000 ; 4154 CALL [MULSUB] ;MULTIPLY U 0035, 2760,3445,0403,4174,4007,0700,0000,0000,0000 ; 4155 [AR]_[ARX]*2 ;SHIFT OVER U 2760, 1204,3770,0303,4174,0007,0520,0000,0000,0000 ; 4156 FIX [AR] SIGN, SKIP DP0 ;SEE IF NEGATIVE ; 4157 =0 [ARX]_[MAG].AND.Q, ;POSITIVE U 1204, 1500,4001,0004,4174,4003,7700,0200,0003,0001 ; 4158 EXIT U 1205, 1206,4113,0616,4174,4007,0520,0000,0000,0000 ; 4159 [T0].AND.[BRX], SKIP DP0 ;TRIED TO SQUARE 1B0? U 1206, 1500,7001,0004,4174,4003,7700,0200,0003,0001 ; 4160 =0 [ARX]_[MAG].EQV.Q, EXIT ;NO ; 4161 [ARX]_[MAG].EQV.Q, ;YES U 1207, 1404,7001,0004,4174,4467,0700,0000,0041,1000 ; 4162 SET AROV, J/MOVE ; 4163 ; 4164 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 113 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DMUL ; 4165 .TOC "ARITHMETIC -- DMUL" ; 4166 ; 4167 .DCODE D 0116, 0205,1566,1100 ; 4168 116: DBL R, DAC, J/DMUL ; 4169 .UCODE ; 4170 ; 4171 .IF/FULL ; 4172 1566: U 1566, 2761,3447,0303,4174,4007,0700,0000,0000,0000 ; 4173 DMUL: [AR]_[AR]*.5 ;SHIFT MEM OPERAND RIGHT U 2761, 2762,4117,0004,4174,4007,0700,0000,0000,0000 ; 4174 [ARX]_([ARX].AND.[MAG])*.5 ; 4175 [BR]_[ARX], ;COPY LOW WORD U 2762, 0120,3441,0405,4174,4007,0350,0000,0000,0000 ; 4176 SKIP FPD ;SEE IF FIRST PART DONE ; 4177 ; ; 4178 ; BRX * BR ==> C(E+1) * C(AC+1) ; 4179 ; ; 4180 =000 [BRX]_(AC[1].AND.[MAG])*.5, 3T, ;GET LOW AC U 0120, 2774,4557,0006,1274,4007,0701,0010,0000,1441 ; 4181 CALL [DMULGO] ;START MULTIPLY ; 4182 [ARX]_(AC[2].AND.[MAG])*.5, 3T, ;FIRST PART DONE U 0121, 2764,4557,0004,1274,4007,0701,0000,0000,1442 ; 4183 J/DMUL1 ;GO DO SECOND PART U 0124, 0171,3223,0000,1174,4007,0700,0400,0000,1443 ; 4184 =100 AC[3]_Q ;SALT AWAY 1 WORD OF PRODUCT ; 4185 = ; 4186 ; ; 4187 ; BRX * Q ==> C(E) * C(AC+1) ; 4188 ; ; 4189 =0** Q_[AR], SC_35., ;GO MULT NEXT HUNK U 0171, 0563,3442,0300,4174,4007,0700,2010,0071,0043 ; 4190 CALL [QMULT] ; .. U 0175, 2763,3441,0416,4174,4007,0700,0000,0000,0000 ; 4191 [T0]_[ARX] ;SAVE PRODUCT ; 4192 AC[2]_Q, [ARX]_Q*.5, ;SAVE PRODUCT U 2763, 0410,3227,0004,1174,4007,0700,0400,0000,1442 ; 4193 J/DMUL2 ;GO DO HIGH HALF U 2764, 0410,3777,0016,1276,6007,0701,0000,0000,1441 ; 4194 DMUL1: [T0]_AC[1]*.5 ;RESTORE T0 ; 4195 =0*0 ; 4196 ; ; 4197 ; BRX * BR ==> C(AC) * C(E+1) ; 4198 ; ; 4199 DMUL2: [BRX]_AC*.5, ;PREPARE TO DO HIGH HALF U 0410, 2775,3777,0006,0274,4007,0701,0010,0000,0000 ; 4200 CALL [DBLMUL] ; GO DO IT ; 4201 AC[1]_[T0]*2, 3T, ;INTERRUPT, SAVE T0 U 0411, 2777,0113,1616,1174,4007,0701,0400,0000,1441 ; 4202 J/DMLINT ;SET FPD AND INTERRUPT U 0414, 2765,3223,0000,1174,4007,0700,0400,0000,1442 ; 4203 AC[2]_Q ;SAVE PRODUCT ; 4204 = U 2765, 0543,0111,1604,4174,4007,0700,0000,0000,0000 ; 4205 [ARX]_[ARX]+[T0] ;PREPARE FOR LAST MUL ; 4206 ; ; 4207 ; BRX * Q ==> C(AC) * C(E) ; 4208 ; ; 4209 =0** Q_[AR], SC_35., ;DO THE LAST MULTIPLY U 0543, 0563,3442,0300,4174,4007,0700,2010,0071,0043 ; 4210 CALL [QMULT] ; GO DO IT ; 4211 [ARX]_[ARX]*2, ;SHIFT BACK U 0547, 2766,3445,0404,4174,4467,0700,0000,0005,0000 ; 4212 CLR FPD ;CLEAR FPD ; 4213 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 114 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DMUL U 2766, 1210,3770,0404,0174,4007,0520,0400,0000,0000 ; 4214 AC_[ARX] TEST, SKIP DP0 ;PUT BACK INTO AC U 1210, 2773,3223,0000,1174,4007,0700,0400,0000,1441 ; 4215 =0 AC[1]_Q, J/DMTRAP ;POSITIVE U 1211, 2767,7003,0000,1174,4007,0700,0400,0000,1441 ; 4216 AC[1]_[MAG].EQV.Q ;NEGATIVE U 2767, 2770,3772,0000,1275,5007,0701,0000,0000,1442 ; 4217 Q_AC[2] U 2770, 2771,7003,0000,1174,4007,0700,0400,0000,1442 ; 4218 AC[2]_[MAG].EQV.Q U 2771, 2772,3772,0000,1275,5007,0701,0000,0000,1443 ; 4219 Q_AC[3] U 2772, 2773,7003,0000,1174,4007,0700,0400,0000,1443 ; 4220 AC[3]_[MAG].EQV.Q ; 4221 DMTRAP: [AR]_PC WITH FLAGS, ;LOOK AT FLAGS U 2773, 1212,3741,0103,4074,4007,0520,0000,0000,0000 ; 4222 SKIP DP0 ;SEE IF AROV SET? U 1212, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 4223 =0 DONE ;NO--ALL DONE U 1213, 1400,4443,0000,4174,4467,0700,0000,0041,1000 ; 4224 SET AROV, J/DONE ;YES--FORCE TRAP 1 ALSO ; 4225 ; 4226 ; 4227 ;WAYS TO CALL MULTIPLY U 2774, 2775,4221,0004,4174,4007,0700,0000,0000,0000 ; 4228 DMULGO: [ARX]_0 ;CLEAR ARX U 2775, 2776,3442,0500,4174,4007,0700,2000,0071,0043 ; 4229 DBLMUL: Q_[BR], SC_35. U 2776, 0563,3447,0606,4174,4007,0700,0000,0000,0000 ; 4230 [BRX]_[BRX]*.5 ; 4231 =0** ; 4232 QMULT: Q_Q*.5, U 0563, 3002,3446,1200,4174,4007,0700,0010,0000,0000 ; 4233 CALL [MULTIPLY] ; 4234 [ARX]+[ARX], AD FLAGS, ;TEST FOR OVERFLOW U 0567, 0004,0113,0404,4174,4464,1701,0000,0001,0001 ; 4235 3T, RETURN [4] ;AND RETURN ; 4236 U 2777, 2677,4443,0000,4174,4467,0700,0000,0003,0000 ; 4237 DMLINT: SET FPD, J/FIXPC ;SET FPD, BACKUP PC ; 4238 ; INTERRUPT ;;4239 .IFNOT/FULL ;;4240 1566: ;;4241 DMUL: UUO ; 4242 .ENDIF/FULL ; 4243 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 115 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DMUL ; 4244 ;MULTIPLY SUBROUTINE ; 4245 ;ENTERED WITH: ; 4246 ; MULTIPLIER IN Q ; 4247 ; MULTIPLICAND IN BRX ; 4248 ;RETURNS 4 WITH PRODUCT IN ARX!Q ; 4249 ; 4250 MUL STEP "A/BRX,B/ARX,DEST/Q_Q*.5,ASHC,STEP SC,MUL DISP" ; 4251 MUL FINAL "A/BRX,B/ARX,DEST/Q_Q*2" ; 4252 U 3000, 3001,3446,0606,4174,4007,0700,0000,0000,0000 ; 4253 MULSUB: [BRX]_[BRX]*.5 LONG ; 4254 MULSB1: [ARX]_0*.5 LONG, ;CLEAR ARX AND SHIFT Q ; 4255 STEP SC, ;COUNT FIRST STEP U 3001, 0122,4226,0004,4174,4007,0630,2000,0060,0000 ; 4256 J/MUL+ ;ENTER LOOP ; 4257 ; 4258 ;MULTIPLY SUBROUTINE ; 4259 ;ENTERED WITH: ; 4260 ; MULTIPLIER IN Q ; 4261 ; MULTIPLICAND IN BRX ; 4262 ; PARTIAL PRODUCT IN ARX ; 4263 ;RETURNS 4 WITH Q*BRX+ARX IN ARX!Q ; 4264 ; 4265 MULTIPLY: ; 4266 Q_Q*.5, ;SHIFT Q ; 4267 STEP SC, ;COUNT FIRST STEP U 3002, 0122,3446,1200,4174,4007,0630,2000,0060,0000 ; 4268 J/MUL+ ;ENTER LOOP ; 4269 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 116 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DMUL ; 4270 ;HERE FOR POSITIVE STEPS ; 4271 =010 ;0 IN A POSITIVE STEP ; 4272 MUL+: AD/B, ;DON'T ADD ; 4273 MUL STEP, ;SHIFT U 0122, 0122,3336,0604,4174,4046,2630,2000,0060,0000 ; 4274 J/MUL+ ;KEEP POSITIVE ; 4275 =011 ;DONE ; 4276 AD/B, ;DON'T ADD ; 4277 MUL FINAL, ;SHIFT U 0123, 0004,3334,0604,4174,4004,1700,0000,0000,0000 ; 4278 RETURN [4] ;SHIFT Q AND RETURN ; 4279 =110 ;1 IN A POSITIVE STEP ; 4280 AD/B-A-.25, ADD .25, ;SUBTRACT ; 4281 MUL STEP, ;SHIFT AND COUNT U 0126, 0142,1116,0604,4174,4046,2630,6000,0060,0000 ; 4282 J/MUL- ;NEGATIVE NOW ; 4283 =111 ;DONE ; 4284 AD/B-A-.25, ADD .25, ;SUBTRACT ; 4285 MUL FINAL, ;SHIFT U 0127, 0004,1114,0604,4174,4004,1700,4000,0000,0000 ; 4286 RETURN [4] ; AND RETURN ; 4287 ; 4288 ;HERE FOR NEGATIVE STEPS ; 4289 =010 ;0 IN NEGATIVE STEP ; 4290 MUL-: AD/A+B, ;ADD ; 4291 MUL STEP, ;SHIFT AND COUNT U 0142, 0122,0116,0604,4174,4046,2630,2000,0060,0000 ; 4292 J/MUL+ ;POSITIVE NOW ; 4293 =011 ;DONE ; 4294 AD/A+B, ;ADD ; 4295 MUL FINAL, ;SHIFT U 0143, 0004,0114,0604,4174,4004,1700,0000,0000,0000 ; 4296 RETURN [4] ;FIX Q AND RETURN ; 4297 =110 ;1 IN NEGATIVE STEP ; 4298 AD/B, ;DON'T ADD ; 4299 MUL STEP, ;SHIFT AND COUNT U 0146, 0142,3336,0604,4174,4046,2630,2000,0060,0000 ; 4300 J/MUL- ;STILL NEGATIVE ; 4301 =111 ;DONE ; 4302 AD/B, ;DON'T ADD ; 4303 MUL FINAL, ;SHIFT U 0147, 0004,3334,0604,4174,4004,1700,0000,0000,0000 ; 4304 RETURN [4] ;FIX Q AND RETURN ; 4305 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 117 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DIV, IDIV ; 4306 .TOC "ARITHMETIC -- DIV, IDIV" ; 4307 ; 4308 .DCODE D 0230, 1005,1600,1100 ; 4309 230: R-PF, DAC, J/IDIV D 0231, 0005,1600,3000 ; 4310 I-PF, DAC, J/IDIV D 0232, 0016,1600,1700 ; 4311 RW, M, J/IDIV D 0233, 0006,1600,1700 ; 4312 RW, DBL B, J/IDIV ; 4313 D 0234, 1005,1601,1100 ; 4314 234: R-PF, DAC, J/DIV D 0235, 0005,1601,3000 ; 4315 I-PF, DAC, J/DIV D 0236, 0016,1601,1700 ; 4316 RW, M, J/DIV D 0237, 0006,1601,1700 ; 4317 RW, DBL B, J/DIV ; 4318 .UCODE ; 4319 ; 4320 1600: U 1600, 3003,3441,0305,0174,4007,0700,0000,0000,0000 ; 4321 IDIV: [BR]_[AR], AC ;COPY MEMORY OPERAND ; 4322 Q_AC, ;LOAD Q U 3003, 1214,3772,0000,0275,5007,0520,0000,0000,0000 ; 4323 SKIP DP0 ;SEE IF MINUS ; 4324 =0 [AR]_0, ;EXTEND + SIGN U 1214, 0161,4221,0003,4174,4007,0700,0000,0000,0000 ; 4325 J/DIV1 ;NOW SAME AS DIV ; 4326 [AR]_-1, ;EXTEND - SIGN U 1215, 0161,2441,0703,4174,4007,0700,4000,0000,0000 ; 4327 J/DIV1 ;SAME AS DIV ; 4328 ; 4329 1601: U 1601, 3004,3441,0305,4174,4007,0700,0000,0000,0000 ; 4330 DIV: [BR]_[AR] ;COPY MEM OPERAND U 3004, 3005,3771,0003,0276,6007,0700,0000,0000,0000 ; 4331 [AR]_AC ;GET AC U 3005, 3006,3772,0000,1275,5007,0701,0000,0000,1441 ; 4332 Q_AC[1] ;AND AC+1 ; 4333 READ [AR], ;TEST FOR NO DIVIDE U 3006, 0160,3333,0003,4174,4007,0621,0000,0000,0000 ; 4334 SKIP AD.EQ.0 ; 4335 =000 .NOT.[AR], ;SEE IF ALL SIGN BITS IN AR ; 4336 SKIP AD.EQ.0, ; .. U 0160, 1216,7443,0300,4174,4007,0621,0000,0000,0000 ; 4337 J/DIVA ;CONTINUE BELOW ; 4338 =001 ; 4339 DIV1: READ [BR], ;SEE IF DIVIDE BY U 0161, 0164,3333,0005,4174,4007,0621,0000,0000,0000 ; 4340 SKIP AD.EQ.0 ; ZERO ; 4341 =100 ; 4342 DIV2: SC_34., ;NOT ZERO--LOAD STEP COUNT U 0164, 0370,4443,0000,4174,4007,0700,2010,0071,0042 ; 4343 CALL [DIVSUB] ;DIVIDE U 0165, 0555,4443,0000,4174,4467,0700,0000,0051,1000 ; 4344 =101 NO DIVIDE ;DIVIDE BY ZERO ; 4345 =110 [ARX]_[AR], ;COPY REMAINDER U 0166, 1177,3441,0304,4174,4007,0700,0000,0000,0000 ; 4346 J/IMUL1 ;STORE ANSWER ; 4347 = ; 4348 ; 4349 ; 4350 =0 ; 4351 DIVA: [BRX]_[AR], ;HIGH WORD IS NOT SIGNS U 1216, 3007,3441,0306,4174,4007,0700,0000,0000,0000 ; 4352 J/DIVB ;GO TEST FOR NO DIVIDE ; 4353 READ [BR], ;ALL SIGN BITS ; 4354 SKIP AD.EQ.0, ;SEE IF ZERO DIVIDE U 1217, 0164,3333,0005,4174,4007,0621,0000,0000,0000 ; 4355 J/DIV2 ;BACK TO MAIN FLOW ; 4356 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 118 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DIV, IDIV U 3007, 3010,3221,0004,4174,4007,0700,0000,0000,0000 ; 4357 DIVB: [ARX]_Q ;MAKE ABS VALUES ; 4358 READ [AR], ;SEE IF + U 3010, 0330,3333,0003,4174,4007,0520,0000,0000,0000 ; 4359 SKIP DP0 ; 4360 =00 READ [BR], ;SEE IF + ; 4361 SKIP DP0, U 0330, 1220,3333,0005,4174,4007,0520,0000,0000,0000 ; 4362 J/DIVC ;CONTINUE BELOW ; 4363 CLEAR [ARX]0, ;FLUSH DUPLICATE SIGN U 0331, 3071,4551,0404,4374,0007,0700,0010,0037,7777 ; 4364 CALL [DBLNG1] ;NEGATE AR!ARX ; 4365 =11 READ [BR], ;SEE IF TOO BIG ; 4366 SKIP DP0, U 0333, 1220,3333,0005,4174,4007,0520,0000,0000,0000 ; 4367 J/DIVC ; 4368 = ; 4369 =0 ; 4370 DIVC: [AR]-[BR], ;COMPUTE DIFFERENCE ; 4371 SKIP DP0, ;SEE IF IT GOES ; 4372 3T, ;ALLOW TIME U 1220, 1222,2113,0305,4174,4007,0521,4000,0000,0000 ; 4373 J/NODIV ;TEST ; 4374 [AR]+[BR], ; 4375 SKIP DP0, ;SAME TEST FOR -VE BR ; 4376 3T, U 1221, 1222,0113,0305,4174,4007,0521,0000,0000,0000 ; 4377 J/NODIV ; 4378 =0 U 1222, 0555,4443,0000,4174,4467,0700,0000,0051,1000 ; 4379 NODIV: NO DIVIDE ;TOO BIG ; 4380 [AR]_[BRX], ;FITS U 1223, 0161,3441,0603,4174,4007,0700,0000,0000,0000 ; 4381 J/DIV1 ;GO BACK AND DIVIDE ; 4382 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 119 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DDIV ; 4383 .TOC "ARITHMETIC -- DDIV" ; 4384 ; 4385 .DCODE D 0117, 0205,1627,1100 ; 4386 117: DBL R, DAC, J/DDIV ; 4387 .UCODE ; 4388 ; 4389 .IF/FULL ; 4390 1627: U 1627, 3011,4112,0400,4174,4007,0700,0000,0000,0000 ; 4391 DDIV: Q_[ARX].AND.[MAG] ;COPY LOW WORD ; 4392 [BR]_[AR]*.5, ;COPY MEMORY OPERAND U 3011, 1224,3447,0305,4174,4007,0421,0000,0000,0000 ; 4393 SKIP AD.LE.0 ;SEE IF POSITIVE ; 4394 =0 [BR]_[BR]*.5 LONG, ;POSITIVE U 1224, 1230,3446,0505,4174,4007,0700,0000,0000,0000 ; 4395 J/DDIV1 ;CONTINUE BELOW ; 4396 [BR]_[BR]*.5 LONG, ;NEGATIVE OR ZERO U 1225, 1226,3446,0505,4174,4007,0520,0000,0000,0000 ; 4397 SKIP DP0 ;SEE WHICH? ; 4398 =0 [MAG].AND.Q, ;SEE IF ALL ZERO U 1226, 1230,4003,0000,4174,4007,0621,0000,0000,0000 ; 4399 SKIP AD.EQ.0, J/DDIV1 ;CONTINUE BELOW U 1227, 3012,4751,1217,4374,4007,0700,0000,0000,0005 ; 4400 [T1]_0 XWD [5] ;NEGATE MEM OP ; 4401 Q_Q.OR.#, #/600000, ;SIGN EXTEND THE LOW U 3012, 3013,3662,0000,4374,0007,0700,0000,0060,0000 ; 4402 HOLD RIGHT ; WORD U 3013, 3014,2222,0000,4174,4007,0700,4000,0000,0000 ; 4403 Q_-Q ;MAKE Q POSITIVE ; 4404 [BR]_(-[BR]-.25)*.5 LONG, ;NEGATE HIGH WORD ; 4405 ASHC, MULTI PREC/1, ;USE CARRY FROM LOW WORD U 3014, 3016,2446,0505,4174,4047,0700,0040,0000,0000 ; 4406 J/DDIV3 ;CONTINUE BELOW ; 4407 =0 ; 4408 DDIV1: [BR]_[BR]*.5 LONG, ;SHIFT OVER 1 PLACE U 1230, 3015,3446,0505,4174,4047,0700,0000,0000,0000 ; 4409 ASHC, J/DDIV2 ;CONTINUE BELOW U 1231, 0555,4443,0000,4174,4467,0700,0000,0051,1000 ; 4410 NO DIVIDE ;DIVIDE BY ZERO U 3015, 3016,4751,1217,4374,4007,0700,0000,0000,0004 ; 4411 DDIV2: [T1]_0 XWD [4] ;MEM OPERAND IS POSITIVE U 3016, 3017,3221,0006,0174,4007,0700,0000,0000,0000 ; 4412 DDIV3: [BRX]_Q, AC ;COPY Q ; 4413 U 3017, 0054,3777,0003,0274,4007,0520,0000,0000,0000 ; 4414 [AR]_AC*.5, 2T, SKIP DP0 ;GET AC--SEE IF NEGATIVE ; 4415 =0*1*0 ; 4416 DDIV3A: Q_AC[1].AND.[MAG], ;POSITIVE (OR ZERO) U 0054, 1232,4552,0000,1275,5007,0701,0000,0000,1441 ; 4417 J/DDIV4 ;CONTINUE BELOW ; 4418 [T1]_[T1].XOR.#, ;NEGATIVE U 0055, 3060,6551,1717,4374,4007,0700,0010,0000,0007 ; 4419 #/7, CALL [QDNEG] ;UPDATE SAVED FLAGS ; 4420 =1*1*1 [AR]_[AR]*.5, ;SHIFT AR OVER U 0075, 0054,3447,0303,4174,4007,0700,0000,0000,0000 ; 4421 J/DDIV3A ;GO BACK AND LOAD Q ; 4422 = ; 4423 =0 ; 4424 DDIV4: [AR]_[AR]*.5 LONG, ;SHIFT AR OVER U 1232, 3042,3446,0303,4174,4007,0700,0010,0000,0000 ; 4425 CALL [DDIVS] ;SHIFT 1 MORE PLACE U 1233, 1234,2113,0305,4174,4007,0521,4000,0000,0000 ; 4426 [AR]-[BR], 3T, SKIP DP0 ;TEST MAGNITUDE ; 4427 =0 [AR]-[BR], 2T, U 1234, 1236,2113,0305,4174,4007,0620,4000,0000,0000 ; 4428 SKIP AD.EQ.0, J/DDIV5 U 1235, 3020,3221,0004,4174,4007,0700,0000,0000,0000 ; 4429 [ARX]_Q, J/DDIV5A ;ANSWER FITS ; 4430 ; 4431 =0 U 1236, 0033,3333,0017,4174,4003,5701,0000,0000,0000 ; 4432 DDIV5: READ [T1], 3T, DISP/DP, J/NODDIV U 1237, 1240,1003,0600,4174,4007,0521,4000,0000,0000 ; 4433 Q-[BRX], 3T, SKIP DP0 U 1240, 0033,3333,0017,4174,4003,5701,0000,0000,0000 ; 4434 =0 READ [T1], 3T, DISP/DP, J/NODDIV U 1241, 3020,3221,0004,4174,4007,0700,0000,0000,0000 ; 4435 [ARX]_Q ;COPY LOW WORD ; 4436 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 120 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DDIV ; 4437 ;HERE WITH EVERYTHING SETUP AND READY TO GO U 3020, 0354,4552,0000,1275,5007,0701,0000,0000,1442 ; 4438 DDIV5A: Q_AC[2].AND.[MAG] U 0354, 1264,3446,1200,4174,4007,0700,2010,0071,0042 ; 4439 =0* Q_Q*.5, SC_34., CALL [DBLDIV] U 0356, 3021,3224,0016,4174,4007,0700,0000,0000,0000 ; 4440 [T0]_Q*2 LONG U 3021, 3022,0002,1600,4174,4007,0700,0000,0000,0000 ; 4441 Q_Q+[T0] U 3022, 1242,4003,0000,1174,4007,0700,0400,0000,1440 ; 4442 AC[0]_Q.AND.[MAG] ;STORE ANSWER U 1242, 3042,3442,0400,4174,4007,0700,0010,0000,0000 ; 4443 =0 Q_[ARX], CALL [DDIVS] ;SHIFT OUT EXTRA ZERO BIT U 1243, 3023,3221,0004,4174,4007,0700,0000,0000,0000 ; 4444 [ARX]_Q ; .. U 3023, 0551,4552,0000,1275,5007,0701,0000,0000,1443 ; 4445 Q_AC[3].AND.[MAG] ; 4446 =0* [T0]_[AR]*.5 LONG, ;SHIFT Q, PUT AR ON DP ; 4447 SC_34., ;LOAD SHIFT COUNT ; 4448 SKIP DP0, ;LOOK AT AR SIGN U 0551, 1264,3446,0316,4174,4007,0520,2010,0071,0042 ; 4449 CALL [DBLDIV] ;GO DIVIDE U 0553, 3024,3224,0016,4174,4007,0700,0000,0000,0000 ; 4450 [T0]_Q*2 LONG U 3024, 0056,3333,0017,4174,4003,5701,0000,0000,0000 ; 4451 READ [T1], 3T, DISP/DP ;WHAT SIGN IS QUO ; 4452 =1110 [T0]_[T0]+Q, ;POSITIVE QUO U 0056, 3027,0001,1616,4174,4007,0700,0000,0000,0000 ; 4453 J/DDIV5B ;CONTINUE BELOW U 0057, 3025,2225,0016,4174,4007,0700,4000,0000,0000 ; 4454 [T0]_-Q*2 ;NEGATIVE QUO ; 4455 AD/-D-.25, DBUS/RAM, 3T, ; 4456 RAMADR/AC#, DEST/Q_AD, U 3025, 3026,1772,0000,0274,4007,0701,0040,0000,0000 ; 4457 MULTI PREC/1 U 3026, 1244,3223,0000,0174,4007,0621,0400,0000,0000 ; 4458 AC_Q, SKIP AD.EQ.0 U 1244, 3030,3440,1616,1174,4007,0700,0400,0000,1441 ; 4459 =0 AC[1]_[T0], J/DDIV5C U 1245, 3032,4223,0000,1174,4007,0700,0400,0000,1441 ; 4460 AC[1]_0, J/DDIV6 ; 4461 U 3027, 3032,4113,1600,1174,4007,0700,0400,0000,1441 ; 4462 DDIV5B: AC[1]_[T0].AND.[MAG], J/DDIV6 ;STORE LOW WORD IN + CASE ; 4463 U 3030, 3031,3551,1616,4374,0007,0700,0000,0040,0000 ; 4464 DDIV5C: [T0]_[T0].OR.#, #/400000, HOLD RIGHT U 3031, 3032,3440,1616,1174,4007,0700,0400,0000,1441 ; 4465 AC[1]_[T0] ; 4466 U 3032, 1246,3333,0003,4174,4007,0520,0000,0000,0000 ; 4467 DDIV6: READ [AR], SKIP DP0 ;LOOK AT AR SIGN ; 4468 =0 U 1246, 3036,3442,0400,4174,4007,0700,0000,0000,0000 ; 4469 DDIV7: Q_[ARX], J/DDIV8 U 1247, 3033,0112,0406,4174,4007,0700,0000,0000,0000 ; 4470 Q_[ARX]+[BRX] ; 4471 [AR]_[AR]+[BR], U 3033, 3034,0111,0503,4174,4007,0700,0040,0000,0000 ; 4472 MULTI PREC/1 U 3034, 3035,0002,0600,4174,4007,0700,0000,0000,0000 ; 4473 Q_Q+[BRX] ; 4474 [AR]_[AR]+[BR], U 3035, 3036,0111,0503,4174,4007,0700,0040,0000,0000 ; 4475 MULTI PREC/1 U 3036, 0355,3333,0017,4174,4003,5701,0000,0000,0000 ; 4476 DDIV8: READ [T1], 3T, DISP/DP ; 4477 =1101 ; 4478 DDIV8A: [AR]_[AR]*2 LONG, ASHC, ;POSITIVE REMAINDER U 0355, 3040,3444,0303,4174,4047,0700,0000,0000,0000 ; 4479 J/DDIV9 ;CONTINUE BELOW U 0357, 3037,2222,0000,4174,4007,0700,4000,0000,0000 ; 4480 Q_-Q ;NEGATE REMAINDER IN AR!Q ; 4481 [AR]_(-[AR]-.25)*2 LONG, U 3037, 3040,2444,0303,4174,4047,0700,0040,0000,0000 ; 4482 MULTI PREC/1, ASHC ; 4483 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 121 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DDIV ; 4484 DDIV9: AC[2]_[AR]+[AR], 3T, U 3040, 1250,0113,0303,1174,4007,0521,0400,0000,1442 ; 4485 SKIP DP0 ; 4486 =0 AC[3]_Q.AND.[MAG], U 1250, 0100,4003,0000,1174,4156,4700,0400,0000,1443 ; 4487 NEXT INST U 1251, 3041,4002,0000,1174,4007,0700,0000,0000,1443 ; 4488 Q_Q.AND.[MAG], AC[3] ; 4489 AC[3]_[MAG].EQV.Q, U 3041, 0100,7003,0000,1174,4156,4700,0400,0000,1443 ; 4490 NEXT INST ; 4491 ; 4492 ; 4493 ;HERE IF WE WANT TO SET NO DIVIDE ; 4494 =11011 U 0033, 3060,4443,0000,4174,4007,0700,0010,0000,0000 ; 4495 NODDIV: CALL [QDNEG] ;FIXUP AC TO AC+3 U 0037, 0555,4443,0000,4174,4467,0700,0000,0051,1000 ; 4496 NO DIVIDE ;ABORT DIVIDE ; 4497 U 3042, 0001,3446,0303,4174,4044,1700,0000,0000,0000 ; 4498 DDIVS: [AR]_[AR]*.5 LONG, ASHC, RETURN [1] ;;4499 .IFNOT/FULL ;;4500 1627: ;;4501 DDIV: UUO ; 4502 .ENDIF/FULL ; 4503 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 122 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DIVIDE SUBROUTINE ; 4504 .TOC "ARITHMETIC -- DIVIDE SUBROUTINE" ; 4505 ; 4506 ;HERE IS THE SUBROUTINE TO DO DIVIDE ; 4507 ;ENTER WITH: ; 4508 ; AR!Q = D'END ; 4509 ; BR = D'SOR ; 4510 ;RETURN 2 WITH: ; 4511 ; AR = REMAINDER ; 4512 ; Q = QUOTIENT ; 4513 ;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL ; 4514 ; ; 4515 =1000 ; 4516 DIVSUB: Q_Q.AND.#, ;CLEAR SIGN BIT IN ; 4517 #/377777, ;MASK ; 4518 HOLD RIGHT, ;JUST CLEAR BIT 0 U 0370, 3043,4662,0000,4374,0007,0700,0010,0037,7777 ; 4519 CALL [DIVSGN] ;DO REAL DIVIDE U 0374, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 4520 =1100 RETURN [2] ;ALL POSITIVE U 0375, 0002,2222,0000,4174,4004,1700,4000,0000,0000 ; 4521 =1101 Q_-Q, RETURN [2] ;-QUO +REM U 0376, 0377,2222,0000,4174,4007,0700,4000,0000,0000 ; 4522 =1110 Q_-Q ;ALL NEGATIVE U 0377, 0002,2441,0303,4174,4004,1700,4000,0000,0000 ; 4523 =1111 [AR]_-[AR], RETURN [2] ;NEGATIVE REMAINDER ; 4524 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 123 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DIVIDE SUBROUTINE ; 4525 ;HERE IS THE INNER DIVIDE SUBROUTINE ; 4526 ;SAME SETUP AS DIVSUB ; 4527 ;RETURNS WITH AR AND Q POSITIVE AND ; 4528 ; 14 IF ALL POSITIVE ; 4529 ; 15 IF -QUO ; 4530 ; 16 IF ALL NEGATIVE ; 4531 ; 17 IF NEGATIVE REMAINDER ; 4532 ; 4533 BASIC DIV STEP "DEST/Q_Q*2, DIV, A/BR, B/AR, STEP SC" ; 4534 DIV STEP "BASIC DIV STEP, AD/A+B, DIVIDE/1" ; 4535 FIRST DIV STEP "BASIC DIV STEP, AD/B-A-.25, ADD .25" ; 4536 U 3043, 1252,3333,0003,4174,4007,0520,0000,0000,0000 ; 4537 DIVSGN: READ [AR], SKIP DP0 U 1252, 3045,4221,0004,4174,4007,0700,0000,0000,0000 ; 4538 =0 [ARX]_0, J/DVSUB2 ;REMAINDER IS POSITIVE U 1253, 1254,2222,0000,4174,4007,0621,4000,0000,0000 ; 4539 Q_-Q, SKIP AD.EQ.0 ;COMPLEMENT LOW WORD U 1254, 3044,7441,0303,4174,4007,0700,0000,0000,0000 ; 4540 =0 [AR]_.NOT.[AR], J/DVSUB1 ;COMPLEMENT HI WORD U 1255, 3044,2441,0303,4174,4007,0700,4000,0000,0000 ; 4541 [AR]_-[AR] ;TWO'S COMPLEMENT HI WORD SINCE ; 4542 ; LOW WORD WAS ZERO U 3044, 3045,3771,0004,4374,4007,0700,0000,0010,0000 ; 4543 DVSUB1: [ARX]_#, #/100000 ;REMAINDER IS NEGATIVE U 3045, 1256,3333,0005,4174,4007,0520,0000,0000,0000 ; 4544 DVSUB2: READ [BR], SKIP DP0 ;IS THE DIVISOR NEGATIVE ; 4545 =0 ; 4546 DVSUB3: [AR]_[AR]*.5 LONG, ;START TO PUT IN 9-CHIPS U 1256, 3047,3446,0303,4174,4007,0700,0000,0000,0000 ; 4547 J/DIVSET ;JOIN MAIN STREAM U 1257, 3046,2441,0505,4174,4007,0700,4000,0000,0000 ; 4548 [BR]_-[BR] ;COMPLEMENT DIVISOR ; 4549 [ARX]_[ARX].OR.#, ;ADJUST SIGN OF QUOTIENT U 3046, 1256,3551,0404,4374,4007,0700,0000,0004,0000 ; 4550 #/40000, J/DVSUB3 ;USE 9 CHIPS U 3047, 3050,3447,0303,4174,4007,0700,0000,0000,0000 ; 4551 DIVSET: [AR]_[AR]*.5 U 3050, 3051,3447,0505,4174,4007,0700,0000,0000,0000 ; 4552 [BR]_[BR]*.5 U 3051, 3052,3447,0505,4174,4007,0700,0000,0000,0000 ; 4553 [BR]_[BR]*.5 U 3052, 1260,1114,0503,4174,4067,0630,6000,0060,0000 ; 4554 FIRST DIV STEP ; 4555 ;HERE IS THE MAIN DIVIDE LOOP ; 4556 =0 U 1260, 1260,0114,0503,4174,4067,0630,2100,0060,0000 ; 4557 DIVIDE: DIV STEP, J/DIVIDE U 1261, 3053,3444,1717,4174,4067,0700,0100,0000,0000 ; 4558 [T1]_[T1]*2 LONG, DIVIDE/1, DIV U 3053, 1262,3447,0303,4174,4007,0520,0000,0000,0000 ; 4559 [AR]_[AR]*.5, SKIP DP0 ; 4560 =0 U 1262, 3054,3444,0303,4174,4007,0700,0000,0000,0000 ; 4561 FIX++: [AR]_[AR]*2 LONG, J/FIX1++ U 1263, 1262,0111,0503,4174,4007,0700,0000,0000,0000 ; 4562 [AR]_[AR]+[BR], J/FIX++ U 3054, 3055,3444,0303,4174,4007,0700,0000,0000,0000 ; 4563 FIX1++: [AR]_[AR]*2 LONG U 3055, 3056,4002,1200,4174,4007,0700,0000,0000,0000 ; 4564 Q_[MASK].AND.Q ; 4565 READ [ARX], 3T, ;RETURN TO 1 OF 4 PLACES ; 4566 DISP/1, ;BASED ON SIGN OF RESULT U 3056, 0014,3333,0004,4174,4000,1701,0000,0000,0000 ; 4567 J/14 ;RETURN ; 4568 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 124 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE ; 4569 .TOC "ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE" ; 4570 .IF/FULL ; 4571 ;CALL WITH: ; 4572 ; AR!ARX!Q = 3 WORD DV'END ; 4573 ; BR!BRX = 2 WORD DV'SOR ; 4574 ;RETURN 2 WITH: ; 4575 ; AR!ARX = 2 WORD REMAINDER ; 4576 ; CORRECT IF POSITIVE (Q IS ODD) ; 4577 ; WRONG (BY BR!BRX) IF NEGATIVE (Q IS EVEN) ; 4578 ; Q = 1 WORD QUOTIENT ; 4579 ;CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL ; 4580 ; ; 4581 ;NOTE: THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS ; 4582 ; ; 4583 =0 ; 4584 ;HERE FOR NORMAL STARTUP ; 4585 DBLDIV: [ARX]_([ARX]-[BRX])*2 LONG, ;SUBTRACT LOW WORD U 1264, 3057,1114,0604,4174,4057,0700,4000,0000,0000 ; 4586 LSHC, J/DIVHI ;GO ENTER LOOP ; 4587 ;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR ; 4588 [ARX]_([ARX]+[BRX])*2 LONG, ;CORRECTION STEP U 1265, 3057,0114,0604,4174,4057,0700,0000,0000,0000 ; 4589 LSHC, J/DIVHI ;GO ENTER LOOP ; 4590 ; 4591 ;HERE IS DOUBLE DIVIDE LOOP ; 4592 DIVHI: AD/A+B, ;ADD (HARDWARE MAY OVERRIDE) ; 4593 A/BR, B/AR, ;OPERANDS ARE AR AND BR ; 4594 DEST/AD*2, ;SHIFT LEFT ; 4595 SHSTYLE/NORM, ;SET SHIFT PATHS (SEE DPE1) ; 4596 MULTI PREC/1, ;INJECT SAVED BITS U 3057, 1266,0115,0503,4174,4007,0630,2040,0060,0000 ; 4597 STEP SC ;COUNT DOWN LOOP ; 4598 =0 AD/A+B, ;ADD (HARDWARE MAY OVERRIDE) ; 4599 A/BRX, B/ARX, ;LOW WORDS ; 4600 DEST/Q_Q*2, ;SHIFT WHOLE MESS LEFT ; 4601 SHSTYLE/DIV, ;SET SHIFT PATHS (SEE DPE1) ; 4602 DIVIDE/1, ;SAVE BITS U 1266, 3057,0114,0604,4174,4067,0700,0100,0000,0000 ; 4603 J/DIVHI ;KEEP LOOPING ; 4604 ;HERE WHEN ALL DONE ; 4605 DEST/Q_Q*2, DIV, ;SHIFT IN LAST Q BIT ; 4606 DIVIDE/1, ;GENERATE BIT U 1267, 0002,4444,0002,4174,4064,1700,0100,0000,0000 ; 4607 B/HR, RETURN [2] ;ZERO HR AND RETURN ; 4608 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 125 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- SUBROUTINES FOR ARITHMETIC ; 4609 .TOC "ARITHMETIC -- SUBROUTINES FOR ARITHMETIC" ; 4610 ; 4611 ;QUAD WORD NEGATE ; 4612 ;ARGUMENT IN AC!AC1!AC2!AC3 ; 4613 ;LEAVES COPY OF AC!AC1 IN AR!Q ; 4614 ;RETURNS TO CALL!24 U 3060, 3061,1772,0000,1274,4007,0701,4000,0000,1443 ; 4615 QDNEG: Q_-AC[3] ; 4616 AC[3]_Q.AND.[MAG], ;PUT BACK LOW WORD U 3061, 1270,4003,0000,1174,4007,0621,0400,0000,1443 ; 4617 SKIP AD.EQ.0 ;SEE IF ANY CARRY ; 4618 =0 U 1270, 3064,7772,0000,1274,4007,0701,0000,0000,1442 ; 4619 COM2A: Q_.NOT.AC[2], J/COM2 ;CARRY--DO 1'S COMPLEMENT U 1271, 3062,1772,0000,1274,4007,0701,4000,0000,1442 ; 4620 Q_-AC[2] ;NEXT WORD ; 4621 AC[2]_Q.AND.[MAG], ;PUT BACK WORD U 3062, 1272,4003,0000,1174,4007,0621,0400,0000,1442 ; 4622 SKIP AD.EQ.0 ; 4623 =0 U 1272, 3065,7772,0000,1274,4007,0701,0000,0000,1441 ; 4624 COM1A: Q_.NOT.AC[1], J/COM1 U 1273, 3063,1772,0000,1274,4007,0701,4000,0000,1441 ; 4625 Q_-AC[1] ; 4626 AC[1]_Q.AND.[MAG], U 3063, 1274,4003,0000,1174,4007,0621,0400,0000,1441 ; 4627 SKIP AD.EQ.0 ; 4628 =0 U 1274, 3066,7771,0003,0274,4007,0700,0000,0000,0000 ; 4629 COM0A: [AR]_.NOT.AC, J/COM0 U 1275, 3066,1771,0003,0274,4007,0701,4000,0000,0000 ; 4630 [AR]_-AC, 3T, J/COM0 ; 4631 U 3064, 1272,4003,0000,1174,4007,0700,0400,0000,1442 ; 4632 COM2: AC[2]_Q.AND.[MAG], J/COM1A U 3065, 1274,4003,0000,1174,4007,0700,0400,0000,1441 ; 4633 COM1: AC[1]_Q.AND.[MAG], J/COM0A U 3066, 0024,3440,0303,0174,4004,1700,0400,0000,0000 ; 4634 COM0: AC_[AR], RETURN [24] ; 4635 .ENDIF/FULL ; 4636 ; 4637 ;DOUBLE WORD NEGATE ; 4638 ;ARGUMENT IN AR AND ARX ; 4639 ;RETURNS TO CALL!2 ; 4640 U 3067, 3070,4551,0404,4374,0007,0700,0000,0037,7777 ; 4641 DBLNEG: CLEAR ARX0 ;FLUSH DUPLICATE SIGN ; 4642 DBLNGA: [ARX]_-[ARX], ;FLIP LOW WORD U 3070, 1276,2441,0404,4174,4007,0621,4000,0000,0000 ; 4643 SKIP AD.EQ.0 ;SEE IF CARRY ; 4644 =0 [AR]_.NOT.[AR], ;NO CARRY-- 1 COMP U 1276, 2220,7441,0303,4174,4467,0700,0000,0001,0001 ; 4645 AD FLAGS, J/CLARX0 ;CLEAR LOW SIGN ; 4646 [AR]_-[AR], ;CARRY U 1277, 2220,2441,0303,4174,4467,0701,4000,0001,0001 ; 4647 AD FLAGS, 3T, J/CLARX0 ; 4648 ; 4649 ;SAME THING BUT DOES NOT SET PC FLAGS U 3071, 1300,2441,0404,4174,4007,0621,4000,0000,0000 ; 4650 DBLNG1: [ARX]_-[ARX], SKIP AD.EQ.0 U 1300, 2220,7441,0303,4174,4007,0700,0000,0000,0000 ; 4651 =0 [AR]_.NOT.[AR], J/CLARX0 U 1301, 2220,2441,0303,4174,4007,0700,4000,0000,0000 ; 4652 [AR]_-[AR], J/CLARX0 ; 4653 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 126 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 ARITHMETIC -- SUBROUTINES FOR ARITHMETIC ; 4654 .NOBIN ; 4655 .TOC "BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB" ; 4656 ; 4657 ; 4658 ;ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER ; 4659 ;IN THE AR. ALL INSTRUCTIONS SHARE COMMON SUBROUTINES. ; 4660 ; 4661 ;IBP OR ADJBP ; 4662 ;IBP IF AC#0, ADJBP OTHERWISE ; 4663 ; HERE WITH THE BASE POINTER IN AR ; 4664 ; 4665 ;HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS: ; 4666 ; THE AR IS PUT ON THE DP. ; 4667 ; THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD ; 4668 ; THE SCAD COMPUTES P-S ; 4669 ; IBPS IS CALLED WITH A 4-WAY DISPATCH ON SCAD0 AND FIRST-PART-DONE ; 4670 ;THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS ; 4671 ; IN THE MICRO ASSEMBLER ; 4672 ; 4673 IBP DP "AD/D, DEST/A, A/AR, B/BR, DBUS/DBM, DBM/DP, BYTE/BYTE1" ; 4674 IBP SCAD "SCAD/A-B, SCADA/BYTE1, SCADB/SIZE" ; 4675 IBP SPEC "SCAD DISP, SKIP FPD" ; 4676 CALL IBP "IBP DP, IBP SCAD, IBP SPEC, CALL [IBPS], DT/3T" ; 4677 ; 4678 SET P TO 36-S "AD/D,DEST/A,A/BR,B/AR,DBUS/DBM,DBM/DP,SCAD/A-B,SCADB/SIZE,BYTE/BYTE1,SCADA/PTR44" ; 4679 ; 4680 ;THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT ; 4681 ; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP IS A 2S WEIGHT SKIP NOT 1S. ; 4682 BYTE STEP "SCAD/A+B,SCADA/S#,S#/1770,SCADB/FE,LOAD FE, 3T,SCAD DISP" ; 4683 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 127 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- IBP, ILDB, LDB, IDPB, DPB ; 4684 .BIN ; 4685 ; 4686 .DCODE D 0133, 0015,1610,1100 ; 4687 133: R, AC, J/IBP ;OR ADJBP D 0134, 0000,1620,1500 ; 4688 134: R,W TEST, J/ILDB ;CAN'T USE RPW BECAUSE OF FPD D 0135, 0000,1624,1100 ; 4689 R, J/LDB D 0136, 0000,1630,1500 ; 4690 R,W TEST, J/IDPB D 0137, 0000,1634,1100 ; 4691 R, J/DPB ; 4692 .UCODE ; 4693 1610: U 1610, 0240,4443,0000,4174,4007,0360,0000,0000,0000 ; 4694 IBP: SKIP IF AC0 ;SEE IF ADJBP ; 4695 =000 WORK[ADJPTR]_[AR], ;SAVE POINTER U 0240, 3127,3333,0003,7174,4007,0700,0400,0000,0223 ; 4696 J/ADJBP ;GO ADJUST BYTE POINTER U 0241, 0350,3770,0305,4334,4016,7351,0010,0033,6000 ; 4697 =001 CALL IBP ;BUMP BYTE POINTER U 0245, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 4698 =101 DONE ;POINTER STORED ; 4699 = ; 4700 ; 4701 1620: U 1620, 0350,3770,0305,4334,4016,7351,0010,0033,6000 ; 4702 ILDB: CALL IBP ;BUMP BYTE POINTER ; 4703 1624: ; 4704 LDB: READ [AR], ;LOOK AT POINTER ; 4705 LOAD BYTE EA, FE_P, 3T, ;GET STUFF OUT OF POINTER U 1624, 3077,3333,0003,4174,4217,0701,1010,0073,0500 ; 4706 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS U 1625, 0604,3443,0100,4174,4007,0700,0200,0014,0012 ; 4707 1625: VMA_[PC], FETCH ;START FETCH OF NEXT INST ; 4708 =0* READ [AR], ;LOOK AT POINTER ; 4709 FE_FE.AND.S#, S#/0770, ;MASK OUT JUNK IN FE ; 4710 BYTE DISP, ;DISPATCH ON BYTE SIZE U 0604, 0340,3333,0003,4174,4006,5701,1010,0051,0770 ; 4711 CALL [LDB1] ;GET BYTE ; 4712 AC_[AR], CLR FPD, ;STORE AC U 0606, 0555,3440,0303,0174,4467,0700,0400,0005,0000 ; 4713 J/NIDISP ;GO DO NEXT INST ; 4714 ; 4715 1630: U 1630, 0350,3770,0305,4334,4016,7351,0010,0033,6000 ; 4716 IDPB: CALL IBP ;BUMP BYTE POINTER ; 4717 1634: U 1634, 3072,3775,0004,0274,4007,0701,0000,0000,0000 ; 4718 DPB: [ARX]_AC*2 ;PUT 7 BIT BYTE IN 28-34 ; 4719 AD/A, A/ARX, SCAD/A, ;PUT THE BYTE INTO ; 4720 SCADA/BYTE5, 3T, ; INTO THE FE REGISTER U 3072, 3073,3443,0400,4174,4007,0701,1000,0077,0000 ; 4721 LOAD FE ; FE REGISTER U 3073, 0264,3771,0004,0276,6007,0700,0000,0000,0000 ; 4722 [ARX]_AC ;PUT BYTE IN ARX ; 4723 =100 READ [AR], ;LOOK AT BYTE POINTER ; 4724 LOAD BYTE EA, ;LOAD UP EFFECTIVE ADDRESS U 0264, 3077,3333,0003,4174,4217,0700,0010,0000,0500 ; 4725 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS ; 4726 READ [AR], ;LOOK AT POINTER AGAIN ; 4727 BYTE DISP, ;DISPATCH ON SIZE U 0265, 0360,3333,0003,4174,4006,5701,0010,0000,0000 ; 4728 CALL [DPB1] ;GO STORE BYTE U 0267, 1400,4443,0000,4174,4467,0700,0000,0005,0000 ; 4729 =111 CLR FPD, J/DONE ;ALL DONE ; 4730 = ; 4731 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 128 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE ; 4732 .TOC "BYTE GROUP -- INCREMENT BYTE POINTER SUBROUTINE" ; 4733 ; 4734 =00 U 0350, 3075,3441,0503,4174,4007,0700,0200,0003,0002 ; 4735 IBPS: [AR]_[BR], START WRITE, J/IBPX ;NO OVERFLOW, BR HAS ANSWER U 0351, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 4736 RETURN [4] ;FIRST PART DONE SET U 0352, 3074,3770,0503,4334,4017,0700,0000,0032,6000 ; 4737 SET P TO 36-S, J/NXTWRD ;WORD OVERFLOW U 0353, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 4738 RETURN [4] ;FPD WAS SET IGNORE OVERFLOW ; 4739 ; AND RETURN ; 4740 U 3074, 3075,0111,0703,4170,4007,0700,0200,0003,0002 ; 4741 NXTWRD: [AR]_[AR]+1, HOLD LEFT, START WRITE ;BUMP Y AND RETURN U 3075, 0004,3333,0003,4175,5004,1701,0200,0000,0002 ; 4742 IBPX: MEM WRITE, MEM_[AR], RETURN [4] ; 4743 ; 4744 ; 4745 .TOC "BYTE GROUP -- BYTE EFFECTIVE ADDRESS EVALUATOR" ; 4746 ; 4747 ;ENTER WITH POINTER IN AR ; 4748 ;RETURN1 WITH (EA) IN VMA AND WORD IN BR ; 4749 BYTEAS: EA MODE DISP, ;HERE TO AVOID FPD U 3076, 0070,4443,0000,2174,4006,6700,0000,0000,0000 ; 4750 J/BYTEA0 ;GO COMPUTE EA ; 4751 BYTEA: SET FPD, ;SET FIRST-PART-DONE U 3077, 0070,4443,0000,2174,4466,6700,0000,0003,0000 ; 4752 EA MODE DISP ;DISPATCH ; 4753 =100* ; 4754 BYTEA0: VMA_[AR]+XR, ;INDEXING ; 4755 START READ, ;FETCH DATA WORD ; 4756 PXCT BYTE DATA, ;FOR PXCT U 0070, 3101,0553,0300,2274,4007,0700,0200,0004,0712 ; 4757 J/BYTFET ;GO WAIT ; 4758 VMA_[AR], ;PLAIN ; 4759 START READ, ;START CYCLE ; 4760 PXCT BYTE DATA, ;FOR PXCT U 0072, 3101,3443,0300,4174,4007,0700,0200,0004,0712 ; 4761 J/BYTFET ;GO WAIT ; 4762 VMA_[AR]+XR, ;BOTH ; 4763 START READ, ;START CYCLE ; 4764 PXCT BYTE PTR EA, ;FOR PXCT U 0074, 3100,0553,0300,2274,4007,0700,0200,0004,0512 ; 4765 J/BYTIND ;GO DO INDIRECT ; 4766 VMA_[AR], ;JUST @ ; 4767 START READ, ;START READ U 0076, 3100,3443,0300,4174,4007,0700,0200,0004,0512 ; 4768 PXCT BYTE PTR EA ;FOR PXCT ; 4769 BYTIND: MEM READ, ;WAIT FOR @ WORD ; 4770 [AR]_MEM, ;PUT IN AR ; 4771 HOLD LEFT, ;JUST IN RH (SAVE P & S) ; 4772 LOAD BYTE EA, ;LOOP BACK U 3100, 3076,3771,0003,4361,5217,0700,0200,0000,0502 ; 4773 J/BYTEAS ; .. ; 4774 ; 4775 BYTFET: MEM READ, ;WAIT FOR BYTE DATA ; 4776 [BR]_MEM.AND.MASK, ; WORD. UNSIGNED U 3101, 0001,4551,1205,4365,5004,1700,0200,0000,0002 ; 4777 RETURN [1] ;RETURN TO CALLER ; 4778 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 129 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 4779 .TOC "BYTE GROUP -- LOAD BYTE SUBROUTINE" ; 4780 ; 4781 ;CALL WITH: ; 4782 ; WORD IN BR ; 4783 ; POINTER IN AR ; 4784 ; P IN FE ; 4785 ; BYTE DISPATCH ; 4786 ;RETURN2 WITH BYTE IN AR ; 4787 LDB SCAD "SCAD/A,BYTE/BYTE5" ; 4788 7-BIT LDB "AD/D,DBUS/DBM,DBM/DP,DEST/A,A/BR,B/BR, LDB SCAD" ; 4789 ; 4790 =000 ; 4791 LDB1: GEN 17-FE, 3T, ;GO SEE IF ALL THE BITS ; 4792 SCAD DISP, ; ARE IN THE LEFT HALF U 0340, 0550,4443,0000,4174,4006,7701,0000,0031,0210 ; 4793 J/LDBSWP ;GO TO LDBSWP & SKIP IF LH ; 4794 ; 4795 ;HERE ARE THE 7-BIT BYTES U 0341, 3102,3770,0505,4334,4057,0700,0000,0073,0000 ; 4796 =001 7-BIT LDB, SCADA/BYTE1, J/LDB7 U 0342, 3102,3770,0505,4334,4057,0700,0000,0074,0000 ; 4797 =010 7-BIT LDB, SCADA/BYTE2, J/LDB7 U 0344, 3102,3770,0505,4334,4057,0700,0000,0075,0000 ; 4798 =100 7-BIT LDB, SCADA/BYTE3, J/LDB7 U 0345, 3102,3770,0505,4334,4057,0700,0000,0076,0000 ; 4799 =101 7-BIT LDB, SCADA/BYTE4, J/LDB7 U 0347, 3102,3770,0505,4334,4057,0700,0000,0077,0000 ; 4800 =111 7-BIT LDB, SCADA/BYTE5, J/LDB7 ; 4801 = ; 4802 ; 4803 ;FOR 7-BIT BYTES WE HAVE BYTE IN BR 28-35 AND JUNK IN REST OF BR. ; 4804 ; WE JUST MASK THE SELECTED BYTE AND SHIFT ONE PLACE RIGHT. ; 4805 LDB7: AD/ZERO,RSRC/DA, ;LH_ZERO, RH_D.AND.A ; 4806 DBUS/DBM,DBM/#,#/376, ;D INPUT IS 376 ; 4807 A/BR, ;A IS BR ; 4808 B/AR, ;PUT RESULT IN AR ; 4809 DEST/AD*.5, 3T, ;SHIFT RESULT 1 PLACE U 3102, 0002,4257,0503,4374,4004,1701,0000,0000,0376 ; 4810 RETURN [2] ;RETURN TO CALLER ; 4811 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 130 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 4812 ;HERE FOR NORMAL BYTES ; 4813 =00 ; 4814 LDBSWP: FE_-FE, ;MAKE P NEGATIVE U 0550, 3104,4443,0000,4174,4007,0700,1000,0031,0000 ; 4815 J/LDBSH ;JOIN MAIN LDB LOOP U 0552, 3103,3770,0505,4344,4007,0700,0000,0000,0000 ; 4816 =10 [BR]_[BR] SWAP ;SHIFT 18 STEPS ; 4817 = ; 4818 [BR]_0, HOLD RIGHT, ;PUT ZERO IN LH U 3103, 3104,4221,0005,4174,0007,0700,1000,0031,0220 ; 4819 FE_-FE+S#, S#/220 ;UPDATE FE ; 4820 LDBSH: [BR]_[BR]*.5, ;SHIFT RIGHT ; 4821 FE_FE+10, ;UPDATE THE FE U 3104, 3105,3447,0505,4174,4007,0700,1020,0041,0010 ; 4822 MULTI SHIFT/1 ;FAST SHIFT U 3105, 3106,3333,0003,4174,4007,0700,1000,0031,7770 ; 4823 READ [AR], FE_-S-10 ;GET SIZE U 3106, 3107,4222,0000,4174,4007,0700,0000,0000,0000 ; 4824 Q_0 ;CLEAR Q ; 4825 GEN MSK [AR], ;PUT MASK IN Q (WIPEOUT AR) ; 4826 FE_FE+10, ;COUNT UP ALL STEPS U 3107, 3110,4224,0003,4174,4027,0700,1020,0041,0010 ; 4827 MULTI SHIFT/1 ;FAST SHIFT U 3110, 3111,4224,0003,4174,4027,0700,0000,0000,0000 ; 4828 GEN MSK [AR] ;ONE MORE BIT U 3111, 0002,4001,0503,4174,4004,1700,0000,0000,0000 ; 4829 [AR]_[BR].AND.Q, RETURN [2] ; 4830 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 131 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- LOAD BYTE SUBROUTINE ; 4831 .NOBIN ; 4832 .TOC "BYTE GROUP -- DEPOSIT BYTE IN MEMORY" ; 4833 ; 4834 ;FLOW FOR DPB (NOT 7-BIT BYTE) ; 4835 ; ; 4836 ;FIRST SET ARX TO -1 AND Q TO ZERO AND ROTATE LEFT ; 4837 ; S PLACES GIVING: ; 4838 ; 4839 ; ARX Q ; 4840 ; +------------------!------------------+ ; 4841 ; !111111111111000000!000000000000111111! ; 4842 ; +------------------!------------------+ ; 4843 ; !<--->! ; 4844 ; S BITS ; 4845 ; ; 4846 ; 4847 ;NOW THE AC IS LOAD INTO THE ARX AND BOTH THE ARX AND Q ; 4848 ; ARE SHIFTED LEFT P BITS GIVING: ; 4849 ; 4850 ; +------------------!------------------+ ; 4851 ; !??????BBBBBB000000!000000111111000000! ; 4852 ; +------------------!------------------+ ; 4853 ; <----><----> <----><----> ; 4854 ; JUNK BYTE MASK P BITS ; 4855 ; ; 4856 ; 4857 ;AT THIS POINT WE ARE ALMOST DONE. WE NEED TO AND ; 4858 ; THE BR WITH .NOT. Q TO ZERO THE BITS FOR THE BYTE ; 4859 ; AND AND ARX WITH Q TO MASK OUT THE JUNK THIS GIVES: ; 4860 ; ; 4861 ; ARX ; 4862 ; +------------------+ ; 4863 ; !000000BBBBBB000000! ; 4864 ; +------------------! ; 4865 ; ; 4866 ; AR ; 4867 ; +------------------+ ; 4868 ; !DDDDDD000000DDDDDD! ; 4869 ; +------------------+ ; 4870 ; ; 4871 ;WE NOW OR THE AR WITH ARX TO GENERATE THE ANSWER. ; 4872 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 132 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- DEPOSIT BYTE IN MEMORY ; 4873 .BIN ; 4874 ; 4875 ;DEPOSIT BYTE SUBROUTINE ; 4876 ;CALL WITH: ; 4877 ; BYTE POINTER IN AR ; 4878 ; BYTE TO STORE IN ARX ; 4879 ; WORD TO MERGE WITH IN BR ; 4880 ; (E) OF BYTE POINTER IN VMA ; 4881 ; 7-BIT BYTE IN FE ; 4882 ; BYTE DISPATCH ; 4883 ;RETURN2 WITH BYTE IN MEMORY ; 4884 ; ; 4885 DPB SCAD "SCAD/A+B,SCADA/S#,SCADB/FE,S#/0" ; 4886 7-BIT DPB "AD/D,DEST/A,A/BR,DBUS/DBM,DBM/DP,B/AR, DPB SCAD" ; 4887 ; 4888 =000 U 0360, 3114,3333,0003,4174,4007,0700,1000,0031,7770 ; 4889 DPB1: READ [AR], FE_-S-10, J/DPBSLO ;NOT SPECIAL U 0361, 3112,3770,0503,4334,4017,0700,0000,0041,0000 ; 4890 =001 7-BIT DPB, BYTE/BYTE1, J/DPB7 U 0362, 3112,3770,0503,4334,4027,0700,0000,0041,0000 ; 4891 =010 7-BIT DPB, BYTE/BYTE2, J/DPB7 U 0364, 3112,3770,0503,4334,4037,0700,0000,0041,0000 ; 4892 =100 7-BIT DPB, BYTE/BYTE3, J/DPB7 U 0365, 3112,3770,0503,4334,4047,0700,0000,0041,0000 ; 4893 =101 7-BIT DPB, BYTE/BYTE4, J/DPB7 U 0367, 3112,3770,0503,4334,4057,0700,0000,0041,0000 ; 4894 =111 7-BIT DPB, BYTE/BYTE5, J/DPB7 ; 4895 = U 3112, 3113,3447,1200,4174,4007,0700,0200,0003,0002 ; 4896 DPB7: [MAG]_[MASK]*.5, START WRITE U 3113, 0002,3333,0003,4175,5004,1701,0200,0000,0002 ; 4897 MEM WRITE, MEM_[AR], RETURN [2] ; 4898 ; 4899 U 3114, 3115,4222,0000,4174,4007,0700,0000,0000,0000 ; 4900 DPBSLO: Q_0 ;CLEAR Q ; 4901 GEN MSK [MAG], ;GENERATE MASK IN Q (ZAP MAG) ; 4902 FE_FE+10, ;COUNT STEPS U 3115, 3116,4224,0000,4174,4027,0700,1020,0041,0010 ; 4903 MULTI SHIFT/1 ;FAST SHIFT U 3116, 3117,4224,0000,4174,4027,0700,0000,0000,0000 ; 4904 GEN MSK [MAG] ;ONE MORE BITS U 3117, 3120,3333,0003,4174,4007,0701,1000,0073,0000 ; 4905 READ [AR], 3T, FE_P ;AMOUNT TO SHIFT U 3120, 3121,4443,0000,4174,4007,0700,1000,0051,0770 ; 4906 FE_FE.AND.S#, S#/0770 ;MASK OUT JUNK ; 4907 Q_Q.AND.[MASK], ;CLEAR BITS 36 AND 37 U 3121, 3122,4002,1200,4174,4007,0700,1000,0031,0000 ; 4908 FE_-FE ;MINUS NUMBER OF STEPS ; 4909 [ARX]_[ARX]*2 LONG, ;SHIFT BYTE AND MASK ; 4910 FE_FE+10, ;COUNT OUT STEPS U 3122, 3123,3444,0404,4174,4007,0700,1020,0041,0010 ; 4911 MULTI SHIFT/1 ;FAST SHIFT ; 4912 ;AT THIS POINT WE HAVE DONE ALL THE SHIFTING WE NEED. THE BYTE IS ; 4913 ; IN ARX AND THE MASK IS IN Q. U 3123, 3124,7221,0003,4174,4007,0700,0000,0000,0000 ; 4914 [AR]_.NOT.Q U 3124, 3125,4111,0503,4174,4007,0700,0000,0000,0000 ; 4915 [AR]_[AR].AND.[BR] U 3125, 3126,4001,0404,4174,4007,0700,0000,0000,0000 ; 4916 [ARX]_[ARX].AND.Q ; 4917 [AR]_[AR].OR.[ARX], U 3126, 3112,3111,0403,4174,4007,0700,0000,0000,0000 ; 4918 J/DPB7 ; 4919 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 133 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- ADJUST BYTE POINTER ; 4920 .TOC "BYTE GROUP -- ADJUST BYTE POINTER" ; 4921 .IF/FULL ; 4922 ;FIRST THE NUMBER OF BYTES PER WORD IS COMPUTED FROM THE ; 4923 ; FOLLOWING FORMULA: ; 4924 ; ; 4925 ; ( P ) ( 36-P ) ; 4926 ; BYTES PER WORD = INT( --- ) + INT( ---- ) ; 4927 ; ( S ) ( S ) ; 4928 ; ; 4929 ;THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE: ; 4930 ; !=====================================! ; 4931 ; ! 6 !////////////! 12 ! 6 ! ; 4932 ; !=====================================! ; 4933 ; P=18 AND S=12 ; 4934 ; ; 4935 ;WE GET 3 BYTES/WORD IF THE BYTES FALL IN THE NATURAL PLACE: ; 4936 ; !=====================================! ; 4937 ; ! 12 !\\\\\\\\\\\\! 12 ! ; 4938 ; !=====================================! ; 4939 ; P=12 AND S=12 ; 4940 ; 4941 ;WE COME HERE WITH THE BYTE POINTER IN AR, AND ADJPTR ; 4942 ADJBP: [ARX]_[AR] SWAP, ;MOVE SIZE OVER U 3127, 1302,3770,0304,4344,4007,0700,2000,0071,0011 ; 4943 SC_9. ;READY TO SHIFT ; 4944 =0 ; 4945 ADJBP0: [ARX]_[ARX]*.5, ;SHIFT P OVER ; 4946 STEP SC, ; .. U 1302, 1302,3447,0404,4174,4007,0630,2000,0060,0000 ; 4947 J/ADJBP0 ; .. ; 4948 [ARX]_([ARX].AND.#)*.5, ;SHIFT AND MASK ; 4949 3T, ;WAIT U 1303, 3130,4557,0404,4374,4007,0701,0000,0000,0176 ; 4950 #/176 ;6 BIT MASK ; 4951 [ARX]_#, ;CLEAR LH ; 4952 #/0, ; .. U 3130, 3131,3771,0004,4374,0007,0700,0000,0000,0000 ; 4953 HOLD RIGHT ; .. U 3131, 3132,3333,0004,7174,4007,0700,0400,0000,0221 ; 4954 WORK[ADJP]_[ARX] ;SAVE P ; 4955 [BR]_([AR].AND.#)*.5, ;START ON S ; 4956 3T, ;EXTRACT S U 3132, 3133,4557,0305,4374,4007,0701,0000,0000,7700 ; 4957 #/007700 ; .. ; 4958 [BR]_[BR] SWAP, ;SHIFT 18 PLACES U 3133, 3134,3770,0505,4344,4007,0700,2000,0071,0003 ; 4959 SC_3 ; .. ; 4960 [BR]_0, ;CLEAR LH U 3134, 1304,4221,0005,4174,0007,0700,0000,0000,0000 ; 4961 HOLD RIGHT ; .. ; 4962 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 134 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- ADJUST BYTE POINTER ; 4963 =0 ; 4964 ADJBP1: [BR]_[BR]*.5, ;SHIFT S OVER ; 4965 STEP SC, ; .. U 1304, 1304,3447,0505,4174,4007,0630,2000,0060,0000 ; 4966 J/ADJBP1 ; .. ; 4967 WORK[ADJS]_[BR], ;SALT S AWAY U 1305, 1306,3333,0005,7174,4007,0621,0400,0000,0222 ; 4968 SKIP AD.EQ.0 ;SEE IF ZERO ; 4969 =0 Q_[ARX], ;DIVIDE P BY S ; 4970 SC_34., ;STEP COUNT U 1306, 0660,3442,0400,4174,4007,0700,2000,0071,0042 ; 4971 J/ADJBP2 ;SKIP NEXT WORD U 1307, 1404,3771,0003,7274,4007,0701,0000,0000,0223 ; 4972 [AR]_WORK[ADJPTR], J/MOVE ;S=0 -- SAME AS MOVE ; 4973 =0* ; 4974 ADJBP2: [AR]_#, ;FILL AR WITH SIGN BITS ; 4975 #/0, ;POSITIVE U 0660, 0370,3771,0003,4374,4007,0700,0010,0000,0000 ; 4976 CALL [DIVSUB] ;GO DIVIDE U 0662, 3135,3223,0000,7174,4007,0700,0400,0000,0224 ; 4977 WORK[ADJQ1]_Q ;SAVE QUOTIENT ; 4978 Q_#, ;COMPUTE (36-P)/S ; 4979 #/36., ; .. U 3135, 3136,3772,0000,4370,4007,0700,0000,0000,0044 ; 4980 HOLD LEFT ;SMALL ANSWER U 3136, 3137,1662,0000,7274,4007,0701,4000,0000,0221 ; 4981 Q_Q-WORK[ADJP] ;SUBTRACT P U 3137, 3140,3771,0005,7274,4007,0701,0000,0000,0222 ; 4982 [BR]_WORK[ADJS] ;DIVIDE BY S U 3140, 0664,4443,0000,4174,4007,0700,2000,0071,0042 ; 4983 SC_34. ;STEP COUNT ; 4984 =0* [AR]_#, ;MORE SIGN BITS ; 4985 #/0, ; .. U 0664, 0370,3771,0003,4374,4007,0700,0010,0000,0000 ; 4986 CALL [DIVSUB] ;GO DIVIDE U 0666, 3141,3333,0003,7174,4007,0700,0400,0000,0225 ; 4987 WORK[ADJR2]_[AR] ;SAVE REMAINDER ; 4988 [AR]_#, ;ASSUME NEGATIVE ADJ U 3141, 3142,3771,0003,4374,4007,0700,0000,0077,7777 ; 4989 #/777777 ;EXTEND SIGN ; 4990 AD/D+Q, ;BR_(P/S)+((36-P)/S) ; 4991 DEST/AD, ; .. ; 4992 B/BR, ; .. ; 4993 RAMADR/#, ; .. ; 4994 DBUS/RAM, ; .. ; 4995 WORK/ADJQ1, ; .. ; 4996 4T, ; .. U 3142, 1310,0661,0005,7274,4007,0622,0000,0000,0224 ; 4997 SKIP AD.EQ.0 ;SEE IF ZERO ; 4998 =0 Q_Q+AC, ;GET ADJUSTMENT ; 4999 SC_34., ;STEP COUNT ; 5000 SKIP DP0, ;GO DO DIVIDE ; 5001 4T, ;WAIT FOR DP U 1310, 0570,0662,0000,0274,4007,0522,2000,0071,0042 ; 5002 J/ADJBP3 ;BELOW U 1311, 0555,4443,0000,4174,4467,0700,0000,0051,1000 ; 5003 NO DIVIDE ;0 BYTES/WORD ; 5004 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 135 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- ADJUST BYTE POINTER ; 5005 ;WE NOW DIVIDE THE ADJUSTMENT BY THE BYTES PER WORD AND FORCE THE ; 5006 ; REMAINDER (R) TO BE A POSITIVE NUMBER (MUST NOT BE ZERO). THE ; 5007 ; QUOTIENT IS ADDED TO THE Y FIELD IN THE BYTE POINTER AND THE NEW ; 5008 ; P FIELD IS COMPUTED BY: ; 5009 ; ; 5010 ; ( ( 36-P )) ; 5011 ; NEW P = 36-((R * S) + RMDR( ---- )) ; 5012 ; ( ( S )) ; 5013 ; ; 5014 ;WE NOW HAVE BYTES/WORD IN BR AND ADJUSTMENT IN Q. DIVIDE TO GET ; 5015 ; WORDS TO ADJUST BY. ; 5016 =00 ; 5017 ADJBP3: [AR]_#, ;POSITIVE ADJUSTMENT U 0570, 0571,3771,0003,4374,4007,0700,0000,0000,0000 ; 5018 #/0. ; 5019 WORK[ADJBPW]_[BR], ;SAVE BYTES/WORD & COMPUTE U 0571, 0370,3333,0005,7174,4007,0700,0410,0000,0226 ; 5020 CALL [DIVSUB] ; ADJ/(BYTES/WORD) ; 5021 ;WE NOW WANT TO ADJUST THE REMAINDER SO THAT IT IS POSITIVE ; 5022 =11 Q_#, ;ONLY RIGHT HALF ; 5023 #/0, ; .. U 0573, 3143,3772,0000,4374,0007,0700,0000,0000,0000 ; 5024 HOLD RIGHT ; .. ; 5025 = ; 5026 READ [AR], ;ALREADY + U 3143, 1312,3333,0003,4174,4007,0421,0000,0000,0000 ; 5027 SKIP AD.LE.0 ; .. ; 5028 =0 ; 5029 ADJBP4: AD/D+Q, ;ADD Q TO POINTER AND STORE ; 5030 DEST/AD, ; .. ; 5031 B/BR, ;RESULT TO BR ; 5032 RAMADR/#, ;PTR IS IN RAM ; 5033 DBUS/RAM, ; .. ; 5034 WORK/ADJPTR, ; .. ; 5035 INH CRY18, ;JUST RH ; 5036 3T, ;WAIT FOR RAM U 1312, 3145,0661,0005,7274,4407,0701,0000,0000,0223 ; 5037 J/ADJBP5 ;CONTINUE BELOW ; 5038 Q_Q-1, ;NO--MAKE Q SMALLER U 1313, 3144,1002,0700,4170,4007,0700,4000,0000,0000 ; 5039 HOLD LEFT ; .. ; 5040 [AR]_[AR]+WORK[ADJBPW], ;MAKE REM BIGGER U 3144, 1312,0551,0303,7274,4007,0701,0000,0000,0226 ; 5041 J/ADJBP4 ;NOW HAVE + REMAINDER ; 5042 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 136 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- ADJUST BYTE POINTER ; 5043 ADJBP5: [BRX]_[AR], ;COMPUTE R*S U 3145, 3146,3441,0306,4174,4007,0700,2000,0071,0043 ; 5044 SC_35. ;STEP COUNT U 3146, 0062,3772,0000,7274,4007,0701,0000,0000,0222 ; 5045 Q_WORK[ADJS] ;GET S ; 5046 =01* [BRX]_[BRX]*.5 LONG, ;SHIFT OVER U 0062, 3000,3446,0606,4174,4007,0700,0010,0000,0000 ; 5047 CALL [MULSUB] ; .. ; 5048 AD/D+Q, ;AR_(R*S)+RMDR(36-P)/S ; 5049 DEST/AD, ; .. ; 5050 B/AR, ; .. ; 5051 RAMADR/#, ; .. ; 5052 3T, ; .. ; 5053 DBUS/RAM, ; .. U 0066, 3147,0661,0003,7274,4007,0701,0000,0000,0225 ; 5054 WORK/ADJR2 ; .. ; 5055 [AR]_(#-[AR])*2, ;COMPUTE 36-AR ; 5056 3T, ;AND START LEFT U 3147, 3150,2555,0303,4374,4007,0701,4000,0000,0044 ; 5057 #/36. ; .. ; 5058 [AR]_[AR] SWAP, ;PUT THE POSITION BACK U 3150, 3151,3770,0303,4344,4007,0700,2000,0071,0011 ; 5059 SC_9. ; .. ; 5060 [AR]_#, ;CLEAR JUNK FROM RH ; 5061 #/0, ; .. U 3151, 1314,3771,0003,4370,4007,0700,0000,0000,0000 ; 5062 HOLD LEFT ; .. ; 5063 =0 ; 5064 ADJBP6: [AR]_[AR]*2, ;LOOP OVER ALL BITS ; 5065 STEP SC, ; .. U 1314, 1314,3445,0303,4174,4007,0630,2000,0060,0000 ; 5066 J/ADJBP6 ; .. ; 5067 [BR]_[BR].AND.#, ; .. ; 5068 #/007777, ; .. U 1315, 3152,4551,0505,4374,0007,0700,0000,0000,7777 ; 5069 HOLD RIGHT ; .. ; 5070 AC_[AR].OR.[BR], ;ALL DONE U 3152, 1400,3113,0305,0174,4007,0700,0400,0000,0000 ; 5071 J/DONE ;;5072 .IFNOT/FULL ;;5073 ;;5074 ADJBP: UUO ;NO ADJBP IN SMALL ;;5075 ; MICROCODE ; 5076 .ENDIF/FULL ; 5077 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 137 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BYTE GROUP -- ADJUST BYTE POINTER ; 5078 .NOBIN ; 5079 .TOC "BLT" ; 5080 ; 5081 ;THIS CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLETION OF ; 5082 ; THE TRANSFER (EXCEPT IN THE CASE AC IS PART OF BUT NOT THE LAST WORD ; 5083 ; OF THE DESTINATION BLOCK). WHEN AC IS NOT PART OF THE DESTINATION ; 5084 ; BLOCK, IT IS LEFT CONTAINING THE ADDRESSES OF THE FIRST WORD FOLLOWING ; 5085 ; THE SOURCE BLOCK (IN THE LH), AND THE FIRST WORD FOLLOWING THE DEST- ; 5086 ; INATION BLOCK (IN THE RH). IF AC IS THE LAST WORD OF THE DESTINATION ; 5087 ; BLOCK, IT WILL BE A COPY OF THE LAST WORD OF THE SOURCE BLOCK. ; 5088 ; 5089 ;IN ADDITION, A SPECIAL-CASE CHECK IS MADE FOR THE CASE IN WHICH EACH ; 5090 ; WORD STORED IS USED AS THE SOURCE OF THE NEXT TRANSFER. IN THIS CASE, ; 5091 ; ONLY ONE READ NEED BE PERFORMED, AND THAT DATA MAY BE STORED FOR EACH ; 5092 ; TRANSFER. THUS THE COMMON USE OF BLT TO CLEAR CORE IS SPEEDED UP. ; 5093 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 138 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BLT ; 5094 .BIN ; 5095 ; 5096 ;HERE TO SETUP FOR A BLT/UBABLT ; 5097 U 3153, 1316,3770,0604,4344,4007,0700,0000,0000,0000 ; 5098 SETBLT: [ARX]_[BRX] SWAP ;COPY TO ARX (SRC IN RH) ; 5099 =0 VMA_[ARX], ;ADDRESS OF FIRST WORD ; 5100 START READ, ; 5101 PXCT BLT SRC, U 1316, 3663,3443,0400,4174,4007,0700,0210,0004,0712 ; 5102 CALL [CLARXL] ;CLEAR THE LEFT HALF OF ; 5103 [BRX]_0, ; BOTH SRC AND DEST U 1317, 3154,4221,0006,4174,0007,0700,0000,0000,0000 ; 5104 HOLD RIGHT U 3154, 3155,2112,0306,4174,4007,0700,4000,0000,0000 ; 5105 Q_[AR]-[BRX] ;NUMBER OF WORDS TO MOVE U 3155, 3156,0001,0705,4174,4007,0700,0000,0000,0000 ; 5106 [BR]_Q+1 ;LENGTH +1 ; 5107 [BR]_[BR] SWAP, ;COPY TO BOTH HALFS U 3156, 3157,3770,0505,4344,0007,0700,0000,0000,0000 ; 5108 HOLD RIGHT ; 5109 [BR]_AC+[BR], ;FINAL AC U 3157, 3160,0551,0505,0274,4407,0701,0000,0000,0000 ; 5110 INH CRY18 ;KEEP AC CORRECT IF DEST IS 777777 U 3160, 0002,3771,0013,4370,4004,1700,0000,0000,0001 ; 5111 STATE_[BLT],RETURN [2] ;SET PAGE FAIL FLAGS ; 5112 ; 5113 .DCODE D 0251, 0000,1640,2100 ; 5114 251: I, J/BLT ; 5115 .UCODE ; 5116 ; 5117 1640: U 1640, 3153,3771,0006,0276,6007,0700,0010,0000,0000 ; 5118 BLT: [BRX]_AC,CALL [SETBLT] ;FETCH THE AC (DEST IN RH) ; 5119 1642: AC_[BR], ;STORE BACK IN AC U 1642, 3662,3440,0505,0174,4007,0700,0410,0000,0000 ; 5120 CALL [LOADQ] ;LOAD FIRST WORD INTO Q ; 5121 1643: [BR]_[ARX]+1000001, ;SRC+1 ; 5122 3T, U 1643, 3161,0551,0405,4370,4007,0701,0000,0000,0001 ; 5123 HOLD LEFT ; 5124 [BR]-[BRX], 3T, ;IS THIS THE CORE CLEAR CASE U 3161, 1320,2113,0506,4174,4007,0331,4000,0000,0000 ; 5125 SKIP ADR.EQ.0 ; 5126 =0 ; 5127 BLTLP1: VMA_[BRX], ;NO, GET DEST ADR ; 5128 START WRITE, ;START TO STORE NEXT WORD ; 5129 PXCT BLT DEST, ;WHERE TO STORE U 1320, 3164,3443,0600,4174,4007,0700,0200,0003,0312 ; 5130 J/BLTGO ; 5131 ; 5132 ;SKIP TO NEXT PAGE IF CLEARING CORE ; 5133 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 139 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BLT ; 5134 ;CLEAR CORE CASE ; 5135 VMA_[BRX], ; 5136 START WRITE, U 1321, 3162,3443,0600,4174,4007,0700,0200,0003,0312 ; 5137 PXCT BLT DEST ; 5138 BLTCLR: MEM WRITE, ;STORE WORD ; 5139 MEM_Q, U 3162, 1322,3223,0000,4174,4007,0671,0200,0000,0002 ; 5140 SKIP/-1 MS ;1 MS TIMER UP U 1322, 3165,4443,0000,4174,4007,0700,0000,0000,0000 ; 5141 =0 J/BLTGOT ;GO TAKE INTERRUPT ; 5142 [BRX]-[AR], ;BELOW E? ; 5143 3T, U 1323, 1324,2113,0603,4174,4007,0521,4000,0000,0000 ; 5144 SKIP DP0 ; 5145 =0 END BLT, ;NO--STOP BLT U 1324, 1400,4221,0013,4170,4007,0700,0000,0000,0000 ; 5146 J/DONE ; 5147 [ARX]_[ARX]+1, ;FOR PAGE FAIL LOGIC U 1325, 1326,0111,0704,4174,4007,0370,0000,0000,0000 ; 5148 SKIP IRPT ; 5149 =0 VMA_[BRX]+1, ; 5150 LOAD VMA, ; 5151 PXCT BLT DEST, ; 5152 START WRITE, ;YES--KEEP STORING U 1326, 3162,0111,0706,4170,4007,0700,0200,0003,0312 ; 5153 J/BLTCLR ; 5154 VMA_[BRX]+1, ;INTERRUPT ; 5155 LOAD VMA, ; 5156 PXCT BLT DEST, ; 5157 START WRITE, U 1327, 3164,0111,0706,4170,4007,0700,0200,0003,0312 ; 5158 J/BLTGO ; 5159 ; 5160 ;HERE FOR NORMAL BLT ; 5161 BLTLP: MEM READ, ;FETCH ; 5162 Q_MEM, U 3163, 1320,3772,0000,4365,5007,0700,0200,0000,0002 ; 5163 J/BLTLP1 ; 5164 BLTGO: MEM WRITE, ;STORE U 3164, 3165,3223,0000,4174,4007,0701,0200,0000,0002 ; 5165 MEM_Q ; 5166 BLTGOT: [BRX]-[AR], ;BELOW E? ; 5167 3T, U 3165, 1330,2113,0603,4174,4007,0521,4000,0000,0000 ; 5168 SKIP DP0 ; 5169 =0 END BLT, ;NO--STOP BLT U 1330, 1400,4221,0013,4170,4007,0700,0000,0000,0000 ; 5170 J/DONE U 1331, 3166,0111,0706,4174,4007,0700,0000,0000,0000 ; 5171 [BRX]_[BRX]+1 ;UPDATE DEST ADDRESS ; 5172 VMA_[ARX]+1, ; 5173 LOAD VMA, ; 5174 PXCT BLT SRC, ; 5175 START READ, ;YES--MOVE 1 MORE WORD U 3166, 3163,0111,0704,4170,4007,0700,0200,0004,0712 ; 5176 J/BLTLP ; 5177 ; 5178 ;HERE TO CLEAN UP AFTER BLT PAGE FAILS ; 5179 BLT-CLEANUP: U 3167, 3170,3770,0303,4344,4007,0700,0000,0000,0000 ; 5180 [AR]_[AR] SWAP ;PUT SRC IN LEFT HALF ; 5181 [AR]_WORK[SV.BRX], U 3170, 3171,3771,0003,7270,4007,0701,0000,0000,0214 ; 5182 HOLD LEFT ; 5183 AC_[AR], ;STORE THE AC AND RETURN U 3171, 1100,3440,0303,0174,4007,0700,0400,0000,0000 ; 5184 J/CLEANED ; 5185 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 140 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BLT ;;5186 .IF/UBABLT ;;5187 .TOC "UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT" ;;5188 ;;5189 ;THESE INSTRUCTION MOVE WORDS FROM BYTE TO UNIBUS AND UNIBUS TO BYTE ;;5190 ;FORMAT. FORMATS ARE: ;;5191 ; ;;5192 ;BYTE FORMAT: ;;5193 ; ;;5194 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;5195 ; ;; BYTE 0 ;; BYTE 1 ;; BYTE 2 ;; BYTE 3 ;; 4 BITS ;; ;;5196 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;5197 ; ;;5198 ;UNIBUS FORMAT: ;;5199 ; ;;5200 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;5201 ; ;; 2 BITS ;; BYTE 1 ;; BYTE 0 ;; 2 BITS ;; BYTE 3 ;; BYTE 2 ;; ;;5202 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;5203 ; ;;5204 ;;5205 =0* ;;5206 BLTX: [BRX]_AC, ;FETCH THE AC (DEST IN RH) ;;5207 CALL [SETBLT] ;DO THE REST OF THE SETUP ;;5208 AC_[BR] ;STORE THE FINAL AC IN AC ;;5209 ;;5210 BLTXLP: MEM READ, ;READ THE SOURCE WORD ;;5211 Q_MEM, ;FROM MEMORY ;;5212 B DISP ;SKIP IF BLTUB (OPCODE 717) ;;5213 =110 Q_Q*.5, ;BLTBU (OPCODE 716) - SHIFT RIGHT 1 BIT ;;5214 J/BLTBU1 ;CONTINUE INSTRUCTION ;;5215 ;;5216 AD/D.AND.Q,DBUS/DBM, ;BLTUB - MASK LOW BYTES, SHIFT LEFT ;;5217 DBM/#,#/377,DEST/AD*2,B/T1 ;AND STORE RESULT ;;5218 =00 FE_S#,S#/1767, ;-9 MORE BITS TO PUT LOW BYTE OF LH ;;5219 CALL [T1LSH] ; IN TOP OF LH SHIFT LEFT ;;5220 =01 FE_S#,S#/1772, ;-6 BITS TO PUT HI BYTE TO RIGHT ;;5221 CALL [Q_RSH] ; OF LOW BYTE. ;;5222 =11 Q_Q.AND.#,#/001774 ;KEEP ONLY HI BYTES ;;5223 = ;;5224 AD/A.OR.Q,A/T1,DEST/AD, ;MERGE PAIRS OF BYTES. NOW SWAPPED, ;;5225 B/T1 ;BUT STILL IN HALF-WORDS ;;5226 AD/57,RSRC/0A,A/T1, ;CLEAR LH OF Q WHILE LOADING ;;5227 DEST/Q_AD ;RH WITH LOW WORD ;;5228 Q_Q*2 ;SHIFT LOW WORD ACROSS 1/2 WORD ;;5229 Q_Q*2 ;AND INTO FINAL POSITION ;;5230 [T1]_[T1].AND.# CLR RH, ;CLEAR ALL BUT HIGH 16-BIT WORD ;;5231 #/777774,J/BLTXV ;FROM T1 AND CONTINUE ;;5232 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 141 ; SIMPLE.MIC[7,3] 16:49 11-NOV-1985 BLT ;;5233 BLTBU1: Q_Q*.5 ;NOW IN 1/2 WORDS ;;5234 Q_Q*.5,HOLD LEFT ;INSERT A NULL BIT IN RH ;;5235 Q_Q*.5,HOLD LEFT ;ONE MORE - NOW IN HALF WORDS ;;5236 AD/D.AND.Q,DBUS/DBM, ;BUT NOT SWAPPED. COPY RIGHT BYTE ;;5237 DBM/#,#/377,DEST/AD*2,B/T1 ;TO T1 AND SHIFT LEFT 1 POSITION ;;5238 =00 FE_S#,S#/1771, ;-7 BITS MORE ;;5239 CALL [T1LSH] ;TO FINAL RESTING PLACE ;;5240 =01 FE_S#,S#/1770, ;-8. LEFT BYTES MOVE RIGHT ;;5241 CALL [Q_RSH] ;TO FINAL RESTING PLACE ;;5242 =11 Q_Q.AND.#,#/377 ;WANT ONLY THE NEW BYTES ;;5243 = ;;5244 ;;5245 BLTXV: Q_[T1].OR.Q, ;MERGE RESULTS ;;5246 J/BLTXW ;AND STUFF IN MEMORY ;;5247 ;;5248 T1LSH: [T1]_[T1]*2,SHIFT,RETURN [1] ;;5249 Q_RSH: Q_Q*.5,SHIFT,RETURN [2] ;;5250 ;;5251 BLTXW: VMA_[BRX],START WRITE, ;DEST TO VMA ;;5252 PXCT BLT DEST ;;5253 MEM WRITE,MEM_Q ;STORE ;;5254 [BRX]-[AR],3T,SKIP DP0 ;DONE? ;;5255 =0 END BLT,J/DONE ;YES ;;5256 [BRX]_[BRX]+1 ;NO, INC DEST ;;5257 VMA_[ARX]+1,LOAD VMA, ; AND SOURCE (LOADING VMA) ;;5258 PXCT BLT SRC,START READ,;START UP MEMORY ;;5259 J/BLTXLP ;AND CONTINUE WITH NEXT WORD ; 5260 .ENDIF/UBABLT ; 5261 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 142 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- FAD, FSB ; 5262 .TOC "FLOATING POINT -- FAD, FSB" ; 5263 ; 5264 .DCODE D 0140, 0701,1577,1100 ; 5265 140: FL-R, FL-AC, J/FAD D 0142, 0702,1577,1700 ; 5266 142: FL-RW, FL-MEM, J/FAD D 0143, 0703,1577,1700 ; 5267 FL-RW, FL-BOTH, J/FAD D 0144, 0711,1577,1100 ; 5268 FL-R, FL-AC, ROUND, J/FAD D 0145, 0611,1577,0100 ; 5269 FL-I, FL-AC, ROUND, J/FAD D 0146, 0712,1577,1700 ; 5270 FL-RW, FL-MEM, ROUND, J/FAD D 0147, 0713,1577,1700 ; 5271 FL-RW, FL-BOTH, ROUND, J/FAD ; 5272 D 0150, 0701,1576,1100 ; 5273 150: FL-R, FL-AC, J/FSB D 0152, 0702,1576,1700 ; 5274 152: FL-RW, FL-MEM, J/FSB D 0153, 0703,1576,1700 ; 5275 FL-RW, FL-BOTH, J/FSB D 0154, 0711,1576,1100 ; 5276 FL-R, FL-AC, ROUND, J/FSB D 0155, 0611,1576,0100 ; 5277 FL-I, FL-AC, ROUND, J/FSB D 0156, 0712,1576,1700 ; 5278 FL-RW, FL-MEM, ROUND, J/FSB D 0157, 0713,1576,1700 ; 5279 FL-RW, FL-BOTH, ROUND, J/FSB ; 5280 .UCODE ; 5281 ; 5282 ;BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN AR ; 5283 ; SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE. ; 5284 1576: U 1576, 1577,2441,0303,4174,4007,0700,4000,0000,0000 ; 5285 FSB: [AR]_-[AR] ;MAKE MEMOP NEGATIVE ; 5286 ; 5287 1577: U 1577, 0670,3771,0005,0276,6006,7701,2000,0020,2000 ; 5288 FAD: [BR]_AC, SC_SC-EXP-1, 3T, SCAD DISP ; 5289 =0* U 0670, 1334,3333,0005,4174,4007,0520,0000,0000,0000 ; 5290 FAS1: READ [BR], SKIP DP0, J/FAS2 ;BR .LE. AR U 0672, 3172,3441,0304,4174,4007,0700,0000,0000,0000 ; 5291 [ARX]_[AR] ;SWAP AR AND BR U 3172, 3173,3441,0503,4174,4007,0700,2000,0041,2000 ; 5292 [AR]_[BR], SC_EXP U 3173, 3174,3441,0405,4174,4007,0700,2000,0020,0000 ; 5293 [BR]_[ARX], SC_SC-FE-1 ;NUMBER OF SHIFT STEPS U 3174, 1332,3333,0003,4174,4007,0520,1000,0041,2000 ; 5294 READ [AR], FE_EXP, 2T, SKIP DP0 U 1332, 3175,4551,0303,4374,0007,0700,0000,0000,0777 ; 5295 =0 [AR]_+SIGN, J/FAS3 U 1333, 3175,3551,0303,4374,0007,0700,0000,0077,7000 ; 5296 [AR]_-SIGN, J/FAS3 ; 5297 ; 5298 =0 ;SIGN SMEAR BR AND UNNORMALIZE U 1334, 3175,4551,0505,4374,0007,0700,0000,0000,0777 ; 5299 FAS2: [BR]_+SIGN, J/FAS3 U 1335, 3175,3551,0505,4374,0007,0700,0000,0077,7000 ; 5300 [BR]_-SIGN, J/FAS3 ; 5301 U 3175, 1336,4222,0000,4174,4007,0630,2000,0060,0000 ; 5302 FAS3: Q_0, STEP SC ; 5303 =0 U 1336, 1336,3446,0505,4174,4047,0630,2000,0060,0000 ; 5304 FAS4: [BR]_[BR]*.5 LONG, STEP SC, ASHC, J/FAS4 U 1337, 0420,0111,0503,4174,4003,4701,0000,0000,0000 ; 5305 [AR]_[AR]+[BR], NORM DISP, J/SNORM ; 5306 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 143 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLAOTING POINT -- FMP ; 5307 .TOC "FLAOTING POINT -- FMP" ; 5308 ; 5309 .DCODE D 0160, 0701,1570,1100 ; 5310 160: FL-R, FL-AC, J/FMP D 0162, 0702,1570,1700 ; 5311 162: FL-RW, FL-MEM, J/FMP D 0163, 0703,1570,1700 ; 5312 FL-RW, FL-BOTH, J/FMP ; 5313 D 0164, 0711,1570,1100 ; 5314 FL-R, FL-AC, ROUND, J/FMP D 0165, 0611,1570,0100 ; 5315 FL-I, FL-AC, ROUND, J/FMP D 0166, 0712,1570,1700 ; 5316 FL-RW, FL-MEM, ROUND, J/FMP D 0167, 0713,1570,1700 ; 5317 FL-RW, FL-BOTH, ROUND, J/FMP ; 5318 .UCODE ; 5319 ; 5320 1570: ; 5321 FMP: [BRX]_AC, ;GET AC ; 5322 FE_SC+EXP, 3T, ;EXPONENT OF ANSWER U 1570, 1340,3771,0006,0276,6007,0521,1000,0040,2000 ; 5323 SKIP DP0 ;GET READY TO SMEAR SIGN U 1340, 3176,4551,0606,4374,0007,0700,0000,0000,0777 ; 5324 =0 [BRX]_+SIGN, J/FMP1 ;POSITIVE U 1341, 3176,3551,0606,4374,0007,0700,0000,0077,7000 ; 5325 [BRX]_-SIGN, J/FMP1 ;NEGATIVE U 3176, 0163,3442,0300,4174,4007,0700,2000,0071,0033 ; 5326 FMP1: Q_[AR], SC_27. ;GET MEMORY OPERAND ; 5327 =01* [BRX]_[BRX]*.5 LONG, ;SHIFT RIGHT U 0163, 3000,3446,0606,4174,4007,0700,0010,0000,0000 ; 5328 CALL [MULSUB] ;MULTIPLY ; 5329 Q_Q.AND.#, #/777000, ;WE ONLY COMPUTED U 0167, 3177,4662,0000,4370,4007,0700,0000,0077,7000 ; 5330 HOLD LEFT ; 27 BITS U 3177, 3200,3441,0403,4174,4007,0700,1000,0041,0002 ; 5331 [AR]_[ARX], FE_FE+2 ;SET SHIFT PATHS ; 5332 [AR]_[AR]*.5 LONG, ;SHIFT OVER ; 5333 FE_FE-200, ;ADJUST EXPONENT U 3200, 0420,3446,0303,4174,4003,4701,1000,0041,1600 ; 5334 NORM DISP, J/SNORM ;NORMALIZE & EXIT ; 5335 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 144 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- FDV ; 5336 .TOC "FLOATING POINT -- FDV" ; 5337 ; 5338 .DCODE D 0170, 0701,1574,1100 ; 5339 170: FL-R, FL-AC, J/FDV D 0172, 0702,1574,1700 ; 5340 172: FL-RW, FL-MEM, J/FDV D 0173, 0703,1574,1700 ; 5341 FL-RW, FL-BOTH, J/FDV ; 5342 D 0174, 0711,1574,1100 ; 5343 FL-R, FL-AC, ROUND, J/FDV D 0175, 0611,1574,0100 ; 5344 FL-I, FL-AC, ROUND, J/FDV D 0176, 0712,1574,1700 ; 5345 FL-RW, FL-MEM, ROUND, J/FDV D 0177, 0713,1574,1700 ; 5346 FL-RW, FL-BOTH, ROUND, J/FDV ; 5347 .UCODE ; 5348 ; 5349 ; 5350 1574: U 1574, 1342,3441,0305,0174,4007,0621,0000,0000,0000 ; 5351 FDV: [BR]_[AR], SKIP AD.EQ.0, AC ;COPY DIVSOR SEE IF 0 ; 5352 =0 ; 5353 [AR]_AC, FE_SC-EXP, SKIP DP0, ;GET AC & COMPUTE NEW U 1342, 1344,3771,0003,0276,6007,0520,1000,0030,2000 ; 5354 J/FDV0 ; EXPONENT U 1343, 0555,4443,0000,4174,4467,0700,0000,0071,1000 ; 5355 FL NO DIVIDE ;DIVIDE BY ZERO ; 5356 =0 U 1344, 3201,4551,0303,4374,0007,0700,0000,0000,0777 ; 5357 FDV0: [AR]_+SIGN, J/FDV1 U 1345, 3202,3551,0303,4374,0007,0700,0000,0077,7000 ; 5358 [AR]_-SIGN, J/FDV2 U 3201, 3203,3441,0304,4174,4007,0700,1000,0031,0200 ; 5359 FDV1: [ARX]_[AR],FE_-FE+200,J/FDV3 ;COMPUTE 2*DVND U 3202, 3203,2441,0304,4174,4007,0700,5000,0031,0200 ; 5360 FDV2: [ARX]_-[AR],FE_-FE+200,J/FDV3 ;ABSOLUTE VALUE U 3203, 1346,3445,0506,4174,4007,0520,0000,0000,0000 ; 5361 FDV3: [BRX]_[BR]*2, SKIP DP0 ;ABSOLUTE VALUE ; 5362 =0 U 1346, 1350,2113,0406,4174,4007,0311,4000,0000,0000 ; 5363 FDV4: [ARX]-[BRX], SKIP CRY0, 3T, J/FDV5 ;FLOATING NO DIV? U 1347, 1346,2445,0506,4174,4007,0700,4000,0000,0000 ; 5364 [BRX]_-[BR]*2, J/FDV4 ;FORCE ABSOLUTE VALUE ; 5365 =0 U 1350, 1352,3447,0606,4174,4007,0700,0000,0000,0000 ; 5366 FDV5: [BRX]_[BRX]*.5, J/FDV6 ;SHIFT BACK ARX U 1351, 0555,4443,0000,4174,4467,0700,0000,0071,1000 ; 5367 FL NO DIVIDE ;UNNORMALIZED INPUT ; 5368 =0 ; 5369 FDV6: [AR]_[AR]*2, ;DO NOT DROP A BIT U 1352, 3665,3445,0303,4174,4007,0700,0010,0000,0000 ; 5370 CALL [SBRL] ;AT FDV7+1 U 1353, 0144,2113,0604,4174,4007,0421,4000,0000,0000 ; 5371 [BRX]-[ARX], SKIP AD.LE.0 ;IS ANSWER .LE. 1? ; 5372 =00100 U 0144, 3043,4222,0000,4174,4007,0700,2010,0071,0033 ; 5373 FDV7: Q_0, SC_27., CALL [DIVSGN] ;DIVIDE U 0145, 0144,3447,0303,4174,4007,0700,1000,0041,0001 ; 5374 =00101 [AR]_[AR]*.5, FE_FE+1, J/FDV7 ;SCALE DV'END ; 5375 =01100 U 0154, 3204,3227,0003,4174,4007,0700,0000,0000,0000 ; 5376 FDV8: [AR]_Q*.5, J/FDV9 ;PUT ANSWER IN AR ; 5377 =01101 READ [AR], SKIP AD.EQ.0, ;-VE ANSWER, LOOK AT RMDR U 0155, 2054,3333,0003,4174,4007,0621,0010,0000,0000 ; 5378 CALL [SETSN] ; SEE HOW TO NEGATE ; 5379 =01110 READ [AR], SKIP AD.EQ.0, ;-VE ANSWER, LOOK AT RMDR U 0156, 2054,3333,0003,4174,4007,0621,0010,0000,0000 ; 5380 CALL [SETSN] ; SEE HOW TO NEGATE U 0157, 3204,3227,0003,4174,4007,0700,0000,0000,0000 ; 5381 =01111 [AR]_Q*.5, J/FDV9 ;PUT ANSWER IN AR U 0177, 3204,2227,0003,4174,4007,0700,4000,0000,0000 ; 5382 =11111 [AR]_-Q*.5, J/FDV9 ;ZERO RMDR ; 5383 U 3204, 1363,4222,0000,4174,4007,0700,0000,0000,0000 ; 5384 FDV9: Q_0, J/SNORM0 ;GO NORMALIZE ; 5385 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 145 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- FLTR, FSC ; 5386 .TOC "FLOATING POINT -- FLTR, FSC" ; 5387 ; 5388 .DCODE D 0127, 0011,1616,1100 ; 5389 127: R, FL-AC,ROUND, J/FLTR D 0132, 0001,1621,2100 ; 5390 132: I, FL-AC, J/FSC ; 5391 .UCODE ; 5392 ; 5393 1616: U 1616, 1354,4553,0300,4374,4007,0321,0000,0077,7000 ; 5394 FLTR: [AR].AND.#, #/777000, 3T, SKIP ADL.EQ.0 ;SMALL POS NUMBER? U 1354, 1356,2441,0305,4174,4007,0521,4000,0000,0000 ; 5395 =0 [BR]_-[AR], SKIP DP0, 3T, J/FLTR1 ;NO--SEE IF MINUS U 1355, 1363,4222,0000,4174,4007,0700,1000,0071,0233 ; 5396 Q_0, FE_S#, S#/233, J/SNORM0 ;FITS IN 27 BITS ; 5397 =0 ; 5398 FLTR1: [BR].AND.#, #/777000, 3T, U 1356, 1360,4553,0500,4374,4007,0321,0000,0077,7000 ; 5399 SKIP ADL.EQ.0, J/FLTR1A ;SMALL NEGATIVE NUMBER U 1357, 3205,4222,0000,4174,4007,0700,1000,0071,0244 ; 5400 Q_0, FE_S#, S#/244, J/FLTR2 ;LARGE POS NUMBER ; 5401 =0 U 1360, 3205,4222,0000,4174,4007,0700,1000,0071,0244 ; 5402 FLTR1A: Q_0, FE_S#, S#/244, J/FLTR2 ;BIG NUMBER U 1361, 1363,4222,0000,4174,4007,0700,1000,0071,0233 ; 5403 Q_0, FE_S#, S#/233, J/SNORM0 ;FITS IN 27 BITS ; 5404 ;AT THIS POINT WE KNOW THE NUMBER TAKES MORE THAN 27 BITS. WE JUST ; 5405 ; SHIFT 8 PLACES RIGHT AND NORMALIZE. WE COULD BE MORE CLEVER BUT ; 5406 ; THIS IS THE RARE CASE ANYWAY. U 3205, 1362,3446,0303,4174,4047,0700,2000,0071,0006 ; 5407 FLTR2: [AR]_[AR]*.5 LONG, ASHC, SC_6 ;SHOVE OVER TO THE RIGHT ; 5408 =0 ; 5409 FLTR3: [AR]_[AR]*.5 LONG, ASHC, ;SHIFT RIGHT 9 PLACES U 1362, 1362,3446,0303,4174,4047,0630,2000,0060,0000 ; 5410 STEP SC, J/FLTR3 ; SO IT WILL FIT U 1363, 0420,3333,0003,4174,4003,4701,0000,0000,0000 ; 5411 SNORM0: READ [AR], NORM DISP, J/SNORM ;NORMALIZE ANSWER ; 5412 ; 5413 ; 5414 1621: U 1621, 3206,3333,0003,4174,4007,0700,2000,0041,4000 ; 5415 FSC: READ [AR], SC_SHIFT U 3206, 3207,4222,0000,0174,4007,0700,0000,0000,0000 ; 5416 Q_0, AC ;DON'T SHIFT IN JUNK U 3207, 1364,3771,0003,0276,6007,0520,1000,0040,2000 ; 5417 [AR]_AC, FE_SC+EXP, SKIP DP0 ;SIGN SMEAR U 1364, 1363,4551,0303,4374,0007,0700,0000,0000,0777 ; 5418 =0 [AR]_+SIGN, J/SNORM0 U 1365, 1363,3551,0303,4374,0007,0700,0000,0077,7000 ; 5419 [AR]_-SIGN, J/SNORM0 ; 5420 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 146 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- FIX AND FIXR ; 5421 .TOC "FLOATING POINT -- FIX AND FIXR" ; 5422 ; 5423 .DCODE D 0122, 0701,1626,1100 ; 5424 122: FL-R, FL-AC, J/FIX D 0126, 0711,1626,1100 ; 5425 126: FL-R, FL-AC,ROUND, J/FIX ; 5426 .UCODE ; 5427 ; 5428 1626: ; 5429 FIX: Q_0, SCAD/A+B, SCADA/S#, ;CLEAR Q, SEE IF ; 5430 S#/1534, SCADB/FE, 3T, ; ANSWER FITS IN U 1626, 0674,4222,0000,4174,4006,7701,0000,0041,1534 ; 5431 SCAD DISP ; 35 BITS. U 0674, 0555,4443,0000,4174,4467,0700,0000,0041,1000 ; 5432 =0* SET AROV, J/NIDISP ;TOO BIG U 0676, 0720,4443,0000,4174,4006,7701,2000,0041,1544 ; 5433 SC_FE+S#, S#/1544, 3T, SCAD DISP ;NEED TO MOVE LEFT? U 0720, 1370,4443,0000,4174,4007,0630,2000,0060,0000 ; 5434 =0* STEP SC, J/FIXL U 0722, 3210,4443,0000,4174,4007,0700,2000,0031,0232 ; 5435 SC_S#-FE, S#/232 ;NUMBER OF PLACES TO SHIFT ; 5436 ; RIGHT U 3210, 1366,4443,0000,4174,4007,0630,2000,0060,0000 ; 5437 STEP SC ;ALREADY THERE ; 5438 =0 ; 5439 FIXR: [AR]_[AR]*.5 LONG, ASHC, ;SHIFT BINARY POINT U 1366, 1366,3446,0303,4174,4047,0630,2000,0060,0000 ; 5440 STEP SC, J/FIXR ; TO BIT 35.5 U 1367, 0063,3447,0705,4174,4003,7700,0000,0000,0000 ; 5441 [BR]_[ONE]*.5, B DISP, J/FIXX ;WHICH KIND OF FIX? ; 5442 ; 5443 =0 U 1370, 1370,3445,0303,4174,4007,0630,2000,0060,0000 ; 5444 FIXL: [AR]_[AR]*2, STEP SC, J/FIXL ;SHIFT LEFT U 1371, 0100,3440,0303,0174,4156,4700,0400,0000,0000 ; 5445 AC_[AR], NEXT INST ;WE ARE NOW DONE ; 5446 ; 5447 =0*11 U 0063, 1372,3333,0003,4174,4007,0520,0000,0000,0000 ; 5448 FIXX: READ [AR], SKIP DP0, J/FIXT ;FIX--SEE IF MINUS U 0073, 1514,0111,0503,4174,4003,7700,0200,0003,0001 ; 5449 FIXX1: [AR]_[AR]+[BR], FL-EXIT ;FIXR--ROUND UP ; 5450 =0 U 1372, 0100,3440,0303,0174,4156,4700,0400,0000,0000 ; 5451 FIXT: AC_[AR], NEXT INST ;FIX & +, TRUNCATE U 1373, 1374,3223,0000,4174,4007,0621,0000,0000,0000 ; 5452 READ Q, SKIP AD.EQ.0 ;NEGATIVE--ANY FRACTION? U 1374, 1514,0111,0703,4174,4003,7700,0200,0003,0001 ; 5453 =0 [AR]_[AR]+1, FL-EXIT ;YES--ROUND UP ; 5454 [BR]_.NOT.[MASK], ;MAYBE--GENERATE .75 U 1375, 0073,7441,1205,4174,4007,0700,0000,0000,0000 ; 5455 J/FIXX1 ;ROUND UP IF BIT 36 OR ; 5456 ; 37 SET ; 5457 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 147 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- SINGLE PRECISION NORMALIZE ; 5458 .TOC "FLOATING POINT -- SINGLE PRECISION NORMALIZE" ; 5459 ; 5460 ;NORMALIZE DISPATCH IS A 9-WAY DISPATCH. THE HARDWARE LOOKS AT ; 5461 ; 4 SIGNALS: DP=0, DP BIT 8, DP BIT 9, DP BIT -2. THE 9 CASES ; 5462 ; ARE: ; 5463 ; 5464 ; DP=0 DP08 DP09 DP00 ACTION TO TAKE ; 5465 ; 0 0 0 0 SHIFT LEFT ; 5466 ; ; 5467 ; 0 0 0 1 NEGATE AND RETRY ; 5468 ; ; 5469 ; 0 0 1 0 ALL DONE ; 5470 ; ; 5471 ; 0 0 1 1 NEGATE AND RETRY ; 5472 ; ; 5473 ; 0 1 0 0 SHIFT RIGHT ; 5474 ; ; 5475 ; 0 1 0 1 NEGATE AND RETRY ; 5476 ; ; 5477 ; 0 1 1 0 SHIFT RIGHT ; 5478 ; ; 5479 ; 0 1 1 1 NEGATE AND RETRY ; 5480 ; ; 5481 ; 1 - - - LOOK AT Q BITS ; 5482 ; 5483 ;ENTER HERE WITH UNNORMALIZED NUMBER IN AR!Q. FE HOLDS THE NEW ; 5484 ; EXPONENT. CALL WITH NORM DISP ; 5485 =0000 ;9-WAY DISPATCH U 0420, 0420,3444,0303,4174,4063,4701,1000,0041,1777 ; 5486 SNORM: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNORM U 0421, 2000,2222,0000,4174,4007,0311,4000,0000,0000 ; 5487 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0422, 0262,3333,0003,4174,4003,4701,0010,0000,0000 ; 5488 READ [AR], NORM DISP, CALL [SROUND] U 0423, 2000,2222,0000,4174,4007,0311,4000,0000,0000 ; 5489 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0424, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5490 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0425, 2000,2222,0000,4174,4007,0311,4000,0000,0000 ; 5491 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0426, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5492 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0427, 2000,2222,0000,4174,4007,0311,4000,0000,0000 ; 5493 Q_-Q, SKIP CRY0, 3T, J/SNNEG U 0430, 1376,3223,0000,4174,4007,0621,0000,0000,0000 ; 5494 READ Q, SKIP AD.EQ.0, J/SNORM1 U 0436, 1377,3770,0303,4324,0457,0700,0000,0041,0000 ; 5495 =1110 [AR]_EXP, J/FLEX ; 5496 = ; 5497 =0 U 1376, 0420,3444,0303,4174,4063,4701,1000,0041,1777 ; 5498 SNORM1: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNORM U 1377, 1514,4443,0000,4174,4003,7700,0200,0003,0001 ; 5499 FLEX: FL-EXIT ; 5500 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 148 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- SINGLE PRECISION NORMALIZE ; 5501 =0 U 2000, 0440,7441,0303,4174,4003,4701,0000,0000,0000 ; 5502 SNNEG: [AR]_.NOT.[AR], NORM DISP, J/SNNORM ;NEGATE HIGH WORD ; 5503 ; (NO CARRY) U 2001, 0440,2441,0303,4174,4003,4701,4000,0000,0000 ; 5504 [AR]_-[AR], NORM DISP, J/SNNORM ;NEGATE HIGH WORD (W/CARRY) ; 5505 =0000 U 0440, 0440,3444,0303,4174,4063,4701,1000,0041,1777 ; 5506 SNNORM: [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNNORM U 0442, 0262,3333,0003,4174,4003,4701,0010,0000,0000 ; 5507 =0010 READ [AR], NORM DISP, CALL [SROUND] U 0444, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5508 =0100 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0446, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5509 =0110 [AR]_[AR]*.5, FE_FE+1, CALL [SROUND] U 0450, 0440,3444,0303,4174,4063,4701,1000,0041,1777 ; 5510 =1000 [AR]_[AR]*2 LONG, DIV, FE_FE-1, NORM DISP, J/SNNORM U 0456, 0327,3770,0303,4324,0453,7700,0000,0041,0000 ; 5511 =1110 [AR]_EXP, B DISP ; 5512 = U 0327, 2002,4553,1300,4374,4007,0321,0000,0000,2000 ; 5513 =0111 TL [FLG], FLG.SN/1, J/SNNOT ; 5514 [AR]_[AR].AND.[MASK], ;CLEAR ANY LEFT OVER BITS U 0337, 2005,4111,1203,4174,4007,0700,0000,0000,0000 ; 5515 J/SNNOT1 ; 5516 =0 U 2002, 3211,7441,0303,4174,4007,0700,0000,0000,0000 ; 5517 SNNOT: [AR]_.NOT.[AR], J/SNNOT2 U 2003, 2004,3223,0000,4174,4007,0621,0000,0000,0000 ; 5518 READ Q, SKIP AD.EQ.0 U 2004, 3211,7441,0303,4174,4007,0700,0000,0000,0000 ; 5519 =0 [AR]_.NOT.[AR], J/SNNOT2 U 2005, 3211,2441,0303,4174,4007,0700,4000,0000,0000 ; 5520 SNNOT1: [AR]_-[AR], J/SNNOT2 ;NORMAL NEGATE AND EXIT U 3211, 1514,4221,0013,4174,4003,7700,0200,0003,0001 ; 5521 SNNOT2: [FLG]_0, FL-EXIT ; 5522 ; 5523 ; 5524 ; 5525 .TOC "FLOATING POINT -- ROUND ANSWER" ; 5526 ; 5527 =*01* U 0262, 0407,3447,0705,4174,4003,7700,0000,0000,0000 ; 5528 SROUND: [BR]_[ONE]*.5, B DISP, J/SRND1 U 0266, 0262,3447,0303,4174,4007,0700,1000,0041,0001 ; 5529 [AR]_[AR]*.5, FE_FE+1, J/SROUND ;WE WENT TOO FAR ; 5530 =0111 U 0407, 0016,4443,0000,4174,4004,1700,0000,0000,0000 ; 5531 SRND1: RETURN [16] ;NOT ROUNDING INSTRUCTION U 0417, 0302,0111,0503,4174,4003,4701,0000,0000,0000 ; 5532 [AR]_[AR]+[BR], NORM DISP U 0302, 0016,4443,0000,4174,4004,1700,0000,0000,0000 ; 5533 =*01* RETURN [16] U 0306, 0016,3447,0303,4174,4004,1700,1000,0041,0001 ; 5534 [AR]_[AR]*.5, FE_FE+1, RETURN [16] ; 5535 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 149 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DFAD, DFSB ; 5536 .TOC "FLOATING POINT -- DFAD, DFSB" ; 5537 ; 5538 .DCODE D 0110, 1100,1637,1100 ; 5539 110: DBL FL-R, J/DFAD D 0111, 1100,1635,1100 ; 5540 111: DBL FL-R, J/DFSB ; 5541 .UCODE ; 5542 ; 5543 ;ENTER FROM A-READ CODE WITH: ; 5544 ;FE/ EXP ; 5545 ;SC/ EXP ; 5546 ;AR/ C(E) SHIFT RIGHT 2 PLACES ; 5547 ;ARX/ C(E+1) SHIFTED RIGHT 1 PLACE ; 5548 1635: U 1635, 3212,2441,0404,4174,4007,0700,4000,0000,0000 ; 5549 DFSB: [ARX]_-[ARX] ;NEGATE LOW WORD U 3212, 1637,2441,0303,4174,4007,0700,0040,0000,0000 ; 5550 [AR]_-[AR]-.25, MULTI PREC/1 ; 5551 1637: U 1637, 3213,4557,0006,1274,4007,0701,0000,0000,1441 ; 5552 DFAD: [BRX]_(AC[1].AND.[MAG])*.5, 3T ;GET LOW WORD ; 5553 [BR]_AC*.5, 3T, ;GET AC AND START TO SHIFT ; 5554 SC_SC-EXP-1, ;NUMBER OF PLACES TO SHIFT U 3213, 2006,3777,0005,0274,4007,0521,2000,0020,2000 ; 5555 SKIP DP0 ;SEE WHAT SIGN ; 5556 =0 [BR]_+SIGN*.5, 3T, ;SIGN SMEAR U 2006, 2010,5547,0505,0374,4007,0631,0000,0077,7400 ; 5557 AC, SKIP/SC, J/DFAS1 ;SEE WHICH IS BIGGER ; 5558 [BR]_-SIGN*.5, 3T, ;SIGN SMEAR U 2007, 2010,3547,0505,0374,4007,0631,0000,0077,7400 ; 5559 AC, SKIP/SC, J/DFAS1 ;SEE WHICH IS BIGGER ; 5560 =0 ; 5561 DFAS1: Q_[BRX], ;AR IS BIGGER U 2010, 2012,3442,0600,4174,4007,0700,0000,0000,0000 ; 5562 J/DFAS2 ;ADJUST BR!Q ; 5563 [T0]_AC, ;BR IS BIGGER OR EQUAL U 2011, 3215,3771,0016,0276,6007,0700,2000,0041,2000 ; 5564 SC_EXP, 2T, J/DFAS3 ;SET SC TO THAT EXPONENT ; 5565 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 150 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DFAD, DFSB ; 5566 ;HERE IF AR!ARX IS GREATER THAN BR!BRX ; 5567 =0 U 2012, 0153,3441,0516,4174,4007,0700,0010,0000,0000 ; 5568 DFAS2: [T0]_[BR], CALL [DFADJ] ;ADJUST BR!Q U 2013, 3214,3441,1605,4174,4007,0700,0000,0000,0000 ; 5569 [BR]_[T0] ;PUT ANSWER BACK U 3214, 3220,0002,0400,4174,4007,0700,0000,0000,0000 ; 5570 Q_Q+[ARX], J/DFAS5 ;ADD LOW WORDS ; 5571 ; 5572 ;HERE IS BR!BRX IF GREATER THAN OR EQUAL TO AR!ARX ; 5573 DFAS3: Q_[ARX], ;SETUP TO SHIFT AR!ARX U 3215, 3216,3442,0400,4174,4007,0700,2000,0020,0000 ; 5574 SC_SC-FE-1 ;COMPUTE # OF PLACES U 3216, 2014,3333,0016,4174,4007,0700,1000,0041,2000 ; 5575 READ [T0], FE_EXP ;EXPONENT OF ANSWER U 2014, 0153,3441,0316,4174,4007,0700,0010,0000,0000 ; 5576 =0 [T0]_[AR], CALL [DFADJ] ;ADJUST AR!Q U 2015, 3217,3441,1603,4174,4007,0700,0000,0000,0000 ; 5577 [AR]_[T0] ;PUT ANSWER BACK U 3217, 3220,0002,0600,4174,4007,0700,0000,0000,0000 ; 5578 Q_Q+[BRX], J/DFAS5 ;ADD LOW WORDS ; 5579 ; 5580 ;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO ; 5581 ; AR!Q ; 5582 DFAS5: [AR]_([AR]+[BR])*.5 LONG, ;ADD HIGH WORDS U 3220, 3221,0116,0503,4174,4047,0700,0040,0000,0000 ; 5583 MULTI PREC/1, ASHC ;INJECT SAVED CRY2 ; 5584 [AR]_[AR]*2 LONG, ;SHIFT BACK LEFT U 3221, 0433,3444,0303,4174,4046,2700,0000,0000,0000 ; 5585 ASHC, MUL DISP ;SEE IF WE LOST A 1 ; 5586 =1011 U 0433, 3222,5111,1217,4174,4007,0700,0000,0000,0000 ; 5587 DFAS6: [T1]_[T1].AND.NOT.[MASK], J/DFAS7 U 0437, 0433,0222,0000,4174,4007,0700,4000,0000,0000 ; 5588 Q_Q+.25, J/DFAS6 ; 5589 DFAS7: [AR]_[AR]*2 LONG, ASHC, ;PUT IN GUARD BITS U 3222, 3223,3444,0303,4174,4047,0700,1000,0041,1777 ; 5590 FE_FE-1 ; 5591 [AR]_[AR]*2 LONG, ASHC, U 3223, 3224,3444,0303,4174,4047,0700,1000,0041,1777 ; 5592 FE_FE-1 U 3224, 2027,3002,1700,4170,4007,0700,0000,0000,0000 ; 5593 Q_[T1].OR.Q, HOLD LEFT, J/DNORM0 ; 5594 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 151 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DFAD, DFSB ; 5595 ;SUBROUTINE TO ADJUST NUMBER IN T0!Q ; 5596 ;RETURNS 1 WITH ; 5597 ; T0!Q ADJUSTED ; 5598 ; FLG.SN=1 IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT) ; 5599 ; T1 HAS Q TWO STEPS PRIOR TO BEING DONE ; 5600 DFADJ "STEP SC, ASHC, MUL DISP" ; 5601 ; 5602 =0**11 ; 5603 DFADJ: [T0]_[T0]*2 LONG, DIV, ;MOVE EVERYTHING 2 PLACES U 0153, 2055,3444,1616,4174,4067,0700,0010,0000,0000 ; 5604 CALL [CLRSN] U 0173, 3225,3444,1616,4174,4067,0700,0000,0000,0000 ; 5605 [T0]_[T0]*2 LONG, DIV U 3225, 3226,3444,1616,4174,4067,0700,0000,0000,0000 ; 5606 [T0]_[T0]*2 LONG, DIV ; 5607 [T0]_[T0]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE U 3226, 0472,3446,1616,4174,4047,0630,2000,0060,0000 ; 5608 STEP SC ; 5609 =1010 ; 5610 DFADJ1: [T0]_[T0]*.5 LONG, ;UNNORMALIZE T0!Q U 0472, 0472,3446,1616,4174,4046,2630,2000,0060,0000 ; 5611 DFADJ, J/DFADJ1 ;LOOP TILL DONE ; 5612 DFADJ2: [T1]_Q, ;SAVE GUARD BITS U 0473, 0453,3221,0017,4174,4006,2700,0000,0000,0000 ; 5613 MUL DISP, J/DFADJ5 ;LOOK AT LAST BIT U 0476, 2016,3551,1313,4374,0007,0700,0000,0000,2000 ; 5614 [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ3 U 0477, 2017,3551,1313,4374,0007,0700,0000,0000,2000 ; 5615 [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ4 ; 5616 ; 5617 =0 U 2016, 2016,3446,1616,4174,4047,0630,2000,0060,0000 ; 5618 DFADJ3: [T0]_[T0]*.5 LONG, ASHC, STEP SC, J/DFADJ3 U 2017, 0453,3221,0017,4174,4007,0700,0000,0000,0000 ; 5619 DFADJ4: [T1]_Q ;SAVE 2 GUARD BITS ; 5620 =1011 U 0453, 3227,3446,1616,4174,4047,0700,0000,0000,0000 ; 5621 DFADJ5: [T0]_[T0]*.5 LONG, ASHC, J/DFADJ6 U 0457, 0453,3551,1313,4374,0007,0700,0000,0000,2000 ; 5622 [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, J/DFADJ5 U 3227, 0001,3446,1616,4174,4044,1700,0000,0000,0000 ; 5623 DFADJ6: [T0]_[T0]*.5 LONG, ASHC, RETURN [1] ; 5624 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 152 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DFMP ; 5625 .TOC "FLOATING POINT -- DFMP" ; 5626 ; 5627 .DCODE D 0112, 1105,1631,1100 ; 5628 112: DBL FL-R, DAC, J/DFMP ; 5629 .UCODE ; 5630 ; 5631 ;SAME ENTRY CONDITIONS AS DFAD/DFSB ; 5632 1631: U 1631, 2020,3442,0400,4174,4007,0700,2000,0071,0006 ; 5633 DFMP: Q_[ARX], SC_6 ;SHIFT MEM OP 8 PLACES ; 5634 =0 ; 5635 DFMP1: [AR]_[AR]*2 LONG, ASHC, ;SHIFT U 2020, 2020,3444,0303,4174,4047,0630,2000,0060,0000 ; 5636 STEP SC, J/DFMP1 U 2021, 3230,3446,1200,4174,4007,0700,0000,0000,0000 ; 5637 Q_Q*.5 U 3230, 3231,4662,0000,4374,0007,0700,0000,0007,7777 ; 5638 Q_Q.AND.#, #/077777, HOLD RIGHT U 3231, 3232,3221,0005,4174,4007,0700,0000,0000,0000 ; 5639 [BR]_Q ;COPY LOW WORD ; 5640 ; ; 5641 ; BRX * BR ==> C(E+1) * C(AC+1) ; 5642 ; U 3232, 0623,4557,0006,1274,4007,0700,0000,0000,1441 ; 5643 [BRX]_(AC[1].AND.[MAG])*.5 ;GET LOW AC U 0623, 3001,3447,0606,4174,4007,0700,2010,0071,0043 ; 5644 =0** [BRX]_[BRX]*.5, SC_35., CALL [MULSB1] ; 5645 ; ; 5646 ; BRX * Q ==> C(E) * C(AC+1) ; 5647 ; U 0627, 0730,3442,0300,4174,4007,0700,2000,0071,0043 ; 5648 Q_[AR], SC_35. ;GO MULT NEXT HUNK U 0730, 3002,4443,0000,4174,4007,0700,0010,0000,0000 ; 5649 =0** CALL [MULTIPLY] U 0734, 3233,3441,0416,4174,4007,0700,0000,0000,0000 ; 5650 [T0]_[ARX] ;SAVE PRODUCT U 3233, 3234,3227,0004,4174,4007,0700,2000,0011,0000 ; 5651 [ARX]_Q*.5, SC_FE ;PUT IN NEXT STEP ; 5652 ; ; 5653 ; BRX * BR ==> C(AC) * C(E+1) ; 5654 ; ; 5655 [BRX]_AC*.5, ;PREPARE TO DO HIGH HALF ; 5656 FE_SC+EXP, ;EXPONENT ON ANSWER U 3234, 2022,3777,0006,0274,4007,0521,1000,0040,2000 ; 5657 SKIP DP0, 3T U 2022, 0732,5547,0606,4374,4007,0701,0000,0077,7400 ; 5658 =0 [BRX]_+SIGN*.5, 3T, J/DFMP2 U 2023, 0732,3547,0606,4374,4007,0701,0000,0077,7400 ; 5659 [BRX]_-SIGN*.5, 3T ; 5660 =0** U 0732, 3002,3442,0500,4174,4007,0700,2010,0071,0043 ; 5661 DFMP2: Q_[BR], SC_35., CALL [MULTIPLY] ;GO MULTIPLY U 0736, 3235,3221,0017,4174,4007,0700,0000,0000,0000 ; 5662 [T1]_Q ;SAVE FOR ROUNDING U 3235, 1012,0111,1604,4174,4007,0700,0000,0000,0000 ; 5663 [ARX]_[ARX]+[T0] ;PREPARE FOR LAST MUL ; 5664 ; ; 5665 ; BRX * Q ==> C(AC) * C(E) ; 5666 ; ; 5667 =0** Q_[AR], SC_35., ;DO THE LAST MULTIPLY U 1012, 3002,3442,0300,4174,4007,0700,2010,0071,0043 ; 5668 CALL [MULTIPLY] ; .. ; 5669 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 153 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DFMP ; 5670 ;OK, WE NOW HAVE THE PRODUCT IN ARX!Q!T1. ALL WE NEED TO DO ; 5671 ; IS SOME BIT DIDDLES TO GET EVERYTHING IN THE RIGHT PLACE ; 5672 [AR]_[ARX]*.5 LONG, ;SHIFT THE ANSWER U 1016, 0243,3446,0403,4174,4007,0700,1000,0041,1576 ; 5673 FE_FE+S#, S#/1576 ;CORRECT EXPONENT ; 5674 =0**11 READ [T1], SKIP AD.EQ.0, ;SEE IF LOW ORDER 1 U 0243, 2054,3333,0017,4174,4007,0621,0010,0000,0000 ; 5675 CALL [SETSN] ; BITS AROUND SOMEPLACE U 0263, 3236,3444,0303,4174,4047,0700,0000,0000,0000 ; 5676 [AR]_[AR]*2 LONG, ASHC ;SHIFT LEFT U 3236, 3237,3447,0705,4174,4007,0700,0000,0000,0000 ; 5677 [BR]_[ONE]*.5 ;PLACE TO INSTERT BITS U 3237, 2024,4553,1700,4374,4007,0321,0000,0020,0000 ; 5678 TL [T1], #/200000 ;ANYTHING TO INJECT? U 2024, 2025,0002,0500,4174,4007,0700,0000,0000,0000 ; 5679 =0 Q_Q+[BR] ;YES--PUT IT IN U 2025, 3240,3444,0303,4174,4047,0700,0000,0000,0000 ; 5680 [AR]_[AR]*2 LONG, ASHC ;MAKE ROOM FOR MORE U 3240, 2026,4553,1700,4374,4007,0321,0000,0010,0000 ; 5681 TL [T1], #/100000 ;ANOTHER BIT NEEDED U 2026, 2027,0002,0500,4174,4007,0700,0000,0000,0000 ; 5682 =0 Q_Q+[BR] ;YES--PUT IN LAST BIT ; 5683 DNORM0: READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO U 2027, 0520,3333,0003,4174,4003,4701,1000,0041,0002 ; 5684 FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS ; 5685 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 154 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DFDV ; 5686 .TOC "FLOATING POINT -- DFDV" ; 5687 ; 5688 .DCODE D 0113, 1105,1636,1100 ; 5689 113: DBL FL-R, DAC, J/DFDV ; 5690 .UCODE ; 5691 1636: U 1636, 0132,3441,0406,4174,4007,0700,0000,0000,0000 ; 5692 DFDV: [BRX]_[ARX] ;COPY OPERAND (COULD SAVE TIME ; 5693 ; WITH SEPERATE A-READ FOR DFDV) U 0132, 2055,4221,0017,4174,4007,0700,0010,0000,0000 ; 5694 =1**10 [T1]_0, CALL [CLRSN] ;CLEAR FLAG ; 5695 [BR]_[AR], SKIP AD.LE.0, ;SEE IF POSITIVE U 0133, 2030,3441,0305,1174,4007,0421,0000,0000,1441 ; 5696 AC[1] ;WARM UP RAM ; 5697 =0 ; 5698 DFDV1: [ARX]_(AC[1].AND.[MAG])*.5, ;POSITIVE--GET AC U 2030, 3243,4557,0004,1274,4007,0700,0000,0000,1441 ; 5699 J/DFDV2 ; AND CONTINUE BELOW U 2031, 3241,7441,1717,4174,4007,0700,0000,0000,0000 ; 5700 [T1]_.NOT.[T1] ;DV'SOR NEGATIVE (OR ZERO) U 3241, 3242,2441,0606,4174,4007,0700,4000,0000,0000 ; 5701 [BRX]_-[BRX] ;NEGATE LOW WORD ; 5702 AD/-B-.25, B/BR, DEST/AD, ;NEGATE HIGH WORD ; 5703 MULTI PREC/1, 3T, ;ADDING IN CRY02 ; 5704 SKIP DP0, AC[1], ;SEE IF STILL NEGATIVE U 3242, 2030,2331,0005,1174,4007,0521,0040,0000,1441 ; 5705 J/DFDV1 ; .. ; 5706 DFDV2: [AR]_AC*.5, ;GET AC AND SHIFT ; 5707 FE_SC-EXP, 3T, ;COMPUTE NEW EXPONENT U 3243, 2032,3777,0003,0274,4007,0521,1000,0030,2000 ; 5708 SKIP DP0 ;SEE IF NEGATIVE U 2032, 2034,5547,0303,4374,4007,0701,0000,0077,7400 ; 5709 =0 [AR]_+SIGN*.5, 3T, J/DFDV3 ;POSITIVE U 2033, 3244,7441,1717,4174,4007,0700,0000,0000,0000 ; 5710 [T1]_.NOT.[T1] ;NEGATIVE OR ZERO U 3244, 3245,3547,0303,4374,4007,0701,0000,0077,7400 ; 5711 [AR]_-SIGN*.5, 3T ;SIGN SMEAR U 3245, 3246,2442,0400,4174,4007,0700,4000,0000,0000 ; 5712 Q_-[ARX] ;NEGATE OPERAND ; 5713 [AR]_(-[AR]-.25)*.5 LONG, ;NEGATE HIGH WORD ; 5714 MULTI PREC/1, ;USE SAVED CARRY U 3246, 2035,2446,0303,4174,4047,0700,0040,0000,0000 ; 5715 ASHC, J/DFDV4 ;CONTINUE BELOW ; 5716 =0 ; 5717 DFDV3: Q_[ARX], ;COPY OPERAND U 2034, 3042,3442,0400,4174,4007,0700,0010,0000,0000 ; 5718 CALL [DDIVS] ;SHIFT OVER U 2035, 2036,2113,0305,4174,4007,0521,4000,0000,0000 ; 5719 DFDV4: [AR]-[BR], 3T, SKIP DP0 ;SEE IF OVERFLOW U 2036, 0555,4443,0000,4174,4467,0700,0000,0071,1000 ; 5720 =0 FL NO DIVIDE U 2037, 0724,3221,0004,4174,4007,0700,0000,0000,0000 ; 5721 [ARX]_Q ;START DIVISION U 0724, 1264,4222,0000,4174,4007,0700,2010,0071,0032 ; 5722 =0* Q_0, SC_26., CALL [DBLDIV] U 0726, 1054,3221,0016,4174,4007,0700,2000,0071,0043 ; 5723 [T0]_Q, SC_35. ; 5724 =0* Q_Q.AND.NOT.[MAG], ;SEE IF ODD ; 5725 SKIP AD.EQ.0, ;SKIP IF EVEN U 1054, 1264,5002,0000,4174,4007,0621,0010,0000,0000 ; 5726 CALL [DBLDIV] ;GO DIVIDE U 1056, 3247,3446,1200,4174,4007,0700,0000,0000,0000 ; 5727 Q_Q*.5 ;MOVE ANSWER OVER ; 5728 = ; 5729 [T0]_[T0]*2 LONG, ASHC, ;DO FIRST NORM STEP U 3247, 0513,3444,1616,4174,4046,2700,0000,0000,0000 ; 5730 MUL DISP ; SEE IF A 1 FELL OUT ; 5731 =1011 ; 5732 DFDV4A: READ [T1], SKIP DP0, ;SHOULD RESULT BE NEGATIVE ; 5733 FE_S#-FE, S#/202, ;CORRECT EXPONENT U 0513, 2040,3333,0017,4174,4007,0520,1000,0031,0202 ; 5734 J/DFDV4B ;LOOK BELOW U 0517, 0513,0222,0000,4174,4007,0700,4000,0000,0000 ; 5735 Q_Q+.25, J/DFDV4A ;PUT BACK THE BIT ; 5736 =0 U 2040, 0520,3441,1603,4174,4003,4701,0000,0000,0000 ; 5737 DFDV4B: [AR]_[T0], NORM DISP, J/DNORM ;PLUS U 2041, 0200,3441,1603,4174,4003,4701,0000,0000,0000 ; 5738 [AR]_[T0], NORM DISP, J/DNNORM ;MINUS ; 5739 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 155 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 5740 .TOC "FLOATING POINT -- DOUBLE PRECISION NORMALIZE" ; 5741 ; 5742 ;NORMALIZE AR!Q ; 5743 ;DNORM0: READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO ; 5744 ; FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS ; 5745 =0000 ; 5746 DNORM: [AR]_[AR]*2 LONG, ;SHIFT LEFT ; 5747 FE_FE-1, ASHC, ;ADJUST EXPONENT U 0520, 0520,3444,0303,4174,4043,4701,1000,0041,1777 ; 5748 NORM DISP, J/DNORM ;TRY AGAIN U 0521, 2044,4553,1300,4374,4007,0321,0000,0000,2000 ; 5749 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 5750 READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR U 0522, 0322,3333,0003,4174,4003,4701,0010,0000,0000 ; 5751 CALL [DROUND] ; AND ROUND ANSWER U 0523, 2044,4553,1300,4374,4007,0321,0000,0000,2000 ; 5752 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 5753 [AR]_[AR]*.5 LONG, ASHC, U 0524, 0322,3446,0303,4174,4047,0700,1010,0041,0001 ; 5754 FE_FE+1, CALL [DROUND] U 0525, 2044,4553,1300,4374,4007,0321,0000,0000,2000 ; 5755 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 5756 [AR]_[AR]*.5 LONG, ASHC, U 0526, 0322,3446,0303,4174,4047,0700,1010,0041,0001 ; 5757 FE_FE+1, CALL [DROUND] U 0527, 2044,4553,1300,4374,4007,0321,0000,0000,2000 ; 5758 TL [FLG], FLG.SN/1, J/DNEG ;RESULT IS NEGATIVE ; 5759 Q_[MAG].AND.Q, ;HIGH WORD IS ZERO U 0530, 3251,4002,0000,4174,0007,0700,0000,0000,0000 ; 5760 HOLD RIGHT, J/DNORM1 ;GO TEST LOW WORD U 0536, 3250,4221,0013,4174,4007,0700,0000,0000,0000 ; 5761 =1110 [FLG]_0 ;[122] CLEAR FLAG WORD ; 5762 = ; 5763 AC[1]_[ARX].AND.[MAG], ;STORE LOW WORD U 3250, 1515,4113,0400,1174,4007,0700,0400,0000,1441 ; 5764 J/STAC ;GO DO HIGH WORD ; 5765 ; 5766 U 3251, 2042,3223,0000,4174,4007,0621,0000,0000,0000 ; 5767 DNORM1: READ Q, SKIP AD.EQ.0 ;TEST LOW WORD ; 5768 =0 [AR]_[AR]*2 LONG, ;LOW WORD IS NON-ZERO ; 5769 FE_FE-1, ASHC, ;ADJUST EXPONENT U 2042, 0520,3444,0303,4174,4043,4701,1000,0041,1777 ; 5770 NORM DISP, J/DNORM ;KEEP LOOKING U 2043, 1515,3440,0303,1174,4007,0700,0400,0000,1441 ; 5771 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO ; 5772 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 156 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DOUBLE PRECISION NORMALIZE ; 5773 ;HERE TO NORMALIZE NEGATIVE D.P. RESULTS ; 5774 =0 U 2044, 3252,7222,0000,4174,4007,0700,0000,0000,0000 ; 5775 DNEG: Q_.NOT.Q, J/DNEG1 ;ONES COMP U 2045, 2046,2222,0000,4174,4007,0511,4000,0000,0000 ; 5776 Q_-Q, SKIP CRY2, J/DNEG2 U 3252, 2046,4221,0013,4174,4007,0700,0000,0000,0000 ; 5777 DNEG1: [FLG]_0 ; 5778 =0 ; 5779 DNEG2: [AR]_.NOT.[AR], ;NO CARRY U 2046, 0200,7441,0303,4174,4003,4701,0000,0000,0000 ; 5780 NORM DISP, J/DNNORM ;GO NORMALIZE ; 5781 [AR]_-[AR], ;CARRY U 2047, 0200,2441,0303,4174,4003,4701,4000,0000,0000 ; 5782 NORM DISP, J/DNNORM ;NORMALIZE ; 5783 ; 5784 =000* ; 5785 DNNORM: [AR]_[AR]*2 LONG, ;SHIFT 1 PLACE ; 5786 FE_FE-1, ASHC, ;ADJUST EXPONENT U 0200, 0200,3444,0303,4174,4043,4701,1000,0041,1777 ; 5787 NORM DISP, J/DNNORM ;LOOP TILL DONE ; 5788 =001* READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR U 0202, 0322,3333,0003,4174,4003,4701,0010,0000,0000 ; 5789 CALL [DROUND] ; AND ROUND ANSWER ; 5790 =010* [AR]_[AR]*.5 LONG, ASHC, U 0204, 0322,3446,0303,4174,4047,0700,1010,0041,0001 ; 5791 FE_FE+1, CALL [DROUND] ; 5792 =011* [AR]_[AR]*.5 LONG, ASHC, U 0206, 0322,3446,0303,4174,4047,0700,1010,0041,0001 ; 5793 FE_FE+1, CALL [DROUND] ; 5794 =100* Q_[MAG].AND.Q, ;HIGH WORD IS ZERO U 0210, 3255,4002,0000,4174,0007,0700,0000,0000,0000 ; 5795 HOLD RIGHT, J/DNNRM1 ;GO TEST LOW WORD U 0216, 0610,4111,1204,4174,4007,0700,0000,0000,0000 ; 5796 =111* [ARX]_[ARX].AND.[MASK] ;REMOVE ROUNDING BIT ; 5797 = ; 5798 =00 [ARX]_[ARX].AND.[MAG], ;ALSO CLEAR SIGN U 0610, 3256,4111,0004,4174,4007,0700,0010,0000,0000 ; 5799 CALL [CHKSN] ;ONES COMP? ; 5800 =10 [ARX]_[ARX].XOR.[MAG], ;YES--ONES COMP U 0612, 3253,6111,0004,4174,4007,0700,0000,0000,0000 ; 5801 J/DNN1 ;CONTINUE BELOW ; 5802 =11 [ARX]_-[ARX], 3T, ;NEGATE RESULT U 0613, 2050,2441,0404,4174,4007,0561,4000,0000,0000 ; 5803 SKIP CRY1, J/DNN2 ; 5804 = U 3253, 2050,4221,0013,4174,4007,0700,0000,0000,0000 ; 5805 DNN1: [FLG]_0 ;CLEAR FLAG ; 5806 =0 U 2050, 3254,7333,0003,0174,4007,0700,0400,0000,0000 ; 5807 DNN2: AC_.NOT.[AR], J/DNORM2 U 2051, 3254,2443,0300,0174,4007,0701,4400,0000,0000 ; 5808 AC_-[AR], 3T ; 5809 DNORM2: AC[1]_[ARX].AND.[MAG], ;STORE LOW WORD U 3254, 0100,4113,0400,1174,4156,4700,0400,0000,1441 ; 5810 NEXT INST ;ALL DONE ; 5811 U 3255, 2052,3223,0000,4174,4007,0621,0000,0000,0000 ; 5812 DNNRM1: READ Q, SKIP AD.EQ.0 ;TEST LOW WORD ; 5813 =0 [AR]_[AR]*2 LONG, ;LOW WORD IS NON-ZERO ; 5814 FE_FE-1, ASHC, ;ADJUST EXPONENT U 2052, 0200,3444,0303,4174,4043,4701,1000,0041,1777 ; 5815 NORM DISP, J/DNNORM ;KEEP LOOKING U 2053, 1515,3440,0303,1174,4007,0700,0400,0000,1441 ; 5816 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO ; 5817 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 157 ; FLT.MIC[7,3] 01:46 20-MAR-1981 FLOATING POINT -- DOUBLE PRECISION NORMALIZE U 3256, 0002,4553,1300,4374,4004,1321,0000,0000,2000 ; 5818 CHKSN: TL [FLG], FLG.SN/1, RETURN [2] ; 5819 ; 5820 ;SUBROUTINE TO SET/CLEAR FLG.SN ; 5821 ;CALL WITH: ; 5822 ; CALL [SETSN], SKIP IF WE SHOULD CLEAR ; 5823 ;RETURNS 23 ; 5824 =0 U 2054, 0023,3551,1313,4374,0004,1700,0000,0000,2000 ; 5825 SETSN: [FLG]_[FLG].OR.#, FLG.SN/1, HOLD RIGHT, RETURN [23] U 2055, 0023,5551,1313,4374,0004,1700,0000,0000,2000 ; 5826 CLRSN: [FLG]_[FLG].AND.NOT.#, FLG.SN/1, HOLD RIGHT, RETURN [23] ; 5827 ; 5828 ; 5829 ;SUBROUTINE TO ROUND A FLOATING POINT NUMBER ; 5830 ;CALL WITH: ; 5831 ; NUMBER IN AR!Q AND NORM DISP ; 5832 ;RETURNS 16 WITH ROUNDED NUMBER IN AR!ARX ; 5833 ; ; 5834 =*01* ; 5835 DROUND: [ARX]_(Q+1)*.5, ;ROUND AND SHIFT ; 5836 SKIP CRY2, ;SEE IF OVERFLOW U 0322, 0462,0007,0704,4174,4007,0511,0000,0000,0000 ; 5837 J/DRND1 ;COMPLETE ROUNDING ; 5838 [AR]_[AR]*.5 LONG, ;WE WENT TOO FAR U 0326, 0322,3446,0303,4174,4047,0700,1000,0041,0001 ; 5839 FE_FE+1, ASHC, J/DROUND ;SHIFT BACK AND ROUND ; 5840 =*010 U 0462, 0016,3770,0303,4324,0454,1700,0000,0041,0000 ; 5841 DRND1: [AR]_EXP, RETURN [16] ;NO OVERFLOW ; 5842 =011 [AR]_[AR]+.25, ;ADD CARRY (BITS 36 AND 37 ; 5843 ; ARE COPIES OF Q BITS) ; 5844 NORM DISP, ;SEE IF OVERFLOW U 0463, 0462,0441,0303,4174,4003,4701,4000,0000,0000 ; 5845 J/DRND1 ; .. ; 5846 =110 [AR]_[AR]*.5, ;SHIFT RIGHT ; 5847 FE_FE+1, ;KEEP EXP RIGHT U 0466, 0462,3447,0303,4174,4007,0700,1000,0041,0001 ; 5848 J/DRND1 ;ALL SET NOW ; 5849 = ; 5850 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 158 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- DISPATCH ROM ENTRIES ; 5851 .TOC "EXTEND -- DISPATCH ROM ENTRIES" ; 5852 ; 5853 .DCODE D 0001, 0001,1740,2100 ; 5854 001: I, SJCL, J/L-CMS D 0002, 0002,1740,2100 ; 5855 I, SJCE, J/L-CMS D 0003, 0003,1740,2100 ; 5856 I, SJCLE, J/L-CMS D 0004, 0002,1741,2100 ; 5857 I, B/2, J/L-EDIT D 0005, 0005,1740,2100 ; 5858 I, SJCGE, J/L-CMS D 0006, 0006,1740,2100 ; 5859 I, SJCN, J/L-CMS D 0007, 0007,1740,2100 ; 5860 I, SJCG, J/L-CMS ; 5861 D 0010, 0001,1742,2100 ; 5862 010: I, B/1, J/L-DBIN ;CVTDBO D 0011, 0004,1742,2100 ; 5863 I, B/4, J/L-DBIN ;CVTDBT D 0012, 0001,1743,2100 ; 5864 I, B/1, J/L-BDEC ;CVTBDO D 0013, 0000,1743,2100 ; 5865 I, B/0, J/L-BDEC ;CVTBDT ; 5866 D 0014, 0001,1744,2100 ; 5867 014: I, B/1, J/L-MVS ;MOVSO D 0015, 0000,1744,2100 ; 5868 I, B/0, J/L-MVS ;MOVST D 0016, 0002,1744,2100 ; 5869 I, B/2, J/L-MVS ;MOVSLJ D 0017, 0003,1744,2100 ; 5870 I, B/3, J/L-MVS ;MOVSRJ ; 5871 D 0020, 0000,1746,2100 ; 5872 020: I, J/L-XBLT ;XBLT D 0021, 0000,1747,2100 ; 5873 I, J/L-SPARE-A ;GSNGL D 0022, 0000,1750,2100 ; 5874 I, J/L-SPARE-B ;GDBLE D 0023, 0000,1751,2100 ; 5875 I, B/0, J/L-SPARE-C ;GDFIX D 0024, 0001,1751,2100 ; 5876 I, B/1, J/L-SPARE-C ;GFIX D 0025, 0002,1751,2100 ; 5877 I, B/2, J/L-SPARE-C ;GDFIXR D 0026, 0004,1751,2100 ; 5878 I, B/4, J/L-SPARE-C ;GFIXR D 0027, 0010,1751,2100 ; 5879 I, B/10, J/L-SPARE-C ;DGFLTR ; 5880 ;30: ;GFLTR ; 5881 ;GFSC ; 5882 .UCODE ; 5883 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 159 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- DISPATCH ROM ENTRIES ; 5884 1740: U 1740, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5885 L-CMS: LUUO ; 5886 1741: U 1741, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5887 L-EDIT: LUUO ; 5888 1742: U 1742, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5889 L-DBIN: LUUO ; 5890 1743: U 1743, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5891 L-BDEC: LUUO ; 5892 1744: U 1744, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5893 L-MVS: LUUO ; 5894 1746: U 1746, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5895 L-XBLT: LUUO ; 5896 1747: U 1747, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5897 L-SPARE-A: LUUO ; 5898 1750: U 1750, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5899 L-SPARE-B: LUUO ; 5900 1751: U 1751, 0400,4751,1203,4374,4007,0700,0000,0000,0040 ; 5901 L-SPARE-C: LUUO ; 5902 ; 5903 ;NOTE: WE DO NOT NEED TO RESERVE 3746 TO 3751 BECAUSE THE CODE ; 5904 ; AT EXTEND DOES A RANGE CHECK. ; 5905 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 160 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- INSTRUCTION SET DECODING ; 5906 .TOC "EXTEND -- INSTRUCTION SET DECODING" ; 5907 ; 5908 ;EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES ; 5909 ; 1740-1747 IF NOT UNDER EXTEND ; 5910 ; 3740-3747 IF UNDER EXTEND ; 5911 ; 5912 .DCODE D 0123, 0000,1467,3100 ; 5913 123: I,READ/1, J/EXTEND ; 5914 .UCODE ; 5915 ; 5916 1467: U 1467, 1062,3771,0005,4365,5007,0700,0200,0000,0002 ; 5917 EXTEND: MEM READ, [BR]_MEM ;FETCH INSTRUCTION ; 5918 =0** TL [BR], #/760740, ;IN RANGE 0-17 (AND AC#=0) U 1062, 3556,4553,0500,4374,4007,0321,0010,0076,0740 ; 5919 CALL [BITCHK] ;TRAP IF NON-ZERO BITS FOUND ; 5920 [BRX]_[HR].AND.# CLR RH, ;SPLIT OUT AC NUMBER U 1066, 3257,4521,0206,4374,4007,0700,0000,0000,0740 ; 5921 #/000740 ; FROM EXTEND INSTRUCTION ; 5922 [BR]_[BR].OR.[BRX], ;LOAD IR AND AC # U 3257, 3260,3111,0605,4174,0417,0700,0000,0000,0000 ; 5923 HOLD RIGHT, LOAD IR ; .. ; 5924 READ [BR], LOAD BYTE EA, ;LOAD XR # U 3260, 3261,3333,0005,4174,4217,0700,0000,0000,0500 ; 5925 J/EXTEA0 ;COMPUTE E1 ; 5926 U 3261, 3262,3333,0003,7174,4007,0700,0400,0000,0240 ; 5927 EXTEA0: WORK[E0]_[AR] U 3262, 0170,4443,0000,2174,4006,6700,0000,0000,0000 ; 5928 EXTEA1: EA MODE DISP ; 5929 =100* U 0170, 0172,0551,0505,2270,4007,0700,0000,0000,0000 ; 5930 EXTEA: [BR]_[BR]+XR ; 5931 EXTDSP: [BR]_EA FROM [BR], LOAD VMA, U 0172, 0556,5741,0505,4174,4003,7700,0200,0000,0010 ; 5932 B DISP, J/EXTEXT U 0174, 3263,0551,0505,2270,4007,0700,0200,0004,0512 ; 5933 [BR]_[BR]+XR, START READ, PXCT EXTEND EA, LOAD VMA, J/EXTIND U 0176, 3263,3443,0500,4174,4007,0700,0200,0004,0512 ; 5934 VMA_[BR], START READ, PXCT EXTEND EA ; 5935 U 3263, 3262,3771,0005,4361,5217,0700,0200,0000,0502 ; 5936 EXTIND: MEM READ, [BR]_MEM, HOLD LEFT, LOAD BYTE EA, J/EXTEA1 ; 5937 ; 5938 ;HERE TO EXTEND SIGN FOR OFFSET MODES ; 5939 =1110 ; 5940 EXTEXT: WORK[E1]_[BR], ;SAVE E1 U 0556, 3400,3333,0005,7174,4001,2700,0400,0000,0241 ; 5941 DISP/DROM, J/3400 ;GO TO EXTENDED EXECUTE CODE U 0557, 2056,3333,0005,4174,4007,0530,0000,0000,0000 ; 5942 READ [BR], SKIP DP18 ;NEED TO EXTEND SIGN ; 5943 =0 WORK[E1]_[BR], ;POSITIVE U 2056, 3400,3333,0005,7174,4001,2700,0400,0000,0241 ; 5944 DISP/DROM, J/3400 ; 5945 [BR]_#, #/777777, HOLD RIGHT, ;NEGATIVE U 2057, 0556,3771,0005,4374,0007,0700,0000,0077,7777 ; 5946 J/EXTEXT ; 5947 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 161 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- MOVE STRING -- SETUP ; 5948 .TOC "EXTEND -- MOVE STRING -- SETUP" ; 5949 ; 5950 ;HERE TO MOVE A STRING ; 5951 ;COME HERE WITH: ; 5952 ; AR/ E0 ; 5953 ; BR/ E1 ; 5954 ; ; 5955 3744: ; 5956 MVS: [AR]_[AR]+1, ;GO FETCH FILL ; 5957 LOAD VMA, ; BYTE ; 5958 START READ, ; .. U 3744, 3456,0111,0703,4174,4007,0700,0210,0004,0012 ; 5959 CALL [GTFILL] ;SUBROUTINE TO COMPLETE U 3754, 2060,3771,0005,1276,6007,0701,0000,0000,1443 ; 5960 3754: [BR]_AC[DLEN] ;GET DEST LENGTH AND FLAGS ; 5961 =0** TL [BR], #/777000, ;ANY FLAGS SET? U 2060, 3556,4553,0500,4374,4007,0321,0010,0077,7000 ; 5962 CALL [BITCHK] ;SEE IF ILLEGAL U 2064, 2062,3771,0003,0276,6007,0700,0000,0000,0000 ; 5963 [AR]_AC ;GET SRC LENGTH AND FLAGS ; 5964 =0 [BRX]_[AR].AND.# CLR RH, ;COPY FLAGS TO BRX ; 5965 #/777000, ; .. U 2062, 3460,4521,0306,4374,4007,0700,0010,0077,7000 ; 5966 CALL [CLRFLG] ;CLEAR FLAGS IN AR ; 5967 ;NEW DLEN IS - ; 5968 AC[DLEN]_[AR]-[BR], 3T, ;COMPUTE DIFFERENCE U 2063, 2066,2113,0305,1174,4007,0521,4400,0000,1443 ; 5969 SKIP DP0 ;WHICH IS SHORTER? ; 5970 =0 [AR]_.NOT.[BR], ;DESTINATION U 2066, 3264,7441,0503,4174,4007,0700,0000,0000,0000 ; 5971 J/MVS1 ;GET NEGATIVE LENGTH U 2067, 3264,7441,0303,4174,4007,0700,0000,0000,0000 ; 5972 [AR]_.NOT.[AR] ;SOURCE ; 5973 MVS1: WORK[SLEN]_[AR], ; .. U 3264, 0574,3333,0003,7174,4003,7700,0400,0000,0242 ; 5974 B DISP ;SEE WHAT TYPE OF MOVE ; 5975 ;SLEN NOW HAS --1 ; 5976 =1100 U 0574, 0500,3771,0013,4370,4007,0700,0000,0000,0003 ; 5977 STATE_[SRC], J/MOVELP ;TRANSLATE--ALL SET U 0575, 3265,3771,0005,1276,6007,0701,0000,0000,1444 ; 5978 [BR]_AC[DSTP], J/MVSO ;OFFSET BUILD MASK ; 5979 [ARX]_[AR], ;LEFT JUSTIFY U 0576, 3305,3441,0304,4174,4007,0700,0000,0000,0000 ; 5980 J/MOVST0 ; .. ; 5981 [ARX]_AC[DLEN], ;RIGHT JUSTIFY ; 5982 SKIP DP0, 4T, ;WHICH IS SHORTER? U 0577, 0630,3771,0004,1276,6007,0522,0000,0000,1443 ; 5983 J/MOVRJ ; 5984 U 3265, 3266,3333,0005,4174,4007,0700,1000,0041,6020 ; 5985 MVSO: READ [BR], FE_S+2 ;GET DST BYTE SIZE U 3266, 2070,4222,0000,4174,4006,7701,1000,0041,1770 ; 5986 Q_0, BYTE STEP ;BUILD AN S BIT MASK ; 5987 =0* U 2070, 2070,4224,0003,4174,4026,7701,1000,0041,1770 ; 5988 MVSO1: GEN MSK [AR], BYTE STEP, J/MVSO1 U 2072, 3267,7221,0003,4174,4007,0700,0000,0000,0000 ; 5989 [AR]_.NOT.Q ;BITS WHICH MUST NOT BE SET ; 5990 WORK[MSK]_[AR].AND.[MASK], ;SAVE FOR SRCMOD U 3267, 0507,4113,0312,7174,4007,0700,0400,0000,0243 ; 5991 J/MOVLP0 ;GO ENTER LOOP ; 5992 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 162 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- MOVE STRING -- OFFSET/TRANSLATE ; 5993 .TOC "EXTEND -- MOVE STRING -- OFFSET/TRANSLATE" ; 5994 ; 5995 ;HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES ; 5996 =000 ; 5997 MOVELP: [AR]_WORK[SLEN]+1, ;UPDATE STRING LENGTH U 0500, 1074,0551,0703,7274,4007,0701,0010,0000,0242 ; 5998 CALL [SRCMOD] ;GET A SOURCE BYTE ; 5999 =001 [ARX]_[AR], SKIP DP0, ;(1) LENGTH EXHAUSTED U 0501, 0750,3441,0304,4174,4007,0520,0000,0000,0000 ; 6000 J/MOVST2 ; SEE IF FILL IS NEEDED ; 6001 =100 [AR]_-WORK[SLEN], ;(4) ABORT U 0504, 3270,1771,0003,7274,4007,0701,4000,0000,0242 ; 6002 J/MVABT ; .. ; 6003 STATE_[SRC+DST], ;(5) NORMAL--STORE DST BYTE U 0505, 3450,3771,0013,4370,4007,0700,0010,0000,0005 ; 6004 CALL [PUTDST] ; .. ; 6005 =111 U 0507, 0500,3771,0013,4370,4007,0700,0000,0000,0003 ; 6006 MOVLP0: STATE_[SRC], J/MOVELP ;(7) DPB DONE ; 6007 = ; 6008 ; 6009 ;HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE ; 6010 ; 6011 MVABT: [BR]_AC[DLEN], ;WHICH STRING IS LONGER U 3270, 2074,3771,0005,1276,6007,0522,0000,0000,1443 ; 6012 SKIP DP0, 4T ; 6013 =0 U 2074, 3271,3440,0303,1174,4007,0700,0400,0000,1443 ; 6014 MVABT1: AC[DLEN]_[AR], J/MVABT2 ;PUT AWAY DEST LEN ; 6015 [AR]_[AR]-[BR], ;DEST LEN WAS GREATER U 2075, 2074,1111,0503,4174,4007,0700,4000,0000,0000 ; 6016 J/MVABT1 ;STICK BACK IN AC ; 6017 U 3271, 3272,7771,0003,7274,4007,0701,0000,0000,0242 ; 6018 MVABT2: [AR]_.NOT.WORK[SLEN] ;GET UNDECREMENTED SLEN U 3272, 2076,3333,0005,4174,4007,0520,0000,0000,0000 ; 6019 READ [BR], SKIP DP0 ;NEED TO FIXUP SRC? U 2076, 2077,0111,0503,4174,4007,0700,0000,0000,0000 ; 6020 =0 [AR]_[AR]+[BR] ;SRC LONGER BY (DLEN) U 2077, 3273,3111,0603,4174,4007,0700,0000,0000,0000 ; 6021 MVEND: [AR]_[AR].OR.[BRX] ;PUT BACK SRC FLAGS U 3273, 1515,4221,0013,4170,4007,0700,0000,0000,0000 ; 6022 END STATE, J/STAC ;ALL DONE ; 6023 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 163 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- MOVE STRING -- MOVSRJ ; 6024 .TOC "EXTEND -- MOVE STRING -- MOVSRJ" ; 6025 ; 6026 =00 U 0630, 3274,3771,0003,1276,6007,0701,0000,0000,1441 ; 6027 MOVRJ: [AR]_AC[SRCP], J/MVSKP ;SRC LONGER, SKIP OVER SOME ; 6028 STATE_[DSTF], ;DST LONGER, FILL IT U 0631, 2263,3771,0013,4370,4007,0700,0010,0000,0006 ; 6029 CALL [MOVFIL] ; .. ; 6030 =11 [ARX]_WORK[SLEN]+1, ;DONE FILLING U 0633, 3306,0551,0704,7274,4007,0701,0000,0000,0242 ; 6031 J/MOVST1 ;GO MOVE STRING ; 6032 ; 6033 ;HERE TO SKIP OVER EXTRA SOURCE BYTES U 3274, 2100,3440,0303,1174,4007,0670,0400,0000,1441 ; 6034 MVSKP: AC[SRCP]_[AR], SKIP -1MS ;[121] Is there a timer interrupt? U 2100, 3277,3333,0003,7174,4007,0700,0400,0000,0211 ; 6035 =0 WORK[SV.AR]_[AR], J/MVSK2 ;[121][123] Yes, save regs for interrupt. ; 6036 [ARX]_[ARX]-1, 3T, ;DONE SKIPPING? U 2101, 2102,1111,0704,4174,4007,0521,4000,0000,0000 ; 6037 SKIP DP0 ; 6038 =0 IBP DP, IBP SCAD, ;NO--START THE IBP ; 6039 SCAD DISP, SKIP IRPT, ;4-WAY DISPATCH U 2102, 0650,3770,0305,4334,4016,7371,0000,0033,6000 ; 6040 3T, J/MVSKP1 ;GO BUMP POINTER ; 6041 AC[DLEN]_0, ;LENGTHS ARE NOW EQUAL U 2103, 0546,4223,0000,1174,4007,0700,0400,0000,1443 ; 6042 J/MOVST4 ;GO MOVE STRING ; 6043 ; 6044 =00 U 0650, 3274,3441,0503,4174,4007,0700,0000,0000,0000 ; 6045 MVSKP1: [AR]_[BR], J/MVSKP ;NO OVERFLOW ; 6046 [AR]_.NOT.WORK[SLEN], ;INTERRUPT U 0651, 3275,7771,0003,7274,4007,0701,0000,0000,0242 ; 6047 J/MVSK3 ; .. ; 6048 SET P TO 36-S, ;WORD OVERFLOW U 0652, 3276,3770,0503,4334,4017,0700,0000,0032,6000 ; 6049 J/MVSKP2 ;FIXUP Y U 0653, 3275,7771,0003,7274,4007,0701,0000,0000,0242 ; 6050 [AR]_.NOT.WORK[SLEN] ;[121] INTERRUPT or timer. U 3275, 2104,3440,0303,1174,4007,0700,0400,0000,1443 ; 6051 MVSK3: AC[DLEN]_[AR] ;RESET DLEN ; 6052 =0 [AR]_[AR]+[ARX], U 2104, 3664,0111,0403,4174,4007,0700,0010,0000,0000 ; 6053 CALL [INCAR] ;ADD 1 TO AR ; 6054 AC_[AR].OR.[BRX], ;PUT BACK FLAGS U 2105, 3720,3113,0306,0174,4007,0700,0400,0000,0000 ; 6055 J/ITRAP ;DO INTERRUPT TRAP ; 6056 ; 6057 MVSKP2: [AR]_[AR]+1, HOLD LEFT, ;BUMP Y U 3276, 3274,0111,0703,4170,4007,0700,0000,0000,0000 ; 6058 J/MVSKP ;KEEP GOING ; 6059 ; 6060 ;BEGIN EDIT [123] U 3277, 3300,3333,0005,7174,4007,0700,0400,0000,0213 ; 6061 MVSK2: WORK[SV.BR]_[BR] ;SAVE ALL U 3300, 3301,3333,0004,7174,4007,0700,0400,0000,0212 ; 6062 WORK[SV.ARX]_[ARX] ;THE REGISTERS U 3301, 2071,3333,0006,7174,4007,0700,0400,0000,0214 ; 6063 WORK[SV.BRX]_[BRX] ;FOR THE TICK U 2071, 3560,4443,0000,4174,4007,0700,0010,0000,0000 ; 6064 =0* CALL [TICK] ;UPDATE CLOCK AND SET INTERUPT U 2073, 3302,3771,0003,7274,4007,0701,0000,0000,0211 ; 6065 [AR]_WORK[SV.AR] ;NOW PUT U 3302, 3303,3771,0005,7274,4007,0701,0000,0000,0213 ; 6066 [BR]_WORK[SV.BR] ;THEM ALL U 3303, 3304,3771,0004,7274,4007,0701,0000,0000,0212 ; 6067 [ARX]_WORK[SV.ARX] ;BACK SO WE ; 6068 [BRX]_WORK[SV.BRX], ;CAN CONTINUE U 3304, 3274,3771,0006,7274,4007,0701,0000,0000,0214 ; 6069 J/MVSKP ; 6070 ;END EDIT [123] ; 6071 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 164 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP ; 6072 .TOC "EXTEND -- MOVE STRING -- SIMPLE MOVE LOOP" ; 6073 ; 6074 ;HERE FOR NO-MODIFICATION STRING MOVES U 3305, 3306,0111,0704,4174,4007,0700,0000,0000,0000 ; 6075 MOVST0: [ARX]_[ARX]+1 ;CANT DO [ARX]_[AR]+1 U 3306, 0540,3771,0013,4370,4007,0700,0000,0000,0003 ; 6076 MOVST1: STATE_[SRC] ;PREPARE FOR PAGE FAIL ; 6077 =000 ; 6078 WORK[SLEN]_[ARX], ;GO GET A SOURCE BYTE U 0540, 2274,3333,0004,7174,4007,0520,0410,0000,0242 ; 6079 SKIP DP0, CALL [GSRC] ; .. ; 6080 MOVSTX: [ARX]_[AR], ;SHORT STRING RAN OUT U 0541, 0750,3441,0304,4174,4007,0520,0000,0000,0000 ; 6081 SKIP DP0, J/MOVST2 ;GO SEE IF FILL NEEDED ; 6082 =010 STATE_[SRC+DST], ;WILL NEED TO BACK UP BOTH POINTERS U 0542, 3450,3771,0013,4370,4007,0700,0010,0000,0005 ; 6083 CALL [PUTDST] ;STORE BYTE ; 6084 =110 ; 6085 MOVST4: [ARX]_WORK[SLEN]+1, ;COUNT DOWN LENGTH U 0546, 3306,0551,0704,7274,4007,0701,0000,0000,0242 ; 6086 J/MOVST1 ;LOOP OVER STRING ; 6087 = ; 6088 =00 U 0750, 3307,4223,0000,1174,4007,0700,0400,0000,1443 ; 6089 MOVST2: AC[DLEN]_0, J/MOVST3 ;CLEAR DEST LEN, REBUILD SRC U 0751, 2263,3771,0013,4370,4007,0700,0010,0000,0004 ; 6090 STATE_[DST], CALL [MOVFIL] ;FILL OUT DEST U 0753, 2147,3440,0606,0174,4007,0700,0400,0000,0000 ; 6091 =11 AC_[BRX], J/ENDSKP ;ALL DONE ; 6092 U 3307, 3310,3113,0406,0174,4007,0700,0400,0000,0000 ; 6093 MOVST3: AC_[ARX].OR.[BRX] ;REBUILD SRC U 3310, 0252,4221,0013,4170,4007,0700,0000,0000,0000 ; 6094 END STATE, J/SKIPE ; .. ; 6095 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 165 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- COMPARE STRING ; 6096 .TOC "EXTEND -- COMPARE STRING" ; 6097 ; 6098 3740: U 3740, 2061,3771,0004,1276,6007,0701,0000,0000,1443 ; 6099 CMS: [ARX]_AC[DLEN] ;GET DEST LEN U 2061, 3556,4553,0400,4374,4007,0321,0010,0077,7000 ; 6100 =0** TL [ARX], #/777000, CALL [BITCHK] U 2065, 2110,3771,0006,0276,6007,0700,0000,0000,0000 ; 6101 [BRX]_AC ;GET SRC LEN U 2110, 3556,4553,0600,4374,4007,0321,0010,0077,7000 ; 6102 =0** TL [BRX], #/777000, CALL [BITCHK] U 2114, 2106,2113,0604,4174,4007,0521,4000,0000,0000 ; 6103 [BRX]-[ARX], 3T, SKIP DP0 ;WHICH STRING IS LONGER? U 2106, 2107,0111,0703,4174,4007,0700,0000,0000,0000 ; 6104 =0 [AR]_[AR]+1 ;SRC STRING IS LONGER U 2107, 2112,0111,0703,4170,4007,0700,0200,0004,0012 ; 6105 VMA_[AR]+1, START READ ;DST STRING ; 6106 =0 [AR]_0, ;FORCE FIRST COMPARE TO BE ; 6107 ;EQUAL U 2112, 3662,4221,0003,4174,4007,0700,0010,0000,0000 ; 6108 CALL [LOADQ] ;PUT FILL INTO Q ; 6109 WORK[FILL]_Q, ;SAVE FILLER U 2113, 3320,3223,0000,7174,4007,0700,0400,0000,0244 ; 6110 J/CMS2 ;ENTER LOOP ; 6111 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 166 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- COMPARE STRING ; 6112 ;HERE IS THE COMPARE LOOP. ; 6113 ; ARX/ CONATINS REMAINING DEST LENGTH ; 6114 ; BRX/ CONTAINS REMAINING SOURCE LENGTH ; 6115 =0 ; 6116 CMS3: ;BYTES ARE NOT EQUAL ; 6117 END STATE, ;NO MORE SPECIAL PAGE FAIL ACTION U 2116, 0250,4221,0013,4170,4003,7700,0000,0000,0000 ; 6118 SKIP-COMP DISP ;SEE SKIP-COMP-TABLE U 2117, 3311,3771,0003,1276,6007,0701,0000,0000,1441 ; 6119 CMS4: [AR]_AC[SRCP] ;GET BYTE POINTER U 3311, 1020,3333,0006,4174,4007,0520,0000,0000,0000 ; 6120 READ [BRX], SKIP DP0 ;MORE IN SOURCE STRING? ; 6121 =00 STATE_[EDIT-SRC], ;PREPARE FOR PAGE FAIL U 1020, 2275,3771,0013,4370,4007,0700,0010,0000,0011 ; 6122 CALL [GETSRC] ; GO GET BYTE ; 6123 READ [ARX], SKIP DP0, ;NO MORE SRC--SEE IF MORE DEST U 1021, 2120,3333,0004,4174,4007,0520,0000,0000,0000 ; 6124 J/CMS5 ; .. U 1022, 3312,3333,0003,7174,4007,0700,0400,0000,0245 ; 6125 WORK[CMS]_[AR] ;SAVE SRC BYTE ; 6126 = U 3312, 3313,3440,0606,0174,4007,0700,0400,0000,0000 ; 6127 AC_[BRX] ;PUT BACK SRC LEN U 3313, 3314,3771,0013,4370,4007,0700,0000,0000,0010 ; 6128 STATE_[COMP-DST] ;HAVE TO BACK UP IF DST FAILS U 3314, 1030,3333,0004,4174,4007,0520,0000,0000,0000 ; 6129 READ [ARX], SKIP DP0 ;ANY MORE DEST? ; 6130 =00 U 1030, 2122,4443,0000,4174,4007,0700,0010,0000,0000 ; 6131 CMS6: CALL [CMPDST] ;MORE DEST BYTES ; 6132 [AR]_WORK[FILL], ;OUT OF DEST BYTES U 1031, 3315,3771,0003,7274,4007,0701,0000,0000,0244 ; 6133 J/CMS7 ;GO DO COMPARE U 1032, 3315,3440,0404,1174,4007,0700,0400,0000,1443 ; 6134 AC[DLEN]_[ARX] ;GOT A BYTE, UPDATE LENGTH ; 6135 = ; 6136 CMS7: [AR]_[AR].AND.[MASK], ;MAKE MAGNITUDES U 3315, 3316,4111,1203,7174,4007,0700,0000,0000,0245 ; 6137 WORK[CMS] ;WARM UP RAM U 3316, 3317,4551,1205,7274,4007,0700,0000,0000,0245 ; 6138 [BR]_[MASK].AND.WORK[CMS], 2T ;GET SRC MAGNITUDE U 3317, 3320,2111,0503,4174,4007,0700,4000,0000,0000 ; 6139 [AR]_[BR]-[AR] REV ;UNSIGNED COMPARE U 3320, 3321,1111,0704,4174,4007,0700,4000,0000,0000 ; 6140 CMS2: [ARX]_[ARX]-1 ;UPDATE LENGTHS U 3321, 3322,1111,0706,4174,4007,0700,4000,0000,0000 ; 6141 [BRX]_[BRX]-1 ; .. U 3322, 2116,3333,0003,4174,4007,0621,0000,0000,0000 ; 6142 READ [AR], SKIP AD.EQ.0, J/CMS3 ;SEE IF EQUAL ; 6143 ; 6144 =0 U 2120, 3323,3772,0000,7274,4007,0701,0000,0000,0244 ; 6145 CMS5: Q_WORK[FILL], J/CMS8 ;MORE DST--GET SRC FILL U 2121, 2116,4221,0003,4174,4007,0700,0000,0000,0000 ; 6146 [AR]_0, J/CMS3 ;STRINGS ARE EQUAL U 3323, 3324,3771,0013,4370,4007,0700,0000,0000,0012 ; 6147 CMS8: STATE_[EDIT-DST] ;JUST DST POINTER ON PAGE FAIL U 3324, 1030,3223,0000,7174,4007,0700,0400,0000,0245 ; 6148 WORK[CMS]_Q, J/CMS6 ;MORE DST--SAVE SRC FILL ; 6149 ; 6150 =0 ; 6151 CMPDST: [AR]_AC[DSTP], ;GET DEST POINTER U 2122, 3451,3771,0003,1276,6007,0701,0010,0000,1444 ; 6152 CALL [IDST] ;UPDATE IT ; 6153 READ [AR], ;LOOK AT BYTE POINTER ; 6154 FE_FE.AND.S#, S#/0770, ;MASK OUT BIT 6 U 2123, 0340,3333,0003,4174,4006,5701,1000,0051,0770 ; 6155 BYTE DISP, J/LDB1 ;GO LOAD BYTE ; 6156 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 167 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6157 .TOC "EXTEND -- DECIMAL TO BINARY CONVERSION" ; 6158 ; 6159 3742: U 3742, 3325,4571,1203,4374,4007,0700,0000,0077,7777 ; 6160 DBIN: [AR]_[777777] XWD 0 ;IF WE ARE IN OFFSET MODE U 3325, 3326,3333,0003,7174,4007,0700,0400,0000,0243 ; 6161 WORK[MSK]_[AR] ; ONLY ALLOW 18 BITS ; 6162 ;RANGE CHECKED (0-10) LATER U 3326, 3327,3771,0003,0276,6007,0700,0000,0000,0000 ; 6163 [AR]_AC ;GET SRC LENGTH ; 6164 [BRX]_[AR].AND.# CLR RH, ;SPLIT OUT FLAGS U 3327, 2124,4521,0306,4374,4007,0700,0000,0077,7000 ; 6165 #/777000 ; .. ; 6166 =0* [ARX]_AC[BIN1], ;GET LOW WORD U 2124, 2220,3771,0004,1276,6007,0701,0010,0000,1444 ; 6167 CALL [CLARX0] ;CLEAR BIT 0 OF ARX U 2126, 2130,3440,0404,1174,4007,0700,0400,0000,1444 ; 6168 AC[BIN1]_[ARX] ;STORE BACK ; 6169 =0 READ [BRX], SKIP DP0, ;IS S ALREADY SET? U 2130, 2154,3333,0006,4174,4007,0520,0010,0000,0000 ; 6170 CALL [CLRBIN] ;GO CLEAR BIN IF NOT ; 6171 [AR]_[AR].AND.#, ;CLEAR FLAGS FROM LENGTH ; 6172 #/000777, HOLD RIGHT, ; .. U 2131, 0616,4551,0303,4374,0003,7700,0000,0000,0777 ; 6173 B DISP ;SEE IF OFFSET OR TRANSLATE ; 6174 =1110 U 0616, 3330,3771,0013,4370,4007,0700,0000,0000,0007 ; 6175 DBIN1: STATE_[CVTDB], J/DBIN2 ;TRANSLATE--LEAVE S ALONE ; 6176 [BRX]_[BRX].OR.#, ;OFFSET--FORCE S TO 1 ; 6177 #/400000, HOLD RIGHT, U 0617, 0616,3551,0606,4374,0007,0700,0000,0040,0000 ; 6178 J/DBIN1 U 3330, 0460,7333,0003,7174,4007,0700,0400,0000,0242 ; 6179 DBIN2: WORK[SLEN]_.NOT.[AR] ;STORE -SLEN-1 ; 6180 ; 6181 ;HERE IS THE MAIN LOOP ; 6182 =0*0 U 0460, 1074,0551,0703,7274,4007,0701,0010,0000,0242 ; 6183 DBINLP: [AR]_WORK[SLEN]+1, CALL [SRCMOD] ;(0) GET MODIFIED SRC BYTE ; 6184 TL [BRX], #/100000, ;(1) DONE, IS M SET? U 0461, 2142,4553,0600,4374,4007,0321,0000,0010,0000 ; 6185 J/DBXIT ; 6186 [AR]_.NOT.WORK[SLEN], ;(4) ABORT U 0464, 3335,7771,0003,7274,4007,0701,0000,0000,0242 ; 6187 J/DBABT ; .. ; 6188 [AR]-#, #/10., ;(5) NORMAL--SEE IF 0-9 U 0465, 2132,1553,0300,4374,4007,0532,4000,0000,0012 ; 6189 4T, SKIP DP18 ; .. ; 6190 =0 [AR]_.NOT.WORK[SLEN], ;DIGIT TOO BIG U 2132, 3335,7771,0003,7274,4007,0701,0000,0000,0242 ; 6191 J/DBABT ;GO ABORT CVT ; 6192 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 168 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6193 ;HERE TO ADD IN A DIGIT ; 6194 [BR]_AC[BIN0], 4T, ;GET HIGH BINARY U 2133, 1050,3771,0005,1276,6007,0622,0000,0000,1443 ; 6195 SKIP AD.EQ.0 ;SEE IF SMALL ; 6196 =00 ; 6197 DBSLO: [ARX]_AC[BIN1], ;TOO BIG U 1050, 0560,3771,0004,1276,6007,0701,0010,0000,1444 ; 6198 CALL [DBSLOW] ;GO USE DOUBLE PRECISION PATHS ; 6199 [BR]_AC[BIN1], ;GET LOW WORD U 1051, 3331,3771,0005,1276,6007,0701,0000,0000,1444 ; 6200 J/DBFAST ;MIGHT FIT IN 1 WORD U 1052, 0460,4443,0000,4174,4007,0700,0000,0000,0000 ; 6201 J/DBINLP ;RETURN FROM DBSLOW ; 6202 ;GO DO NEXT DIGIT ; 6203 = U 3331, 2134,4553,0500,4374,4007,0321,0000,0076,0000 ; 6204 DBFAST: TL [BR], #/760000 ;WILL RESULT FIT IN 36 BITS? U 2134, 1050,4443,0000,4174,4007,0700,0000,0000,0000 ; 6205 =0 J/DBSLO ;MAY NOT FIT--USE DOUBLE WORD U 2135, 3332,3775,0005,1276,6007,0701,0000,0000,1444 ; 6206 [BR]_AC[BIN1]*2 ;COMPUTE AC*2 U 3332, 2136,3445,0505,1174,4007,0700,0000,0000,1444 ; 6207 [BR]_[BR]*2, AC[BIN1] ;COMPUTE AC*4 ; 6208 =0 [BR]_[BR]+AC[BIN1], 2T, ;COMPUTE AC*5 U 2136, 3665,0551,0505,1274,4007,0700,0010,0000,1444 ; 6209 CALL [SBRL] ;COMPUTE AC*10 ; 6210 AC[BIN1]_[AR]+[BR], 3T, ;NEW BINARY RESULT U 2137, 0460,0113,0305,1174,4007,0701,0400,0000,1444 ; 6211 J/DBINLP ;DO NEXT DIGIT ; 6212 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 169 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6213 ;HERE IF NUMBER DOES NOT FIT IN ONE WORD ; 6214 ; 6215 =000 ; 6216 DBSLOW: [BR]_AC[BIN0], ;FETCH HIGH WORD U 0560, 0620,3771,0005,1276,6007,0701,0010,0000,1443 ; 6217 CALL [MULBY4] ;MULTIPLY BY 4 ; 6218 [ARX]_[ARX]+AC[BIN1], ;COMPUTE VALUE * 5 ; 6219 SKIP CRY1, 4T, ;SEE IF OVERFLOW U 0561, 2140,0551,0404,1274,4007,0562,0010,0000,1444 ; 6220 CALL [ADDCRY] ;GO ADD CARRY U 0565, 0600,0551,0505,1274,4007,0701,0000,0000,1443 ; 6221 =101 [BR]_[BR]+AC[BIN0] ;ADD IN HIGH WORD ; 6222 = U 0600, 0621,4443,0000,4174,4007,0700,0010,0000,0000 ; 6223 =000 CALL [DBLDBL] ;MAKE * 10 ; 6224 [ARX]_[ARX]+[AR], 3T, ;ADD IN NEW DIGIT ; 6225 SKIP CRY1, ;SEE IF OVERFLOW U 0601, 2140,0111,0304,4174,4007,0561,0010,0000,0000 ; 6226 CALL [ADDCRY] ;ADD IN THE CARRY U 0605, 3333,3440,0404,1174,4007,0700,0400,0000,1444 ; 6227 =101 AC[BIN1]_[ARX] ;PUT BACK ANSWER ; 6228 = ; 6229 AC[BIN0]_[BR], ; .. U 3333, 0002,3440,0505,1174,4004,1700,0400,0000,1443 ; 6230 RETURN [2] ;GO DO NEXT BYTE ; 6231 ; 6232 ;HERE TO DOUBLE BR!ARX ; 6233 =000 U 0620, 0621,4443,0000,4174,4007,0700,0010,0000,0000 ; 6234 MULBY4: CALL [DBLDBL] ;DOUBLE TWICE U 0621, 0622,0111,0505,4174,4007,0700,0000,0000,0000 ; 6235 DBLDBL: [BR]_[BR]+[BR] ;DOUBLE HIGH WORD FIRST ; 6236 ;(SO WE DON'T DOUBLE CARRY) ; 6237 [ARX]_[ARX]+[ARX], ;DOUBLE LOW WORD ; 6238 SKIP CRY1, 3T, ;SEE IF CARRY U 0622, 2140,0111,0404,4174,4007,0561,0010,0000,0000 ; 6239 CALL [ADDCRY] ;ADD IN CARRY U 0626, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 6240 =110 RETURN [1] ;ALL DONE ; 6241 = ; 6242 ; 6243 ;HERE TO ADD THE CARRY ; 6244 =0 U 2140, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 6245 ADDCRY: RETURN [4] ;NO CARRY U 2141, 3334,4551,0404,4374,0007,0700,0000,0037,7777 ; 6246 CLEAR [ARX]0 ;KEEP LOW WORD POSITIVE ; 6247 [BR]_[BR]+1, ;ADD CARRY U 3334, 0004,0111,0705,4174,4004,1700,0000,0000,0000 ; 6248 RETURN [4] ;ALL DONE ; 6249 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 170 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- DECIMAL TO BINARY CONVERSION ; 6250 ;HERE TO ABORT CONVERSION U 3335, 3336,3111,0306,4174,4007,0700,0000,0000,0000 ; 6251 DBABT: [BRX]_[BRX].OR.[AR] ;PUT BACK UNUSED LENGTH ; 6252 [PC]_[PC]-1, HOLD LEFT, ;DO NOT SKIP U 3336, 2143,1111,0701,4170,4007,0700,4000,0000,0000 ; 6253 J/DBDONE ;GO FIX UP SIGN COPY ; 6254 ; 6255 ;HERE AT END ; 6256 =0 ; 6257 DBXIT: [ARX]_AC[BIN1], ;GET LOW WORD U 2142, 3341,3771,0004,1276,6007,0701,0000,0000,1444 ; 6258 J/DBNEG ;GO NEGATE U 2143, 3337,3771,0003,1276,6007,0701,0000,0000,1444 ; 6259 DBDONE: [AR]_AC[BIN1] ;FETCH LOW WORD ; 6260 [BR]_AC[BIN0], 4T, ;GET HIGH WORD U 3337, 2144,3771,0005,1276,6007,0522,0000,0000,1443 ; 6261 SKIP DP0 ;WHAT SIGN U 2144, 3340,4551,0303,4374,0007,0700,0000,0037,7777 ; 6262 =0 CLEAR [AR]0, J/DBDN1 ;POSITIVE U 2145, 3340,3551,0303,4374,0007,0700,0000,0040,0000 ; 6263 [AR]_[AR].OR.#, #/400000, HOLD RIGHT U 3340, 2146,3440,0303,1174,4007,0700,0400,0000,1444 ; 6264 DBDN1: AC[BIN1]_[AR] ;STORE AC BACK ; 6265 =0 AC_[BRX] TEST, ;RETURN FLAGS U 2146, 2154,3770,0606,0174,4007,0520,0410,0000,0000 ; 6266 SKIP DP0, CALL [CLRBIN] ;CLEAR BIN IS S=0 U 2147, 0260,4221,0013,4170,4007,0700,0000,0000,0000 ; 6267 ENDSKP: END STATE, J/SKIP ;NO--ALL DONE ; 6268 U 3341, 3342,4551,0404,4374,0007,0700,0000,0037,7777 ; 6269 DBNEG: CLEAR ARX0 ;CLEAR EXTRA SIGN BIT ; 6270 [ARX]_-[ARX], 3T, ;NEGATE AND SEE IF U 3342, 2150,2441,0404,1174,4007,0621,4000,0000,1443 ; 6271 SKIP AD.EQ.0, AC[BIN0] ; ANY CARRY U 2150, 2153,7771,0003,1274,4007,0700,0000,0000,1443 ; 6272 =0 [AR]_.NOT.AC[BIN0], 2T, J/STAC34 ;NO CARRY ; 6273 [AR]_-AC[BIN0], 3T, ;CARRY U 2151, 2152,1771,0003,1274,4007,0621,4000,0000,1443 ; 6274 SKIP AD.EQ.0 ;SEE IF ALL ZERO U 2152, 2153,4571,1204,4374,4007,0700,0000,0040,0000 ; 6275 =0 [ARX]_[400000] XWD 0 ;MAKE COPY OF SIGN ; 6276 ; UNLESS HIGH WORD IS ZERO U 2153, 3343,3440,0303,1174,4007,0700,0400,0000,1443 ; 6277 STAC34: AC[BIN0]_[AR] ;PUT BACK ANSWER U 3343, 2143,3440,0404,1174,4007,0700,0400,0000,1444 ; 6278 AC[BIN1]_[ARX], J/DBDONE ; .. ; 6279 ; 6280 ;HELPER SUBROUTINE TO CLEAR AC[BIN0] AND AC[BIN1] IF S=0 ; 6281 ;CALL WITH: ; 6282 ; READ [BRX], SKIP DP0, CALL [CLRBIN] ; 6283 ;RETURNS 1 ALWAYS ; 6284 =0 U 2154, 3344,4223,0000,1174,4007,0700,0400,0000,1443 ; 6285 CLRBIN: AC[BIN0]_0, J/CLRB1 U 2155, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 6286 RETURN [1] U 3344, 0001,4223,0000,1174,4004,1700,0400,0000,1444 ; 6287 CLRB1: AC[BIN1]_0, RETURN [1] ; 6288 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 171 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6289 .TOC "EXTEND -- BINARY TO DECIMAL CONVERSION" ; 6290 ; 6291 3743: ; 6292 BDEC: [BRX]_AC[DLEN], ;GET LENGTH AND FLAGS U 3743, 2156,3771,0006,1276,6007,0351,0000,0000,1443 ; 6293 SKIP FPD ;CONTINUE FROM INTERUPT? ; 6294 =0 [BRX]_[BRX].AND.#, ;JUST KEEP THE FLAGS ; 6295 #/777000, ; .. U 2156, 3345,4551,0606,4374,4007,0700,0000,0077,7000 ; 6296 J/BDEC0 ;COMPUTE NEW FLAGS U 2157, 3363,3771,0003,0276,6007,0700,0000,0000,0000 ; 6297 DOCVT: [AR]_AC, J/DOCVT1 ;ALL SET PRIOR TO TRAP U 3345, 3346,3771,0004,1276,6007,0701,0000,0000,1441 ; 6298 BDEC0: [ARX]_AC[1] ;GET LOW BINARY U 3346, 2125,3771,0003,0276,6007,0700,2000,0071,0024 ; 6299 [AR]_AC, SC_20. ;GET HIGH WORD, SET STEP COUNT ; 6300 =0* WORK[BDL]_[ARX], ;SAVE IN CASE OF ABORT U 2125, 2220,3333,0004,7174,4007,0700,0410,0000,0250 ; 6301 CALL [CLARX0] ;MAKE SURE BIT 0 IS OFF ; 6302 WORK[BDH]_[AR], ;SAVE HIGH WORD AND U 2127, 2160,3333,0003,7174,4007,0520,0400,0000,0247 ; 6303 SKIP DP0 ; TEST SIGN ; 6304 =0 ; 6305 BDEC1: [BRX]_0, HOLD LEFT, ;POSITIVE, CLEAR RH OF BRX U 2160, 2170,4221,0006,4170,4007,0700,0000,0000,0000 ; 6306 J/BDEC3 ;COMPUTE # OF DIGITS REQUIRED ; 6307 [BRX]_[BRX].OR.#, ;NEGATIVE, SET M U 2161, 2164,3551,0606,4374,0007,0700,0000,0010,0000 ; 6308 #/100000, HOLD RIGHT ; .. ; 6309 =0* U 2164, 3071,4551,0404,4374,0007,0700,0010,0037,7777 ; 6310 BDEC2: CLEAR ARX0, CALL [DBLNG1] ;NEGATE AR!ARX ; 6311 AC_[AR] TEST, ;PUT BACK ANSWER U 2166, 2162,3770,0303,0174,4007,0520,0400,0000,0000 ; 6312 SKIP DP0 ;IF STILL MINUS WE HAVE ; 6313 ; 1B0, AND NO OTHER BITS U 2162, 2160,3440,0404,1174,4007,0700,0400,0000,1441 ; 6314 =0 AC[1]_[ARX], J/BDEC1 ;POSITIVE NOW U 2163, 3347,0111,0704,4174,4007,0700,0000,0000,0000 ; 6315 [ARX]_[ARX]+1 ;JUST 1B0--ADD 1 ; 6316 [BRX]_[BRX].OR.#, ;AND REMEMBER THAT WE DID ; 6317 #/040000, HOLD RIGHT, ; IN LEFT HALF OF AC+3 U 3347, 2164,3551,0606,4374,0007,0700,0000,0004,0000 ; 6318 J/BDEC2 ; NEGATE IT AGAIN ; 6319 =0 U 2170, 0441,3771,0003,0276,6007,0700,0000,0000,0000 ; 6320 BDEC3: [AR]_AC, J/BDEC4 ;GET HIGH AC ; 6321 [BRX]_[BRX].OR.#, ;NO LARGER POWER OF 10 FITS ; 6322 #/200000, ;SET N FLAG (CLEARLY NOT 0) U 2171, 2174,3551,0606,4374,0007,0700,0000,0020,0000 ; 6323 HOLD RIGHT, J/BDEC5 ;SETUP TO FILL, ETC. ; 6324 =001 ; 6325 BDEC4: [ARX]_AC[1], ;GET HIGH WORD U 0441, 2214,3771,0004,1276,6007,0701,0010,0000,1441 ; 6326 CALL [BDSUB] ;SEE IF 10**C(BRX) FITS ; 6327 =011 [BRX]_[BRX]+1, ;NUMBER FITS--TRY A LARGER ONE U 0443, 2170,0111,0706,4174,4007,0630,2000,0060,0000 ; 6328 STEP SC, J/BDEC3 ;UNLESS WE ARE OUT OF NUMBERS U 0447, 2172,4553,0600,4374,4007,0331,0000,0077,7777 ; 6329 =111 TR [BRX], #/777777 ;ANY DIGITS REQUIRED? ; 6330 = ; 6331 =0 [BRX]_[BRX].OR.#, ;SOME DIGITS NEEDED, ; 6332 #/200000, HOLD RIGHT, ; SET N FLAG U 2172, 2174,3551,0606,4374,0007,0700,0000,0020,0000 ; 6333 J/BDEC5 ;CONTINUE BELOW U 2173, 2174,0111,0706,4174,4007,0700,0000,0000,0000 ; 6334 [BRX]_[BRX]+1 ;ZERO--FORCE AT LEAST 1 DIGIT ; 6335 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 172 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6336 =0 ; 6337 BDEC5: [AR]_AC[DLEN], ;GET LENGTH U 2174, 3460,3771,0003,1276,6007,0701,0010,0000,1443 ; 6338 CALL [CLRFLG] ;REMOVE FLAGS FROM AR U 2175, 3350,4221,0005,4174,4007,0700,0000,0000,0000 ; 6339 [BR]_0 U 3350, 3351,3441,0605,4170,4007,0700,0000,0000,0000 ; 6340 [BR]_[BRX], HOLD LEFT ;GET # OF DIGITS NEEDED ; 6341 [BR]_[BR]-[AR], ;NUMBER OF FILLS NEEDED U 3351, 2176,1111,0305,4174,4007,0421,4000,0000,0000 ; 6342 SKIP AD.LE.0 ;SEE IF ENOUGH ROOM ; 6343 =0 [ARX]_WORK[BDL], ;DOES NOT FIT IN SPACE ALLOWED U 2176, 3373,3771,0004,7274,4007,0701,0000,0000,0250 ; 6344 J/BDABT ; DO NOT DO CONVERT U 2177, 2200,3333,0006,4174,4007,0520,0000,0000,0000 ; 6345 READ [BRX], SKIP DP0 ;IS L ALREADY SET ; 6346 =0 AC[DLEN]_[BRX], ;NO--NO FILLERS U 2200, 2157,3440,0606,1174,4007,0700,0400,0000,1443 ; 6347 J/DOCVT ;GO CHURN OUT THE NUMBER ; 6348 ; 6349 ; 6350 ;HERE TO STORE LEADING FILLERS U 2201, 3352,3441,0603,4174,0007,0700,0000,0000,0000 ; 6351 [AR]_[BRX], HOLD RIGHT ;MAKE SURE THE FLAGS GET SET U 3352, 3353,3440,0303,1174,4007,0700,0400,0000,1443 ; 6352 AC[DLEN]_[AR] ; BEFORE WE PAGE FAIL U 3353, 3354,3771,0003,7274,4007,0701,0000,0000,0240 ; 6353 [AR]_WORK[E0] ;ADDRESS OF FILL (-1) ; 6354 [AR]_[AR]+1, LOAD VMA, ;FETCH FILLER U 3354, 3355,0111,0703,4174,4007,0700,0200,0004,0012 ; 6355 START READ U 3355, 3356,3771,0016,4365,5007,0700,0200,0000,0002 ; 6356 MEM READ, [T0]_MEM ;GET FILLER INTO AR U 3356, 3357,3771,0013,4370,4007,0700,0000,0000,0012 ; 6357 STATE_[EDIT-DST] ;PAGE FAILS BACKUP DST U 3357, 3360,2113,0507,7174,4007,0701,4400,0000,0242 ; 6358 WORK[SLEN]_[BR]-1, 3T ;SAVE # OF FILLERS U 3360, 3361,3441,1603,7174,4007,0700,0000,0000,0242 ; 6359 BDFILL: [AR]_[T0], WORK[SLEN] ;RESTORE FILL BYTE AND ; 6360 ; WARM UP RAM FILE ; 6361 [BR]_WORK[SLEN]+1, 3T, ;MORE FILLERS NEEDED? U 3361, 0640,0551,0705,7274,4007,0521,0000,0000,0242 ; 6362 SKIP DP0 U 0640, 2157,3440,0606,1174,4007,0700,0400,0000,1443 ; 6363 =000 AC[DLEN]_[BRX], J/DOCVT ;ALL DONE FIX FLAGS AND CONVERT ; 6364 =001 WORK[SLEN]_[BR], ;SAVE UPDATED LENGTH U 0641, 3450,3333,0005,7174,4007,0700,0410,0000,0242 ; 6365 CALL [PUTDST] ; AND STORE FILLER U 0647, 3362,2551,0705,1274,4007,0701,4000,0000,1443 ; 6366 =111 [BR]_AC[DLEN]-1 ;COUNT DOWN STRING LENGTH ; 6367 = U 3362, 3360,3440,0505,1174,4007,0700,0400,0000,1443 ; 6368 AC[DLEN]_[BR], J/BDFILL ;KEEP FILLING ; 6369 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 173 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6370 ;HERE TO STORE THE ANSWER ; 6371 ; 6372 DOCVT1: [ARX]_AC[1], ;GET LOW WORD U 3363, 3372,3771,0004,1276,6007,0701,0000,0000,1441 ; 6373 J/DOCVT2 ;ENTER LOOP FROM BOTTOM ; 6374 =010 ; 6375 BDECLP: [BR]_[BR]+1, ;COUNT DIGITS U 0562, 2214,0111,0705,4174,4007,0700,0010,0000,0000 ; 6376 CALL [BDSUB] ;KEEP SUBTRACTING 10**C(BRX) U 0566, 3364,3333,0003,7174,4007,0700,0400,0000,0247 ; 6377 =110 WORK[BDH]_[AR] ;SAVE BINARY ; 6378 = ; 6379 [AR]_[BR]+WORK[E1], ;OFFSET DIGIT U 3364, 0636,0551,0503,7274,4003,7701,0000,0000,0241 ; 6380 B DISP ;SEE WHICH MODE ; 6381 =1110 READ [AR], LOAD VMA, ;TRANSLATE, START READING TABLE U 0636, 2206,3333,0003,4174,4007,0700,0200,0004,0012 ; 6382 START READ, J/BDTBL ; GO GET ENTRY FROM TABLE U 0637, 0510,3333,0004,7174,4007,0700,0400,0000,0250 ; 6383 BDSET: WORK[BDL]_[ARX] ;SAVE LOW BINARY U 0510, 3450,3771,0013,4370,4007,0700,0010,0000,0012 ; 6384 =00* STATE_[EDIT-DST], CALL [PUTDST] U 0516, 3365,2551,0705,1274,4007,0701,4000,0000,1443 ; 6385 =11* [BR]_AC[DLEN]-1 ;UPDATE STRING LENGTH U 3365, 3366,3771,0003,7274,4007,0701,0000,0000,0247 ; 6386 [AR]_WORK[BDH] U 3366, 3367,3771,0004,7274,4007,0701,0000,0000,0250 ; 6387 [ARX]_WORK[BDL] U 3367, 2202,4553,0500,4374,4007,0321,0000,0004,0000 ; 6388 TL [BR], #/040000 ;ARE WE CONVERTING 1B0? U 2202, 3374,0111,0704,4174,4007,0700,0000,0000,0000 ; 6389 =0 [ARX]_[ARX]+1, J/BDCFLG ;YES--FIX THE NUMBER AND CLEAR FLAG U 2203, 3370,3440,0303,0174,4007,0700,0400,0000,0000 ; 6390 DOCVT3: AC_[AR] U 3370, 3371,3440,0404,1174,4007,0700,0400,0000,1441 ; 6391 AC[1]_[ARX] U 3371, 3372,3440,0505,1174,4007,0700,0400,0000,1443 ; 6392 AC[DLEN]_[BR] ;STORE BACK NEW STRING LENGTH U 3372, 2204,1111,0706,4174,4007,0531,4000,0000,0000 ; 6393 DOCVT2: [BRX]_[BRX]-1, 3T, SKIP DP18 U 2204, 0562,2441,0705,4174,4467,0701,4000,0003,0000 ; 6394 =0 [BR]_-1, SET FPD, 3T, J/BDECLP U 2205, 0260,4221,0013,4170,4467,0700,0000,0005,0000 ; 6395 END STATE, CLR FPD, J/SKIP ; 6396 ; 6397 ;HERE TO TRANSLATE 1 DIGIT ; 6398 =0 ; 6399 BDTBL: END STATE, ;DON'T CHANGE BYTE POINTER IF ; 6400 ; THIS PAGE FAILS U 2206, 3660,4221,0013,4170,4007,0700,0010,0000,0000 ; 6401 CALL [LOADAR] ;GO PUT WORD IN AR U 2207, 2210,4553,0600,4374,4007,0331,0000,0077,7777 ; 6402 TR [BRX], #/777777 ;LAST DIGIT U 2210, 0637,4221,0003,4174,0007,0700,0000,0000,0000 ; 6403 =0 [AR]_0, HOLD RIGHT, J/BDSET U 2211, 2212,4553,0600,4374,4007,0321,0000,0010,0000 ; 6404 TL [BRX], #/100000 ;AND NEGATIVE U 2212, 2213,3770,0303,4344,4007,0700,0000,0000,0000 ; 6405 =0 [AR]_[AR] SWAP ;LAST AND MINUS, USE LH U 2213, 0637,4221,0003,4174,0007,0700,0000,0000,0000 ; 6406 [AR]_0, HOLD RIGHT, J/BDSET ; 6407 U 3373, 1505,3771,0003,7274,4007,0701,0000,0000,0247 ; 6408 BDABT: [AR]_WORK[BDH], J/DAC ; 6409 ; 6410 BDCFLG: [BR]_[BR].AND.NOT.#, ;CLEAR FLAG THAT TELLS US ; 6411 #/040000, HOLD RIGHT, ; TO SUBTRACT 1 AND U 3374, 2203,5551,0505,4374,0007,0700,0000,0004,0000 ; 6412 J/DOCVT3 ; CONTINUE CONVERTING ; 6413 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 174 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- BINARY TO DECIMAL CONVERSION ; 6414 ;SUBROUTINE TO SUBRTACT A POWER OF 10 FROM AR!ARX ; 6415 ;CALL WITH: ; 6416 ; AR!ARX/ NUMBER TO BE CONVERTED ; 6417 ; BRX(RIGHT)/ POWER OF 10 ; 6418 ;RETURNS: ; 6419 ; 2 RESULT IS STILL POSITIVE ; 6420 ; 6 RESULT WOULD HAVE BEEN NEGATIVE (RESTORE DONE) ; 6421 =0 ; 6422 BDSUB: [T0]_[BRX]+#, 3T, WORK/DECLO, ;ADDRESS OF LOW WORD U 2214, 2165,0551,0616,4374,4007,0701,0000,0000,0344 ; 6423 J/BDSUB1 ;NO INTERRUPT U 2215, 2677,4443,0000,4174,4007,0700,0000,0000,0000 ; 6424 J/FIXPC ;INTERRUPT ; 6425 =0* ; 6426 BDSUB1: [T1]_[T0], LOAD VMA, ;PUT IN VMA, U 2165, 2220,3441,1617,4174,4007,0700,0210,0000,0010 ; 6427 CALL [CLARX0] ;FIX UP SIGN OF LOW WORD ; 6428 [ARX]_[ARX]-RAM, 3T, ;SUBTRACT U 2167, 2216,1551,0404,6274,4007,0561,4000,0000,0000 ; 6429 SKIP CRY1 ;SEE IF OVERFLOW U 2216, 2217,1111,0703,4174,4007,0700,4000,0000,0000 ; 6430 =0 [AR]_[AR]-1 ;PROCESS CARRY U 2217, 3375,0551,0616,4374,4007,0701,0000,0000,0373 ; 6431 [T0]_[BRX]+#, 3T, WORK/DECHI ;ADDRESS OF HIGH WORD U 3375, 3376,3333,0016,4174,4007,0700,0200,0000,0010 ; 6432 READ [T0], LOAD VMA ;PLACE IN VMA ; 6433 [AR]_[AR]-RAM, 4T, ;SUBTRACT U 3376, 2220,1551,0303,6274,4007,0522,4000,0000,0000 ; 6434 SKIP DP0 ;SEE IF IT FIT ; 6435 =0 ; 6436 CLARX0: CLEAR ARX0, ;IT FIT, KEEP LOW WORD + U 2220, 0002,4551,0404,4374,0004,1700,0000,0037,7777 ; 6437 RETURN [2] ; AND RETURN U 2221, 3377,0551,0303,6274,4007,0700,0000,0000,0000 ; 6438 [AR]_[AR]+RAM ;RESTORE U 3377, 3400,3333,0017,4174,4007,0700,0200,0000,0010 ; 6439 READ [T1], LOAD VMA U 3400, 2222,0551,0404,6274,4007,0561,0000,0000,0000 ; 6440 [ARX]_[ARX]+RAM, 3T, SKIP CRY1 ; 6441 =0 ; 6442 BDSUB2: CLEAR ARX0, ;KEEP LOW WORD + U 2222, 0006,4551,0404,4374,0004,1700,0000,0037,7777 ; 6443 RETURN [6] ;RETURN OVERFLOW ; 6444 [AR]_[AR]+1, ;ADD BACK THE CARRY U 2223, 2222,0111,0703,4174,4007,0700,0000,0000,0000 ; 6445 J/BDSUB2 ;COMPLETE SUBTRACT ; 6446 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 175 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- EDIT -- MAIN LOOP ; 6447 .TOC "EXTEND -- EDIT -- MAIN LOOP" ; 6448 ; 6449 ;HERE FOR EDIT INSTRUCTION ; 6450 ;CALL WITH: ; 6451 ; AR/ E0 ADDRESS OF FILL, FLOAT, AND MESSAGE TABLE ; 6452 ; BR/ E1 TRANSLATE TABLE ; 6453 ; ; 6454 3741: ; 6455 EDIT: VMA_[AR]+1, START READ, ;FIRST GET FILL BYTE U 3741, 3456,0111,0703,4170,4007,0700,0210,0004,0012 ; 6456 CALL [GTFILL] ;GO GET IT U 3751, 2111,3771,0006,0276,6007,0700,0000,0000,0000 ; 6457 3751: [BRX]_AC ;GET PATTERN POINTER ; 6458 =0** TL [BRX], #/047777, ;MAKE SURE SECTION 0 U 2111, 3556,4553,0600,4374,4007,0321,0010,0004,7777 ; 6459 CALL [BITCHK] ; .. U 2115, 3401,3443,0600,4174,4007,0700,0200,0004,0012 ; 6460 EDITLP: VMA_[BRX], START READ ;FETCH PATTERN WORD U 3401, 3402,4221,0013,4170,4007,0700,0000,0000,0000 ; 6461 END STATE ;NO SPECIAL PAGE FAIL ACTION U 3402, 2224,3770,0605,4344,4007,0700,0000,0000,0000 ; 6462 [BR]_[BRX] SWAP ;GET PBN IN BITS 20 & 21 ; 6463 =0 [BR]_[BR]*4, ; .. U 2224, 3660,0115,0505,4174,4007,0700,0010,0000,0000 ; 6464 CALL [LOADAR] ;GET PATTERN WORD U 2225, 0654,3333,0005,4174,4003,1701,0000,0000,0000 ; 6465 READ [BR], 3T, DISP/DP LEFT ; 6466 =1100 U 0654, 2226,3770,0303,4344,4007,0700,2000,0071,0007 ; 6467 [AR]_[AR] SWAP, SC_7, J/MOVPAT ;(0) BITS 0-8 U 0655, 2227,3770,0303,4344,4007,0700,0000,0000,0000 ; 6468 [AR]_[AR] SWAP, J/MSKPAT ;(1) BITS 9-17 U 0656, 2226,3447,0303,4174,4007,0700,2000,0071,0006 ; 6469 [AR]_[AR]*.5, SC_6, J/MOVPAT ;(2) BITS 18-27 U 0657, 3403,4551,0303,4374,4007,0700,0000,0000,0777 ; 6470 [AR]_[AR].AND.#, #/777, J/EDISP ;(3) BITS 28-35 ; 6471 =0 U 2226, 2226,3447,0303,4174,4007,0630,2000,0060,0000 ; 6472 MOVPAT: [AR]_[AR]*.5, STEP SC, J/MOVPAT ;SHIFT OVER U 2227, 3403,4551,0303,4374,4007,0700,0000,0000,0777 ; 6473 MSKPAT: [AR]_[AR].AND.#, #/777 ; 6474 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 176 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- EDIT -- MAIN LOOP ; 6475 ;HERE WITH PATTERN BYTE RIGHT ADJUSTED IN AR U 3403, 2230,3447,0305,4174,4007,0700,2000,0071,0002 ; 6476 EDISP: [BR]_[AR]*.5, SC_2 ;SHIFT OVER ; 6477 =0 U 2230, 2230,3447,0505,4174,4007,0630,2000,0060,0000 ; 6478 EDISP1: [BR]_[BR]*.5, STEP SC, J/EDISP1 U 2231, 0661,3333,0005,4174,4003,5701,0000,0000,0000 ; 6479 READ [BR], 3T, DISP/DP ;LOOK AT HIGH 3 BITS ; 6480 =0001 ;(0) OPERATE GROUP ; 6481 [AR]-#, #/5, 4T, ; SEE IF 0-4 U 0661, 2232,1553,0300,4374,4007,0532,4000,0000,0005 ; 6482 SKIP DP18, J/EDOPR ; 6483 ;(1) MESSAGE BYTE ; 6484 READ [BRX], SKIP DP0, U 0663, 2250,3333,0006,4174,4007,0520,0000,0000,0000 ; 6485 J/EDMSG ; 6486 ;(2) UNDEFINED U 0665, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6487 J/EDNOP ; 6488 ;(3) UNDEFINED U 0667, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6489 J/EDNOP ; 6490 ;(4) UNDEFINED U 0671, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6491 J/EDNOP ; 6492 ;(5) SKIP IF M SET ; 6493 TL [BRX], #/100000, U 0673, 2254,4553,0600,4374,4007,0321,0000,0010,0000 ; 6494 J/EDSKP ; 6495 ;(6) SKIP IF N SET ; 6496 TL [BRX], #/200000, U 0675, 2254,4553,0600,4374,4007,0321,0000,0020,0000 ; 6497 J/EDSKP ; 6498 ;(7) SKIP ALWAYS U 0677, 2254,4443,0000,4174,4007,0700,0000,0000,0000 ; 6499 J/EDSKP ; 6500 ; 6501 .TOC "EXTEND -- EDIT -- DECODE OPERATE GROUP" ; 6502 ; 6503 ;HERE FOR OPERATE GROUP. SKIP IF IN RANGE ; 6504 =0 U 2232, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6505 EDOPR: J/EDNOP ;OUT OF RANGE U 2233, 0710,3333,0003,4174,4003,5701,0000,0000,0000 ; 6506 READ [AR], 3T, DISP/DP ;DISPATCH ON TYPE U 0710, 3404,0111,0701,4174,4007,0700,0000,0000,0000 ; 6507 =1000 [PC]_[PC]+1, J/EDSTOP ;(0) STOP EDIT ; 6508 STATE_[EDIT-SRC], ;(1) SELECT SOURCE BYTE U 0711, 2240,3771,0013,4370,4007,0700,0000,0000,0011 ; 6509 J/EDSEL ; 6510 READ [BRX], SKIP DP0, ;(2) START SIGNIFICANCE U 0712, 0006,3333,0006,4174,4007,0520,0000,0000,0000 ; 6511 J/EDSSIG ; 6512 [BRX]_[BRX].AND.#, ;(3) FIELD SEPERATOR ; 6513 #/77777, HOLD RIGHT, U 0713, 3423,4551,0606,4374,0007,0700,0000,0007,7777 ; 6514 J/EDNOP U 0714, 0715,3771,0005,1276,6007,0701,0000,0000,1443 ; 6515 [BR]_AC[MARK] ;(4) EXCHANGE MARK AND DEST ; 6516 VMA_[BR], START READ, U 0715, 2236,3443,0500,4174,4007,0700,0200,0004,0012 ; 6517 J/EDEXMD ; 6518 = ; 6519 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 177 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- EDIT -- STOP EDIT ; 6520 .TOC "EXTEND -- EDIT -- STOP EDIT" ; 6521 ; 6522 ;HERE TO END AN EDIT OPERATION. PC IS SET TO SKIP IF NORMAL END ; 6523 ; OR NON-SKIP IF ABORT ; 6524 EDSTOP: [BR]_.NOT.[BRX], ;AD WILL NOT DO D.AND.NOT.A U 3404, 3405,7441,0605,4174,4007,0700,1000,0071,0010 ; 6525 FE_S#, S#/10 ;PRESET FE U 3405, 3406,3441,0603,4174,4007,0701,1000,0043,0000 ; 6526 [AR]_[BRX], 3T, FE_FE+P ;MOVE POINTER, UPBATE PBN ; 6527 [BR].AND.#, 3T, ;WAS OLD NUMBER 3? U 3406, 2234,4553,0500,4374,4007,0321,0000,0003,0000 ; 6528 #/030000, SKIP ADL.EQ.0 ; .. ; 6529 =0 U 2234, 1515,3770,0303,4334,4017,0700,0000,0041,0000 ; 6530 EDSTP1: [AR]_P, J/STAC ;NO--ALL DONE ; 6531 [AR]_[AR]+1, ;YES--BUMP WORD # ; 6532 FE_FE.AND.S#, S#/0700, ;KEEP ONLY FLAG BITS U 2235, 2234,0111,0703,4174,4007,0700,1000,0051,0700 ; 6533 J/EDSTP1 ;GO STOP EDIT ; 6534 ; 6535 .TOC "EXTEND -- EDIT -- START SIGNIFICANCE" ; 6536 ; 6537 ;HERE WITH DST POINTER IN AR ; 6538 =110 U 0006, 3412,4443,0000,4174,4007,0700,0010,0000,0000 ; 6539 EDSSIG: CALL [EDFLT] ;STORE FLT CHAR U 0007, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6540 J/EDNOP ;DO NEXT PATTERN BYTE ; 6541 ; 6542 .TOC "EXTEND -- EDIT -- EXCHANGE MARK AND DESTINATION" ; 6543 ; 6544 ;HERE WITH ADDRESS OF MARK POINTER IN BR ; 6545 =0 ; 6546 EDEXMD: Q_AC[DSTP], ;GET DEST POINTER U 2236, 3660,3772,0000,1275,5007,0701,0010,0000,1444 ; 6547 CALL [LOADAR] ;GO PUT MARK IN AR U 2237, 3407,4443,0000,4174,4007,0700,0200,0003,0002 ; 6548 START WRITE ;START WRITE. SEPERATE STEP TO AVOID ; 6549 ; PROBLEM ON DPM5 U 3407, 3410,3223,0000,4174,4007,0701,0200,0000,0002 ; 6550 MEM WRITE, MEM_Q ;PUT OLD DEST IN MARK U 3410, 3423,3440,0303,1174,4007,0700,0400,0000,1444 ; 6551 AC[DSTP]_[AR], J/EDNOP ;PUT BACK DEST POINTER ; 6552 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 178 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- EDIT -- PROCESS SOURCE BYTE ; 6553 .TOC "EXTEND -- EDIT -- PROCESS SOURCE BYTE" ; 6554 ; 6555 =0* ; 6556 EDSEL: [AR]_AC[SRCP], ;PICK UP SRC POINTER U 2240, 2275,3771,0003,1276,6007,0701,0010,0000,1441 ; 6557 CALL [GETSRC] ;GET SOURCE BYTE U 2242, 0700,3447,0303,7174,4007,0700,0000,0000,0241 ; 6558 [AR]_[AR]*.5, WORK[E1] ;PREPARE TO TRANSLATE ; 6559 =000 [AR]_[AR]+WORK[E1], ;GO TRANSLATE BY HALFWORDS U 0700, 3443,0551,0303,7274,4007,0700,0010,0000,0241 ; 6560 2T, CALL [TRNAR] ; .. ; 6561 =010 ; 6562 EDFILL: READ [AR], ;(2) NO SIGNIFICANCE, GO FILL ; 6563 SKIP AD.EQ.0, ; SEE IF ANY FILLER U 0702, 2244,3333,0003,4174,4007,0621,0000,0000,0000 ; 6564 J/EDFIL1 ; GO TO IT ; 6565 STATE_[EDIT-SRC], ;(3) SIG START, DO FLOAT CHAR U 0703, 0246,3771,0013,4370,4007,0700,0000,0000,0011 ; 6566 J/EDSFLT U 0704, 3404,4443,0000,4174,4007,0700,0000,0000,0000 ; 6567 =100 J/EDSTOP ;(4) ABORT ; 6568 =101 ; 6569 EDSPUT: STATE_[EDIT-S+D], ;(5) NORMAL, STORE AT DST U 0705, 3450,3771,0013,4370,4007,0700,0010,0000,0013 ; 6570 CALL [PUTDST] ; .. ; 6571 =111 U 0707, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6572 J/EDNOP ;(7) BYTE STORED ; 6573 = ; 6574 ; 6575 ;HERE TO COMPLETE STORING FILL ; 6576 =0 U 2244, 0705,4443,0000,4174,4007,0700,0000,0000,0000 ; 6577 EDFIL1: J/EDSPUT ;STORE FILLER U 2245, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6578 J/EDNOP ;NO FILLER TO STORE ; 6579 ; 6580 ;HERE TO DO FLOAT BYTE ; 6581 =110 ; 6582 EDSFLT: WORK[FSIG]_[ARX], ;SAVE SIG CHAR U 0246, 3412,3333,0004,7174,4007,0700,0410,0000,0246 ; 6583 CALL [EDFLT] ;STORE FLOAT CHAR U 0247, 3411,3771,0003,7274,4007,0701,0000,0000,0246 ; 6584 [AR]_WORK[FSIG] ;RESTORE CHAR ; 6585 [AR]_[AR].AND.# CLR LH, ;JUST KEEP THE BYTE IN CASE ; 6586 #/77777, ; DEST BYTE .GT. 15 BITS U 3411, 0705,4251,0303,4374,4007,0700,0000,0007,7777 ; 6587 J/EDSPUT ;GO STORE CHAR WHICH STARTED THIS ALL ; 6588 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 179 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- EDIT -- PROCESS SOURCE BYTE ; 6589 ;SUBRUTINE TO PROCESS FLOAT CHAR ; 6590 ;CALL WITH: ; 6591 ; AR/ POINTER TO STORE @ MARK ; 6592 ;RETURN 7 WITH FLOAT STORED U 3412, 3413,3771,0005,1276,6007,0701,0000,0000,1443 ; 6593 EDFLT: [BR]_AC[MARK] ;ADDRESS OF MARK POINTER U 3413, 3414,3443,0500,4174,4007,0700,0200,0003,0012 ; 6594 VMA_[BR], START WRITE ;READY TO STORE U 3414, 3415,3771,0005,1276,6007,0701,0000,0000,1444 ; 6595 [BR]_AC[DSTP] ;GET DST POINTER U 3415, 2246,3333,0005,4175,5007,0701,0200,0000,0002 ; 6596 MEM WRITE, MEM_[BR] ;STORE POINTER ; 6597 =0 [AR]_0 XWD [2], ;FETCH FLOAT CHAR U 2246, 3417,4751,1203,4374,4007,0700,0010,0000,0002 ; 6598 CALL [EDBYTE] ;GET TBL BYTE ; 6599 MEM READ, [AR]_MEM, ;GET FLOAT CHAR U 2247, 0740,3771,0003,4365,5007,0621,0200,0000,0002 ; 6600 SKIP AD.EQ.0 ;SEE IF NULL ; 6601 =000 ; 6602 [FLG]_[FLG].OR.#, ;REMEMBER TO BACKUP DST POINTER ; 6603 STATE/EDIT-DST, ; WILL ALSO BACKUP SRC IF CALLED ; 6604 HOLD LEFT, ; FROM SELECT U 0740, 3450,3551,1313,4370,4007,0700,0010,0000,0012 ; 6605 CALL [PUTDST] ; STORE FLOAT ; 6606 =001 [BRX]_[BRX].OR.#, #/400000, U 0741, 3416,3551,0606,4374,0007,0700,0000,0040,0000 ; 6607 HOLD RIGHT, J/EDFLT1 ;NULL ; 6608 =110 [BRX]_[BRX].OR.#, #/400000, U 0746, 3416,3551,0606,4374,0007,0700,0000,0040,0000 ; 6609 HOLD RIGHT, J/EDFLT1 ;MARK STORED ; 6610 = ; 6611 EDFLT1: AC_[BRX], ;SAVE FLAGS SO WE DON'T ; 6612 ;TRY TO DO THIS AGAIN IF ; 6613 ;NEXT STORE PAGE FAILS U 3416, 0007,3440,0606,0174,4004,1700,0400,0000,0000 ; 6614 RETURN [7] ;AND RETURN ; 6615 ; 6616 .TOC "EXTEND -- EDIT -- MESSAGE BYTE" ; 6617 ; 6618 ;HERE WITH SKIP ON S ; 6619 =0 ; 6620 EDMSG: [AR]_WORK[FILL], ;GET FILL BYTE ; 6621 SKIP AD.EQ.0, 4T, ;SEE IF NULL U 2250, 0760,3771,0003,7274,4007,0622,0000,0000,0244 ; 6622 J/EDMSG1 ;GO STORE ; 6623 [AR]_[AR].AND.# CLR LH, ;GET OFFSET INTO TABLE U 2251, 2252,4251,0303,4374,4007,0700,0000,0000,0077 ; 6624 #/77 ; 6625 =0 [AR]_[AR]+1, WORK[E0], ;PLUS 1 U 2252, 3417,0111,0703,7174,4007,0700,0010,0000,0240 ; 6626 CALL [EDBYTE] ;GET TBL BYTE U 2253, 0760,3771,0003,4365,5007,0700,0200,0000,0002 ; 6627 MEM READ, [AR]_MEM ;FROM MEMORY ; 6628 =000 ; 6629 EDMSG1: STATE_[EDIT-DST], ;WHAT TO DO ON PAGE FAILS U 0760, 3450,3771,0013,4370,4007,0700,0010,0000,0012 ; 6630 CALL [PUTDST] ;STORE MESSAGE BYTE U 0761, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6631 =001 J/EDNOP ;NULL FILLER U 0766, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6632 =110 J/EDNOP ;NEXT BYTE ; 6633 = ; 6634 U 3417, 3420,0551,0303,7274,4007,0701,0000,0000,0240 ; 6635 EDBYTE: [AR]_[AR]+WORK[E0] ;GET OFFSET INTO TABLE ; 6636 VMA_[AR], START READ, ;START MEMORY CYCLE U 3420, 0001,3443,0300,4174,4004,1700,0200,0004,0012 ; 6637 RETURN [1] ;RETURN TO CALLER ; 6638 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 180 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- EDIT -- SKIP ; 6639 .TOC "EXTEND -- EDIT -- SKIP" ; 6640 ; 6641 =0 ; 6642 ;HERE TO SKIP ALWAYS ; 6643 EDSKP: [AR]_[AR].AND.#, #/77, ;JUST KEEP SKIP DISTANCE U 2254, 3421,4551,0303,4374,4007,0700,0000,0000,0077 ; 6644 J/EDSKP1 ;CONTINUE BELOW ; 6645 ;HERE IF WE DO NOT WANT TO SKIP U 2255, 3423,4443,0000,4174,4007,0700,0000,0000,0000 ; 6646 J/EDNOP U 3421, 3422,0115,0703,4174,4007,0700,0000,0000,0000 ; 6647 EDSKP1: [AR]_([AR]+1)*2 ;GIVE 1 EXTRA SKIP ; 6648 READ [AR], SCAD/A*2, ;PUT THE ADJUSTMENT ; 6649 SCADA/BYTE5, 3T, LOAD SC, ; THE SC U 3422, 3424,3333,0003,4174,4007,0701,2000,0007,0000 ; 6650 J/EDNOP1 ;JOIN MAIN LOOP ; 6651 ; 6652 ; 6653 .TOC "EXTEND -- EDIT -- ADVANCE PATTERN POINTER" ; 6654 U 3423, 3424,4443,0000,4174,4007,0700,2000,0071,0000 ; 6655 EDNOP: SC_0 ;NO SKIP U 3424, 3425,3333,0006,4174,4007,0701,1000,0073,0000 ; 6656 EDNOP1: READ [BRX], 3T, FE_P ;PUT PBN IN FE U 3425, 3426,4443,0000,4174,4007,0700,1000,0051,0030 ; 6657 FE_FE.AND.S#, S#/30 ;JUST BYTE # U 3426, 3427,4443,0000,4174,4007,0700,1000,0040,0000 ; 6658 FE_FE+SC ;ADD IN ANY SKIP DISTANCE U 3427, 3430,4443,0000,4174,4007,0700,1000,0041,0010 ; 6659 FE_FE+S#, S#/10 ;BUMP PBN ; 6660 [AR]_FE, ;GET NUMBER OF WORDS U 3430, 3431,3777,0003,4334,4057,0700,2000,0041,0000 ; 6661 LOAD SC ;PUT MSB WHERE IT CAN BE TESTED ; 6662 ; QUICKLY ; 6663 [AR]_[AR].AND.# CLR LH, ;KEEP ONLY 1 COPY U 3431, 2256,4251,0303,4374,4007,0630,0000,0000,0170 ; 6664 #/170, SKIP/SC ; .. ; 6665 =0 ; 6666 EDN1A: [AR]_[AR]*.5, SC_0, U 2256, 2260,3447,0303,4174,4007,0700,2000,0071,0000 ; 6667 J/EDNOP2 ;READY TO SHIFT OFF BYTE WITHIN ; 6668 ; WORD ; 6669 [AR]_[AR].OR.#, #/200, ;GET THE SIGN BIT OF THE FE ; 6670 HOLD LEFT, ; INTO THE AR. ONLY HAPPENS ON U 2257, 2256,3551,0303,4370,4007,0700,0000,0000,0200 ; 6671 J/EDN1A ; SKP 76 OR SKP 77 ; 6672 =0 U 2260, 2260,3447,0303,4174,4007,0630,2000,0060,0000 ; 6673 EDNOP2: [AR]_[AR]*.5, STEP SC, J/EDNOP2 ; 6674 [BRX]_[BRX]+[AR], ;UPDATE WORD ADDRESS U 2261, 3432,0111,0306,4170,4007,0700,0000,0000,0000 ; 6675 HOLD LEFT U 3432, 3433,3770,0303,4334,4017,0700,0000,0041,0000 ; 6676 [AR]_P ;PUT PBN BACK IN BRX ; 6677 [BRX]_[BRX].AND.#, ;JUST KEEP FLAGS ; 6678 #/700000, ; .. U 3433, 3434,4551,0606,4374,0007,0700,0000,0070,0000 ; 6679 HOLD RIGHT ; 6680 [AR]_[AR].AND.#, ;JUST KEEP PBN U 3434, 3435,4551,0303,4374,4007,0700,0000,0003,0000 ; 6681 #/030000 ; 6682 [BRX]_[BRX].OR.[AR], ;FINAL ANSWER U 3435, 3436,3111,0306,4174,0007,0700,0000,0000,0000 ; 6683 HOLD RIGHT U 3436, 2115,3440,0606,0174,4007,0700,0400,0000,0000 ; 6684 AC_[BRX], J/EDITLP ;DO NEXT FUNCTION ; 6685 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 181 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- FILL OUT DESTINATION ; 6686 .TOC "EXTEND SUBROUTINES -- FILL OUT DESTINATION" ; 6687 ; 6688 ;CALL WITH ; 6689 ; AC[DLEN]/ NEGATIVE NUMBER OF BYTES LEFT IN DEST ; 6690 ; FILL/ FILL BYTE ; 6691 ; RETURN [2] WITH FILLERS STORED ; 6692 ; ; 6693 ;NOTE: THIS ROUTINE NEED NOT TEST FOR INTERRUPTS ON EACH BYTE ; 6694 ; BECAUSE EVERY BYTE STORE DOES A MEMORY READ. ; 6695 ; ; 6696 =01* ; 6697 MOVF1: [AR]_WORK[FILL], 2T, ;GET FILL BYTE U 0332, 3450,3771,0003,7274,4007,0700,0010,0000,0244 ; 6698 CALL [PUTDST] ;PLACE IN DEST U 0336, 3437,3771,0003,1276,6007,0701,0000,0000,1443 ; 6699 [AR]_AC[DLEN] ;AMOUNT LEFT ; 6700 AC[DLEN]_[AR]+1, 3T, ;STORE UPDATED LEN U 3437, 2262,0113,0703,1174,4007,0521,0400,0000,1443 ; 6701 SKIP DP0 ; AND SEE IF DONE U 2262, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 6702 =0 RETURN [2] ;DONE U 2263, 0332,4443,0000,7174,4007,0700,0000,0000,0244 ; 6703 MOVFIL: WORK[FILL], J/MOVF1 ;DO ANOTHER BYTE ; 6704 ;ENTERING HERE SAVES 150NS ; 6705 ; PER BYTE BUT COSTS 300NS ; 6706 ; PER FIELD MOVED. I ASSUME (BUT DO ; 6707 ; NOT KNOW) THAT THIS SPEEDS ; 6708 ; THINGS UP. ; 6709 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 182 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE ; 6710 .TOC"EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE" ; 6711 ; 6712 ;CALL WITH: ; 6713 ;SLEN = MINUS LENGTH OF STRING ; 6714 ;MSK = MASK FOR BYTE SIZE (1 IF BIT MUST BE ZERO) ; 6715 ;E1 = EFFECTIVE ADDRESS OF OPERATION WORD (SIGN EXTENDED IF OFFSET) ; 6716 ; [AR]_WORK[SLEN]+1, CALL [SRCMOD] ; 6717 ;RETURNS: ; 6718 ; 1 LENGTH EXHAUSTED ; 6719 ; 2 (EDIT ONLY) NO SIGNIFICANCE ; 6720 ; 3 (EDIT ONLY) SIGNIFICANCE START: ; 6721 ; 4 ABORT: OUT OF RANGE OR TRANSLATE FAILURE ; 6722 ; 5 NORMAL: BYTE IN AR ; 6723 ; ; 6724 ;DROM B SET AS FOLLOWS: ; 6725 ; 0 TRANSLATE ; 6726 ; 1 OFFSET ; 6727 ; 2 EDIT ; 6728 ; 4 CVTDBT ; 6729 =00 ; 6730 SRCMOD: WORK[SLEN]_[AR], ;PUT BACK SOURCE LENGTH ; 6731 SKIP DP0, ;SEE IF DONE U 1074, 2274,3333,0003,7174,4007,0520,0410,0000,0242 ; 6732 CALL [GSRC] ;GET A SOURCE BYTE U 1075, 0001,4221,0013,4170,4004,1700,0000,0000,0000 ; 6733 END STATE, RETURN [1] ;DONE U 1076, 0716,4443,0000,7174,4003,7700,0000,0000,0241 ; 6734 WORK[E1], B DISP ;OFFSET OR TRANSLATE? ; 6735 = U 0716, 3442,3447,0303,4174,4007,0700,0000,0000,0000 ; 6736 =1110 [AR]_[AR]*.5, J/XLATE ;TRANSLATE U 0717, 3440,3770,0303,7174,0007,0700,0000,0000,0241 ; 6737 FIX [AR] SIGN, WORK[E1] ;IF WE ARE PROCESSING FULL WORD ; 6738 ; BYTES, AND THEY ARE NEGATIVE, ; 6739 ; AND THE OFFSET IS POSITIVE THEN ; 6740 ; WE HAVE TO MAKE BITS -1 AND -2 ; 6741 ; COPIES OF THE SIGN BIT. U 3440, 3441,0551,0303,7274,4007,0700,0000,0000,0241 ; 6742 [AR]_[AR]+WORK[E1], 2T ;OFFSET ; 6743 [AR].AND.WORK[MSK], ;VALID BYTE? ; 6744 SKIP AD.EQ.0, 4T, ;SKIP IF OK U 3441, 0004,4553,0300,7274,4004,1622,0000,0000,0243 ; 6745 RETURN [4] ;RETURN 4 IF BAD, 5 IF OK ; 6746 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 183 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- TRANSLATE ; 6747 .TOC "EXTEND SUBROUTINES -- TRANSLATE" ; 6748 ; 6749 ;HERE WITH BYTE IN AR 1-36. FETCH TABLE ENTRY. U 3442, 3443,0551,0303,7274,4007,0701,0000,0000,0241 ; 6750 XLATE: [AR]_[AR]+WORK[E1] ;COMPUTE ADDRESS ; 6751 TRNAR: READ [AR], LOAD VMA, ;FETCH WORD U 3443, 2264,3333,0003,4174,4007,0700,0200,0004,0012 ; 6752 START READ ; .. ; 6753 =0 [AR]_[AR]*2, ;GET BACK LSB ; 6754 ;BIT 36 IS NOT PRESERVED ; 6755 ; BY PAGE FAILS U 2264, 3661,3445,0303,4174,4007,0700,0010,0000,0000 ; 6756 CALL [LOADARX] ;PUT ENTRY IN ARX U 2265, 2266,4553,0300,4374,4007,0331,0000,0000,0001 ; 6757 TR [AR], #/1 ;WHICH HALF? ; 6758 =0 ; 6759 XLATE1: [AR]_[ARX], 3T, ;RH -- COPY TO AR ; 6760 DISP/DP LEFT, ;DISPATCH ON CODE U 2266, 0721,3441,0403,4174,4003,1701,0000,0000,0000 ; 6761 J/TRNFNC ;DISPATCH TABLE ; 6762 [ARX]_[ARX] SWAP, ;LH -- FLIP AROUND U 2267, 2266,3770,0404,4344,4007,0700,0000,0000,0000 ; 6763 J/XLATE1 ;START SHIFT ; 6764 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 184 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- TRANSLATE ; 6765 ;HERE ON TRANSLATE OPERATION TO PERFORM FUNCTIONS REQUIRED BY ; 6766 ; THE 3 HIGH ORDER BITS OF THE TRANSLATE FUNCTION HALFWORD. WE ; 6767 ; DISPATCH ON FUNCTION AND HAVE: ; 6768 ; BRX/ FLAGS ; 6769 ; ARX/ TABLE ENTRY IN RH ; 6770 ; ; 6771 =0001 ; 6772 ;(0) NOP ; 6773 TRNFNC: READ [BRX], SKIP DP0, ;S FLAG ALREADY SET? U 0721, 2270,3333,0006,4174,4007,0520,0000,0000,0000 ; 6774 J/TRNRET ; .. ; 6775 ;(1) ABORT U 0723, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 6776 RETURN [4] ; 6777 ;(2) CLEAR M FLAG ; 6778 [BRX]_[BRX].AND.NOT.#, ; 6779 #/100000, HOLD RIGHT, U 0725, 0721,5551,0606,4374,0007,0700,0000,0010,0000 ; 6780 J/TRNFNC ; 6781 ;(3) SET M FLAG ; 6782 [BRX]_[BRX].OR.#, ; 6783 #/100000, HOLD RIGHT, U 0727, 0721,3551,0606,4374,0007,0700,0000,0010,0000 ; 6784 J/TRNFNC ; 6785 ;(4) SET N FLAG ; 6786 TRNSIG: [BRX]_[BRX].OR.#, ; 6787 #/200000, HOLD RIGHT, U 0731, 0721,3551,0606,4374,0007,0700,0000,0020,0000 ; 6788 J/TRNFNC ; 6789 ;(5) SET N FLAG THEN ABORT ; 6790 [BRX]_[BRX].OR.#, ; 6791 #/200000, HOLD RIGHT, U 0733, 0004,3551,0606,4374,0004,1700,0000,0020,0000 ; 6792 RETURN [4] ; 6793 ;(6) CLEAR M THEN SET N ; 6794 [BRX]_[BRX].AND.NOT.#, ; 6795 #/100000, HOLD RIGHT, U 0735, 0731,5551,0606,4374,0007,0700,0000,0010,0000 ; 6796 J/TRNSIG ; 6797 ;(7) SET N AND M ; 6798 [BRX]_[BRX].OR.#, ; 6799 #/300000, HOLD RIGHT, U 0737, 0721,3551,0606,4374,0007,0700,0000,0030,0000 ; 6800 J/TRNFNC ; 6801 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 185 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- TRANSLATE ; 6802 ;HERE TO COMPLETE A TRANSLATE ; 6803 ; 6804 =0 ; 6805 TRNRET: READ [ARX], SKIP DP18, ;S-FLAG IS ZERO ; 6806 B DISP, SKIP DP18, ;SEE IF EDIT OR SIG START U 2270, 0754,3333,0004,4174,4003,7530,0000,0000,0000 ; 6807 J/TRNSS ; .. ; 6808 TRNSS1: [AR]_[ARX].AND.# CLR LH, ;S IS SET, JUST RETURN BYTE U 2271, 0005,4251,0403,4374,4004,1700,0000,0007,7777 ; 6809 #/77777, RETURN [5] ; .. ; 6810 ; 6811 =1100 ; 6812 TRNSS: [AR]_AC[DLEN], ;NO SIG ON MOVE OR D2B U 0754, 0533,3771,0003,1276,6003,7701,0000,0000,1443 ; 6813 B DISP, J/TRNNS1 ;SEE IF D2B ; 6814 [BRX]_[BRX].OR.#, ;SIG START ON MOVE OR D2B ; 6815 #/400000, HOLD RIGHT, U 0755, 2271,3551,0606,4374,0007,0700,0000,0040,0000 ; 6816 J/TRNSS1 ;RETURN BYTE ; 6817 [AR]_WORK[FILL], ;EDIT--NO SIG RETURN FILL U 0756, 0002,3771,0003,7274,4004,1701,0000,0000,0244 ; 6818 RETURN [2] ; .. ; 6819 [AR]_AC[DSTP], ;EDIT--START OF SIG U 0757, 0003,3771,0003,1276,6004,1701,0000,0000,1444 ; 6820 RETURN [3] ; .. ; 6821 ; 6822 =1011 U 0533, 3444,1111,0703,4174,4007,0700,4000,0000,0000 ; 6823 TRNNS1: [AR]_[AR]-1, J/TRNNS2 ;COMPENSATE FOR IGNORING SRC ; 6824 [AR]_WORK[SLEN]+1, ;DEC TO BIN HAS NO DEST LENGTH U 0537, 1074,0551,0703,7274,4007,0701,0000,0000,0242 ; 6825 J/SRCMOD ;JUST UPDATE SRC LENTH ; 6826 TRNNS2: AC[DLEN]_[AR] TEST, ;PUT BACK DLEN AND U 3444, 2272,3770,0303,1174,4007,0520,0400,0000,1443 ; 6827 SKIP DP0 ; SEE WHICH IS NOW SHORTER ; 6828 =0 [AR]_WORK[SLEN], ;DEST IS SHORTER. DO NOT CHANGE U 2272, 1074,3771,0003,7274,4007,0701,0000,0000,0242 ; 6829 J/SRCMOD ; AMOUNT LEFT ; 6830 [AR]_WORK[SLEN]+1, ;GO LOOK AT NEXT BYTE U 2273, 1074,0551,0703,7274,4007,0701,0000,0000,0242 ; 6831 J/SRCMOD ; 6832 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 186 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE ; 6833 .TOC "EXTEND SUBROUTINES -- GET UNMODIFIED SOURCE BYTE" ; 6834 ; 6835 ;CALL: ; 6836 ; GSRC WITH SKIP ON SOURCE LENGTH ; 6837 ; GETSRC IF LENGHT IS OK ; 6838 ;WITH: ; 6839 ; AC1/ SOURCE BYTE POINTER ; 6840 ;RETURNS: ; 6841 ; 1 IF LENGTH RAN OUT ; 6842 ; 2 IF OK (BYTE IN AR) ; 6843 ; ; 6844 =0 ; 6845 GSRC: [AR]_AC[DLEN], ;LENGTH RAN OUT U 2274, 0001,3771,0003,1276,6004,1701,0000,0000,1443 ; 6846 RETURN [1] ;RESTORE AR AND RETURN U 2275, 3445,3771,0003,1276,6007,0701,0000,0000,1441 ; 6847 GETSRC: [AR]_AC[SRCP] ;GET SRC PTR ; 6848 IBP DP, IBP SCAD, ;UPDATE BYTE POINTER U 3445, 0231,3770,0305,4334,4016,7701,0000,0033,6000 ; 6849 SCAD DISP, 3T ;SEE IF OFLOW U 0231, 3447,3441,0503,4174,4007,0700,0000,0000,0000 ; 6850 =01 [AR]_[BR], J/GSRC1 ;NO OFLOW U 0233, 3446,3770,0503,4334,4017,0700,0000,0032,6000 ; 6851 SET P TO 36-S ;RESET P U 3446, 3447,0111,0703,4170,4007,0700,0000,0000,0000 ; 6852 [AR]_[AR]+1, HOLD LEFT ;BUMP Y ; 6853 U 3447, 2276,3440,0303,1174,4007,0700,0400,0000,1441 ; 6854 GSRC1: AC[SRCP]_[AR] ;STORE UPDATED POINTER ; 6855 =0 READ [AR], LOAD BYTE EA,;SETUP TO FIGURE OUT U 2276, 3076,3333,0003,4174,4217,0701,1010,0073,0500 ; 6856 FE_P, 3T, CALL [BYTEAS] ; EFFECTIVE ADDRESS ; 6857 READ [AR], ;LOOK AT POINTER ; 6858 BYTE DISP, ;SEE IF 7 BIT ; 6859 FE_FE.AND.S#, S#/0770, ;MASK OUT P FIELD U 2277, 0340,3333,0003,4174,4006,5701,1000,0051,0770 ; 6860 J/LDB1 ;GO GET THE BYTE ; 6861 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 187 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING ; 6862 .TOC "EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING" ; 6863 ; 6864 ;CALL WITH: ; 6865 ; AR/ BYTE TO STORE ; 6866 ; AC4/ DESTINATION BYTE POINTER ; 6867 ;RETURNS: ; 6868 ; AR & AC4/ UPDATED BYTE POINTER ; 6869 ; ARX/ BYTE TO STORE ; 6870 ; BR/ WORD TO MERGE WITH ; 6871 ; 6 ALWAYS ; 6872 ; U 3450, 2300,3441,0304,4174,4007,0700,0000,0000,0000 ; 6873 PUTDST: [ARX]_[AR] ;SAVE BYTE ; 6874 =0 [AR]_AC[DSTP], ;GET DEST POINTER U 2300, 3451,3771,0003,1276,6007,0701,0010,0000,1444 ; 6875 CALL [IDST] ;BUMP DEST POINTER ; 6876 AD/A+B, A/ARX, B/ARX, ;SHIFT 7-BIT BYTE TO ; 6877 SCAD/A, 3T, ; NATURAL PLACE, AND PUT U 2301, 2241,0113,0404,4174,4007,0701,1000,0077,0000 ; 6878 SCADA/BYTE5, LOAD FE ; INTO FE ; 6879 =0* READ [AR], BYTE DISP, ;GO PUT BYTE IN MEMORY U 2241, 0360,3333,0003,4174,4006,5701,0010,0000,0000 ; 6880 CALL [DPB1] ; .. U 2243, 0006,4443,0000,4174,4004,1700,0000,0000,0000 ; 6881 RETURN [6] ;ALL DONE ; 6882 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 188 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS ; 6883 .TOC "EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS" ; 6884 ; 6885 ; 6886 ;SUBROUTINE TO BUMP DST POINTERS ; 6887 ;CALL WITH: ; 6888 ; AR/ AC[DSTP] ; 6889 ; RETURN 1 WITH UPDATED POINTER STORED ; 6890 ; U 3451, 2304,3770,0305,4334,4016,7701,0000,0033,6000 ; 6891 IDST: IBP DP, IBP SCAD, SCAD DISP, 3T U 2304, 3453,3441,0503,4174,4217,0700,0000,0000,0600 ; 6892 =0* [AR]_[BR], LOAD DST EA, J/IDSTX U 2306, 3452,3770,0503,4334,4017,0700,0000,0032,6000 ; 6893 SET P TO 36-S U 3452, 3453,0111,0703,4170,4217,0700,0000,0000,0600 ; 6894 [AR]_[AR]+1, HOLD LEFT, LOAD DST EA ; 6895 IDSTX: AC[DSTP]_[AR], 3T, ;STORE PTR BACK U 3453, 0230,3440,0303,1174,4006,6701,1400,0073,1444 ; 6896 FE_P, DISP/EAMODE ;SAVE P FOR CMPDST ; 6897 =100* U 0230, 3101,0553,0300,2274,4007,0701,0200,0004,0712 ; 6898 DSTEA: VMA_[AR]+XR, START READ, PXCT BYTE DATA, 3T, J/BYTFET U 0232, 3101,3443,0300,4174,4007,0700,0200,0004,0712 ; 6899 VMA_[AR], START READ, PXCT BYTE DATA, J/BYTFET U 0234, 3454,0553,0300,2274,4007,0701,0200,0004,0612 ; 6900 VMA_[AR]+XR, START READ, PXCT/BIS-DST-EA, 3T, J/DSTIND U 0236, 3454,3443,0300,4174,4007,0700,0200,0004,0612 ; 6901 VMA_[AR], START READ, PXCT/BIS-DST-EA, J/DSTIND ; 6902 U 3454, 3455,3771,0003,4361,5217,0700,0200,0000,0602 ; 6903 DSTIND: MEM READ, [AR]_MEM, HOLD LEFT, LOAD DST EA U 3455, 0230,4443,0000,2174,4006,6700,0000,0000,0000 ; 6904 EA MODE DISP, J/DSTEA ; 6905 ; 6906 ; 6907 ;HERE TO TEST ILLEGAL BITS SET ; 6908 ;CALL WITH: ; 6909 ; SKIP IF ALL BITS LEGAL ; 6910 ; RETURN [4] IF OK, ELSE DO UUO ; 6911 ; ; 6912 3556: ;EXTEND OF 0 COMES HERE U 3556, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 6913 BITCHK: UUO U 3557, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 6914 3557: RETURN [4] ; 6915 ; 6916 ;HERE TO PUT FILL IN [AR] AND WORK[FILL] ; 6917 GTFILL: MEM READ, ;WAIT FOR DATA U 3456, 3457,3771,0003,4365,5007,0700,0200,0000,0002 ; 6918 [AR]_MEM ;PLACE IN AR ; 6919 WORK[FILL]_[AR], ;SAVE FOR LATER U 3457, 0010,3333,0003,7174,4004,1700,0400,0000,0244 ; 6920 RETURN [10] ;RETURN TO CALLER ; 6921 ; 6922 ;SUBROUTINE TO CLEAR FLAGS IN AR ; 6923 CLRFLG: [AR]_[AR].AND.#, ;CLEAR FLAGS IN AR ; 6924 #/000777, ; .. U 3460, 0001,4551,0303,4374,0004,1700,0000,0000,0777 ; 6925 HOLD RIGHT, RETURN [1] ; 6926 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 189 ; EXTEND.MIC[7,3] 11:35 26-JULY-1984 EXTEND -- PAGE FAIL CLEANUP ; 6927 .TOC "EXTEND -- PAGE FAIL CLEANUP" ; 6928 ; 6929 ;BACK UP SOURCE POINTER ; 6930 =0 ; 6931 BACKS: [AR]_AC[SRCP], U 2302, 3473,3771,0003,1276,6007,0701,0010,0000,1441 ; 6932 CALL [BACKBP] ;BACKUP BP U 2303, 2700,3440,0505,1174,4007,0700,0400,0000,1441 ; 6933 AC[SRCP]_[BR], J/CLDISP ; 6934 U 3461, 3462,3771,0003,7274,4007,0701,0000,0000,0214 ; 6935 CMSDST: [AR]_WORK[SV.BRX] ;GET OLD SRC LEN U 3462, 2310,0113,0703,0174,4007,0701,0400,0000,0000 ; 6936 AC_[AR]+1, 3T ;BACK UP ; 6937 ;BACK UP DESTINATION POINTER ; 6938 =0 ; 6939 BACKD: [AR]_AC[DSTP], U 2310, 3473,3771,0003,1276,6007,0701,0010,0000,1444 ; 6940 CALL [BACKBP] U 2311, 2700,3440,0505,1174,4007,0700,0400,0000,1444 ; 6941 AC[DSTP]_[BR], J/CLDISP ; 6942 ; 6943 ;FAILURES DURING MOVE STRING (BACKUP LENGTHS) U 3463, 3464,1771,0003,7274,4007,0701,4000,0000,0242 ; 6944 STRPF: [AR]_-WORK[SLEN] ;GET AMOUNT LEFT ; 6945 STRPF0: [BR]_AC[DLEN], 4T, ;WHICH STRING IS LONGER? U 3464, 2312,3771,0005,1276,6007,0522,0000,0000,1443 ; 6946 SKIP DP0 ; 6947 =0 U 2312, 3466,3440,0303,1174,4007,0700,0400,0000,1443 ; 6948 STRPF1: AC[DLEN]_[AR], J/STPF1A ;SRC LONGER U 2313, 2314,3441,0304,4174,4007,0700,0000,0000,0000 ; 6949 [ARX]_[AR] ;COPY SRC LENGTH ; 6950 =0 [ARX]_[ARX].OR.WORK[SV.BRX], ;REBUILD FLAGS U 2314, 3671,3551,0404,7274,4007,0701,0010,0000,0214 ; 6951 CALL [AC_ARX] ;RESET AC]SLEN] U 2315, 3465,1111,0503,4174,4007,0700,4000,0000,0000 ; 6952 [AR]_[AR]-[BR] ;MAKE DEST LEN ; 6953 STRPF3: AC[DLEN]_[AR], ;PUT BACK DEST LEN U 3465, 2700,3440,0303,1174,4007,0700,0400,0000,1443 ; 6954 J/CLDISP ;DO NEXT CLEANUP ; 6955 U 3466, 3470,0111,0503,4174,4007,0700,0000,0000,0000 ; 6956 STPF1A: [AR]_[AR]+[BR], J/STRPF2 ; 6957 U 3467, 3470,1771,0003,7274,4007,0701,4000,0000,0242 ; 6958 PFDBIN: [AR]_-WORK[SLEN] ;RESTORE LENGTH U 3470, 3471,3551,0303,7274,4007,0701,0000,0000,0214 ; 6959 STRPF2: [AR]_[AR].OR.WORK[SV.BRX] U 3471, 2700,3440,0303,0174,4007,0700,0400,0000,0000 ; 6960 PFGAC0: AC_[AR], J/CLDISP ;PUT BACK SRC LEN AND FLAGS ; 6961 U 3472, 3464,7771,0003,7274,4007,0701,0000,0000,0242 ; 6962 STRPF4: [AR]_.NOT.WORK[SLEN], J/STRPF0 ; 6963 ; 6964 BACKBP: IBP DP, SCAD/A+B, SCADA/BYTE1, SCADB/SIZE, ;P_P+S U 3473, 0001,3770,0305,4334,4014,1700,0000,0043,6000 ; 6965 RETURN [1] ; 6966 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 190 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 TRAPS ; 6967 .TOC "TRAPS" ; 6968 U 3474, 3475,3741,0104,4074,4007,0700,0000,0000,0000 ; 6969 TRAP: [ARX]_PC WITH FLAGS ;SAVE THE PC WHICH CAUSED THE ; 6970 WORK[TRAPPC]_[ARX], ; TRAP U 3475, 2316,3333,0004,7174,4007,0340,0400,0000,0425 ; 6971 SKIP KERNEL ;SEE IF UBR OR EBR ; 6972 =0 [AR]_[AR]+[UBR], ;ADDRESS OF INSTRUCTION ; 6973 MEM READ, ;WAIT FOR PREFETCH TO GET INTO ; 6974 ; THE CACHE. MAY PAGE FAIL BUT ; 6975 ; THAT IS OK ; 6976 START READ, ;START FETCH ; 6977 VMA PHYSICAL, ;ABSOLUTE ADDRESSING U 2316, 3476,0111,1103,4364,4007,0700,0200,0024,1016 ; 6978 J/TRP1 ;JOIN COMMON CODE ; 6979 ; 6980 [AR]_[AR]+[EBR], ;WE COME HERE IN EXEC MODE ; 6981 MEM READ, ;WAIT FOR PREFETCH TO GET INTO ; 6982 ; THE CACHE. MAY PAGE FAIL BUT ; 6983 ; THAT IS OK ; 6984 START READ, ;START FETCH ; 6985 VMA PHYSICAL, ;ABSOLUTE ADDRESSING U 2317, 3476,0111,1003,4364,4007,0700,0200,0024,1016 ; 6986 J/TRP1 ;JOIN COMMON CODE ; 6987 ; 6988 TRP1: MEM READ, [HR]_MEM, ;PLACE INSTRUCTION IN HR U 3476, 3477,3771,0002,4365,5617,0700,0200,0000,0002 ; 6989 LOAD INST ;LOAD IR, XR, @ ; 6990 [HR].AND.#, ;TEST TO SEE IF THIS ; 6991 #/700000, 3T, ; IS A UUO U 3477, 2320,4553,0200,4374,4007,0321,0000,0070,0000 ; 6992 SKIP ADL.EQ.0 ; 6993 =0 CHANGE FLAGS, ;NOT A UUO ; 6994 HOLD USER/1, ;CLEAR TRAP FLAGS U 2320, 2716,4443,0000,4174,4467,0700,0000,0001,0000 ; 6995 J/XCT1 ;DO THE INSTRUCTION U 2321, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 6996 UUO ;DO THE UUO ; 6997 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 191 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES ; 6998 .TOC "IO -- INTERNAL DEVICES" ; 6999 ; 7000 .DCODE D 0700, 1200,1700,4100 ; 7001 700: IOT,AC DISP, J/GRP700 D 0701, 1200,1720,4100 ; 7002 IOT,AC DISP, J/GRP701 ; 7003 .UCODE ; 7004 U 1701, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7005 1701: UUO ;DATAI APR, U 1702, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7006 1702: UUO ;BLKO APR, U 1703, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7007 1703: UUO ;DATAO APR, U 1706, 3502,3771,0005,4304,4007,0701,0000,0000,0000 ; 7008 1706: [BR]_APR, J/APRSZ ;CONSZ APR, U 1707, 3500,3771,0005,4304,4007,0701,0000,0000,0000 ; 7009 1707: [BR]_APR, J/APRSO ;CONSO APR, ; 7010 1710: U 1710, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7011 RDERA: UUO ;BLKI PI, U 1711, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7012 1711: UUO ;DATAI PI, U 1712, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7013 1712: UUO ;BLKO PI, U 1713, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7014 1713: UUO ;DATAO PI, U 1716, 0136,3441,1405,4174,4007,0700,0000,0000,0000 ; 7015 1716: [BR]_[PI], J/CONSZ ;CONSZ PI, U 1717, 3501,3441,1405,4174,4007,0700,0000,0000,0000 ; 7016 1717: [BR]_[PI], J/CONSO ;CONSO PI, ; 7017 ; 7018 1720: U 1720, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7019 GRP701: UUO ;BLKI PAG, U 1726, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7020 1726: UUO ;CONSZ PAG, U 1727, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7021 1727: UUO ;CONSO PAG, ; 7022 ; 7023 ;680I AND CACHE SWEEP STUFF U 1730, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7024 1730: UUO U 1731, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7025 1731: UUO U 1732, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7026 1732: UUO U 1733, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7027 1733: UUO U 1734, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7028 1734: UUO U 1735, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7029 1735: UUO U 1736, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7030 1736: UUO U 1737, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7031 1737: UUO ; 7032 U 3500, 3501,4251,0505,4374,4007,0700,0000,0000,7770 ; 7033 APRSO: [BR]_[BR].AND.# CLR LH, #/7770 U 3501, 0260,4113,0305,4174,4007,0330,0000,0000,0000 ; 7034 CONSO: [BR].AND.[AR], SKIP ADR.EQ.0, J/SKIP ; 7035 U 3502, 0136,4251,0505,4374,4007,0700,0000,0000,7770 ; 7036 APRSZ: [BR]_[BR].AND.# CLR LH, #/7770 ; 7037 136: ;STANDARD LOCATION FOR VERSION INFO, ; 7038 ;ANY UWORD THAT HAS A FREE # FIELD CAN ; 7039 ;BE USED. ; 7040 CONSZ: [BR].AND.[AR], SKIP ADR.EQ.0, J/DONE, ; 7041 MICROCODE RELEASE(MAJOR)/UCR, ;MAJOR VERSION # U 0136, 1400,4113,0305,4174,4007,0330,0000,0000,0020 ; 7042 MICROCODE RELEASE(MINOR)/UCR ;MINOR VERSION # (FOR ID ONLY) ; 7043 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 192 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES ; 7044 1700: ; 7045 GRP700: ; 7046 APRID: [BR]_#, U 1700, 0137,3771,0005,4374,4007,0700,0000,0001,0001 ; 7047 #/4097. ; 7048 137: [BR]_#, ; 7049 MICROCODE OPTION(INHCST)/OPT, ; 7050 MICROCODE OPTION(NOCST)/OPT, ; 7051 MICROCODE OPTION(NONSTD)/OPT, ; 7052 MICROCODE OPTION(UBABLT)/OPT, ; 7053 MICROCODE OPTION(KIPAGE)/OPT, ; 7054 MICROCODE OPTION(KLPAGE)/OPT, ; 7055 MICROCODE VERSION/UCV, ; 7056 HOLD RIGHT, U 0137, 3613,3771,0005,4374,0007,0700,0000,0003,0130 ; 7057 J/RTNREG ; 7058 ; 7059 1704: U 1704, 3503,3771,0005,7274,4007,0701,0000,0000,0230 ; 7060 WRAPR: [BR]_WORK[APR] ; 7061 [BR]_[BR].AND.NOT.#, ;CLEAR THE OLD PIA U 3503, 3504,5551,0505,4370,4007,0700,0000,0000,0007 ; 7062 #/7, HOLD LEFT ; .. U 3504, 3505,4551,0304,4374,4007,0700,0000,0000,0007 ; 7063 [ARX]_[AR].AND.#, #/7 ;PUT NEW PIA IN ARX U 3505, 3506,3111,0405,4174,4007,0700,0000,0000,0000 ; 7064 [BR]_[BR].OR.[ARX] ;PUT NEW PIA IN BR ; 7065 [ARX]_[AR].AND.#, ;MASK THE DATA BITS U 3506, 3507,4551,0304,4374,4007,0700,0000,0000,7760 ; 7066 #/007760 ; DOWN TO ENABLES U 3507, 2322,4553,0300,4374,4007,0331,0000,0010,0000 ; 7067 TR [AR], #/100000 ;WANT TO ENABLE ANY? U 2322, 2323,3111,0405,4174,4007,0700,0000,0000,0000 ; 7068 =0 [BR]_[BR].OR.[ARX] ;YES--SET THEM U 2323, 2324,4553,0300,4374,4007,0331,0000,0004,0000 ; 7069 TR [AR], #/40000 ;WANT TO DISABLE ANY? U 2324, 2325,5111,0405,4174,4007,0700,0000,0000,0000 ; 7070 =0 [BR]_[BR].AND.NOT.[ARX] ;YES--CLEAR THEM U 2325, 3510,3771,0006,4304,4007,0701,0000,0000,0000 ; 7071 [BRX]_APR ;GET CURRENT STATUS U 3510, 2326,4553,0300,4374,4007,0331,0000,0002,0000 ; 7072 TR [AR], #/20000 ;WANT TO CLEAR FLAGS? U 2326, 2327,5111,0406,4174,4007,0700,0000,0000,0000 ; 7073 =0 [BRX]_[BRX].AND.NOT.[ARX] ;YES--CLEAR BITS U 2327, 2330,4553,0300,4374,4007,0331,0000,0001,0000 ; 7074 TR [AR], #/10000 ;WANT TO SET ANY FLAGS? U 2330, 2331,3111,0406,4174,4007,0700,0000,0000,0000 ; 7075 =0 [BRX]_[BRX].OR.[ARX] ;YES--SET FLAGS U 2331, 2332,4553,0300,4374,4007,0331,0000,0003,0000 ; 7076 TR [AR], #/30000 ;ANY CHANGE AT ALL? ; 7077 =0 READ [BRX], ;YES--LOAD NEW FLAGS U 2332, 3513,3333,0006,4174,4007,0700,0000,0000,0000 ; 7078 J/WRAPR2 ;TURN OFF INTERRUPT 8080 U 2333, 3511,3333,0005,4174,4007,0700,0000,0000,0000 ; 7079 WRAPR1: READ [BR] ;FIX DPM TIMING BUG ; 7080 READ [BR], ;ENABLE CONDITIONS U 3511, 3512,3333,0005,4174,4257,0700,0000,0000,0000 ; 7081 SET APR ENABLES ; 7082 WORK[APR]_[BR], ;SAVE FOR RDAPR U 3512, 1400,3333,0005,7174,4007,0700,0400,0000,0230 ; 7083 J/DONE ;ALL DONE ; 7084 ; 7085 WRAPR2: READ [BRX], ;LOAD NEW FLAGS U 3513, 3514,3333,0006,4174,4237,0700,0000,0000,0000 ; 7086 SPEC/APR FLAGS ; .. ; 7087 [BRX]_[BRX].AND.NOT.#, ;CLEAR INTERRUPT THE 8080 U 3514, 3515,5551,0606,4370,4007,0700,0000,0000,2000 ; 7088 #/002000, HOLD LEFT ; FLAG ; 7089 READ [BRX], ;LOAD NEW FLAGS ; 7090 SPEC/APR FLAGS, ; .. U 3515, 2333,3333,0006,4174,4237,0700,0000,0000,0000 ; 7091 J/WRAPR1 ;LOOP BACK ; 7092 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 193 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES ; 7093 1705: U 1705, 3516,3771,0005,7274,4007,0701,0000,0000,0230 ; 7094 RDAPR: [BR]_WORK[APR] ; 7095 [BR]_[BR] SWAP, ;PUT ENABLES IN BOTH U 3516, 3517,3770,0505,4344,0007,0700,0000,0000,0000 ; 7096 HOLD RIGHT ; HALVES ; 7097 [BR]_[BR].AND.#, ;SAVE ENABLES IN LH ; 7098 #/7760, ; U 3517, 3520,4551,0505,4374,0007,0700,0000,0000,7760 ; 7099 HOLD RIGHT ; 7100 [BR]_[BR].AND.#, ;SAVE PIA IN RH ; 7101 #/7, U 3520, 3521,4551,0505,4370,4007,0700,0000,0000,0007 ; 7102 HOLD LEFT U 3521, 3522,3771,0004,4304,4007,0701,0000,0000,0000 ; 7103 [ARX]_APR ;READ THE APR FLAGS ; 7104 [ARX]_[ARX].AND.# CLR LH, ;MASK OUT JUNK U 3522, 3523,4251,0404,4374,4007,0700,0000,0000,7770 ; 7105 #/007770 ;KEEP 8 FLAGS ; 7106 [BR]_[BR].OR.[ARX], ;MASH THE STUFF TOGETHER U 3523, 3613,3111,0405,4174,4007,0700,0000,0000,0000 ; 7107 J/RTNREG ;RETURN ; 7108 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 194 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- EBR & UBR ; 7109 .TOC "IO -- INTERNAL DEVICES -- EBR & UBR" ; 7110 ; 7111 ;UBR FORMAT: ; 7112 ;BITS 0 & 2 LOAD FLAGS (RETURNED ON RDUBR) ; 7113 ;BITS 3 - 5 ZERO ; 7114 ;BITS 6 -11 AC BLOCKS SELECTED - CUR,PREV ; 7115 ;BITS 16 -35 UPT PHYSICAL ADDRESS ; 7116 ; 7117 1723: ; 7118 WRUBR: VMA_[AR], ;LOAD E INTO VMA U 1723, 3524,3443,0300,4174,4007,0700,0200,0004,0012 ; 7119 START READ ;START MEMORY ; 7120 MEM READ, ;WAIT FOR DATA ; 7121 [AR]_MEM, 3T, ;PUT IT INTO THE AR U 3524, 2334,3771,0003,4365,5007,0521,0200,0000,0002 ; 7122 SKIP DP0 ;SEE IF WE WANT TO LOAD ; 7123 ; AC BLOCK NUMBERS ; 7124 ; 7125 =0 [AR]_[AR].AND.#, ;NO--CLEAR JUNK IN AR (ALL BUT LD UBR) ; 7126 #/100000, ; LEAVE ONLY LOAD UBR ; 7127 HOLD RIGHT, ; IN LEFT HALF ; 7128 SKIP ADL.EQ.0, 3T, ;SEE IF WE WANT TO LOAD UBR U 2334, 2336,4551,0303,4374,0007,0321,0000,0010,0000 ; 7129 J/ACBSET ;SKIP AROUND UBR LOAD ; 7130 ; 7131 ;HERE WHEN WE WANT TO LOAD AC BLOCK SELECTION ; 7132 [UBR]_[UBR].AND.#, ;MASK OUT THE UBR'S OLD ; 7133 #/770077, ; AC BLOCK NUMBERS U 2335, 3525,4551,1111,4374,0007,0700,0000,0077,0077 ; 7134 HOLD RIGHT ;IN THE LEFT HALF ; 7135 ; 7136 [AR]_[AR].AND.#, ;CLEAR ALL BUT NEW SELECTION ; 7137 #/507700, ;AND LOAD BITS U 3525, 3526,4551,0303,4374,0007,0700,0000,0050,7700 ; 7138 HOLD RIGHT ;IN AR LEFT ; 7139 ; 7140 [AR].AND.#, ;SEE IF WE WANT TO LOAD ; 7141 #/100000, 3T, ; UBR ALSO U 3526, 2336,4553,0300,4374,4007,0321,0000,0010,0000 ; 7142 SKIP ADL.EQ.0 ; 7143 ; 7144 ;HERE WITH AR LEFT = NEW AC BLOCKS OR ZERO, ; 7145 ;SKIP IF DON'T LOAD UBR ; 7146 =0 ; 7147 ACBSET: [BR]_[AR].AND.#, ;COPY UBR PAGE NUMBER ; 7148 #/3777, ; INTO BR U 2336, 3527,4551,0305,4374,4007,0700,0000,0000,3777 ; 7149 J/SETUBR ;GO LOAD UBR ; 7150 ; 7151 [UBR]_[UBR].OR.[AR], ;DO NOT LOAD UBR ; 7152 ; PUT AC BLOCK # IN ; 7153 HOLD RIGHT, ; THE LEFT HALF ; 7154 LOAD AC BLOCKS, ;LOAD HARDWARE U 2337, 1400,3111,0311,4174,0477,0700,0000,0000,0000 ; 7155 J/DONE ;ALL DONE ; 7156 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 195 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- EBR & UBR ; 7157 ;HERE WITH AR LEFT AS BEFORE, AR RIGHT = MASKED PAGE # ; 7158 SETUBR: [BR]_0, ;CLEAR BR LEFT ; 7159 HOLD RIGHT, ;BR IS 0,,PAGE # U 3527, 2340,4221,0005,4174,0007,0700,2000,0071,0007 ; 7160 SC_7 ;PUT THE COUNT IN SC ; 7161 =0 ; 7162 STUBRS: [BR]_[BR]*2, ;SHIFT BR OVER ; 7163 STEP SC, ; 9 PLACES U 2340, 2340,3445,0505,4174,4007,0630,2000,0060,0000 ; 7164 J/STUBRS ;PRODUCING UPT ADDRESS ; 7165 ; 7166 [UBR]_[UBR].AND.#, ;MASK OUT OLD UBR ; 7167 #/777774, ; BITS IN U 2341, 3530,4551,1111,4374,0007,0700,0000,0077,7774 ; 7168 HOLD RIGHT ; LEFT HALF ; 7169 ; 7170 [UBR]_0, ;CLEAR RIGHT HALF U 3530, 3531,4221,0011,4170,4007,0700,0000,0000,0000 ; 7171 HOLD LEFT ;UBR IS FLGS+ACBLK+0,,0 ; 7172 U 3531, 3532,3111,0511,4174,4007,0700,0000,0000,0000 ; 7173 [UBR]_[UBR].OR.[BR] ;PUT IN PAGE TABLE ADDRESS ; 7174 ; 7175 [UBR]_[UBR].OR.[AR], ;PUT IN AC BLOCK # ; 7176 HOLD RIGHT, ; IN LEFT HALF ; 7177 LOAD AC BLOCKS, ;TELL HARDWARE U 3532, 2406,3111,0311,4174,0477,0700,0000,0000,0000 ; 7178 J/SWEEP ;CLEAR CACHE ; 7179 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 196 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- EBR & UBR ; 7180 1724: U 1724, 2342,3445,0303,4174,4007,0700,2000,0071,0006 ; 7181 WREBR: [AR]_[AR]*2, SC_6 ;DO A SHIFT OVER 8 MORE ; 7182 =0 U 2342, 2342,3445,0303,4174,4007,0630,2000,0060,0000 ; 7183 WREBR1: [AR]_[AR]*2, STEP SC, J/WREBR1 ;SKIP WHEN = -1 ; 7184 .IF/FULL ;DO NOT ENABLE PAGING IN SMALL ; 7185 ; MICROCODE. U 2343, 3533,3771,0005,7274,4007,0701,0000,0000,0230 ; 7186 [BR]_WORK[APR] U 3533, 3534,4551,0505,4370,4007,0700,0000,0074,7777 ; 7187 [BR]_[BR].AND.#, #/747777, HOLD LEFT U 3534, 2344,4553,0300,4374,4007,0321,0000,0000,0020 ; 7188 [AR].AND.#, #/20, 3T, SKIP ADL.EQ.0 ;BIT 22 - TRAP ENABLE U 2344, 2345,3551,0505,4370,4007,0700,0000,0003,0000 ; 7189 =0 [BR]_[BR].OR.#, #/030000, HOLD LEFT ;SET - ALLOW TRAPS TO HAPPEN U 2345, 3535,3333,0005,4174,4257,0700,0000,0000,0000 ; 7190 READ [BR], SET APR ENABLES U 3535, 3536,3333,0005,7174,4007,0700,0400,0000,0230 ; 7191 WORK[APR]_[BR] ; 7192 .ENDIF/FULL ; 7193 ; 7194 .IF/KIPAGE ; 7195 .IF/KLPAGE U 3536, 3537,3441,0310,4174,4007,0700,0000,0000,0000 ; 7196 [EBR]_[AR] ;NOTE: SHIFTED LEFT 9 BITS U 3537, 2346,4553,1000,4374,4007,0321,0000,0000,0040 ; 7197 [EBR].AND.#, #/40, 3T, SKIP ADL.EQ.0 ;BIT 21 - KL PAGING ENABLE U 2346, 2406,3551,1010,4374,0007,0700,0000,0040,0000 ; 7198 =0 [EBR]_[EBR].OR.#, #/400000, HOLD RIGHT, J/SWEEP ;YES, SET INTERNAL FLAG U 2347, 2406,5551,1010,4374,0007,0700,0000,0040,0000 ; 7199 [EBR]_[EBR].AND.NOT.#, #/400000, HOLD RIGHT, J/SWEEP ;NO, CLR BIT 0 ; 7200 .ENDIF/KLPAGE ; 7201 .ENDIF/KIPAGE ; 7202 ;;7203 .IFNOT/KLPAGE ;MUST BE KI ONLY ;;7204 [EBR]_[AR],J/SWEEP ;SO INTERNAL FLAG ISN'T USED ; 7205 .ENDIF/KLPAGE ; 7206 ;;7207 .IFNOT/KIPAGE ;MUST BE KL ONLY ;;7208 [EBR]_[AR],J/SWEEP ;SO INTERNAL FLAG ISN'T USED ; 7209 .ENDIF/KIPAGE ; 7210 ; 7211 1725: U 1725, 2350,3447,1005,4174,4007,0700,2000,0071,0006 ; 7212 RDEBR: [BR]_[EBR]*.5, SC_6 ; 7213 =0 U 2350, 2350,3447,0505,4174,4007,0630,2000,0060,0000 ; 7214 RDEBR1: [BR]_[BR]*.5, STEP SC, J/RDEBR1 U 2351, 3540,4551,0505,4374,4007,0700,0000,0006,3777 ; 7215 [BR]_[BR].AND.#, #/63777 ;MASK TO JUST EBR ; 7216 [BR]_0, ;CLEAR LEFT HALF ; 7217 HOLD RIGHT, ; BITS U 3540, 3613,4221,0005,4174,0007,0700,0000,0000,0000 ; 7218 J/RTNREG ;RETURN ANSWER ; 7219 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 197 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- EBR & UBR ; 7220 1721: U 1721, 2352,4551,1105,4374,0007,0700,0000,0050,7700 ; 7221 RDUBR: [BR]_[UBR].AND.#,#/507700,HOLD RIGHT ;GET LOAD BITS AND AC BLOCKS U 2352, 2354,3447,1106,4174,4007,0700,2010,0071,0006 ; 7222 =0 [BRX]_[UBR]*.5, SC_6, CALL [GTPCW1] ;SET SC (9) START SHIFT,GET UBR ; 7223 VMA_[AR],START WRITE, ;START TO U 2353, 3614,3443,0300,4174,4007,0700,0200,0003,0012 ; 7224 J/RTNRG1 ;RETURN DATA ; 7225 ; 7226 U 3541, 3542,4551,1105,4374,0007,0700,0000,0050,7700 ; 7227 GETPCW: [BR]_[UBR].AND.#,#/507700,HOLD RIGHT ;GET LOAD BITS AND AC BLOCKS U 3542, 2354,3447,1106,4174,4007,0700,2000,0071,0006 ; 7228 [BRX]_[UBR]*.5, SC_6 ;SET SC (9) START SHIFT ; 7229 ; 7230 =0 U 2354, 2354,3447,0606,4174,4007,0630,2000,0060,0000 ; 7231 GTPCW1: [BRX]_[BRX]*.5, STEP SC, J/GTPCW1 ;SHIFT UBR ADDR TO PAGE # U 2355, 3543,4551,0606,4374,4007,0700,0000,0000,3777 ; 7232 [BRX]_[BRX].AND.#, #/3777 ;ONLY PAGE # U 3543, 0001,3441,0605,4170,4004,1700,0000,0000,0000 ; 7233 [BR]_[BRX], HOLD LEFT, RETURN [1] ;MOVE PAGE # TO RH OF RESULT ; 7234 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 198 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- KL PAGING REGISTERS ; 7235 .TOC "IO -- INTERNAL DEVICES -- KL PAGING REGISTERS" ; 7236 ; 7237 .DCODE D 0702, 1216,1760,4700 ; 7238 702: IOT,AC DISP, M, J/GRP702 ; 7239 .UCODE ; 7240 ; 7241 1760: ; 7242 GRP702: U 1760, 3613,3771,0005,7274,4007,0701,0000,0000,0215 ; 7243 RDSPB: [BR]_WORK[SBR], J/RTNREG ; 7244 1761: U 1761, 3613,3771,0005,7274,4007,0701,0000,0000,0216 ; 7245 RDCSB: [BR]_WORK[CBR], J/RTNREG ; 7246 1762: U 1762, 3613,3771,0005,7274,4007,0701,0000,0000,0220 ; 7247 RDPUR: [BR]_WORK[PUR], J/RTNREG ; 7248 1763: U 1763, 3613,3771,0005,7274,4007,0701,0000,0000,0217 ; 7249 RDCSTM: [BR]_WORK[CSTM], J/RTNREG ; 7250 1766: U 1766, 3613,3771,0005,7274,4007,0701,0000,0000,0227 ; 7251 RDHSB: [BR]_WORK[HSBADR], J/RTNREG U 1767, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7252 1767: UUO ; 7253 ; 7254 1770: U 1770, 3544,4443,0000,4174,4007,0703,0200,0006,0002 ; 7255 WRSPB: START READ,WRITE TEST,5T ;WAIT FOR (?) WRITE-TEST PF U 3544, 3545,3771,0003,4365,5007,0700,0200,0000,0002 ; 7256 MEM READ, [AR]_MEM U 3545, 1400,3333,0003,7174,4007,0700,0400,0000,0215 ; 7257 WORK[SBR]_[AR], J/DONE ; 7258 1771: U 1771, 3546,4443,0000,4174,4007,0703,0200,0006,0002 ; 7259 WRCSB: START READ,WRITE TEST,5T ;WAIT FOR (?) WRITE-TEST PF U 3546, 3547,3771,0003,4365,5007,0700,0200,0000,0002 ; 7260 MEM READ, [AR]_MEM U 3547, 1400,3333,0003,7174,4007,0700,0400,0000,0216 ; 7261 WORK[CBR]_[AR], J/DONE ; 7262 1772: U 1772, 3550,4443,0000,4174,4007,0703,0200,0006,0002 ; 7263 WRPUR: START READ,WRITE TEST,5T ;WAIT FOR (?) WRITE-TEST PF U 3550, 3551,3771,0003,4365,5007,0700,0200,0000,0002 ; 7264 MEM READ, [AR]_MEM U 3551, 1400,3333,0003,7174,4007,0700,0400,0000,0220 ; 7265 WORK[PUR]_[AR], J/DONE ; 7266 1773: U 1773, 3552,4443,0000,4174,4007,0703,0200,0006,0002 ; 7267 WRCSTM: START READ,WRITE TEST,5T ;WAIT FOR (?) WRITE-TEST PF U 3552, 3553,3771,0003,4365,5007,0700,0200,0000,0002 ; 7268 MEM READ, [AR]_MEM U 3553, 1400,3333,0003,7174,4007,0700,0400,0000,0217 ; 7269 WORK[CSTM]_[AR], J/DONE ; 7270 1776: U 1776, 3554,4443,0000,4174,4007,0703,0200,0006,0002 ; 7271 WRHSB: START READ,WRITE TEST,5T ;WAIT FOR (?) WRITE-TEST PF U 3554, 3555,3771,0003,4365,5007,0700,0200,0000,0002 ; 7272 MEM READ, [AR]_MEM U 3555, 1400,3333,0003,7174,4007,0700,0400,0000,0227 ; 7273 WORK[HSBADR]_[AR], J/DONE ; 7274 U 1777, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7275 1777: UUO ; 7276 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 199 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- TIMER CONTROL ; 7277 .TOC "IO -- INTERNAL DEVICES -- TIMER CONTROL" ; 7278 ; 7279 ; 7280 ;BEGIN [123] ; 7281 TICK: [AR]_WORK[TIME1], ;GET LOW WORD U 3560, 3561,3771,0003,7274,4117,0701,0000,0000,0301 ; 7282 SPEC/CLRCLK ;CLEAR CLOCK FLAG ; 7283 ;END [123] U 3561, 3562,4751,1205,4374,4007,0700,0000,0001,0000 ; 7284 TOCK: [BR]_0 XWD [10000] ;2^12 UNITS PER MS U 3562, 3563,0111,0503,4174,4007,0700,0000,0000,0000 ; 7285 [AR]_[AR]+[BR] ;INCREMENT THE TIMER U 3563, 2356,3770,0303,4174,0007,0520,0000,0000,0000 ; 7286 FIX [AR] SIGN, SKIP DP0 ;SEE IF IT OVERFLOWED ; 7287 =0 ; 7288 TOCK1: WORK[TIME1]_[AR], ;STORE THE NEW TIME U 2356, 3564,3333,0003,7174,4007,0700,0400,0000,0301 ; 7289 J/TOCK2 ;SKIP OVER THE OVERFLOW CODE U 2357, 2305,3771,0003,7274,4007,0701,0000,0000,0300 ; 7290 [AR]_WORK[TIME0] ;GET HIGH WORD ; 7291 =0* [AR]_[AR]+1, ;BUMP IT U 2305, 3572,0111,0703,4174,4007,0700,0010,0000,0000 ; 7292 CALL [WRTIM1] ;STORE BACK IN RAM ; 7293 [AR]_0, ;CAUSE LOW WORD WORD U 2307, 2356,4221,0003,4174,4007,0700,0000,0000,0000 ; 7294 J/TOCK1 ; TO GET STORED U 3564, 3565,3771,0003,7274,4007,0701,0000,0000,0303 ; 7295 TOCK2: [AR]_WORK[TTG] ; 7296 [AR]_[AR]-[BR], ;COUNT DOWN TIME TO GO U 3565, 2360,1111,0503,4174,4007,0421,4000,0000,0000 ; 7297 SKIP AD.LE.0 ;SEE IF IT TIMED OUT ; 7298 =0 ; 7299 TOCK3: WORK[TTG]_[AR], ;SAVE NEW TIME TO GO U 2360, 0002,3333,0003,7174,4004,1700,0400,0000,0303 ; 7300 RETURN [2] ;ALL DONE U 2361, 3566,3771,0003,7274,4007,0701,0000,0000,0302 ; 7301 [AR]_WORK[PERIOD] U 3566, 3567,3771,0005,4304,4007,0701,0000,0000,0000 ; 7302 [BR]_APR ;GET CURRENT FLAGS U 3567, 3570,3551,0505,4374,4007,0700,0000,0000,0040 ; 7303 [BR]_[BR].OR.#, #/40 ;SET TIMER INTERRUPT FLAG ; 7304 READ [BR], ;PLACE ON DP AND ; 7305 SPEC/APR FLAGS, ; LOAD INTO HARDWARE U 3570, 2360,3333,0005,4174,4237,0700,0000,0000,0000 ; 7306 J/TOCK3 ;ALL DONE ; 7307 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 200 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- WRTIME & RDTIME ; 7308 .TOC "IO -- INTERNAL DEVICES -- WRTIME & RDTIME" ; 7309 ; 7310 1774: U 1774, 3571,4443,0000,4174,4007,0700,0200,0004,0002 ; 7311 WRTIME: START READ ;FETCH WORD AT E ; 7312 MEM READ, ;WAIT FOR DATA U 3571, 1114,3771,0003,4365,5007,0700,0200,0000,0002 ; 7313 [AR]_MEM ;PUT WORD IN AR ; 7314 =00 VMA_[HR]+1, ;BUMP E ; 7315 START READ, ;START MEMORY U 1114, 3661,0111,0702,4170,4007,0700,0210,0004,0012 ; 7316 CALL [LOADARX] ;PUT DATA IN ARX ; 7317 [ARX]_[ARX].AND.#, ;CLEAR PART HELD IN ; 7318 #/770000, ; HARDWARE COUNTER U 1115, 3572,4551,0404,4370,4007,0700,0010,0077,0000 ; 7319 HOLD LEFT, CALL [WRTIM1] ; 7320 =11 WORK[TIME1]_[ARX], ;IN WORK SPACE U 1117, 1400,3333,0004,7174,4007,0700,0400,0000,0301 ; 7321 J/DONE ;NEXT INSTRUCTION ; 7322 = ; 7323 WRTIM1: WORK[TIME0]_[AR], ;SAVE THE NEW VALUE U 3572, 0002,3333,0003,7174,4004,1700,0400,0000,0300 ; 7324 RETURN [2] ; 7325 ; 7326 1764: U 1764, 3573,4451,1205,4324,4007,0700,0000,0000,0000 ; 7327 RDTIME: [BR]_TIME ;READ THE TIME U 3573, 3574,4451,1204,4324,4007,0700,0000,0000,0000 ; 7328 [ARX]_TIME ; AGAIN U 3574, 3575,4451,1206,4324,4007,0700,0000,0000,0000 ; 7329 [BRX]_TIME ; AGAIN ; 7330 [BR].XOR.[ARX], ;SEE IF STABLE U 3575, 2362,6113,0405,4174,4007,0621,0000,0000,0000 ; 7331 SKIP AD.EQ.0 ; .. U 2362, 2363,3441,0604,4174,4007,0700,0000,0000,0000 ; 7332 =0 [ARX]_[BRX] ;NO THEN NEXT TRY MUST BE OK U 2363, 3576,3771,0005,7274,4007,0701,0000,0000,0300 ; 7333 [BR]_WORK[TIME0] ; 7334 [ARX]_[ARX]+WORK[TIME1], ;COMBINE PARTS U 3576, 1120,0551,0404,7274,4007,0671,0000,0000,0301 ; 7335 SKIP/-1 MS ;SEE IF OVERFLOW HAPPENED ; 7336 =00 SPEC/CLRCLK, ;CLEAR CLOCK FLAG ; 7337 [AR]_WORK[TIME1], 2T, ;GET LOW WORD FOR TOCK U 1120, 3561,3771,0003,7274,4117,0700,0010,0000,0301 ; 7338 CALL [TOCK] ;UPDATE CLOCKS ; 7339 READ [HR], LOAD VMA, ;DID NOT OVERFLOW U 1121, 3577,3333,0002,4174,4007,0700,0200,0003,0012 ; 7340 START WRITE, J/RDTIM1 ;STORE ANSWER U 1122, 1764,4443,0000,4174,4007,0700,0000,0000,0000 ; 7341 J/RDTIME ;TRY AGAIN ; 7342 = U 3577, 3600,3333,0005,4175,5007,0701,0200,0000,0002 ; 7343 RDTIM1: MEM WRITE, MEM_[BR] U 3600, 3601,0111,0702,4170,4007,0700,0200,0003,0012 ; 7344 VMA_[HR]+1, LOAD VMA, START WRITE U 3601, 1400,3333,0004,4175,5007,0701,0200,0000,0002 ; 7345 MEM WRITE, MEM_[ARX], J/DONE ; 7346 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 201 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- WRINT & RDINT ; 7347 .TOC "IO -- INTERNAL DEVICES -- WRINT & RDINT" ; 7348 ; 7349 ; 7350 1775: U 1775, 3602,4443,0000,4174,4007,0700,0200,0004,0002 ; 7351 WRINT: START READ U 3602, 3603,3771,0003,4365,5007,0700,0200,0000,0002 ; 7352 MEM READ, [AR]_MEM U 3603, 3604,3333,0003,7174,4007,0700,0400,0000,0302 ; 7353 WORK[PERIOD]_[AR] ; 7354 WORK[TTG]_[AR], U 3604, 1400,3333,0003,7174,4007,0700,0400,0000,0303 ; 7355 J/DONE ; 7356 ; 7357 1765: ; 7358 RDINT: [BR]_WORK[PERIOD], U 1765, 3613,3771,0005,7274,4007,0701,0000,0000,0302 ; 7359 J/RTNREG ; 7360 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 202 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- RDPI & WRPI ; 7361 .TOC "IO -- INTERNAL DEVICES -- RDPI & WRPI" ; 7362 ; 7363 1715: U 1715, 3613,3441,1405,4174,4007,0700,0000,0000,0000 ; 7364 RDPI: [BR]_[PI], J/RTNREG ; 7365 ; 7366 1714: U 1714, 2364,4553,0300,4374,4007,0331,0000,0001,0000 ; 7367 WRPI: TR [AR], PI.CLR/1 U 2364, 2365,4221,0014,4174,4007,0700,0000,0000,0000 ; 7368 =0 [PI]_0 U 2365, 2366,4553,0300,4374,4007,0331,0000,0074,0000 ; 7369 TR [AR], PI.MBZ/17 U 2366, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7370 =0 UUO U 2367, 3605,4551,0305,4374,4007,0700,0000,0000,0177 ; 7371 [BR]_[AR].AND.#,#/177 U 3605, 3606,3770,0505,4344,0007,0700,0000,0000,0000 ; 7372 [BR]_[BR] SWAP, HOLD RIGHT U 3606, 2370,4553,0300,4374,4007,0331,0000,0002,0000 ; 7373 TR [AR], PI.DIR/1 U 2370, 2371,5111,0514,4174,0007,0700,0000,0000,0000 ; 7374 =0 [PI]_[PI].AND.NOT.[BR], HOLD RIGHT U 2371, 2372,4553,0300,4374,4007,0331,0000,0000,4000 ; 7375 TR [AR], PI.REQ/1 U 2372, 2373,3111,0514,4174,0007,0700,0000,0000,0000 ; 7376 =0 [PI]_[PI].OR.[BR], HOLD RIGHT U 2373, 2374,4553,0300,4374,4007,0331,0000,0000,0200 ; 7377 TR [AR], PI.TSN/1 U 2374, 2375,3551,1414,4370,4007,0700,0000,0000,0200 ; 7378 =0 [PI]_[PI].OR.#,PI.ON/1, HOLD LEFT U 2375, 2376,4553,0300,4374,4007,0331,0000,0000,0400 ; 7379 TR [AR], PI.TSF/1 U 2376, 2377,5551,1414,4370,4007,0700,0000,0000,0200 ; 7380 =0 [PI]_[PI].AND.NOT.#,PI.ON/1, HOLD LEFT U 2377, 2400,4553,0300,4374,4007,0331,0000,0000,2000 ; 7381 TR [AR], PI.TCN/1 U 2400, 2401,3111,0514,4170,4007,0700,0000,0000,0000 ; 7382 =0 [PI]_[PI].OR.[BR], HOLD LEFT U 2401, 0304,4553,0300,4374,4007,0331,0000,0000,1000 ; 7383 TR [AR], PI.TCF/1 U 0304, 0305,5111,0514,4170,4007,0700,0000,0000,0000 ; 7384 =0**0 [PI]_[PI].AND.NOT.[BR], HOLD LEFT U 0305, 3610,3770,1416,4344,4007,0700,0010,0000,0000 ; 7385 PIEXIT: CALL LOAD PI ; 7386 =1**1 U 0315, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 7387 DONE ; 7388 = ; 7389 ; 7390 ;SUBROUTINE TO LOAD PI HARDWARE ; 7391 ;CALL WITH: ; 7392 ; CALL LOAD PI ; 7393 ;RETURNS 10 WITH PI HARDWARE LOADED ; 7394 ; U 3607, 3610,3770,1416,4344,4007,0700,0000,0000,0000 ; 7395 LOADPI: [T0]_[PI] SWAP ;PUT ACTIVE CHANS IN LH U 3610, 3611,2441,0716,4170,4007,0700,4000,0000,0000 ; 7396 LDPI2: [T0]_-1, HOLD LEFT ;DONT MASK RH U 3611, 3612,4111,1416,4174,4007,0700,0000,0000,0000 ; 7397 [T0]_[T0].AND.[PI] ;ONLY REQUEST CHANS THAT ARE ON ; 7398 .NOT.[T0], LOAD PI, ;RELOAD HARDWARE U 3612, 0010,7443,1600,4174,4434,1700,0000,0000,0000 ; 7399 RETURN [10] ;RETURN TO CALLER ; 7400 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 203 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7401 .TOC "IO -- INTERNAL DEVICES -- SUBROUTINES" ; 7402 ; 7403 ; 7404 ;HERE WITH SOMETHING IN BR STORE IT @AR U 3613, 3614,3443,0300,4174,4007,0700,0200,0003,0012 ; 7405 RTNREG: VMA_[AR], START WRITE U 3614, 1400,3333,0005,4175,5007,0701,0200,0000,0002 ; 7406 RTNRG1: MEM WRITE, MEM_[BR], J/DONE ; 7407 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 204 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7408 ;CACHE SWEEP ; 7409 ; 7410 1722: ; 7411 CLRPT: VMA_[AR], ;PUT CORRECT ADDRESS IN VMA U 1722, 3615,3443,0300,4174,4147,0700,0200,0000,0010 ; 7412 LOAD PAGE TABLE ;GET SET TO WRITE PAGE TABLE U 3615, 2402,4221,0003,4174,4007,0700,0000,0000,0000 ; 7413 [AR]_0 ;CLEAR ENTRY ; 7414 =0 [AR]_#,#/377377, ;INITIAL VMA VALUE U 2402, 3621,3771,0003,4374,4007,0700,0010,0037,7377 ; 7415 CALL [SSWEEP] ;LOAD THE SC ; 7416 [BR]_#, #/1001, ;CONSTANT TO KEEP ADDING U 2403, 3616,3771,0005,4374,4247,0700,0000,0000,1001 ; 7417 CLRCSH ;START TO CLEAR CACHE U 3616, 2404,3333,0003,4174,4247,0700,0000,0000,1000 ; 7418 READ [AR], CLRCSH ;FIRST THING TO CLEAR ; 7419 =0 ; 7420 CLRPTL: [AR]_[AR]-[BR], ;UPDATE AR (AND PUT ON DP) ; 7421 CLRCSH, ;SWEEP ON NEXT STEP ; 7422 STEP SC, ;SKIP IF WE ARE DONE U 2404, 2404,1111,0503,4174,4247,0630,6000,0060,1000 ; 7423 J/CLRPTL ;LOOP FOR ALL ENTRIES U 2405, 2411,3333,0003,4174,4007,0700,0000,0000,0000 ; 7424 READ [AR], J/ZAPPTA ;CLEAR LAST ENTRY ; 7425 ; 7426 =0 ; 7427 SWEEP: [AR]_#,#/377377, ;INITIAL VMA VALUE U 2406, 3621,3771,0003,4374,4007,0700,0010,0037,7377 ; 7428 CALL [SSWEEP] ;LOAD NUMBER OF STEPS INTO SC ; 7429 [BR]_#, #/1001, ;CONSTANT TO KEEP ADDING U 2407, 3617,3771,0005,4374,4347,0700,0000,0000,1001 ; 7430 SWEEP ;START SWEEP U 3617, 2410,3333,0003,4174,4347,0700,0000,0000,1000 ; 7431 READ [AR], SWEEP ;FIRST THING TO CLEAR ; 7432 =0 ; 7433 SWEEPL: [AR]_[AR]-[BR], ;UPDATE AR (AND PUT ON DP) ; 7434 SWEEP, ;SWEEP ON NEXT STEP ; 7435 STEP SC, ;SKIP IF WE ARE DONE U 2410, 2410,1111,0503,4174,4347,0630,6000,0060,1000 ; 7436 J/SWEEPL ;LOOP FOR ALL ENTRIES ; 7437 ;CLEAR LAST ENTRY AND U 2411, 3620,4223,0000,7174,4007,0700,0400,0000,0424 ; 7438 ZAPPTA: WORK[PTA.U]_0 ; FORGET PAGE TABLE ADDRESS ; 7439 WORK[PTA.E]_0, ;FORGET PAGE TABLE ADDRESS U 3620, 1400,4223,0000,7174,4007,0700,0400,0000,0423 ; 7440 J/DONE ;ALL DONE ; 7441 ; 7442 SSWEEP: SC_S#, S#/375, ;NUMBER OF STEPS U 3621, 0001,4443,0000,4174,4004,1700,2000,0071,0375 ; 7443 RETURN [1] ;RETURN ; 7444 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 205 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7445 ;WE COME HERE EITHER FROM NEXT INSTRUCTION DISPATCH OR PAGE FAIL ; 7446 ; LOGIC. IN ALL CASES, THE CURRENT INSTRUCTION IS CORRECTLY SETUP ; 7447 ; TO RESTART PROPERLY. ; 7448 ; 7449 ;FIRST SET THE CORRECT PI IN PROGRESS BIT ; 7450 ; [FLG]_[FLG].OR.#,FLG.PI/1, HOLD RIGHT, ; 7451 ; J/PI ;SET PI CYCLE AND PROCESS PI ; 7452 =1000 ; 7453 PI: AD/D, DBUS/PI NEW, ;LOOK AT NEW LEVEL ; 7454 DISP/DP LEFT, 3T, ;DISPATCH ON IT U 0770, 0770,3773,0000,4074,4003,1701,0000,0000,0000 ; 7455 J/PI ;GO TO 1 OF NEXT 7 PLACES U 0771, 3622,3551,1414,4370,4007,0700,0000,0004,0000 ; 7456 =1001 [PI]_[PI].OR.#, #/040000, HOLD LEFT, J/PIP1 U 0772, 3623,3551,1414,4370,4007,0700,0000,0002,0000 ; 7457 =1010 [PI]_[PI].OR.#, #/020000, HOLD LEFT, J/PIP2 U 0773, 3624,3551,1414,4370,4007,0700,0000,0001,0000 ; 7458 =1011 [PI]_[PI].OR.#, #/010000, HOLD LEFT, J/PIP3 U 0774, 3625,3551,1414,4370,4007,0700,0000,0000,4000 ; 7459 =1100 [PI]_[PI].OR.#, #/004000, HOLD LEFT, J/PIP4 U 0775, 3626,3551,1414,4370,4007,0700,0000,0000,2000 ; 7460 =1101 [PI]_[PI].OR.#, #/002000, HOLD LEFT, J/PIP5 U 0776, 3627,3551,1414,4370,4007,0700,0000,0000,1000 ; 7461 =1110 [PI]_[PI].OR.#, #/001000, HOLD LEFT, J/PIP6 U 0777, 3630,3551,1414,4370,4007,0700,0000,0000,0400 ; 7462 =1111 [PI]_[PI].OR.#, #/000400, HOLD LEFT, J/PIP7 U 3622, 3631,4751,1206,4374,4007,0700,0000,0000,0001 ; 7463 PIP1: [BRX]_0 XWD [1], J/PI10 ;REMEMBER WE ARE AT LEVEL 1 U 3623, 3631,4751,1206,4374,4007,0700,0000,0000,0002 ; 7464 PIP2: [BRX]_0 XWD [2], J/PI10 ;REMEMBER WE ARE AT LEVEL 2 U 3624, 3631,4751,1206,4374,4007,0700,0000,0000,0003 ; 7465 PIP3: [BRX]_0 XWD [3], J/PI10 ;REMEMBER WE ARE AT LEVEL 3 U 3625, 3631,4751,1206,4374,4007,0700,0000,0000,0004 ; 7466 PIP4: [BRX]_0 XWD [4], J/PI10 ;REMEMBER WE ARE AT LEVEL 4 U 3626, 3631,4751,1206,4374,4007,0700,0000,0000,0005 ; 7467 PIP5: [BRX]_0 XWD [5], J/PI10 ;REMEMBER WE ARE AT LEVEL 5 U 3627, 3631,4751,1206,4374,4007,0700,0000,0000,0006 ; 7468 PIP6: [BRX]_0 XWD [6], J/PI10 ;REMEMBER WE ARE AT LEVEL 6 U 3630, 3631,4751,1206,4374,4007,0700,0000,0000,0007 ; 7469 PIP7: [BRX]_0 XWD [7], J/PI10 ;REMEMBER WE ARE AT LEVEL 7 ; 7470 ; 7471 PI10: [AR]_[PI].AND.# CLR LH, ;TURN OFF PI SYSTEM U 3631, 3632,4251,1403,4374,4007,0700,0000,0007,7577 ; 7472 #/077577 ; TILL WE ARE DONE U 3632, 3633,7443,0300,4174,4437,0700,0000,0000,0000 ; 7473 .NOT.[AR], LOAD PI ; .. U 3633, 2412,4223,0000,4364,4277,0700,0200,0000,0010 ; 7474 ABORT MEM CYCLE ;NO MORE TRAPS ; 7475 =0 [AR]_VMA IO READ, ;SETUP TO READ WRU BITS ; 7476 WRU CYCLE/1, ; .. U 2412, 3666,4571,1203,4374,4007,0700,0010,0024,1300 ; 7477 CALL [STRTIO] ;START THE CYCLE ; 7478 MEM READ, ;WAIT FOR DATA ; 7479 [AR]_IO DATA, 3T, ;PUT DATA IN AR U 2413, 2414,3771,0003,4364,4007,0331,0200,0000,0002 ; 7480 SKIP ADR.EQ.0 ;SEE IF ANYONE THERE U 2414, 3642,4221,0004,4174,4007,0700,0000,0000,0000 ; 7481 =0 [ARX]_0, J/VECINT ;YES--VECTORED INTERRUPT U 2415, 3634,3445,0603,4174,4007,0700,0000,0000,0000 ; 7482 [AR]_[BRX]*2 ;N*2 ; 7483 [AR]_[AR]+#, #/40, 3T, ;2*N+40 U 3634, 3635,0551,0303,4370,4007,0701,0000,0000,0040 ; 7484 HOLD LEFT ; .. ; 7485 [AR]_[AR]+[EBR], ;ABSOULTE ADDRESS OF U 3635, 3636,0111,1003,4174,4007,0700,0000,0000,0000 ; 7486 J/PI40 ; INTERRUPT INSTRUCTION ; 7487 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 206 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7488 ;HERE WITH ABSOLUTE ADDRESS OF INTERRUPT INSTRUCTION IN [AR] U 3636, 3637,3443,0300,4174,4007,0700,0200,0024,1016 ; 7489 PI40: VMA_[AR], VMA PHYSICAL READ ;FETCH THE INSTRUCTION ; 7490 PI50: MEM READ, [AR]_MEM, LOAD VMA, ;FETCH INSTRUCTION U 3637, 3640,3771,0003,4365,5007,0701,0200,0020,0012 ; 7491 3T, FORCE EXEC ;E IS EXEC MODE U 3640, 2416,6553,0300,4374,4007,0321,0000,0025,4340 ; 7492 [AR].XOR.#, #/254340, 3T, SKIP ADL.EQ.0 U 2416, 2420,6553,0300,4374,4007,0321,0000,0026,4000 ; 7493 =0 [AR].XOR.#, #/264000, SKIP ADL.EQ.0, 3T, J/PIJSR U 2417, 3641,4521,1205,4074,4007,0700,0000,0000,0000 ; 7494 [BR]_FLAGS ;SAVE FLAGS ; 7495 AD/ZERO, LOAD FLAGS, U 3641, 0060,4223,0000,4174,4467,0700,0000,0000,0004 ; 7496 J/PIXPCW ;ENTER EXEC MODE AND ASSUME ; 7497 ; WE HAVE AN XPCW ; 7498 ;IF WE HALT HERE ON A VECTORED INTERRUPT, WE HAVE ; 7499 ; T0/ WHAT WE READ FROM BUS AS VECTOR ; 7500 ; ARX/ EPT+100+DEVICE ; 7501 ; BR/ ADDRESS OF ILLEGAL INSTRUCTION ; 7502 ; BRX/ VECTOR (MASKED AND SHIFTED) ; 7503 =0 U 2420, 0104,4751,1217,4374,4007,0700,0000,0000,0101 ; 7504 PIJSR: HALT [ILLII] ;NOT A JSR OR XPCW U 2421, 0470,4443,0000,4174,4007,0700,0200,0023,0002 ; 7505 START WRITE, FORCE EXEC ;PREPARE TO STORE OLD PC ; 7506 =0*0 [BR]_PC WITH FLAGS, ;OLD PC U 0470, 3667,3741,0105,4074,4007,0700,0010,0000,0000 ; 7507 CALL [STOBR] ;STORE OLD PC ; 7508 =1*0 [AR]_#, #/0, HOLD RIGHT, ;PREPARE TO CLEAR FLAGS U 0474, 3664,3771,0003,4374,0007,0700,0010,0000,0000 ; 7509 CALL [INCAR] ;BUMP POINTER ; 7510 =1*1 [PC]_[AR], LOAD FLAGS, ;NEW PC U 0475, 2714,3441,0301,4174,4467,0700,0000,0000,0004 ; 7511 J/PISET ;CLEAR PI CYCLE & START ; 7512 ; INTERRUPT PROGRAM ; 7513 = ; 7514 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 207 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 IO -- INTERNAL DEVICES -- SUBROUTINES ; 7515 ;HERE TO PROCESS A VECTORED INTERRUPT. AT THIS POINT: ; 7516 ; AR/ WRU BITS (BIT 18 FOR DEVICE 0) ; 7517 ; ARX/ 0 ; 7518 VECINT: [AR]_[AR]*2, ;SHIFT LEFT (UNSHIFTED ON DP) U 3642, 2422,3445,0303,4174,4007,0530,0000,0000,0000 ; 7519 SKIP DP18 ;ANYONE THERE? ; 7520 =0 [ARX]_[ARX]+[XWD1], ;NO--BUMP BOTH HALVES U 2422, 3642,0111,1504,4174,4007,0700,0000,0000,0000 ; 7521 J/VECINT ;KEEP LOOKING ; 7522 [AR]_VMA IO READ, ;SETUP FOR VECTOR CYCLE U 2423, 2424,4571,1203,4374,4007,0700,0000,0024,1240 ; 7523 VECTOR CYCLE/1 ; .. ; 7524 =0 [AR]_[AR].OR.[ARX], ;PUT IN UNIT NUMBER U 2424, 3666,3111,0403,4174,4007,0700,0010,0000,0000 ; 7525 CALL [STRTIO] ;START CYCLE ; 7526 MEM READ, ;WAIT FOR VECTOR (SEE DPM5) U 2425, 2426,3771,0016,4364,4007,0700,0200,0000,0002 ; 7527 [T0]_IO DATA ;GET VECTOR ; 7528 =0 [BR]_[EBR]+#, 3T, #/100, ;EPT+100 U 2426, 3663,0551,1005,4374,4007,0701,0010,0000,0100 ; 7529 CALL [CLARXL] ;CLEAR ARX LEFT ; 7530 [ARX]_[ARX]+[BR], ;EPT+100+DEVICE U 2427, 3643,0111,0504,4174,4007,0700,0200,0024,1016 ; 7531 VMA PHYSICAL READ ;FETCH WORD ; 7532 MEM READ, [BR]_MEM, 3T, ;GET POINTER U 3643, 2430,3771,0005,4365,5007,0331,0200,0000,0002 ; 7533 SKIP ADR.EQ.0 ;SEE IF NON-ZERO ; 7534 =0 [BRX]_([T0].AND.#)*.5, 3T, ;OK--MAKE VECTOR MOD 400 U 2430, 3644,4557,1606,4374,4007,0701,0000,0000,0774 ; 7535 #/774, J/VECIN1 ; AND SHIFT OVER U 2431, 0104,4751,1217,4374,4007,0700,0000,0000,0102 ; 7536 HALT [ILLINT] U 3644, 3645,3447,0606,4174,4007,0700,0000,0000,0000 ; 7537 VECIN1: [BRX]_[BRX]*.5 ;SHIFT 1 MORE PLACE ; 7538 [BR]_[BR]+[BRX], ;ADDRESS OF WORD TO USE ; 7539 LOAD VMA, FORCE EXEC, ;FORCE EXEC VIRTUAL ADDRESS U 3645, 3637,0111,0605,4174,4007,0700,0200,0024,0012 ; 7540 START READ, J/PI50 ;GO GET INSTRUCTION ; 7541 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 208 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 PRIORITY INTERRUPTS -- DISMISS SUBROUTINE ; 7542 .TOC "PRIORITY INTERRUPTS -- DISMISS SUBROUTINE" ; 7543 ; 7544 ;SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS ; 7545 ;RETURNS 4 ALWAYS ; 7546 ; 7547 ;DISMISS: ; 7548 ; TR [PI], #/077400 ;ANY PI IN PROGRESS? ; 7549 =0 U 2432, 3646,3771,0005,4374,4007,0700,0000,0004,0000 ; 7550 JEN1: [BR]_#, PI.IP1/1, J/DSMS1 ;YES--START LOOP U 2433, 0004,4443,0000,4174,4004,1700,0000,0000,0000 ; 7551 RETURN [4] ;NO--JUST RETURN ; 7552 U 3646, 2434,4113,0514,4174,4007,0330,0000,0000,0000 ; 7553 DSMS1: [PI].AND.[BR], SKIP ADR.EQ.0 U 2434, 0004,5111,0514,4170,4004,1700,0000,0000,0000 ; 7554 =0 [PI]_[PI].AND.NOT.[BR], HOLD LEFT, RETURN [4] U 2435, 3646,3447,0505,4174,4007,0700,0000,0000,0000 ; 7555 [BR]_[BR]*.5, J/DSMS1 ; 7556 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 209 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 EXTERNAL IO INSTRUCTIONS ; 7557 .TOC "EXTERNAL IO INSTRUCTIONS" ; 7558 ; 7559 .DCODE D 0710, 1210,1614,0100 ; 7560 710: IOT, WORD-TNE, J/TIOX D 0711, 1214,1614,0100 ; 7561 711: IOT, WORD-TNN, J/TIOX D 0720, 1200,1614,0100 ; 7562 720: IOT, TNE, J/TIOX D 0721, 1204,1614,0100 ; 7563 721: IOT, TNN, J/TIOX ; 7564 .UCODE ; 7565 ; 7566 1614: U 1614, 2436,4443,0000,4174,4007,0700,0010,0000,0000 ; 7567 TIOX: CALL [IORD] U 1617, 0014,4551,0305,0274,4003,7700,0000,0000,0000 ; 7568 1617: [BR]_[AR].AND.AC, TEST DISP ; 7569 ; 7570 .DCODE D 0712, 1210,1460,0100 ; 7571 712: IOT, B/10, J/RDIO D 0713, 1210,1461,0100 ; 7572 713: IOT, B/10, J/WRIO D 0722, 1200,1460,0100 ; 7573 722: IOT, B/0, J/RDIO D 0723, 1200,1461,0100 ; 7574 723: IOT, B/0, J/WRIO ; 7575 .UCODE ; 7576 ; 7577 1460: U 1460, 2436,4443,0000,4174,4007,0700,0010,0000,0000 ; 7578 RDIO: CALL [IORD] U 1463, 1400,3440,0303,0174,4007,0700,0400,0000,0000 ; 7579 1463: AC_[AR], J/DONE ; 7580 ; 7581 1461: U 1461, 2446,3771,0005,0276,6007,0700,0000,0000,0000 ; 7582 WRIO: [BR]_AC, J/IOWR ; 7583 ; 7584 .DCODE D 0714, 1210,1644,0100 ; 7585 714: IOT, B/10, J/BIXUB D 0715, 1214,1644,0100 ; 7586 715: IOT, B/14, J/BIXUB D 0724, 1200,1644,0100 ; 7587 724: IOT, B/0, J/BIXUB D 0725, 1204,1644,0100 ; 7588 725: IOT, B/4, J/BIXUB ; 7589 .UCODE ; 7590 ; 7591 1644: ; 7592 BIXUB: [BRX]_[AR], ;SAVE EFFECTIVE ADDRESS U 1644, 2436,3441,0306,4174,4007,0700,0010,0000,0000 ; 7593 CALL [IORD] ;GO GET THE DATA ; 7594 1647: [BR]_[AR], ;COPY DATA ITEM U 1647, 1013,3441,0305,4174,4003,7700,0000,0000,0000 ; 7595 B DISP ;SEE IF SET OR CLEAR ; 7596 =1011 [BR]_[BR].OR.AC, ;SET BITS U 1013, 3647,3551,0505,0274,4007,0700,0000,0000,0000 ; 7597 J/BIXUB1 ;GO DO WRITE ; 7598 [BR]_[BR].AND.NOT.AC, ;CLEAR BITS U 1017, 3647,5551,0505,0274,4007,0700,0000,0000,0000 ; 7599 J/BIXUB1 ;GO DO WRITE ; 7600 ; 7601 BIXUB1: [AR]_[BRX], ;RESTORE ADDRESS U 3647, 2446,3441,0603,4174,4007,0700,0000,0000,0000 ; 7602 J/IOWR ; 7603 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 210 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 EXTERNAL IO INSTRUCTIONS ; 7604 ;SUBROUTINE TO READ FROM AN IO DEVICE ; 7605 ;CALL WITH: ; 7606 ; SECTION 0 EFFECTIVE ADDRESS IN AR ; 7607 ; INSTRUCTION IN HR ; 7608 ;RETURN 3 WITH WORD OR BYTE IN AR ; 7609 ; ; 7610 =0 ; 7611 IORD: CLR IO BUSY, ;CLEAR BUSY U 2436, 2456,4443,0000,4174,4137,0700,0010,0000,0000 ; 7612 CALL [IOEA] ;COMPUTE IO EA U 2437, 0067,4443,0000,4174,4003,7700,0000,0000,0000 ; 7613 B DISP ; 7614 =10111 [BR]_VMA IO READ, ;BYTE MODE ; 7615 IO BYTE/1, ;SET BYTE FLAG U 0067, 2440,4571,1205,4374,4007,0700,0000,0024,1220 ; 7616 J/IORD1 ;GO DO C/A CYCLE U 0077, 2440,4571,1205,4374,4007,0700,0000,0024,1200 ; 7617 =11111 [BR]_VMA IO READ ;WORD MODE ; 7618 = ; 7619 =0 ; 7620 IORD1: VMA_[AR].OR.[BR] WITH FLAGS, U 2440, 3656,3113,0305,4174,4007,0701,0210,0000,0036 ; 7621 CALL [IOWAIT] ;WAIT FOR THINGS COMPLETE ; 7622 MEM READ, ;MAKE SURE REALLY READY ; 7623 [BR]_IO DATA, ;PUT DATA IN BR U 2441, 1027,3771,0005,4364,4003,7700,0200,0000,0002 ; 7624 B DISP ;SEE IF BYTE MODE U 1027, 2442,4553,0300,4374,4007,0331,0000,0000,0001 ; 7625 =0111 TR [AR], #/1, J/IORD2 ;BYTE MODE SEE IF ODD U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000 ; 7626 [AR]_[BR], RETURN [3] ;ALL DONE ; 7627 ; 7628 ;HERE ON WORD MODE ; 7629 =0 ; 7630 IORD2: [BR]_[BR]*.5, SC_5, ;LEFT BYTE U 2442, 2444,3447,0505,4174,4007,0700,2000,0071,0005 ; 7631 J/IORD3 ;GO SHIFT IT ; 7632 [AR]_[BR].AND.#, ;MASK IT U 2443, 0003,4551,0503,4374,4004,1700,0000,0000,0377 ; 7633 #/377, RETURN [3] ;ALL DONE ; 7634 ; 7635 =0 ; 7636 IORD3: [BR]_[BR]*.5, ;SHIFT OVER U 2444, 2444,3447,0505,4174,4007,0630,2000,0060,0000 ; 7637 STEP SC, J/IORD3 ; .. ; 7638 [AR]_[BR].AND.#, ;MASK IT U 2445, 0003,4551,0503,4374,4004,1700,0000,0000,0377 ; 7639 #/377, RETURN [3] ;ALL DONE ; 7640 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 211 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 EXTERNAL IO INSTRUCTIONS ; 7641 ;ROUTINE TO WRITE TO AN IO DEVICE ; 7642 ;CALL WITH: ; 7643 ; SECTION 0 EFFECTIVE ADDRESS IN AR ; 7644 ; INSTRUCTION IN HR ; 7645 ; WORD OR BYTE IN BR ; 7646 ;RETURNS BACK TO USER ; 7647 ; ; 7648 =0 ; 7649 IOWR: CLR IO BUSY, ;CLEAR BUSY U 2446, 2456,4443,0000,4174,4137,0700,0010,0000,0000 ; 7650 CALL [IOEA] ;COMPUTE IO EA U 2447, 0227,4443,0000,4174,4003,7700,0000,0000,0000 ; 7651 B DISP U 0227, 2452,4553,0300,4374,4007,0331,0000,0000,0001 ; 7652 =10111 TR [AR], #/1, J/IOWR2 ;BYTE MODE U 0237, 3650,4571,1204,4374,4007,0700,0000,0021,1200 ; 7653 =11111 [ARX]_VMA IO WRITE ;SETUP FLAGS ; 7654 = U 3650, 2450,3113,0304,4174,4007,0701,0200,0000,0036 ; 7655 IOWR1: VMA_[AR].OR.[ARX] WITH FLAGS ; 7656 =0 MEM WRITE, MEM_[BR], ;SEND DATA U 2450, 3656,3333,0005,4175,5007,0701,0210,0000,0002 ; 7657 CALL [IOWAIT] ;WAIT FOR DATA U 2451, 0110,3443,0100,4174,4156,4700,0200,0014,0012 ; 7658 DONE ;RETURN ; 7659 ; 7660 ;HERE FOR BYTE MODE ; 7661 =0 ; 7662 IOWR2: [BR]_[BR]*2, SC_5, ;ODD--MOVE LEFT U 2452, 2454,3445,0505,4174,4007,0700,2000,0071,0005 ; 7663 J/IOWR3 ; .. ; 7664 [ARX]_VMA IO WRITE, ;SETUP FLAGS U 2453, 3650,4571,1204,4374,4007,0700,0000,0021,1220 ; 7665 IO BYTE/1, J/IOWR1 ; .. ; 7666 ; 7667 =0 ; 7668 IOWR3: [BR]_[BR]*2, STEP SC, ;SHIFT LEFT U 2454, 2454,3445,0505,4174,4007,0630,2000,0060,0000 ; 7669 J/IOWR3 ;KEEP SHIFTING ; 7670 [ARX]_VMA IO WRITE, ;SETUP FLAGS U 2455, 3650,4571,1204,4374,4007,0700,0000,0021,1220 ; 7671 IO BYTE/1, J/IOWR1 ; .. ; 7672 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 212 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 EXTERNAL IO INSTRUCTIONS ; 7673 ;HERE TO COMPUTE IO EFFECTIVE ADDRESS ; 7674 ;CALL WITH: ; 7675 ; SECTION 0 EFFECTIVE ADDRESS IN AR ; 7676 ; INSTRUCTION IN HR ; 7677 ;RETURN 1 WITH EA IN AR ; 7678 ; ; 7679 =0 ; 7680 IOEA: VMA_[PC]-1, ;GET INSTRUCTION ; 7681 START READ, ; .. U 2456, 3660,1113,0701,4170,4007,0700,4210,0004,0012 ; 7682 CALL [LOADAR] ;PUT WORD IN AR U 2457, 3651,7441,0306,4174,4007,0700,0000,0000,0000 ; 7683 [BRX]_.NOT.[AR] ;SEE IF IN RANGE 700-777 U 3651, 2460,4553,0600,4374,4007,0321,0000,0070,0000 ; 7684 TL [BRX], #/700000 ; .. ; 7685 =0 U 2460, 2462,4553,0200,4374,4007,0321,0000,0000,0020 ; 7686 IOEA1: TL [HR], #/20, J/IOEA2 ;INDIRECT? ; 7687 WORK[YSAVE]_[AR] CLR LH, ;DIRECT IO INSTRUCTION U 2461, 2460,4713,1203,7174,4007,0700,0400,0000,0422 ; 7688 J/IOEA1 ;SAVE Y FOR EA CALCULATION ; 7689 =0 ; 7690 IOEA2: [AR]_WORK[YSAVE], ;@--GET SAVED Y U 2462, 3652,3771,0003,7274,4007,0701,0000,0000,0422 ; 7691 J/IOEAI ;GET Y AND GO U 2463, 1055,4443,0000,2174,4006,6700,0000,0000,0000 ; 7692 EA MODE DISP ;WAS THERE INDEXING? ; 7693 =1101 [ARX]_XR, SKIP ADL.LE.0, ;SEE IF LOCAL OR GLOBAL INDEXING U 1055, 2466,3771,0004,2274,4007,0120,0000,0000,0000 ; 7694 2T, J/IOEAX ; .. ; 7695 [AR]_WORK[YSAVE], ;JUST PLAIN IO U 1057, 0001,3771,0003,7274,4124,1701,0000,0000,0422 ; 7696 CLR IO LATCH, RETURN [1] ; 7697 ; 7698 IOEAI: READ [HR], DBUS/DP, ;LOAD XR FLOPS IN CASE U 3652, 3653,3333,0002,4174,4217,0700,0000,0000,0000 ; 7699 LOAD INST EA ; THERE IS INDEXING U 3653, 2464,4553,0200,4374,4007,0321,0000,0000,0017 ; 7700 TL [HR], #/17 ;WAS THERE ALSO INDEXING U 2464, 2465,0551,0303,2270,4007,0701,0000,0000,0000 ; 7701 =0 [AR]_[AR]+XR, 3T, HOLD LEFT ;YES--ADD IN INDEX VALUE U 2465, 3654,3443,0300,4174,4007,0700,0200,0004,0012 ; 7702 VMA_[AR], START READ ;FETCH DATA WORD ; 7703 MEM READ, [AR]_MEM, ;GO GET DATA WORD U 3654, 0001,3771,0003,4365,5124,1700,0200,0000,0002 ; 7704 CLR IO LATCH, RETURN [1] ; 7705 ; 7706 =0 ; 7707 IOEAX: [AR]_[ARX]+WORK[YSAVE], ;GLOBAL INDEXING U 2466, 0001,0551,0403,7274,4124,1701,0000,0000,0422 ; 7708 CLR IO LATCH, RETURN [1] U 2467, 3655,0551,0403,7274,4007,0701,0000,0000,0422 ; 7709 [AR]_[ARX]+WORK[YSAVE] ;LOCAL INDEXING ; 7710 [AR]_0, HOLD RIGHT, U 3655, 0001,4221,0003,4174,0124,1700,0000,0000,0000 ; 7711 CLR IO LATCH, RETURN [1] ; 7712 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 213 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 EXTERNAL IO INSTRUCTIONS ; 7713 ;WAIT FOR IO TO COMPLETE ; 7714 ;RETURNS 1 OR PAGE FAILS ; 7715 ; ; 7716 IOWAIT: SC_S#, S#/200, ;DELAY ; 7717 [T0]_VMA, ;GET VMA U 3656, 1124,3771,0016,4354,4007,0650,2000,0071,0200 ; 7718 SKIP/-IO BUSY ;SEE IF BUSY YET ; 7719 =00 ; 7720 IOW1: CLR IO LATCH, ;WENT BUSY ; 7721 WORK[SV.VMA]_[T0], ;MAKE SURE SV.VMA IS SETUP U 1124, 3657,3333,0016,7174,4127,0700,0400,0000,0210 ; 7722 J/IOW2 ;WAIT FOR IT TO CLEAR ; 7723 SC_SC-1, SCAD DISP, 5T, ;SEE IF DONE YET ; 7724 SKIP/-IO BUSY, ; .. U 1125, 1124,4443,0000,4174,4006,7653,2000,0060,0000 ; 7725 J/IOW1 ;BACK TO LOOP ; 7726 CLR IO LATCH, ;WENT BUSY AND TIMEOUT ; 7727 WORK[SV.VMA]_[T0], ;MAKE SURE SV.VMA IS SETUP U 1126, 3657,3333,0016,7174,4127,0700,0400,0000,0210 ; 7728 J/IOW2 ; .. ; 7729 WORK[SV.VMA]_[T0], ;MAKE SURE SV.VMA IS SETUP U 1127, 2473,3333,0016,7174,4007,0700,0400,0000,0210 ; 7730 J/IOW5 ;GO TRAP ; 7731 ; 7732 IOW2: SC_S#, S#/777, ;GO TIME IO U 3657, 2470,4443,0000,4174,4007,0650,2000,0071,0777 ; 7733 SKIP/-IO BUSY ; .. ; 7734 =0 ; 7735 IOW3: CLR IO LATCH, ;TRY TO CLEAR LATCH U 2470, 2472,4443,0000,4174,4127,0630,2000,0060,0000 ; 7736 STEP SC, J/IOW4 ;STILL BUSY U 2471, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 7737 RETURN [1] ;IDLE ; 7738 ; 7739 =0 ; 7740 IOW4: CLR IO LATCH, 5T, ;TRY TO CLEAR LATCH ; 7741 SKIP/-IO BUSY, ;SEE IF STILL BUSY U 2472, 2470,4443,0000,4174,4127,0653,0000,0000,0000 ; 7742 J/IOW3 ; .. U 2473, 1501,4571,1206,4374,4007,0700,0000,0020,0000 ; 7743 IOW5: [BRX]_[200000] XWD 0, J/HARD ; 7744 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 214 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 SMALL SUBROUTINES ; 7745 .TOC "SMALL SUBROUTINES" ; 7746 ; 7747 ;HERE ARE A COLLECTION ON 1-LINE SUBROUTINES ; 7748 LOADAR: MEM READ, [AR]_MEM, ;FROM MEMORY TO AR U 3660, 0001,3771,0003,4365,5004,1700,0200,0000,0002 ; 7749 RETURN [1] ;RETURN TO CALLER ; 7750 U 3661, 0001,3771,0004,4365,5004,1700,0200,0000,0002 ; 7751 LOADARX: MEM READ, [ARX]_MEM, RETURN [1] ; 7752 U 3662, 0001,3772,0000,4365,5004,1700,0200,0000,0002 ; 7753 LOADQ: MEM READ, Q_MEM, RETURN [1] ; 7754 U 3663, 0001,4221,0004,4174,0004,1700,0000,0000,0000 ; 7755 CLARXL: [ARX]_0, HOLD RIGHT, RETURN [1] ; 7756 U 3664, 0001,0111,0703,4174,4004,1700,0000,0000,0000 ; 7757 INCAR: [AR]_[AR]+1, RETURN [1] ; 7758 U 3665, 0001,3445,0505,4174,4004,1700,0000,0000,0000 ; 7759 SBRL: [BR]_[BR]*2, RETURN [1] ; 7760 U 3666, 0001,3443,0300,4174,4004,1701,0200,0000,0036 ; 7761 STRTIO: VMA_[AR] WITH FLAGS, RETURN [1] ; 7762 U 3667, 0004,3333,0005,4175,5004,1701,0200,0000,0002 ; 7763 STOBR: MEM WRITE, MEM_[BR], RETURN [4] ; 7764 U 3670, 0001,3333,0001,4175,5004,1701,0200,0000,0002 ; 7765 STOPC: MEM WRITE, MEM_[PC], RETURN [1] ; 7766 U 3671, 0001,3440,0404,0174,4004,1700,0400,0000,0000 ; 7767 AC_ARX: AC_[ARX], RETURN [1] ; 7768 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 215 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 UNDEFINED IO INSTRUCTIONS ; 7769 .TOC "UNDEFINED IO INSTRUCTIONS" ; 7770 ; 7771 .DCODE D 0703, 0003,1650,2100 ; 7772 703: I, B/3, J/IOT700 D 0706, 0006,1650,2100 ; 7773 706: I, B/6, J/IOT700 D 0707, 0007,1650,2100 ; 7774 I, B/7, J/IOT700 ; 7775 D 0716, 0006,1651,2100 ; 7776 716: I, B/6, J/IOT710 D 0717, 0007,1651,2100 ; 7777 I, B/7, J/IOT710 ; 7778 D 0726, 0006,1652,2100 ; 7779 726: I, B/6, J/IOT720 D 0727, 0007,1652,2100 ; 7780 I, B/7, J/IOT720 ; 7781 D 0730, 0000,1653,2100 ; 7782 730: I, B/0, J/IOT730 D 0731, 0001,1653,2100 ; 7783 I, B/1, J/IOT730 D 0732, 0002,1653,2100 ; 7784 I, B/2, J/IOT730 D 0733, 0003,1653,2100 ; 7785 I, B/3, J/IOT730 D 0734, 0004,1653,2100 ; 7786 I, B/4, J/IOT730 D 0735, 0005,1653,2100 ; 7787 I, B/5, J/IOT730 D 0736, 0006,1653,2100 ; 7788 I, B/6, J/IOT730 D 0737, 0007,1653,2100 ; 7789 I, B/7, J/IOT730 ; 7790 D 0740, 0000,1654,2100 ; 7791 740: I, B/0, J/IOT740 D 0741, 0001,1654,2100 ; 7792 I, B/1, J/IOT740 D 0742, 0002,1654,2100 ; 7793 I, B/2, J/IOT740 D 0743, 0003,1654,2100 ; 7794 I, B/3, J/IOT740 D 0744, 0004,1654,2100 ; 7795 I, B/4, J/IOT740 D 0745, 0005,1654,2100 ; 7796 I, B/5, J/IOT740 D 0746, 0006,1654,2100 ; 7797 I, B/6, J/IOT740 D 0747, 0007,1654,2100 ; 7798 I, B/7, J/IOT740 ; 7799 D 0750, 0000,1655,2100 ; 7800 750: I, B/0, J/IOT750 D 0751, 0001,1655,2100 ; 7801 I, B/1, J/IOT750 D 0752, 0002,1655,2100 ; 7802 I, B/2, J/IOT750 D 0753, 0003,1655,2100 ; 7803 I, B/3, J/IOT750 D 0754, 0004,1655,2100 ; 7804 I, B/4, J/IOT750 D 0755, 0005,1655,2100 ; 7805 I, B/5, J/IOT750 D 0756, 0006,1655,2100 ; 7806 I, B/6, J/IOT750 D 0757, 0007,1655,2100 ; 7807 I, B/7, J/IOT750 ; 7808 D 0760, 0000,1656,2100 ; 7809 760: I, B/0, J/IOT760 D 0761, 0001,1656,2100 ; 7810 I, B/1, J/IOT760 D 0762, 0002,1656,2100 ; 7811 I, B/2, J/IOT760 D 0763, 0003,1656,2100 ; 7812 I, B/3, J/IOT760 D 0764, 0004,1656,2100 ; 7813 I, B/4, J/IOT760 D 0765, 0005,1656,2100 ; 7814 I, B/5, J/IOT760 D 0766, 0006,1656,2100 ; 7815 I, B/6, J/IOT760 D 0767, 0007,1656,2100 ; 7816 I, B/7, J/IOT760 ; 7817 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 216 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 UNDEFINED IO INSTRUCTIONS D 0770, 0000,1657,2100 ; 7818 770: I, B/0, J/IOT770 D 0771, 0001,1657,2100 ; 7819 I, B/1, J/IOT770 D 0772, 0002,1657,2100 ; 7820 I, B/2, J/IOT770 D 0773, 0003,1657,2100 ; 7821 I, B/3, J/IOT770 D 0774, 0004,1657,2100 ; 7822 I, B/4, J/IOT770 D 0775, 0005,1657,2100 ; 7823 I, B/5, J/IOT770 D 0776, 0006,1657,2100 ; 7824 I, B/6, J/IOT770 D 0777, 0007,1657,2100 ; 7825 I, B/7, J/IOT770 ; 7826 .UCODE ; 7827 ; 7828 1650: U 1650, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7829 IOT700: UUO ; 7830 1651: ; 7831 IOT710: ; 7832 .IFNOT/UBABLT U 1651, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7833 UUO ;;7834 .IF/UBABLT ;;7835 J/BLTX ;GO TO COMMON CODE FOR UBABLT INSTRS ; 7836 .ENDIF/UBABLT ; 7837 1652: U 1652, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7838 IOT720: UUO ; 7839 1653: U 1653, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7840 IOT730: UUO ; 7841 1654: U 1654, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7842 IOT740: UUO ; 7843 1655: U 1655, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7844 IOT750: UUO ; 7845 1656: U 1656, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7846 IOT760: UUO ; 7847 1657: U 1657, 2737,4551,0202,4374,0007,0700,0000,0077,7740 ; 7848 IOT770: UUO ; 7849 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 217 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 UMOVE AND UMOVEM ; 7850 .TOC "UMOVE AND UMOVEM" ; 7851 ; 7852 .DCODE D 0704, 1200,1754,0100 ; 7853 704: IOT, J/UMOVE D 0705, 1200,1755,0100 ; 7854 IOT, J/UMOVEM ; 7855 .UCODE ; 7856 ; 7857 1754: ; 7858 UMOVE: VMA_[AR], ;LOAD VMA ; 7859 START READ, ;START MEMORY U 1754, 3672,3443,0300,4174,4207,0700,0200,0004,0012 ; 7860 SPEC/PREV ;FORCE PREVIOUS ; 7861 MEM READ, ;WAIT FOR MEMORY ; 7862 [AR]_MEM, ;PUT DATA IN AR U 3672, 1515,3771,0003,4365,5007,0700,0200,0000,0002 ; 7863 J/STAC ;GO PUT AR IN AC ; 7864 ; 7865 1755: ; 7866 UMOVEM: VMA_[AR], ;LOAD VMA ; 7867 START WRITE, ;START MEMORY U 1755, 3673,3443,0300,4174,4207,0700,0200,0003,0012 ; 7868 SPEC/PREV ;FORCE PREVIOUS ; 7869 [AR]_AC, ;FETCH AC U 3673, 1516,3771,0003,0276,6007,0700,0000,0000,0000 ; 7870 J/STMEM ;STORE IN MEMORY ; 7871 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 218 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 UMOVE AND UMOVEM ; 7872 ;HERE WITH HALT CODE IN THE T1 ; 7873 =010* ; 7874 HALTED: WORK[SV.ARX]_[ARX], ;SAVE TEMP REGISTER U 0104, 3676,3333,0004,7174,4007,0700,0410,0000,0212 ; 7875 CALL [SAVVMA] ;PUT VMA IN WORK[SV.VMA] ; 7876 =110* ABORT MEM CYCLE, ;ABORT CYCLE IN PROGRESS U 0114, 3675,4223,0000,4364,4277,0700,0210,0000,0010 ; 7877 CALL [WRTHSB] ;WRITE HALT STATUS BLOCK ; 7878 =111* U 0116, 3674,4221,0004,4174,4007,0700,0200,0021,1016 ; 7879 PWRON: [ARX]_0, VMA PHYSICAL WRITE ;STORE HALT CODE ; 7880 = U 3674, 2474,3333,0017,4175,5007,0701,0200,0000,0002 ; 7881 MEM WRITE, MEM_[T1] ; IN LOCATION 0 ; 7882 =0 NEXT [ARX] PHYSICAL WRITE, U 2474, 3670,0111,0704,4170,4007,0700,0210,0023,1016 ; 7883 CALL [STOPC] U 2475, 0005,4443,0000,4174,4107,0700,0000,0000,0074 ; 7884 H1: SET HALT, J/HALTLP ;TELL CONSOLE WE HAVE HALTED ; 7885 ; 7886 ; 7887 4: UNHALT, ;RESET CONSOLE U 0004, 2476,4443,0000,4174,4107,0640,0000,0000,0062 ; 7888 SKIP EXECUTE, J/CONT ;SEE IF CO OR EX ; 7889 5: U 0005, 0004,4443,0000,4174,4007,0660,0000,0000,0000 ; 7890 HALTLP: SKIP/-CONTINUE, J/4 ;WAIT FOR CONTINUE ; 7891 ; 7892 =0 ; 7893 CONT: VMA_[PC], ;LOAD PC INTO VMA ; 7894 FETCH, ;START READ U 2476, 0117,3443,0100,4174,4007,0700,0200,0014,0012 ; 7895 J/XCTGO ;DO THE INSTRUCTION U 2477, 2500,4571,1203,4374,4007,0700,0000,0024,1200 ; 7896 [AR]_VMA IO READ ;PUT FLAGS IN AR ; 7897 =0 [AR]_[AR].OR.#, ;PUT IN ADDRESS ; 7898 #/200000, HOLD LEFT, ; OF CSL REGISTER U 2500, 3666,3551,0303,4370,4007,0700,0010,0020,0000 ; 7899 CALL [STRTIO] ; 7900 CONT1: MEM READ, ;WAIT FOR DATA ; 7901 [HR]_MEM, ;PUT IN HR ; 7902 LOAD INST, ;LOAD IR, ETC. U 2501, 2716,3771,0002,4365,5617,0700,0200,0000,0002 ; 7903 J/XCT1 ;GO DO THE INSTRUCTION ; 7904 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 219 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 WRITE HALT STATUS BLOCK ; 7905 .TOC "WRITE HALT STATUS BLOCK" ; 7906 ; 7907 ;THE HALT STATUS BLOCK LOOKS LIKE: ; 7908 ; 7909 ; !=======================================================! ; 7910 ; !00! MAG ! ; 7911 ; !-------------------------------------------------------! ; 7912 ; !01! PC ! ; 7913 ; !-------------------------------------------------------! ; 7914 ; !02! HR ! ; 7915 ; !-------------------------------------------------------! ; 7916 ; !03! AR ! ; 7917 ; !-------------------------------------------------------! ; 7918 ; !04! ARX ! ; 7919 ; !-------------------------------------------------------! ; 7920 ; !05! BR ! ; 7921 ; !-------------------------------------------------------! ; 7922 ; !06! BRX ! ; 7923 ; !-------------------------------------------------------! ; 7924 ; !07! ONE ! ; 7925 ; !-------------------------------------------------------! ; 7926 ; !10! EBR ! ; 7927 ; !-------------------------------------------------------! ; 7928 ; !11! UBR ! ; 7929 ; !-------------------------------------------------------! ; 7930 ; !12! MASK ! ; 7931 ; !-------------------------------------------------------! ; 7932 ; !13! FLG ! ; 7933 ; !-------------------------------------------------------! ; 7934 ; !14! PI ! ; 7935 ; !-------------------------------------------------------! ; 7936 ; !15! XWD1 ! ; 7937 ; !-------------------------------------------------------! ; 7938 ; !16! T0 ! ; 7939 ; !-------------------------------------------------------! ; 7940 ; !17! T1 ! ; 7941 ; !=======================================================! ; 7942 ; ! VMA FLAGS ! VMA ! ; 7943 ; !=======================================================! ; 7944 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 220 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 WRITE HALT STATUS BLOCK ; 7945 ;START AT 1 TO DUMP 2901 REGISTERS INTO MAIN MEMORY ; 7946 1: WORK[SV.ARX]_[ARX], ;SAVE TEMP REGISTER U 0001, 3676,3333,0004,7174,4007,0700,0410,0000,0212 ; 7947 CALL [SAVVMA] ;WORK[SV.VMA]_VMA U 0011, 0024,3771,0004,7274,4007,0701,0000,0000,0227 ; 7948 11: [ARX]_WORK[HSBADR] U 0024, 3700,4223,0000,4364,4277,0700,0210,0000,0010 ; 7949 =10* ABORT MEM CYCLE, CALL [DUMP] U 0026, 2475,4443,0000,4174,4107,0700,0000,0000,0074 ; 7950 SET HALT, J/H1 ; 7951 ; 7952 ; 7953 WRTHSB: [ARX]_WORK[HSBADR], ;GET ADDRESS OF HSB U 3675, 2502,3771,0004,7274,4007,0422,0000,0000,0227 ; 7954 SKIP AD.LE.0, 4T ;SEE IF VALID ; 7955 =0 READ [MASK], LOAD PI, ;TURN OFF PI SYSTEM U 2502, 3700,3333,0012,4174,4437,0700,0000,0000,0000 ; 7956 J/DUMP ; AND GO TAKE DUMP ; 7957 [ARX]_WORK[SV.ARX], U 2503, 0002,3771,0004,7274,4004,1701,0000,0000,0212 ; 7958 RETURN [2] ;DO NOT DUMP ANYTHING ; 7959 U 3676, 3677,3771,0004,4354,4007,0700,0000,0000,0000 ; 7960 SAVVMA: [ARX]_VMA ; 7961 WORK[SV.VMA]_[ARX], U 3677, 0010,3333,0004,7174,4004,1700,0400,0000,0210 ; 7962 RETURN [10] ; 7963 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 221 ; INOUT.MIC[7,3] 13:32 7-JAN-1986 WRITE HALT STATUS BLOCK ; 7964 ;DUMP OUT THE 2901 U 3700, 2504,3333,0004,4174,4007,0700,0200,0021,1016 ; 7965 DUMP: READ [ARX], VMA PHYSICAL WRITE U 2504, 2746,3333,0000,4175,5007,0701,0210,0000,0002 ; 7966 =0* MEM WRITE, MEM_[MAG], CALL [NEXT] U 2506, 3701,3333,0001,4175,5007,0701,0200,0000,0002 ; 7967 MEM WRITE, MEM_[PC] U 3701, 2505,0111,0704,4170,4007,0700,0200,0023,1016 ; 7968 NEXT [ARX] PHYSICAL WRITE U 2505, 2746,3333,0002,4175,5007,0701,0210,0000,0002 ; 7969 =0* MEM WRITE, MEM_[HR], CALL [NEXT] U 2507, 2510,3333,0003,4175,5007,0701,0200,0000,0002 ; 7970 MEM WRITE, MEM_[AR] U 2510, 2746,3333,0003,7174,4007,0700,0410,0000,0211 ; 7971 =0* WORK[SV.AR]_[AR], CALL [NEXT] U 2512, 2511,3771,0003,7274,4007,0701,0000,0000,0212 ; 7972 [AR]_WORK[SV.ARX] U 2511, 2746,3333,0003,4175,5007,0701,0210,0000,0002 ; 7973 =0* MEM WRITE, MEM_[AR], CALL [NEXT] U 2513, 3702,3333,0005,4175,5007,0701,0200,0000,0002 ; 7974 MEM WRITE, MEM_[BR] U 3702, 2514,0111,0704,4170,4007,0700,0200,0023,1016 ; 7975 NEXT [ARX] PHYSICAL WRITE U 2514, 2746,3333,0006,4175,5007,0701,0210,0000,0002 ; 7976 =0* MEM WRITE, MEM_[BRX], CALL [NEXT] U 2516, 3703,3333,0007,4175,5007,0701,0200,0000,0002 ; 7977 MEM WRITE, MEM_[ONE] U 3703, 2515,0111,0704,4170,4007,0700,0200,0023,1016 ; 7978 NEXT [ARX] PHYSICAL WRITE U 2515, 2746,3333,0010,4175,5007,0701,0210,0000,0002 ; 7979 =0* MEM WRITE, MEM_[EBR], CALL [NEXT] U 2517, 3704,3333,0011,4175,5007,0701,0200,0000,0002 ; 7980 MEM WRITE, MEM_[UBR] U 3704, 2520,0111,0704,4170,4007,0700,0200,0023,1016 ; 7981 NEXT [ARX] PHYSICAL WRITE U 2520, 2746,3333,0012,4175,5007,0701,0210,0000,0002 ; 7982 =0* MEM WRITE, MEM_[MASK], CALL [NEXT] U 2522, 3705,3333,0013,4175,5007,0701,0200,0000,0002 ; 7983 MEM WRITE, MEM_[FLG] U 3705, 2521,0111,0704,4170,4007,0700,0200,0023,1016 ; 7984 NEXT [ARX] PHYSICAL WRITE U 2521, 2746,3333,0014,4175,5007,0701,0210,0000,0002 ; 7985 =0* MEM WRITE, MEM_[PI], CALL [NEXT] U 2523, 3706,3333,0015,4175,5007,0701,0200,0000,0002 ; 7986 MEM WRITE, MEM_[XWD1] U 3706, 2524,0111,0704,4170,4007,0700,0200,0023,1016 ; 7987 NEXT [ARX] PHYSICAL WRITE U 2524, 2746,3333,0016,4175,5007,0701,0210,0000,0002 ; 7988 =0* MEM WRITE, MEM_[T0], CALL [NEXT] U 2526, 2525,3333,0017,4175,5007,0701,0200,0000,0002 ; 7989 MEM WRITE, MEM_[T1] U 2525, 2746,3771,0003,7274,4007,0701,0010,0000,0210 ; 7990 =0* [AR]_WORK[SV.VMA], CALL [NEXT] U 2527, 3707,3333,0003,4175,5007,0701,0200,0000,0002 ; 7991 MEM WRITE, MEM_[AR] U 3707, 3710,3771,0003,7274,4007,0701,0000,0000,0211 ; 7992 HSBDON: [AR]_WORK[SV.AR] U 3710, 3711,3771,0004,7274,4007,0701,0000,0000,0210 ; 7993 [ARX]_WORK[SV.VMA] U 3711, 3712,3443,0400,4174,4007,0700,0200,0000,0010 ; 7994 VMA_[ARX] ; 7995 [ARX]_WORK[SV.ARX], U 3712, 0006,3771,0004,7274,4004,1701,0000,0000,0212 ; 7996 RETURN [6] ; 7997 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 222 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 WRITE HALT STATUS BLOCK ; 7998 .NOBIN ; 7999 .TOC "PAGE FAIL REFIL LOGIC" ; 8000 ; 8001 ;WHEN THE CPU CAN NOT COMPLETE A MEMORY REFERENCE BECAUSE THE PAGE ; 8002 ; TABLE DOES NOT CONTAIN VALID INFORMATION FOR THE VIRTUAL PAGE INVOLVED ; 8003 ; THE HARDWARE CALLS THIS ROUTINE TO RELOAD THE HARDWARE PAGE TABLE. ; 8004 ; ; 8005 ;THIS CODE WILL EITHER DO THE RELOAD OR GENERATE A PAGE FAIL FOR THE ; 8006 ; SOFTWARE. THE INFORMATION LOADED CONSISTS OF THE PHYSICAL PAGE NUMBER, ; 8007 ; THE CACHE ENABLE BIT AND THE WRITE ENABLE BIT. ; 8008 ; 8009 ;THIS LOGIC USES MANY VARIABLES. THEY ARE DESCRIBED BRIEFLY HERE: ; 8010 ; 8011 ;THING WHERE KEPT USE ; 8012 ;OLD VMA WORKSPACE WORD 210 SAVES VMA ; 8013 ;OLD AR WORKSPACE WORD 211 SAVES AR ; 8014 ;OLD ARX WORKSPACE WORD 212 SAVES ARX ; 8015 ;OLD BR WORKSPACE WORD 213 SAVES BR ; 8016 ;OLD BRX WORKSPACE WORD 214 SAVES BRX ; 8017 ;KL PAGING BIT EBR BIT 1 (IN 2901) INDICATES KL STYLE (TOPS-20) PAGING ; 8018 ; INSTEAD OF KI STYLE (TOPS-10 AND DIAGNOSTIC) ; 8019 ; MODE PAGING ; 8020 ;W BIT FLG BIT 4 PAGE CAN BE WRITTEN ; 8021 ;C BIT FLG BIT 6 DATA IN THIS PAGE MAY BE PUT ; 8022 ; INTO CACHE ; 8023 ;PI CYCLE FLG BIT 5 STORING OLD PC DURING PI ; 8024 ;MAP FLAG FLG BIT 18 MAP INSTRUCTION IN PROGRESS ; 8025 ;CLEANUP CODE FLG BITS 32-35 WHAT TO DO SO INSTRUCTION MAY BE ; 8026 ; RESTARTED ; 8027 ;SPT BASE WORKSPACE WORD 215 ADDRESS OF SHARED-POINTER-TABLE ; 8028 ;CST BASE WORKSPACE WORD 216 ADDRESS OF CORE-STATUS-TABLE ; 8029 ;CST MASK WORKSPACE WORD 217 BITS TO KEEP ON CST UPDATE ; 8030 ;CST DATA (PUR) WORKSPACE WORD 220 BITS TO SET ON CST UPDATE ; 8031 ;PAGE TABLE ADDRESS AR WHERE THIS PAGE TABLE IS LOCATED ; 8032 ;PHYSICAL PAGE # (PPN) AR RESULT OF THIS PROCESS ; 8033 ;CST ENTRY AR CORE STATUS TABLE ENTRY ; 8034 ;SPT ENTRY AR WORD FROM SPT ; 8035 ;PAGE TABLE ENTRY AR WORD FROM PT ; 8036 ;PAGE NUMBER BR INDEX INTO CURENT PAGE TABLE ; 8037 ;PAGE FAIL WORD BRX WHAT HAPPENED (ALSO MAP RESULT) ; 8038 ;;8039 .IF/INHCST ;;8040 SKIP NO CST "AD/D,DBUS/RAM,RAMADR/#,WORK/CBR,DT/4T,SKIP/ADEQ0" ; 8041 .ENDIF/INHCST ; 8042 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 223 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8043 ; ; 8044 ; ; 8045 ; ; 8046 ; KL10 PAGING - WORD FORMATS ; 8047 ; ; 8048 ;Section Pointer ; 8049 ; ; 8050 ;The section pointer is found in the user or exec section table. ; 8051 ;(Part of UPT or EPT.) ; 8052 ; ; 8053 ;Section pointer provides (via the SPT) the physical address of ; 8054 ;the PAGE TABLE for the given section. ; 8055 ; ; 8056 ; Code: 0 No-access (trap) ; 8057 ; 1 Immediate ; 8058 ; 2 Share ; 8059 ; 3 Indirect ; 8060 ; 4-7 Unused, reserved ; 8061 ; ; 8062 ; 0 1 2 3 4 5 6 18 35 ; 8063 ; +----+-+-+-+-+---------+-------------------------+ ; 8064 ; !CODE!P!W! !C!/////////! PAGE TABLE IDENTIFIER ! ; 8065 ; !010 ! ! ! ! !/////////! (SPT INDEX) ! ; 8066 ; +----+-+-+-+-+---------+-------------------------+ ; 8067 ; ; 8068 ; NORMAL SECTION POINTER (Code = 2) ; 8069 ; ; 8070 ; 0 2 3 4 5 6 9 18 35 ; 8071 ; +----+-+-+-+-+---+-----------+------------------------+ ; 8072 ; !CODE!P!W! !C!///!SECTION !SECTION TABLE IDENTIFIER! ; 8073 ; !011 ! ! ! ! !///!TABLE INDEX! (SPT INDEX) ! ; 8074 ; +----+-+-+-+-+---+-----------+------------------------+ ; 8075 ; ; 8076 ; INDIRECT SECTION POINTER (Code = 3) ; 8077 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 224 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8078 ;PAGE POINTERS ; 8079 ; ; 8080 ;FOUND IN PAGE TABLES ; 8081 ; ; 8082 ; 0 1 2 3 4 5 6 12 35 ; 8083 ; +----+-+-+-+-+----+------------------------------+ ; 8084 ; !CODE!P!W! !C!////! PHYSICAL ADDRESS OF PAGE ! ; 8085 ; !001 ! ! ! ! !////! ! ; 8086 ; +----+-+-+-+-+----+------------------------------+ ; 8087 ; ; 8088 ; IMMEDIATE POINTER (code field = 1) ; 8089 ; ; 8090 ; B12-35 give PHYSICAL ADDRESS OF PAGE ; 8091 ; if B12-17 >< 0, page not in core-trap ; 8092 ; if B12-17 = 0, B23-35 give CORE PAGE ; 8093 ; NUMBER of page, B18-22 MBZ ; 8094 ; ; 8095 ; ; 8096 ; ; 8097 ; ; 8098 ; ; 8099 ; 0 2 3 6 18 35 ; 8100 ; +-----+-------+---------+------------------------+ ; 8101 ; !CODE !SAME AS!/////////! SPT INDEX ! ; 8102 ; !010 ! IMMED.!/////////! ! ; 8103 ; +-----+-------+---------+------------------------+ ; 8104 ; ; 8105 ; SHARED POINTER (code field = 2) ; 8106 ; ; 8107 ; B18-35 Give SPT INDEX (SPTX). SPTX + SPT BASE ; 8108 ; ADDRESS = physical core address of word ; 8109 ; holding physical address of page. ; 8110 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 225 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8111 ; 0 1 2 3 6 9 17 18 35 ; 8112 ; +----+--------+---+-------+----------------------+ ; 8113 ; !CODE!SAME AS !///! PAGE ! PAGE TABLE IDENTIFIER! ; 8114 ; !011 ! IMMED. !///!NUMBER ! (SPT INDEX) ! ; 8115 ; +----+--------+---+-------+----------------------+ ; 8116 ; ; 8117 ; INDIRECT POINTER (code field = 3) ; 8118 ; ; 8119 ; This pointer type causes another pointer to be fetched ; 8120 ; and interpreted. The new pointer is found in word N ; 8121 ; (B9-17) of the page addressed by C(SPT + SPTX). ; 8122 ; ; 8123 ; ; 8124 ; ; 8125 ; SPT ENTRY ; 8126 ; ; 8127 ; Found in the SPT, i.e., when fetching C(SPT +SPTX) ; 8128 ; ; 8129 ; 12 35 ; 8130 ; +--------------------+---------------------------+ ; 8131 ; !////////////////////! PHYSICAL ADDRESS OF PAGE ! ; 8132 ; !////////////////////! OR PAGE TABLE ! ; 8133 ; +--------------------+---------------------------+ ; 8134 ; ; 8135 ; B12-35 Give PHYSICAL ADDRESS of page. ; 8136 ; ; 8137 ; The base address (physical core address) of the SPT ; 8138 ; resides in one AC of the reserved AC block. ; 8139 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 226 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8140 ;PHYSICAL STORAGE ADDRESS ; 8141 ; ; 8142 ;Found in B12-35 of IMMEDIATE POINTERS and SPT ENTRIES. ; 8143 ; ; 8144 ; 12 17 18 23 35 ; 8145 ; +---------+----+-----------------+ ; 8146 ; ! !MBZ ! CORE PAGE NUMBER! ; 8147 ; ! ! ! IF B12-17 = 0 ! ; 8148 ; +---------+----+-----------------+ ; 8149 ; ; 8150 ; If B12-17 = 0, then B23-35 are CORE PAGE NUMBER (i.e., ; 8151 ; B14-26 of physical core address) of page and B18-22 ; 8152 ; MBZ. If B12-17 >< 0, then address is not core and ; 8153 ; pager traps. ; 8154 ; ; 8155 ; ; 8156 ; ; 8157 ;CORE STATUS TABLE ENTRY ; 8158 ; ; 8159 ;Found when fetching C(CBR + CORE PAGENO) ; 8160 ; ; 8161 ; 0 5 32 34 35 ; 8162 ; +-------+-------------------------------+------+-+ ; 8163 ; ! CODE ! ! !M! ; 8164 ; +-------+-------------------------------+------+-+ ; 8165 ; ; 8166 ; B0-5 are code field: ; 8167 ; ; 8168 ; 0 - unavailable, trap ; 8169 ; ; 8170 ; 1-77 - available ; 8171 ; ; 8172 ; ; 8173 ; ; 8174 ; B32-34 reserved for future hardware specification. ; 8175 ; ; 8176 ; B35 is "modified" bit, set on any write ref to page. ; 8177 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 227 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8178 ;QUANTITIES IN HARDWARE REGISTERS ; 8179 ; ; 8180 ;SPT SPT Base Register ; 8181 ; ; 8182 ; 14 35 ; 8183 ; +--------------------------------+ ; 8184 ; ! PHYSICAL CORE WORD ADDRESS ! ; 8185 ; +--------------------------------+ ; 8186 ; ; 8187 ;CBR CST Base Register ; 8188 ; ; 8189 ; 14 35 ; 8190 ; +--------------------------------+ ; 8191 ; ! PHYSICAL CORE WORD ADDRESS ! ; 8192 ; +--------------------------------+ ; 8193 ; ; 8194 ;CSTMSK CST Update Mask ; 8195 ; ; 8196 ; 0 32 35 ; 8197 ; +------------------------------------------+---+-+ ; 8198 ; ! MASK !111!1! ; 8199 ; +------------------------------------------+---+-+ ; 8200 ; ; 8201 ; ANDed with CST word during update ; 8202 ; ; 8203 ;(B32-35 must be all 1's to preserve existing CST information) ; 8204 ; ; 8205 ;CSTDATA CST Update Data ; 8206 ; ; 8207 ; 0 32 34 35 ; 8208 ; +------------------------------------------+---+-+ ; 8209 ; ! DATA !000!0! ; 8210 ; +------------------------------------------+---+-+ ; 8211 ; ; 8212 ; IORed with CST word during update ; 8213 ; ; 8214 ;(B32-35 must be all 0's to preserve existing CST information) ; 8215 ; ; 8216 ;All unspecified bits and fields are reserved for future ; 8217 ;specification by DEC. ; 8218 ; ; 8219 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 228 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8220 .BIN ; 8221 ; 8222 .DCODE D 0257, 1215,1553,0100 ; 8223 257: IOT, AC, J/MAP ; 8224 .UCODE ; 8225 ; 8226 1553: ; 8227 MAP: [AR]_[AR].OR.#, ;ASSUME PHYSICAL REF ; 8228 #/160000, ;FAKE ANSWER U 1553, 3713,3551,0303,4374,0007,0700,0000,0016,0000 ; 8229 HOLD RIGHT ; .. U 3713, 3714,3771,0006,4354,4007,0700,0000,0000,0000 ; 8230 [BRX]_VMA ;PUT VMA AND FLAGS IN BRX ; 8231 [BRX]_[BRX].AND.#, ;JUST KEEP USER BIT U 3714, 3715,4551,0606,4374,0007,0700,0000,0040,0000 ; 8232 #/400000, HOLD RIGHT ; .. U 3715, 3716,3333,0006,7174,4007,0700,0400,0000,0210 ; 8233 WORK[SV.VMA]_[BRX] ;SAVE IN WORKSPACE U 3716, 3717,3771,0005,7274,4007,0701,0000,0000,0230 ; 8234 [BR]_WORK[APR] ;GET APR FLAGS U 3717, 2530,4553,0500,4374,4007,0331,0000,0003,0000 ; 8235 TR [BR], #/030000 ;PAGING ENABLED? U 2530, 3727,3771,0013,4370,4007,0700,0000,0040,0002 ; 8236 =0 STATE_[MAP], J/PFMAP ;YES--DO REAL MAP U 2531, 0100,3440,0303,0174,4156,4700,0400,0000,0000 ; 8237 AC_[AR], NEXT INST ;NO--RETURN VIRTUAL ADDRESS ; 8238 ;HARDWARE COMES HERE ON PAGE TABLE NOT VALID (OR INTERRUPT) WHEN ; 8239 ; STARTING A MEMORY REFERENCE. MICOWORD ADDRESS OF INSTRUCTION DOING ; 8240 ; MEM WAIT IS SAVED ON THE STACK. ; 8241 3777: ; 8242 PAGE-FAIL: U 3777, 3720,3333,0003,7174,4007,0700,0400,0000,0211 ; 8243 WORK[SV.AR]_[AR] U 3720, 3721,3333,0006,7174,4007,0700,0400,0000,0214 ; 8244 ITRAP: WORK[SV.BRX]_[BRX] U 3721, 3722,3771,0006,4354,4007,0700,0000,0000,0000 ; 8245 [BRX]_VMA U 3722, 3723,3333,0006,7174,4007,0700,0400,0000,0210 ; 8246 WORK[SV.VMA]_[BRX] ; 8247 WORK[SV.ARX]_[ARX], U 3723, 1060,3333,0004,7174,4007,0370,0400,0000,0212 ; 8248 SKIP IRPT ;SEE IF INTERRUPT (SAVE DISPATCH) ; 8249 =0000 ; 8250 PFD: DBM/PF DISP, DBUS/DBM, ;BRING CODE TO 2901'S ; 8251 AD/D, DEST/PASS, 4T, ;PUT ON DP 18-21 U 1060, 1060,3773,0000,4304,4003,1702,0000,0000,0000 ; 8252 DISP/DP LEFT, J/PFD ;DISPATCH ON IT ; 8253 =0001 ;(1) INTERRUPT U 1061, 1503,3333,0005,7174,4007,0700,0400,0000,0213 ; 8254 WORK[SV.BR]_[BR], J/PFPI1 ; 8255 =0011 ;(3) BAD DATA FROM MEMORY ; 8256 [BRX]_IO DATA, ;GET THE BAD DATA ; 8257 AD PARITY OK/0, ; DO NOT LOOK AT PARITY U 1063, 3724,3771,0006,4374,4007,0700,0000,0000,0000 ; 8258 J/BADDATA ;SAVE IN AC BLK 7 ; 8259 =0101 ;(5) NXM ERROR U 1065, 1501,4571,1206,4374,4007,0700,0000,0037,0000 ; 8260 [BRX]_[370000] XWD 0, J/HARD ; 8261 =0111 ;(7) NXM & BAD DATA U 1067, 1501,4571,1206,4374,4007,0700,0000,0037,0000 ; 8262 [BRX]_[370000] XWD 0, J/HARD ; 8263 =1000 ;(10) WRITE VIOLATION U 1070, 3727,3333,0005,7174,4007,0700,0400,0000,0213 ; 8264 WORK[SV.BR]_[BR], J/PFMAP ; 8265 =1001 ;[123] (11) 1 ms timer and movsrj U 1071, 1503,3333,0005,7174,4007,0700,0400,0000,0213 ; 8266 WORK[SV.BR]_[BR], J/PFPI1 ; 8267 =1010 ;(12) PAGE NOT VALID U 1072, 3727,3333,0005,7174,4007,0700,0400,0000,0213 ; 8268 WORK[SV.BR]_[BR], J/PFMAP ; 8269 =1011 ;(13) EXEC/USER MISMATCH U 1073, 3727,3333,0005,7174,4007,0700,0400,0000,0213 ; 8270 WORK[SV.BR]_[BR], J/PFMAP ; 8271 = ; 8272 ; 8273 BADDATA: U 3724, 3725,3333,0006,7174,4007,0700,0400,0000,0160 ; 8274 WORK[BADW0]_[BRX] ;SAVE BAD WORD U 3725, 3726,3333,0006,7174,4007,0700,0400,0000,0161 ; 8275 WORK[BADW1]_[BRX] ;AGAIN ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 228-1 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC U 3726, 1501,4571,1206,4374,4007,0700,0000,0036,0000 ; 8276 [BRX]_[360000] XWD 0, J/HARD ; 8277 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 229 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8278 ;WE HAVE SAVED AR, ARX, BR AND BRX. WE MERGE IN HERE FROM MAP ; 8279 ; INSTRUCTION, SAVE THE VMA AND START THE PAGE FAIL WORD. U 3727, 3730,4223,0000,4364,4277,0700,0200,0000,0010 ; 8280 PFMAP: ABORT MEM CYCLE ;CLEAR PAGE FAIL ; 8281 [FLG]_[FLG].OR.#, ;PRESET W AND C TO 1 ; 8282 FLG.W/1, FLG.C/1, ;BITS INVOLVED U 3730, 3731,3551,1313,4374,0007,0700,0000,0002,4000 ; 8283 HOLD RIGHT ;LEAVE RH ALONE U 3731, 2532,4553,0600,4374,4007,0321,0000,0002,0000 ; 8284 TL [BRX], WRITE TEST/1 ;IS THIS A WRITE TEST? ; 8285 =0 [BRX]_[BRX].OR.#, ; 8286 #/10000, U 2532, 2533,3551,0606,4374,0007,0700,0000,0001,0000 ; 8287 HOLD RIGHT ;YES--TURN INTO WRITE REF ; 8288 [BRX]_[BRX].AND.#, ;START PAGE FAIL WORD ; 8289 #/411000, ;SAVE 3 INTERESTING BITS U 2533, 3732,4551,0606,4374,0007,0700,0000,0041,1000 ; 8290 HOLD RIGHT ;SAVE VIRTUAL ADDRESS ; 8291 ;USER ADDR (400000) ; 8292 ;WRITE REF (010000) ; 8293 ;PAGED REF (001000) ; 8294 [BRX]_[BRX].XOR.#, ;FIX BIT 8 U 3732, 3733,6551,0606,4374,0007,0700,0000,0000,1000 ; 8295 #/1000, HOLD RIGHT ; 8296 [BR]_[BRX], ;COPY VIRTUAL ADDRESS U 3733, 2534,3441,0605,4174,4007,0700,2000,0071,0007 ; 8297 SC_7 ;PREPARE TO SHIFT 9 PLACES ; 8298 =0 ; 8299 PF25: [BR]_[BR]*.5, ;RIGHT ADJUST PAGE # ; 8300 STEP SC, ;COUNT SHIFT STEPS U 2534, 2534,3447,0505,4174,4007,0630,2000,0060,0000 ; 8301 J/PF25 ;LOOP FOR 9 ; 8302 [BR]_[BR].AND.# CLR LH, ;MASK TO 9 BITS U 2535, 3734,4251,0505,4374,4007,0700,0000,0000,0777 ; 8303 #/777 ; .. ; 8304 .IF/KLPAGE ; 8305 .IF/KIPAGE ; 8306 TL [EBR], ;KI MODE REFILL? U 3734, 2536,4553,1000,4374,4007,0321,0000,0000,0040 ; 8307 #/40 ;FLAG BIT ; 8308 =0 ; 8309 .ENDIF/KIPAGE ; 8310 READ [BRX], ;USER REF? (KL MODE) ; 8311 SKIP DP0, ; .. U 2536, 2540,3333,0006,4174,4007,0520,0000,0000,0000 ; 8312 J/PF30 ;CONTINUE AT PF30 ; 8313 .ENDIF/KLPAGE ; 8314 .IF/KIPAGE ; 8315 [ARX]_[BR]*.5, ;KI10 MODE REFILL U 2537, 3774,3447,0504,4174,4007,0700,0000,0000,0000 ; 8316 J/KIFILL ;GO HANDLE EASY CASE ; 8317 .ENDIF/KIPAGE ; 8318 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 230 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8319 .IF/KLPAGE ; 8320 ;HERE IN TOPS-20 MODE ; 8321 ;PICK UP CORRECT SECTION POINTER ; 8322 =0 ; 8323 PF30: [ARX]_WORK[PTA.E], ;EXEC MODE ; 8324 SKIP AD.EQ.0, 4T, ;SEE IF VALID U 2540, 2544,3771,0004,7274,4007,0622,0000,0000,0423 ; 8325 J/PF35 ;CONTINUE BELOW ; 8326 [ARX]_WORK[PTA.U], ;USER MODE U 2541, 2542,3771,0004,7274,4007,0622,0000,0000,0424 ; 8327 SKIP AD.EQ.0, 4T ;SEE IF VALID ; 8328 =0 VMA_[ARX]+[BR], ;POINTER VALID ; 8329 VMA PHYSICAL READ, ;START MEMORY U 2542, 1130,0113,0405,4174,4007,0700,0200,0024,1016 ; 8330 J/PF77 ;CONTINUE BELOW ; 8331 [AR]_[UBR]+#, 3T, ;USER MODE ; 8332 #/540, ;OFFSET TO UPT U 2543, 3735,0551,1103,4374,4007,0701,0000,0000,0540 ; 8333 J/PF40 ;GO GET POINTER ; 8334 ; 8335 =0 ; 8336 PF35: VMA_[ARX]+[BR], ;POINTER VALID ; 8337 VMA PHYSICAL READ, ;START MEMORY U 2544, 1130,0113,0405,4174,4007,0700,0200,0024,1016 ; 8338 J/PF77 ;CONTINUE BELOW ; 8339 [AR]_[EBR]+#, 3T, ;EXEC MODE U 2545, 3735,0551,1003,4374,4007,0701,0000,0000,0540 ; 8340 #/540 ;OFFSET TO EPT ; 8341 PF40: VMA_[AR], ;LOAD THE VMA ; 8342 START READ, ;START THE MEMORY CRANKING U 3735, 3736,3443,0300,4174,4007,0700,0200,0024,1016 ; 8343 VMA PHYSICAL ;ABSOLUTE ADDRESS ; 8344 MEM READ, ;WAIT FOR MEMORY U 3736, 1000,3771,0003,4365,5007,0700,0200,0000,0002 ; 8345 [AR]_MEM ;POINT POINTER IN AR ; 8346 ;LOOK AT SECTION POINTER AND DISPATCH ON TYPE ; 8347 =000 ; 8348 PF45: SC_7, ;FETCH SECTION 0 POINTER U 1000, 3767,4443,0000,4174,4007,0700,2010,0071,0007 ; 8349 CALL [SETPTR] ;FIGURE OUT POINTER TYPE ; 8350 SECIMM: TL [AR], ;IMMEDIATE POINTER ; 8351 #/77, ;TEST FOR 12-17 = 0 U 1001, 2552,4553,0300,4374,4007,0321,0000,0000,0077 ; 8352 J/PF50 ;CONTINUE AT PF50 ; 8353 [AR]_[AR]+WORK[SBR], ;SHARED SECTION U 1002, 2550,0551,0303,7274,4007,0701,0000,0000,0215 ; 8354 J/SECSHR ;GO FETCH POINTER FROM SPT ; 8355 [AR]_[AR]+WORK[SBR], ;INDIRECT SECTION POINTER U 1003, 3772,0551,0303,7274,4007,0701,0010,0000,0215 ; 8356 CALL [RDPT] ;GO FETCH SPT ENTRY ; 8357 =111 TL [AR], ;12 TO 17 = 0? U 1007, 2546,4553,0300,4374,4007,0321,0000,0000,0077 ; 8358 #/77 ; .. ; 8359 = U 2546, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8360 =0 PAGE FAIL TRAP ;NO ; 8361 [AR]_[AR]*2, ;FIRST SHIFT U 2547, 0602,3445,0303,4174,4007,0630,2000,0060,0000 ; 8362 STEP SC ;SC WAS LOADED AT PF45 ; 8363 =0*0 ; 8364 PF60: [AR]_[AR]*2, ;CONVERT TO ADDRESS OF ; 8365 STEP SC, ; SECTION TABLE U 0602, 0602,3445,0303,4174,4007,0630,2000,0060,0000 ; 8366 J/PF60 U 0603, 3772,4443,0000,4174,4007,0700,0010,0000,0000 ; 8367 CALL [RDPT] ;READ SECTION TABLE U 0607, 1000,4443,0000,4174,4007,0700,0000,0000,0000 ; 8368 =1*1 J/PF45 ;TRY AGAIN ; 8369 = ; 8370 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 231 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8371 ;STILL .IF/KLPAGE ; 8372 ;HERE FOR SHARED SECTION. AR GETS THE ADDRESS OF PAGE TABLE ; 8373 =0** U 2550, 3772,4443,0000,4174,4007,0700,0010,0000,0000 ; 8374 SECSHR: CALL [RDPT] ;READ WORD FROM SPT U 2554, 2552,4553,0300,4374,4007,0321,0000,0000,0077 ; 8375 TL [AR], #/77 ;TEST FOR BITS 12-17 = 0 ; 8376 ; 8377 ;HERE WITH ADDRESS OF PAGE TABLE IN AR AND SKIP ON ; 8378 ; BITS 12 THRU 17 EQUAL TO ZERO ; 8379 =0 U 2552, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8380 PF50: PAGE FAIL TRAP ;BITS 12-17 .NE. 0 ; 8381 [ARX]_[AR].AND.# CLR LH, ;PAGE NUMBER OF PAGE TABLE U 2553, 2555,4251,0304,4374,4007,0700,0000,0000,3777 ; 8382 #/3777 ;11 BIT PHYSICAL PAGE # ; 8383 .IFNOT/NOCST ; 8384 =0* [AR]_[ARX], ;COPY ADDRESS U 2555, 2622,3441,0403,4174,4007,0700,0010,0000,0000 ; 8385 CALL [UPCST] ;UPDATE CST0 U 2557, 2560,3551,0303,7274,4007,0701,0000,0000,0220 ; 8386 PF70: [AR]_[AR].OR.WORK[PUR] ;PUT IN NEW AGE AND ; 8387 ; USE BITS ; 8388 .IFNOT/INHCST ; 8389 =0** START NO TEST WRITE, ;START MEMORY WRITE U 2560, 3075,4443,0000,4174,4007,0700,0210,0001,0002 ; 8390 CALL [IBPX] ;GO STORE IN MEMORY ; 8391 .ENDIF/INHCST ;;8392 .IF/INHCST ;;8393 =0** SKIP NO CST, ;SEE IF A CST ;;8394 CALL [WRCST] ;AND GO WRITE IN MEMORY ; 8395 .ENDIF/INHCST U 2564, 2562,4443,0000,4174,4007,0700,2000,0071,0007 ; 8396 SC_7 ;THIS CAN BE BUMMED ; 8397 =0 ; 8398 PF75: [ARX]_[ARX]*2, ;CONVERT PAGE NUMBER TO ; 8399 STEP SC, ; PAGE ADDRESS U 2562, 2562,3445,0404,4174,4007,0630,2000,0060,0000 ; 8400 J/PF75 ;LOOP OVER 9 STEPS ; 8401 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 232 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8402 ;STILL .IF/KLPAGE ; 8403 ;WE NOW HAVE THE ADDRESS OF THE PAGE TABLE ENTRY. GO ; 8404 ; READ IT AND START ANALYSIS ; 8405 ; 8406 ;IF WE ARE HERE FOR THE FIRST TIME FOR THE USER OR EXEC SAVE THE ; 8407 ; ADDRESS OF THE PAGE TABLE IN PTA.E OR PTA.U SO THAT WE DO NOT ; 8408 ; HAVE TO DO THE SECTION LOOKUP EVERY TIME. U 2563, 1040,3333,0006,4174,4007,0520,0000,0000,0000 ; 8409 READ [BRX], SKIP DP0 ;USER OR EXEC REF? ; 8410 =000 [AR]_WORK[PTA.E], ;EXEC MODE ; 8411 SKIP AD.EQ.0, 4T, ;SEE IF SET YET U 1040, 2642,3771,0003,7274,4007,0622,0010,0000,0423 ; 8412 CALL [SHDREM] ;SHOULD WE REMEMBER PTR ; 8413 [AR]_WORK[PTA.U], ;USER MODE ; 8414 SKIP AD.EQ.0, 4T, ;SEE IF SET YET U 1041, 2642,3771,0003,7274,4007,0622,0010,0000,0424 ; 8415 CALL [SHDREM] ;SHOULD WE REMEMBER PTR ; 8416 WORK[PTA.E]_[ARX], ;SAVE FOR EXEC U 1042, 1047,3333,0004,7174,4007,0700,0400,0000,0423 ; 8417 J/PF76 ;CONTINUE BELOW ; 8418 WORK[PTA.U]_[ARX], ;SAVE FOR USER U 1043, 1047,3333,0004,7174,4007,0700,0400,0000,0424 ; 8419 J/PF76 ;CONTINUE BELOW ; 8420 =111 ; 8421 PF76: VMA_[ARX]+[BR], ;READ PAGE POINTER ; 8422 START READ, U 1047, 1130,0113,0405,4174,4007,0700,0200,0024,1016 ; 8423 VMA PHYSICAL ; 8424 = ; 8425 =00 ; 8426 PF77: MEM READ, ;START ANALYSIS OF POINTER ; 8427 [AR]_MEM, U 1130, 3767,3771,0003,4365,5007,0700,0210,0000,0002 ; 8428 CALL [SETPTR] ; 8429 PTRIMM: TL [AR], ;IMMEDIATE POINTER ; 8430 #/77, ;CHECK FOR BITS 0-5 U 1131, 1134,4553,0300,4374,4007,0321,0000,0000,0077 ; 8431 J/PF80 ;GO TO PF80 ; 8432 [AR]_[AR]+WORK[SBR], ;SHARED POINTER U 1132, 2561,0551,0303,7274,4007,0701,0000,0000,0215 ; 8433 J/PTRSHR ;GO TO READ SPT ; 8434 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 233 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8435 ;STILL .IF/KLPAGE ; 8436 ;INDIRECT POINTER. CHANGE PAGE # AND LOOK FOR PAGE TABLE ; 8437 PTRIND: [BR]_[AR] SWAP, ;PUT IN RIGHT HALF U 1133, 2566,3770,0305,4344,4007,0670,0000,0000,0000 ; 8438 SKIP/-1 MS ;DID CLOCK GO OFF ; 8439 =0 WORK[SV.AR1]_[AR], ;YES--UPDATE CLOCK U 2566, 2600,3333,0003,7174,4007,0700,0400,0000,0426 ; 8440 J/PFTICK ; .. ; 8441 [BR]_[BR].AND.# CLR LH, ;UPDATE PAGE # AND RESTART ; 8442 #/777, ;MASK FOR PAGE # U 2567, 2570,4251,0505,4374,4007,0370,0000,0000,0777 ; 8443 SKIP IRPT ;SEE IF THIS IS A LOOP ; 8444 =0 [AR]_[AR].AND.#, ;CHANGE INDIRECT POINTER ; 8445 #/277000, ; INTO SHARE POINTER ; 8446 HOLD RIGHT, ; .. U 2570, 1000,4551,0303,4374,0007,0700,0000,0027,7000 ; 8447 J/PF45 ;GO BACK AND TRY AGAIN U 2571, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8448 PAGE FAIL TRAP ;POINTER LOOP ; 8449 ; 8450 =0** U 2561, 3772,4443,0000,4174,4007,0700,0010,0000,0000 ; 8451 PTRSHR: CALL [RDPT] ;GO LOOK AT POINTER ; 8452 TL [AR], ;BITS 12-17 .EQ. 0? U 2565, 1134,4553,0300,4374,4007,0321,0000,0000,0077 ; 8453 #/77 ; 8454 ; 8455 ;HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO ; 8456 .IFNOT/NOCST ; 8457 =00 U 1134, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8458 PF80: PAGE FAIL TRAP ;NO--TAKE A TRAP ; 8459 [ARX]_[AR].AND.# CLR LH, ;SAVE PHYSICAL PAGE # ; 8460 #/3777, ;MASK TO 13 BITS U 1135, 2622,4251,0304,4374,4007,0700,0010,0000,3777 ; 8461 CALL [UPCST] ;UPDATE CST0 ; 8462 =11 ;;8463 .IF/NOCST ;;8464 =0 ;;8465 PF80: PAGE FAIL TRAP ;NO--TAKE A TRAP ; 8466 .ENDIF/NOCST ; 8467 ; 8468 ;HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK ; 8469 ; AT WRITABLE AND WRITTEN BITS ; 8470 PF90: [BRX]_[BRX].OR.#, ;TRANSLATION IS VALID U 1137, 3737,3551,0606,4374,0007,0700,0000,0010,0000 ; 8471 #/100000, HOLD RIGHT ; .. U 3737, 2572,4553,1300,4374,4007,0321,0000,0002,0000 ; 8472 TL [FLG], FLG.W/1 ;IS THIS PAGE WRITABLE? ; 8473 =0 [BRX]_[BRX].OR.#, ;YES--INDICATE THAT IN PFW ; 8474 #/020000, U 2572, 3745,3551,0606,4374,4007,0700,0000,0002,0000 ; 8475 J/PF100 ;NOT WRITE VIOLATION ; 8476 TL [BRX], ;IS THIS A WRITE REF? U 2573, 2574,4553,0600,4374,4007,0321,0000,0003,0000 ; 8477 WRITE TEST/1, WRITE CYCLE/1 U 2574, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8478 =0 PAGE FAIL TRAP ;WRITE VIOLATION ; 8479 PF107: ; 8480 .IFNOT/NOCST ; 8481 [AR]_[AR].OR.WORK[PUR], ;PUT IN NEW AGE U 2575, 2603,3551,0303,7274,4007,0701,0000,0000,0220 ; 8482 J/PF110 ;GO TO STORE CST ENTRY ; 8483 .ENDIF/NOCST ;;8484 .IF/NOCST ;;8485 PFDONE: TR [FLG], ;;8486 #/400000, ;;8487 J/PF140 ; 8488 .ENDIF/NOCST ; 8489 ; 8490 =0* ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 233-1 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8491 PFTICK: [AR]_WORK[TIME1], ;UPDATE TIMER U 2600, 3561,3771,0003,7274,4117,0701,0010,0000,0301 ; 8492 SPEC/CLRCLK, CALL [TOCK] ; 8493 [AR]_WORK[SV.AR1], ;RESTORE AR U 2602, 1133,3771,0003,7274,4007,0701,0000,0000,0426 ; 8494 J/PTRIND ;GO TRY AGAIN ; 8495 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 234 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8496 ;STILL .IF/KLPAGE ; 8497 ;HERE IF PAGE IS WRITABLE U 3745, 2576,4553,0600,4374,4007,0321,0000,0001,0000 ; 8498 PF100: TL [BRX], WRITE CYCLE/1 ;IS THIS A WRITE REF? ; 8499 =0 [AR]_[AR].OR.#, ;YES--SET WRITTEN BIT ; 8500 #/1, ; 8501 HOLD LEFT, U 2576, 2604,3551,0303,4370,4007,0700,0000,0000,0001 ; 8502 J/PF105 ; 8503 TR [AR], ;NOT WRITE, ALREADY WRITTEN? U 2577, 2604,4553,0300,4374,4007,0331,0000,0000,0001 ; 8504 #/1 ; 8505 =0 ; 8506 PF105: [BRX]_[BRX].OR.#, ;WRITTEN SET BIT ; 8507 #/040000, ;MARK PAGE AS ; 8508 HOLD RIGHT, ;WRITABLE U 2604, 2575,3551,0606,4374,0007,0700,0000,0004,0000 ; 8509 J/PF107 ;STORE CST WORD ; 8510 [FLG]_[FLG].AND.NOT.#, ;NOT WRITTEN, CAUSE TRAP ON ; 8511 FLG.W/1, ; WRITE ATTEMPT ; 8512 HOLD RIGHT, ;ONLY CLEAR LH U 2605, 2575,5551,1313,4374,0007,0700,0000,0002,0000 ; 8513 J/PF107 ; 8514 .IFNOT/NOCST ; 8515 =0** ; 8516 PF110: ; 8517 .IFNOT/INHCST ; 8518 START NO TEST WRITE, U 2603, 3075,4443,0000,4174,4007,0700,0210,0001,0002 ; 8519 CALL [IBPX] ;STORE CST ENTRY ; 8520 .ENDIF/INHCST ;;8521 .IF/INHCST ;;8522 SKIP NO CST, ;;8523 CALL [WRCST] ; 8524 .ENDIF/INHCST ; 8525 ; 8526 .ENDIF/KLPAGE ; 8527 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 235 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8528 ; 8529 ;HERE WHEN WE HAVE FIGURED OUT PHYSICAL ADDRESS (IN ARX) AND FLAGS ; 8530 ; (IN BRX) RELOAD PAGE TABLE. ; 8531 PFDONE: TR [FLG], ;MAP INSTRUCTION? U 2607, 2610,4553,1300,4374,4007,0331,0000,0040,0000 ; 8532 #/400000 ; 8533 .ENDIF/NOCST ; 8534 =0 ; 8535 PF140: [AR]_[ARX], ;GET PHYSCIAL PAGE # ; 8536 SC_7, ;PREPARE TO CONVERT TO U 2610, 2612,3441,0403,4174,4007,0700,2000,0071,0007 ; 8537 J/PF130 ; WORD ADDRESS ; 8538 [AR]_WORK[SV.VMA], ;RESTORE VMA U 2611, 3753,3771,0003,7274,4007,0701,0000,0000,0210 ; 8539 J/PF120 ; 8540 =0 ; 8541 PF130: [AR]_[AR]*2, ;CONVERT TO WORD # ; 8542 STEP SC, U 2612, 2612,3445,0303,4174,4007,0630,2000,0060,0000 ; 8543 J/PF130 ; 8544 [AR]_[AR].AND.#, ;JUST ADDRESS BITS ; 8545 #/3, U 2613, 3746,4551,0303,4374,0007,0700,0000,0000,0003 ; 8546 HOLD RIGHT U 3746, 3747,4221,0013,4170,4007,0700,0000,0000,0000 ; 8547 END MAP ;CLEAR MAP FLAGS ; 8548 [BRX]_[BRX].OR.#, ;TURN ON THE TRANSLATION ; 8549 #/100000, ; VALID BIT U 3747, 3750,3551,0606,4374,0007,0700,0000,0010,0000 ; 8550 HOLD RIGHT ; IN LEFT HALF ONLY U 3750, 2614,4553,1300,4374,4007,0321,0000,0000,4000 ; 8551 TL [FLG], FLG.C/1 ;CACHE BIT SET? ; 8552 =0 [BRX]_[BRX].OR.#, ;YES--SET IN MAP WORD U 2614, 2615,3551,0606,4374,0007,0700,0000,0000,2000 ; 8553 #/002000, HOLD RIGHT ; .. ; 8554 [BRX]_[BRX].AND.#, ;PRESERVE WORD # U 2615, 3752,4551,0606,4370,4007,0700,0000,0000,0777 ; 8555 #/777, HOLD LEFT ; IN PAGE FAIL WORD ; 8556 [AR]_[AR].OR.[BRX], ;COMPLETE MAP INSTRUCTION U 3752, 1500,3111,0603,4174,4003,7700,0200,0003,0001 ; 8557 EXIT ; 8558 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 236 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC U 3753, 3755,3441,0305,4174,4007,0700,0000,0000,0000 ; 8559 PF120: [BR]_[AR] ;COPY PAGE FAIL WORD ; 8560 [BR]_[AR].AND.NOT.#, ;CLEAR BITS WHICH START A CYCLE ; 8561 READ CYCLE/1, ; .. ; 8562 WRITE CYCLE/1, ; .. ; 8563 WRITE TEST/1, ; .. U 3755, 3756,5551,0305,4374,0007,0700,0000,0007,0000 ; 8564 HOLD RIGHT ;JUST DO LEFT HALF ; 8565 VMA_[BR], 3T, ;RESTORE VMA U 3756, 3757,3443,0500,4174,4007,0701,0200,0000,0030 ; 8566 DP FUNC/1 ;SET USER ACCORDING TO WHAT IT WAS ; 8567 [ARX]_[ARX].AND.# CLR LH, ;JUST KEEP PAGE # U 3757, 3760,4251,0404,4374,4007,0700,0000,0000,3777 ; 8568 #/3777 ; .. U 3760, 3761,3551,0406,4374,4007,0700,0000,0040,0000 ; 8569 [BRX]_[ARX].OR.#, #/400000 ;SET VALID BITS U 3761, 2616,4553,1300,4374,4007,0321,0000,0002,0000 ; 8570 TL [FLG], FLG.W/1 ;WANT WRITE SET? U 2616, 2617,3551,0606,4374,4007,0700,0000,0004,0000 ; 8571 =0 [BRX]_[BRX].OR.#, #/040000 ;SET WRITE BIT ; 8572 TL [FLG], FLG.C/1, ;WANT CACHE SET? U 2617, 2620,4553,1300,4374,4147,0321,0000,0000,4000 ; 8573 LOAD PAGE TABLE ;LOAD PAGE TABLE ON NEXT ; 8574 ; MICRO INSTRUCTION ; 8575 =0 [BRX]_[BRX].OR.#, ;SET CACHE BIT U 2620, 3762,3551,0606,4374,4007,0700,0000,0002,0000 ; 8576 #/020000, J/PF125 ;CACHE BIT U 2621, 3762,3333,0006,4174,4007,0700,0000,0000,0000 ; 8577 READ [BRX] ;LOAD PAGE TABLE U 3762, 3763,3771,0004,7274,4007,0701,0000,0000,0212 ; 8578 PF125: [ARX]_WORK[SV.ARX] U 3763, 3764,3771,0005,7274,4007,0701,0000,0000,0213 ; 8579 [BR]_WORK[SV.BR] U 3764, 3765,3771,0006,7274,4007,0701,0000,0000,0214 ; 8580 [BRX]_WORK[SV.BRX] ; 8581 VMA_[AR], ;MAKE MEM REQUEST ; 8582 DP FUNC/1, 3T, ;FROM DATA PATH U 3765, 3766,3443,0300,4174,4007,0701,0200,0000,0032 ; 8583 WAIT/1 ;WAIT FOR PREVIOUS CYCLE TO ; 8584 ; COMPLETE. (NEED THIS TO ; 8585 ; START ANOTHER CYCLE) ; 8586 [AR]_WORK[SV.AR], U 3766, 0000,3771,0003,7274,4004,1701,0000,0000,0211 ; 8587 RETURN [0] ; 8588 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 237 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8589 .IF/KLPAGE ; 8590 .IFNOT/NOCST ; 8591 ;SUBROUTINE TO START CST UPDATE ; 8592 ;CALL WITH: ; 8593 ; AR/ PHYSICAL PAGE NUMBER ; 8594 ;RETURN 2 WITH ENTRY IN AR, PAGE FAIL IF AGE TOO SMALL ; 8595 .IFNOT/INHCST ; 8596 =0** ; 8597 UPCST: [AR]_[AR]+WORK[CBR], ;ADDRESS OF CST0 ENTRY U 2622, 3772,0551,0303,7274,4007,0701,0010,0000,0216 ; 8598 CALL [RDPT] ;READ OLD VALUE ; 8599 TL [AR], ;0 - 5 = 0? U 2626, 2624,4553,0300,4374,4007,0321,0000,0077,0000 ; 8600 #/770000 ; .. ; 8601 =0 [AR]_[AR].AND.WORK[CSTM], ;CLEAR AGE FIELD U 2624, 0002,4551,0303,7274,4004,1701,0000,0000,0217 ; 8602 RETURN [2] ;AGE IS NOT ZERO U 2625, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8603 PAGE FAIL TRAP ;AGE TOO SMALL ; 8604 .ENDIF/INHCST ;;8605 .IF/INHCST ;;8606 UPCST: SKIP NO CST ;SEE IF A CST IS PRESENT ;;8607 =0*0 [AR]_[AR]+WORK[CBR], ;YES, ADDRESS OF CST0 ENTRY ;;8608 CALL [RDPT] ;READ OLD VALUE ;;8609 [AR]_0,RETURN [2] ;NO CST, RETURN ;;8610 TL [AR], ;CHECK AGE FIELD ;;8611 #/770000 ;;8612 = ;;8613 =0 [AR]_[AR].AND.WORK[CSTM], ;CLEAR AGE FIELD ;;8614 RETURN [2] ;AGE IS NOT ZERO ;;8615 PAGE FAIL TRAP ;AGE TOO SMALL ;;8616 ;;8617 =0 ;;8618 WRCST: START NO TEST WRITE, ;;8619 J/IBPX ;;8620 RETURN [4] ; 8621 .ENDIF/INHCST ; 8622 .ENDIF/NOCST ; 8623 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 238 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8624 ;STILL .IF/KLPAGE ; 8625 ;SUBROUTINE TO LOOK AT PAGE POINTER ; 8626 ;CALL WITH POINTER IN AR ; 8627 ;RETURNS 1 IF TYPE 1 ; 8628 ;RETURNS 2 IF TYPE 2 ; 8629 ;RETURNS 3 IF TYPE 3 ; 8630 ;GOES TO PFT IF TYPE 0 OR 4 THRU 7 ; 8631 SETPTR: [ARX]_[AR].OR.#, ;AND C AND W BITS U 3767, 3770,3551,0304,4374,4007,0700,0000,0075,3777 ; 8632 #/753777 ; OF ALL POINTERS ; 8633 [FLG]_[FLG].AND.[ARX], ; .. U 3770, 3771,4111,0413,4174,0007,0700,0000,0000,0000 ; 8634 HOLD RIGHT ;KEEP IN LH OF FLG ; 8635 READ [AR], ;TYPE 4,5,6 OR 7? U 3771, 2630,3333,0003,4174,4007,0520,0000,0000,0000 ; 8636 SKIP DP0 ; .. ; 8637 =0 TL [AR], ;HERE WE TEST FOR TYPE ; 8638 #/300000, ; ZERO POINTER U 2630, 2632,4553,0300,4374,4007,0321,0000,0030,0000 ; 8639 J/STPTR1 ;CHECK AT STPTR1 U 2631, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8640 PAGE FAIL TRAP ;BAD TYPE ; 8641 =0 ; 8642 STPTR1: TL [AR], ;NOT ZERO ; 8643 #/100000, ;SEPERATE TYPE 2 U 2632, 2634,4553,0300,4374,4007,0321,0000,0010,0000 ; 8644 J/STPTR2 ; .. U 2633, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8645 PAGE FAIL TRAP ;TYPE 0 ; 8646 ; 8647 =0 ; 8648 STPTR2: TL [AR], ;SEPERATE TYPE 1 ; 8649 #/200000, ; AND 3 U 2634, 2636,4553,0300,4374,4007,0321,0000,0020,0000 ; 8650 J/STPTR3 ; .. U 2635, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 8651 RETURN [2] ;TYPE 2 ; 8652 ; 8653 =0 U 2636, 0003,4443,0000,4174,4004,1700,0000,0000,0000 ; 8654 STPTR3: RETURN [3] ;TYPE 3 U 2637, 0001,4443,0000,4174,4004,1700,0000,0000,0000 ; 8655 RETURN [1] ;TYPE 1 ; 8656 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 239 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8657 ;STILL .IF/KLPAGE ; 8658 ;SUBROUTINE TO FETCH A PAGE POINTER OR CST ENTRY ; 8659 ;CALL WITH ADDRESS IN AR ; 8660 ;RETURN 4 WITH WORD IN AR ; 8661 ; ; 8662 RDPT: VMA_[AR], ;LOAD THE VMA ; 8663 START READ, ;START MEM CYCLE ; 8664 VMA PHYSICAL, ;ABSOLUTE ADDRESS U 3772, 2640,3443,0300,4174,4007,0370,0200,0024,1016 ; 8665 SKIP IRPT ;CHECK FOR INTERRUPTS ; 8666 =0 MEM READ, ;NO INTERRUPTS ; 8667 [AR]_MEM, ;PUT THE DATA INTO AR U 2640, 0004,3771,0003,4365,5004,1700,0200,0000,0002 ; 8668 RETURN [4] ;AND RETURN U 2641, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8669 PAGE FAIL TRAP ;INTERRUPT ; 8670 ; 8671 ; 8672 ;SUBROUTINE TO SEE IF WE SHOULD REMEMBER AN EXEC SECTION PTR ; 8673 ;CALL WITH SKIP ON ADR.EQ.0 ; 8674 ;RETURNS 2 IF WE SHOULD STORE AND 7 IF WE SHOULD NOT ; 8675 ; ; 8676 =0 U 2642, 0007,4443,0000,4174,4004,1700,0000,0000,0000 ; 8677 SHDREM: RETURN [7] ;INDIRECT PTR U 2643, 3773,7441,1303,4174,4007,0700,0000,0000,0000 ; 8678 [AR]_.NOT.[FLG] ;FLIP BITS U 3773, 2644,4553,0300,4374,4007,0321,0000,0002,4000 ; 8679 TL [AR], FLG.W/1, FLG.C/1 ;BOTH BITS SET U 2644, 0007,4443,0000,4174,4004,1700,0000,0000,0000 ; 8680 =0 RETURN [7] ;NO--DON'T STORE U 2645, 0002,4443,0000,4174,4004,1700,0000,0000,0000 ; 8681 RETURN [2] ;STORE ; 8682 ; 8683 .ENDIF/KLPAGE ; 8684 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 240 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8685 .IF/KIPAGE ; 8686 ;HERE IN KI10 MODE ; 8687 ;BR CONTAINS PAGE # AND ARX CONTAINS PAGE #/2 ; 8688 ; 8689 KIFILL: READ [BRX], ;USER REF? U 3774, 2646,3333,0006,4174,4007,0520,0000,0000,0000 ; 8690 SKIP DP0 ; .. ; 8691 =0 [BR]-#, ;EXEC--LESS THAN 340? ; 8692 #/340, ; .. ; 8693 SKIP DP18, 4T, ; .. U 2646, 2650,1553,0500,4374,4007,0532,4000,0000,0340 ; 8694 J/KIF10 ;FOLLOW EXEC PATH ; 8695 KIUPT: [ARX]_[ARX]+[UBR], ;POINTER TO PAGE MAP ENTRY ; 8696 LOAD VMA, ;PUT ADDRESS IN VMA ; 8697 VMA PHYSICAL, ;ABSOLUTE ADDRESS ; 8698 START READ, ;FETCH UPT WORD U 2647, 3775,0111,1104,4174,4007,0700,0200,0024,1016 ; 8699 J/KIF30 ;JOIN COMMON CODE ; 8700 =0 ; 8701 KIF10: [BR]-#, ;EXEC ADDRESS .GE. 340 ; 8702 #/400, ; SEE IF .GT. 400 ; 8703 SKIP DP18, 4T, ; .. U 2650, 2652,1553,0500,4374,4007,0532,4000,0000,0400 ; 8704 J/KIEPT ;LOOK AT KIF20 ; 8705 [ARX]_[ARX]+#, 3T, ;EXEC ADDRESS .LT. 340 ; 8706 #/600, ;IN EBR+600 U 2651, 2652,0551,0404,4374,4007,0701,0000,0000,0600 ; 8707 J/KIEPT ;JOIN COMMON CODE ; 8708 ; 8709 =0 ; 8710 KIEPT: [ARX]_[ARX]+[EBR], ;ADD OFFSET TO ; 8711 LOAD VMA, ; EPT ; 8712 START READ, ;START FETCH ; 8713 VMA PHYSICAL, ;ABSOLUTE ADDRESS U 2652, 3775,0111,1004,4174,4007,0700,0200,0024,1016 ; 8714 J/KIF30 ;GO GET POINTER ; 8715 [ARX]_[ARX]+#, ;PER PROCESS PAGE ; 8716 #/220, 3T, ; IS IN UPT + 400 U 2653, 2647,0551,0404,4374,4007,0701,0000,0000,0220 ; 8717 J/KIUPT ;JOIN COMMON CODE ; 8718 KIF30: MEM READ, ;WAIT FOR DATA U 3775, 3776,3771,0004,4365,5007,0700,0200,0000,0002 ; 8719 [ARX]_MEM ;PLACE IT IN ARX ; 8720 TR [BR], ;SEE IF EVEN OR ODD U 3776, 2654,4553,0500,4374,4007,0331,0000,0000,0001 ; 8721 #/1 ; .. ; 8722 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 241 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8723 ;STILL .IF/KIPAGE ; 8724 =0 ; 8725 KIF40: READ [ARX], ;ODD ; 8726 SKIP DP18, ;SEE IF VALID U 2654, 2656,3333,0004,4174,4007,0530,0000,0000,0000 ; 8727 J/KIF50 ;JOIN COMMON CODE ; 8728 [ARX]_[ARX] SWAP, ;EVEN--FLIP AROUND U 2655, 2654,3770,0404,4344,4007,0700,0000,0000,0000 ; 8729 J/KIF40 ; AND CONTINUE ; 8730 ; 8731 .ENDIF/KIPAGE ; 8732 =0 U 2656, 2672,4553,1300,4374,4007,0321,0000,0001,0000 ; 8733 KIF50: PAGE FAIL TRAP ; 8734 ;AT THIS POINT WE HAVE THE PAGE MAP ENTRY IN RH OF AR ; 8735 [FLG]_[FLG].AND.NOT.#, ;CLEAR W AND C U 2657, 1435,5551,1313,4374,4007,0700,0000,0002,4000 ; 8736 FLG.W/1, FLG.C/1 ; FLAGS U 1435, 2660,4553,0400,4374,4007,0331,0000,0002,0000 ; 8737 TR [ARX], #/020000 ;CACHE ENABLED? ; 8738 =0 [FLG]_[FLG].OR.#, ;SET CACHE BITS U 2660, 2661,3551,1313,4374,0007,0700,0000,0000,4000 ; 8739 FLG.C/1, HOLD RIGHT ; .. U 2661, 2662,4553,0400,4374,4007,0331,0000,0004,0000 ; 8740 TR [ARX], #/040000 ;DO NOT CACHE ; 8741 ;SEE IF CACHE BIT SET ; 8742 =0 [BRX]_[BRX].OR.#, ;COPY BITS TO BRX ; 8743 #/020000, U 2662, 2663,3551,0606,4374,0007,0700,0000,0002,0000 ; 8744 HOLD RIGHT ; 8745 TR [ARX], ; .. U 2663, 2664,4553,0400,4374,4007,0331,0000,0010,0000 ; 8746 #/100000 ; 8747 =0 [FLG]_[FLG].OR.#, ;SAVE W ; 8748 FLG.W/1, ; .. ; 8749 HOLD RIGHT, ; .. U 2664, 1500,3551,1313,4374,0007,0700,0000,0002,0000 ; 8750 J/KIF90 ;ALL DONE ; 8751 TL [BRX], ;W=0, WRITE REF? U 2665, 2666,4553,0600,4374,4007,0321,0000,0001,0000 ; 8752 WRITE CYCLE/1 ; 8753 =0 ; 8754 KIF80: [BRX]_[BRX].OR.#, ;WRITE FAILURE ; 8755 #/100000, HOLD RIGHT, ;INDICATE THAT ACCESS WAS ON U 2666, 2656,3551,0606,4374,0007,0700,0000,0010,0000 ; 8756 J/KIF50 ;GO PAGE FAIL U 2667, 2607,4443,0000,4174,4007,0700,0000,0000,0000 ; 8757 J/PFDONE ;ALL DONE ; 8758 ; 8759 KIF90: [BRX]_[BRX].OR.#, ;PAGE IS WRITABLE ; 8760 #/40000, ;TURN ON IN BRX U 1500, 2607,3551,0606,4374,4007,0700,0000,0004,0000 ; 8761 J/PFDONE ;ALL SET ; 8762 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 242 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8763 ;HERE ON HARD PAGE FAILURES U 1501, 2670,3333,0005,7174,4007,0700,0400,0000,0213 ; 8764 HARD: WORK[SV.BR]_[BR] ;SAVE BR (CLEANUP MAY NEED IT) ; 8765 =0 [BR]_VMA, ;BUILD PAGE FAIL WORD U 2670, 1510,3771,0005,4354,4007,0700,0010,0000,0000 ; 8766 CALL [ABORT] ;CLEAR ERROR ; 8767 [BR]_[BR].AND.#, ;SAVE THE FLAGS ; 8768 #/401237, ; .. U 2671, 1502,4551,0505,4374,0007,0700,0000,0040,1237 ; 8769 HOLD RIGHT ; .. ; 8770 [BRX]_[BRX].OR.[BR], ;COMPLETE PAGE FAIL WORD U 1502, 2656,3111,0506,4174,4007,0700,0000,0000,0000 ; 8771 J/KIF50 ;GO TRAP ; 8772 U 1503, 1140,4443,0000,4174,4007,0370,0000,0000,0000 ; 8773 PFPI1: SKIP IRPT ;TIMER TRAP? ; 8774 =00 ; 8775 [AR]_WORK[TIME1], ;YES--GET LOW WORD ; 8776 SPEC/CLRCLK, ;CLEAR CLOCK FLAG U 1140, 3561,3771,0003,7274,4117,0701,0010,0000,0301 ; 8777 CALL [TOCK] ;DO THE UPDATE U 1141, 2673,4443,0000,4174,4007,0700,0000,0000,0000 ; 8778 J/PFT1 ;EXTERNAL INTERRUPT U 1142, 1507,4223,0000,4364,4277,0700,0200,0000,0010 ; 8779 ABORT MEM CYCLE ;CLEAR 1MS FLAGS ; 8780 = ; 8781 PFPI2: [AR]_WORK[SV.VMA], ;RESTORE VMA U 1507, 3762,3771,0003,7274,4007,0701,0000,0000,0210 ; 8782 J/PF125 ; 8783 ; 8784 U 1510, 0001,4223,0000,4364,4274,1700,0200,0000,0010 ; 8785 ABORT: ABORT MEM CYCLE, RETURN [1] ; 8786 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 243 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8787 ;HERE ON PAGE FAIL TRAP ; 8788 =0 U 2672, 0104,4751,1217,4374,4007,0700,0000,0000,0100 ; 8789 PFT: HALT [IOPF] ;IO PAGE FAILURE ; 8790 PFT1: [AR]_WORK[SV.VMA], U 2673, 2674,3771,0003,7274,4007,0611,0000,0000,0210 ; 8791 SKIP/TRAP CYCLE ;SEE IF TRAP CYCLE ; 8792 =0 TL [AR], FETCH/1, ;IS THIS AN INSTRUCTION FETCH U 2674, 2676,4553,0300,4374,4007,0321,0000,0010,0000 ; 8793 J/PFT1A ;GO LOOK BELOW U 2675, 1511,3771,0003,7274,4007,0701,0000,0000,0425 ; 8794 [AR]_WORK[TRAPPC] ;RESTORE PC U 1511, 2700,3333,0003,4174,4467,0700,0000,0000,0004 ; 8795 READ [AR], LOAD FLAGS, J/CLDISP ; 8796 =0 U 2676, 1100,4443,0000,4174,4007,0700,0000,0000,0000 ; 8797 PFT1A: J/CLEANED ;YES--NO PC TO BACK UP U 2677, 2700,1111,0701,4170,4007,0700,4000,0000,0000 ; 8798 FIXPC: [PC]_[PC]-1, HOLD LEFT ;DATA FAILURE--BACKUP PC ; 8799 =0 U 2700, 1100,3333,0013,4174,4003,5701,0000,0000,0000 ; 8800 CLDISP: CLEANUP DISP ;GO CLEANUP AFTER PAGE FAIL ; 8801 =0000 ; 8802 CLEANUP: ; 8803 CLEANED: ;(0) NORMAL CASE ; 8804 END STATE, SKIP IRPT, ;NO MORE CLEANUP NEEDED U 1100, 2702,4221,0013,4170,4007,0370,0000,0000,0000 ; 8805 J/PFT2 ;HANDLE PAGE FAIL OR INTERRUPT ; 8806 [AR]_WORK[SV.ARX], ;(1) BLT U 1101, 3167,3771,0003,7274,4007,0701,0000,0000,0212 ; 8807 J/BLT-CLEANUP ; 8808 [PC]_[PC]+1, ;(2) MAP U 1102, 1562,0111,0701,4174,4007,0700,0000,0000,0000 ; 8809 J/MAPDON ; 8810 STATE_[EDIT-SRC], ;(3) SRC IN STRING MOVE U 1103, 3463,3771,0013,4370,4007,0700,0000,0000,0011 ; 8811 J/STRPF ; 8812 STATE_[EDIT-DST], ;(4) DST IN STRING MOVE U 1104, 3463,3771,0013,4370,4007,0700,0000,0000,0012 ; 8813 J/STRPF ; 8814 STATE_[SRC], ;(5) SRC+DST IN STRING MOVE U 1105, 2310,3771,0013,4370,4007,0700,0000,0000,0003 ; 8815 J/BACKD ; 8816 STATE_[EDIT-DST], ;(6) FILL IN MOVSRJ U 1106, 3472,3771,0013,4370,4007,0700,0000,0000,0012 ; 8817 J/STRPF4 ; 8818 STATE_[EDIT-SRC], ;(7) DEC TO BIN U 1107, 3467,3771,0013,4370,4007,0700,0000,0000,0011 ; 8819 J/PFDBIN ; 8820 STATE_[EDIT-SRC], ;(10) SRC+DST IN COMP U 1110, 3461,3771,0013,4370,4007,0700,0000,0000,0011 ; 8821 J/CMSDST U 1111, 2302,4221,0013,4170,4007,0700,0000,0000,0000 ; 8822 END STATE, J/BACKS ;(11) EDIT SRC FAIL U 1112, 2310,4221,0013,4170,4007,0700,0000,0000,0000 ; 8823 END STATE, J/BACKD ;(12) EDIT DST FAIL ; 8824 STATE_[EDIT-SRC], ;(13) SRC+DST IN EDIT U 1113, 2310,3771,0013,4370,4007,0700,0000,0000,0011 ; 8825 J/BACKD ; 8826 = ; 8827 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 244 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8828 =0 ; 8829 PFT2: [AR]_[UBR]+#, ;PREPARE TO STORE PFW ; 8830 #/500, 3T, U 2702, 1512,0551,1103,4374,4007,0701,0000,0000,0500 ; 8831 J/PFT10 U 2703, 0770,3551,1313,4374,0007,0700,0000,0001,0000 ; 8832 PFT3: TAKE INTERRUPT ;PROCESS INTERRUPT ; 8833 PFT10: VMA_[AR], ;WHERE TO STORE PFW U 1512, 2704,3443,0300,4174,4007,0700,0200,0021,1016 ; 8834 VMA PHYSICAL WRITE ; 8835 =0 MEM WRITE, ;STORE PFW ; 8836 MEM_[BRX], U 2704, 1564,3333,0006,4175,5007,0701,0210,0000,0002 ; 8837 CALL [NEXTAR] ;ADVANCE POINTER TO ; 8838 ;PREPARE TO STORE PC ; 8839 .IF/KLPAGE ; 8840 .IF/KIPAGE U 2705, 2706,4553,1000,4374,4007,0321,0000,0040,0000 ; 8841 TL [EBR], #/400000 ;KL PAGING? ; 8842 =0 ; 8843 .ENDIF/KIPAGE U 2706, 2712,4521,1205,4074,4007,0700,0000,0000,0000 ; 8844 [BR]_FLAGS,J/EAPF ;YES--DO EXTENDED THING ; 8845 .ENDIF/KLPAGE ; 8846 ; 8847 .IF/KIPAGE U 2707, 1513,3741,0105,4074,4007,0700,0000,0000,0000 ; 8848 [BR]_PC WITH FLAGS ;GET OLD PC ; 8849 MEM WRITE, ;STORE OLD PC ; 8850 MEM_[BR], U 1513, 1563,3333,0005,4175,5007,0701,0200,0000,0002 ; 8851 J/EAPF1 ; 8852 .ENDIF/KIPAGE ; 8853 ; 8854 MAPDON: END STATE, ;CLEAR MAP BIT U 1562, 2710,4221,0013,4170,4007,0370,0000,0000,0000 ; 8855 SKIP IRPT ;ANY INTERRUPT? ; 8856 =0 [AR]_[BRX], ;RETURN PAGE FAIL WORD U 2710, 1500,3441,0603,4174,4003,7700,0200,0003,0001 ; 8857 EXIT U 2711, 2703,1111,0701,4174,4007,0700,4000,0000,0000 ; 8858 [PC]_[PC]-1, J/PFT3 ;INTERRUPTED OUT OF MAP ; 8859 ; RETRY INSTRUCTION ; 8860 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 245 ; PAGEF.MIC[7,3] 12:15 10-APR-1985 PAGE FAIL REFIL LOGIC ; 8861 ; 8862 .IF/KLPAGE ; 8863 =0 ; 8864 EAPF: MEM WRITE, MEM_[BR], ;STORE FLAGS U 2712, 1564,3333,0005,4175,5007,0701,0210,0000,0002 ; 8865 CALL [NEXTAR] ;STORE PC WORD U 2713, 1563,3333,0001,4175,5007,0701,0200,0000,0002 ; 8866 MEM WRITE, MEM_[PC] ; .. ; 8867 .ENDIF/KLPAGE ; 8868 ; 8869 EAPF1: [AR]_[AR]+1, ; 8870 VMA PHYSICAL READ, U 1563, 2743,0111,0703,4174,4007,0700,0200,0024,1016 ; 8871 J/GOEXEC ; 8872 U 1564, 0001,0111,0703,4170,4004,1700,0200,0023,1016 ; 8873 NEXTAR: NEXT [AR] PHYSICAL WRITE, RETURN [1] ; 8874 ; Number of microwords used: ; D words= 512 ; U words= 2024, Highest= 2047 END ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 246 ; Cross Reference Listing (U) A 633 # AR 637 # 2391 2429 2459 2460 2523 2571 2579 2718 2720 2723 2726 2729 2732 2816 2826 2841 2858 2868 2878 2888 2919 2929 2939 2974 2986 2993 2997 3007 3008 3010 3012 3013 3021 3044 3045 3271 3276 3278 3290 3293 3296 3301 3302 3372 3389 3391 3456 3459 3527 3528 3534 3554 3581 3596 3632 3643 3655 3709 3732 3737 3772 3816 3820 3829 3831 3992 3997 4027 4062 4076 4092 4103 4106 4109 4123 4150 4151 4156 4173 4189 4209 4321 4330 4335 4345 4351 4370 4374 4392 4420 4424 4426 4427 4446 4478 4481 4484 4498 4523 4540 4541 4546 4551 4559 4561 4563 4634 4644 4646 4651 4652 4697 4702 4712 4716 4754 4758 4762 4766 4942 4955 5040 5043 5055 5058 5064 5070 5105 5180 5183 5285 5291 5295 5296 5326 5332 5351 5357 5358 5359 5360 5369 5374 5394 5395 5407 5409 5418 5419 5439 5444 5445 5451 5486 5490 5492 5495 5498 5502 5504 5506 5508 5509 5510 5511 5517 5519 5520 5529 5534 5550 5576 5584 5589 5591 5635 5648 5667 5676 5680 5695 5709 5711 5713 5719 5746 5753 5756 5768 5771 5779 5781 5785 5790 5792 5808 5813 5816 5838 5841 5842 5846 5964 5968 5972 5979 5990 5999 6014 6034 6038 6051 6054 6080 6164 6171 6188 6210 6224 6251 6262 6263 6264 6277 6311 6341 6352 6390 6405 6433 6438 6467 6468 6469 6470 6472 6473 6476 6481 6530 6551 6558 6559 6585 6623 6635 6636 6643 6663 6666 6669 6673 6674 6676 6680 6682 6736 6737 6742 6743 6750 6753 6757 6826 6848 6854 6873 6891 6895 6898 6899 6900 6901 6923 6948 6949 6953 6959 6960 6964 7034 7040 7063 7065 7067 7069 7072 7074 7076 7118 7125 7136 7140 7147 7151 7175 7181 7183 7188 7196 7223 7286 7367 7369 7371 7373 7375 7377 7379 7381 7383 7405 7411 7473 7483 7489 7492 7493 7510 7518 7568 7579 7592 7594 7620 7625 7652 7655 7683 7701 7702 7761 7858 7866 7897 8227 8237 8341 8350 8353 8355 8357 8361 8364 8375 8381 8386 8429 8432 8437 8444 8452 8459 8481 8499 8503 8541 8544 8559 8560 8581 8597 8599 8601 8631 8637 8642 8648 8662 8679 8792 8833 ARX 638 # 2491 2773 2774 3712 3714 3727 3756 4089 4101 4110 4111 4128 4131 4133 4155 4175 4191 4211 4214 4234 4363 4391 4443 4469 4470 4549 4641 4642 4650 4719 4909 4916 4917 4945 4948 4969 5099 5121 5293 5331 5363 5549 5570 5573 5633 5650 5672 5692 5712 5717 5763 5802 5809 6052 6093 6100 6134 6168 6218 6227 6237 6246 6269 6270 6278 6310 6314 6391 6428 6436 6440 6442 6759 6762 6808 6876 6950 7064 7068 7070 7073 7075 7104 7106 7317 7330 7334 7524 7707 7709 7767 7994 8328 8336 8384 8398 8421 8535 8567 8569 8633 8705 8715 8728 8737 8740 8745 BR 639 # 2190 2387 2422 2424 2428 2909 3040 3073 3074 3077 3078 3079 3080 3095 3098 3101 3104 3108 3111 3113 3145 3146 3149 3150 3431 3434 3437 3440 3443 3446 3449 3452 3777 3782 3810 3837 3846 3847 3994 3999 4097 4229 4394 4396 4404 4408 4471 4474 4548 4552 4553 4554 4557 4562 4593 4735 4737 4796 4797 4798 4799 4800 4807 4816 4820 4829 4890 4891 4892 4893 4894 4915 4958 4964 5067 5107 5109 5119 5124 5292 5299 5300 5304 5305 5361 5364 5398 5449 5532 5556 5558 5568 5582 5661 5679 5682 5918 5930 5931 5933 5934 5961 5970 6015 6020 6045 6048 6139 6204 6207 6208 6221 6229 6235 6358 6368 6379 6388 6392 6410 6463 6478 6516 6527 6594 6850 6851 6892 6893 6933 6941 6952 6956 7033 7036 7061 7095 7097 7100 7162 7173 7187 7189 7214 7215 7285 7296 7303 7372 7374 7376 7382 7384 7420 7433 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 247 ; Cross Reference Listing 7530 7553 7554 7555 7596 7598 7626 7630 7632 7636 7638 7662 7668 7759 8235 8299 8302 8315 8441 8565 8691 8701 8720 8767 8770 BRX 640 # 4125 4153 4159 4230 4253 4273 4277 4281 4285 4291 4295 4299 4303 4380 4433 4473 4585 4588 4599 5046 5098 5127 5135 5142 5166 5324 5325 5327 5366 5371 5561 5578 5644 5658 5659 5701 5922 6021 6091 6102 6103 6127 6176 6184 6265 6294 6307 6316 6321 6329 6331 6340 6346 6351 6363 6402 6404 6422 6431 6458 6460 6462 6493 6496 6512 6524 6526 6606 6608 6611 6677 6684 6778 6782 6786 6790 6794 6798 6814 7087 7231 7232 7233 7332 7482 7537 7538 7601 7684 8231 8284 8285 8288 8294 8296 8470 8473 8476 8498 8506 8548 8552 8554 8556 8571 8575 8742 8751 8754 8759 8856 EBR 642 # 6980 7197 7198 7199 7212 7485 7528 8306 8339 8710 8841 FLG 645 # 3623 5513 5614 5615 5622 5749 5752 5755 5758 5818 5825 5826 6602 8281 8360 8380 8448 8458 8472 8478 8510 8531 8551 8570 8572 8603 8640 8645 8669 8678 8733 8735 8738 8747 8832 HR 636 # 2291 2297 2303 2309 2318 2322 2331 2336 2437 2785 2790 3531 3540 3543 3545 3546 3547 3566 3570 3580 3585 3588 3608 3629 3642 3924 3926 3928 3930 3932 3934 3936 3938 3944 3964 4042 5920 6913 6990 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7252 7275 7370 7686 7700 7829 7833 7838 7840 7842 7844 7846 7848 MAG 634 # 2426 4135 4138 4157 4160 4161 4174 4180 4182 4216 4218 4220 4398 4416 4438 4442 4445 4486 4488 4489 4616 4621 4626 4632 4633 5552 5643 5698 5724 5759 5794 5798 5800 MASK 644 # 2152 2153 2154 2157 2160 2193 2204 2240 2244 2247 2250 2259 2262 2265 2268 2519 2742 2763 2970 3018 3582 3630 3644 3665 3948 3965 3988 3991 4036 4096 4232 4266 4400 4411 4439 4564 4776 4896 4907 5454 5514 5587 5637 5727 5796 5885 5887 5889 5891 5893 5895 5897 5899 5901 6136 6138 6160 6275 6597 7284 7327 7328 7329 7463 7464 7465 7466 7467 7468 7469 7475 7494 7504 7522 7536 7614 7617 7653 7664 7670 7687 7743 7896 8260 8262 8276 8789 8844 ONE 641 # 2182 2186 2231 2233 2278 2365 2416 2419 2949 3340 3406 3422 3489 3503 3529 3538 3541 3616 3634 3637 3984 4031 4047 4326 4741 5038 5106 5147 5149 5154 5171 5172 5441 5453 5528 5677 5835 5956 5997 6030 6036 6057 6075 6085 6104 6105 6140 6141 6183 6247 6252 6315 6327 6334 6354 6361 6366 6375 6385 6389 6393 6394 6430 6444 6455 6507 6531 6625 6647 6700 6823 6824 6830 6852 6894 6936 7291 7314 7344 7396 7680 7757 7882 7968 7975 7978 7981 7984 7987 8798 8808 8858 8869 8873 PC 635 # 2230 2234 2252 2345 2407 2432 3328 3455 3460 3691 3808 3814 3834 4020 4221 4223 4698 4707 6969 7387 7506 7658 7893 8848 PI 646 # 3594 3595 3609 7015 7016 7364 7378 7380 7385 7395 7397 7456 7457 7458 7459 7460 7461 7462 7471 T0 648 # 4201 4205 4441 4452 4459 4462 4464 4465 5569 5577 5603 5605 5606 5607 5610 5618 5621 5623 5663 5729 5737 5738 6359 6426 7398 7534 T1 649 # 4418 4558 5593 5678 5681 5700 5710 UBR 643 # 3950 3990 6972 7132 7166 7221 7222 7227 7228 8331 8695 8829 XWD1 647 # 3511 3681 7520 (D) A 1317 # ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 248 ; Cross Reference Listing DBLAC 1321 # 2777 DFP 1327 # 5539 5540 5628 5689 DREAD 1320 # 2768 2769 4084 4085 4168 4386 DSHIFT 1323 # 2959 2960 FP 1325 # 5265 5266 5267 5268 5270 5271 5273 5274 5275 5276 5278 5279 5310 5311 5312 5314 5316 5317 5339 5340 5341 5343 5345 5346 5424 5425 FPI 1324 # 5269 5277 5315 5344 IOT 1328 # 7001 7002 7238 7560 7561 7562 7563 7571 7572 7573 7574 7585 7586 7587 7588 7853 7854 8223 RD-PF 1326 # 2549 2554 2559 2564 2602 2607 2612 2617 2622 2627 2632 2637 2644 2649 2654 2659 2664 2669 2674 2679 2809 2819 2829 2834 2851 2861 2871 2881 2901 2912 2922 2932 4055 4069 4117 4142 4309 4314 READ 1318 # 2552 2557 2562 2567 2586 2604 2605 2609 2610 2615 2620 2625 2630 2635 2640 2646 2647 2651 2652 2657 2662 2667 2672 2677 2682 2811 2812 2821 2822 2831 2832 2836 2837 2844 2853 2854 2863 2864 2873 2874 2883 2884 2903 2904 2914 2915 2924 2925 2934 2935 3188 3189 3190 3191 3192 3193 3204 3205 3206 3207 3208 3209 3210 3211 3222 3223 3224 3225 3226 3227 3228 3229 3239 3240 3241 3242 3243 3244 3245 3246 3361 3362 3363 3364 3365 3366 3367 3368 3378 3379 3380 3381 3382 3383 3384 3385 3395 3396 3397 3398 3399 3400 3401 3402 3411 3412 3413 3414 3415 3416 3417 3418 3649 4057 4058 4071 4072 4119 4120 4144 4145 4311 4312 4316 4317 4687 4688 4689 4690 4691 5389 SHIFT 1322 # 2954 2955 2956 WRITE 1319 # 2551 2556 2561 2566 2614 2619 2624 2629 2634 2639 2656 2661 2666 2671 2676 2681 2778 2846 2847 (U) ACALU 1215 # AC+N 1217 # 2175 2176 2183 2373 2385 2491 2774 2783 3024 3045 3089 3119 4089 4101 4180 4182 4184 4192 4194 4201 4203 4215 4216 4217 4218 4219 4220 4332 4416 4438 4442 4445 4459 4460 4462 4465 4484 4486 4488 4489 4615 4616 4619 4620 4621 4624 4625 4626 4632 4633 5552 5643 5696 5698 5704 5763 5771 5809 5816 5960 5968 5978 5981 6011 6014 6027 6034 6041 6051 6089 6099 6119 6134 6151 6166 6168 6194 6197 6199 6206 6207 6208 6210 6216 6218 6221 6227 6229 6257 6259 6260 6264 6271 6272 6273 6277 6278 6285 6287 6292 6298 6314 6325 6337 6346 6352 6363 6366 6368 6372 6385 6391 6392 6515 6546 6551 6556 6593 6595 6699 6700 6812 6819 6826 6845 6847 6854 6874 6895 6931 6933 6939 6941 6945 6948 6953 B 1216 # (D) ACDISP 1348 # 3518 7001 7002 7238 (U) ACN 1218 # 2373 2385 2491 2774 2783 3024 3045 3089 3119 4089 4101 4180 4182 4184 4192 4194 4201 4203 4215 4216 4217 4218 4219 4220 4332 4416 4438 4442 4445 4459 4460 4462 4465 4484 4486 4488 4489 4615 4616 4619 4620 4621 4624 4625 4626 4632 4633 5552 5643 5696 5698 5704 5763 5771 5809 5816 6298 6314 6325 6372 6391 BIN0 1225 # 2175 6194 6216 6221 6229 6260 6271 6272 6273 6277 6285 BIN1 1226 # 2176 2183 6166 6168 6197 6199 6206 6207 6208 6210 6218 6227 6257 6259 6264 6278 6287 DLEN 1222 # 5960 5968 5981 6011 6014 6041 6051 6089 6099 6134 6292 6337 6346 6352 6363 6366 6368 6385 6392 6699 6700 6812 6826 6845 6945 6948 6953 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 249 ; Cross Reference Listing DSTP 1223 # 5978 6151 6546 6551 6595 6819 6874 6895 6939 6941 MARK 1224 # 6515 6593 SRCLEN 1220 # SRCP 1221 # 6027 6034 6119 6556 6847 6854 6931 6933 (U) AD 530 # 2157 2160 2193 2204 2240 2244 2247 2250 2259 2262 2265 2268 2322 2519 2740 2742 2761 2763 3582 3665 3948 3988 4036 4400 4411 5885 5887 5889 5891 5893 5895 5897 5899 5901 5931 6160 6275 6597 7284 7327 7328 7329 7463 7464 7465 7466 7467 7468 7469 7475 7504 7522 7536 7614 7617 7653 7664 7670 7687 7743 7896 8260 8262 8276 8789 A 559 # 2152 2154 2230 2234 2252 2297 2309 2336 2345 2387 2428 2429 2432 2491 2523 2774 2790 2974 2986 2993 2997 3007 3008 3010 3012 3013 3021 3040 3045 3073 3074 3077 3078 3079 3080 3095 3098 3101 3104 3108 3111 3145 3146 3149 3150 3302 3328 3391 3431 3443 3455 3456 3459 3460 3527 3528 3534 3554 3570 3581 3596 3632 3643 3655 3709 3712 3714 3732 3737 3810 3816 3829 3834 3847 4123 4125 4128 4150 4151 4153 4155 4173 4175 4189 4191 4209 4211 4223 4229 4230 4232 4253 4266 4321 4330 4345 4351 4380 4392 4394 4396 4408 4420 4424 4439 4443 4446 4459 4465 4469 4478 4498 4546 4551 4552 4553 4558 4559 4561 4563 4634 4698 4707 4712 4719 4735 4758 4766 4820 4896 4909 4945 4964 4969 5043 5046 5064 5099 5119 5127 5135 5183 5291 5292 5293 5304 5326 5327 5331 5332 5351 5359 5361 5366 5369 5374 5407 5409 5439 5441 5444 5445 5451 5486 5490 5492 5498 5506 5508 5509 5510 5528 5529 5534 5561 5568 5569 5573 5576 5577 5584 5589 5591 5603 5605 5606 5607 5610 5618 5621 5623 5633 5635 5637 5644 5648 5650 5661 5667 5672 5676 5677 5680 5692 5695 5717 5727 5729 5737 5738 5746 5753 5756 5768 5771 5785 5790 5792 5813 5816 5838 5846 5934 5979 5999 6014 6034 6045 6051 6080 6091 6127 6134 6168 6207 6227 6229 6264 6277 6278 6314 6340 6346 6351 6352 6359 6363 6368 6390 6391 6392 6426 6460 6469 6472 6476 6478 6516 6526 6551 6558 6594 6611 6636 6666 6673 6684 6736 6753 6759 6850 6854 6873 6892 6895 6899 6901 6933 6941 6948 6949 6953 6960 7015 7016 7118 7162 7181 7183 7196 7212 7214 7222 7223 7228 7231 7233 7332 7364 7387 7405 7411 7482 7489 7510 7518 7537 7555 7579 7592 7594 7601 7626 7630 7636 7658 7662 7668 7702 7759 7761 7767 7858 7866 7893 7994 8237 8296 8299 8315 8341 8361 8364 8384 8398 8535 8541 8559 8565 8581 8662 8833 8856 A+B 532 # 2182 2186 2231 2233 2278 2365 2416 2419 2785 3113 3340 3406 3616 3634 3637 3777 3782 3950 3984 3990 4031 4047 4201 4205 4234 4290 4294 4374 4470 4471 4474 4484 4557 4562 4588 4592 4598 4741 5147 5149 5154 5171 5172 5305 5449 5453 5532 5582 5663 5956 6020 6052 6057 6075 6104 6105 6210 6224 6235 6237 6247 6315 6327 6334 6354 6375 6389 6444 6455 6463 6507 6531 6625 6647 6674 6700 6852 6876 6894 6936 6956 6972 6980 7285 7291 7314 7344 7485 7520 7530 7538 7757 7882 7968 7975 7978 7981 7984 7987 8328 8336 8421 8695 8710 8808 8869 8873 A+Q 531 # 4441 4452 4473 5106 5570 5578 5679 5682 5835 A-.25 543 # A-B-.25 548 # 4370 4426 4427 5105 5124 5142 5166 5363 5371 5719 5968 6103 6139 6358 A-D-.25 544 # 6188 6428 6433 6481 8691 8701 A-Q-.25 547 # A.AND.B 564 # 4159 4174 4391 4462 4915 5514 5763 5796 5798 5809 5990 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 250 ; Cross Reference Listing 6136 7034 7040 7397 7553 8633 A.AND.Q 563 # 4157 4398 4442 4486 4488 4564 4616 4621 4626 4632 4633 4829 4907 4916 5759 5794 A.EQV.B 591 # A.EQV.Q 590 # 4135 4138 4160 4161 4216 4218 4220 4489 A.OR.B 556 # 2909 4097 4917 5070 5922 6021 6054 6093 6251 6682 7064 7068 7075 7106 7151 7173 7175 7376 7382 7524 7620 7655 8556 8770 A.OR.Q 555 # 5593 A.XOR.B 583 # 5800 7330 A.XOR.Q 582 # B 558 # 2162 2170 2172 2173 2176 2178 2185 2187 2378 2398 2497 2529 2535 2540 2543 2574 2593 2738 2745 2752 2759 2789 3070 3086 3142 3287 3331 3334 3337 3343 3346 3349 3408 3562 3610 3621 3661 3697 3703 3742 3748 3819 3954 3958 3968 3972 3974 3980 4002 4008 4019 4023 4039 4046 4127 4272 4276 4298 4302 4333 4339 4353 4358 4360 4365 4432 4434 4451 4467 4476 4537 4544 4565 4695 4704 4708 4723 4726 4742 4823 4889 4897 4905 4954 4967 4987 5019 5026 5290 5294 5377 5379 5411 5415 5448 5488 5507 5575 5674 5683 5732 5750 5788 5924 5927 5940 5942 5943 5973 5985 6019 6035 6061 6062 6063 6078 6120 6123 6125 6129 6142 6153 6161 6169 6300 6302 6345 6364 6377 6381 6383 6432 6439 6465 6479 6484 6506 6510 6562 6582 6596 6648 6656 6730 6751 6773 6805 6855 6857 6879 6919 6970 7077 7079 7080 7082 7085 7089 7190 7191 7257 7261 7265 7269 7273 7288 7299 7304 7320 7323 7339 7343 7345 7353 7354 7406 7418 7424 7431 7656 7698 7721 7727 7729 7763 7765 7874 7881 7946 7955 7961 7965 7966 7967 7969 7970 7971 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8233 8243 8244 8246 8247 8254 8264 8266 8268 8270 8274 8275 8310 8409 8416 8418 8439 8577 8635 8689 8725 8764 8795 8800 8836 8850 8864 8866 B-.25 542 # B-A-.25 540 # 3422 3529 3538 3541 4280 4284 4554 4585 6015 6036 6140 6141 6252 6341 6393 6430 6823 6952 7296 7420 7433 7680 8798 8858 D 562 # 2151 2155 2180 2181 2183 2221 2271 2341 2355 2359 2364 2368 2372 2373 2385 2386 2391 2396 2407 2413 2571 2590 2691 2693 2718 2720 2723 2724 2726 2729 2730 2732 2747 2749 2754 2756 2783 2967 2984 2990 3002 3005 3043 3089 3092 3271 3276 3389 3434 3437 3440 3446 3449 3452 3475 3551 3558 3575 3590 3595 3615 3619 3680 3691 3719 3725 3752 3761 3772 3774 3808 3814 3831 3832 3845 3846 3850 3964 4007 4020 4109 4124 4133 4152 4156 4194 4199 4214 4217 4219 4221 4322 4331 4332 4414 4543 4697 4702 4716 4718 4722 4737 4770 4796 4797 4798 4799 4800 4816 4890 4891 4892 4893 4894 4942 4951 4958 4972 4974 4978 4982 4984 4988 5017 5022 5045 5058 5060 5098 5107 5111 5118 5162 5180 5181 5288 5321 5353 5417 5495 5511 5553 5563 5655 5706 5841 5917 5936 5945 5960 5963 5977 5978 5981 6003 6006 6011 6027 6028 6038 6048 6065 6066 6067 6068 6076 6082 6090 6099 6101 6119 6121 6128 6132 6145 6147 6151 6163 6166 6175 6194 6197 6199 6206 6216 6257 6259 6260 6265 6292 6297 6298 6299 6311 6320 6325 6337 6343 6353 6356 6357 6372 6384 6386 6387 6405 6408 6457 6462 6467 6468 6508 6515 6530 6546 6556 6565 6569 6584 6593 6595 6599 6620 6627 6629 6660 6676 6697 6699 6737 6762 6812 6817 6819 6826 6828 6845 6847 6848 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 251 ; Cross Reference Listing 6851 6874 6891 6893 6903 6918 6931 6935 6939 6945 6964 6969 6988 7008 7009 7046 7048 7060 7071 7094 7095 7103 7121 7186 7243 7245 7247 7249 7251 7256 7260 7264 7268 7272 7281 7286 7290 7295 7301 7302 7313 7333 7337 7352 7358 7372 7385 7395 7414 7416 7427 7429 7453 7479 7490 7506 7508 7527 7532 7550 7582 7623 7690 7693 7695 7703 7717 7748 7751 7753 7862 7869 7901 7948 7953 7957 7960 7972 7990 7992 7993 7995 8230 8234 8236 8245 8251 8256 8323 8326 8345 8410 8413 8427 8437 8491 8493 8538 8578 8579 8580 8586 8667 8719 8728 8765 8775 8781 8790 8794 8806 8810 8812 8814 8816 8818 8820 8824 8848 D+A 536 # 2291 2303 2318 2331 3489 3511 3566 3681 3727 3756 3820 3837 4062 4089 4092 4754 4762 5040 5109 5121 5930 5933 5997 6030 6085 6183 6208 6218 6221 6361 6379 6422 6431 6438 6440 6559 6635 6742 6750 6824 6830 6898 6900 7334 7483 7528 7701 7707 7709 8331 8339 8353 8355 8432 8597 8705 8715 8829 D+Q 537 # 4990 4998 5029 5048 D-.25 554 # D-A-.25 552 # 3372 3503 4076 4101 4103 4106 5055 6366 6385 D-Q-.25 553 # D.AND.A 571 # 2424 2426 2437 2459 2773 2816 2939 2970 3018 3278 3301 3531 3540 3543 3545 3546 3547 3580 3585 3588 3594 3608 3609 3629 3630 3642 3644 3924 3926 3928 3930 3932 3934 3936 3938 3944 3965 3991 3992 3997 4042 4110 4180 4182 4363 4416 4438 4445 4641 4776 4948 4955 5067 5295 5299 5324 5357 5394 5398 5418 5513 5552 5643 5678 5681 5698 5749 5752 5755 5758 5818 5918 5920 5961 5964 6100 6102 6138 6164 6171 6184 6204 6246 6262 6269 6294 6310 6329 6388 6402 6404 6436 6442 6458 6470 6473 6493 6496 6512 6527 6643 6677 6680 6743 6757 6913 6923 6990 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7063 7065 7067 7069 7072 7074 7076 7097 7100 7125 7132 7136 7140 7147 7166 7187 7188 7197 7215 7221 7227 7232 7252 7275 7317 7367 7369 7370 7371 7373 7375 7377 7379 7381 7383 7494 7534 7568 7625 7632 7638 7652 7684 7686 7700 7829 7833 7838 7840 7842 7844 7846 7848 8231 8235 8284 8288 8306 8350 8357 8360 8375 8380 8429 8444 8448 8452 8458 8472 8476 8478 8498 8503 8531 8544 8551 8554 8570 8572 8599 8601 8603 8637 8640 8642 8645 8648 8669 8679 8720 8733 8737 8740 8745 8751 8767 8792 8841 8844 D.AND.Q 572 # 3115 4516 5329 5638 D.EQV.A 595 # 2888 D.EQV.Q 596 # D.OR.A 560 # 2153 2422 2460 2868 3296 3994 3999 4111 4464 4549 5296 5300 5325 5358 5419 5558 5614 5615 5622 5659 5711 5825 6176 6263 6307 6316 6321 6331 6602 6606 6608 6669 6782 6786 6790 6798 6814 6950 6959 7189 7198 7303 7378 7456 7457 7458 7459 7460 7461 7462 7596 7897 8227 8281 8285 8386 8470 8473 8481 8499 8506 8548 8552 8569 8571 8575 8631 8738 8742 8747 8754 8759 8832 D.OR.Q 561 # 3117 4401 D.XOR.A 587 # 2190 2858 3293 4418 7492 7493 8294 D.XOR.Q 588 # Q 557 # 3119 4129 4137 4184 4192 4192 4203 4215 4357 4412 4429 4435 4440 4444 4450 4458 4977 5139 5165 5376 5381 5452 5494 5518 5612 5619 5639 5651 5662 5721 5723 5767 5812 6109 6148 6550 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 252 ; Cross Reference Listing Q-.25 541 # Q-A-.25 539 # 4433 5038 Q-D-.25 545 # 4981 ZERO 568 # 2163 2163 2165 2168 2175 2177 2179 2196 2218 2402 2806 2983 3024 3044 3273 3611 3975 4228 4254 4324 4460 4538 4805 4818 4824 4825 4828 4900 4901 4904 4960 5103 5145 5169 5302 5373 5384 5396 5400 5402 5403 5416 5429 5521 5694 5722 5761 5777 5805 5986 5988 6022 6041 6089 6094 6106 6117 6146 6267 6285 6287 6305 6339 6395 6399 6403 6406 6461 6585 6623 6663 6733 6808 7033 7036 7104 7158 7170 7216 7293 7368 7413 7438 7439 7471 7474 7481 7495 7710 7755 7876 7879 7949 8280 8302 8381 8441 8459 8547 8567 8779 8785 8804 8822 8823 8854 -A-.25 551 # 2579 2949 4326 4404 4481 4523 4541 4548 4642 4646 4650 4652 5285 5360 5364 5395 5504 5520 5549 5550 5701 5712 5713 5781 5802 5808 6270 6394 7396 -B-.25 550 # 5702 -D-.25 546 # 4455 4615 4620 4625 4630 6001 6273 6944 6958 -Q-.25 549 # 4403 4454 4480 4521 4522 4539 5382 5487 5489 5491 5493 5776 .NOT.A 594 # 2841 2878 2919 2929 3290 4096 4335 4540 4644 4651 5454 5502 5517 5519 5700 5710 5779 5970 5972 6524 7398 7473 7683 8678 .NOT.A.AND.B 575 # 4131 5587 7070 7073 7374 7384 7554 .NOT.A.AND.Q 574 # 5724 .NOT.B 593 # 5807 6179 .NOT.D 597 # 2898 2908 4619 4624 4629 6018 6046 6050 6186 6190 6272 6962 .NOT.D.AND.A 579 # 2826 3623 4027 5556 5658 5709 5826 6410 6778 6794 7061 7087 7199 7380 7598 8510 8560 8735 .NOT.D.AND.Q 580 # .NOT.Q 592 # 4914 5775 5989 0+A 535 # 5842 0+B 534 # 0+D 538 # 0+Q 533 # 5588 5735 (U) AD PARITY OK 707 # 2183 2359 2372 2373 2590 2691 2693 2724 2730 2783 2967 2970 2984 3018 3475 3719 3752 3774 3832 3845 4152 4194 4331 4722 5118 5288 5321 5353 5417 5563 5960 5963 5978 5981 6011 6027 6099 6101 6119 6151 6163 6166 6194 6197 6199 6206 6216 6257 6259 6260 6292 6297 6298 6299 6320 6325 6337 6372 6457 6515 6556 6593 6595 6699 6812 6819 6845 6847 6874 6931 6939 6945 7582 7869 8257 (U) ADFLGS 1111 # 2580 3406 3422 3489 3503 4063 4077 4094 4104 4107 4234 4645 4647 (U) AREAD 1145 # 2323 (U) B 653 # AR 657 # 2160 2162 2177 2240 2244 2247 2259 2262 2265 2322 2355 2359 2364 2372 2378 2391 2396 2398 2407 2416 2416 2419 2419 2428 2429 2459 2460 2497 2523 2529 2535 2540 2543 2571 2574 2579 2691 2693 2718 2720 2723 2724 2726 2729 2730 2732 2738 2740 2742 2745 2747 2749 2752 2754 2756 2759 2761 2763 2806 2816 2826 2841 2858 2868 2878 2888 2898 2909 2909 2919 2929 2939 2949 2967 2970 2974 2984 2986 2990 2993 2997 3002 3005 3007 3008 3010 3012 3013 3043 3044 3045 3070 3086 3142 3271 3276 3290 3293 3296 3301 3302 3331 3334 3337 3343 3346 3349 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 253 ; Cross Reference Listing 3372 3389 3391 3406 3406 3408 3422 3616 3616 3634 3637 3637 3644 3772 3777 3782 3832 3964 3965 3972 3991 4007 4008 4020 4023 4027 4036 4039 4047 4062 4076 4092 4097 4097 4103 4106 4109 4129 4135 4137 4138 4155 4156 4173 4221 4324 4326 4331 4333 4358 4380 4414 4420 4424 4467 4471 4471 4474 4474 4478 4481 4484 4498 4523 4537 4540 4541 4546 4551 4554 4557 4559 4561 4562 4562 4563 4593 4629 4630 4634 4644 4646 4651 4652 4695 4704 4708 4712 4723 4726 4735 4737 4741 4741 4742 4770 4808 4823 4825 4828 4829 4889 4890 4891 4892 4893 4894 4897 4905 4914 4915 4915 4917 4917 4972 4974 4984 4987 4988 5017 5026 5040 5050 5055 5058 5060 5064 5142 5166 5180 5181 5183 5285 5292 5294 5295 5296 5305 5305 5331 5332 5353 5357 5358 5369 5374 5376 5377 5379 5381 5382 5407 5409 5411 5415 5417 5418 5419 5439 5444 5445 5448 5449 5449 5451 5453 5453 5486 5488 5490 5492 5495 5498 5502 5504 5506 5507 5508 5509 5510 5511 5514 5514 5517 5519 5520 5529 5532 5532 5534 5550 5577 5582 5582 5584 5589 5591 5635 5672 5676 5680 5683 5706 5709 5711 5713 5737 5738 5746 5750 5753 5756 5768 5771 5779 5781 5785 5788 5790 5792 5807 5813 5816 5838 5841 5842 5846 5885 5887 5889 5891 5893 5895 5897 5899 5901 5927 5956 5956 5963 5970 5972 5973 5988 5989 5997 6001 6014 6015 6015 6018 6020 6020 6021 6021 6027 6034 6035 6045 6046 6048 6050 6051 6052 6052 6057 6057 6065 6104 6104 6105 6106 6119 6125 6132 6136 6136 6139 6139 6142 6146 6151 6153 6160 6161 6163 6171 6179 6183 6186 6190 6259 6262 6263 6264 6272 6273 6277 6297 6299 6302 6311 6320 6337 6351 6352 6353 6354 6354 6359 6377 6379 6381 6386 6390 6403 6405 6406 6408 6430 6433 6438 6444 6444 6455 6467 6468 6469 6470 6472 6473 6506 6526 6530 6531 6531 6551 6556 6558 6559 6562 6584 6585 6597 6599 6620 6623 6625 6625 6627 6635 6643 6647 6647 6648 6660 6663 6666 6669 6673 6676 6680 6697 6699 6700 6730 6736 6737 6742 6750 6751 6753 6759 6808 6812 6817 6819 6823 6824 6826 6828 6830 6845 6847 6850 6851 6852 6852 6854 6855 6857 6874 6879 6892 6893 6894 6894 6895 6903 6918 6919 6923 6931 6935 6936 6939 6944 6948 6952 6952 6953 6956 6956 6958 6959 6960 6962 6972 6972 6980 6980 7121 7125 7136 7181 7183 7256 7257 7260 7261 7264 7265 7268 7269 7272 7273 7281 7285 7285 7286 7288 7290 7291 7291 7293 7295 7296 7296 7299 7301 7313 7323 7337 7352 7353 7354 7413 7414 7418 7420 7420 7424 7427 7431 7433 7433 7471 7475 7479 7482 7483 7485 7485 7490 7508 7518 7522 7524 7524 7579 7601 7626 7632 7638 7687 7690 7695 7701 7703 7707 7709 7710 7748 7757 7757 7862 7869 7896 7897 7970 7971 7972 7973 7990 7991 7992 8227 8237 8243 8331 8339 8345 8353 8355 8361 8364 8384 8386 8410 8413 8427 8432 8439 8444 8481 8491 8493 8499 8535 8538 8541 8544 8556 8556 8586 8597 8601 8635 8667 8678 8775 8781 8790 8794 8795 8806 8829 8856 8869 8869 8873 ARX 658 # 2183 2187 2368 2373 2402 2426 2491 2773 2774 2783 2789 3681 3712 3714 3719 3727 3752 3756 3831 3834 3948 3950 3950 3958 3968 3984 4031 4089 4101 4110 4111 4127 4128 4133 4157 4160 4161 4174 4174 4182 4192 4205 4205 4211 4214 4228 4234 4254 4273 4277 4281 4285 4291 4295 4299 4303 4345 4357 4363 4429 4435 4444 4538 4543 4549 4565 4585 4585 4588 4588 4599 4641 4642 4650 4718 4722 4909 4916 4942 4945 4948 4951 4954 5098 5147 5147 5172 5291 5359 5360 5371 5549 5651 5663 5663 5698 5721 5796 5796 5798 5798 5800 5800 5802 5835 5979 5981 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 254 ; Cross Reference Listing 5999 6030 6036 6062 6067 6075 6075 6078 6080 6085 6099 6103 6123 6129 6134 6140 6166 6168 6197 6218 6224 6224 6227 6237 6237 6246 6257 6269 6270 6275 6278 6298 6300 6310 6314 6315 6315 6325 6343 6372 6383 6387 6389 6389 6391 6428 6436 6440 6442 6582 6762 6805 6873 6876 6949 6950 6969 6970 7063 7065 7103 7104 7317 7320 7328 7332 7334 7345 7481 7520 7520 7530 7530 7653 7655 7664 7670 7693 7751 7755 7767 7874 7879 7882 7946 7948 7953 7957 7960 7961 7965 7968 7975 7978 7981 7984 7987 7993 7995 8247 8315 8323 8326 8381 8398 8416 8418 8459 8567 8578 8631 8695 8695 8705 8710 8710 8715 8719 8725 8728 BR 659 # 2185 2386 2387 2413 2422 2424 2590 2593 2908 3018 3040 3073 3074 3077 3078 3079 3080 3092 3095 3098 3101 3104 3108 3111 3113 3145 3146 3149 3150 3273 3278 3287 3431 3434 3437 3440 3443 3446 3449 3452 3475 3489 3503 3511 3615 3621 3630 3680 3691 3697 3703 3725 3742 3748 3774 3808 3810 3814 3819 3829 3845 3846 3850 3988 3990 3990 3994 3999 4002 4096 4175 4321 4330 4339 4353 4360 4365 4370 4374 4392 4394 4396 4404 4408 4426 4427 4544 4548 4552 4553 4697 4702 4716 4776 4796 4797 4798 4799 4800 4816 4818 4820 4955 4958 4960 4964 4967 4982 4992 5019 5031 5067 5070 5106 5107 5109 5119 5121 5288 5290 5293 5299 5300 5304 5351 5395 5441 5454 5528 5553 5556 5558 5569 5639 5677 5695 5702 5719 5917 5922 5922 5924 5930 5931 5933 5936 5940 5942 5943 5945 5960 5968 5978 5985 6011 6019 6038 6061 6066 6138 6194 6199 6206 6207 6208 6210 6216 6221 6229 6235 6235 6247 6247 6260 6339 6340 6341 6341 6361 6364 6366 6368 6375 6375 6385 6392 6394 6410 6462 6463 6465 6476 6478 6479 6515 6524 6593 6595 6596 6848 6891 6933 6941 6945 6964 7008 7009 7015 7016 7033 7034 7036 7040 7046 7048 7060 7061 7064 7064 7068 7068 7070 7070 7079 7080 7082 7094 7095 7097 7100 7106 7106 7147 7158 7162 7186 7187 7189 7190 7191 7212 7214 7215 7216 7221 7227 7233 7243 7245 7247 7249 7251 7284 7302 7303 7304 7327 7330 7333 7343 7358 7364 7371 7372 7406 7416 7429 7494 7506 7528 7532 7538 7538 7550 7555 7568 7582 7594 7596 7598 7614 7617 7620 7623 7630 7636 7656 7662 7668 7759 7763 7974 8234 8254 8264 8266 8268 8270 8296 8299 8302 8328 8336 8421 8437 8441 8559 8560 8579 8764 8765 8767 8844 8848 8850 8864 BRX 660 # 2181 2182 2182 4123 4125 4152 4153 4180 4199 4230 4253 4351 4412 4470 5043 5046 5103 5105 5118 5124 5149 5154 5171 5171 5321 5324 5325 5327 5361 5363 5364 5366 5552 5643 5644 5655 5658 5659 5692 5701 5920 5964 6054 6063 6068 6091 6093 6101 6120 6127 6141 6164 6169 6176 6251 6251 6265 6292 6294 6305 6307 6316 6321 6327 6327 6331 6334 6334 6345 6346 6363 6393 6457 6484 6510 6512 6606 6608 6611 6656 6674 6674 6677 6682 6682 6684 6773 6778 6782 6786 6790 6794 6798 6814 7071 7073 7073 7075 7075 7077 7085 7087 7089 7222 7228 7231 7232 7329 7463 7464 7465 7466 7467 7468 7469 7534 7537 7592 7683 7743 7976 8230 8231 8233 8244 8245 8246 8256 8260 8262 8274 8275 8276 8285 8288 8294 8310 8409 8470 8473 8506 8548 8552 8554 8569 8571 8575 8577 8580 8689 8742 8754 8759 8770 8770 8836 EBR 662 # 2165 3954 7196 7198 7199 7979 FLG 665 # 2168 2170 2172 2173 3623 5111 5145 5169 5521 5614 5615 5622 5761 5777 5805 5825 5826 5977 6003 6006 6022 6028 6076 6082 6090 6094 6117 6121 6128 6147 6175 6267 6357 6384 6395 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 255 ; Cross Reference Listing 6399 6461 6508 6565 6569 6602 6629 6733 7983 8236 8281 8510 8547 8633 8633 8735 8738 8747 8800 8804 8810 8812 8814 8816 8818 8820 8822 8823 8824 8832 8854 HR 656 # 2180 2186 2186 2271 2303 2318 2331 2341 2365 2437 3531 3540 3543 3545 3546 3547 3551 3562 3566 3575 3580 3585 3588 3590 3608 3629 3642 3655 3661 3665 3924 3926 3928 3930 3932 3934 3936 3938 3944 3975 3980 4019 4042 4046 4607 6913 6988 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7252 7275 7314 7339 7344 7370 7698 7829 7833 7838 7840 7842 7844 7846 7848 7901 7969 MAG 654 # 2154 4232 4266 4391 4439 4462 4896 4901 4904 5637 5727 5763 5809 7966 MASK 664 # 2151 2152 2153 3610 4131 5990 7955 7982 ONE 661 # 2157 2176 2178 2785 6358 7977 PC 655 # 2218 2231 2233 2278 2291 2297 3021 3340 3456 3459 3527 3528 3529 3538 3541 3554 3581 3596 3619 3709 3761 3820 3837 3974 6252 6507 6507 7510 7680 7765 7967 8798 8808 8808 8858 8866 PI 666 # 2196 7368 7374 7374 7376 7376 7378 7380 7382 7382 7384 7384 7456 7457 7458 7459 7460 7461 7462 7553 7554 7554 7985 T0 668 # 3595 4151 4159 4191 4194 4201 4440 4446 4450 4452 4454 4459 4464 4465 5563 5568 5575 5576 5603 5605 5606 5607 5610 5618 5621 5623 5650 5723 5729 6356 6422 6431 6432 7385 7395 7396 7397 7397 7527 7717 7721 7727 7729 7988 T1 669 # 2193 2204 2221 2250 2268 2519 3582 4400 4411 4418 4432 4434 4451 4476 4558 5587 5587 5612 5619 5662 5674 5694 5700 5710 5732 6426 6439 7504 7536 7881 7989 8789 UBR 663 # 2163 7132 7151 7151 7166 7170 7173 7173 7175 7175 7980 XWD1 667 # 2155 7986 (D) B 1330 # 3179 3180 3181 3182 3183 3184 3188 3189 3190 3191 3192 3193 3195 3196 3197 3198 3199 3200 3201 3202 3204 3205 3206 3207 3208 3209 3210 3211 3213 3214 3215 3216 3217 3218 3219 3220 3222 3223 3224 3225 3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3239 3240 3241 3242 3243 3244 3245 3246 3352 3353 3354 3355 3356 3357 3358 3359 3361 3362 3363 3364 3365 3366 3367 3368 3378 3379 3380 3381 3382 3383 3384 3385 3395 3396 3397 3398 3399 3400 3401 3402 3411 3412 3413 3414 3415 3416 3417 3418 3464 3465 3466 3467 3468 3469 3470 3471 3478 3479 3480 3481 3482 3483 3484 3485 3492 3493 3494 3495 3496 3497 3498 3499 3506 3507 3671 3672 3673 3768 3857 3858 3859 3860 3861 3862 3863 3864 3914 3915 3916 3917 3918 3919 5854 5855 5856 5857 5858 5859 5860 5862 5863 5864 5865 5867 5868 5869 5870 5875 5876 5877 5878 5879 7560 7561 7562 7563 7571 7572 7573 7574 7585 7586 7587 7588 7772 7773 7774 7776 7777 7779 7780 7782 7783 7784 7785 7786 7787 7788 7789 7791 7792 7793 7794 7795 7796 7797 7798 7800 7801 7802 7803 7804 7805 7806 7807 7809 7810 7811 7812 7813 7814 7815 7816 7818 7819 7820 7821 7822 7823 7824 7825 AC 1334 # 2549 2550 2554 2555 2559 2560 2564 2565 2586 2602 2603 2607 2608 2612 2613 2617 2618 2622 2623 2627 2628 2632 2633 2637 2638 2644 2645 2649 2650 2654 2655 2659 2660 2664 2665 2669 2670 2674 2675 2679 2680 2769 2799 2800 2809 2810 2819 2820 2829 2830 2834 2835 2851 2852 2861 2862 2871 2872 2881 2882 2891 2892 2901 2902 2912 2913 2922 2923 2932 2933 2942 2943 4055 4056 4069 4070 4117 4118 4687 8223 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 256 ; Cross Reference Listing BOTH 1336 # 2802 2812 2822 2832 2837 2854 2864 2874 2884 2894 2904 2915 2925 2935 2945 4058 4072 4120 DBLAC 1332 # 2768 4084 4085 4142 4143 4168 4309 4310 4314 4315 4386 5628 5689 DBLB 1333 # 4145 4312 4317 MEM 1335 # 2551 2556 2561 2566 2604 2609 2614 2619 2624 2629 2634 2639 2646 2651 2656 2661 2666 2671 2676 2681 2801 2811 2821 2831 2836 2846 2847 2853 2863 2873 2883 2893 2903 2914 2924 2934 2944 4057 4071 4119 4144 4311 4316 7238 SELF 1331 # 2552 2557 2562 2567 2605 2610 2615 2620 2625 2630 2635 2640 2647 2652 2657 2662 2667 2672 2677 2682 (U) BWRITE 1154 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 4063 4077 4129 4135 4158 4160 5449 5453 5499 5521 8557 8857 (U) BYTE 813 # BYTE1 814 # 4697 4702 4716 4737 4890 6038 6048 6530 6676 6848 6851 6891 6893 6964 BYTE2 815 # 4891 BYTE3 816 # 4892 BYTE4 817 # 4893 BYTE5 818 # 3043 4796 4797 4798 4799 4800 4894 6660 (U) CALL 965 # 2158 2184 2196 2401 2773 2783 3553 3592 3594 3595 3609 3633 3636 3833 3836 3951 3967 3972 3976 3982 3985 4019 4021 4126 4154 4181 4190 4200 4210 4233 4343 4364 4419 4425 4439 4443 4449 4495 4519 4697 4702 4706 4711 4716 4725 4728 4976 4986 5020 5047 5102 5118 5120 5328 5370 5373 5378 5380 5488 5490 5492 5507 5508 5509 5568 5576 5604 5644 5649 5661 5668 5675 5694 5718 5722 5726 5751 5754 5757 5789 5791 5793 5799 5919 5959 5962 5966 5998 6004 6029 6053 6064 6079 6083 6090 6100 6102 6108 6122 6131 6152 6167 6170 6183 6198 6209 6217 6220 6223 6226 6234 6239 6266 6301 6310 6326 6338 6365 6376 6384 6401 6427 6456 6459 6464 6539 6547 6557 6560 6570 6583 6598 6605 6626 6630 6698 6732 6756 6856 6875 6880 6932 6940 6951 7222 7292 7316 7319 7338 7385 7415 7428 7477 7507 7509 7525 7529 7567 7578 7593 7612 7621 7650 7657 7682 7875 7877 7883 7899 7947 7949 7966 7969 7971 7973 7976 7979 7982 7985 7988 7990 8349 8356 8367 8374 8385 8390 8412 8415 8428 8451 8461 8492 8519 8598 8766 8777 8837 8865 (U) CHKL 718 # 2271 2341 2355 2364 2368 2385 2396 2407 2413 2426 2497 2529 2535 2540 2543 2593 2789 3089 3408 3551 3575 3590 3615 3619 3680 3697 3703 3725 3742 3748 3761 3819 3850 3972 3974 3980 4007 4019 4023 4046 4124 4217 4219 4322 4332 4416 4438 4445 4742 4770 4776 4897 5162 5917 5936 6356 6546 6596 6599 6627 6903 6918 6988 7121 7256 7260 7264 7268 7272 7313 7343 7345 7352 7406 7490 7532 7656 7703 7748 7751 7753 7763 7765 7862 7881 7901 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8345 8427 8667 8719 8836 8850 8864 8866 (U) CHKR 725 # 2271 2341 2355 2364 2368 2385 2396 2407 2413 2426 2497 2529 2535 2540 2543 2593 2789 3089 3408 3551 3575 3590 3615 3619 3680 3697 3703 3725 3742 3748 3761 3819 3850 3972 3974 3980 4007 4019 4023 4046 4124 4217 4219 4322 4332 4416 4438 4445 4742 4770 4776 4897 5162 5917 5936 6356 6546 6596 6599 6627 6903 6918 6988 7121 7256 7260 7264 7268 7272 7313 7343 7345 7352 7406 7490 7532 7656 7703 7748 7751 7753 7763 7765 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 257 ; Cross Reference Listing 7862 7881 7901 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8345 8427 8667 8719 8836 8850 8864 8866 (U) CLKL 714 # 2231 2233 2278 2291 2292 2298 2303 2318 2319 2331 2342 2365 2693 2724 2732 2754 2756 3340 3456 3459 3527 3528 3529 3538 3541 3554 3566 3596 3620 3634 3762 3821 3835 3839 3984 3996 4001 4031 4047 4098 4741 4771 4980 5039 5062 5111 5123 5145 5149 5154 5169 5172 5182 5330 5593 5930 5933 5936 5977 6003 6006 6022 6028 6057 6076 6082 6090 6094 6105 6117 6121 6128 6147 6175 6252 6267 6305 6340 6357 6384 6395 6399 6455 6461 6508 6565 6569 6604 6629 6670 6675 6733 6852 6894 6903 7062 7088 7102 7171 7187 7189 7233 7314 7319 7344 7378 7380 7382 7384 7396 7456 7457 7458 7459 7460 7461 7462 7484 7554 7680 7701 7701 7882 7898 7968 7975 7978 7981 7984 7987 8236 8501 8547 8555 8798 8804 8810 8812 8814 8816 8818 8820 8822 8823 8824 8854 8873 (U) CLKR 721 # 2422 2424 2437 2459 2460 2691 2726 2730 2747 2749 2773 3116 3118 3389 3531 3540 3543 3545 3546 3547 3580 3585 3588 3608 3629 3642 3773 3924 3926 3928 3930 3932 3934 3936 3938 3946 3966 3976 4028 4044 4109 4110 4111 4133 4156 4363 4402 4464 4518 4641 4818 4953 4961 5024 5069 5104 5108 5295 5296 5299 5300 5324 5325 5357 5358 5418 5419 5495 5511 5614 5615 5622 5638 5760 5795 5825 5826 5841 5923 5945 6172 6177 6246 6262 6263 6269 6308 6310 6317 6323 6332 6351 6403 6406 6411 6436 6442 6513 6607 6609 6679 6683 6737 6779 6783 6787 6791 6795 6799 6815 6913 6925 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7056 7096 7099 7127 7134 7138 7153 7159 7168 7176 7198 7199 7217 7221 7227 7252 7275 7286 7370 7372 7374 7376 7508 7710 7755 7829 7833 7838 7840 7842 7844 7846 7848 8229 8232 8283 8287 8290 8295 8446 8471 8508 8512 8546 8550 8553 8564 8634 8739 8744 8749 8755 8769 8832 (U) CLRFPD 1083 # 3692 3809 3815 4212 4712 4729 6395 (D) COND FUNC 1353 # 2551 2552 2556 2557 2561 2562 2566 2567 2604 2605 2609 2610 2614 2615 2619 2620 2624 2625 2629 2630 2634 2635 2639 2640 2646 2647 2651 2652 2656 2657 2661 2662 2666 2667 2671 2672 2676 2677 2681 2682 2801 2802 2811 2812 2821 2822 2831 2832 2836 2837 2846 2847 2853 2854 2863 2864 2873 2874 2883 2884 2893 2894 2903 2904 2914 2915 2924 2925 2934 2935 2944 2945 4057 4058 4071 4072 4119 4120 4144 4145 4311 4312 4316 4317 5266 5267 5270 5271 5274 5275 5278 5279 5311 5312 5316 5317 5340 5341 5345 5346 7238 (U) CRY38 948 # 2579 2949 3372 3422 3503 3529 3538 3541 4076 4093 4101 4106 4280 4284 4326 4370 4403 4426 4427 4433 4454 4480 4521 4522 4523 4539 4541 4548 4554 4585 4615 4620 4625 4630 4642 4646 4650 4652 4981 5038 5055 5105 5124 5142 5166 5285 5360 5363 5364 5371 5382 5395 5487 5489 5491 5493 5504 5520 5549 5588 5701 5712 5719 5735 5776 5781 5802 5808 5842 5968 6001 6015 6036 6103 6139 6140 6141 6188 6252 6270 6273 6341 6358 6366 6385 6393 6394 6428 6430 6433 6481 6823 6944 6952 6958 7296 7396 7420 7433 7680 8691 8701 8798 8858 (U) DBM 693 # APR FLAGS 696 # 7008 7009 7071 7103 7302 BYTES 697 # DP 699 # 3043 4697 4702 4716 4737 4796 4797 4798 4799 4800 4890 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 258 ; Cross Reference Listing 4891 4892 4893 4894 6038 6048 6530 6660 6676 6848 6851 6891 6893 6964 DP SWAP 700 # 2391 2571 2718 2720 2723 2726 2729 2732 3271 3276 3595 3772 3831 3846 3964 4816 4942 4958 5058 5098 5107 5180 6405 6462 6467 6468 6762 7095 7372 7385 7395 8437 8728 EXP 698 # 5495 5511 5841 7327 7328 7329 MEM 702 # 2163 2270 2341 2354 2363 2367 2395 2406 2412 2425 3550 3574 3589 3611 3615 3619 3679 3724 3761 3849 4006 4769 4775 5161 5917 5936 6356 6599 6627 6903 6917 6973 6981 6988 7120 7256 7260 7264 7268 7272 7312 7352 7474 7478 7490 7526 7532 7622 7703 7748 7751 7753 7861 7876 7900 7949 8280 8344 8426 8666 8718 8779 8785 PF DISP 695 # 8250 SCAD DIAG 694 # VMA 701 # 7717 7960 8230 8245 8765 # 703 # 2151 2153 2155 2157 2160 2180 2181 2190 2193 2204 2221 2240 2244 2247 2250 2259 2262 2265 2268 2422 2424 2437 2459 2460 2519 2747 2749 2754 2756 2773 3044 3115 3117 3531 3540 3543 3545 3546 3547 3580 3582 3585 3588 3594 3608 3609 3623 3629 3642 3727 3756 3820 3837 3924 3926 3928 3930 3932 3934 3936 3938 3944 3948 3988 3992 3994 3997 3999 4027 4036 4042 4110 4111 4363 4400 4401 4411 4418 4464 4516 4543 4549 4641 4806 4948 4951 4955 4974 4978 4984 4988 5017 5022 5055 5060 5067 5111 5121 5295 5296 5299 5300 5324 5325 5329 5357 5358 5394 5398 5418 5419 5513 5556 5558 5614 5615 5622 5638 5658 5659 5678 5681 5709 5711 5749 5752 5755 5758 5818 5825 5826 5885 5887 5889 5891 5893 5895 5897 5899 5901 5918 5920 5945 5961 5964 5977 6003 6006 6028 6076 6082 6090 6100 6102 6121 6128 6147 6160 6164 6171 6175 6176 6184 6188 6204 6246 6262 6263 6269 6275 6294 6307 6310 6316 6321 6329 6331 6357 6384 6388 6402 6404 6410 6422 6431 6436 6442 6458 6470 6473 6481 6493 6496 6508 6512 6527 6565 6569 6585 6597 6602 6606 6608 6623 6629 6643 6663 6669 6677 6680 6757 6778 6782 6786 6790 6794 6798 6808 6814 6913 6923 6990 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7033 7036 7046 7048 7061 7063 7065 7067 7069 7072 7074 7076 7087 7097 7100 7104 7125 7132 7136 7140 7147 7166 7187 7188 7189 7197 7198 7199 7215 7221 7227 7232 7252 7275 7284 7303 7317 7367 7369 7370 7371 7373 7375 7377 7378 7379 7380 7381 7383 7414 7416 7427 7429 7456 7457 7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468 7469 7471 7475 7483 7492 7493 7504 7508 7522 7528 7534 7536 7550 7614 7617 7625 7632 7638 7652 7653 7664 7670 7684 7686 7700 7743 7829 7833 7838 7840 7842 7844 7846 7848 7896 7897 8227 8231 8235 8236 8260 8262 8276 8281 8284 8285 8288 8294 8302 8306 8331 8339 8350 8357 8360 8375 8380 8381 8429 8441 8444 8448 8452 8458 8459 8470 8472 8473 8476 8478 8498 8499 8503 8506 8510 8531 8544 8548 8551 8552 8554 8560 8567 8569 8570 8571 8572 8575 8599 8603 8631 8637 8640 8642 8645 8648 8669 8679 8691 8701 8705 8715 8720 8733 8735 8737 8738 8740 8742 8745 8747 8751 8754 8759 8767 8789 8792 8810 8812 8814 8816 8818 8820 8824 8829 8832 8841 (U) DBUS 684 # DBM 690 # 2151 2153 2155 2157 2160 2163 2180 2181 2190 2193 2204 2221 2240 2244 2247 2250 2259 2262 2265 2268 2270 2271 2341 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 259 ; Cross Reference Listing 2341 2354 2355 2363 2364 2367 2368 2391 2395 2396 2406 2407 2412 2413 2422 2424 2425 2426 2437 2459 2460 2519 2571 2718 2720 2723 2726 2729 2732 2747 2749 2754 2756 2773 3043 3044 3115 3117 3271 3276 3531 3540 3543 3545 3546 3547 3550 3551 3574 3575 3580 3582 3585 3588 3589 3590 3594 3595 3608 3609 3611 3615 3615 3619 3619 3623 3629 3642 3679 3680 3724 3725 3727 3756 3761 3761 3772 3820 3831 3837 3846 3849 3850 3924 3926 3928 3930 3932 3934 3936 3938 3944 3948 3964 3988 3992 3994 3997 3999 4006 4007 4027 4036 4042 4110 4111 4363 4400 4401 4411 4418 4464 4516 4543 4549 4641 4697 4702 4716 4737 4769 4770 4775 4776 4796 4797 4798 4799 4800 4806 4816 4890 4891 4892 4893 4894 4942 4948 4951 4955 4958 4974 4978 4984 4988 5017 5022 5055 5058 5060 5067 5098 5107 5111 5121 5161 5162 5180 5295 5296 5299 5300 5324 5325 5329 5357 5358 5394 5398 5418 5419 5495 5511 5513 5556 5558 5614 5615 5622 5638 5658 5659 5678 5681 5709 5711 5749 5752 5755 5758 5818 5825 5826 5841 5885 5887 5889 5891 5893 5895 5897 5899 5901 5917 5917 5918 5920 5936 5936 5945 5961 5964 5977 6003 6006 6028 6038 6048 6076 6082 6090 6100 6102 6121 6128 6147 6160 6164 6171 6175 6176 6184 6188 6204 6246 6262 6263 6269 6275 6294 6307 6310 6316 6321 6329 6331 6356 6356 6357 6384 6388 6402 6404 6405 6410 6422 6431 6436 6442 6458 6462 6467 6468 6470 6473 6481 6493 6496 6508 6512 6527 6530 6565 6569 6585 6597 6599 6599 6602 6606 6608 6623 6627 6627 6629 6643 6660 6663 6669 6676 6677 6680 6757 6762 6778 6782 6786 6790 6794 6798 6808 6814 6848 6851 6891 6893 6903 6903 6913 6917 6918 6923 6964 6973 6981 6988 6988 6990 6996 7005 7006 7007 7008 7009 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7033 7036 7046 7048 7061 7063 7065 7067 7069 7071 7072 7074 7076 7087 7095 7097 7100 7103 7104 7120 7121 7125 7132 7136 7140 7147 7166 7187 7188 7189 7197 7198 7199 7215 7221 7227 7232 7252 7256 7256 7260 7260 7264 7264 7268 7268 7272 7272 7275 7284 7302 7303 7312 7313 7317 7327 7328 7329 7352 7352 7367 7369 7370 7371 7372 7373 7375 7377 7378 7379 7380 7381 7383 7385 7395 7414 7416 7427 7429 7456 7457 7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468 7469 7471 7474 7475 7478 7479 7483 7490 7490 7492 7493 7504 7508 7522 7526 7527 7528 7532 7532 7534 7536 7550 7614 7617 7622 7623 7625 7632 7638 7652 7653 7664 7670 7684 7686 7700 7703 7703 7717 7743 7748 7748 7751 7751 7753 7753 7829 7833 7838 7840 7842 7844 7846 7848 7861 7862 7876 7896 7897 7900 7901 7949 7960 8227 8230 8231 8235 8236 8245 8250 8256 8260 8262 8276 8280 8281 8284 8285 8288 8294 8302 8306 8331 8339 8344 8345 8350 8357 8360 8375 8380 8381 8426 8427 8429 8437 8441 8444 8448 8452 8458 8459 8470 8472 8473 8476 8478 8498 8499 8503 8506 8510 8531 8544 8548 8551 8552 8554 8560 8567 8569 8570 8571 8572 8575 8599 8603 8631 8637 8640 8642 8645 8648 8666 8667 8669 8679 8691 8701 8705 8715 8718 8719 8720 8728 8733 8735 8737 8738 8740 8742 8745 8747 8751 8754 8759 8765 8767 8779 8785 8789 8792 8810 8812 8814 8816 8818 8820 8824 8829 8832 8841 DP 688 # 2175 2176 2491 2497 2523 2529 2535 2540 2543 2593 2774 2789 3024 3045 3080 3113 3119 3302 3389 3391 3408 3431 3434 3434 3437 3437 3440 3440 3443 3446 3446 3449 3449 3452 3452 3656 3697 3703 3712 3714 3742 3748 3777 3782 3810 3819 3972 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 260 ; Cross Reference Listing 3974 3980 4019 4023 4046 4109 4133 4156 4184 4192 4201 4203 4214 4214 4215 4216 4218 4220 4442 4458 4459 4460 4462 4465 4484 4486 4489 4616 4621 4626 4632 4633 4634 4712 4742 4897 5070 5119 5139 5165 5183 5445 5451 5763 5771 5807 5808 5809 5816 5968 6014 6034 6041 6051 6054 6089 6091 6093 6127 6134 6168 6210 6227 6229 6264 6265 6265 6277 6278 6285 6287 6311 6311 6314 6346 6352 6363 6368 6390 6391 6392 6550 6551 6596 6611 6684 6700 6737 6826 6826 6854 6895 6933 6941 6948 6953 6960 7286 7343 7345 7406 7579 7656 7698 7763 7765 7767 7881 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8237 8800 8836 8850 8864 8866 PC FLAGS 685 # 3630 3644 3691 3808 3814 3965 3991 4020 4221 6969 7494 7506 8844 8848 PI NEW 686 # 7453 RAM 689 # 2183 2291 2303 2318 2331 2359 2372 2373 2385 2386 2590 2691 2693 2724 2730 2783 2816 2826 2858 2868 2888 2898 2908 2939 2967 2970 2984 2990 3002 3005 3018 3089 3092 3278 3293 3296 3301 3372 3475 3489 3503 3511 3558 3566 3681 3719 3752 3774 3832 3845 4062 4076 4089 4092 4101 4103 4106 4124 4152 4180 4182 4194 4199 4217 4219 4322 4331 4332 4414 4416 4438 4445 4455 4615 4619 4620 4624 4625 4629 4630 4718 4722 4754 4762 4972 4981 4982 4994 4998 5033 5040 5045 5053 5109 5118 5181 5288 5321 5353 5417 5552 5553 5563 5643 5655 5698 5706 5930 5933 5960 5963 5978 5981 5997 6001 6011 6018 6027 6030 6046 6050 6065 6066 6067 6068 6085 6099 6101 6119 6132 6138 6145 6151 6163 6166 6183 6186 6190 6194 6197 6199 6206 6208 6216 6218 6221 6257 6259 6260 6272 6273 6292 6297 6298 6299 6320 6325 6337 6343 6353 6361 6366 6372 6379 6385 6386 6387 6408 6428 6433 6438 6440 6457 6515 6546 6556 6559 6584 6593 6595 6620 6635 6697 6699 6742 6743 6750 6812 6817 6819 6824 6828 6830 6845 6847 6874 6898 6900 6931 6935 6939 6944 6945 6950 6958 6959 6962 7060 7094 7186 7243 7245 7247 7249 7251 7281 7290 7295 7301 7333 7334 7337 7358 7568 7582 7596 7598 7690 7693 7695 7701 7707 7709 7869 7948 7953 7957 7972 7990 7992 7993 7995 8234 8323 8326 8353 8355 8386 8410 8413 8432 8481 8491 8493 8538 8578 8579 8580 8586 8597 8601 8775 8781 8790 8794 8806 (U) DEST 619 # A 620 # 2391 2407 2491 2523 2571 2718 2720 2723 2726 2729 2732 2774 3045 3080 3271 3276 3302 3389 3391 3431 3434 3437 3440 3443 3446 3449 3452 3595 3712 3714 3772 3810 3831 3846 3964 4109 4133 4156 4214 4459 4465 4634 4697 4702 4712 4716 4737 4796 4797 4798 4799 4800 4816 4890 4891 4892 4893 4894 4942 4958 5058 5098 5107 5119 5180 5183 5445 5451 5495 5511 5771 5816 5841 6014 6034 6038 6048 6051 6091 6127 6134 6168 6227 6229 6264 6265 6277 6278 6311 6314 6346 6352 6363 6368 6390 6391 6392 6405 6462 6467 6468 6530 6551 6611 6676 6684 6737 6762 6826 6848 6851 6854 6891 6893 6895 6933 6941 6948 6953 6960 6964 7095 7286 7372 7385 7395 7579 7767 8237 8437 8728 AD 622 # 2151 2153 2155 2157 2160 2163 2165 2168 2177 2180 2181 2182 2183 2186 2193 2196 2204 2218 2221 2231 2233 2240 2244 2247 2250 2259 2262 2265 2268 2271 2278 2291 2297 2303 2318 2322 2331 2341 2355 2359 2364 2365 2368 2372 2373 2396 2402 2413 2416 2419 2422 2424 2437 2459 2460 2519 2579 2590 2691 2693 2724 2730 2740 2742 2747 2749 2754 2756 2761 2763 2773 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 261 ; Cross Reference Listing 2783 2806 2816 2826 2841 2858 2868 2878 2888 2898 2908 2909 2919 2929 2939 2949 2967 2970 2984 3018 3021 3044 3273 3278 3290 3293 3296 3301 3340 3372 3406 3422 3456 3459 3475 3489 3503 3511 3527 3528 3531 3540 3543 3545 3546 3547 3551 3554 3566 3575 3580 3581 3582 3585 3588 3590 3596 3608 3615 3616 3619 3623 3629 3630 3634 3637 3642 3644 3655 3680 3681 3691 3709 3719 3725 3727 3752 3756 3761 3774 3808 3814 3820 3829 3832 3834 3837 3845 3850 3924 3926 3928 3930 3932 3934 3936 3938 3944 3948 3950 3965 3975 3984 3988 3990 3991 3994 3999 4007 4020 4027 4031 4036 4042 4047 4062 4076 4089 4092 4096 4097 4101 4103 4106 4110 4111 4123 4129 4135 4137 4138 4151 4152 4157 4160 4161 4175 4191 4205 4221 4228 4321 4324 4326 4330 4331 4345 4351 4357 4363 4380 4400 4411 4412 4418 4429 4435 4444 4452 4464 4471 4474 4523 4538 4540 4541 4543 4548 4549 4562 4629 4630 4641 4642 4644 4646 4650 4651 4652 4722 4735 4741 4770 4776 4818 4829 4914 4915 4916 4917 4951 4960 4972 4974 4982 4984 4988 4991 5017 5030 5040 5043 5049 5060 5067 5103 5106 5109 5111 5118 5121 5145 5147 5149 5154 5169 5171 5172 5181 5285 5288 5291 5292 5293 5295 5296 5299 5300 5305 5321 5324 5325 5331 5351 5353 5357 5358 5359 5360 5395 5417 5418 5419 5449 5453 5454 5502 5504 5514 5517 5519 5520 5521 5532 5549 5550 5563 5568 5569 5576 5577 5587 5612 5614 5615 5619 5622 5639 5650 5662 5663 5692 5694 5695 5700 5701 5702 5710 5721 5723 5737 5738 5761 5777 5779 5781 5796 5798 5800 5802 5805 5825 5826 5842 5885 5887 5889 5891 5893 5895 5897 5899 5901 5917 5920 5922 5930 5931 5933 5936 5945 5956 5960 5963 5964 5970 5972 5977 5978 5979 5981 5989 5997 5999 6001 6003 6006 6011 6015 6018 6020 6021 6022 6027 6028 6030 6036 6045 6046 6050 6052 6057 6065 6066 6067 6068 6075 6076 6080 6082 6085 6090 6094 6099 6101 6104 6105 6106 6117 6119 6121 6128 6132 6136 6138 6139 6140 6141 6146 6147 6151 6160 6163 6164 6166 6171 6175 6176 6183 6186 6190 6194 6197 6199 6208 6216 6218 6221 6224 6235 6237 6246 6247 6251 6252 6257 6259 6260 6262 6263 6267 6269 6270 6272 6273 6275 6292 6294 6297 6298 6299 6305 6307 6310 6315 6316 6320 6321 6325 6327 6331 6334 6337 6339 6340 6341 6343 6351 6353 6354 6356 6357 6359 6361 6366 6372 6375 6379 6384 6385 6386 6387 6389 6393 6394 6395 6399 6403 6406 6408 6410 6422 6426 6428 6430 6431 6433 6436 6438 6440 6442 6444 6455 6457 6461 6470 6473 6507 6508 6512 6515 6524 6526 6531 6556 6559 6565 6569 6584 6585 6593 6595 6597 6599 6602 6606 6608 6620 6623 6625 6627 6629 6635 6643 6663 6669 6674 6677 6680 6682 6697 6699 6733 6742 6750 6759 6778 6782 6786 6790 6794 6798 6808 6812 6814 6817 6819 6823 6824 6828 6830 6845 6847 6850 6852 6873 6874 6892 6894 6903 6913 6918 6923 6931 6935 6939 6944 6945 6949 6950 6952 6956 6958 6959 6962 6969 6972 6980 6988 6996 7005 7006 7007 7008 7009 7011 7012 7013 7014 7015 7016 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7033 7036 7046 7048 7060 7061 7063 7064 7065 7068 7070 7071 7073 7075 7087 7094 7097 7100 7103 7104 7106 7121 7125 7132 7136 7147 7151 7158 7166 7170 7173 7175 7186 7187 7189 7196 7198 7199 7215 7216 7221 7227 7232 7233 7243 7245 7247 7249 7251 7252 7256 7260 7264 7268 7272 7275 7281 7284 7285 7290 7291 7293 7295 7296 7301 7302 7303 7313 7314 7317 7327 7328 7329 7332 7333 7334 7337 7344 7352 7358 7364 7368 7370 7371 7374 7376 7378 7380 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 262 ; Cross Reference Listing 7382 7384 7396 7397 7413 7414 7416 7420 7427 7429 7433 7456 7457 7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468 7469 7471 7475 7479 7481 7483 7485 7490 7494 7504 7506 7508 7510 7520 7522 7524 7527 7528 7530 7532 7536 7538 7550 7554 7568 7582 7592 7594 7596 7598 7601 7614 7617 7623 7626 7632 7638 7653 7664 7670 7683 7690 7693 7695 7701 7703 7707 7709 7710 7717 7743 7748 7751 7755 7757 7829 7833 7838 7840 7842 7844 7846 7848 7862 7869 7879 7882 7896 7897 7901 7948 7953 7957 7960 7968 7972 7975 7978 7981 7984 7987 7990 7992 7993 7995 8227 8230 8231 8234 8236 8245 8256 8260 8262 8276 8281 8285 8288 8294 8296 8302 8323 8326 8331 8339 8345 8353 8355 8381 8384 8386 8410 8413 8427 8432 8441 8444 8459 8470 8473 8481 8491 8493 8499 8506 8510 8535 8538 8544 8547 8548 8552 8554 8556 8559 8560 8567 8569 8571 8575 8578 8579 8580 8586 8597 8601 8631 8633 8667 8678 8695 8705 8710 8715 8719 8735 8738 8742 8747 8754 8759 8765 8767 8770 8775 8781 8789 8790 8794 8798 8804 8806 8808 8810 8812 8814 8816 8818 8820 8822 8823 8824 8829 8832 8844 8848 8854 8856 8858 8869 8873 AD*.5 629 # 2154 2426 2428 2429 2986 2990 3002 3005 3007 3008 3012 3043 3095 3098 4173 4174 4180 4182 4192 4194 4199 4230 4392 4414 4420 4551 4552 4553 4559 4809 4820 4896 4945 4948 4955 4964 5366 5374 5376 5381 5382 5441 5490 5492 5508 5509 5528 5529 5534 5552 5553 5556 5558 5643 5644 5651 5655 5658 5659 5677 5698 5706 5709 5711 5835 5846 6469 6472 6476 6478 6558 6660 6666 6673 6736 7212 7214 7222 7228 7231 7534 7537 7555 7630 7636 8299 8315 AD*2 627 # 2152 2974 2997 3010 3013 3040 4128 4155 4211 4454 4594 4718 5055 5064 5361 5364 5369 5444 6206 6207 6463 6647 6753 7162 7181 7183 7482 7518 7662 7668 7759 8361 8364 8398 8541 PASS 624 # 2162 2170 2172 2173 2176 2178 2179 2185 2187 2230 2234 2252 2309 2336 2345 2432 2497 2529 2535 2540 2543 2593 2789 2790 3113 3328 3408 3455 3460 3534 3570 3632 3643 3665 3697 3703 3732 3737 3742 3748 3777 3782 3816 3819 3847 3972 3974 3980 4019 4023 4046 4131 4159 4201 4216 4218 4220 4223 4398 4442 4462 4484 4486 4489 4616 4621 4626 4632 4633 4695 4698 4707 4742 4758 4766 4897 4954 4967 4977 4987 5019 5099 5127 5135 5763 5807 5808 5809 5927 5934 5940 5943 5968 5973 5990 6035 6061 6062 6063 6078 6109 6125 6148 6161 6179 6210 6300 6302 6358 6364 6377 6383 6460 6516 6582 6594 6596 6636 6700 6730 6899 6901 6919 6936 6970 7034 7040 7082 7118 7191 7223 7257 7261 7265 7269 7273 7288 7299 7320 7323 7330 7343 7345 7353 7354 7387 7405 7406 7411 7438 7439 7489 7553 7620 7655 7656 7658 7687 7702 7721 7727 7729 7761 7763 7765 7858 7866 7874 7881 7893 7946 7961 7966 7967 7969 7970 7971 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 7994 8233 8243 8244 8246 8247 8251 8254 8264 8266 8268 8270 8274 8275 8328 8336 8341 8416 8418 8421 8439 8565 8581 8662 8764 8833 8836 8850 8864 8866 Q_AD 623 # 2385 2983 3089 3115 3117 4124 4150 4189 4209 4217 4219 4229 4322 4332 4391 4401 4403 4416 4438 4441 4443 4445 4456 4469 4470 4473 4480 4488 4516 4521 4522 4539 4564 4615 4619 4620 4624 4625 4824 4900 4907 4969 4978 4981 4998 5022 5038 5045 5105 5162 5302 5326 5329 5373 5384 5396 5400 5402 5403 5416 5429 5487 5489 5491 5493 5561 5570 5573 5578 5588 5593 5633 5638 5648 5661 5667 5679 5682 5712 5717 5722 5724 5735 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 263 ; Cross Reference Listing 5759 5775 5776 5794 5986 6145 6546 7753 Q_Q*.5 628 # 2386 2387 3073 3092 3101 3145 4125 4153 4232 4253 4254 4266 4273 4281 4291 4299 4394 4396 4404 4408 4424 4439 4446 4498 4546 5046 5304 5327 5332 5407 5409 5439 5582 5607 5610 5618 5621 5623 5637 5672 5713 5727 5753 5756 5790 5792 5838 Q_Q*2 626 # 2993 3074 3077 3078 3079 3104 3108 3111 3146 3149 3150 4277 4285 4295 4303 4440 4450 4478 4481 4554 4557 4558 4561 4563 4585 4588 4600 4605 4825 4828 4901 4904 4909 5486 5498 5506 5510 5584 5589 5591 5603 5605 5606 5635 5676 5680 5729 5746 5768 5785 5813 5988 (U) DISP 858 # 4566 ADISP 865 # AREAD 861 # 2323 BDISP 866 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 3273 3279 3372 3391 3392 3475 3489 3503 3513 3698 3705 3743 4063 4077 4129 4135 4158 4160 5441 5449 5453 5499 5511 5521 5528 5932 5974 6118 6173 6380 6734 6806 6813 7568 7595 7613 7624 7651 8557 8857 BYTE 871 # 4710 4727 6155 6858 6879 CONSOLE 859 # DP 864 # 4432 4434 4451 4476 6479 6506 8800 DP LEFT 862 # 6465 6760 7454 8252 DROM 860 # 2356 2360 2369 2374 2382 2403 2409 2433 2438 5941 5944 EAMODE 872 # 2281 2347 3556 4749 4752 5928 6896 6904 7692 MUL 868 # 4273 4281 4291 4299 5585 5611 5613 5730 NICOND 870 # 2230 2231 2233 2234 2294 2300 2524 3045 3091 3119 3328 3340 3431 3455 3456 3459 3460 3527 3528 3554 3596 3713 3789 3796 4223 4487 4490 4698 5445 5451 5810 7387 7658 8237 NORM 863 # 5305 5334 5411 5486 5488 5498 5502 5504 5506 5507 5510 5532 5683 5737 5738 5748 5750 5770 5780 5782 5787 5788 5815 5844 PAGE FAIL 869 # RETURN 867 # 2459 2460 3561 3565 4029 4032 4235 4278 4286 4296 4304 4498 4520 4521 4523 4607 4634 4736 4738 4742 4777 4810 4829 4897 5111 5531 5533 5534 5623 5818 5825 5826 5841 6230 6240 6245 6248 6286 6287 6437 6443 6614 6637 6702 6733 6745 6776 6792 6809 6818 6820 6846 6881 6914 6920 6925 6965 7233 7300 7324 7399 7443 7551 7554 7626 7633 7639 7696 7704 7708 7711 7737 7749 7751 7753 7755 7757 7759 7761 7763 7765 7767 7958 7962 7996 8587 8602 8651 8654 8655 8668 8677 8680 8681 8785 8873 SCAD0 873 # 4697 4702 4716 4792 5288 5431 5433 5986 5988 6039 6849 6891 7723 (U) DIVIDE 959 # 4557 4558 4602 4606 (U) DONT CACHE 1129 # (U) DP FUNC 1146 # 7620 7655 7761 8566 8582 (U) DT 928 # 2T 931 # 3T 932 # 2183 2373 2385 2386 2496 2528 2534 2539 2542 2592 2783 2789 2990 3002 3005 3019 3089 3092 3334 3337 3346 3349 3408 3437 3440 3449 3452 3594 3594 3609 3609 3696 3702 3741 3747 3818 3971 3973 3979 3992 3997 4018 4022 4045 4089 4101 4127 4132 4194 4199 4217 4219 4332 4334 4336 4340 4354 4393 4399 4414 4416 4428 4438 4445 4458 4539 4615 4617 4619 4620 4622 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 264 ; Cross Reference Listing 4624 4625 4627 4643 4650 4697 4702 4710 4716 4718 4727 4742 4897 4968 4972 4981 4982 4997 5027 5040 5045 5109 5138 5164 5181 5305 5334 5351 5371 5377 5379 5411 5452 5486 5488 5494 5498 5502 5504 5506 5507 5510 5513 5518 5532 5553 5655 5674 5678 5681 5683 5695 5706 5725 5737 5738 5748 5749 5750 5752 5755 5758 5767 5770 5776 5780 5782 5787 5788 5812 5815 5818 5836 5844 5918 5960 5961 5978 5981 5997 6001 6011 6018 6027 6030 6046 6050 6065 6066 6067 6068 6085 6099 6100 6102 6119 6132 6138 6142 6145 6151 6155 6166 6183 6184 6186 6190 6194 6195 6197 6199 6204 6206 6208 6216 6218 6221 6257 6259 6260 6271 6272 6273 6274 6292 6298 6325 6329 6337 6342 6343 6353 6361 6366 6372 6379 6385 6386 6387 6388 6402 6404 6408 6458 6493 6496 6515 6546 6550 6556 6559 6563 6584 6593 6595 6596 6600 6620 6621 6635 6697 6699 6742 6743 6744 6750 6757 6812 6817 6819 6824 6828 6830 6845 6847 6858 6874 6879 6931 6935 6939 6944 6945 6950 6958 6959 6962 7008 7009 7060 7067 7069 7071 7072 7074 7076 7094 7103 7186 7243 7245 7247 7249 7251 7281 7290 7295 7297 7301 7302 7331 7333 7334 7337 7343 7345 7358 7367 7369 7373 7375 7377 7379 7381 7383 7406 7620 7625 7652 7655 7656 7684 7686 7690 7693 7695 7700 7707 7709 7761 7763 7765 7881 7948 7953 7954 7957 7966 7967 7969 7970 7972 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7990 7991 7992 7993 7995 8234 8235 8284 8306 8323 8324 8326 8327 8350 8353 8355 8357 8360 8375 8380 8386 8410 8411 8413 8414 8429 8432 8448 8452 8458 8472 8476 8478 8481 8491 8493 8498 8503 8531 8538 8551 8570 8572 8578 8579 8580 8586 8597 8599 8601 8603 8637 8640 8642 8645 8648 8669 8679 8720 8733 8737 8740 8745 8751 8775 8781 8790 8792 8794 8806 8835 8841 8849 8864 8866 4T 933 # 5T 934 # (U) EXT ADR 1152 # 3960 3970 3984 4004 4031 6977 6985 7489 7531 7620 7655 7761 7879 7882 7965 7968 7975 7978 7981 7984 7987 8329 8337 8343 8423 8664 8697 8713 8834 8870 8873 (U) FETCH 1118 # 2230 2231 2233 2234 2253 2279 2293 2299 2346 2407 2432 3022 3328 3340 3455 3456 3459 3460 3527 3528 3554 3596 3711 4223 4698 4707 7387 7658 7894 8792 (D) FL-B 1341 # AC 1342 # 5265 5268 5269 5273 5276 5277 5310 5314 5315 5339 5343 5344 5389 5390 5424 5425 BOTH 1344 # 5267 5271 5275 5279 5312 5317 5341 5346 MEM 1343 # 5266 5270 5274 5278 5311 5316 5340 5345 (U) FLG.C 1307 # 8282 8551 8572 8679 8736 8739 (U) FLG.PI 1306 # 3624 8360 8380 8448 8458 8478 8603 8640 8645 8669 8733 8832 (U) FLG.SN 1308 # 5513 5614 5615 5622 5749 5752 5755 5758 5818 5825 5826 (U) FLG.W 1305 # 8282 8472 8511 8570 8679 8736 8748 (U) FMWRITE 954 # 2162 2170 2172 2173 2175 2176 2178 2179 2185 2187 2491 2523 2774 3024 3045 3080 3113 3119 3302 3391 3431 3434 3437 3440 3443 3446 3449 3452 3665 3712 3714 3777 3782 3810 4184 4192 4201 4203 4214 4215 4216 4218 4220 4442 4458 4459 4460 4462 4465 4484 4486 4489 4616 4621 4626 4632 4633 4634 4695 4712 4954 4967 4977 4987 5019 5070 5119 5183 5445 5451 5763 5771 5807 5808 5809 5816 5927 5940 5943 5968 5973 5990 6014 6034 6035 6041 6051 6054 6061 6062 6063 6078 6089 6091 6093 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 265 ; Cross Reference Listing 6109 6125 6127 6134 6148 6161 6168 6179 6210 6227 6229 6264 6265 6277 6278 6285 6287 6300 6302 6311 6314 6346 6352 6358 6363 6364 6368 6377 6383 6390 6391 6392 6551 6582 6611 6684 6700 6730 6826 6854 6895 6919 6933 6936 6941 6948 6953 6960 6970 7082 7191 7257 7261 7265 7269 7273 7288 7299 7320 7323 7353 7354 7438 7439 7579 7687 7721 7727 7729 7767 7874 7946 7961 7971 8233 8237 8243 8244 8246 8247 8254 8264 8266 8268 8270 8274 8275 8416 8418 8439 8764 (U) FORCE EXEC 1116 # 3960 3970 3984 4004 4031 6977 6985 7475 7489 7491 7505 7522 7531 7539 7614 7617 7653 7664 7670 7879 7882 7896 7965 7968 7975 7978 7981 7984 7987 8329 8337 8343 8423 8664 8697 8713 8834 8870 8873 (U) FORCE USER 1115 # 3960 3970 3984 4004 4031 6977 6985 7475 7489 7522 7531 7614 7617 7653 7664 7670 7879 7882 7896 7965 7968 7975 7978 7981 7984 7987 8329 8337 8343 8423 8664 8697 8713 8834 8870 8873 (U) GENL 716 # 2231 2233 2278 2291 2292 2298 2303 2318 2319 2331 2342 2365 2693 2724 2732 2754 2756 3340 3456 3459 3527 3528 3529 3538 3541 3554 3566 3596 3620 3634 3762 3821 3835 3839 3984 3996 4001 4031 4047 4098 4741 4771 4980 5039 5062 5111 5123 5145 5149 5154 5169 5172 5182 5330 5593 5930 5933 5936 5977 6003 6006 6022 6028 6057 6076 6082 6090 6094 6105 6117 6121 6128 6147 6175 6252 6267 6305 6340 6357 6384 6395 6399 6455 6461 6508 6565 6569 6604 6629 6670 6675 6733 6852 6894 6903 7062 7088 7102 7171 7187 7189 7233 7314 7319 7344 7378 7380 7382 7384 7396 7456 7457 7458 7459 7460 7461 7462 7484 7554 7680 7701 7701 7882 7898 7968 7975 7978 7981 7984 7987 8236 8501 8547 8555 8798 8804 8810 8812 8814 8816 8818 8820 8822 8823 8824 8854 8873 (U) GENR 723 # 2422 2424 2437 2459 2460 2691 2726 2730 2747 2749 2773 3116 3118 3389 3531 3540 3543 3545 3546 3547 3580 3585 3588 3608 3629 3642 3773 3924 3926 3928 3930 3932 3934 3936 3938 3946 3966 3976 4028 4044 4109 4110 4111 4133 4156 4363 4402 4464 4518 4641 4818 4953 4961 5024 5069 5104 5108 5295 5296 5299 5300 5324 5325 5357 5358 5418 5419 5495 5511 5614 5615 5622 5638 5760 5795 5825 5826 5841 5923 5945 6172 6177 6246 6262 6263 6269 6308 6310 6317 6323 6332 6351 6403 6406 6411 6436 6442 6513 6607 6609 6679 6683 6737 6779 6783 6787 6791 6795 6799 6815 6913 6925 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7056 7096 7099 7127 7134 7138 7153 7159 7168 7176 7198 7199 7217 7221 7227 7252 7275 7286 7370 7372 7374 7376 7508 7710 7755 7829 7833 7838 7840 7842 7844 7846 7848 8229 8232 8283 8287 8290 8295 8446 8471 8508 8512 8546 8550 8553 8564 8634 8739 8744 8749 8755 8769 8832 (U) HALT 1284 # BW14 1294 # 2519 CSL 1288 # 2250 2268 HALT 1287 # 3582 ILLII 1291 # 7504 ILLINT 1292 # 7536 IOPF 1290 # 8789 MULERR 1296 # 2193 NICOND 5 1295 # POWER 1286 # 2221 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 266 ; Cross Reference Listing (U) HOLD USER 1085 # 2219 2580 3406 3422 3489 3503 3560 3564 3600 3622 3692 3704 3760 3790 3794 3809 3815 4010 4063 4077 4094 4104 4107 4137 4138 4162 4212 4224 4234 4237 4344 4379 4410 4496 4645 4647 4712 4729 4751 5003 5355 5367 5432 5720 6394 6395 6994 (D) I 1349 # 2550 2555 2560 2565 2603 2608 2613 2618 2623 2628 2633 2638 2645 2650 2655 2660 2665 2670 2675 2680 2799 2800 2801 2802 2810 2820 2830 2835 2845 2852 2862 2872 2882 2891 2892 2893 2894 2902 2913 2923 2933 2942 2943 2944 2945 2957 2958 3177 3178 3179 3180 3181 3182 3183 3184 3186 3187 3195 3196 3197 3198 3199 3200 3201 3202 3213 3214 3215 3216 3217 3218 3219 3220 3230 3231 3232 3233 3234 3235 3236 3237 3352 3353 3354 3355 3356 3357 3358 3359 3464 3465 3466 3467 3468 3469 3470 3471 3478 3479 3480 3481 3482 3483 3484 3485 3492 3493 3494 3495 3496 3497 3498 3499 3506 3507 3518 3520 3671 3672 3673 3674 3768 3801 3802 3803 3804 3857 3858 3859 3860 3861 3862 3863 3864 3868 3869 3870 3871 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3903 3904 3905 3906 3910 3911 3912 3913 3914 3915 3916 3917 3918 3919 3920 4056 4070 4118 4143 4310 4315 5114 5390 5854 5855 5856 5857 5858 5859 5860 5862 5863 5864 5865 5867 5868 5869 5870 5872 5873 5874 5875 5876 5877 5878 5879 5913 7772 7773 7774 7776 7777 7779 7780 7782 7783 7784 7785 7786 7787 7788 7789 7791 7792 7793 7794 7795 7796 7797 7798 7800 7801 7802 7803 7804 7805 7806 7807 7809 7810 7811 7812 7813 7814 7815 7816 7818 7819 7820 7821 7822 7823 7824 7825 (U) I.CO3 1180 # (U) I.CO4 1181 # (U) I.CO5 1182 # (U) I.CO6 1183 # (U) I.CO7 1184 # (U) IO BYTE 1165 # 7615 7665 7671 (U) IO CYCLE 1159 # 7475 7522 7614 7617 7653 7664 7670 7896 (U) J 521 # 2323 2356 2360 2369 2374 2382 2403 2409 2433 2438 2459 2460 3561 3565 4029 4032 4235 4278 4286 4296 4304 4498 4520 4521 4523 4567 4607 4634 4736 4738 4742 4777 4810 4829 4897 5111 5531 5533 5534 5623 5818 5825 5826 5841 5941 5944 6230 6240 6245 6248 6286 6287 6437 6443 6614 6637 6702 6733 6745 6776 6792 6809 6818 6820 6846 6881 6914 6920 6925 6965 7233 7300 7324 7399 7443 7551 7554 7626 7633 7639 7696 7704 7708 7711 7737 7749 7751 7753 7755 7757 7759 7761 7763 7765 7767 7890 7958 7962 7996 8587 8602 8651 8654 8655 8668 8677 8680 8681 8785 8873 ABORT 8785 # 3951 8766 ACBSET 7147 # 7129 AC_ARX 7767 # 3836 6951 ADD 4062 # 4055 4056 4057 4058 ADDCRY 6245 # 6220 6226 6239 ADJBP 4942 # 4696 ADJBP0 4945 # 4947 ADJBP1 4964 # 4966 ADJBP2 4974 # 4971 ADJBP3 5017 # 5002 ADJBP4 5029 # 5041 ADJBP5 5043 # 5037 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 267 ; Cross Reference Listing ADJBP6 5064 # 5066 ADJSP 3772 # 3768 ADJSP1 3789 # 3781 ADJSP2 3794 # 3786 AND 2816 # 2809 2810 2811 2812 2841 ANDCA 2826 # 2819 2820 2821 2822 2878 ANDCB 2878 # 2871 2872 2873 2874 ANDCM 2841 # 2834 2835 2836 2837 AOBJ 3511 # 3506 3507 AOJ 3489 # 3478 3479 3480 3481 3482 3483 3484 3485 AOS 3406 # 3395 3396 3397 3398 3399 3400 3401 3402 APRID 7046 # APRSO 7033 # 7009 APRSZ 7036 # 7008 ARSIGN 2459 # 2401 ASH 2983 # 2954 ASHC 3086 # 2958 ASHC1 3092 # 3090 ASHCL 3108 # 3097 3110 ASHCQ1 3119 # 3080 3116 ASHCR 3101 # 3103 ASHCX 3113 # 3105 ASHL 2993 # 2993 ASHL0 2990 # 2983 ASHR 2986 # 2972 ASHX 2997 # 3010 ASHXX 3010 # 3015 BACKBP 6964 # 6932 6940 BACKD 6939 # 8815 8823 8825 BACKS 6931 # 8822 BADDATA 8273 # 8258 BDABT 6408 # 6344 BDCFLG 6410 # 6389 BDEC 6292 # BDEC0 6298 # 6296 BDEC1 6305 # 6314 BDEC2 6310 # 6318 BDEC3 6320 # 6306 6328 BDEC4 6325 # 6320 BDEC5 6337 # 6323 6333 BDECLP 6375 # 6394 BDFILL 6359 # 6368 BDSET 6383 # 6403 6406 BDSUB 6422 # 6326 6376 BDSUB1 6426 # 6423 BDSUB2 6442 # 6445 BDTBL 6399 # 6382 BITCHK 6913 # 5919 5962 6100 6102 6459 BIXUB 7592 # 7585 7586 7587 7588 BIXUB1 7601 # 7597 7599 BLT 5118 # 5114 BLT-CLEANUP 5179 # 8807 BLTCLR 5138 # 5153 BLTGOT 5166 # 5141 BLTGO 5164 # 5130 5158 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 268 ; Cross Reference Listing BLTLP 5161 # 5176 BLTLP1 5127 # 5163 BOTH 2331 # BWRITE 2470 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 4063 4077 4129 4135 4158 4160 8557 8857 BYTEAS 4749 # 4773 6856 BYTEA 4751 # 4706 4725 BYTEA0 4754 # 4750 BYTFET 4775 # 4757 4761 6898 6899 BYTIND 4769 # 4765 CAIM 3372 # 3353 3354 3355 3356 3357 3358 3359 3361 3362 3363 3364 3365 3366 3367 3368 CHKSN 5818 # 5799 CLARXL 7755 # 5102 7529 CLARX0 6436 # 4645 4647 4651 4652 6167 6301 6427 CLDISP 8800 # 6933 6941 6954 6960 8795 CLEANED 8803 # 5184 8797 CLEANUP 8802 # 8800 CLRB1 6287 # 6285 CLRBIN 6285 # 6170 6266 CLRFLG 6923 # 5966 6338 CLRPTL 7420 # 7423 CLRPT 7411 # CLRSN 5826 # 5604 5694 CMPDST 6151 # 6131 CMS 6099 # CMS2 6140 # 6110 CMS3 6116 # 6142 6146 CMS4 6119 # CMS5 6145 # 6124 CMS6 6131 # 6148 CMS7 6136 # 6133 CMS8 6147 # 6145 CMSDST 6935 # 8821 COM0 4634 # 4629 4630 COM0A 4629 # 4633 COM1 4633 # 4624 COM1A 4624 # 4632 COM2 4632 # 4619 COM2A 4619 # CONSO 7034 # 7016 CONSZ 7040 # 7015 CONT 7893 # 7888 CONT1 7900 # 4050 CPYSGN 4109 # 4095 4105 DAC 2491 # 2498 2768 6408 DADD 4089 # 4084 DADD1 4092 # 4098 DBABT 6251 # 6187 6191 DBDN1 6264 # 6262 DBDONE 6259 # 6253 6278 DBFAST 6204 # 6200 DBIN 6160 # DBIN1 6175 # 6178 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 269 ; Cross Reference Listing DBIN2 6179 # 6175 DBINLP 6183 # 6201 6211 DBLDBL 6235 # 6223 6234 DBLDIV 4585 # 4439 4449 5722 5726 DBLMUL 4229 # 4200 DBLNEG 4641 # 2783 DBLNGA 4642 # 2773 DBLNG1 4650 # 4364 6310 DBNEG 6269 # 6258 DBSLOW 6216 # 2184 6198 DBSLO 6197 # 6205 DBXIT 6257 # 6185 DDIV 4391 # 4386 DDIV1 4408 # 4395 4399 DDIV2 4411 # 4409 DDIV3A 4416 # 4421 DDIV3 4412 # 4406 DDIV4 4424 # 4417 DDIV5A 4438 # 4429 DDIV5B 4462 # 4453 DDIV5C 4464 # 4459 DDIV5 4432 # 4428 DDIV6 4467 # 4460 4462 DDIV7 4469 # DDIV8A 4478 # DDIV8 4476 # 4469 DDIV9 4484 # 4479 DDIVS 4498 # 4425 4443 5718 DFAD 5552 # 5539 DFADJ 5603 # 5568 5576 DFADJ1 5610 # 5611 DFADJ2 5612 # DFADJ3 5618 # 5614 5618 DFADJ4 5619 # 5615 DFADJ5 5621 # 5613 5622 DFADJ6 5623 # 5621 DFAS1 5561 # 5557 5559 DFAS2 5568 # 5562 DFAS3 5573 # 5564 DFAS5 5582 # 5570 5578 DFAS6 5587 # 5588 DFAS7 5589 # 5587 DFDV 5692 # 5689 DFDV1 5698 # 5705 DFDV2 5706 # 5699 DFDV3 5717 # 5709 DFDV4A 5732 # 5735 DFDV4B 5737 # 5734 DFDV4 5719 # 5715 DFMP 5633 # 5628 DFMP1 5635 # 5636 DFMP2 5661 # 5658 DFPR1 2424 # 2418 DFPR2 2425 # 2423 DFSB 5549 # 5540 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 270 ; Cross Reference Listing DIV 4330 # 4314 4315 4316 4317 DIV1 4339 # 4325 4327 4381 DIV2 4342 # 4355 DIVA 4351 # 4337 DIVB 4357 # 4352 DIVC 4370 # 4362 4367 DIVHI 4592 # 4586 4589 4603 DIVIDE 4557 # 4557 DIVSET 4551 # 4547 DIVSGN 4537 # 4519 5373 DIVSUB 4516 # 4343 4976 4986 5020 DMLINT 4237 # 4202 DMOVNM 2783 # 2778 DMOVN 2773 # 2769 DMOVN1 2785 # 2777 DMTRAP 4221 # 4215 DMUL 4173 # 4168 DMUL1 4194 # 4183 DMUL2 4199 # 4193 DMULGO 4228 # 4181 DNEG 5775 # 5749 5752 5755 5758 DNEG1 5777 # 5775 DNEG2 5779 # 5776 DNN1 5805 # 5801 DNN2 5807 # 5803 DNNORM 5785 # 5738 5780 5782 5787 5815 DNNRM1 5812 # 5795 DNORM 5746 # 5684 5737 5748 5770 DNORM0 5683 # 5593 DNORM1 5767 # 5760 DNORM2 5809 # 5807 DOCVT 6297 # 6347 6363 DOCVT1 6372 # 6297 DOCVT2 6393 # 6373 DOCVT3 6390 # 6412 DONE 2230 # 2530 2544 2844 2845 3024 3177 3178 3186 3187 3287 3331 3334 3337 3352 3464 3715 3823 3840 4224 4729 5071 5146 5170 7040 7083 7155 7257 7261 7265 7269 7273 7321 7345 7355 7406 7440 7579 DPB 4718 # 4691 DPB1 4889 # 4728 6880 DPB7 4896 # 4890 4891 4892 4893 4894 4918 DPBSLO 4900 # 4889 DRND1 5841 # 5837 5845 5848 DROUND 5835 # 5751 5754 5757 5789 5791 5793 5839 DSMS1 7553 # 7550 7555 DSTEA 6898 # 6904 DSTIND 6903 # 6900 6901 DSUB 4101 # 4085 DUMP 7965 # 7949 7956 DVSUB1 4543 # 4540 DVSUB2 4544 # 4538 DVSUB3 4546 # 4550 EACALC 2285 # 2348 EAPF 8864 # 8844 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 271 ; Cross Reference Listing EAPF1 8869 # 8851 EDBYTE 6635 # 6598 6626 EDEXMD 6546 # 6517 EDFILL 6562 # EDFIL1 6577 # 6564 EDFLT 6593 # 6539 6583 EDFLT1 6611 # 6607 6609 EDISP 6476 # 6470 EDISP1 6478 # 6478 EDIT 6455 # EDITLP 6460 # 6684 EDMSG 6620 # 6485 EDMSG1 6629 # 6622 EDN1A 6666 # 6671 EDNOP 6655 # 6487 6489 6491 6505 6514 6540 6551 6572 6578 6631 6632 6646 EDNOP1 6656 # 6650 EDNOP2 6673 # 6667 6673 EDOPR 6505 # 6482 EDSEL 6556 # 6509 EDSFLT 6582 # 6566 EDSKP 6643 # 6494 6497 6499 EDSKP1 6647 # 6644 EDSPUT 6569 # 6577 6587 EDSSIG 6539 # 6511 EDSTOP 6524 # 6507 6567 EDSTP1 6530 # 6533 ENDSKP 6267 # 6091 EQV 2888 # 2881 2882 2883 2884 EXCH 2590 # 2586 EXTDSP 5931 # EXTEA 5930 # EXTEA0 5927 # 5925 EXTEA1 5928 # 5936 EXTEND 5917 # 5913 EXTEXT 5940 # 5932 5946 EXTIND 5936 # 5933 FAD 5288 # 5265 5266 5267 5268 5269 5270 5271 FAS1 5290 # FAS2 5299 # 5290 FAS3 5302 # 5295 5296 5299 5300 FAS4 5304 # 5304 FDV 5351 # 5339 5340 5341 5343 5344 5345 5346 FDV0 5357 # 5354 FDV1 5359 # 5357 FDV2 5360 # 5358 FDV3 5361 # 5359 5360 FDV4 5363 # 5364 FDV5 5366 # 5363 FDV6 5369 # 5366 FDV7 5373 # 5374 FDV8 5376 # FDV9 5384 # 5376 5381 5382 FETIND 2341 # 2306 2311 2333 FIX 5429 # 5424 5425 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 272 ; Cross Reference Listing FIX++ 4561 # 4562 FIX1++ 4563 # 4561 FIXL 5444 # 5434 5444 FIXPC 8798 # 4237 6424 FIXR 5439 # 5440 FIXT 5451 # 5448 FIXX 5448 # 5441 FIXX1 5449 # 5455 FL-BWRITE 2517 # 5449 5453 5499 5521 FLEX 5499 # 5495 FLTR 5394 # 5389 FLTR1A 5402 # 5399 FLTR1 5398 # 5395 FLTR2 5407 # 5400 5402 FLTR3 5409 # 5410 FMP 5321 # 5310 5311 5312 5314 5315 5316 5317 FMP1 5326 # 5324 5325 FP-LONG 3936 # 3914 3915 3916 3917 3918 3919 FPR0 2398 # 2392 FPR1 2402 # FSB 5285 # 5273 5274 5275 5276 5277 5278 5279 FSC 5415 # 5390 GETPCW 7227 # 3982 GETSRC 6847 # 6122 6557 GOEXEC 4006 # 8871 GRP700 7045 # 7001 GRP701 7019 # 7002 GRP702 7242 # 7238 GSRC 6845 # 6079 6732 GSRC1 6854 # 6850 GTFILL 6917 # 5959 6456 GTPCW1 7231 # 7222 7231 H1 7884 # 7950 HALT 3580 # 3532 HALTED 7874 # 2193 2250 2268 2519 3582 7504 7536 8789 HALTLP 7890 # 7884 HARD 8764 # 7743 8260 8262 8276 HLL 2693 # 2602 2603 2646 2718 HLLE 2759 # 2632 2633 2634 2635 HLLO 2763 # 2622 2623 2624 2625 HLLZ 2761 # 2612 2613 2614 2615 HLR 2720 # 2649 2650 HLRE 2752 # 2679 2680 2681 2682 HLRM 2729 # 2651 HLRO 2756 # 2669 2670 2671 2672 HLRS 2732 # 2652 HLRZ 2754 # 2659 2660 2661 2662 HRL 2718 # 2607 2608 HRLE 2745 # 2637 2638 2639 2640 HRLM 2723 # 2609 HRLO 2749 # 2627 2628 2629 2630 HRLS 2726 # 2610 HRLZ 2747 # 2617 2618 2619 2620 HRR 2691 # 2604 2644 2645 2720 HRRE 2738 # 2674 2675 2676 2677 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 273 ; Cross Reference Listing HRRO 2742 # 2664 2665 2666 2667 HRRZ 2740 # 2654 2655 2656 2657 HSBDON 7992 # IBP 4694 # 4687 IBPS 4735 # 4697 4702 4716 IBPX 4742 # 3833 4735 8390 8519 IDIV 4321 # 4309 4310 4311 4312 IDPB 4716 # 4690 IDST 6891 # 6152 6875 IDSTX 6895 # 6892 ILDB 4702 # 4688 IMUL 4123 # 4117 4118 4119 4120 IMUL1 4129 # 4346 IMUL2 4131 # 4128 IMUL3 4137 # 4134 INCAR 7757 # 6053 7509 INCPC 2278 # 2273 INDEX 2318 # INDRCT 2336 # IOEA 7680 # 7612 7650 IOEA1 7686 # 7688 IOEA2 7690 # 7686 IOEAI 7698 # 7691 IOEAX 7707 # 7694 IOR 2868 # 2861 2862 2863 2864 2929 IORD 7611 # 7567 7578 7593 IORD1 7620 # 7616 IORD2 7630 # 7625 IORD3 7636 # 7631 7637 IOT700 7829 # 7772 7773 7774 IOT710 7831 # 7776 7777 IOT720 7838 # 7779 7780 IOT730 7840 # 7782 7783 7784 7785 7786 7787 7788 7789 IOT740 7842 # 7791 7792 7793 7794 7795 7796 7797 7798 IOT750 7844 # 7800 7801 7802 7803 7804 7805 7806 7807 IOT760 7846 # 7809 7810 7811 7812 7813 7814 7815 7816 IOT770 7848 # 7818 7819 7820 7821 7822 7823 7824 7825 IOW1 7720 # 7725 IOW2 7732 # 7722 7728 IOW3 7735 # 7742 IOW4 7740 # 7736 IOW5 7743 # 7730 IOWAIT 7716 # 7621 7657 IOWR 7649 # 7582 7602 IOWR1 7655 # 7665 7671 IOWR2 7662 # 7652 IOWR3 7668 # 7663 7669 ITRAP 8244 # 6055 JEN 3588 # 3542 JEN1 7550 # 3594 3609 JEN2 3594 # 3586 JFCL 3600 # 3520 JFFO 3018 # 2957 JFFO1 3026 # 3023 JFFOL 3040 # 3042 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 274 ; Cross Reference Listing JMPA 3443 # 3851 JRA 3845 # 3804 JRST 3527 # 3468 3518 JRST0 3556 # 3553 3577 3592 JRST1 3574 # 3569 3573 JRST10 3585 # 3539 JRSTF 3550 # 3530 JSA 3829 # 3803 JSP 3808 # 3802 JSR 3814 # 3801 JSTAC 3709 # 3699 3706 3744 JSTAC1 3712 # 3763 JSYS 3930 # 3911 JUMP 3475 # 3465 3466 3467 3469 3470 3471 JUMP-TABLE 3428 # 3475 3489 3503 3513 JUMP- 3455 # 3434 3437 3440 3603 JUMPA 3459 # 3443 3446 3449 3452 3811 4012 KIEPT 8710 # 8704 8707 KIF10 8701 # 8694 KIF30 8718 # 8699 8714 KIF40 8725 # 8729 KIF50 8733 # 8727 8756 8771 KIF80 8754 # KIF90 8759 # 8750 KIFILL 8689 # 8316 KIMUUO 4018 # 3961 KIUPT 8695 # 8717 L-BDEC 5891 # 5864 5865 L-CMS 5885 # 5854 5855 5856 5858 5859 5860 L-DBIN 5889 # 5862 5863 L-EDIT 5887 # 5857 L-MVS 5893 # 5867 5868 5869 5870 L-SPARE-A 5897 # 5873 L-SPARE-B 5899 # 5874 L-SPARE-C 5901 # 5875 5876 5877 5878 5879 L-XBLT 5895 # 5872 LDB 4704 # 4689 LDB1 4791 # 4711 6155 6860 LDB7 4805 # 4796 4797 4798 4799 4800 LDBSH 4820 # 4815 LDBSWP 4814 # 4793 LDPI2 7396 # 3595 7385 LOADAR 7748 # 6401 6464 6547 7682 LOADARX 7751 # 6756 7316 LOADPI 7395 # 2196 LOADQ 7753 # 5120 6108 LSH 2967 # 2956 LSHC 3069 # 2960 LSHCL 3077 # 3069 3077 LSHCR 3073 # 3073 LSHCX 3079 # 3074 3146 3151 LSHL 2974 # 2969 LUUO 4036 # 3857 3858 3859 3860 3861 3862 3863 3864 LUUO1 4039 # 5885 5887 5889 5891 5893 5895 5897 5899 5901 MAP 8227 # 8223 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 275 ; Cross Reference Listing MAPDON 8854 # 8809 MOVE 2577 # 2551 2574 2581 2605 2647 2829 2830 2831 2832 2846 2847 4110 4111 4137 4138 4162 4972 MOVELP 5997 # 5977 6006 MOVF1 6697 # 6703 MOVFIL 6703 # 6029 6090 MOVLP0 6006 # 5991 MOVM 2574 # 2564 2566 2567 MOVN 2579 # 2559 2560 2561 2562 MOVPAT 6472 # 6467 6469 6472 MOVRJ 6027 # 5983 MOVS 2571 # 2554 2555 2556 2557 2724 2730 2747 2749 2754 2756 MOVSTX 6080 # MOVST0 6075 # 5980 MOVST1 6076 # 6031 6086 MOVST2 6089 # 6000 6081 MOVST3 6093 # 6089 MOVST4 6085 # 6042 MSKPAT 6473 # 6468 MUL 4150 # 4142 4143 4144 4145 MUL+ 4272 # 4256 4268 4274 4292 MUL- 4290 # 4282 4300 MULBY4 6234 # 6217 MULSB1 4254 # 5644 MULSUB 4253 # 4126 4154 5047 5328 MULTIPLY 4265 # 4233 5649 5661 5668 MUUO 3943 # 3868 3869 3870 3871 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 MVABT 6011 # 6002 MVABT1 6014 # 6016 MVABT2 6018 # 6014 MVEND 6021 # MVS 5956 # MVS1 5973 # 5971 MVSK2 6061 # 6035 MVSK3 6051 # 6047 MVSKP 6034 # 6027 6045 6058 6069 MVSKP1 6045 # 6040 MVSKP2 6057 # 6049 MVSO 5985 # 5978 MVSO1 5988 # 5988 NEXT 4031 # 3972 3976 4019 7966 7969 7971 7973 7976 7979 7982 7985 7988 7990 NEXTAR 8873 # 8837 8865 NICOND 2239 # 2524 3045 3091 3119 3431 3713 3789 3796 4487 4490 5445 5451 5810 8237 NICOND-FETCH 2258 # 2230 2231 2233 2234 2294 2300 3328 3340 3455 3456 3459 3460 3527 3528 3554 3596 4223 4698 7387 7658 NIDISP 3091 # 3791 3795 4344 4379 4410 4496 4713 5003 5355 5367 5432 5720 NODDIV 4495 # 4432 4434 NODIV 4379 # 4373 4377 NOMOD 2322 # NXTWRD 4741 # 4737 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 276 ; Cross Reference Listing ORCA 2908 # 2901 2902 2903 2904 ORCB 2939 # 2932 2933 2934 2935 ORCM 2929 # 2922 2923 2924 2925 PAGE-FAIL 8242 # PF100 8498 # 8475 PF105 8506 # 8502 PF107 8479 # 8509 8513 PF110 8516 # 8482 PF120 8559 # 8539 PF125 8578 # 8576 8782 PF130 8541 # 8537 8543 PF140 8535 # PF25 8299 # 8301 PF30 8323 # 8312 PF35 8336 # 8325 PF40 8341 # 8333 PF45 8348 # 8368 8447 PF50 8380 # 8352 PF60 8364 # 8366 PF70 8386 # PF75 8398 # 8400 PF76 8421 # 8417 8419 PF77 8426 # 8330 8338 PF80 8458 # 8431 PF90 8470 # PFD 8250 # 8252 PFDBIN 6958 # 8819 PFDONE 8531 # 8757 8761 PFGAC0 6960 # PFMAP 8280 # 8236 8264 8268 8270 PFPI1 8773 # 8254 8266 PFPI2 8781 # PFT 8789 # 8360 8380 8448 8458 8478 8603 8640 8645 8669 8733 PFT1 8790 # 8778 PFT10 8833 # 8831 PFT1A 8797 # 8793 PFT2 8829 # 8805 PFT3 8832 # 8858 PFTICK 8491 # 8440 PI 7453 # 7455 8832 PI10 7471 # 7463 7464 7465 7466 7467 7468 7469 PI40 7489 # 7486 PI50 7490 # 7540 PIEXIT 7385 # 3624 PIJSR 7504 # 7493 PIP1 7463 # 7456 PIP2 7464 # 7457 PIP3 7465 # 7458 PIP4 7466 # 7459 PIP5 7467 # 7460 PIP6 7468 # 7461 PIP7 7469 # 7462 PISET 3623 # 7511 PIXPCW 3632 # 7496 POP 3719 # 3673 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 277 ; Cross Reference Listing POPJ 3752 # 3674 POPX1 3747 # 3735 PTRIMM 8429 # PTRIND 8437 # 8494 PTRSHR 8451 # 8433 PUSH 3679 # 3672 PUSH1 3681 # 3693 PUSHJ 3691 # 3671 PUTDST 6873 # 6004 6083 6365 6384 6570 6605 6630 6698 PWRON 7879 # 2222 QDNEG 4615 # 4419 4495 QMULT 4232 # 4190 4210 RDAPR 7094 # RDCSB 7245 # RDCSTM 7249 # RDEBR 7212 # RDEBR1 7214 # 7214 RDERA 7011 # RDHSB 7251 # RDINT 7358 # RDIO 7578 # 7571 7573 RDPI 7364 # RDPT 8662 # 8356 8367 8374 8451 8598 RDPUR 7247 # RDSPB 7243 # RDTIME 7327 # 7341 RDTIM1 7343 # 7340 RDUBR 7221 # ROT 3002 # 2955 ROTC 3141 # 2959 ROTCL 3149 # 3141 3149 ROTCR 3145 # 3145 ROTL 3012 # 3004 RTNREG 7405 # 7057 7107 7218 7243 7245 7247 7249 7251 7359 7364 RTNRG1 7406 # 7224 SAVVMA 7960 # 7875 7947 SBRL 7759 # 5370 6209 SECIMM 8350 # SECSHR 8374 # 8354 SETBLT 5098 # 5118 SETCA 2898 # 2891 2892 2893 2894 SETCM 2919 # 2912 2913 2914 2915 2939 SETO 2949 # 2942 2943 2944 2945 SETPDL 3704 # 3749 SETPTR 8631 # 8349 8428 SETSN 5825 # 5378 5380 5675 SETUBR 7158 # 7149 SETZ 2806 # 2799 2800 2801 2802 SFM 3642 # 3544 SHDREM 8677 # 8412 8415 SHIFT 2378 # 2388 SKIP 2233 # 3343 3346 3349 6267 6395 7034 SKIP-COMP-TABLE 3325 # 3372 3391 3392 6118 SKIPE 3334 # 6094 SKIPS 3389 # 3378 3379 3380 3381 3382 3383 3384 3385 3408 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 278 ; Cross Reference Listing SNNEG 5502 # 5487 5489 5491 5493 SNNORM 5506 # 5502 5504 5506 5510 SNNOT 5517 # 5513 SNNOT1 5520 # 5515 SNNOT2 5521 # 5517 5519 5520 SNORM 5486 # 5305 5334 5411 5486 5498 SNORM0 5411 # 5384 5396 5403 5418 5419 SNORM1 5498 # 5494 SOJ 3503 # 3492 3493 3494 3495 3496 3497 3498 3499 SOS 3422 # 3411 3412 3413 3414 3415 3416 3417 3418 SRCMOD 6730 # 5998 6183 6825 6829 6831 SRND1 5531 # 5528 SROUND 5528 # 5488 5490 5492 5507 5508 5509 5529 SSWEEP 7442 # 7415 7428 STAC 2523 # 2492 2536 2541 2549 2550 2565 2594 2774 2975 2988 2997 5764 5771 5816 6022 6530 7863 STAC34 6277 # 6272 STBOTH 2534 # STBTH1 2539 # 2487 STDBTH 2496 # STMAC 3696 # 3688 STMEM 2528 # 7870 STOBR 7763 # 3633 3985 7507 STOPC 7765 # 3636 7883 STORE 2542 # 2794 3644 STPF1A 6956 # 6948 STPTR1 8642 # 8639 STPTR2 8648 # 8644 STPTR3 8654 # 8650 STRPF 6944 # 8811 8813 STRPF0 6945 # 6962 STRPF1 6948 # STRPF2 6959 # 6956 STRPF3 6953 # STRPF4 6962 # 8817 STRTIO 7761 # 7477 7525 7899 STSELF 2486 # 2552 STUBRS 7162 # 7164 SUB 4076 # 4069 4070 4071 4072 SWEEPL 7433 # 7436 SWEEP 7427 # 7178 7198 7199 TDONE 3302 # 3293 3296 TDX 3273 # 3181 3190 3195 3199 3204 3208 3213 3217 3222 3226 3230 3234 3239 3243 TDXX 3278 # 3179 3183 3188 3192 3197 3201 3206 3210 3215 3219 3224 3228 3232 3236 3241 3245 TENLP 2182 # 2189 TEST-TABLE 3284 # 3273 3279 7568 TICK 7281 # 6064 TIOX 7567 # 7560 7561 7562 7563 TOCK 7284 # 7338 8492 8777 TOCK1 7288 # 7294 TOCK2 7295 # 7289 TOCK3 7299 # 7306 TRAP 6969 # 2243 2246 2249 2261 2264 2267 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 279 ; Cross Reference Listing TRNAR 6751 # 6560 TRNFNC 6773 # 6761 6780 6784 6788 6800 TRNNS1 6823 # 6813 TRNNS2 6826 # 6823 TRNRET 6805 # 6774 TRNSIG 6786 # 6796 TRNSS 6812 # 6807 TRNSS1 6808 # 6816 TRP1 6988 # 6978 6986 TSX 3271 # 3182 3191 3196 3200 3205 3209 3214 3218 3223 3227 3231 3235 3240 3244 TSXX 3276 # 3180 3184 3189 3193 3198 3202 3207 3211 3216 3220 3225 3229 3233 3237 3242 3246 TXXX 3287 # 3302 TXZX 3301 # 3290 UMOVEM 7866 # 7854 UMOVE 7858 # 7853 UPCST 8597 # 8385 8461 UUO 3942 # 3903 3910 UUO101 3924 # 3904 UUO102 3926 # 3905 UUO103 3928 # 3906 UUO106 3932 # 3912 UUO107 3934 # 3913 UUO247 3938 # 3920 UUOFLG 4027 # 3967 4021 UUOGO 3948 # 2437 3531 3540 3543 3545 3546 3547 3580 3585 3588 3608 3629 3642 3924 3926 3928 3930 3932 3934 3936 3938 6913 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7252 7275 7370 7829 7833 7838 7840 7842 7844 7846 7848 UUOPCW 3979 # 4024 VECINT 7518 # 7481 7521 VECIN1 7537 # 7535 WRAPR 7060 # WRAPR1 7079 # 7091 WRAPR2 7085 # 7078 WRCSB 7259 # WRCSTM 7267 # WREBR 7181 # WREBR1 7183 # 7183 WRHSB 7271 # WRINT 7351 # WRIO 7582 # 7572 7574 WRPI 7367 # WRPUR 7263 # WRSPB 7255 # WRTHSB 7953 # 7877 WRTIME 7311 # WRTIM1 7323 # 7292 7319 WRUBR 7118 # XCT 3653 # 3649 XCT1 3665 # 3659 6995 7903 XCT1A 3655 # 3663 XCT2 2345 # 3666 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 280 ; Cross Reference Listing XCTGO 2270 # 2254 7895 XJEN 3608 # 3536 XJRSTF 3615 # 3535 3638 XJRSTF0 3534 # 3612 XLATE 6750 # 6736 XLATE1 6759 # 6763 XOR 2858 # 2851 2852 2853 2854 XOS 3407 # 3422 XPCW 3629 # 3537 ZAPPTA 7438 # 7424 (D) J 1346 # (U) JFCLFLG 1105 # 3600 (U) LD FLAGS 1109 # 2220 3559 3563 3621 4009 7495 7510 8795 (U) LD PCU 1097 # 4011 (U) LDVMA 1148 # 2163 2182 2186 2230 2230 2231 2233 2234 2234 2252 2278 2293 2299 2305 2309 2332 2336 2345 2365 2407 2417 2420 2432 2786 2790 2791 3022 3328 3328 3340 3455 3455 3456 3459 3460 3460 3527 3528 3529 3534 3538 3541 3554 3567 3570 3596 3611 3617 3632 3634 3634 3643 3683 3710 3720 3732 3737 3753 3816 3847 3959 3960 3960 3969 3970 3970 3984 3984 4003 4004 4031 4031 4040 4047 4048 4223 4223 4698 4698 4707 4754 4758 4762 4766 5099 5127 5135 5149 5150 5154 5155 5172 5173 5931 5933 5934 5957 6105 6354 6381 6426 6432 6439 6455 6460 6516 6594 6636 6751 6898 6899 6900 6901 6977 6985 7118 7223 7314 7339 7344 7344 7387 7387 7405 7411 7474 7489 7489 7489 7490 7531 7531 7539 7620 7655 7658 7658 7680 7702 7761 7858 7866 7876 7879 7879 7882 7882 7893 7949 7965 7965 7968 7968 7975 7975 7978 7978 7981 7981 7984 7984 7987 7987 7994 8280 8328 8329 8329 8336 8337 8337 8341 8343 8421 8423 8565 8581 8662 8664 8696 8697 8711 8713 8779 8785 8833 8834 8834 8870 8870 8873 8873 (U) LOADFE 952 # 2381 2399 2414 2968 2971 2975 2985 2987 3003 3006 3009 3014 3026 3041 3087 4705 4709 4721 4814 4819 4821 4823 4826 4889 4902 4905 4906 4908 4910 5294 5322 5331 5333 5353 5359 5360 5374 5396 5400 5402 5403 5417 5486 5490 5492 5498 5506 5508 5509 5510 5529 5534 5575 5590 5592 5656 5673 5684 5707 5733 5747 5754 5757 5769 5786 5791 5793 5814 5839 5847 5985 5986 5988 6154 6525 6526 6532 6656 6657 6658 6659 6856 6859 6878 6896 (U) LOADSC 950 # 2177 2187 2380 2399 2414 2430 2991 2993 3069 3070 3071 3073 3077 3087 3096 3099 3103 3110 3141 3142 3143 3145 3149 4124 4152 4189 4209 4229 4255 4267 4273 4281 4291 4299 4342 4439 4447 4554 4557 4597 4943 4946 4959 4965 4970 4983 4999 5044 5059 5065 5288 5292 5293 5302 5304 5326 5373 5407 5410 5415 5433 5434 5435 5437 5440 5444 5554 5564 5574 5608 5611 5618 5633 5636 5644 5648 5651 5661 5667 5722 5723 6299 6328 6467 6469 6472 6476 6478 6649 6655 6661 6666 6673 7160 7163 7181 7183 7212 7214 7222 7228 7231 7422 7435 7442 7630 7637 7662 7668 7716 7723 7732 7736 8297 8300 8348 8362 8365 8396 8399 8536 8542 (U) LSRC 602 # (U) MACRO% ABORT MEM CYCLE 2001 # 2163 3611 7474 7876 7949 8280 8779 8785 AC 1851 # 4123 4150 4321 4412 5351 5416 5557 5559 AC[] 1852 # 4488 5696 5704 6207 6271 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 281 ; Cross Reference Listing AC[]_Q 1753 # 3119 4184 4192 4203 4215 AC[]_Q.AND.[] 1742 # 4442 4486 4616 4621 4626 4632 4633 AC[]_[] 1729 # 2491 2774 3045 4459 4465 5771 5816 6014 6034 6051 6134 6168 6227 6229 6264 6277 6278 6314 6346 6352 6363 6368 6391 6392 6551 6854 6895 6933 6941 6948 6953 AC[]_[] TEST 1730 # 6826 AC[]_[] VIA AD 1727 # AC[]_[]*2 1732 # 4201 AC[]_[]+1 1731 # 6700 AC[]_[]+Q 1737 # AC[]_[]+[] 1739 # 4484 6210 AC[]_[]-[] 1738 # 5968 AC[]_[].AND.[] 1741 # 4462 5763 5809 AC[]_[].EQV.Q 1743 # 4216 4218 4220 4489 AC[]_-Q 1749 # AC[]_-[] 1744 # AC[]_.NOT.[] 1747 # AC[]_0 1751 # 2175 3024 4460 6041 6089 6285 6287 AC[]_1 1752 # 2176 AC_-[] 1745 # 5808 AC_.NOT.[] 1748 # 5807 AC_Q 1750 # 4458 AC_[] 1733 # 2523 3080 3302 3391 3431 3443 3712 3714 3810 4634 4712 5119 5183 5445 5451 6091 6127 6390 6611 6684 6960 7579 7767 8237 AC_[] TEST 1734 # 3434 3437 3440 3446 3449 3452 4214 6265 6311 AC_[] VIA AD 1728 # AC_[]+1 1735 # 6936 AC_[]+Q 1736 # AC_[]+[] 1740 # 3113 3777 3782 AC_[].OR.[] 1746 # 5070 6054 6093 AD FLAGS 2029 # 2580 3406 3422 3489 3503 4063 4077 4094 4104 4107 4234 4645 4647 AD FLAGS EXIT 2077 # 4063 4077 AD PARITY 1955 # 2183 2359 2372 2373 2590 2691 2693 2724 2730 2783 2967 2970 2984 3018 3475 3719 3752 3774 3832 3845 4152 4194 4331 4722 5118 5288 5321 5353 5417 5563 5960 5963 5978 5981 6011 6027 6099 6101 6119 6151 6163 6166 6194 6197 6199 6206 6216 6257 6259 6260 6292 6297 6298 6299 6320 6325 6337 6372 6457 6515 6556 6593 6595 6699 6812 6819 6845 6847 6874 6931 6939 6945 7582 7869 ADD .25 1986 # 2579 2949 3372 3422 3503 3529 3538 3541 4076 4093 4101 4106 4280 4284 4326 4370 4403 4426 4427 4433 4454 4480 4521 4522 4523 4539 4541 4548 4554 4585 4615 4620 4625 4630 4642 4646 4650 4652 4981 5038 5055 5105 5124 5142 5166 5285 5360 5363 5364 5371 5382 5395 5487 5489 5491 5493 5504 5520 5549 5588 5701 5712 5719 5735 5776 5781 5802 5808 5842 5968 6001 6015 6036 6103 6139 6140 6141 6188 6252 6270 6273 6341 6358 6366 6385 6393 6394 6428 6430 6433 6481 6823 6944 6952 6958 7296 7396 7420 7433 7680 8691 8701 8798 8858 ADL PARITY 1948 # ADR PARITY 1952 # AREAD 2072 # 2323 ASH 1963 # 2427 2987 ASH AROV 2014 # 2993 3109 3112 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 282 ; Cross Reference Listing ASH36 LEFT 2980 # 2993 ASHC 1968 # 2993 3102 3105 3109 3112 4273 4281 4291 4299 4405 4409 4478 4482 4498 5304 5407 5409 5439 5583 5585 5589 5591 5607 5611 5618 5621 5623 5635 5676 5680 5715 5729 5747 5753 5756 5769 5786 5790 5792 5814 5839 B DISP 2073 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 3273 3279 3372 3391 3392 3475 3489 3503 3513 3698 3705 3743 4063 4077 4129 4135 4158 4160 5441 5449 5453 5499 5511 5521 5528 5932 5974 6118 6173 6380 6734 6806 6813 7568 7595 7613 7624 7651 8557 8857 BAD PARITY 1957 # BASIC DIV STEP 4533 # 4554 4557 BWRITE DISP 2074 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 4063 4077 4129 4135 4158 4160 8557 8857 BYTE DISP 2091 # 4710 4727 6155 6858 6879 BYTE STEP 4682 # 5986 5988 CALL IBP 4676 # 4697 4702 4716 CALL LOAD PI 2097 # 3595 7385 CALL [] 1987 # 2184 2196 2401 2773 2783 3553 3592 3594 3595 3609 3633 3636 3833 3836 3951 3967 3972 3976 3982 3985 4019 4021 4126 4154 4181 4190 4200 4210 4233 4343 4364 4419 4425 4439 4443 4449 4495 4519 4697 4702 4706 4711 4716 4725 4728 4976 4986 5020 5047 5102 5118 5120 5328 5370 5373 5378 5380 5488 5490 5492 5507 5508 5509 5568 5576 5604 5644 5649 5661 5668 5675 5694 5718 5722 5726 5751 5754 5757 5789 5791 5793 5799 5919 5959 5962 5966 5998 6004 6029 6053 6064 6079 6083 6090 6100 6102 6108 6122 6131 6152 6167 6170 6183 6198 6209 6217 6220 6223 6226 6234 6239 6266 6301 6310 6326 6338 6365 6376 6384 6401 6427 6456 6459 6464 6539 6547 6557 6560 6570 6583 6598 6605 6626 6630 6698 6732 6756 6856 6875 6880 6932 6940 6951 7222 7292 7316 7319 7338 7385 7415 7428 7477 7507 7509 7525 7529 7567 7578 7593 7612 7621 7650 7657 7682 7875 7877 7883 7899 7947 7949 7966 7969 7971 7973 7976 7979 7982 7985 7988 7990 8349 8356 8367 8374 8385 8390 8412 8415 8428 8451 8461 8492 8519 8598 8766 8777 8837 8865 CHANGE FLAGS 2007 # 2219 2220 2580 3406 3422 3489 3503 3559 3560 3563 3564 3600 3621 3622 3692 3704 3760 3790 3794 3809 3815 4009 4010 4011 4063 4077 4094 4104 4107 4137 4138 4162 4212 4224 4234 4237 4344 4379 4410 4496 4645 4647 4712 4729 4751 5003 5355 5367 5432 5720 6394 6395 6993 7495 7510 8795 CHK PARITY 1956 # 2271 2341 2355 2364 2368 2385 2396 2407 2413 2426 2497 2529 2535 2540 2543 2593 2789 3089 3408 3551 3575 3590 3615 3619 3680 3697 3703 3725 3742 3748 3761 3819 3850 3972 3974 3980 4007 4019 4023 4046 4124 4217 4219 4322 4332 4416 4438 4445 4742 4770 4776 4897 5162 5917 5936 6356 6546 6596 6599 6627 6903 6918 6988 7121 7256 7260 7264 7268 7272 7313 7343 7345 7352 7406 7490 7532 7656 7703 7748 7751 7753 7763 7765 7862 7881 7901 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8345 8427 8667 8719 8836 8850 8864 8866 CHK PARITY L 1949 # CHK PARITY R 1953 # CLEANUP DISP 2099 # 8800 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 283 ; Cross Reference Listing CLEAR ARX0 1705 # 2773 4641 6269 6310 6436 6442 CLEAR CONTINUE 1996 # CLEAR EXECUTE 1997 # CLEAR RUN 1998 # CLEAR []0 1704 # 2773 4363 4641 6246 6262 6269 6310 6436 6442 CLR FPD 2016 # 3692 3809 3815 4212 4712 4729 6395 CLR IO BUSY 2002 # 7611 7649 CLR IO LATCH 2003 # 7696 7704 7708 7711 7720 7726 7735 7740 CLRCSH 1993 # 7417 7418 7421 DFADJ 5600 # 5611 DISMISS 2096 # 3594 3609 DIV 1971 # 4554 4557 4558 4605 5486 5498 5506 5510 5603 5605 5606 DIV DISP 2090 # DIV STEP 4534 # 4557 DONE 2082 # 2230 2234 3328 3455 3460 4223 4698 7387 7658 DPB SCAD 4885 # 4890 4891 4892 4893 4894 EA MODE DISP 2071 # 2281 2347 3556 4749 4752 5928 6904 7692 END BLT 2039 # 5145 5169 END MAP 2040 # 8547 END STATE 2037 # 5145 5169 6022 6094 6117 6267 6395 6399 6461 6733 8547 8804 8822 8823 8854 EXIT 2076 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 4129 4135 4158 4160 8557 8857 EXP TEST 2028 # 5495 5511 5841 FETCH 1808 # 2230 2231 2233 2234 2253 2293 2299 2407 2432 3022 3328 3340 3455 3456 3459 3460 3527 3528 3554 3596 3711 4223 4698 4707 7387 7658 7894 FE_-1 1928 # FE_-12. 1926 # 3026 FE_-2 1925 # FE_-FE 1912 # 4814 4908 FE_-FE+200 1939 # 5359 5360 FE_-FE+S# 1915 # 4819 FE_-FE-1 1913 # 2968 3003 FE_-S-10 1922 # 4823 4889 FE_-S-20 1921 # FE_0 1927 # FE_EXP 1934 # 2399 2414 5294 5575 FE_FE+1 1929 # 2971 2985 3006 5374 5490 5492 5508 5509 5529 5534 5754 5757 5791 5793 5839 5847 FE_FE+10 1931 # 4821 4826 4902 4910 FE_FE+2 1930 # 5331 FE_FE+4 1933 # 3041 FE_FE+P 1937 # 6526 FE_FE+S# 1940 # 5673 5684 6659 FE_FE+SC 1916 # 6658 FE_FE-1 1932 # 5486 5498 5506 5510 5590 5592 5747 5769 5786 5814 FE_FE-19 1914 # FE_FE-200 1938 # 5333 FE_FE.AND.S# 1917 # 4709 4906 6154 6532 6657 6859 FE_P 1918 # 4705 4905 6656 6856 6896 FE_S 1919 # FE_S# 1923 # 3026 5396 5400 5402 5403 6525 FE_S#-FE 1924 # 5733 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 284 ; Cross Reference Listing FE_S+2 1920 # 5985 FE_SC+EXP 1935 # 5322 5417 5656 FE_SC-EXP 1936 # 5353 5707 FIRST DIV STEP 4535 # 4554 FIX [] SIGN 1718 # 3389 4109 4133 4156 6737 7286 FL NO DIVIDE 2032 # 5355 5367 5720 FL-EXIT 2078 # 5449 5453 5499 5521 FM WRITE 1725 # 2162 2170 2172 2173 2175 2176 2178 2179 2185 2187 2491 2523 2774 3024 3045 3080 3113 3119 3302 3391 3431 3434 3437 3440 3443 3446 3449 3452 3665 3712 3714 3777 3782 3810 4184 4192 4201 4203 4214 4215 4216 4218 4220 4442 4458 4459 4460 4462 4465 4484 4486 4489 4616 4621 4626 4632 4633 4634 4695 4712 4954 4967 4977 4987 5019 5070 5119 5183 5445 5451 5763 5771 5807 5808 5809 5816 5927 5940 5943 5968 5973 5990 6014 6034 6035 6041 6051 6054 6061 6062 6063 6078 6089 6091 6093 6109 6125 6127 6134 6148 6161 6168 6179 6210 6227 6229 6264 6265 6277 6278 6285 6287 6300 6302 6311 6314 6346 6352 6358 6363 6364 6368 6377 6383 6390 6391 6392 6551 6582 6611 6684 6700 6730 6826 6854 6895 6919 6933 6936 6941 6948 6953 6960 6970 7082 7191 7257 7261 7265 7269 7273 7288 7299 7320 7323 7353 7354 7438 7439 7579 7687 7721 7727 7729 7767 7874 7946 7961 7971 8233 8237 8243 8244 8246 8247 8254 8264 8266 8268 8270 8274 8275 8416 8418 8439 8764 FORCE EXEC 1788 # 7491 7505 7539 GEN 17-FE 1943 # 4791 GEN MSK [] 1721 # 4825 4828 4901 4904 5988 HALT [] 2098 # 2193 2250 2268 2519 3582 7504 7536 8789 HOLD LEFT 1947 # 2231 2233 2278 2291 2292 2298 2303 2318 2319 2331 2342 2365 2693 2724 2732 2754 2756 3340 3456 3459 3527 3528 3529 3538 3541 3554 3566 3596 3620 3634 3762 3821 3835 3839 3984 3996 4001 4031 4047 4098 4741 4771 4980 5039 5062 5111 5123 5145 5149 5154 5169 5172 5182 5330 5593 5930 5933 5936 5977 6003 6006 6022 6028 6057 6076 6082 6090 6094 6105 6117 6121 6128 6147 6175 6252 6267 6305 6340 6357 6384 6395 6399 6455 6461 6508 6565 6569 6604 6629 6670 6675 6733 6852 6894 6903 7062 7088 7102 7171 7187 7189 7233 7314 7319 7344 7378 7380 7382 7384 7396 7456 7457 7458 7459 7460 7461 7462 7484 7554 7680 7701 7701 7882 7898 7968 7975 7978 7981 7984 7987 8236 8501 8547 8555 8798 8804 8810 8812 8814 8816 8818 8820 8822 8823 8824 8854 8873 HOLD RIGHT 1951 # 2422 2424 2437 2459 2460 2691 2726 2730 2747 2749 2773 3116 3118 3389 3531 3540 3543 3545 3546 3547 3580 3585 3588 3608 3629 3642 3773 3924 3926 3928 3930 3932 3934 3936 3938 3946 3966 3976 4028 4044 4109 4110 4111 4133 4156 4363 4402 4464 4518 4641 4818 4953 4961 5024 5069 5104 5108 5295 5296 5299 5300 5324 5325 5357 5358 5418 5419 5495 5511 5614 5615 5622 5638 5760 5795 5825 5826 5841 5923 5945 6172 6177 6246 6262 6263 6269 6308 6310 6317 6323 6332 6351 6403 6406 6411 6436 6442 6513 6607 6609 6679 6683 6737 6779 6783 6787 6791 6795 6799 6815 6913 6925 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7056 7096 7099 7127 7134 7138 7153 7159 7168 7176 7198 7199 7217 7221 7227 7252 7275 7286 7370 7372 7374 7376 7508 7710 7755 7829 7833 7838 7840 7842 7844 7846 7848 8229 8232 8283 8287 8290 8295 8446 8471 8508 8512 8546 8550 8553 8564 8634 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 285 ; Cross Reference Listing 8739 8744 8749 8755 8769 8832 IBP DP 4673 # 4697 4702 4716 6038 6848 6891 6964 IBP SCAD 4674 # 4697 4702 4716 6038 6848 6891 IBP SPEC 4675 # 4697 4702 4716 INH CRY18 1959 # 3512 3682 3729 3758 3778 3783 5035 5110 INST DISP 2075 # 2356 2360 2369 2374 2382 2403 2409 2433 2438 INTERRUPT TRAP 2088 # JFCL FLAGS 2025 # 3600 JUMP DISP 2081 # 3475 3489 3503 3513 JUMPA 2083 # 3456 3459 3527 3528 3554 3596 LDB SCAD 4787 # 4796 4797 4798 4799 4800 LEAVE USER 2023 # 2219 4010 LOAD AC BLOCKS 1991 # 2165 7154 7177 LOAD BYTE EA 1982 # 4705 4724 4772 5924 5936 6855 LOAD DST EA 1985 # 6892 6894 6903 LOAD FE 1865 # 2381 2399 2414 2968 2971 2975 2985 2987 3003 3006 3009 3014 3026 3041 3087 4705 4709 4721 4814 4819 4821 4823 4826 4889 4902 4905 4906 4908 4910 5294 5322 5331 5333 5353 5359 5360 5374 5396 5400 5402 5403 5417 5486 5490 5492 5498 5506 5508 5509 5510 5529 5534 5575 5590 5592 5656 5673 5684 5707 5733 5747 5754 5757 5769 5786 5791 5793 5814 5839 5847 5985 5986 5988 6154 6525 6526 6532 6656 6657 6658 6659 6856 6859 6878 6896 LOAD FLAGS 2027 # 2220 3559 3563 3621 4009 7495 7510 8795 LOAD IND EA 1983 # 2343 LOAD INST 1980 # 2272 3657 6989 7902 LOAD INST EA 1981 # 3552 3576 3591 7699 LOAD IR 1976 # 5923 LOAD PAGE TABLE 1990 # 7412 8573 LOAD PCU 2021 # 4011 LOAD PI 1994 # 3610 7398 7473 7955 LOAD PXCT 1988 # 3662 LOAD SC 1864 # 2177 2187 2380 2399 2414 2430 2991 2993 3069 3070 3071 3073 3077 3087 3096 3099 3103 3110 3141 3142 3143 3145 3149 4124 4152 4189 4209 4229 4255 4267 4273 4281 4291 4299 4342 4439 4447 4554 4557 4597 4943 4946 4959 4965 4970 4983 4999 5044 5059 5065 5288 5292 5293 5302 5304 5326 5373 5407 5410 5415 5433 5434 5435 5437 5440 5444 5554 5564 5574 5608 5611 5618 5633 5636 5644 5648 5651 5661 5667 5722 5723 6299 6328 6467 6469 6472 6476 6478 6649 6655 6661 6666 6673 7160 7163 7181 7183 7212 7214 7222 7228 7231 7422 7435 7442 7630 7637 7662 7668 7716 7723 7732 7736 8297 8300 8348 8362 8365 8396 8399 8536 8542 LOAD SRC EA 1984 # LOAD VMA 1787 # 2163 2182 2186 2230 2230 2231 2233 2234 2234 2252 2278 2293 2299 2305 2309 2332 2336 2345 2365 2407 2417 2420 2432 2786 2790 2791 3022 3328 3328 3340 3455 3455 3456 3459 3460 3460 3527 3528 3529 3534 3538 3541 3554 3567 3570 3596 3611 3617 3632 3634 3634 3643 3683 3710 3720 3732 3737 3753 3816 3847 3959 3960 3960 3969 3970 3970 3984 3984 4003 4004 4031 4031 4040 4047 4048 4223 4223 4698 4698 4707 4754 4758 4762 4766 5099 5127 5135 5149 5150 5154 5155 5172 5173 5931 5933 5934 5957 6105 6354 6381 6426 6432 6439 6455 6460 6516 6594 6636 6751 6898 6899 6900 6901 6977 6985 7118 7223 7314 7339 7344 7344 7387 7387 7405 7411 7474 7489 7489 7489 7490 7531 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 286 ; Cross Reference Listing 7531 7539 7620 7655 7658 7658 7680 7702 7761 7858 7866 7876 7879 7879 7882 7882 7893 7949 7965 7965 7968 7968 7975 7975 7978 7978 7981 7981 7984 7984 7987 7987 7994 8280 8328 8329 8329 8336 8337 8337 8341 8343 8421 8423 8565 8581 8662 8664 8696 8697 8711 8713 8779 8785 8833 8834 8834 8870 8870 8873 8873 LSH 1964 # LSHC 1967 # 3073 3077 4586 4589 LUUO 2085 # 5885 5887 5889 5891 5893 5895 5897 5899 5901 MEM CYCLE 1784 # 2163 2182 2186 2230 2230 2230 2231 2231 2233 2233 2234 2234 2234 2252 2253 2270 2278 2293 2293 2299 2299 2304 2305 2309 2310 2332 2333 2336 2337 2341 2345 2354 2363 2365 2366 2367 2395 2406 2407 2407 2417 2418 2420 2421 2425 2432 2432 2496 2528 2534 2539 2542 2591 2592 2786 2787 2789 2790 2791 2793 3022 3022 3328 3328 3328 3340 3340 3407 3408 3455 3455 3455 3456 3456 3459 3459 3460 3460 3460 3527 3527 3528 3528 3529 3529 3534 3534 3538 3538 3541 3541 3550 3554 3554 3567 3568 3570 3571 3574 3589 3596 3596 3611 3615 3617 3618 3619 3632 3632 3634 3634 3635 3638 3643 3643 3679 3683 3684 3696 3702 3710 3711 3720 3721 3724 3732 3734 3737 3739 3741 3747 3753 3755 3761 3816 3817 3818 3830 3847 3848 3849 3959 3960 3960 3969 3970 3970 3971 3973 3979 3984 3984 3984 4003 4004 4005 4006 4018 4022 4031 4031 4031 4040 4041 4045 4047 4048 4049 4223 4223 4223 4698 4698 4698 4707 4707 4735 4741 4742 4754 4755 4758 4759 4762 4763 4766 4767 4769 4775 4896 4897 5099 5100 5127 5128 5135 5136 5138 5149 5150 5152 5154 5155 5157 5161 5164 5172 5173 5175 5917 5931 5933 5933 5934 5934 5936 5957 5958 6105 6105 6354 6355 6356 6381 6382 6426 6432 6439 6455 6455 6460 6460 6516 6516 6548 6550 6594 6594 6596 6599 6627 6636 6636 6751 6752 6898 6898 6899 6899 6900 6900 6901 6901 6903 6917 6973 6976 6977 6981 6984 6985 6988 7118 7119 7120 7223 7223 7255 7256 7259 7260 7263 7264 7267 7268 7271 7272 7311 7312 7314 7315 7339 7340 7343 7344 7344 7344 7345 7351 7352 7387 7387 7387 7405 7405 7406 7411 7474 7478 7489 7489 7489 7490 7490 7505 7526 7531 7531 7532 7539 7540 7620 7622 7655 7656 7658 7658 7658 7680 7681 7702 7702 7703 7748 7751 7753 7761 7763 7765 7858 7859 7861 7866 7867 7876 7879 7879 7881 7882 7882 7882 7893 7894 7900 7949 7965 7965 7966 7967 7968 7968 7968 7969 7970 7973 7974 7975 7975 7975 7976 7977 7978 7978 7978 7979 7980 7981 7981 7981 7982 7983 7984 7984 7984 7985 7986 7987 7987 7987 7988 7989 7991 7994 8280 8328 8329 8329 8336 8337 8337 8341 8342 8343 8344 8389 8421 8422 8423 8426 8518 8565 8581 8662 8663 8664 8666 8696 8697 8698 8711 8712 8713 8718 8779 8785 8833 8834 8834 8835 8849 8864 8866 8870 8870 8873 8873 8873 MEM READ 1812 # 2270 2341 2354 2363 2367 2395 2406 2425 3550 3574 3589 3615 3619 3679 3724 3761 3849 4006 4769 4775 5161 5917 5936 6356 6599 6627 6903 6917 6973 6981 6988 7120 7256 7260 7264 7268 7272 7312 7352 7478 7490 7526 7532 7622 7703 7748 7751 7753 7861 7900 8344 8426 8666 8718 MEM WAIT 1811 # 2270 2341 2354 2363 2367 2395 2406 2425 2496 2528 2534 2539 2542 2592 2789 3408 3550 3574 3589 3615 3619 3679 3696 3702 3724 3741 3747 3761 3818 3849 3971 3973 3979 4006 4018 4022 4045 4742 4769 4775 4897 5138 5161 5164 5917 5936 6356 6550 6596 6599 6627 6903 6917 6973 6981 6988 7120 7256 7260 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 287 ; Cross Reference Listing 7264 7268 7272 7312 7343 7345 7352 7406 7478 7490 7526 7532 7622 7656 7703 7748 7751 7753 7763 7765 7861 7881 7900 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8344 8426 8666 8718 8835 8849 8864 8866 MEM WRITE 1813 # 2496 2528 2534 2539 2542 2592 2789 3408 3696 3702 3741 3747 3818 3971 3973 3979 4018 4022 4045 4742 4897 5138 5164 6550 6596 7343 7345 7406 7656 7763 7765 7881 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8835 8849 8864 8866 MEM_Q 1820 # 5139 5165 6550 MEM_[] 1819 # 2497 2529 2535 2540 2543 2593 2789 3408 3697 3703 3742 3748 3819 3972 3974 3980 4019 4023 4046 4742 4897 6596 7343 7345 7406 7656 7763 7765 7881 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8836 8850 8864 8866 MUL DISP 2089 # 4273 4281 4291 4299 5585 5611 5613 5730 MUL FINAL 4251 # 4277 4285 4295 4303 MUL STEP 4250 # 4273 4281 4291 4299 NEXT INST 2069 # 2524 3045 3091 3119 3431 3713 3789 3796 4487 4490 5445 5451 5810 8237 NEXT INST FETCH 2070 # 2230 2231 2233 2234 2294 2300 3328 3340 3455 3456 3459 3460 3527 3528 3554 3596 4223 4698 7387 7658 NEXT [] PHYSICAL WRI 1842 # 3984 4031 7882 7968 7975 7978 7981 7984 7987 8873 NO DIVIDE 2031 # 4344 4379 4410 4496 5003 NORM DISP 2095 # 5305 5334 5411 5486 5488 5498 5502 5504 5506 5507 5510 5532 5683 5737 5738 5748 5750 5770 5780 5782 5787 5788 5815 5844 ONES 1970 # 4825 4828 4901 4904 5988 PAGE FAIL TRAP 2086 # 8360 8380 8448 8458 8478 8603 8640 8645 8669 8733 PI DISP 2094 # PXCT BLT DEST 1796 # 5129 5137 5151 5156 PXCT BLT SRC 1800 # 5101 5174 PXCT BYTE DATA 1798 # 4756 4760 6898 6899 PXCT BYTE PTR EA 1797 # 4764 4768 PXCT DATA 1795 # 2323 2365 2417 2420 2788 2792 3733 3738 PXCT EA 1794 # 2332 2337 3572 PXCT EXTEND EA 1801 # 5933 5934 PXCT STACK WORD 1799 # 3685 3722 3754 Q-[] 1669 # 4433 Q.AND.NOT.[] 1670 # Q_# 1685 # 4978 5022 Q_-1 1677 # Q_-AC[] 1678 # 4615 4620 4625 Q_-Q 1679 # 4403 4480 4521 4522 4539 5487 5489 5491 5493 5776 Q_-[] 1676 # 5712 Q_.NOT.AC[] 1675 # 4619 4624 Q_.NOT.Q 1684 # 5775 Q_0 1686 # 2983 4824 4900 5302 5373 5384 5396 5400 5402 5403 5416 5429 5722 5986 Q_0 XWD [] 1687 # Q_AC 1680 # 4124 4322 Q_AC[] 1681 # 2385 3089 4217 4219 4332 6546 Q_AC[].AND.MASK 1682 # Q_AC[].AND.[] 1683 # 4416 4438 4445 Q_MEM 1830 # 5162 7753 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 288 ; Cross Reference Listing Q_Q*.5 1692 # 4232 4266 4439 5637 5727 Q_Q*2 1693 # Q_Q+.25 1688 # 5588 5735 Q_Q+1 1689 # Q_Q+AC 1691 # 4998 Q_Q+[] 1698 # 4441 4473 5570 5578 5679 5682 Q_Q-1 1690 # 5038 Q_Q-WORK[] 1777 # 4981 Q_Q.AND.# 1695 # 3115 4516 5329 5638 Q_Q.AND.NOT.[] 1697 # 5724 Q_Q.AND.[] 1696 # 4488 4907 Q_Q.OR.# 1694 # 3117 4401 Q_WORK[] 1759 # 5045 6145 Q_[] 1671 # 4150 4189 4209 4229 4443 4469 4969 5326 5561 5573 5633 5648 5661 5667 5717 Q_[]+[] 1673 # 4470 Q_[]-[] 1672 # 5105 Q_[].AND.Q 1699 # 4564 5759 5794 Q_[].AND.[] 1674 # 4391 Q_[].OR.Q 1700 # 5593 RAM_[] 1780 # 2185 2187 READ Q 1710 # 5452 5494 5518 5767 5812 READ XR 1708 # 3558 READ [] 1709 # 2378 2398 2574 2738 2745 2752 2759 3070 3086 3142 3287 3331 3334 3337 3343 3346 3349 3562 3610 3621 3661 3954 3958 3968 4002 4008 4039 4127 4333 4339 4353 4358 4360 4365 4432 4434 4451 4467 4476 4537 4544 4565 4704 4708 4723 4726 4823 4889 4905 5026 5290 5294 5377 5379 5411 5415 5448 5488 5507 5575 5674 5683 5732 5750 5788 5924 5942 5985 6019 6120 6123 6129 6142 6153 6169 6345 6381 6432 6439 6465 6479 6484 6506 6510 6562 6648 6656 6751 6773 6805 6855 6857 6879 7077 7079 7080 7085 7089 7190 7304 7339 7418 7424 7431 7698 7955 7965 8310 8409 8577 8635 8689 8725 8795 8800 RETURN [] 2093 # 2459 2460 3561 3565 4029 4032 4235 4278 4286 4296 4304 4498 4520 4521 4523 4607 4634 4736 4738 4742 4777 4810 4829 4897 5111 5531 5533 5534 5623 5818 5825 5826 5841 6230 6240 6245 6248 6286 6287 6437 6443 6614 6637 6702 6733 6745 6776 6792 6809 6818 6820 6846 6881 6914 6920 6925 6965 7233 7300 7324 7399 7443 7551 7554 7626 7633 7639 7696 7704 7708 7711 7737 7749 7751 7753 7755 7757 7759 7761 7763 7765 7767 7958 7962 7996 8587 8602 8651 8654 8655 8668 8677 8680 8681 8785 8873 ROT 1966 # 3009 3014 ROTC 1969 # 3145 3149 SCAD DISP 2092 # 4697 4702 4716 4792 5288 5431 5433 5986 5988 6039 6849 6891 7723 SC_-1 1909 # SC_-2 1910 # SC_-SHIFT 1873 # SC_-SHIFT-1 1874 # 3070 3142 SC_-SHIFT-2 1875 # SC_0 1908 # 6655 6666 SC_1 1907 # SC_11. 1898 # SC_14. 1897 # ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 289 ; Cross Reference Listing SC_19. 1896 # 2177 SC_2 1906 # 6476 SC_20. 1895 # 6299 SC_22. 1894 # SC_24. 1893 # SC_26. 1892 # 5722 SC_27. 1891 # 5326 5373 SC_28. 1890 # SC_3 1905 # 4959 SC_34. 1889 # 4342 4439 4447 4970 4983 4999 SC_35. 1888 # 4124 4152 4189 4209 4229 5044 5644 5648 5661 5667 5723 SC_36. 1887 # SC_4 1904 # SC_5 1903 # 7630 7662 SC_6 1902 # 5407 5633 6469 7181 7212 7222 7228 SC_7 1901 # 6467 7160 8297 8348 8396 8536 SC_8. 1900 # SC_9. 1899 # 4943 5059 SC_EXP 1880 # 2399 2414 5292 5564 SC_FE 1883 # 2430 5651 SC_FE+S# 1882 # 3096 5433 SC_S# 1884 # 2177 4124 4152 4189 4209 4229 4342 4439 4447 4943 4959 4970 4983 4999 5044 5059 5326 5373 5407 5633 5644 5648 5661 5667 5722 5723 6299 6467 6469 6476 6655 6666 7160 7181 7212 7222 7228 7442 7630 7662 7716 7732 8297 8348 8396 8536 SC_S#-FE 1881 # 3099 5435 SC_SC-1 1869 # 7723 SC_SC-EXP 1876 # SC_SC-EXP-1 1877 # 5288 5554 SC_SC-FE 1879 # SC_SC-FE-1 1878 # 5293 5574 SC_SHIFT 1870 # 3087 5415 SC_SHIFT-1 1871 # 2380 SC_SHIFT-2 1872 # SET APR ENABLES 2000 # 2168 7081 7190 SET AROV 2009 # 4137 4138 4162 4224 5432 SET FL NO DIVIDE 2012 # 5355 5367 5720 SET FOV 2010 # SET FPD 2015 # 4237 4751 6394 SET HALT 1995 # 7884 7950 SET NO DIVIDE 2011 # 4344 4379 4410 4496 5003 5355 5367 5720 SET PDL OV 2018 # 3704 3760 3790 3794 SET P TO 36-S 4678 # 4737 6048 6851 6893 SET TRAP1 2019 # SHIFT 1867 # 2975 2987 3009 3014 SKIP AC REF 2063 # SKIP AD.EQ.0 2047 # 3019 3334 3346 3437 3449 4127 4132 4334 4336 4340 4354 4399 4428 4458 4539 4617 4622 4627 4643 4650 4968 4997 5351 5377 5379 5452 5494 5518 5674 5725 5767 5812 6142 6195 6271 6274 6563 6600 6621 6744 7331 8324 8327 8411 8414 SKIP AD.LE.0 2048 # 3337 3349 3440 3452 4393 5027 5371 5695 6342 7297 7954 SKIP ADL.EQ.0 2059 # 2190 3992 3997 5394 5399 5513 5678 5681 5749 5752 5755 5758 5818 5918 5961 6100 6102 6184 6204 6388 6404 6458 6493 6496 6528 6992 7128 7142 7188 7197 7492 7493 7684 7686 7700 8284 8306 8350 8357 8360 8375 8380 8429 8448 8452 8458 8472 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 290 ; Cross Reference Listing 8476 8478 8498 8551 8570 8572 8599 8603 8637 8640 8642 8645 8648 8669 8679 8733 8751 8792 8841 SKIP ADL.LE.0 2050 # 7693 SKIP ADR.EQ.0 2060 # 3088 3594 3609 5125 6329 6402 6757 7034 7040 7067 7069 7072 7074 7076 7367 7369 7373 7375 7377 7379 7381 7383 7480 7533 7553 7625 7652 8235 8503 8531 8720 8737 8740 8745 SKIP CRY0 2055 # 3687 3730 3759 5363 5487 5489 5491 5493 SKIP CRY1 2056 # 4090 4102 5803 6219 6225 6238 6429 6440 SKIP CRY2 2057 # 5776 5836 SKIP DP0 2045 # 2400 2415 2574 2752 2759 3042 3114 3331 3343 3434 3446 3776 3779 3784 3955 4109 4134 4156 4159 4214 4222 4323 4359 4361 4366 4371 4375 4397 4414 4426 4433 4448 4467 4485 4537 4544 4559 5000 5144 5168 5290 5294 5323 5353 5361 5395 5417 5448 5555 5657 5704 5708 5719 5732 5969 5982 5999 6012 6019 6037 6079 6081 6103 6120 6123 6129 6169 6261 6266 6303 6312 6345 6362 6434 6484 6510 6701 6731 6773 6827 6946 7122 7286 8311 8409 8636 8690 SKIP DP18 2046 # 2379 2738 2745 5942 6189 6393 6482 6805 6806 7519 8693 8703 8726 SKIP EXECUTE 2064 # 7888 SKIP FPD 2052 # 4176 4697 4702 4716 6293 SKIP IF AC0 2044 # 2486 3390 4694 SKIP IO LEGAL 2054 # 2436 3539 3542 SKIP IRPT 2061 # 5148 6039 8248 8443 8665 8773 8804 8855 SKIP JFCL 2058 # 3601 SKIP KERNEL 2053 # 3532 3536 3537 3544 3653 6971 SKIP -1MS 2062 # 6034 SKIP-COMP DISP 2080 # 3372 3391 3392 6118 SPEC MEM READ 1814 # 2412 SPEC MEM WRITE 1815 # START NO TEST WRITE 1807 # 8389 8518 START READ 1805 # 2230 2231 2233 2234 2253 2293 2299 2304 2310 2333 2337 2366 2407 2418 2421 2432 3022 3328 3340 3455 3456 3459 3460 3527 3528 3529 3534 3538 3541 3554 3568 3571 3596 3618 3638 3711 3721 3755 3848 4005 4049 4223 4698 4707 4755 4759 4763 4767 5100 5175 5933 5934 5958 6105 6355 6382 6455 6460 6516 6636 6752 6898 6899 6900 6901 6976 6984 7119 7255 7259 7263 7267 7271 7311 7315 7351 7387 7540 7658 7681 7702 7859 7894 8342 8422 8663 8698 8712 START WRITE 1806 # 2591 2787 2793 3407 3632 3635 3643 3684 3734 3739 3817 3830 3984 4031 4041 4735 4741 4896 5128 5136 5152 5157 6548 6594 7223 7340 7344 7405 7505 7867 7882 7968 7975 7978 7981 7984 7987 8873 STATE_[] 2036 # 5111 5977 6003 6006 6028 6076 6082 6090 6121 6128 6147 6175 6357 6384 6508 6565 6569 6629 8236 8810 8812 8814 8816 8818 8820 8824 STEP SC 1866 # 2187 2991 2993 3069 3071 3073 3077 3103 3110 3141 3143 3145 3149 4255 4267 4273 4281 4291 4299 4554 4557 4597 4946 4965 5065 5302 5304 5410 5434 5437 5440 5444 5608 5611 5618 5636 6328 6472 6478 6673 7163 7183 7214 7231 7422 7435 7637 7668 7736 8300 8362 8365 8399 8542 SWEEP 1992 # 7430 7431 7434 TAKE INTERRUPT 2087 # 8832 TEST DISP 2079 # 3273 3279 7568 TL [] 1714 # 3992 3997 5513 5678 5681 5749 5752 5755 5758 5818 5918 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 291 ; Cross Reference Listing 5961 6100 6102 6184 6204 6388 6404 6458 6493 6496 7684 7686 7700 8284 8306 8350 8357 8360 8375 8380 8429 8448 8452 8458 8472 8476 8478 8498 8551 8570 8572 8599 8603 8637 8640 8642 8645 8648 8669 8679 8733 8751 8792 8841 TR [] 1713 # 3594 3609 6329 6402 6757 7067 7069 7072 7074 7076 7367 7369 7373 7375 7377 7379 7381 7383 7625 7652 8235 8503 8531 8720 8737 8740 8745 TURN OFF PXCT 1989 # 2242 2245 2248 2260 2263 2266 2280 TXXX TEST 2065 # 3287 UNHALT 1999 # 7887 UPDATE USER 2022 # 3560 3564 3622 UUO 2084 # 2437 3531 3540 3543 3545 3546 3547 3580 3585 3588 3608 3629 3642 3924 3926 3928 3930 3932 3934 3936 3938 6913 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7252 7275 7370 7829 7833 7838 7840 7842 7844 7846 7848 VMA 1854 # VMA EXTENDED 1792 # VMA PHYSICAL 1789 # 3960 3970 3984 4004 4031 6977 6985 7489 7531 7879 7882 7965 7968 7975 7978 7981 7984 7987 8329 8337 8343 8423 8664 8697 8713 8834 8870 8873 VMA PHYSICAL READ 1791 # 7489 7531 8329 8337 8870 VMA PHYSICAL WRITE 1790 # 3960 3970 7879 7965 8834 VMA_[] 1834 # 2230 2234 2252 2309 2336 2345 2432 2790 3328 3455 3460 3534 3570 3632 3643 3732 3737 3816 3847 4223 4698 4707 4758 4766 5099 5127 5135 5934 6460 6516 6594 6636 6899 6901 7118 7223 7387 7405 7411 7489 7658 7702 7858 7866 7893 7994 8341 8565 8581 8662 8833 VMA_[] WITH FLAGS 1835 # 7761 VMA_[]+1 1837 # 2231 2233 2278 2365 3340 3634 4047 5149 5154 5172 6105 6455 7314 7344 VMA_[]+XR 1839 # 4754 4762 6898 6900 VMA_[]+[] 1840 # 8328 8336 8421 VMA_[]-1 1838 # 3529 3538 3541 7680 VMA_[].OR.[] WITH FL 1836 # 7620 7655 WORK[] 1855 # 6137 6359 6558 6625 6703 6734 6737 WORK[]_.NOT.[] 1765 # 6179 WORK[]_0 1760 # 2179 7438 7439 WORK[]_1 1761 # 2178 WORK[]_Q 1758 # 4977 6109 6148 WORK[]_[] 1762 # 2162 2170 2172 2173 4695 4954 4967 4987 5019 5927 5940 5943 5973 6035 6061 6062 6063 6078 6125 6161 6300 6302 6364 6377 6383 6582 6730 6919 6970 7082 7191 7257 7261 7265 7269 7273 7288 7299 7320 7323 7353 7354 7721 7727 7729 7874 7946 7961 7971 8233 8243 8244 8246 8247 8254 8264 8266 8268 8270 8274 8275 8416 8418 8439 8764 WORK[]_[] CLR LH 1763 # 3665 7687 WORK[]_[]-1 1764 # 6358 WORK[]_[].AND.[] 1766 # 5990 WRITE TEST 1804 # 2591 2787 2793 3407 3632 3635 3643 3684 3734 3739 3817 3830 3984 4031 4041 4735 4741 4896 5128 5136 5152 5157 6548 6594 7223 7255 7259 7263 7267 7271 7340 7344 7405 7505 7867 7882 7968 7975 7978 7981 7984 7987 8873 XR 1853 # [] LEFT_-1 1655 # 2742 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 292 ; Cross Reference Listing [] LEFT_0 1653 # 2740 [] RIGHT_-1 1656 # 2763 [] RIGHT_0 1654 # 2761 []+[] 1520 # 2785 4234 4374 []-# 1522 # 6188 6481 8691 8701 []-[] 1521 # 4370 4426 4427 5124 5142 5166 5363 5371 5719 6103 [].AND.# 1523 # 5394 5398 6527 6990 7140 7188 7197 [].AND.NOT.WORK[] 1767 # [].AND.NOT.[] 1526 # 4131 [].AND.Q 1524 # 4398 [].AND.WORK[] 1768 # 6743 [].AND.[] 1525 # 4159 7034 7040 7553 [].OR.[] 1527 # [].XOR.# 1528 # 2190 7492 7493 [].XOR.[] 1529 # 7330 []_# 1531 # 2151 2155 2180 2181 2221 2747 2749 2754 2756 4543 4951 4974 4984 4988 5017 5060 5111 5945 5977 6003 6006 6028 6076 6082 6090 6121 6128 6147 6175 6357 6384 6508 6565 6569 6629 7046 7048 7414 7416 7427 7429 7508 7550 8236 8810 8812 8814 8816 8818 8820 8824 []_#-[] 1530 # []_(#-[])*2 1617 # 5055 []_(-[])*.5 1618 # []_(-[]-.25)*.5 LONG 1619 # 4404 5713 []_(-[]-.25)*2 LONG 1620 # 4481 []_(AC[].AND.[])*.5 1615 # 4180 4182 5552 5643 5698 []_(MEM.AND.[])*.5 1829 # 2426 []_(Q+1)*.5 1616 # 5835 []_([]+#)*2 1630 # []_([]+1)*2 1631 # 6647 []_([]+[])*.5 LONG 1632 # 5582 []_([]+[])*2 LONG 1633 # 4588 []_([]+[]+.25)*.5 LO 1636 # []_([]-[])*.5 LONG 1634 # []_([]-[])*2 LONG 1635 # 4585 []_([].AND.#)*.5 1622 # 4948 4955 7534 []_([].AND.#)*2 1623 # []_([].AND.NOT.#)*.5 1624 # []_([].AND.NOT.#)*2 1625 # []_([].AND.[])*.5 1626 # 4174 []_([].AND.[])*2 1627 # []_([].OR.#)*.5 1628 # []_([].OR.#)*2 1629 # []_+SIGN 1659 # 2424 2459 5295 5299 5324 5357 5418 []_+SIGN*.5 1664 # 5556 5658 5709 []_-1 1532 # 4326 6394 7396 []_-2 1533 # []_-AC 1548 # 4630 []_-AC[] 1549 # 6273 []_-Q 1534 # []_-Q*.5 1536 # 5382 []_-Q*2 1535 # 4454 []_-SIGN 1660 # 2422 2460 5296 5300 5325 5358 5419 []_-SIGN*.5 1665 # 5558 5659 5711 []_-WORK[] 1775 # 6001 6944 6958 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 293 ; Cross Reference Listing []_-[] 1537 # 2579 2949 4523 4541 4548 4642 4646 4650 4652 5285 5360 5395 5504 5520 5549 5701 5781 5802 6270 []_-[]*2 1539 # 5364 []_-[]-.25 1538 # 5550 []_.NOT.AC[] 1541 # 6272 []_.NOT.AC 1540 # 2898 2908 4629 []_.NOT.Q 1542 # 4914 5989 []_.NOT.WORK[] 1774 # 6018 6046 6050 6186 6190 6962 []_.NOT.[] 1543 # 2841 2878 2919 2929 3290 4096 4540 4644 4651 5454 5502 5517 5519 5700 5710 5779 5970 5972 6524 7683 8678 []_0 1544 # 2163 2165 2168 2177 2196 2218 2402 2806 3273 3975 4228 4324 4538 4818 4960 5103 5145 5169 5521 5694 5761 5777 5805 6022 6094 6106 6117 6146 6267 6305 6339 6395 6399 6403 6406 6461 6733 7158 7170 7216 7293 7368 7413 7481 7710 7755 7879 8547 8804 8822 8823 8854 []_0 XWD [] 1546 # 2157 2160 2204 2240 2244 2247 2259 2262 2265 3948 3988 4036 4400 4411 5885 5887 5889 5891 5893 5895 5897 5899 5901 6597 7284 7463 7464 7465 7466 7467 7468 7469 []_0*.5 LONG 1545 # 4254 []_AC[] 1563 # 2183 2373 2783 5960 5978 5981 6011 6027 6099 6119 6151 6166 6194 6197 6199 6216 6257 6259 6260 6292 6298 6325 6337 6372 6515 6556 6593 6595 6699 6812 6819 6845 6847 6874 6931 6939 6945 []_AC[]*.5 1565 # 4194 []_AC[]*2 1564 # 6206 []_AC[]-1 1560 # 6366 6385 []_AC[]-[] 1559 # 4101 []_AC[].AND.[] 1561 # []_AC 1547 # 2359 2372 2590 2691 2693 2724 2730 2967 2984 3475 3719 3752 3774 3832 3845 4152 4331 4722 5118 5288 5321 5353 5417 5563 5963 6101 6163 6297 6299 6320 6457 7582 7869 []_AC*.5 1550 # 2990 3002 3005 4199 4414 5553 5655 5706 []_AC*.5 LONG 1551 # 2386 3092 []_AC*2 1552 # 4718 []_AC+1 1553 # 3489 []_AC+1000001 1554 # 3511 3681 []_AC+[] 1555 # 5109 []_AC-1 1556 # 3503 []_AC-[] 1557 # 3372 4076 4106 []_AC-[]-.25 1558 # 4103 []_AC.AND.MASK 1562 # 2970 3018 []_APR 1566 # 7008 7009 7071 7103 7302 []_CURRENT AC [] 1567 # []_EA 1570 # 2322 []_EA FROM [] 1568 # 5931 []_EXP 1571 # 5495 5511 5841 []_FE 1572 # 3043 6660 []_FLAGS 1573 # 3630 3644 3965 3991 7494 8844 []_IO DATA 1824 # 7479 7527 7623 8256 []_MEM 1825 # 2271 2341 2355 2364 2368 2396 2413 3551 3575 3590 3615 3619 3680 3725 3761 3850 4007 4770 5917 5936 6356 6599 6627 6903 6918 6988 7121 7256 7260 7264 7268 7272 7313 7352 7490 7532 7703 7748 7751 7862 7901 8345 8427 8667 8719 []_MEM THEN FETCH 1826 # 2407 []_MEM*.5 1827 # ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 294 ; Cross Reference Listing []_MEM.AND.MASK 1828 # 4776 []_P 1574 # 6530 6676 []_PC WITH FLAGS 1575 # 3691 3808 3814 4020 4221 6969 7506 8848 []_Q 1576 # 4129 4137 4357 4412 4429 4435 4444 5612 5619 5639 5662 5721 5723 []_Q*.5 1577 # 4192 5376 5381 5651 []_Q*2 1578 # []_Q*2 LONG 1579 # 4440 4450 []_Q+1 1580 # 5106 []_RAM 1581 # []_TIME 1582 # 7327 7328 7329 []_VMA 1583 # 7717 7960 8230 8245 8765 []_VMA FLAGS 1845 # 7475 7522 7614 7617 7653 7664 7670 7896 []_VMA IO READ 1846 # 7475 7522 7614 7617 7896 []_VMA IO WRITE 1847 # 7653 7664 7670 []_WORK[] 1773 # 4972 4982 5181 6065 6066 6067 6068 6132 6343 6353 6386 6387 6408 6584 6620 6697 6817 6828 6935 7060 7094 7186 7243 7245 7247 7249 7251 7281 7290 7295 7301 7333 7337 7358 7690 7695 7948 7953 7957 7972 7990 7992 7993 7995 8234 8323 8326 8410 8413 8491 8493 8538 8578 8579 8580 8586 8775 8781 8790 8794 8806 []_WORK[]+1 1776 # 5997 6030 6085 6183 6361 6824 6830 []_XR 1584 # 7693 []_[] 1585 # 2297 3021 3456 3459 3527 3528 3554 3581 3596 3655 3709 3829 3834 4123 4151 4175 4191 4321 4330 4345 4351 4380 4735 5043 5291 5292 5293 5331 5351 5359 5568 5569 5576 5577 5650 5692 5695 5737 5738 5979 5999 6045 6080 6340 6351 6359 6426 6526 6759 6850 6873 6892 6949 7015 7016 7196 7233 7332 7364 7510 7592 7594 7601 7626 8296 8384 8535 8559 8856 []_[] SWAP 1586 # 2391 2571 2718 2720 2723 2726 2729 2732 3271 3276 3595 3772 3831 3846 3964 4816 4942 4958 5058 5098 5107 5180 6405 6462 6467 6468 6762 7095 7372 7385 7395 8437 8728 []_[] XWD 0 1587 # 6160 6275 7743 8260 8262 8276 []_[]*.5 1588 # 2154 2428 2429 2986 3007 3008 3012 3095 3098 4173 4230 4392 4420 4551 4552 4553 4559 4820 4896 4945 4964 5366 5374 5441 5490 5492 5508 5509 5528 5529 5534 5644 5677 5846 6469 6472 6476 6478 6558 6666 6673 6736 7212 7214 7222 7228 7231 7537 7555 7630 7636 8299 8315 []_[]*.5 LONG 1589 # 2387 3073 3101 3145 4125 4153 4232 4253 4266 4394 4396 4408 4424 4439 4446 4498 4546 5046 5304 5327 5332 5407 5409 5439 5607 5610 5618 5621 5623 5637 5672 5727 5753 5756 5790 5792 5838 []_[]*2 1590 # 2152 2974 2997 3010 3013 3040 4128 4155 4211 5064 5361 5369 5444 6207 6753 7162 7181 7183 7482 7518 7662 7668 7759 8361 8364 8398 8541 []_[]*2 LONG 1591 # 2993 3074 3077 3078 3079 3104 3108 3111 3146 3149 3150 4478 4558 4561 4563 4909 5486 5498 5506 5510 5584 5589 5591 5603 5605 5606 5635 5676 5680 5729 5746 5768 5785 5813 []_[]*4 1592 # 6463 []_[]+# 1593 # 3727 3756 6422 6431 7483 7528 8331 8339 8705 8715 8829 []_[]+.25 1594 # 5842 []_[]+0 1595 # []_[]+1 1596 # 2182 2186 2416 2419 3406 3616 3637 4741 5147 5171 5453 5956 6057 6075 6104 6247 6315 6327 6334 6354 6375 6389 6444 6507 6531 6625 6852 6894 7291 7757 8808 8869 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 295 ; Cross Reference Listing []_[]+1000001 1597 # 3820 3837 5121 []_[]+AC 1598 # 4062 4092 []_[]+AC[] 1599 # 4089 6208 6218 6221 []_[]+Q 1600 # 4452 []_[]+RAM 1601 # 6438 6440 []_[]+WORK[] 1769 # 5040 6379 6559 6635 6742 6750 7334 7707 7709 8353 8355 8432 8597 []_[]+XR 1602 # 2291 2303 2318 2331 3566 5930 5933 7701 []_[]+[] 1603 # 3950 3990 4205 4471 4474 4562 5305 5449 5532 5663 6020 6052 6224 6235 6237 6674 6956 6972 6980 7285 7485 7520 7530 7538 8695 8710 []_[]+[]+.25 1604 # []_[]-# 1605 # []_[]-1 1606 # 3422 6036 6140 6141 6252 6393 6430 6823 8798 8858 []_[]-1000001 1607 # []_[]-AC 1608 # []_[]-RAM 1609 # 6428 6433 []_[]-WORK[] 1778 # []_[]-[] 1610 # 6015 6341 6952 7296 7420 7433 []_[]-[] REV 1611 # 6139 []_[].AND.AC 1637 # 2816 2939 3278 3301 7568 []_[].AND.NOT.# 1638 # 3623 4027 5826 6410 6778 6794 7061 7087 7199 7380 8510 8560 8735 []_[].AND.NOT.AC 1640 # 2826 7598 []_[].AND.NOT.WORK[] 1771 # []_[].AND.NOT.[] 1639 # 5587 7070 7073 7374 7384 7554 []_[].AND.Q 1641 # 4157 4829 4916 []_[].AND.WORK[] 1770 # 6138 8601 []_[].AND.[] 1642 # 4915 5514 5796 5798 6136 7397 8633 []_[].AND.# 1612 # 2424 2437 2459 3531 3540 3543 3545 3546 3547 3580 3585 3588 3608 3629 3642 3924 3926 3928 3930 3932 3934 3936 3938 3944 4042 4110 5067 5295 5299 5324 5357 5418 6171 6294 6470 6473 6512 6643 6677 6680 6913 6923 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7063 7065 7097 7100 7125 7132 7136 7147 7166 7187 7215 7221 7227 7232 7252 7275 7317 7370 7371 7632 7638 7829 7833 7838 7840 7842 7844 7846 7848 8231 8288 8444 8544 8554 8767 []_[].AND.# CLR LH 1613 # 3044 6585 6623 6663 6808 7033 7036 7104 7471 8302 8381 8441 8459 8567 []_[].AND.# CLR RH 1614 # 5920 5964 6164 []_[].EQV.AC 1643 # 2888 []_[].EQV.Q 1644 # 4135 4138 4160 4161 []_[].OR.# 1645 # 2153 2422 2460 3994 3999 4111 4464 4549 5296 5300 5325 5358 5419 5614 5615 5622 5825 6176 6263 6307 6316 6321 6331 6602 6606 6608 6669 6782 6786 6790 6798 6814 7189 7198 7303 7378 7456 7457 7458 7459 7460 7461 7462 7897 8227 8281 8285 8470 8473 8499 8506 8548 8552 8569 8571 8575 8631 8738 8742 8747 8754 8759 8832 []_[].OR.AC 1646 # 2868 3296 7596 []_[].OR.FLAGS 1647 # []_[].OR.WORK[] 1772 # 6950 6959 8386 8481 []_[].OR.[] 1648 # 2909 4097 4917 5922 6021 6251 6682 7064 7068 7075 7106 7151 7173 7175 7376 7382 7524 8556 8770 []_[].XOR.AC 1650 # 2858 3293 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 296 ; Cross Reference Listing []_[].XOR.[] 1651 # 5800 []_[].XOR.# 1649 # 4418 8294 .NOT.[] 1519 # 4335 7398 7473 2T 1857 # 4414 4427 5294 5564 6138 6208 6272 6560 6697 6742 7337 7694 3T 1858 # 2190 2415 2425 2580 3113 3287 3372 3406 3422 3512 3602 3686 3721 3729 3754 3758 3775 3780 3785 3822 3838 4063 4077 4180 4182 4201 4235 4372 4376 4426 4432 4433 4434 4451 4455 4476 4484 4565 4630 4647 4705 4720 4791 4809 4905 4949 4956 5036 5052 5056 5122 5124 5143 5167 5288 5322 5363 5394 5395 5398 5430 5433 5487 5489 5491 5493 5552 5553 5556 5558 5657 5658 5659 5703 5707 5709 5711 5719 5802 5808 5968 5986 5988 6036 6040 6103 6210 6224 6238 6270 6273 6358 6361 6393 6394 6422 6428 6431 6440 6465 6479 6506 6526 6527 6649 6656 6700 6759 6849 6856 6877 6891 6895 6898 6900 6936 6991 7121 7128 7141 7188 7197 7454 7479 7483 7491 7492 7493 7528 7532 7534 7701 8331 8339 8565 8582 8705 8716 8800 8830 4T 1859 # 3018 3489 3503 4089 4094 4101 4104 4106 4996 5001 5982 6012 6189 6194 6219 6260 6433 6481 6621 6744 6945 7954 8251 8324 8327 8411 8414 8693 8703 5T 1860 # 7255 7259 7263 7267 7271 7723 7740 7-BIT DPB 4886 # 4890 4891 4892 4893 4894 7-BIT LDB 4788 # 4796 4797 4798 4799 4800 (D) MACRO% AC 2126 # 2549 2550 2554 2555 2559 2560 2564 2565 2586 2602 2603 2607 2608 2612 2613 2617 2618 2622 2623 2627 2628 2632 2633 2637 2638 2644 2645 2649 2650 2654 2655 2659 2660 2664 2665 2669 2670 2674 2675 2679 2680 2769 2799 2800 2809 2810 2819 2820 2829 2830 2834 2835 2851 2852 2861 2862 2871 2872 2881 2882 2891 2892 2901 2902 2912 2913 2922 2923 2932 2933 2942 2943 4055 4056 4069 4070 4117 4118 4687 8223 AC DISP 2140 # 3518 7001 7002 7238 B 2128 # 2802 2812 2822 2832 2837 2854 2864 2874 2884 2894 2904 2915 2925 2935 2945 4058 4072 4120 DAC 2130 # 2768 4084 4085 4142 4143 4168 4309 4310 4314 4315 4386 5628 5689 DBL AC 2115 # 2777 DBL B 2131 # 4145 4312 4317 DBL FL-R 2121 # 5539 5540 5628 5689 DBL R 2114 # 2768 2769 4084 4085 4168 4386 FL-AC 2132 # 5265 5268 5269 5273 5276 5277 5310 5314 5315 5339 5343 5344 5389 5390 5424 5425 FL-BOTH 2134 # 5267 5271 5275 5279 5312 5317 5341 5346 FL-I 2120 # 5269 5277 5315 5344 FL-MEM 2133 # 5266 5270 5274 5278 5311 5316 5340 5345 FL-R 2118 # 5265 5268 5273 5276 5310 5314 5339 5343 5424 5425 FL-RW 2119 # 5266 5267 5270 5271 5274 5275 5278 5279 5311 5312 5316 5317 5340 5341 5345 5346 I 2106 # 2845 2957 3177 3178 3179 3180 3181 3182 3183 3184 3186 3187 3195 3196 3197 3198 3199 3200 3201 3202 3213 3214 3215 3216 3217 3218 3219 3220 3230 3231 3232 3233 3234 3235 3236 3237 3352 3353 3354 3355 3356 3357 3358 3359 3464 3465 3466 3467 3468 3469 3470 3471 3479 3480 3481 3482 3483 3484 3485 3493 3494 3495 3496 3497 3498 3499 3506 3507 3518 3520 3671 3673 3674 3801 3802 3803 3804 3857 3858 3859 3860 3861 3862 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 297 ; Cross Reference Listing 3863 3864 3868 3869 3870 3871 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3903 3904 3905 3906 3910 3911 3912 3913 3914 3915 3916 3917 3918 3919 3920 5114 5390 5854 5855 5856 5857 5858 5859 5860 5862 5863 5864 5865 5867 5868 5869 5870 5872 5873 5874 5875 5876 5877 5878 5879 5913 7772 7773 7774 7776 7777 7779 7780 7782 7783 7784 7785 7786 7787 7788 7789 7791 7792 7793 7794 7795 7796 7797 7798 7800 7801 7802 7803 7804 7805 7806 7807 7809 7810 7811 7812 7813 7814 7815 7816 7818 7819 7820 7821 7822 7823 7824 7825 I-PF 2107 # 2550 2555 2560 2565 2603 2608 2613 2618 2623 2628 2633 2638 2645 2650 2655 2660 2665 2670 2675 2680 2799 2800 2810 2820 2830 2835 2852 2862 2872 2882 2891 2892 2902 2913 2923 2933 2942 2943 2958 3478 3492 3768 4056 4070 4118 4143 4310 4315 IOT 2122 # 7001 7002 7238 7560 7561 7562 7563 7571 7572 7573 7574 7585 7586 7587 7588 7853 7854 8223 IR 2113 # 3672 IW 2112 # 2801 2802 2893 2894 2944 2945 M 2127 # 2551 2556 2561 2566 2604 2609 2614 2619 2624 2629 2634 2639 2646 2651 2656 2661 2666 2671 2676 2681 2801 2811 2821 2831 2836 2846 2847 2853 2863 2873 2883 2893 2903 2914 2924 2934 2944 4057 4071 4119 4144 4311 4316 7238 R 2108 # 2586 2844 3188 3189 3190 3191 3192 3193 3204 3205 3206 3207 3208 3209 3210 3211 3222 3223 3224 3225 3226 3227 3228 3229 3239 3240 3241 3242 3243 3244 3245 3246 3361 3362 3363 3364 3365 3366 3367 3368 3378 3379 3380 3381 3382 3383 3384 3385 3649 4687 4688 4689 4690 4691 5389 R-PF 2109 # 2549 2554 2559 2564 2602 2607 2612 2617 2622 2627 2632 2637 2644 2649 2654 2659 2664 2669 2674 2679 2809 2819 2829 2834 2851 2861 2871 2881 2901 2912 2922 2932 4055 4069 4117 4142 4309 4314 ROUND 2135 # 5268 5269 5270 5271 5276 5277 5278 5279 5314 5315 5316 5317 5343 5344 5345 5346 5389 5425 RW 2111 # 2552 2557 2562 2567 2604 2605 2609 2610 2615 2620 2625 2630 2635 2640 2646 2647 2651 2652 2657 2662 2667 2672 2677 2682 2811 2812 2821 2822 2831 2832 2836 2837 2853 2854 2863 2864 2873 2874 2883 2884 2903 2904 2914 2915 2924 2925 2934 2935 3395 3396 3397 3398 3399 3400 3401 3402 3411 3412 3413 3414 3415 3416 3417 3418 4057 4058 4071 4072 4119 4120 4144 4145 4311 4312 4316 4317 S 2129 # 2552 2557 2562 2567 2605 2610 2615 2620 2625 2630 2635 2640 2647 2652 2657 2662 2667 2672 2677 2682 SH 2116 # 2954 2955 2956 SHC 2117 # 2959 2960 SJC- 3312 # 3352 3361 3378 3395 3411 3464 3478 3492 SJCA 3316 # 3356 3365 3382 3399 3415 3468 3482 3496 SJCE 3314 # 3354 3363 3380 3397 3413 3466 3480 3494 5855 SJCG 3319 # 3359 3368 3385 3402 3418 3471 3485 3499 5860 SJCGE 3317 # 3357 3366 3383 3400 3416 3469 3483 3497 3506 5858 SJCL 3313 # 3353 3362 3379 3396 3412 3465 3479 3493 3507 5854 SJCLE 3315 # 3355 3364 3381 3398 3414 3467 3481 3495 5856 SJCN 3318 # 3358 3367 3384 3401 3417 3470 3484 3498 5859 TC- 3168 # 3213 3214 3222 3223 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 298 ; Cross Reference Listing TCA 3170 # 3217 3218 3226 3227 TCE 3169 # 3215 3216 3224 3225 TCN 3171 # 3219 3220 3228 3229 TN- 3158 # TNA 3161 # 3181 3182 3190 3191 TNE 3159 # 3179 3180 3188 3189 7562 TNN 3162 # 3183 3184 3192 3193 7563 TO- 3172 # 3230 3231 3239 3240 TOA 3174 # 3234 3235 3243 3244 TOE 3173 # 3232 3233 3241 3242 TON 3175 # 3236 3237 3245 3246 TZ- 3164 # 3195 3196 3204 3205 TZA 3166 # 3199 3200 3208 3209 TZE 3165 # 3197 3198 3206 3207 TZN 3167 # 3201 3202 3210 3211 W 2110 # 2551 2556 2561 2566 2614 2619 2624 2629 2634 2639 2656 2661 2666 2671 2676 2681 2778 2846 2847 W TEST 2139 # 2586 4688 4690 WORD-TNE 3160 # 7560 WORD-TNN 3163 # 7561 (U) MEM 956 # 2163 2182 2186 2230 2230 2230 2231 2231 2233 2233 2234 2234 2234 2252 2253 2270 2278 2293 2293 2299 2299 2304 2305 2309 2310 2323 2332 2333 2336 2337 2341 2345 2354 2363 2365 2366 2367 2395 2406 2407 2407 2417 2418 2420 2421 2425 2432 2432 2496 2528 2534 2539 2542 2571 2577 2591 2592 2691 2693 2726 2732 2740 2742 2761 2763 2786 2787 2789 2790 2791 2793 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 3022 3022 3328 3328 3328 3340 3340 3407 3408 3455 3455 3455 3456 3456 3459 3459 3460 3460 3460 3527 3527 3528 3528 3529 3529 3534 3534 3538 3538 3541 3541 3550 3554 3554 3567 3568 3570 3571 3574 3589 3596 3596 3611 3615 3617 3618 3619 3632 3632 3634 3634 3635 3638 3643 3643 3679 3683 3684 3696 3702 3710 3711 3720 3721 3724 3732 3734 3737 3739 3741 3747 3753 3755 3761 3816 3817 3818 3830 3847 3848 3849 3959 3960 3960 3960 3969 3970 3970 3970 3971 3973 3979 3984 3984 3984 4003 4004 4005 4006 4018 4022 4031 4031 4031 4040 4041 4045 4047 4048 4049 4063 4077 4129 4135 4158 4160 4223 4223 4223 4698 4698 4698 4707 4707 4735 4741 4742 4754 4755 4758 4759 4762 4763 4766 4767 4769 4775 4896 4897 5099 5100 5127 5128 5135 5136 5138 5149 5150 5152 5154 5155 5157 5161 5164 5172 5173 5175 5449 5453 5499 5521 5917 5931 5933 5933 5934 5934 5936 5957 5958 6105 6105 6354 6355 6356 6381 6382 6426 6432 6439 6455 6455 6460 6460 6516 6516 6548 6550 6594 6594 6596 6599 6627 6636 6636 6751 6752 6898 6898 6899 6899 6900 6900 6901 6901 6903 6917 6973 6976 6977 6981 6984 6985 6988 7118 7119 7120 7223 7223 7255 7256 7259 7260 7263 7264 7267 7268 7271 7272 7311 7312 7314 7315 7339 7340 7343 7344 7344 7344 7345 7351 7352 7387 7387 7387 7405 7405 7406 7411 7474 7478 7489 7489 7489 7489 7490 7490 7505 7526 7531 7531 7531 7532 7539 7540 7620 7620 7622 7655 7655 7656 7658 7658 7658 7680 7681 7702 7702 7703 7748 7751 7753 7761 7761 7763 7765 7858 7859 7861 7866 7867 7876 7879 7879 7879 7881 7882 7882 7882 7893 7894 7900 7949 7965 7965 7965 7966 7967 7968 7968 7968 7969 7970 7973 7974 7975 7975 7975 7976 7977 7978 7978 7978 7979 7980 7981 7981 7981 7982 7983 7984 7984 7984 7985 7986 7987 7987 7987 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 299 ; Cross Reference Listing 7988 7989 7991 7994 8280 8328 8329 8329 8329 8336 8337 8337 8337 8341 8342 8343 8344 8389 8421 8422 8423 8426 8518 8557 8565 8581 8662 8663 8664 8666 8696 8697 8698 8711 8712 8713 8718 8779 8785 8833 8834 8834 8834 8835 8849 8857 8864 8866 8870 8870 8870 8873 8873 8873 (U) MICROCODE OPTION(INH@ 1236 # OPT 1240 # 7049 (U) MICROCODE OPTION(KIP@ 1260 # OPT 1262 # 7053 (U) MICROCODE OPTION(KLP` 1266 # OPT 1268 # 7054 (U) MICROCODE OPTION(NOC` 1242 # OPT 1246 # 7050 (U) MICROCODE OPTION(NON 1248 # OPT 1252 # 7051 (U) MICROCODE OPTION(UBA  1254 # OPT 1258 # 7052 (U) MICROCODE OPTIONS 1229 # (U) MICROCODE RELEASE(MA 1276 # UCR 1277 # 7041 (U) MICROCODE RELEASE(MI` 1279 # UCR 1280 # 7042 (U) MICROCODE VERSION 1273 # UCV 1274 # 7055 (D) MODE 1340 # (U) MULTI PREC 961 # 4405 4457 4472 4475 4482 4596 5550 5583 5703 5714 (U) MULTI SHIFT 963 # 2975 2987 3009 3014 4822 4827 4903 4911 (U) PHYSICAL 1130 # 3960 3970 3984 4004 4031 6977 6985 7417 7418 7421 7430 7431 7434 7475 7489 7522 7531 7614 7617 7653 7664 7670 7879 7882 7896 7965 7968 7975 7978 7981 7984 7987 8329 8337 8343 8423 8664 8697 8713 8834 8870 8873 (U) PI.CLR 1189 # 7367 (U) PI.CO1 1178 # (U) PI.CO2 1179 # (U) PI.DIR 1188 # 7373 (U) PI.IP1 1170 # 7550 (U) PI.IP2 1171 # (U) PI.IP3 1172 # (U) PI.IP4 1173 # (U) PI.IP5 1174 # (U) PI.IP6 1175 # (U) PI.IP7 1176 # (U) PI.MBZ 1187 # 7369 (U) PI.ON 1177 # 7378 7380 (U) PI.REQ 1190 # 7375 (U) PI.SC1 1195 # (U) PI.SC2 1196 # (U) PI.SC3 1197 # (U) PI.SC4 1198 # (U) PI.SC5 1199 # (U) PI.SC6 1200 # (U) PI.SC7 1201 # (U) PI.TCF 1192 # 7383 (U) PI.TCN 1191 # 7381 (U) PI.TSF 1193 # 7379 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 300 ; Cross Reference Listing (U) PI.TSN 1194 # 7377 (U) PI.ZER 1169 # (U) PXCT 1134 # BIS-DST-EA 1140 # 6892 6894 6900 6901 6903 BIS-SRC-EA 1138 # CURRENT 1135 # 2230 2231 2233 2234 2253 2293 2299 2407 2432 3022 3328 3340 3455 3456 3459 3460 3527 3528 3552 3554 3576 3591 3596 3711 4223 4698 4707 7387 7658 7699 7894 D1 1137 # 2323 2365 2417 2420 2788 2792 3733 3738 5129 5137 5151 5156 D2 1141 # 3685 3722 3754 4756 4760 5101 5174 6898 6899 E1 1136 # 2332 2337 2343 3572 3658 E2 1139 # 4705 4724 4764 4768 4772 5924 5933 5934 5936 6855 (U) RAMADR 673 # AC# 674 # 2359 2372 2386 2523 2590 2691 2693 2724 2730 2816 2826 2858 2868 2888 2898 2908 2939 2967 2970 2984 2990 3002 3005 3018 3080 3092 3113 3278 3293 3296 3301 3302 3372 3391 3431 3434 3437 3440 3443 3446 3449 3452 3475 3489 3503 3511 3681 3712 3714 3719 3752 3774 3777 3782 3810 3832 3845 4062 4076 4092 4103 4106 4123 4124 4150 4152 4199 4214 4321 4322 4331 4412 4414 4456 4458 4629 4630 4634 4712 4718 4722 4998 5070 5109 5118 5119 5183 5288 5321 5351 5353 5416 5417 5445 5451 5553 5557 5559 5563 5655 5706 5807 5808 5963 6054 6091 6093 6101 6127 6163 6265 6297 6299 6311 6320 6390 6457 6611 6684 6936 6960 7568 7579 7582 7596 7598 7767 7869 8237 AC*# 675 # 2175 2176 2183 2373 2385 2491 2774 2783 3024 3045 3089 3119 4089 4101 4180 4182 4184 4192 4194 4201 4203 4215 4216 4217 4218 4219 4220 4332 4416 4438 4442 4445 4459 4460 4462 4465 4484 4486 4488 4489 4615 4616 4619 4620 4621 4624 4625 4626 4632 4633 5552 5643 5696 5698 5704 5763 5771 5809 5816 5960 5968 5978 5981 6011 6014 6027 6034 6041 6051 6089 6099 6119 6134 6151 6166 6168 6194 6197 6199 6206 6207 6208 6210 6216 6218 6221 6227 6229 6257 6259 6260 6264 6271 6272 6273 6277 6278 6285 6287 6292 6298 6314 6325 6337 6346 6352 6363 6366 6368 6372 6385 6391 6392 6515 6546 6551 6556 6593 6595 6699 6700 6812 6819 6826 6845 6847 6854 6874 6895 6931 6933 6939 6941 6945 6948 6953 RAM 678 # 2185 2187 6428 6433 6438 6440 VMA 677 # 2163 2271 2341 2355 2364 2368 2396 2407 2413 2426 2497 2529 2535 2540 2543 2593 2789 3408 3551 3575 3590 3611 3615 3619 3680 3697 3703 3725 3742 3748 3761 3819 3850 3972 3974 3980 4007 4019 4023 4046 4742 4770 4776 4897 5139 5162 5165 5917 5936 6356 6550 6596 6599 6627 6903 6918 6988 7121 7256 7260 7264 7268 7272 7313 7343 7345 7352 7406 7474 7479 7490 7527 7532 7623 7656 7703 7748 7751 7753 7763 7765 7862 7876 7881 7901 7949 7966 7967 7969 7970 7973 7974 7976 7977 7979 7980 7982 7983 7985 7986 7988 7989 7991 8256 8280 8345 8427 8667 8719 8779 8785 8836 8850 8864 8866 XR# 676 # 2281 2291 2303 2318 2331 2347 3556 3558 3566 4749 4752 4754 4762 5928 5930 5933 6898 6900 6904 7692 7693 7701 # 679 # 2162 2170 2172 2173 2178 2179 3665 4695 4954 4967 4972 4977 4981 4982 4987 4993 5019 5032 5040 5045 5051 5181 5927 5940 5943 5973 5990 5997 6001 6018 6030 6035 6046 6050 6061 6062 6063 6065 6066 6067 6068 6078 6085 6109 6125 6132 6137 6138 6145 6148 6161 6179 6183 6186 6190 6300 6302 6343 6353 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 301 ; Cross Reference Listing 6358 6359 6361 6364 6377 6379 6383 6386 6387 6408 6558 6559 6582 6584 6620 6625 6635 6697 6703 6730 6734 6737 6742 6743 6750 6817 6824 6828 6830 6919 6935 6944 6950 6958 6959 6962 6970 7060 7082 7094 7186 7191 7243 7245 7247 7249 7251 7257 7261 7265 7269 7273 7281 7288 7290 7295 7299 7301 7320 7323 7333 7334 7337 7353 7354 7358 7438 7439 7687 7690 7695 7707 7709 7721 7727 7729 7874 7946 7948 7953 7957 7961 7971 7972 7990 7992 7993 7995 8233 8234 8243 8244 8246 8247 8254 8264 8266 8268 8270 8274 8275 8323 8326 8353 8355 8386 8410 8413 8416 8418 8432 8439 8481 8491 8493 8538 8578 8579 8580 8586 8597 8601 8764 8775 8781 8790 8794 8806 (D) READ 1351 # 2549 2550 2552 2554 2555 2557 2559 2560 2562 2564 2565 2567 2586 2602 2603 2604 2605 2607 2608 2609 2610 2612 2613 2615 2617 2618 2620 2622 2623 2625 2627 2628 2630 2632 2633 2635 2637 2638 2640 2644 2645 2646 2647 2649 2650 2651 2652 2654 2655 2657 2659 2660 2662 2664 2665 2667 2669 2670 2672 2674 2675 2677 2679 2680 2682 2768 2769 2799 2800 2809 2810 2811 2812 2819 2820 2821 2822 2829 2830 2831 2832 2834 2835 2836 2837 2844 2851 2852 2853 2854 2861 2862 2863 2864 2871 2872 2873 2874 2881 2882 2883 2884 2891 2892 2901 2902 2903 2904 2912 2913 2914 2915 2922 2923 2924 2925 2932 2933 2934 2935 2942 2943 2954 2955 2956 2958 2959 2960 3188 3189 3190 3191 3192 3193 3204 3205 3206 3207 3208 3209 3210 3211 3222 3223 3224 3225 3226 3227 3228 3229 3239 3240 3241 3242 3243 3244 3245 3246 3361 3362 3363 3364 3365 3366 3367 3368 3378 3379 3380 3381 3382 3383 3384 3385 3395 3396 3397 3398 3399 3400 3401 3402 3411 3412 3413 3414 3415 3416 3417 3418 3478 3492 3649 3672 3768 4055 4056 4057 4058 4069 4070 4071 4072 4084 4085 4117 4118 4119 4120 4142 4143 4144 4145 4168 4309 4310 4311 4312 4314 4315 4316 4317 4386 4687 4688 4689 4690 4691 5265 5266 5267 5268 5269 5270 5271 5273 5274 5275 5276 5277 5278 5279 5310 5311 5312 5314 5315 5316 5317 5339 5340 5341 5343 5344 5345 5346 5389 5424 5425 5539 5540 5628 5689 5913 (U) READ CYCLE 1122 # 2230 2231 2233 2234 2253 2293 2299 2304 2310 2333 2337 2366 2407 2418 2421 2432 3022 3328 3340 3455 3456 3459 3460 3527 3528 3529 3534 3538 3541 3554 3568 3571 3596 3618 3638 3711 3721 3755 3848 4005 4049 4223 4698 4707 4755 4759 4763 4767 5100 5175 5933 5934 5958 6105 6355 6382 6455 6460 6516 6636 6752 6898 6899 6900 6901 6976 6984 7119 7255 7259 7263 7267 7271 7311 7315 7351 7387 7475 7489 7522 7531 7540 7614 7617 7658 7681 7702 7859 7894 7896 8329 8337 8342 8422 8561 8663 8698 8712 8870 (D) ROUND 1339 # 5268 5269 5270 5271 5276 5277 5278 5279 5314 5315 5316 5317 5343 5344 5345 5346 5389 5425 (U) RSRC 607 # AB 609 # 3665 7687 AQ 608 # D0 615 # 2761 6160 6275 7475 7522 7614 7617 7653 7664 7670 7743 7896 8260 8262 8276 DA 613 # 2157 2160 2193 2204 2240 2244 2247 2250 2259 2262 2265 2268 2519 3044 3582 3948 3988 4036 4400 4411 4805 5885 5887 5889 5891 5893 5895 5897 5899 5901 6585 6597 6623 6663 6808 7033 7036 7104 7284 7327 7328 7329 7463 7464 7465 7466 7467 7468 7469 7471 7504 7536 8302 8381 8441 8459 8567 8789 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 302 ; Cross Reference Listing DQ 614 # 0A 612 # 2322 2763 3691 3808 3814 4020 4221 5556 5558 5658 5659 5709 5711 5931 6969 7506 8848 0B 611 # 2740 2742 0Q 610 # 3630 3644 3965 3991 5920 5964 6164 7494 8844 (U) S# 997 # 2177 2380 2399 2399 2414 2414 2430 2968 2971 2975 2985 2987 3003 3006 3009 3014 3026 3041 3043 3070 3087 3096 3099 3142 4124 4152 4189 4209 4229 4342 4439 4447 4709 4791 4814 4819 4821 4823 4826 4889 4890 4891 4892 4893 4894 4902 4906 4908 4910 4943 4959 4970 4983 4999 5044 5059 5292 5294 5326 5331 5333 5359 5360 5373 5374 5396 5400 5402 5403 5407 5415 5430 5433 5435 5486 5490 5492 5495 5498 5506 5508 5509 5510 5511 5529 5534 5564 5575 5590 5592 5633 5644 5648 5651 5661 5667 5673 5684 5722 5723 5733 5747 5754 5757 5769 5786 5791 5793 5814 5839 5841 5847 5985 5986 5988 6154 6299 6467 6469 6476 6525 6530 6532 6655 6657 6659 6660 6666 6676 6859 7160 7181 7212 7222 7228 7442 7630 7662 7716 7732 8297 8348 8396 8536 (U) SCAD 974 # A 982 # 2177 3026 4124 4152 4189 4209 4229 4342 4439 4447 4705 4719 4796 4797 4798 4799 4800 4905 4943 4959 4970 4983 4999 5044 5059 5326 5373 5396 5400 5402 5403 5407 5633 5644 5648 5661 5667 5722 5723 6299 6467 6469 6476 6525 6655 6656 6666 6856 6877 6896 7160 7181 7212 7222 7228 7442 7630 7662 7716 7732 8297 8348 8396 8536 A*2 975 # 6648 A+B 979 # 2380 2399 2399 2414 2414 2971 2975 2985 2987 3006 3009 3014 3041 3043 3087 3096 4821 4826 4890 4891 4892 4893 4894 4902 4910 5292 5294 5322 5331 5333 5374 5415 5417 5429 5433 5486 5490 5492 5495 5498 5506 5508 5509 5510 5511 5529 5534 5564 5575 5590 5592 5656 5673 5684 5747 5754 5757 5769 5786 5791 5793 5814 5839 5841 5847 5985 5986 5988 6526 6530 6658 6659 6660 6676 6964 A-1 981 # 2187 2991 2993 3069 3071 3073 3077 3103 3110 3141 3143 3145 3149 4255 4267 4273 4281 4291 4299 4554 4557 4597 4946 4965 5065 5302 5304 5410 5434 5437 5440 5444 5608 5611 5618 5636 6328 6472 6478 6673 7163 7183 7214 7231 7422 7435 7637 7668 7723 7736 8300 8362 8365 8399 8542 A-B 978 # 2968 3003 3070 3099 3142 4697 4702 4716 4737 4791 4814 4819 4823 4889 4908 5353 5359 5360 5435 5707 5733 6038 6048 6848 6851 6891 6893 A-B-1 977 # 5288 5293 5554 5574 A.AND.B 980 # 4709 4906 6154 6532 6657 6859 A.OR.B 976 # 2430 5651 (U) SCADA 983 # BYTE1 987 # 4697 4702 4705 4716 4796 4905 6038 6526 6656 6848 6856 6891 6896 6964 BYTE2 988 # 4797 BYTE3 989 # 4798 BYTE4 990 # 4799 BYTE5 991 # 4720 4800 6649 6878 PTR44 986 # 4737 6048 6851 6893 S# 985 # 2177 2380 2399 2399 2414 2414 2430 2968 2971 2975 2985 2987 3003 3006 3009 3014 3026 3041 3043 3070 3087 3096 3099 3142 4124 4152 4189 4209 4229 4342 4439 4447 4709 4791 4814 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 303 ; Cross Reference Listing 4819 4821 4823 4826 4889 4890 4891 4892 4893 4894 4902 4906 4908 4910 4943 4959 4970 4983 4999 5044 5059 5292 5294 5326 5331 5333 5359 5360 5373 5374 5396 5400 5402 5403 5407 5415 5429 5433 5435 5486 5490 5492 5495 5498 5506 5508 5509 5510 5511 5529 5534 5564 5575 5590 5592 5633 5644 5648 5651 5661 5667 5673 5684 5722 5723 5733 5747 5754 5757 5769 5786 5791 5793 5814 5839 5841 5847 5985 5986 5988 6154 6299 6467 6469 6476 6525 6530 6532 6655 6657 6659 6660 6666 6676 6859 7160 7181 7212 7222 7228 7442 7630 7662 7716 7732 8297 8348 8396 8536 SC 984 # 2187 2991 2993 3069 3071 3073 3077 3103 3110 3141 3143 3145 3149 4255 4267 4273 4281 4291 4299 4554 4557 4597 4946 4965 5065 5288 5293 5302 5304 5322 5353 5410 5417 5434 5437 5440 5444 5554 5574 5608 5611 5618 5636 5656 5707 6328 6472 6478 6658 6673 7163 7183 7214 7231 7422 7435 7637 7668 7723 7736 8300 8362 8365 8399 8542 (U) SCADB 992 # EXP 994 # 2399 2399 2414 2414 5288 5292 5294 5322 5353 5417 5554 5564 5575 5656 5707 FE 993 # 2430 2968 2971 2975 2985 2987 3003 3006 3009 3014 3041 3043 3096 3099 4709 4791 4814 4819 4821 4826 4890 4891 4892 4893 4894 4902 4906 4908 4910 5293 5331 5333 5359 5360 5374 5430 5433 5435 5486 5490 5492 5495 5498 5506 5508 5509 5510 5511 5529 5534 5574 5590 5592 5651 5673 5684 5733 5747 5754 5757 5769 5786 5791 5793 5814 5839 5841 5847 5986 5988 6154 6526 6530 6532 6657 6658 6659 6660 6676 6859 SHIFT 995 # 2380 3070 3087 3142 5415 SIZE 996 # 4697 4702 4716 4737 4823 4889 5985 6038 6048 6848 6851 6891 6893 6964 (U) SETFOV 1078 # 5355 5367 5720 (U) SETFPD 1084 # 4237 4751 6394 (U) SETNDV 1079 # 4344 4379 4410 4496 5003 5355 5367 5720 (U) SETOV 1076 # 4137 4138 4162 4224 4344 4379 4410 4496 5003 5355 5367 5432 5720 (U) SHSTYLE 821 # ASHC 826 # 2993 3102 3105 3109 3112 4273 4281 4291 4299 4405 4409 4478 4482 4498 5304 5407 5409 5439 5583 5585 5589 5591 5607 5611 5618 5621 5623 5635 5676 5680 5715 5729 5747 5753 5756 5769 5786 5790 5792 5814 5839 DIV 828 # 4554 4557 4558 4601 4605 5486 5498 5506 5510 5603 5605 5606 LSHC 827 # 3073 3077 4586 4589 NORM 822 # 2427 2987 4232 4266 4439 4595 5637 5727 ONES 824 # 4825 4828 4901 4904 5988 ROT 825 # 3009 3014 ROTC 829 # 3145 3149 ZERO 823 # (U) SKIP 899 # AC0 907 # 2486 3390 4694 ADEQ0 919 # 3019 3334 3346 3437 3449 4127 4132 4334 4336 4340 4354 4399 4428 4458 4539 4617 4622 4627 4643 4650 4968 4997 5351 5377 5379 5452 5494 5518 5674 5725 5767 5812 6142 6195 6271 6274 6563 6600 6621 6744 7331 8324 8327 8411 8414 ADLEQ0 903 # 2190 3992 3997 5394 5399 5513 5678 5681 5749 5752 5755 5758 5818 5918 5961 6100 6102 6184 6204 6388 6404 6458 6493 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 304 ; Cross Reference Listing 6496 6528 6992 7128 7142 7188 7197 7492 7493 7684 7686 7700 8284 8306 8350 8357 8360 8375 8380 8429 8448 8452 8458 8472 8476 8478 8498 8551 8570 8572 8599 8603 8637 8640 8642 8645 8648 8669 8679 8733 8751 8792 8841 ADREQ0 904 # 3088 3594 3609 5125 6329 6402 6757 7034 7040 7067 7069 7072 7074 7076 7367 7369 7373 7375 7377 7379 7381 7383 7480 7533 7553 7625 7652 8235 8503 8531 8720 8737 8740 8745 CRY0 902 # 3687 3730 3759 5363 5487 5489 5491 5493 CRY1 915 # 4090 4102 5803 6219 6225 6238 6429 6440 CRY2 910 # 5776 5836 DP0 911 # 2400 2415 2574 2752 2759 3042 3114 3331 3343 3434 3446 3776 3779 3784 3955 4109 4134 4156 4159 4214 4222 4323 4359 4361 4366 4371 4375 4397 4414 4426 4433 4448 4467 4485 4537 4544 4559 5000 5144 5168 5290 5294 5323 5353 5361 5395 5417 5448 5555 5657 5704 5708 5719 5732 5969 5982 5999 6012 6019 6037 6079 6081 6103 6120 6123 6129 6169 6261 6266 6303 6312 6345 6362 6434 6484 6510 6701 6731 6773 6827 6946 7122 7286 8311 8409 8636 8690 DP18 912 # 2379 2738 2745 5942 6189 6393 6482 6805 6806 7519 8693 8703 8726 EXECUTE 921 # 7888 FPD 906 # 4176 4697 4702 4716 6293 INT 908 # 5148 6039 8248 8443 8665 8773 8804 8855 IOLGL 900 # 2436 3539 3542 IOT 913 # JFCL 914 # 3601 KERNEL 905 # 3532 3536 3537 3544 3653 6971 LE 909 # 3337 3349 3440 3452 4393 5027 5371 5695 6342 7297 7954 LLE 901 # 7693 SC 920 # 2187 2991 2993 3069 3071 3073 3077 3094 3103 3110 3141 3143 3145 3149 4255 4267 4273 4281 4291 4299 4554 4557 4597 4946 4965 5065 5302 5304 5410 5434 5437 5440 5444 5557 5559 5608 5611 5618 5636 6328 6472 6478 6664 6673 7163 7183 7214 7231 7422 7435 7637 7668 7736 8300 8362 8365 8399 8542 TRAP CYCLE 917 # 8791 TXXX 916 # 3287 -1 MS 924 # 5140 6034 7335 8438 -CONTINUE 923 # 7890 -IO BUSY 922 # 7718 7724 7733 7741 (U) SPEC 785 # 2571 2577 2691 2693 2726 2732 2740 2742 2761 2763 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 4129 4135 4158 4160 8557 8857 APR EN 799 # 2168 7081 7190 APR FLAGS 797 # 7086 7090 7305 ASHOV 806 # 2993 3109 3112 CLR IO BUSY 789 # 7611 7649 CLR IO LATCH 788 # 7696 7704 7708 7711 7720 7726 7735 7740 CLRCLK 787 # 7282 7336 8492 8776 CLRCSH 798 # 7417 7418 7421 EXPTST 807 # 5495 5511 5841 FLAGS 808 # 2219 2220 2580 3406 3422 3489 3503 3559 3560 3563 3564 3600 3621 3622 3692 3704 3760 3790 3794 3809 3815 4009 4010 4011 4063 4077 4094 4104 4107 4137 4138 4162 4212 4224 4234 4237 4344 4379 4410 4496 4645 4647 4712 4729 4751 5003 5355 5367 5432 5720 6394 6395 6993 7495 7510 8795 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 305 ; Cross Reference Listing INHCRY18 803 # 3512 3682 3729 3758 3778 3783 5035 5110 LDACBLK 809 # 2165 7154 7177 LDINST 810 # 2272 3657 6989 7902 LDPAGE 790 # 7412 8573 LDPI 805 # 3610 7398 7473 7955 LDPXCT 792 # 3662 LOADIR 804 # 5923 LOADXR 795 # 2343 3552 3576 3591 4705 4724 4772 5924 5936 6855 6892 6894 6903 7699 MEMCLR 800 # 2163 3611 7474 7876 7949 8280 8779 8785 NICOND 791 # 2230 2231 2233 2234 2294 2300 2524 3045 3091 3119 3328 3340 3431 3455 3456 3459 3460 3527 3528 3554 3596 3713 3789 3796 4223 4487 4490 4698 5445 5451 5810 7387 7658 8237 PREV 794 # 7860 7868 PXCT OFF 802 # 2242 2245 2248 2260 2263 2266 2280 SWEEP 801 # 7430 7431 7434 WAIT 793 # 2412 # 786 # 7884 7887 7950 (U) STATE 1000 # BLT 1002 # 5111 COMP-DST 1009 # 6128 CVTDB 1008 # 6175 DST 1005 # 6090 DSTF 1007 # 6028 EDIT-DST 1011 # 6147 6357 6384 6603 6629 8812 8816 EDIT-S+D 1012 # 6569 EDIT-SRC 1010 # 6121 6508 6565 8810 8818 8820 8824 MAP 1003 # 8236 SIMPLE 1001 # SRC 1004 # 5977 6006 6076 8814 SRC+DST 1006 # 6003 6082 (U) SWITCH% FULL 394 1297 1299 2174 2194 2199 2203 4171 4239 4242 4389 4499 4502 4570 4635 4921 5072 5076 7184 7192 INHCST 397 1237 1239 1241 8039 8041 8388 8391 8392 8395 8517 8520 8521 8524 8595 8604 8605 8621 KIPAGE 406 416 418 1261 1263 1265 3952 3962 4014 4025 7194 7201 7207 7209 8305 8309 8314 8317 8685 8731 8840 8843 8847 8852 KLPAGE 409 413 415 1267 1269 1271 3953 3957 3963 3977 7195 7200 7203 7205 8304 8313 8319 8526 8589 8683 8839 8845 8862 8867 NOCST 400 421 423 1243 1245 1247 8383 8456 8463 8466 8480 8483 8484 8488 8514 8533 8590 8622 NONSTD 425 1249 1251 1253 SIM 391 2212 2217 2224 UBABLT 403 412 419 1255 1257 1259 5186 5260 7832 7834 7836 (U) T 937 # 2T 940 # 4414 4427 5294 5564 6138 6208 6272 6560 6697 6742 7337 7694 3T 941 # 2190 2415 2425 2580 3113 3287 3372 3406 3422 3512 3602 3686 3721 3729 3754 3758 3775 3780 3785 3822 3838 4063 4077 4180 4182 4201 4235 4372 4376 4426 4432 4433 4434 4451 4455 4476 4484 4565 4630 4647 4705 4720 4791 4809 4905 4949 4956 5036 5052 5056 5122 5124 5143 5167 5288 5322 5363 5394 5395 5398 5430 5433 5487 5489 5491 5493 5552 5553 5556 5558 5657 5658 5659 5703 5707 5709 5711 5719 5802 5808 5968 5986 5988 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 306 ; Cross Reference Listing 6036 6040 6103 6210 6224 6238 6270 6273 6358 6361 6393 6394 6422 6428 6431 6440 6465 6479 6506 6526 6527 6649 6656 6700 6759 6849 6856 6877 6891 6895 6898 6900 6936 6991 7121 7128 7141 7188 7197 7454 7479 7483 7491 7492 7493 7528 7532 7534 7701 8331 8339 8565 8582 8705 8716 8800 8830 4T 942 # 3018 3489 3503 4089 4094 4101 4104 4106 4996 5001 5982 6012 6189 6194 6219 6260 6433 6481 6621 6744 6945 7954 8251 8324 8327 8411 8414 8693 8703 5T 943 # 7255 7259 7263 7267 7271 7723 7740 (D) TEST 1352 # 2551 2551 2552 2552 2556 2556 2557 2557 2561 2561 2562 2562 2566 2566 2567 2567 2586 2604 2604 2605 2605 2609 2609 2610 2610 2614 2614 2615 2615 2619 2619 2620 2620 2624 2624 2625 2625 2629 2629 2630 2630 2634 2634 2635 2635 2639 2639 2640 2640 2646 2646 2647 2647 2651 2651 2652 2652 2656 2656 2657 2657 2661 2661 2662 2662 2666 2666 2667 2667 2671 2671 2672 2672 2676 2676 2677 2677 2681 2681 2682 2682 2778 2801 2801 2802 2802 2811 2811 2812 2812 2821 2821 2822 2822 2831 2831 2832 2832 2836 2836 2837 2837 2846 2846 2847 2847 2853 2853 2854 2854 2863 2863 2864 2864 2873 2873 2874 2874 2883 2883 2884 2884 2893 2893 2894 2894 2903 2903 2904 2904 2914 2914 2915 2915 2924 2924 2925 2925 2934 2934 2935 2935 2944 2944 2945 2945 3395 3396 3397 3398 3399 3400 3401 3402 3411 3412 3413 3414 3415 3416 3417 3418 4057 4057 4058 4058 4071 4071 4072 4072 4119 4119 4120 4120 4144 4144 4145 4145 4311 4311 4312 4312 4316 4316 4317 4317 4688 4690 5266 5266 5267 5267 5270 5270 5271 5271 5274 5274 5275 5275 5278 5278 5279 5279 5311 5311 5312 5312 5316 5316 5317 5317 5340 5340 5341 5341 5345 5345 5346 5346 7238 (U) TRAP1 1093 # 4137 4138 4162 4224 4344 4379 4410 4496 5003 5355 5367 5432 5720 (U) TRAP2 1092 # 3704 3760 3790 3794 (U) VECTOR CYCLE 1164 # 7523 (D) VMA 1354 # 2550 2555 2560 2565 2603 2608 2613 2618 2623 2628 2633 2638 2645 2650 2655 2660 2665 2670 2675 2680 2799 2800 2810 2820 2830 2835 2852 2862 2872 2882 2891 2892 2902 2913 2923 2933 2942 2943 2954 2955 2956 2958 2959 2960 3478 3492 3518 3768 4056 4070 4118 4143 4310 4315 (U) WAIT 1153 # 2230 2230 2231 2231 2233 2233 2234 2234 2253 2253 2270 2293 2293 2299 2299 2304 2310 2323 2333 2337 2341 2354 2363 2366 2367 2395 2406 2407 2407 2418 2421 2425 2432 2432 2496 2528 2534 2539 2542 2591 2591 2592 2787 2787 2789 2793 2793 3022 3022 3328 3328 3340 3340 3407 3407 3408 3455 3455 3456 3456 3459 3459 3460 3460 3527 3527 3528 3528 3529 3534 3538 3541 3550 3554 3554 3568 3571 3574 3589 3596 3596 3615 3618 3619 3632 3632 3635 3635 3638 3643 3643 3679 3684 3684 3696 3702 3711 3711 3721 3724 3734 3734 3739 3739 3741 3747 3755 3761 3817 3817 3818 3830 3830 3848 3849 3960 3970 3971 3973 3979 3984 3984 4005 4006 4018 4022 4031 4031 4041 4041 4045 4049 4223 4223 4698 4698 4707 4707 4735 4735 4741 4741 4742 4755 4759 4763 4767 4769 4775 4896 4896 4897 5100 5128 5128 5136 5136 5138 5152 5152 5157 5157 5161 5164 5175 5917 5933 5934 5936 5958 6105 6355 6356 6382 6455 6460 6516 6548 6548 6550 6594 6594 6596 6599 6627 6636 6752 6898 6899 6900 6901 6903 6917 6973 6976 6981 6984 6988 7119 7120 7223 7223 7255 7255 7256 7259 7259 7260 7263 7263 7264 7267 7267 7268 7271 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 307 ; Cross Reference Listing 7271 7272 7311 7312 7315 7340 7340 7343 7344 7344 7345 7351 7352 7387 7387 7405 7405 7406 7478 7489 7490 7505 7505 7526 7531 7532 7540 7620 7622 7655 7656 7658 7658 7681 7702 7703 7748 7751 7753 7761 7763 7765 7859 7861 7867 7867 7879 7881 7882 7882 7894 7894 7900 7965 7966 7967 7968 7968 7969 7970 7973 7974 7975 7975 7976 7977 7978 7978 7979 7980 7981 7981 7982 7983 7984 7984 7985 7986 7987 7987 7988 7989 7991 8329 8337 8342 8344 8389 8422 8426 8518 8583 8663 8666 8698 8712 8718 8834 8835 8849 8864 8866 8870 8873 8873 (U) WORK 1016 # AC0 1057 # AC1 1058 # AC2 1059 # AC3 1060 # ADJBPW 1035 # 5019 5040 ADJP 1030 # 4954 4981 ADJPTR 1032 # 4695 4972 5034 ADJQ1 1033 # 4977 4995 ADJR2 1034 # 4987 5054 ADJS 1031 # 4967 4982 5045 APR 1037 # 2170 7060 7082 7094 7186 7191 8234 BADW0 1017 # 8274 BADW1 1018 # 8275 BDH 1047 # 6302 6377 6386 6408 BDL 1048 # 6300 6343 6383 6387 CBR 1027 # 7245 7261 8597 CMS 1044 # 6125 6137 6138 6148 CSTM 1028 # 7249 7269 8601 DDIV SGN 1061 # DECHI 1066 # 2179 2181 6431 DECLO 1065 # 2178 2180 6422 DIV 1020 # DVSOR H 1062 # DVSOR L 1063 # E0 1039 # 5927 6353 6625 6635 E1 1040 # 5940 5943 6379 6558 6559 6734 6737 6742 6750 FILL 1043 # 6109 6132 6145 6620 6697 6703 6817 6919 FSIG 1045 # 6582 6584 HSBADR 1036 # 2162 7251 7273 7948 7953 MSK 1042 # 5990 6161 6743 MUL 1019 # PERIOD 1053 # 7301 7353 7358 PTA.E 1069 # 7439 8323 8410 8416 PTA.U 1070 # 7438 8326 8413 8418 PUR 1029 # 7247 7265 8386 8481 SBR 1026 # 7243 7257 8353 8355 8432 SLEN 1041 # 5973 5997 6001 6018 6030 6046 6050 6078 6085 6179 6183 6186 6190 6358 6359 6361 6364 6730 6824 6828 6830 6944 6958 6962 SV.ARX 1023 # 6062 6067 7874 7946 7957 7972 7995 8247 8578 8806 SV.AR 1022 # 6035 6065 7971 7992 8243 8586 SV.AR1 1072 # 8439 8493 SV.BRX 1025 # 5181 6063 6068 6935 6950 6959 8244 8580 SV.BR 1024 # 6061 6066 8254 8264 8266 8268 8270 8579 8764 SV.VMA 1021 # 7721 7727 7729 7961 7990 7993 8233 8246 8538 8781 8790 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 308 ; Cross Reference Listing TIME0 1051 # 2172 7290 7323 7333 TIME1 1052 # 2173 7281 7288 7320 7334 7337 8491 8775 TRAPPC 1071 # 6970 8794 TTG 1054 # 7295 7299 7354 YSAVE 1068 # 3665 7687 7690 7695 7707 7709 (D) WRITE 1355 # (U) WRITE CYCLE 1124 # 2571 2577 2591 2691 2693 2726 2732 2740 2742 2761 2763 2787 2793 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 3407 3632 3635 3643 3684 3734 3739 3817 3830 3960 3970 3984 4031 4041 4063 4077 4129 4135 4158 4160 4735 4741 4896 5128 5136 5152 5157 5449 5453 5499 5521 6548 6594 7223 7340 7344 7405 7505 7653 7664 7670 7867 7879 7882 7965 7968 7975 7978 7981 7984 7987 8389 8477 8498 8518 8557 8562 8752 8834 8857 8873 (U) WRITE TEST 1123 # 2571 2577 2591 2691 2693 2726 2732 2740 2742 2761 2763 2787 2793 2806 2816 2826 2858 2868 2888 2898 2909 2919 2949 3407 3632 3635 3643 3684 3734 3739 3817 3830 3960 3970 3984 4031 4041 4063 4077 4129 4135 4158 4160 4735 4741 4896 5128 5136 5152 5157 5449 5453 5499 5521 6548 6594 7223 7255 7259 7263 7267 7271 7340 7344 7405 7475 7489 7505 7522 7531 7614 7617 7653 7664 7670 7867 7879 7882 7896 7965 7968 7975 7978 7981 7984 7987 8284 8329 8337 8477 8557 8563 8834 8857 8870 8873 (U) WRU CYCLE 1160 # 7476 (U) # 971 # 2151 2153 2155 2157 2160 2190 2204 2240 2244 2247 2259 2262 2265 2422 2424 2437 2459 2460 2747 2749 2754 2756 2773 3044 3115 3117 3531 3540 3543 3545 3546 3547 3580 3585 3588 3594 3608 3609 3629 3642 3728 3757 3820 3837 3924 3926 3928 3930 3932 3934 3936 3938 3945 3948 3988 3993 3995 3998 4000 4028 4036 4043 4110 4111 4363 4400 4401 4411 4419 4464 4517 4543 4550 4641 4806 4950 4952 4957 4975 4979 4985 4989 5018 5023 5057 5061 5068 5121 5295 5296 5299 5300 5324 5325 5329 5357 5358 5394 5398 5418 5419 5556 5558 5638 5658 5659 5678 5681 5709 5711 5885 5887 5889 5891 5893 5895 5897 5899 5901 5918 5921 5945 5961 5965 6100 6102 6160 6165 6172 6177 6184 6188 6204 6246 6262 6263 6269 6275 6295 6308 6310 6317 6322 6329 6332 6388 6402 6404 6411 6436 6442 6458 6470 6473 6481 6493 6496 6513 6528 6586 6597 6606 6608 6624 6643 6664 6669 6678 6681 6757 6779 6783 6787 6791 6795 6799 6809 6815 6913 6924 6991 6996 7005 7006 7007 7011 7012 7013 7014 7019 7020 7021 7024 7025 7026 7027 7028 7029 7030 7031 7033 7036 7047 7062 7063 7066 7067 7069 7072 7074 7076 7088 7098 7101 7105 7126 7133 7137 7141 7148 7167 7187 7188 7189 7197 7198 7199 7215 7221 7227 7232 7252 7275 7284 7303 7318 7370 7371 7414 7416 7427 7429 7456 7457 7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468 7469 7472 7483 7492 7493 7508 7528 7535 7625 7633 7639 7652 7684 7686 7700 7743 7829 7833 7838 7840 7842 7844 7846 7848 7884 7887 7898 7950 8228 8232 8235 8260 8262 8276 8286 8289 8295 8303 8307 8332 8340 8351 8358 8375 8382 8430 8442 8445 8453 8460 8471 8474 8500 8504 8507 8532 8545 8549 8553 8555 8568 8569 8571 8576 8600 8632 8638 8643 8649 8692 8702 8706 8716 8721 8737 8740 8743 8746 8755 8760 8768 8830 8841 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 309 ; Location / Line Number Index ; Dcode Loc'n 0 1 2 3 4 5 6 7 D 0000 3910 5854 5855 5856 5857 5858 5859 5860 D 0010 5862 5863 5864 5865 5867 5868 5869 5870 D 0020 5872 5873 5874 5875 5876 5877 5878 5879 D 0030 3857 3858 3859 3860 3861 3862 3863 3864 D 0040 3868 3869 3870 3871 3872 3873 3874 3875 D 0050 3876 3877 3878 3879 3880 3881 3882 3883 D 0060 3884 3885 3886 3887 3888 3889 3890 3891 D 0070 3892 3893 3894 3895 3896 3897 3898 3899 D 0100 3903 3904 3905 3906 3911 3768 3912 3913 D 0110 5539 5540 5628 5689 4084 4085 4168 4386 D 0120 2768 2769 5424 5913 2777 2778 5425 5389 D 0130 3914 3915 5390 4687 4688 4689 4690 4691 D 0140 5265 3916 5266 5267 5268 5269 5270 5271 D 0150 5273 3917 5274 5275 5276 5277 5278 5279 D 0160 5310 3918 5311 5312 5314 5315 5316 5317 D 0170 5339 3919 5340 5341 5343 5344 5345 5346 D 0200 2549 2550 2551 2552 2554 2555 2556 2557 D 0210 2559 2560 2561 2562 2564 2565 2566 2567 D 0220 4117 4118 4119 4120 4142 4143 4144 4145 D 0230 4309 4310 4311 4312 4314 4315 4316 4317 D 0240 2954 2955 2956 2957 2958 2959 2960 3920 D 0250 2586 5114 3506 3507 3518 3520 3649 8223 D 0260 3671 3672 3673 3674 3801 3802 3803 3804 D 0270 4055 4056 4057 4058 4069 4070 4071 4072 D 0300 3352 3353 3354 3355 3356 3357 3358 3359 D 0310 3361 3362 3363 3364 3365 3366 3367 3368 D 0320 3464 3465 3466 3467 3468 3469 3470 3471 D 0330 3378 3379 3380 3381 3382 3383 3384 3385 D 0340 3478 3479 3480 3481 3482 3483 3484 3485 D 0350 3395 3396 3397 3398 3399 3400 3401 3402 D 0360 3492 3493 3494 3495 3496 3497 3498 3499 D 0370 3411 3412 3413 3414 3415 3416 3417 3418 D 0400 2799 2800 2801 2802 2809 2810 2811 2812 D 0410 2819 2820 2821 2822 2829 2830 2831 2832 D 0420 2834 2835 2836 2837 2844 2845 2846 2847 D 0430 2851 2852 2853 2854 2861 2862 2863 2864 D 0440 2871 2872 2873 2874 2881 2882 2883 2884 D 0450 2891 2892 2893 2894 2901 2902 2903 2904 D 0460 2912 2913 2914 2915 2922 2923 2924 2925 D 0470 2932 2933 2934 2935 2942 2943 2944 2945 D 0500 2602 2603 2604 2605 2607 2608 2609 2610 D 0510 2612 2613 2614 2615 2617 2618 2619 2620 D 0520 2622 2623 2624 2625 2627 2628 2629 2630 D 0530 2632 2633 2634 2635 2637 2638 2639 2640 D 0540 2644 2645 2646 2647 2649 2650 2651 2652 D 0550 2654 2655 2656 2657 2659 2660 2661 2662 D 0560 2664 2665 2666 2667 2669 2670 2671 2672 D 0570 2674 2675 2676 2677 2679 2680 2681 2682 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 310 ; Location / Line Number Index ; Dcode Loc'n 0 1 2 3 4 5 6 7 D 0600 3177 3178 3179 3180 3181 3182 3183 3184 D 0610 3186 3187 3188 3189 3190 3191 3192 3193 D 0620 3195 3196 3197 3198 3199 3200 3201 3202 D 0630 3204 3205 3206 3207 3208 3209 3210 3211 D 0640 3213 3214 3215 3216 3217 3218 3219 3220 D 0650 3222 3223 3224 3225 3226 3227 3228 3229 D 0660 3230 3231 3232 3233 3234 3235 3236 3237 D 0670 3239 3240 3241 3242 3243 3244 3245 3246 D 0700 7001 7002 7238 7772 7853 7854 7773 7774 D 0710 7560 7561 7571 7572 7585 7586 7776 7777 D 0720 7562 7563 7573 7574 7587 7588 7779 7780 D 0730 7782 7783 7784 7785 7786 7787 7788 7789 D 0740 7791 7792 7793 7794 7795 7796 7797 7798 D 0750 7800 7801 7802 7803 7804 7805 7806 7807 D 0760 7809 7810 7811 7812 7813 7814 7815 7816 D 0770 7818 7819 7820 7821 7822 7823 7824 7825 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 311 ; Location / Line Number Index ; Ucode Loc'n 0 1 2 3 4 5 6 7 U 0000 2151: 7947: 2152 2160: 7888: 7890: 6539= 6540= U 0010 2184= 7948: 2185= 2153 3287= 3290= 3293= 3296= U 0020 3976= 4126= 3982= 3985= 7949= 4127= 7950= 3988= U 0030 3561= 4154= 3565= 4495= 3569= 4155= 3573= 4496= U 0040 2356: 2360: 2364: 2372: 2382: 2385: 2392: 2396: U 0050 2409: 2415: 2436: 2154 4417= 4419= 4453= 4454= U 0060 3633= 2155 5047= 5448= 3636= 3638= 5054= 7616= U 0070 4757= 2158 4761= 5449= 4765= 4421= 4768= 7617= U 0100 2162 2243= 2246= 2249= 7875= 2250= 2163 2254= U 0110 2165 2261= 2264= 2267= 7877= 2268= 7879= 2273= U 0120 4181= 4183= 4274= 4278= 4184= 2168 4282= 4286= U 0130 3833= 2170 5694= 5696= 3836= 3840= 7042: 7057: U 0140 2193= 2196= 4292= 4296= 5373= 5374= 4300= 4304= U 0150 3553= 2204= 3554= 5604= 5376= 5378= 5380= 5381= U 0160 4337= 4340= 2172 5328= 4343= 4344= 4346= 5330= U 0170 5930= 4190= 5932= 5605= 5933= 4191= 5934= 5382= U 0200 5787= 2294= 5789= 2300= 5791= 2306= 5793= 2311= U 0210 5795= 2319= 2173 2323= 2175 2333= 5796= 2337= U 0220 3711= 3713= 3715= 2176 2189= 2190= 2177 7652= U 0230 6898= 6850= 6899= 6851= 6900= 2178 6901= 7653= U 0240 4696= 4697= 2179 5675= 2180 4698= 6583= 6584= U 0250 3328= 3331= 3334= 3337= 3340= 3343= 3346= 3349= U 0260 2233= 2234= 5528= 5676= 4725= 4728= 5529= 4729= U 0270 3431= 3434= 3437= 3440= 3443= 3446= 3449= 3452= U 0300 3588= 3592= 5533= 3594= 7384= 7385= 5534= 3595= U 0310 4019= 2181 4021= 4024= 3972= 7387= 3974= 3596= U 0320 3608= 3609= 5837= 2182 2186 3610= 5839= 5513= U 0330 4362= 4364= 6698= 4367= 2187 3612= 6699= 5515= U 0340 4793= 4796= 4797= 2220 4798= 4799= 2222 4800= U 0350 4735= 4736= 4737= 4738= 4439= 4479= 4440= 4480= U 0360 4889= 4890= 4891= 2281 4892= 4893= 2343 4894= U 0370 4519= 2348 2401= 2403= 4520= 4521= 4522= 4523= U 0400 4041: 2366 2418= 2421= 2437= 2438= 2369 5531= U 0410 4200= 4202= 2459= 2460= 4203= 2374 2386 5532= U 0420 5486= 5487= 5488= 5489= 5490= 5491= 5492= 5493= U 0430 5494= 2388 2423 5587= 2541= 2544= 5495= 5588= U 0440 5506= 6326= 5507= 6328= 5508= 2424 5509= 6329= U 0450 5510= 2427 2428 5621= 2993= 2997= 5511= 5622= U 0460 6183= 6185= 5841= 5845= 6187= 6189= 5848= 2430 U 0470 7507= 2433 5611= 5613= 7509= 7511= 5614= 5615= U 0500 5998= 6000= 3023= 3024= 6002= 6004= 2594 6006= U 0510 6384= 2724 2730 5734= 3042= 3043= 6385= 5735= U 0520 5748= 5749= 5751= 5752= 5754= 5755= 5757= 5758= U 0530 5760= 2789 2794 6823= 3073= 3074= 5761= 6825= U 0540 6079= 6081= 6083= 4210= 3077= 3078= 6086= 4212= U 0550 4815= 4449= 4816= 4450= 3090= 3091= 5941= 5942= U 0560 6217= 6220= 6376= 4233= 2909 6221= 6377= 4235= U 0570 5018= 5020= 2975 5024= 5977= 5978= 5980= 5983= ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 312 ; Location / Line Number Index ; Ucode Loc'n 0 1 2 3 4 5 6 7 U 0600 6223= 6226= 8366= 8367= 4711= 6227= 4713= 8368= U 0610 5799= 2988 5801= 5803= 3097= 3099= 6175= 6178= U 0620 6234= 6235= 6239= 5644= 3103= 3105= 6240= 5648= U 0630 6027= 6029= 2991 6031= 3110= 3112= 6382= 6383= U 0640 6363= 6365= 3116= 3118= 3145= 3146= 3007 6366= U 0650 6045= 6047= 6049= 6050= 6467= 6468= 6469= 6470= U 0660 4976= 6482= 4977= 6485= 4986= 6487= 4987= 6489= U 0670 5290= 6491= 5291= 6494= 5432= 6497= 5433= 6499= U 0700 6560= 3009 6564= 6566= 6567= 6570= 3010 6572= U 0710 6507= 6509= 6511= 6514= 6515= 6517= 6736= 6737= U 0720 5434= 6774= 5435= 6776= 5722= 6780= 5723= 6784= U 0730 5649= 6788= 5661= 6792= 5650= 6796= 5662= 6800= U 0740 6605= 6607= 3149= 3151= 3391= 3392= 6609= 3012 U 0750 6089= 6090= 3015 6091= 6813= 6816= 6818= 6820= U 0760 6630= 6631= 3455= 3456= 3459= 3460= 6632= 3026 U 0770 7455= 7456= 7457= 7458= 7459= 7460= 7461= 7462= U 1000 8349= 8352= 8354= 8356= 3580= 3581= 3044 8358= U 1010 3585= 3586= 5668= 7597= 3629= 3630= 5673= 7599= U 1020 6122= 6124= 6125= 3045 3642= 3643= 3071 7625= U 1030 6131= 6133= 6134= 3079 3659= 3663= 3080 7626= U 1040 8412= 8415= 8417= 8419= 3699= 3703= 3094 8423= U 1050 6198= 6200= 6201= 3114 5726= 7694= 5727= 7696= U 1060 8252= 8254= 5919= 8258= 3119 8260= 5921= 8262= U 1070 8264= 8266= 8268= 8270= 6732= 6733= 6734= 3143 U 1100 8805= 8807= 8809= 8811= 8813= 8815= 8817= 8819= U 1110 8821= 8822= 8823= 8825= 7316= 7319= 3301 7321= U 1120 7338= 7340= 7341= 3302 7722= 7725= 7728= 7730= U 1130 8428= 8431= 8433= 8438= 8458= 8461= 3407 8471= U 1140 8777= 8778= 8779= 3408 3735= 3739= 3760= 3763= U 1150 3781= 3786= 3789= 3791= 3795= 3796= 3951= 3955= U 1160 3961= 3964= 3967= 3970= 3996= 3998= 4001= 4005= U 1170 4095= 4096= 4105= 4107= 4110= 4111= 4128= 4129= U 1200 4134= 4135= 4137= 4138= 4158= 4159= 4160= 4162= U 1210 4215= 4216= 4223= 4224= 4325= 4327= 4352= 4355= U 1220 4373= 4377= 4379= 4381= 4395= 4397= 4399= 4400= U 1230 4409= 4410= 4425= 4426= 4428= 4429= 4432= 4433= U 1240 4434= 4435= 4443= 4444= 4459= 4460= 4469= 4470= U 1250 4487= 4488= 4538= 4539= 4540= 4541= 4547= 4548= U 1260 4557= 4558= 4561= 4562= 4586= 4589= 4603= 4607= U 1270 4619= 4620= 4624= 4625= 4629= 4630= 4645= 4647= U 1300 4651= 4652= 4947= 4950= 4966= 4968= 4971= 4972= U 1310 5002= 5003= 5037= 5039= 5066= 5069= 5102= 5104= U 1320 5130= 5137= 5141= 5144= 5146= 5148= 5153= 5158= U 1330 5170= 5171= 5295= 5296= 5299= 5300= 5304= 5305= U 1340 5324= 5325= 5354= 5355= 5357= 5358= 5363= 5364= U 1350 5366= 5367= 5370= 5371= 5395= 5396= 5399= 5400= U 1360 5402= 5403= 5410= 5411= 5418= 5419= 5440= 5441= U 1370 5444= 5445= 5451= 5452= 5453= 5455= 5498= 5499= ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 313 ; Location / Line Number Index ; Ucode Loc'n 0 1 2 3 4 5 6 7 U 1400 2230: 2231: 2571: 2574: 2577: 2581: 2591: 2691: U 1410 2693: 2718: 2720: 2723: 2726: 2729: 2732: 2738: U 1420 2740: 2742: 2745: 2752: 2747: 2749: 2754: 2756: U 1430 2759: 3406: 2761: 2763: 2773: 8737 2774: 3422: U 1440 3475: 2806: 2816: 2826: 2841: 2858: 2868: 2878: U 1450 2888: 2898: 2908: 2919: 2929: 2939: 2949: 4090: U 1460 7578: 7582: 3019: 7579: 3069: 3070: 3088: 5917: U 1470 3141: 3142: 3271: 3273: 3276: 3279: 3372: 3390: U 1500 8761 8764 8771 8773 2487: 2492: 2498: 8782 U 1510 8785 8795 8834 8851 2519: 2524: 2530: 2536: U 1520 3527: 3528: 3530: 3531: 3532: 3535: 3536: 3537: U 1530 3539: 3540: 3542: 3543: 3544: 3545: 3546: 3547: U 1540 3603: 3653: 3503: 3680: 3693: 3722: 3755: 3513: U 1550 3808: 3773: 3815: 8229: 3830: 3845: 3946: 4036: U 1560 4063: 4077: 8855 8871 8873 2783: 4173: 2788: U 1570 5323: 4150: 5351: 5285: 5288: U 1600 4321: 4330: U 1610 4694: 3489: 2969: 2972: 7567: 4102: 5394: 7568: U 1620 4702: 5415: 2983: 2985: 4706: 4707: 5431: 4391: U 1630 4716: 5633: 3004: 3006: 4718: 5549: 5692: 5552: U 1640 5118: 4123: 5120: 5123: 7593: 7595: U 1650 7829: 7833: 7838: 7840: 7842: 7844: 7846: 7848: U 1660 3936: 3924: 3926: 3928: 3930: 3938: 3932: 3934: U 1670 U 1700 7047: 7005: 7006: 7007: 7060: 7094: 7008: 7009: U 1710 7011: 7012: 7013: 7014: 7367: 7364: 7015: 7016: U 1720 7019: 7221: 7412: 7119: 7181: 7212: 7020: 7021: U 1730 7024: 7025: 7026: 7027: 7028: 7029: 7030: 7031: U 1740 5885: 5887: 5889: 5891: 5893: 5895: 5897: U 1750 5899: 5901: 7860: 7868: U 1760 7243: 7245: 7247: 7249: 7327: 7359: 7251: 7252: U 1770 7255: 7259: 7263: 7267: 7311: 7351: 7271: 7275: U 2000 5502= 5504= 5517= 5518= 5519= 5520= 5557= 5559= U 2010 5562= 5564= 5568= 5569= 5576= 5577= 5618= 5619= U 2020 5636= 5637= 5658= 5659= 5679= 5680= 5682= 5684= U 2030 5699= 5700= 5709= 5710= 5718= 5719= 5720= 5721= U 2040 5737= 5738= 5770= 5771= 5775= 5776= 5780= 5782= U 2050 5807= 5808= 5815= 5816= 5825= 5826= 5944= 5946= U 2060 5962= 6100= 5966= 5969= 5963= 6101= 5971= 5972= U 2070 5988= 6064= 5989= 6065= 6014= 6016= 6020= 6021= U 2100 6035= 6037= 6040= 6042= 6053= 6055= 6104= 6105= U 2110 6102= 6459= 6108= 6110= 6103= 6460= 6118= 6119= U 2120 6145= 6146= 6152= 6155= 6167= 6301= 6168= 6303= U 2130 6170= 6173= 6191= 6195= 6205= 6206= 6209= 6211= U 2140 6245= 6246= 6258= 6259= 6262= 6263= 6266= 6267= U 2150 6272= 6274= 6275= 6277= 6285= 6286= 6296= 6297= U 2160 6306= 6308= 6314= 6315= 6310= 6427= 6312= 6429= U 2170 6320= 6323= 6333= 6334= 6338= 6339= 6344= 6345= ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 314 ; Location / Line Number Index ; Ucode Loc'n 0 1 2 3 4 5 6 7 U 2200 6347= 6351= 6389= 6390= 6394= 6395= 6401= 6402= U 2210 6403= 6404= 6405= 6406= 6423= 6424= 6430= 6431= U 2220 6437= 6438= 6443= 6445= 6464= 6465= 6472= 6473= U 2230 6478= 6479= 6505= 6506= 6530= 6533= 6547= 6548= U 2240 6557= 6880= 6558= 6881= 6577= 6578= 6598= 6600= U 2250 6622= 6624= 6626= 6627= 6644= 6646= 6667= 6671= U 2260 6673= 6675= 6702= 6703= 6756= 6757= 6761= 6763= U 2270 6807= 6809= 6829= 6831= 6846= 6847= 6856= 6860= U 2300 6875= 6878= 6932= 6933= 6892= 7292= 6893= 7294= U 2310 6940= 6941= 6948= 6949= 6951= 6952= 6978= 6986= U 2320 6995= 6996= 7068= 7069= 7070= 7071= 7073= 7074= U 2330 7075= 7076= 7078= 7079= 7129= 7134= 7149= 7155= U 2340 7164= 7168= 7183= 7186= 7189= 7190= 7198= 7199= U 2350 7214= 7215= 7222= 7224= 7231= 7232= 7289= 7290= U 2360 7300= 7301= 7332= 7333= 7368= 7369= 7370= 7371= U 2370 7374= 7375= 7376= 7377= 7378= 7379= 7380= 7381= U 2400 7382= 7383= 7415= 7417= 7423= 7424= 7428= 7430= U 2410 7436= 7438= 7477= 7480= 7481= 7482= 7493= 7494= U 2420 7504= 7505= 7521= 7523= 7525= 7527= 7529= 7531= U 2430 7535= 7536= 7550= 7551= 7554= 7555= 7612= 7613= U 2440 7621= 7624= 7631= 7633= 7637= 7639= 7650= 7651= U 2450 7657= 7658= 7663= 7665= 7669= 7671= 7682= 7683= U 2460 7686= 7688= 7691= 7692= 7701= 7702= 7708= 7709= U 2470 7736= 7737= 7742= 7743= 7883= 7884= 7895= 7896= U 2500 7899= 7903= 7956= 7958= 7966= 7969= 7967= 7970= U 2510 7971= 7973= 7972= 7974= 7976= 7979= 7977= 7980= U 2520 7982= 7985= 7983= 7986= 7988= 7990= 7989= 7991= U 2530 8236= 8237= 8287= 8290= 8301= 8303= 8312= 8316= U 2540 8325= 8327= 8330= 8333= 8338= 8340= 8360= 8362= U 2550 8374= 3556 8380= 8382= 8375= 8385= 3577 8386= U 2560 8390= 8451= 8400= 8409= 8396= 8453= 8440= 8443= U 2570 8447= 8448= 8475= 8477= 8478= 8482= 8502= 8504= U 2600 8492= 3582 8494= 8519= 8509= 8513= 3615 8532= U 2610 8537= 8539= 8543= 8546= 8553= 8555= 8571= 8573= U 2620 8576= 8577= 8598= 3618 8602= 8603= 8600= 3620 U 2630 8639= 8640= 8644= 8645= 8650= 8651= 8654= 8655= U 2640 8668= 8669= 8677= 8678= 8680= 8681= 8694= 8699= U 2650 8704= 8707= 8714= 8717= 8727= 8729= 8733= 8736= U 2660 8739= 8740= 8744= 8746= 8750= 8752= 8756= 8757= U 2670 8766= 8769= 8789= 8791= 8793= 8794= 8797= 8798= U 2700 8800= 3622 8831= 8832= 8837= 8841= 8844= 8848= U 2710 8857= 8858= 8865= 8866= 3624 3644 3666 3688 U 2720 3706 3725 3730 3744 3749 3759 3776 3811 U 2730 3817 3819 3823 3831 3846 3848 3851 3948 U 2740 3990 3991 3993 4007 4012 4029 4032 4044 U 2750 4046 4050 4098 4109 4124 4132 4151 4152 U 2760 4156 4174 4176 4193 4194 4205 4214 4217 U 2770 4218 4219 4220 4222 4228 4229 4230 4237 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 315 ; Location / Line Number Index ; Ucode Loc'n 0 1 2 3 4 5 6 7 U 3000 4253 4256 4268 4323 4331 4332 4334 4357 U 3010 4359 4393 4402 4403 4406 4411 4412 4414 U 3020 4438 4441 4442 4445 4451 4457 4458 4462 U 3030 4464 4465 4467 4472 4473 4475 4476 4482 U 3040 4485 4490 4498 4537 4543 4544 4550 4551 U 3050 4552 4553 4554 4559 4563 4564 4567 4597 U 3060 4615 4617 4622 4627 4632 4633 4634 4641 U 3070 4643 4650 4721 4722 4741 4742 4750 4752 U 3100 4773 4777 4810 4819 4822 4823 4824 4827 U 3110 4828 4829 4896 4897 4900 4903 4904 4905 U 3120 4906 4908 4911 4914 4915 4916 4918 4943 U 3130 4953 4954 4957 4959 4961 4980 4981 4982 U 3140 4983 4989 4997 5027 5041 5044 5045 5057 U 3150 5059 5062 5071 5098 5105 5106 5108 5110 U 3160 5111 5125 5140 5163 5165 5168 5176 5180 U 3170 5182 5184 5292 5293 5294 5302 5326 5331 U 3200 5334 5359 5360 5361 5384 5407 5416 5417 U 3210 5437 5521 5550 5555 5570 5574 5575 5578 U 3220 5583 5585 5590 5592 5593 5606 5608 5623 U 3230 5638 5639 5643 5651 5657 5663 5677 5678 U 3240 5681 5701 5705 5708 5711 5712 5715 5730 U 3250 5764 5767 5777 5805 5810 5812 5818 5923 U 3260 5925 5927 5928 5936 5974 5985 5986 5991 U 3270 6012 6018 6019 6022 6034 6051 6058 6061 U 3300 6062 6063 6066 6067 6069 6075 6076 6093 U 3310 6094 6120 6127 6128 6129 6137 6138 6139 U 3320 6140 6141 6142 6147 6148 6161 6163 6165 U 3330 6179 6204 6207 6230 6248 6251 6253 6261 U 3340 6264 6269 6271 6278 6287 6298 6299 6318 U 3350 6340 6342 6352 6353 6355 6356 6357 6358 U 3360 6359 6362 6368 6373 6380 6386 6387 6388 U 3370 6391 6392 6393 6408 6412 6432 6434 6439 U 3400 6440 6461 6462 6476 6525 6526 6528 6550 U 3410 6551 6587 6593 6594 6595 6596 6614 6635 U 3420 6637 6647 6650 6655 6656 6657 6658 6659 U 3430 6661 6664 6676 6679 6681 6683 6684 6701 U 3440 6742 6745 6750 6752 6827 6849 6852 6854 U 3450 6873 6891 6894 6896 6903 6904 6918 6920 U 3460 6925 6935 6936 6944 6946 6954 6956 6958 U 3470 6959 6960 6962 6965 6969 6971 6989 6992 U 3500 7033 7034 7036 7062 7063 7064 7066 7067 U 3510 7072 7081 7083 7086 7088 7091 7096 7099 U 3520 7102 7103 7105 7107 7122 7138 7142 7160 U 3530 7171 7173 7178 7187 7188 7191 7196 7197 U 3540 7218 7227 7228 7233 7256 7257 7260 7261 U 3550 7264 7265 7268 7269 7272 7273 6913: 6914: U 3560 7282 7284 7285 7286 7295 7297 7302 7303 U 3570 7306 7313 7324 7328 7329 7331 7335 7343 ; KS10.MCR[7,3] 15:03 7-JAN-1986 MICRO 31(254) KS10 MICROCODE V130, 7-JAN-86 Page 316 ; Location / Line Number Index ; Ucode Loc'n 0 1 2 3 4 5 6 7 U 3600 7344 7345 7352 7353 7355 7372 7373 7395 U 3610 7396 7397 7399 7405 7406 7413 7418 7431 U 3620 7440 7443 7463 7464 7465 7466 7467 7468 U 3630 7469 7472 7473 7474 7484 7486 7489 7491 U 3640 7492 7496 7519 7533 7537 7540 7553 7602 U 3650 7655 7684 7699 7700 7704 7711 7718 7733 U 3660 7749 7751 7753 7755 7757 7759 7761 7763 U 3670 7765 7767 7863 7870 7881 7954 7960 7962 U 3700 7965 7968 7975 7978 7981 7984 7987 7992 U 3710 7993 7994 7996 8230 8232 8233 8234 8235 U 3720 8244 8245 8246 8248 8274 8275 8276 8280 U 3730 8283 8284 8295 8297 8307 8343 8345 8472 U 3740 6099: 6456: 6160: 6293: 5959: 8498 8547 8550 U 3750 8551 6457: 8557 8559 5960: 8564 8566 8568 U 3760 8569 8570 8578 8579 8580 8583 8587 8632 U 3770 8634 8636 8665 8679 8690 8719 8721 8243: No errors detected End of microcode assembly 319 pages of listing Used 47.87 seconds, 118 pages of core Symbol table: 31P Text strings: 9P Loc'n assignment: 18P Cross reference: 53P rtl/cpu/useq/skip.v0000700000175100010010000001231712061517362 12751 0ustar RobNone//////////////////////////////////////////////////////////////////// // // KS-10 Processor // // brief // Microcontroller Skip Logic // // details // This section of the microcontroller controls the SKIP // field selection. // // The microcontroller can execute simple branches based // on a selected boolean input value. Because the branch // logic is implemented as an OR gate, the skip logic can // only change the LSB of the control ROM address from a // zero to a one - this means that the 'skip not taken' // must be an even address and that the 'skip taken' // address must be the following odd address. // // The microcode assembler handles all the details regarding // how microcode addresses are selected. // // See the description of the dispatch logic and the // microcontroller for addtional details. // // file // skip.v // // author // Rob Doyle - doyle (at) cox (dot) net // //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// `default_nettype none `include "crom.vh" `include "drom.vh" module SKIP(crom, skip40, skip20, skip10, skipADDR); parameter cromWidth = `CROM_WIDTH; input [0:cromWidth-1] crom; // Control ROM Data input [1:7] skip40; // Skip 40 bits input [1:7] skip20; // Skip 20 bits input [1:7] skip10; // Skip 10 bits output [0:11] skipADDR; // Skip Address // // SKIP 40 // // Details // When this mux is selected, the mux can generate // a skip if the selected input is asserted. // // Trace // DPEA/E45 // reg skip0; always @(crom or skip40) begin if (`cromSKIP_EN_40) case (`cromSKIP_SEL) 3'b001: skip0 = skip40[1]; 3'b010: skip0 = skip40[2]; 3'b011: skip0 = skip40[3]; 3'b100: skip0 = skip40[4]; 3'b101: skip0 = skip40[5]; 3'b110: skip0 = skip40[6]; 3'b111: skip0 = skip40[7]; default: skip0 = 1'b0; endcase else skip0 = 1'b0; end // // SKIP 20 // // Details // When this mux is selected, the mux can generate // a skip if the selected input is asserted. // // Trace // DPEA/E38 // reg skip1; always @(crom or skip20) begin if (`cromSKIP_EN_20) case (`cromSKIP_SEL) 3'b001: skip1 = skip20[1]; 3'b010: skip1 = skip20[2]; 3'b011: skip1 = skip20[3]; 3'b100: skip1 = skip20[4]; 3'b101: skip1 = skip20[5]; 3'b110: skip1 = skip20[6]; 3'b111: skip1 = skip20[7]; default: skip1 = 1'b0; endcase else skip1 = 1'b0; end // // SKIP 40 // // Details // When this mux is selected, the mux can generate // a skip if the selected input is asserted. // // Trace // CRA2/E85 // reg skip2; always @(crom or skip10) begin if (`cromSKIP_EN_10) case (`cromSKIP_SEL) 3'b001: skip2 = skip10[1]; 3'b010: skip2 = skip10[2]; 3'b011: skip2 = skip10[3]; 3'b100: skip2 = skip10[4]; 3'b101: skip2 = skip10[5]; 3'b110: skip2 = skip10[6]; 3'b111: skip2 = skip10[7]; default: skip2 = 1'b0; endcase else skip2 = 1'b0; end // // Skip Address Generation // // Details: // This generates the 12-bit skip address that is "OR"ed into // the microsequencer address. // // Trace // CRA1/E111 // CRA1/E121 // assign skipADDR = (skip0 | skip1 | skip2) ? 12'o0001 : 12'o0000; endmodule rtl/cpu/useq/stack.v0000700000175100010010000001270112061517362 13105 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Microcontroller Call Stack //! //! \details //! //! The call/return operation of the microcontroller is quite //! unique. The 'call' instruction pushes the address of the //! instruction (not the next instruction) on the call-stack. //! //! Doing nothing else would return the execution to the very //! same instruction as the original 'call' instruction. //! //! The return instruction also provides a dispatch offset //! which is combined with the return address from the stack //! to return to the next executable microcode statement. //! //! The 'called' function must know the offset to the next //! instruction. //! //! \file //! stack.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "crom.vh" module STACK(clk, rst, clken, call, ret, addrIN, addrOUT); parameter cromWidth = `CROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input call; // Push addr onto stakc input ret; // Pop addr from stack input [0:11] addrIN; // Calling address for stack output [0:11] addrOUT; // Return address from stack // // Stack Pointer // // Details // The stack pointer is incremented on a 'call' and decremented // on a 'ret' instruction - otherwise the stack pointer does // not change. // // Trace // CRA3/E32 // reg [0:3] sp; always @(posedge clk or posedge rst) begin if (rst) sp <= 15; else if (clken) begin if (call) sp <= sp + 1'b1; else if (ret) sp <= sp - 1'b1; end end // // Current Address // // Details // This delay generates the current microcode address. The // 'addr' register that is supplied to this module always // has the address of the /NEXT/ instruction. // // This is a simple one-clock delay to get the proper address. // // Trace // CRA3/E114 // CRA3/E137 // CRA3/E161 // reg [0:11] currADDR; always @(posedge clk or posedge rst) begin if (rst) currADDR <= 12'b0; else if (clken) currADDR <= addrIN; end // // Write Pointer // // Details: // The write pointer is always offset from the stack pointer // by 1. // // Note: // This is different than the KS10. See below. // // Trace: // CRA3/E16 // CRA3/E17 // wire [0: 3] wp = sp + 1; // // Dual Ported Stack // // Details // The stack is implemented quite a bit differently than the // KS10 just because the FPGA provides Dual Port RAMs. // // The 'read' port of the Dual Port RAM provides the return // address. This port always points to the top-of-stack and // can always be accessed independantly. // // The 'write' port of the Dual Port RAM is used to store // the next 'call' address. This port always points to the // address past the top-of-stack and can always be accessed // independantly. // // Once the 'call' address is stored, the stack pointer is // incremented and the return address automatically becomes // available at the new top-of-stack. // // This implementation saves all ths KS10 logic to dynamically // change RAM address depending if a 'call' or 'return' // instruction is being processed. It also allow the stack // to always update in a single clock cycle. // // Trace // CRA3/E70 // CRA3/E56 // CRA3/149 // CRA3/E79 // CRA3/E55 // CRA3/E160 // integer i; reg [0:11] stack[0:15]; always @(posedge clk or posedge rst) begin if (rst) begin for (i = 0; i < 16; i = i + 1) stack[i] <= 12'b0; end else if (clken & call) stack[wp] <= currADDR; end // // The stack read is asynchronous // assign addrOUT = stack[sp]; endmodule rtl/cpu/useq/useq.v0000700000175100010010000002335012061517362 12757 0ustar RobNone//////////////////////////////////////////////////////////////////// // // KS-10 Processor // // brief // Microsequencer // // details // This file implements the KS10 microsequencer. // // file // useq.v // // author // Rob Doyle - doyle (at) cox (dot) net // //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// `include "crom.vh" `include "drom.vh" module USEQ(clk, rst, clken, pageFAIL, dp, dispDIAG, dispMUL, dispPF, dispNI, dispBYTE, dispEA, dispSCAD, dispNORM, skip40, skip20, skip10, regIR, drom, crom); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input pageFAIL; // Page Fail input [0:35] dp; // Datapath input [0:11] dispDIAG; // Diagnostic Addr input [0: 3] dispMUL; // Multiply Dispatch input [0: 3] dispPF; // Page Fail Dispatch input [0: 3] dispNI; // Next Instruction Dispatch input [0: 3] dispBYTE; // Byte Size/Position Dispatch input [0: 3] dispEA; // Effective Address Mode Dispatch input [0: 3] dispSCAD; // SCAD Dispatch input [0: 3] dispNORM; // Normalize Dispatch input [1: 7] skip40; // Skip 40 input [1: 7] skip20; // Skip 20 input [1: 7] skip10; // Skip 10 input [0:17] regIR; // Instruction Register input [0:dromWidth-1] drom; // Dispatch ROM Data output [0:cromWidth-1] crom; // Control ROM Data // // Instruction Register AC field // wire [ 9:12] regIR_AC = regIR[ 9:12]; // // Control ROM Address // wire [0:11] addr; wire [0:11] dispRET; // // Skip Logic // // Details // The skip logic allows the sequencer to conditionally // jump forward one micro-instruction. // // Note: // Like the dispatch, the skip logic can only set bits. // The skip must take place on an even address. // wire [0:11] skipADDR; SKIP uSKIP (.crom(crom), .skip40(skip40), .skip20(skip20), .skip10(skip10), .skipADDR(skipADDR) ); // // Dispatch Logic // // Details // The dromJ is implemented slightly different than the KS-10. // In the KS10, the DROM J value is constained to be between 1400 // and 1777. This allows the dispatch function to hardwire // the upper 4 data bits instead of storing them in the DROM. // I've hooked all data lines up and will let the optimizer do // it's thing. The optimizer will determine that these lines // never change and replace the DROM columns with hardwired // constants. This design approach makes the design intent // much more obvious. // // Notes // Watch the index numbering on DROM_J! // // AREAD does dispatch to address 40-57 or address 1400-1777 // // Quoting the KS10 Technical Manual: // // dromAEQJ - "This bit causes an immediate dispatch on the J // field when the microword calls for the standard // AREAD dispatch on the A field. This is used for // instructions that require no memory access or // special setup (for example, MOVEI, JFCL)". // // dromACDISP - "This bit causes the AC field of the instruction // word to replace the right four bits of the J // field so that a jump to begin instruction // execution will actually dispatch to one of 16 // locations where the instruction code is expanded // to 13 bits." // // Trace: // DPEA/E111 // DPEA/E153 // CRA2/E158 // wire dromAEQJ = `dromAEQJ; wire dromACDISP = `dromACDISP; wire [0:11] dromJ = `dromJ; wire [0: 3] dromA = `dromA; wire [0: 3] dromB = `dromB; // // Jump Dispatch // // Trace // DPEA/E111 // reg [0:11] dispJ; always @(dromACDISP, regIR_AC, dromJ) begin if (dromACDISP) // Dispatch Address Range: dispJ = {dromJ[0:7], regIR_AC}; // 1400 to 1777 (4 upper address were hardwired) else dispJ = {dromJ[0:7], dromJ[8:11]}; // 1400 to 1777 (4 upper address were hardwired) end // // AREAD Dispatch // // Trace // CRA2/E158 // DPEA/E153 // reg [0:11] dispAREAD; always @(dromAEQJ, dispJ, dromA) begin if (dromAEQJ) // Dispatch Address Range: dispAREAD = dispJ; // 1400 to 1777 (4 upper address were hardwired) else dispAREAD = {8'b00000010, dromA}; // 0040 to 0057 end // // Dispatch MUX // wire [0:11] dispADDR; DISPATCH uDISPATCH (.crom (crom), .dp (dp), .dispDIAG (dispDIAG), .dispRET (dispRET), .dispJ (dispJ), .dispAREAD (dispAREAD), .dispMUL (dispMUL), .dispPF (dispPF), .dispNI (dispNI), .dispBYTE (dispBYTE), .dispEA (dispEA), .dispSCAD (dispSCAD), .dispNORM (dispNORM), .dispDROM_A (dromA), .dispDROM_B (dromB), .dispADDR (dispADDR) ); // // Address 'MUX' // // Details // The CROM registers have been absorbed by the synchronous FPGA ROM. // Therefore the initial state of the microcode (address zero) must // be handled explicitly. // // The Microcode should begin execution at address o0000. // // The microsequencer continuously re-executes instruction at address // o0000 while the rst signal is asserted. It can only execute the // second instruction after the 'rst' signal is negated. // // This process assumes that the 'rst' negation is synchronized to // the clock and that the 'rst' signal is asserted for a few clock // cycles minimum to ensure that the instruction at address o0000 // is executed at least once. // // The synchronous 'rst' negation is handled earlier in the design // heirarchy. // // The Page Fail address is hard coded to address o3777 in the // microcode. // // Notes: // The microcode address space is 12-bits but only 11-bits (2048 // microcode words) are actually implemented. Therefore the amount // of microcode can be easily doubled without changing the micro- // architecture. // // If all 12-bits of the microcode ROM are implemented, the PAGE FAIL // code will have to be moved to address o7777 or otherwise dealt // with. // // Trace: // CRA1/E9 // CRA1/E18 // CRA1/E24 // CRA1/E25 // CRA1/E26 // CRA1/E35 // CRA1/E111 // CRA1/E121 // CRA1/E174 // CRA1/E183 // CRA1/E184 // CRA1/E186 // assign addr = (rst) ? 12'o0000 : (pageFAIL) ? 12'o7777 : (dispADDR | skipADDR | `cromJ); // // Control ROM // CROM uCROM (.clk (clk), .clken (clken), .rst (rst), .addr (addr), .crom (crom) ); // // Call/Return Instruction Decode: // // Details: // The address is pushed on the stack during a call or when a // PAGE FAIL occurs. // // Note: // The KS10 logic decodes a 'return dispatch' as "x0xx01" but // only o01 and o41 are used by the microcode. // // Trace // CRA2/E33 // CRA2/E34 // wire call = `cromCALL | pageFAIL; wire ret = ((`cromDISP == 6'o01) || // used (`cromDISP == 6'o05) || // not used (`cromDISP == 6'o11) || // not used (`cromDISP == 6'o15) || // not used (`cromDISP == 6'o41) || // used (`cromDISP == 6'o45) || // not used (`cromDISP == 6'o51) || // not used (`cromDISP == 6'o55)); // not used // // Call/Return Stack // STACK uSTACK (.clk (clk), .rst (rst), .clken (clken), .call (call), .ret (ret), .addrIN (addr), .addrOUT (dispRET) ); endmodule rtl/cpu/vma.v0000700000175100010010000001720412061517366 11615 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! Virtual Memory Address //! //! \details //! //! \todo //! //! \file //! vma.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none `include "useq/crom.vh" `include "useq/drom.vh" module VMA(clk, rst, clken, crom, drom, dp, cpuEXEC, prevEN, pcFLAGS, vmaEXTENDED, vmaFLAGS, vmaADDR); parameter cromWidth = `CROM_WIDTH; parameter dromWidth = `DROM_WIDTH; input clk; // Clock input rst; // Reset input clken; // Clock Enable input [ 0:cromWidth-1] crom; // Control ROM Data input [ 0:dromWidth-1] drom; // Dispatch ROM Data input [ 0:35] dp; // Data path input cpuEXEC; // Execute input prevEN; // Previous Enable input [ 0:17] pcFLAGS; // PC Flags output vmaEXTENDED; // VMA Extended output [ 0:13] vmaFLAGS; // VMA Flags output [14:35] vmaADDR; // Virtual Memory Address // // PC Flags // wire flagUSER = pcFLAGS[5]; // User wire flagPCU = pcFLAGS[6]; // Previous Context User // // Microcode Decode // // Note // The cache clear and the previous selection are exclusive // operations. // // Trace // DPE5/E76 // DPE6/E53 // wire cacheSWEEP = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_CLRCACHE); wire selPREVIOUS = `cromSPEC_EN_20 & (`cromSPEC_SEL == `cromSPEC_SEL_PREVIOUS); // // VMA Register // // Trace // DPE3/E53 // DPM4/E55 // DPM4/E56 // DPM4/E74 // DPE3/E76 // DPM4/E82 // DPM4/E90 // DPM4/E97 // DPM4/E103 // DPM4/E115 // DPM4/E137 // DPM4/E152 // DPM4/E168 // DPM4/E175 // DPM4/E182 // DPM4/E183 // reg [14:35] vmaADDR; reg vmaEXTENDED; reg vmaUSER; reg vmaFETCH; reg vmaPHYSICAL; reg vmaPREVIOUS; reg vmaIOCYCLE; reg vmaWRUCYCLE; reg vmaVECTORCYCLE; reg vmaIOBYTECYCLE; wire vmaEN = ((`cromMEM_CYCLE & `cromMEM_LOADVMA ) | (`cromMEM_CYCLE & `cromMEM_AREAD & `dromVMA) | (cacheSWEEP)); always @(posedge clk or posedge rst) begin if (rst) begin vmaADDR <= 22'b0; vmaEXTENDED <= 1'b0; vmaUSER <= 1'b0; vmaFETCH <= 1'b0; vmaPHYSICAL <= 1'b0; vmaPREVIOUS <= 1'b0; vmaIOCYCLE <= 1'b0; vmaWRUCYCLE <= 1'b0; vmaVECTORCYCLE <= 1'b0; vmaIOBYTECYCLE <= 1'b0; end else if (clken & vmaEN) begin vmaADDR <= dp[14:35]; vmaEXTENDED <= `cromMEM_EXTADDR; if (`cromMEM_DPFUNC) begin vmaUSER <= dp[0]; vmaFETCH <= dp[2]; vmaPHYSICAL <= dp[8]; vmaPREVIOUS <= dp[9]; vmaIOCYCLE <= dp[10]; vmaWRUCYCLE <= dp[11]; vmaVECTORCYCLE <= dp[12]; vmaIOBYTECYCLE <= dp[13]; end else begin vmaUSER <= ((~`cromMEM_FORCEEXEC & flagUSER & ~cpuEXEC) | (`cromMEM_FETCHCYCLE & flagUSER ) | (prevEN & flagPCU ) | (selPREVIOUS & flagPCU ) | (`cromMEM_FORCEUSER)); vmaFETCH <= `cromMEM_FETCHCYCLE; vmaPHYSICAL <= `cromMEM_PHYSICAL; vmaPREVIOUS <= prevEN | selPREVIOUS; vmaIOCYCLE <= 1'b0; vmaWRUCYCLE <= 1'b0; vmaVECTORCYCLE <= 1'b0; vmaIOBYTECYCLE <= 1'b0; end end end // // Memory Cycle Control // // Details // The type of memory cycle can controlled by the microcode or // can be controlled by the Dispatch ROM. // // Trace // DPM5/E48 // DPM5/E66 // DPM5/E33 // DPM5/E110 // reg vmaREADCYCLE; reg vmaWRTESTCYCLE; reg vmaWRITECYCLE; reg vmaCACHEINH; wire memEN = ((`cromMEM_CYCLE & `cromMEM_WAIT ) | (`cromMEM_CYCLE & `cromMEM_BWRITE & `dromCOND_FUNC)); always @(posedge clk or posedge rst) begin if (rst) begin vmaREADCYCLE <= 1'b0; vmaWRTESTCYCLE <= 1'b0; vmaWRITECYCLE <= 1'b0; vmaCACHEINH <= 1'b0; end else if (clken & memEN) begin if (`cromMEM_AREAD) begin vmaREADCYCLE <= `dromREADCYCLE; vmaWRTESTCYCLE <= `dromWRTESTCYCLE; vmaWRITECYCLE <= `dromWRITECYCLE; vmaCACHEINH <= 1'b0; end else if (`cromMEM_DPFUNC) begin vmaREADCYCLE <= dp[3]; vmaWRTESTCYCLE <= dp[4]; vmaWRITECYCLE <= dp[5]; vmaCACHEINH <= dp[7]; end else begin vmaREADCYCLE <= `cromMEM_READCYCLE; vmaWRTESTCYCLE <= `cromMEM_WRTESTCYCLE; vmaWRITECYCLE <= `cromMEM_WRITECYCLE; vmaCACHEINH <= `cromMEM_CACHEINH; end end end // // Fixup vmaFLAGS // assign vmaFLAGS[ 0] = vmaUSER; assign vmaFLAGS[ 1] = 1'b0; assign vmaFLAGS[ 2] = vmaFETCH; assign vmaFLAGS[ 3] = vmaREADCYCLE; assign vmaFLAGS[ 4] = vmaWRTESTCYCLE; assign vmaFLAGS[ 5] = vmaWRITECYCLE; assign vmaFLAGS[ 6] = 1'b0; assign vmaFLAGS[ 7] = vmaCACHEINH; assign vmaFLAGS[ 8] = vmaPHYSICAL; assign vmaFLAGS[ 9] = vmaPREVIOUS; assign vmaFLAGS[10] = vmaIOCYCLE; assign vmaFLAGS[11] = vmaWRUCYCLE; assign vmaFLAGS[12] = vmaVECTORCYCLE; assign vmaFLAGS[13] = vmaIOBYTECYCLE; endmodule rtl/csl/0000700000175100010010000000000012061535465 10626 5ustar RobNonertl/csl/csl.v0000700000175100010010000005060512061517366 11607 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Console //! //! \details //! //! Console Instruction Register (Device 0, IO Address 0200000) //! //! When the 'execute switch' is asserted at power-up the KS10 //! microcode performs a IO read of the Console Instruction //! Register (regIR) at IO address o200000 and then executes //! that instruction. //! //! The Console Instruction Register is normally initialized //! with a JRST instruction which causes the code to jump to //! the entry point of the code/bootloader. //! //! This mechanism allowes the Console set the address that //! the KS10 began execution. //! //! The JRST opcode is 0254. //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) |0 |1 |0 |1 |0 |1 |1 |0 |0 |0 |0 |0 |0 |0 |0 |0 |0 |0 | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | ADDRESS | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! Console Control/Status register: //! //! The Console Control/Status register controls the operation //! of the KS10 and allows the Console to be cognizant of the //! status of the KS10 CPU. //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) | |NX|GO| |SR|SS|SE| //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) |SC|SH| |TE|RE|CE| |KI|KR| //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! NX : Non-existant memory timeout (Read Only) //! GO : Start Read or Write Transaction //! SR : Run Switch //! SS : Single Step Switch //! SE : Execute Switch //! SC : Continue Switch //! SH : Halt Switch //! TE : Timer Enable //! RE : Trap Enable //! CE : Cache Enable //! KI : KS10 Interrupt //! KR : KS10 Reset //! //! Console Address Register: //! //! The console can read from or write to KS10 memory and/or IO. //! The address of the memory or IO location to be accessed is //! placed in the Console Address Register prior to starting //! the access. //! //! The format of the Console Address Register during Memory //! Operations is: //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) |0 |0 |0 |RD|0 |WR|0 |0 |0 |0 |0 |0 |0 |0 |0 |0 |Addr | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | Memory Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! The format of the Console Address Register during IO //! Operations is: //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) |0 |0 |0 |RD|0 |WR|0 |0 |0 |0 |1 |0 |0 |0 | DEV NO | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | IO Address | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! Note: Bit 10 is asserted during IO operations and is //! negated during Memory Operations. //! //! Note: 20-bit addressing of memory is supported. //! //! Console Data Register: //! //! Data to be written to Memory or IO is placed in the Console //! Data Register. Similarly data that has been read from //! from Memory or IO is placed in the Console Data Register. //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) | DATA | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | DATA | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! Console Memory Read Procedure //! //! The KS10 memory is read using the following procedure: //! 1. The memory address is written to the Console Address //! Register. The 'RD' bit should be asserted. The 'WR' //! bit and the 'IO' bit should be negated. //! 2. After the Console Address Register initialized, the //! 'GO' bit of the Console Control/Status register should //! be asserted. //! 3. The state machine performs a read from memory and //! places the results in the Console Data Register. The //! 'GO' bit will remain asserted while the memory //! transaction is active and will negate when the memory //! transaction is completed. //! //! Console Memory Write Procedure //! //! The KS10 memory is written using the following procedure: //! 1. The memory address is written to the Console Address //! Register. The 'RD' bit should be asserted. The 'WR' //! bit and the 'IO' bit should be negated. //! 2. The data to be written to memory is written to the //! Console Data Register. //! 3. After the Console Address Register and Console Data //! Register are both initialized, the 'GO' bit of the //! Console Control/Status register should be asserted. //! 4. The state machine performs a write to memory. The //! 'GO' bit will remain asserted while the memory //! transaction is active and will negate when the //! memory transaction is completed. //! //! Console IO Read and Write Procedure //! Console IO operations are similar to Console Memory //! operations except that the IO bit in the Console //! Address Register must be asserted and the IO address //! must include the IO Device Number - which may be zero. //! //! Unibus IO Device Numbers are non-zero. Unibus IO //! addresses are limited to 16-bits and therefore //! Unibus IO addresses bits 18 and 19 must be zero. //! //! \file //! csl.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // module CSL(clk, reset, cslALE, cslAD, cslRD_N, cslWR_N, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO, cpuHALT, cslSTEP, cslRUN, cslEXEC, cslCONT, cslHALT, cslTIMEREN, cslTRAPEN, cslCACHEEN, ks10INTR, ks10RESET ); input clk; // Clock input reset; // Reset input cslALE; // Address Latch Enable inout [7: 0] cslAD; // Multiplexed Address/Data Bus input cslRD_N; // Read Strobe input cslWR_N; // Write Strobe input busREQI; // Bus Request In output busREQO; // Bus Request Out input busACKI; // Bus Acknowledge In output busACKO; // Bus Acknowledge Out input [0:35] busADDRI; // Bus Address In output [0:35] busADDRO; // Bus Address Out input [0:35] busDATAI; // Bus Data In output [0:35] busDATAO; // Bus Data Out input cpuHALT; // CPU Halt Status output cslSTEP; // Step Switch output cslRUN; // Run Switch output cslEXEC; // Execute Switch output cslCONT; // Continue Switch output cslHALT; // Halt switch output cslTIMEREN; // Timer Enable output cslTRAPEN; // Trap Enable output cslCACHEEN; // Cache Enable output ks10INTR; // KS10 Interrupt output ks10RESET; // KS10 Reset // // Console Instruction Register Address // parameter [18:36] addrCIR = 18'o200000; // // State Machine States // parameter stateIDLE = 0; parameter stateCHECK = 1; parameter stateREAD = 2; parameter stateWRITE = 3; parameter stateFAIL = 4; parameter stateDONE = 5; // // Console is Device 0 // wire [ 0: 3] ubaDEV = 4'b0000; // // Memory Address and Flags // wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busPHYSICAL = busADDRI[ 8]; wire busIO = busADDRI[10]; wire [14:17] busDEV = busADDRI[14:17]; wire [18:35] busADDR = busADDRI[18:35]; // // Synchronize Write signal to Console Processor // reg wr; reg cslWR; always @(posedge clk or posedge reset) begin if (reset) begin wr <= 1'b0; cslWR <= 1'b0; end else begin wr <= ~cslWR_N; cslWR <= wr; end end // // Console Bus Address Latch // reg [0:7] cslADDR; always @(posedge cslALE) begin cslADDR <= cslAD; end // // Write Decoder // // Details: // This device decodes writes from the console processor and builds // 36-bit registers. // // Notes: // The status register is inititalized at power-up with the KS10 reset. // reg [0:35] regIR; reg [0:35] regDATA; reg [0:35] regSTAT; reg [0:35] regADDR; always @(posedge clk or posedge reset) begin if (reset) begin regIR <= 36'o000000_000000; regDATA <= 36'o000000_000000; regSTAT <= 36'o000000_000001; regADDR <= 36'b000000_000000; end else begin if (cslWR) case (cslADDR) // // Address Register // 8'h03 : regADDR[ 0: 3] <= cslAD[3:0]; 8'h04 : regADDR[ 4:11] <= cslAD[7:0]; 8'h05 : regADDR[12:19] <= cslAD[7:0]; 8'h06 : regADDR[20:27] <= cslAD[7:0]; 8'h07 : regADDR[28:35] <= cslAD[7:0]; // // Data Register // 8'h13 : regDATA[ 0: 3] <= cslAD[3:0]; 8'h14 : regDATA[ 4:11] <= cslAD[7:0]; 8'h15 : regDATA[12:19] <= cslAD[7:0]; 8'h16 : regDATA[20:27] <= cslAD[7:0]; 8'h17 : regDATA[28:35] <= cslAD[7:0]; // // Control/Status Register // 8'h23 : regSTAT[ 0: 3] <= cslAD[3:0]; 8'h24 : regSTAT[ 4:11] <= cslAD[7:0]; 8'h25 : regSTAT[12:19] <= cslAD[7:0]; 8'h26 : regSTAT[20:27] <= cslAD[7:0]; 8'h27 : regSTAT[28:35] <= cslAD[7:0]; // // Console Instruction Register // 8'h33 : regIR[ 0: 3] <= cslAD[3:0]; 8'h34 : regIR[ 4:11] <= cslAD[7:0]; 8'h35 : regIR[12:19] <= cslAD[7:0]; 8'h36 : regIR[20:27] <= cslAD[7:0]; 8'h37 : regIR[28:35] <= cslAD[7:0]; endcase case(state) stateREAD: regDATA <= busDATAI; stateDONE: regSTAT[11] <= 0; // Clear GO when done stateFAIL: regSTAT[10] <= 1; // Non-existant Memory endcase end end // // Read Decoder // reg [7:0] adOUT; always @(cslADDR or regADDR or regDATA or regSTAT or regIR) case (cslADDR) // // Address Register // 8'h03 : adOUT <= {4'b0, regADDR[0:3]}; 8'h04 : adOUT <= regADDR[ 4:11]; 8'h05 : adOUT <= regADDR[12:19]; 8'h06 : adOUT <= regADDR[20:27]; 8'h07 : adOUT <= regADDR[28:35]; // // Data Register // 8'h13 : adOUT <= {4'b0, regDATA[0:3]}; 8'h14 : adOUT <= regDATA[ 4:11]; 8'h15 : adOUT <= regDATA[12:19]; 8'h16 : adOUT <= regDATA[20:27]; 8'h17 : adOUT <= regDATA[28:35]; // // Control/Status Register // 8'h23 : adOUT <= {4'b0, regSTAT[0:3]}; 8'h24 : adOUT <= regSTAT[ 4:11]; 8'h25 : adOUT <= regSTAT[12:19]; 8'h26 : adOUT <= regSTAT[20:27]; 8'h27 : adOUT <= regSTAT[28:35]; // // Console Instruction Register // 8'h33 : adOUT <= {4'b0, regIR[0:3]}; 8'h34 : adOUT <= regIR[ 4:11]; 8'h35 : adOUT <= regIR[12:19]; 8'h36 : adOUT <= regIR[20:27]; 8'h37 : adOUT <= regIR[28:35]; // // Everything else // default : adOUT <= 8'b0; endcase // // Handle bi-directional bus output // assign cslAD = (~cslRD_N) ? adOUT : 8'bz; // // Bus Address Out is always set by Address Register // assign busADDRO = regADDR; // // Read/Write State Machine // // Details // This creates 'backplane' bus cycles for the console to // read or write to KS10 IO or or KS10 memory. // // Like the KS10, the upper bits of the address bus are // used to control read/write and IO/memory. // reg [0:2] state; reg [0:9] timeout; always @(posedge clk or posedge reset) begin if (reset) begin timeout <= 0; state <= stateIDLE; end else case (state) stateIDLE : begin timeout <= 0; if ((regSTAT[11] & regADDR[3]) | (regSTAT[11] & regADDR[5])) state <= stateCHECK; end stateCHECK : if (timeout == 1023) state <= stateFAIL; else if (busACKI & regADDR[3]) state <= stateREAD; else if (busACKI & regADDR[5]) state <= stateWRITE; else timeout <= timeout + 1'b1; stateREAD : state <= stateDONE; stateWRITE : state <= stateDONE; stateFAIL : state <= stateDONE; stateDONE : state <= stateIDLE; endcase end // // Bus REQ // assign busREQO = ((state == stateCHECK) || (state == stateREAD ) || (state == stateWRITE)); // // Bus ACK // assign busACKO = busIO & busREAD & (busDEV == ubaDEV) & (busADDR == addrCIR); // // Bus MUX // reg [0:35] busDATAO; always @(busACKO or state or regIR or regDATA) begin if (busACKO) busDATAO = regIR; else if (state == stateWRITE) busDATAO = regDATA; else busDATAO = 36'bx; end // // Status Register // assign cslRUN = regSTAT[15]; assign cslSTEP = regSTAT[16]; assign cslEXEC = regSTAT[17]; assign cslCONT = regSTAT[18]; assign cslHALT = regSTAT[19]; assign cslTIMEREN = regSTAT[25]; assign cslTRAPEN = regSTAT[26]; assign cslCACHEEN = regSTAT[27]; assign ks10INTR = regSTAT[34]; assign ks10RESET = regSTAT[35]; // // Print the Halt Status Block // synthesis translate_off // always @(posedge clk) begin if (busWRITE & ~busIO & busPHYSICAL) begin case (busADDR) 18'o000000 : begin $display(""); case (busDATAI[24:35]) 12'o0000 : $display("Microcode Startup."); 12'o0001 : $display("Halt Instruction."); 12'o0002 : $display("Console Halt."); 12'o0100 : $display("IO Page Failure."); 12'o0101 : $display("Illegal Interrupt Instruction."); 12'o0102 : $display("Pointer to Unibus Vector is zero."); 12'o1000 : $display("Illegal Microcode Dispatch."); 12'o1005 : $display("Microcode Startup Check Failed."); default : $display("Unknown Halt Cause."); endcase end 18'o000001 : $display("PC is %06o", busDATAI); 18'o376000 : $display("MAG is %06o", busDATAI); 18'o376001 : $display("PC is %06o", busDATAI); 18'o376002 : $display("HR is %06o", busDATAI); 18'o376003 : $display("AR is %06o", busDATAI); 18'o376004 : $display("ARX is %06o", busDATAI); 18'o376005 : $display("BR is %06o", busDATAI); 18'o376006 : $display("BRX is %06o", busDATAI); 18'o376007 : $display("ONE is %06o", busDATAI); 18'o376010 : $display("EBR is %06o", busDATAI); 18'o376011 : $display("UBR is %06o", busDATAI); 18'o376012 : $display("MSK is %06o", busDATAI); 18'o376013 : $display("FLG is %06o", busDATAI); 18'o376014 : $display("PI is %06o", busDATAI); 18'o376015 : $display("X1 is %06o", busDATAI); 18'o376016 : $display("TO is %06o", busDATAI); 18'o376017 : $display("T1 is %06o", busDATAI); 18'o376020 : $display("VMA is %06o", busDATAI); 18'o376021 : $display("FE is %06o", busDATAI); endcase end end // synthesis translate_on endmodule rtl/ks10.ucf0000700000175100010010000000122512061517370 11320 0ustar RobNone# # PDP8.ucf # For Nexys2 Card # # # Clock Interface # #NET "clk" LOC = "B8"; NET "clk" TNM_NET = clk; NET "clk" IOSTANDARD = LVCMOS33; TIMESPEC TS_clk = PERIOD "clk" 50 ns HIGH 50%; NET "uCPU/uALU/r*" TIG; #NET "rst" IOSTANDARD = LVCMOS33; #NET "cons_msec_en" IOSTANDARD = LVCMOS33; #NET "cons_exec" IOSTANDARD = LVCMOS33; #NET "cons_cont" IOSTANDARD = LVCMOS33; #NET "consTRAPEN" IOSTANDARD = LVCMOS33; #NET "bus_ac_lo" IOSTANDARD = LVCMOS33; rtl/ks10.v0000700000175100010010000002147712061517370 11023 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS10 System. The system consists of a CPU, a Bus Aribter, //! Memory, and a Unibus Interface. //! //! \details //! //! \todo //! //! \file //! ks10.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // module KS10(clk, reset, TXD, RXD, cslALE, cslAD, cslRD_N, cslWR_N, cslINTR_N, ssramCLK, ssramADDR, ssramDATA, ssramWR, ssramADV, runLED); // // System Interfaces // input clk; // Clock input reset; // Reset input [0: 3] RXD; // Received RS-232 Data input [0: 3] TXD; // Transmitted RS-232 Data input cslALE; // Address Latch Enable inout [7: 0] cslAD; // Multiplexed Address/Data Bus input cslRD_N; // Read Strobe input cslWR_N; // Write Strobe output cslINTR_N; // Console Interrupt output ssramCLK; // SSRAM Clock output [0:22] ssramADDR; // SSRAM Address Bus inout [0:35] ssramDATA; // SSRAM Data Bus output ssramWR; // SSRAM Write output ssramADV; // SSRAM Advance output runLED; // RUN LED // // Bus Arbiter Outputs // wire [0:35] arbADDRO; // Arbiter Address Out // // Console Interfaces // wire cslREQI; // Console Bus Request In wire cslREQO; // Console Bus Request Out wire cslACKI; // Console Bus Acknowledge In wire cslACKO; // Console Bus Acknowledge Out wire [0:35] cslADDRI; // Console Address In wire [0:35] cslADDRO; // Console Address Out wire [0:35] cslDATAI; // Console Data In wire [0:35] cslDATAO; // Console Data Out wire cslSTEP; // Console Single Step Switch wire cslCONT; // Console Continue Switch wire cslRUN; // Console Run Switch wire cslEXEC; // Console Exec Switch wire cslHALT; // Console Halt Switch wire cslTRAPEN; // Console Trap Enable wire cslTIMEREN; // Console Timer Enable wire cslCACHEEN; // Console Cache Enable wire cslINTR; // KS10 Interrupt to Console wire ks10INTR; // KS10 Interrupt wire ks10RESET; // KS10 Reset // // CPU Outputs // wire cpuHALT; // CPU Halt Status wire cpuREQ; // CPU Bus Request wire cpuACK; // CPU Bus Acknowledge wire [0:35] cpuADDRO; // CPU Address Out wire [0:35] cpuDATAI; // CPU Data In wire [0:35] cpuDATAO; // CPU Data Out // // Memory Outputs // wire [0:35] memDATAI; // Memory Data In wire [0:35] memDATAO; // Memory Data Out wire memREQ; // Memory REQ wire memACK; // Memory ACK // // Unibus Interface // wire [1: 7] busINTR; // Unibus Interrupt Request wire ubaREQI; // Unibus Bus Request In wire ubaREQO; // Unibus Bus Request Out wire ubaACKI; // Unibus Bus Acknowledge In wire ubaACKO; // Unibus Bus Acknowledge Out wire [0:35] ubaADDRI; // Unibus Address In wire [0:35] ubaADDRO; // Unibus Address Out wire [0:35] ubaDATAI; // Unibus Data In wire [0:35] ubaDATAO; // Unibus Data Out // // Interrupts // wire [0: 2] curINTR_NUM; // Current Interrupt Priority // // Bus Arbiter // ARB uARB (// CPU .cpuREQI (cpuREQ), .cpuACKO (cpuACK), .cpuADDRI (cpuADDRO), .cpuDATAI (cpuDATAO), .cpuDATAO (cpuDATAI), // Console .cslREQI (cslREQO), .cslREQO (cslREQI), .cslACKI (cslACKO), .cslACKO (cslACKI), .cslADDRI (cslADDRO), .cslDATAI (cslDATAO), .cslDATAO (cslDATAI), // Unibus .ubaREQI (ubaREQO), .ubaREQO (ubaREQI), .ubaACKI (ubaACKO), .ubaACKO (ubaACKI), .ubaADDRI (ubaADDRO), .ubaDATAI (ubaDATAO), .ubaDATAO (ubaDATAI), // Memory .memREQO (memREQ), .memACKI (memACK), .memDATAI (memDATAO), .memDATAO (memDATAI), // Arb .arbADDRO (arbADDRO) ); // // The KS10 CPU // CPU uCPU (.clk (clk), .rst (ks10RESET), .cslSTEP (cslSTEP), .cslRUN (cslRUN), .cslEXEC (cslEXEC), .cslCONT (cslCONT), .cslHALT (cslHALT), .cslTIMEREN (cslTIMEREN), .cslTRAPEN (cslTRAPEN), .cslCACHEEN (cslCACHEEN), .ks10INTR (ks10INTR), .cslINTR (cslINTR), .busINTR (busINTR), .curINTR_NUM (curINTR_NUM), .busREQ (cpuREQ), .busACK (cpuACK), .busADDRO (cpuADDRO), .busDATAI (cpuDATAI), .busDATAO (cpuDATAO), .cpuHALT (cpuHALT) ); // // Console // CSL uCSL (.clk (clk), .reset (reset), .cslALE (cslALE), .cslAD (cslAD), .cslRD_N (cslRD_N), .cslWR_N (cslWR_N), .busREQI (cslREQI), .busREQO (cslREQO), .busACKI (cslACKI), .busACKO (cslACKO), .busADDRI (arbADDRO), .busADDRO (cslADDRO), .busDATAI (cslDATAI), .busDATAO (cslDATAO), .cpuHALT (cpuHALT), // Console Interfaces .cslSTEP (cslSTEP), .cslRUN (cslRUN), .cslEXEC (cslEXEC), .cslCONT (cslCONT), .cslHALT (cslHALT), .cslTIMEREN (cslTIMEREN), .cslTRAPEN (cslTRAPEN), .cslCACHEEN (cslCACHEEN), .ks10INTR (ks10INTR), .ks10RESET (ks10RESET) ); // // Memory // MEM uMEM (.clk (clk), .rst (reset), .clken (1'b1), .busREQI (memREQ), .busACKO (memACK), .busADDRI (arbADDRO), .busDATAI (memDATAI), .busDATAO (memDATAO), .ssramCLK (ssramCLK), .ssramADDR (ssramADDR), .ssramDATA (ssramDATA), .ssramADV (ssramADV), .ssramWR (ssramWR) ); // // DZ11 on Unibus // DZ11 uDZ11 (.clk (clk), .rst (reset), .clken (1'b1), .TXD (TXD), .RXD (RXD), .busINTR (busINTR), .curINTR_NUM (curINTR_NUM), .busREQI (ubaREQI), .busREQO (ubaREQO), .busACKI (ubaACKI), .busACKO (ubaACKO), .busADDRI (arbADDRO), .busADDRO (ubaADDRO), .busDATAI (ubaDATAI), .busDATAO (ubaDATAO) ); // // Console Interrupt fixup // assign cslINTR_N = ~cslINTR; assign runLED = ~cpuHALT; endmodule rtl/MAINDEC-10-DSKCD.txt0000700000175100010010000364264412061447114 12731 0ustar RobNone;DSKCD IDENTIFICATION -------------- PRODUCT CODE: AH-E331A-DD DIAGNOSTIC CODE: DSKCD PRODUCT NAME: DSKCDA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (4) VERSION: 0.1 DATE RELEASED: MARCH 1978 MAINTAINED BY: DIAGNOSTIC ENGINEERING AUTHOR: JOHN R. KIRCHOFF COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT CORPORATION. THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. MAINDEC-10-DSKCD.TXT PAGE 2 SEQ 0003 TABLE OF CONTENTS ----------------- 1.0 ABSTRACT 2.0 REQUIREMENTS 2.1 EQUIPMENT 2.2 STORAGE 2.3 PRELIMINARY PROGRAMS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE 3.2 STARTING PROCEDURE 3.3 OPERATING PROCEDURE 4.0 DATA SWITCH FUNCTIONS 5.0 ERRORS 6.0 ITERATION COUNTER 7.0 CYCLE TIME 8.0 OPERATIONAL VARIATIONS 9.0 MISCELLANEOUS 10.0 LISTING MAINDEC-10-DSKCD.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE FOURTH IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE EXTENDED ADDITION AND ASSOCIATED LOGIC USED BY THE DOUBLE PRECISION FLOATING POINT INSTRUCTIONS: DFAD, DFSB, DFMP AND DFDV. 2.0 REQUIREMENTS 2.1 EQUIPMENT A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE LOAD DEVICE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS PREVIOUS PROCESSOR DIAGNOSTICS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE ****** NOTE ****** THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE PROGRAM BE RESIDENT IN THE DECSYSTEM 2020. FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES. MAINDEC-10-DSKCD.TXT PAGE 4 SEQ 0005 3.2 STARTING PROCEDURE A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO 4.0 DATA SWITCH FUNCTIONS). RUN UNDER "SMMON". THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE OPERATIONAL SWITCHES: TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) - IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS ARE ASKED AND THE OPERATOR RESPONDS BY TYPING THE ANSWER AS SIX OCTAL DIGITS REPRESENTING THE DESIRED SWITCH SETTINGS. SPECIFY LH SWITCHES IN OCTAL- SPECIFY RH SWITCHES IN OCTAL- IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR THE SWITCH SETTINGS. IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES ARE USED. THIS IS ONLY VALID UPON RESTARTING OF AN INTERRUPTED PROGRAM. MAINDEC-10-DSKCD.TXT PAGE 5 SEQ 0006 3.3 OPERATING PROCEDURE A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA SWITCHES SHOULD BE SET TO 0. B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING. THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT TO BE ISOLATED AND REPLACED AND/OR REPAIRED. C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'. THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH SETTINGS FOR DEBUGGING PURPOSES. D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING ERRORS ON THE LINE PRINTER. E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT BUT HALT THE PROGRAM POINTING TO THE ERROR. MAINDEC-10-DSKCD.TXT PAGE 6 SEQ 0007 4.0 DATA SWITCH FUNCTIONS SWITCH STATE FUNCTION ------ ----- -------- 0 ABORT 0 NORMAL OPERATION 1 ABORT AT END OF PASS 1 RSTART NOT USED 2 TOTALS NOT USED 3 NOPNT 0 NORMAL TYPEOUT 1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED) 4 PNTLPT 0 NORMAL OUTPUT TO TTY 1 PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 5 DING 0 NO FUNCTION 1 RING TTY BELL ON ERROR 6 LOOPER 0 PROCEED TO NEXT TEST 1 ENTER SCOPE LOOP ON TEST ERROR 7 ERSTOP 0 NO FUNCTION 1 HALT ON TEST ERROR 8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING 1 PRINT ALL ERRORS, EVEN IF SAME ERROR 9 RELIAB NOT USED 10 TXTINH 0 PRINT FULL ERROR MESSAGES. 1 INHIBIT COMMENT PORTION OF ERROR MESSAGES. 11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE 1 INHIBIT PAGING AND TRAPPING 12 MODDVC NOT USED 13 INHCSH 0 ALLOW CACHE USE 1 INHIBIT CACHE MAINDEC-10-DSKCD.TXT PAGE 7 SEQ 0008 5.0 ERRORS ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR NUMBER AND THE CONTENTS OF AN APPLICABLE AC. THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING. THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY BE MADE AT SOME FUTURE DATE. IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET. 6.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE CONSOLE PROCESSOR. 7.0 CYCLE TIME THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC. MAINDEC-10-DSKCD.TXT PAGE 8 SEQ 0009 8.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE PROGRAM IS USED IN THIS MANNER. THEY ARE: 1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR CONTROL WORD. LH = 0, STAND-ALONE OPERATION -1, RUNNING UNDER DIAGNOSTIC MONITOR RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER DIAGNOSTIC MONITOR CONTROL. B. USER MODE TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING OUTPUT FILE IS 'DSKCD.LPT' EXAMPLE DEVICE ASSIGNMENT: .ASSIGN DSK DEV IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN RETURN TO DIAMON COMMAND MODE. MAINDEC-10-DSKCD.TXT PAGE 9 SEQ 0010 8.0 OPERATIONAL VARIATIONS (CON'T) THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.). IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' COMMAND. C. SYSTEM EXERCISER START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN 'SWTEXR' LOC 30023. 9.0 MISCELLANEOUS THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET (0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE. 10.0 LISTING HISTORY FILE FOR DSKCD SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKCD TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (4) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1 DSKCDT MAC 29-Mar-78 11:46 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;MAINDEC-10-DSKCD 2 3 000000 MCNVER=0 4 000001 DECVER=1 5 6 XLIST 7 LIST 8 LALL 9 10 NAME \MCNVER,\DECVER^ 11 12 TITLE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 ^ 13 14 XALL 15 16 ;COPYRIGHT 1978 17 ;DIGITAL EQUIPMENT CORPORATION 18 ;MARLBORO, MASS. 01752 19 20 ;JOHN R. KIRCHOFF 21 22 000137 LOC 137 23 000137 000000 000001 MCNVER,,DECVER 24 NOSYM DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0013 25 SUBTTL DIAGNOSTIC PARAMETERS 26 27 ;OPERATOR DEFINITIONS 28 29 001000 000000 OPDEF ER1 [1B8] 30 002000 000000 OPDEF ER2 [2B8] 31 003000 000000 OPDEF ER3 [3B8] 32 004000 000000 OPDEF ER4 [4B8] 33 005000 000000 OPDEF ER5 [5B8] 34 006000 000000 OPDEF ER6 [6B8] 35 007000 000000 OPDEF ER7 [7B8] 36 010000 000000 OPDEF ER10 [10B8] 37 011000 000000 OPDEF ER11 [11B8] 38 012000 000000 OPDEF ER12 [12B8] 39 013000 000000 OPDEF ER13 [13B8] 40 41 043140 LUUO1==ERRMES 42 043140 LUUO2==ERRMES 43 043140 LUUO3==ERRMES 44 043140 LUUO4==ERRMES 45 043140 LUUO5==ERRMES 46 043140 LUUO6==ERRMES 47 043140 LUUO7==ERRMES 48 043140 LUUO10==ERRMES 49 043140 LUUO11==ERRMES 50 043140 LUUO12==ERRMES 51 043140 LUUO13==ERRMES 52 53 ;SUBROUTINE ASSEMBLY DEFINITIONS 54 55 000100 DEBUG=100 56 000001 EXCASB=1 57 000001 USRASB=1 58 000001 PGMEND=1 59 000001 ERDIAG=1 60 000001 EROLD=1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0014 61 ;MACROS 62 63 DEFINE SAVEAC (A,B)< 64 MOVEI AC+2,. 65 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 66 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 67 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> 68 69 ;BEGIN ASSEMBLY PARAMETERS 70 71 030000 SADR1=BEGIN 72 030076 SADR2=RESRT1 73 030600 SADR3=RENTR1 74 030007 SADR4=SRTDDT 75 030061 SADR5=$BEND2 76 030000 SADR6=BEGIN 77 254200 030000 SADR7=HALT BEGIN 78 254200 030000 SADR8=HALT BEGIN 79 254200 030000 SADR9=HALT BEGIN 80 254200 030000 SADR10=HALT BEGIN 81 254200 030000 SADR11=HALT BEGIN 82 83 000000 PAREA1=0 84 000000 PAREA2=0 85 446353 434400 PAREA3=SIXBIT/DSKCD/ 86 546064 000000 PAREA4=SIXBIT/LPT/ 87 000000 PAREA5=0 88 000000 PAREA6=0 89 90 000001 ITERAT=1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0015 91 DEFINE DMVE (L,A,B,C,D) < 92 ;THIS MACRO TESTS THE DMOVE INSTRUCTION 93 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 94 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 95 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION. 96 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS 97 ;[XWD A,B] AND [XWD C,D], RESPECTIVELY. THE TEST PASSES IF THESE 98 ;COMPARISONS AGREE. 99 100 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS 101 MOVE AC+6,[XWD C,D] ;FOR COMPARISON 102 MOVE AC,[XWD 707070,707070] 103 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 104 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D 105 XWD C,D] ;FROM MEMORY TO AC, AC+1 106 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 107 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B 108 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 109 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = C,D 110 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> 111 112 113 DEFINE DMVE17 (L,T,A,B,C,D) < 114 ;THIS MACRO TESTS THE DMOVE INSTRUCTION 115 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 116 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 117 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION. 118 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST 119 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 120 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 121 122 Q'T'0: MOVEM AC,%SV17# ;SAVE AC17 123 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS 124 MOVE AC+6,[XWD C,D] ;FOR COMPARISON 125 MOVE AC,[XWD 707070,707070] 126 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 127 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D 128 XWD C,D] ;FROM MEMORY TO AC, AC+1 129 Q'T'3: CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 130 JRST .+4 ;HERE IF NO ERROR 131 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS 132 MOVE AC,%SV17 ;RESTORE P 133 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B 134 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 135 JRST .+4 ;HERE IF NO ERROR 136 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD 137 MOVE AC,%SV17 ;RESTORE P 138 ER4 AC-1,L'2 139 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 140 JUMPL SAC,Q'T'0 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0016 141 DEFINE DMVN (L,A,B,C,D) < 142 ;THIS MACRO TESTS THE DMOVN INSTRUCTION 143 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 144 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 145 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA 146 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED 147 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST 148 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 149 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 150 151 Q'L'0: DMOVE AC,[XWD 707070,707070 152 XWD 070707,070707] ;INITIALIZE AC,AC+1 153 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON 154 IFIDN <0,0>,< 155 SETZ AC+6, 156 ADDI AC+5,1 > 157 IFIDN <400000,0>,< 158 SETZ AC+6, 159 ADDI AC+5,1 > 160 IFDIF <0,0>,< 161 IFDIF <400000,0>,< 162 MOVN AC+6,[XWD C,D] 163 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 164 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ; 165 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1 166 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 167 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B 168 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 169 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D 170 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0017 171 DEFINE DMVN17 (L,A,B,C,D) < 172 ;THIS MACRO TESTS THE DMOVN INSTRUCTION 173 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 174 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 175 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA 176 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED 177 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST 178 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 179 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 180 181 Q'L'0: MOVEM AC,%SV17 ;SAVE P 182 DMOVE AC,[XWD 707070,707070 183 XWD 070707,070707] ;INITIALIZE AC,AC+1 184 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON 185 IFIDN <0,0>,< 186 SETZ AC+6, 187 ADDI AC+5,1 > 188 IFIDN <400000,0>,< 189 SETZ AC+6, 190 ADDI AC+5,1 > 191 IFDIF <0,0>,< 192 IFDIF <400000,0>,< 193 MOVN AC+6,[XWD C,D] 194 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 195 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ; 196 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1 197 CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 198 JRST .+4 ;HERE IF TESTS OK 199 MOVEM AC,AC-1 ;SAVE BAD WORD 200 MOVE AC,%SV17 ;RESTORE P 201 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B 202 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 203 JRST .+4 ;HERE IF TESTS OK 204 MOVEM AC,AC-1 205 MOVE AC,%SV17 ;RESTORE P 206 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D 207 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY 208 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0018 209 DEFINE DMVNF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) < 210 ;**KS10** 211 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 212 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 213 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 214 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 215 216 ;**KL10** 217 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 218 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 219 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 220 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 221 222 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 223 DMOVN AC+1,[XWD A,B ;*DMOVN TEST 224 XWD C,D] 225 JSP AC,.+1 ;READ FLAGS 226 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK 227 TLNE AC,USERF ;IN USER MODE ? 228 JRST Q'L'4 ;YES 229 SKIPN SM10 ;KL10 ? 230 JRST Q'L'3 ;YES 231 ;KS10 EXEC MODE 232 CAME AC,[KSEF,,Q'L'1] 233 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 234 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH 235 JRST Q'L'6 236 ;KL10 EXEC MODE 237 Q'L'3: CAME AC,[KLEF,,Q'L'1] 238 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 239 JRST Q'L'2 240 ;KL10/KS10 USER MODE 241 Q'L'4: SKIPN SM10 ;KL10 ? 242 JRST Q'L'5 ;YES 243 ;KS10 USER MODE 244 CAME AC,[KSUF,,Q'L'1] 245 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 246 JRST Q'L'2 247 ;KL10 USER MODE 248 Q'L'5: CAME AC,[KLUF,,Q'L'1] 249 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 250 JRST Q'L'2 251 252 Q'L'6: JRST .+1> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0019 253 DEFINE DMVM (L,A,B,C,D) < 254 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION 255 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 256 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS. 257 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 258 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA 259 ;THE DMOVEM INSTRUCTION. C(TSTWD) AND C(TSTWD+1) ARE THEN 260 ;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 261 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 262 263 Q'L'0: DMOVE AC,[XWD 707070,707070 264 XWD 070707,070707] ;INITIALIZE TEST WORDS 265 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 266 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 267 DMOVE AC,[XWD A,B 268 XWD C,D] ;INITIALIZE AC,AC+1 269 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 270 ;TO MEMORY (TSTWD, TSTWD+1) 271 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 272 CAME AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY? 273 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B 274 CAME AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY? 275 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D 276 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> 277 278 DEFINE DMVNM (L,A,B,C,D) < 279 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION 280 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 281 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS. 282 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 283 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY 284 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION. 285 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE 286 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST 287 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 288 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 289 290 Q'L'0: DMOVE AC,[XWD 707070,707070 291 XWD 070707,070707] 292 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 293 DMOVE AC,[XWD A,B 294 XWD C,D] ;INITIALIZE AC,AC+1 295 DMOVN AC+5,[XWD A,B 296 XWD C,D] ;SET-UP TO CHECK RESULTS 297 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 298 ;TO MEMORY (TSTWD, TSTWD+1) 299 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 300 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 301 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B 302 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 303 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D 304 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0020 305 DEFINE DMVM17 (L,A,B,C,D) < 306 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION 307 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 308 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS. 309 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 310 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION. 311 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST 312 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 313 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 314 315 Q'L'0: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP 316 DMOVE AC,[XWD 707070,707070 317 XWD 070707,070707] ;INITIALIZE TEST WORDS 318 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 319 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 320 DMOVE AC,[XWD A,B 321 XWD C,D] ;INITIALIZE AC,AC+1 322 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 323 ;TO MEMORY (TSTWD, TSTWD+1) 324 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 325 CAMN AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY? 326 JRST .+4 ;HERE IF TESTS OK 327 MOVEM AC,AC-1 ;SAVE BAD WORD 328 MOVE AC,%SV17 ;RESTORE P 329 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B 330 CAMN AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY? 331 JRST .+4 ;HERE IF TESTS OK 332 MOVEM AC,AC-1 ;SAVE BAD WORD 333 MOVE AC,%SV17 ;RESTORE P 334 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D 335 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 336 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0021 337 DEFINE DMVNM17 (L,A,B,C,D) < 338 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION 339 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 340 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS. 341 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 342 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY 343 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION. 344 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE 345 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST 346 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 347 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 348 349 Q'L'0: DMOVE AC,[XWD 707070,707070 350 XWD 070707,070707] 351 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 352 DMOVE AC,[XWD A,B 353 XWD C,D] ;INITIALIZE AC,AC+1 354 DMOVN AC+5,[XWD A,B 355 XWD C,D] ;SET-UP TO CHECK RESULTS 356 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 357 ;TO MEMORY (TSTWD, TSTWD+1) 358 359 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 360 CAMN AC,&17 ;WAS TSTWD LOADED CORRECTLY? 361 JRST .+4 362 MOVEM AC,AC-1 ;SAVE BAD WORD 363 MOVE AC,%SV17 ;RESTORE P 364 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B 365 CAMN AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 366 JRST .+4 ;HERE IF TESTS OK 367 MOVEM AC,AC-1 ;SAVE BAD WORD 368 MOVE AC,%SV17 369 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D 370 MOVE AC,%SV17 371 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0022 372 DEFINE DMVNMF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) < 373 ;**KS10** 374 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 375 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 376 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 377 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 378 379 ;**KL10** 380 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 381 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 382 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 383 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 384 385 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 386 DMOVE AC,[XWD A,B 387 XWD C,D] ;SETUP INITIAL 388 DMOVNM AC,TSTWD ;*DMOVNM TEST 389 JSP AC,.+1 ;READ FLAGS 390 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK 391 TLNE AC,USERF ;IN USER MODE ? 392 JRST Q'L'4 ;YES 393 SKIPN SM10 ;KL10 ? 394 JRST Q'L'3 ;YES 395 ;KS10 EXEC MODE 396 CAME AC,[KSEF,,Q'L'1] 397 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 398 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH 399 JRST Q'L'6 400 ;KL10 EXEC MODE 401 Q'L'3: CAME AC,[KLEF,,Q'L'1] 402 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 403 JRST Q'L'2 404 ;KL10/KS10 USER MODE 405 Q'L'4: SKIPN SM10 ;KL10 ? 406 JRST Q'L'5 ;YES 407 ;KS10 USER MODE 408 CAME AC,[KSUF,,Q'L'1] 409 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 410 JRST Q'L'2 411 ;KL10 USER MODE 412 Q'L'5: CAME AC,[KLUF,,Q'L'1] 413 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 414 JRST Q'L'2 415 416 Q'L'6: JRST .+1> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0023 417 DEFINE DFA (T,A,B,C,D,E,F,G,H,I,M,K,L) < 418 R'T'00: DMOVE AC,[A,,B 419 C,,D] 420 DFAD AC,[E,,F 421 G,,H] 422 CAME AC,[I,,M] 423 ER3 AC,T'01 424 CAME AC+1,[K,,L] 425 ER4 AC+1,T'01 426 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 427 428 DEFINE DFS (T,A,B,C,D,E,F,G,H,I,M,K,L) < 429 R'T'00: DMOVE AC,[A,,B 430 C,,D] 431 DFSB AC,[E,,F 432 G,,H] 433 CAME AC,[I,,M] 434 ER3 AC,T'01 435 CAME AC+1,[K,,L] 436 ER4 AC+1,T'01 437 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 438 439 DEFINE DFM (T,A,B,C,D,E,F,G,H,I,M,K,L) < 440 R'T'00: DMOVE AC,[A,,B 441 C,,D] 442 DFMP AC,[E,,F 443 G,,H] 444 CAME AC,[I,,M] 445 ER3 AC,T'01 446 CAME AC+1,[K,,L] 447 ER4 AC+1,T'01 448 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 449 450 DEFINE DFD (T,A,B,C,D,E,F,G,H,I,M,K,L) < 451 R'T'00: DMOVE AC,[A,,B 452 C,,D] 453 DFDV AC,[E,,F 454 G,,H] 455 CAME AC,[I,,M] 456 ER3 AC,T'01 457 CAME AC+1,[K,,L] 458 ER4 AC+1,T'01 459 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0024 460 DEFINE DFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) < 461 DMOVE AC,[A,,B 462 C,,D] 463 DFAD AC,[E,,F 464 G,,H] 465 CAME AC,[I,,M] 466 ER3 AC,T 467 CAME AC+1,[K,,L] 468 ER4 AC+1,T 469 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH> 470 471 DEFINE SDFA (T,A,B,C,D,E,F,G,H,I,M,K,L) < 472 S'T'00: DMOVE AC,[A,,B 473 C,,D] 474 DFAD AC,[E,,F 475 G,,H] 476 CAME AC,[I,,M] 477 ER3 AC,T'01 478 CAME AC+1,[K,,L] 479 ER4 AC+1,T'01 480 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> 481 482 DEFINE SDFS (T,A,B,C,D,E,F,G,H,I,M,K,L) < 483 S'T'00: DMOVE AC,[A,,B 484 C,,D] 485 DFSB AC,[E,,F 486 G,,H] 487 CAME AC,[I,,M] 488 ER3 AC,T'01 489 CAME AC+1,[K,,L] 490 ER4 AC+1,T'01 491 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> 492 493 DEFINE SDFM (T,A,B,C,D,E,F,G,H,I,M,K,L) < 494 S'T'00: DMOVE AC,[A,,B 495 C,,D] 496 DFMP AC,[E,,F 497 G,,H] 498 CAME AC,[I,,M] 499 ER3 AC,T'01 500 CAME AC+1,[K,,L] 501 ER4 AC+1,T'01 502 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 14 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0025 503 DEFINE SDFMKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) < 504 S'T'00: DMOVE AC,[A,,B 505 C,,D] 506 DFMP AC,[E,,F 507 G,,H] 508 SKIPE KLFLG 509 JRST S'T'05 510 CAME AC,[I,,M] 511 ER3 AC,T'01 512 CAME AC+1,[K,,L] 513 ER4 AC+1,T'01 514 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH 515 JRST S'T'07 516 517 S'T'05: CAME AC,[KL1,,KL2] 518 ER3 AC,T'01 519 CAME AC+1,[KL3,,KL4] 520 ER4 AC+1,T'01 521 JRST S'T'06 522 523 S'T'07: JRST .+1 > 524 525 DEFINE SDFD (T,A,B,C,D,E,F,G,H,I,M,K,L) < 526 S'T'00: DMOVE AC,[A,,B 527 C,,D] 528 DFDV AC,[E,,F 529 G,,H] 530 CAME AC,[I,,M] 531 ER3 AC,T'01 532 CAME AC+1,[K,,L] 533 ER4 AC+1,T'01 534 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 15 DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0026 535 DEFINE SDFDKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) < 536 S'T'00: DMOVE AC,[A,,B 537 C,,D] 538 DFDV AC,[E,,F 539 G,,H] 540 SKIPN SM10 541 JRST S'T'05 542 CAME AC,[I,,M] 543 ER3 AC,T'01 544 CAME AC+1,[K,,L] 545 ER4 AC+1,T'01 546 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH 547 JRST S'T'07 548 549 S'T'05: CAME AC,[KL1,,KL2] 550 ER3 AC,T'01 551 CAME AC+1,[KL3,,KL4] 552 ER4 AC+1,T'01 553 JRST S'T'06 554 555 S'T'07: JRST .+1 > 556 557 DEFINE SDFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) < 558 DMOVE AC,[A,,B 559 C,,D] 560 DFAD AC,[E,,F 561 G,,H] 562 CAME AC,[I,,M] 563 ER3 AC,T 564 CAME AC+1,[K,,L] 565 ER4 AC+1,T 566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH> DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0027 567 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 568 569 DEFINE S,<;*********************************************************************> 570 571 S^;*********************************************************************^ 572 ;*DATA SWITCHES 573 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 574 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 575 S^;*********************************************************************^ 576 577 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 578 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 579 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 580 581 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 582 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 583 010000 DING== 010000 ;RING BELL ON ERROR 584 585 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 586 002000 ERSTOP==002000 ;HALT ON TEST ERROR 587 001000 PALERS==001000 ;PRINT ALL ERRORS 588 589 000400 RELIAB==000400 ;RELIABILITY MODE 590 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 591 000100 INHPAG==000100 ;INHIBIT PAGING 592 593 000040 MODDVC==000040 ;MODIFY DEVICE CODE 594 000020 INHCSH==000020 ;INHIBIT CACHE 595 000010 OPRSEL==000010 ;OPERATOR SELECTION 596 597 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 598 599 ;SWITCH 16 RESERVED 600 601 ;SWITCH 17 RESERVED !!! DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0028 602 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 603 604 S^;*********************************************************************^ 605 ;*SPECIAL SUBPROGRAM LINKAGES 606 S^;*********************************************************************^ 607 608 027772 FSELNK= 27772 ;FILE SELECT LINK 609 027773 FRDLNK= 27773 ;FILE READ LINK 610 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 611 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 612 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 613 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 614 615 S^;*********************************************************************^ 616 ;*SPECIAL SUBROUTINE FATAL HALTS 617 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 618 S^;*********************************************************************^ 619 620 ;ADDRESS TAG REASON 621 ;--------------------- 622 623 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 624 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 625 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 626 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 627 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 628 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 629 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 630 ; 1017 EOPERR ;END OF PROGRAM ERROR 631 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 632 633 S^;*********************************************************************^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0029 634 S^;*********************************************************************^ 635 ;OPERATOR DEFINITIONS (NON-UUO'S) 636 S^;*********************************************************************^ 637 638 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 639 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 640 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 641 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 642 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 643 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 644 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 645 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 646 647 S^;*********************************************************************^ 648 ;*SUBROUTINE INITIALIZATION CALL 649 S^;*********************************************************************^ 650 651 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 652 653 S^;*********************************************************************^ 654 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 655 S^;*********************************************************************^ 656 657 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 658 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 659 660 S^;*********************************************************************^ 661 ;*TERMINAL INPUT UUO'S 662 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 663 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 664 S^;*********************************************************************^ 665 666 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 667 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 668 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 669 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 670 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 671 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 672 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 673 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 674 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 675 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 676 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0030 677 ;*TERMINAL OUTPUT UUO'S. 678 679 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 680 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 681 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 682 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 683 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 684 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 685 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 686 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 687 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 688 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 689 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 690 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 691 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 692 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 693 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 694 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 695 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 696 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 697 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 698 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 699 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 700 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 701 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 702 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 703 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 704 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 705 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 706 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 707 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 708 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 709 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 710 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 711 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 712 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 713 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 714 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 715 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 716 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 717 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 718 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 719 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 720 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0031 721 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 722 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 723 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 724 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 725 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 726 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 727 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 728 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 729 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 730 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 731 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 732 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 733 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 734 735 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 736 737 DEFINE PMSG (ARG),< 738 PSIXM [SIXBIT\ARG'_\]> 739 740 DEFINE PMSGF (ARG),< 741 PSIXMF [SIXBIT\ARG'_\]> 742 743 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 744 ;* CONSERVES CORE OVER ASCIZ 745 746 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 747 748 ;*CONSOLE SWITCH INPUT UUO. 749 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 750 ;* USER MODE. 751 752 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 753 754 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 755 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 756 757 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 758 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 759 760 ;*KS-10 CACHE OPERATION UUO'S 761 762 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 763 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 764 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0032 765 ;*END OF PASS/PROGRAM UUOS 766 767 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 768 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 769 770 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 771 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 772 773 ;*MEMORY MANAGEMENT UUO'S 774 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 775 ;*ADDRESS CONVERSION, ETC... 776 777 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 778 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 779 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 780 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 781 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 782 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 783 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 784 785 ;*DEVICE CODE MODIFICATION UUO 786 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 787 ;*IOT'S TO A DIFFERENT DEVICE CODE. 788 789 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 790 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 791 792 030000 IFNDEF MODDVL, 793 030000 IFNDEF MODDVU, 794 795 ;*"DIAMON" FILE SELECTION AND READ UUOS 796 797 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 798 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 799 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 800 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 801 802 XLIST 803 LIST DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0033 804 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 805 806 030000 LOC 30000 807 808 S^;*********************************************************************^ 809 ;*PROGRAM STARTING ADDRESSES 810 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 811 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 812 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 813 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 814 S^;*********************************************************************^ 815 816 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 817 030001 254 00 0 00 030617 $START: JRST START ;MODE CHECK STARTING ADDRESS 818 819 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 820 821 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 822 823 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 824 825 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 826 827 030006 254 00 0 00 030600 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 828 829 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 830 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 831 832 030010 254 00 0 00 030622 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 833 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 834 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 835 836 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 837 030014 254200 030000 START2: SADR8 ; " 838 030015 254200 030000 START3: SADR9 ; " 839 030016 254200 030000 START4: SADR10 ; " 840 030017 254200 030000 START5: SADR11 ; " DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0034 841 S^;*********************************************************************^ 842 ;*PROGRAM FIXED PARAMETER AREA 843 S^;*********************************************************************^ 844 845 030020 446353 434400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 846 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 847 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 848 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 849 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 850 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 851 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 852 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 853 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 854 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 855 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 856 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 857 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 858 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 859 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 860 861 S^;*********************************************************************^ 862 ;*PROGRAM VARIABLE PARAMETER AREA 863 S^;*********************************************************************^ 864 865 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 866 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 867 030041 777777 7777770 KLFLG: -1 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 868 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 869 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 870 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 871 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 872 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 873 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 874 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 875 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 876 030052 000000 000000 ERRPC: 0 ;ERROR PC 877 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 878 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 879 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 880 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0035 881 S^;*********************************************************************^ 882 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 883 S^;*********************************************************************^ 884 885 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 886 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 887 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 888 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 889 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 890 030064 CPOPJ1: ;SKIP RETURN 891 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 892 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 893 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 894 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 895 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 896 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 897 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 898 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 899 030073 255 00 0 00 000000 $USRHL: JFCL ; " 900 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 901 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 902 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 903 030077 255 00 0 00 000000 RESRT2: JFCL ; " 904 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 905 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 906 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 907 908 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 909 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 910 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 911 912 S^;*********************************************************************^ 913 ;*PROCESSOR CONTROL STORAGE 914 S^;*********************************************************************^ 915 916 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 917 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 918 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 919 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 920 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 921 922 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 923 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 924 925 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 926 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 927 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 928 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 929 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 930 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 931 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0036 932 S^;*********************************************************************^ 933 ;*UUO DISPATCH TABLE 934 S^;*********************************************************************^ 935 XLIST 936 LIST 937 030124 043140 030070 UUODIS: LUUO1,,$UUOER 938 030125 043140 043140 LUUO3,,LUUO2 939 030126 043140 043140 LUUO5,,LUUO4 940 030127 043140 043140 LUUO7,,LUUO6 941 030130 043140 043140 LUUO11,,LUUO10 942 030131 043140 043140 LUUO13,,LUUO12 943 030132 030070 030070 LUUO15,,LUUO14 944 030133 030070 030070 LUUO17,,LUUO16 945 030134 030070 030070 LUUO21,,LUUO20 946 030135 030070 030070 LUUO23,,LUUO22 947 030136 030070 030070 LUUO25,,LUUO24 948 030137 030070 030070 LUUO27,,LUUO26 949 030140 030070 030070 LUUO31,,LUUO30 950 030141 030070 030070 LUUO33,,LUUO32 951 952 S^;*********************************************************************^ 953 ;*MEMORY MANAGMENT STORAGE 954 S^;*********************************************************************^ 955 956 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 957 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 958 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 959 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 960 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 961 962 S^;*********************************************************************^ 963 ;*PRINT CONTROL STORAGE 964 S^;*********************************************************************^ 965 966 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 967 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 968 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 969 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 970 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 971 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 972 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 973 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 974 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 975 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 976 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 977 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 978 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 979 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 980 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 981 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 982 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 983 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 984 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0037 985 S^;*********************************************************************^ 986 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 987 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 988 ;* MOVEI NAME 989 ;* PNTA ;OR PNTAF 990 S^;*********************************************************************^ 991 992 030242 CRLF: ASCII/ 993 030242 015 012 000 000 000 / 994 030243 CRLF2: ASCII/ 995 996 030243 015 012 015 012 000 / 997 030244 054 000 000 000 000 COMMA: ASCII/,/ 998 030245 056 000 000 000 000 PERIOD: ASCII/./ 999 030246 040 000 000 000 000 SPACE: ASCII/ / 1000 030247 011 000 000 000 000 TAB: ASCII/ / 1001 030250 MINUS: 1002 030250 055 000 000 000 000 HYPEN: ASCII/-/ 1003 030251 053 000 000 000 000 PLUS: ASCII/+/ 1004 030252 052 000 000 000 000 AST: ASCII/*/ 1005 030253 100 000 000 000 000 ATSIN: ASCII/@/ 1006 030254 050 000 000 000 000 LFP: ASCII/(/ 1007 030255 051 000 000 000 000 RTP: ASCII/)/ 1008 030256 007 0000000000 BELL: BYTE (7) 007 1009 030257 077 000 000 000 000 QUEST: ASCII/?/ 1010 030260 057 000 000 000 000 SLASH: ASCII!/! 1011 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 1012 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 1013 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 1014 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 1015 1016 S^;*********************************************************************^ 1017 ;*USER MODE OUTPUT FILE INFORMATION 1018 S^;*********************************************************************^ 1019 1020 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 1021 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 1022 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 1023 030272 BLOCK 2 1024 1025 S^;*********************************************************************^ 1026 ;*DISK UPDATE MODE FILE INFORMATION 1027 S^;*********************************************************************^ 1028 1029 030274 $IBUF: BLOCK 3 1030 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 1031 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 1032 030301 BLOCK 2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0038 1033 S^;*********************************************************************^ 1034 ;*PUSHDOWN LIST CONTROL INFORMATION 1035 S^;*********************************************************************^ 1036 1037 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 1038 030304 PLISTS: BLOCK 200 1039 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 1040 1041 S^;*********************************************************************^ 1042 ;*POWER LINE CLOCK FREQUENCY FLAG 1043 S^;*********************************************************************^ 1044 1045 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 1046 1047 S^;*********************************************************************^ 1048 ;*KL10 CACHE CONTROL FLAGS 1049 S^;*********************************************************************^ 1050 1051 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 1052 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 1053 1054 S^;*********************************************************************^ 1055 ;*NUMBER INPUT DIGIT FLAG 1056 S^;*********************************************************************^ 1057 1058 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 1059 1060 S^;*********************************************************************^ 1061 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 1062 S^;*********************************************************************^ 1063 1064 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 1065 1066 S^;*********************************************************************^ 1067 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 1068 S^;*********************************************************************^ 1069 1070 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 1071 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 1072 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 1073 1074 S^;*********************************************************************^ 1075 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 1076 S^;*********************************************************************^ 1077 1078 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0039 1079 S^;*********************************************************************^ 1080 ;*USER MODE MONITOR TYPE FLAG 1081 S^;*********************************************************************^ 1082 1083 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 1084 1085 S^;*********************************************************************^ 1086 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 1087 S^;*********************************************************************^ 1088 1089 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 1090 1091 S^;*********************************************************************^ 1092 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 1093 S^;*********************************************************************^ 1094 1095 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 1096 1097 S^;*********************************************************************^ 1098 ;*"SWITCH" CALL USAGE CONTROL 1099 S^;*********************************************************************^ 1100 1101 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 1102 1103 S^;*********************************************************************^ 1104 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 1105 S^;*********************************************************************^ 1106 1107 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 1108 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 1109 1110 S^;*********************************************************************^ 1111 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 1112 S^;*********************************************************************^ 1113 1114 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 1115 1116 S^;*********************************************************************^ 1117 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 1118 S^;*********************************************************************^ 1119 1120 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 1121 1122 S^;*********************************************************************^ 1123 ;*SPECIAL FUTURE EXPANSION ROOM 1124 S^;*********************************************************************^ 1125 1126 S^;*********************************************************************^ 1127 ;*END OF FIXED STORAGE 1128 S^;*********************************************************************^ 1129 1130 030577 LOC 30577 1131 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1 DSKCD1 MAC 29-Mar-78 11:46 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0040 1132 030600 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE 1133 030601 040 00 0 00 043326 CALL [SIXBIT .EXIT.] 1134 1135 030602 PGMNAM: ASCIZ? 1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4 (DSKCD) 1137 030603 123 131 123 124 105 1138 030604 115 040 062 060 062 1139 030605 060 040 101 104 126 1140 030606 101 116 103 105 104 1141 030607 040 111 116 123 124 1142 030610 122 125 103 124 111 1143 030611 117 116 040 104 111 1144 030612 101 107 116 117 123 1145 030613 124 111 103 040 043 1146 030614 064 040 050 104 123 1147 030615 113 103 104 051 015 1148 030616 012 000 000 000 000 ? 1149 ;INITIALIZE SUBROUTINES 1150 1151 030617 265 00 0 00 030011 START: PGMINT 1152 030620 200 00 0 00 043327 MOVE [ASCIZ/CD/] 1153 030621 202 00 0 00 043247 MOVEM TLET ;INITIALIZE TEST LETTER 1154 1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0041 1156 SUBTTL TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS 1157 1158 DEFINE SAVEAC (A,B)< 1159 MOVEI AC+4,. 1160 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC 1161 MOVEI AC+4,&17 ;INFORM ERROR ROUTINE WHICH 1162 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION> 1163 1164 000004 AC=4 1165 030623 CD00: SAVEAC (1,1)^ 1166 030623 201 10 0 00 030623 MOVEI AC+4,. 1167 030624 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC 1168 030625 201 10 0 00 000010 MOVEI AC+4,&17 ;INFORM ERROR ROUTINE WHICH 1169 030626 202 10 0 00 044673 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^ 1170 1171 ;ADD A WORD OF ALL ZEROS TO A WORD OF ALL ZEROS 1172 DFA 1,0,0,0,0,0,0,0,0,0,0,0,0^ 1173 R100: DMOVE AC,[0,,0 1174 030627 120 04 0 00 043330 0,,0] 1175 DFAD AC,[0,,0 1176 030630 110 04 0 00 043330 0,,0] 1177 030631 312 04 0 00 043330 CAME AC,[0,,0] 1178 030632 003 04 0 00 000101 ER3 AC,101 1179 030633 312 05 0 00 043330 CAME AC+1,[0,,0] 1180 030634 004 05 0 00 000101 ER4 AC+1,101 1181 030635 321 10 0 00 030627 JUMPL AC+4,R100 ;LOOP ON ERROR SWITCH^ 1182 PAGE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0042 1183 ;RIPPLE ONES TESTS (TO A WORD OF ALL ZEROS, ADD A RIPPLED ONE) 1184 000200 T=200 1185 001000 XX=1000 1186 201400 ZZ=201400 1187 1188 R200: REPEAT ^D9, 1189 1194 000201 T=T+1 1195 000400 XX=XX/2 1196 200400 ZZ=ZZ-1000 1197 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1198 DMOVE AC,[200000,,0 1199 030636 120 04 0 00 043332 0,,0] 1200 DFAD AC,[200000+XX,,0 1201 030637 110 04 0 00 043334 0,,0] 1202 030640 312 04 0 00 043334 CAME AC,[ZZ,,0] 1203 030641 003 04 0 00 000201 ER3 AC,T 1204 030642 312 05 0 00 043330 CAME AC+1,[0,,0] 1205 030643 004 05 0 00 000201 ER4 AC+1,T 1206 030644 321 10 0 00 030636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1207 1208 000202 T=T+1 1209 000200 XX=XX/2 1210 177400 ZZ=ZZ-1000 1211 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1212 DMOVE AC,[200000,,0 1213 030645 120 04 0 00 043332 0,,0] 1214 DFAD AC,[200000+XX,,0 1215 030646 110 04 0 00 043336 0,,0] 1216 030647 312 04 0 00 043340 CAME AC,[ZZ,,0] 1217 030650 003 04 0 00 000202 ER3 AC,T 1218 030651 312 05 0 00 043330 CAME AC+1,[0,,0] 1219 030652 004 05 0 00 000202 ER4 AC+1,T 1220 030653 321 10 0 00 030645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1221 1222 000203 T=T+1 1223 000100 XX=XX/2 1224 176400 ZZ=ZZ-1000 1225 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1226 DMOVE AC,[200000,,0 1227 030654 120 04 0 00 043332 0,,0] 1228 DFAD AC,[200000+XX,,0 1229 030655 110 04 0 00 043341 0,,0] 1230 030656 312 04 0 00 043343 CAME AC,[ZZ,,0] 1231 030657 003 04 0 00 000203 ER3 AC,T 1232 030660 312 05 0 00 043330 CAME AC+1,[0,,0] 1233 030661 004 05 0 00 000203 ER4 AC+1,T 1234 030662 321 10 0 00 030654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1235 1236 000204 T=T+1 1237 000040 XX=XX/2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0043 1238 175400 ZZ=ZZ-1000 1239 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1240 DMOVE AC,[200000,,0 1241 030663 120 04 0 00 043332 0,,0] 1242 DFAD AC,[200000+XX,,0 1243 030664 110 04 0 00 043344 0,,0] 1244 030665 312 04 0 00 043346 CAME AC,[ZZ,,0] 1245 030666 003 04 0 00 000204 ER3 AC,T 1246 030667 312 05 0 00 043330 CAME AC+1,[0,,0] 1247 030670 004 05 0 00 000204 ER4 AC+1,T 1248 030671 321 10 0 00 030663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1249 1250 000205 T=T+1 1251 000020 XX=XX/2 1252 174400 ZZ=ZZ-1000 1253 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1254 DMOVE AC,[200000,,0 1255 030672 120 04 0 00 043332 0,,0] 1256 DFAD AC,[200000+XX,,0 1257 030673 110 04 0 00 043347 0,,0] 1258 030674 312 04 0 00 043351 CAME AC,[ZZ,,0] 1259 030675 003 04 0 00 000205 ER3 AC,T 1260 030676 312 05 0 00 043330 CAME AC+1,[0,,0] 1261 030677 004 05 0 00 000205 ER4 AC+1,T 1262 030700 321 10 0 00 030672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1263 1264 000206 T=T+1 1265 000010 XX=XX/2 1266 173400 ZZ=ZZ-1000 1267 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1268 DMOVE AC,[200000,,0 1269 030701 120 04 0 00 043332 0,,0] 1270 DFAD AC,[200000+XX,,0 1271 030702 110 04 0 00 043352 0,,0] 1272 030703 312 04 0 00 043354 CAME AC,[ZZ,,0] 1273 030704 003 04 0 00 000206 ER3 AC,T 1274 030705 312 05 0 00 043330 CAME AC+1,[0,,0] 1275 030706 004 05 0 00 000206 ER4 AC+1,T 1276 030707 321 10 0 00 030701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1277 1278 000207 T=T+1 1279 000004 XX=XX/2 1280 172400 ZZ=ZZ-1000 1281 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1282 DMOVE AC,[200000,,0 1283 030710 120 04 0 00 043332 0,,0] 1284 DFAD AC,[200000+XX,,0 1285 030711 110 04 0 00 043355 0,,0] 1286 030712 312 04 0 00 043357 CAME AC,[ZZ,,0] 1287 030713 003 04 0 00 000207 ER3 AC,T 1288 030714 312 05 0 00 043330 CAME AC+1,[0,,0] 1289 030715 004 05 0 00 000207 ER4 AC+1,T 1290 030716 321 10 0 00 030710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1291 1292 000210 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0044 1293 000002 XX=XX/2 1294 171400 ZZ=ZZ-1000 1295 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1296 DMOVE AC,[200000,,0 1297 030717 120 04 0 00 043332 0,,0] 1298 DFAD AC,[200000+XX,,0 1299 030720 110 04 0 00 043360 0,,0] 1300 030721 312 04 0 00 043362 CAME AC,[ZZ,,0] 1301 030722 003 04 0 00 000210 ER3 AC,T 1302 030723 312 05 0 00 043330 CAME AC+1,[0,,0] 1303 030724 004 05 0 00 000210 ER4 AC+1,T 1304 030725 321 10 0 00 030717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1305 1306 000211 T=T+1 1307 000001 XX=XX/2 1308 170400 ZZ=ZZ-1000 1309 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 1310 DMOVE AC,[200000,,0 1311 030726 120 04 0 00 043332 0,,0] 1312 DFAD AC,[200000+XX,,0 1313 030727 110 04 0 00 043363 0,,0] 1314 030730 312 04 0 00 043365 CAME AC,[ZZ,,0] 1315 030731 003 04 0 00 000211 ER3 AC,T 1316 030732 312 05 0 00 043330 CAME AC+1,[0,,0] 1317 030733 004 05 0 00 000211 ER4 AC+1,T 1318 030734 321 10 0 00 030726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1319 1320 1321 000001 000000 XX=1000000 1322 1323 REPEAT ^D18, 1324 1329 000212 T=T+1 1330 400000 XX=XX/2 1331 167400 ZZ=ZZ-1000 1332 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1333 DMOVE AC,[200000,,0 1334 030735 120 04 0 00 043332 0,,0] 1335 DFAD AC,[200000,,XX 1336 030736 110 04 0 00 043366 0,,0] 1337 030737 312 04 0 00 043370 CAME AC,[ZZ,,0] 1338 030740 003 04 0 00 000212 ER3 AC,T 1339 030741 312 05 0 00 043330 CAME AC+1,[0,,0] 1340 030742 004 05 0 00 000212 ER4 AC+1,T 1341 030743 321 10 0 00 030735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1342 1343 000213 T=T+1 1344 200000 XX=XX/2 1345 166400 ZZ=ZZ-1000 1346 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1347 DMOVE AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0045 1348 030744 120 04 0 00 043332 0,,0] 1349 DFAD AC,[200000,,XX 1350 030745 110 04 0 00 043371 0,,0] 1351 030746 312 04 0 00 043373 CAME AC,[ZZ,,0] 1352 030747 003 04 0 00 000213 ER3 AC,T 1353 030750 312 05 0 00 043330 CAME AC+1,[0,,0] 1354 030751 004 05 0 00 000213 ER4 AC+1,T 1355 030752 321 10 0 00 030744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1356 1357 000214 T=T+1 1358 100000 XX=XX/2 1359 165400 ZZ=ZZ-1000 1360 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1361 DMOVE AC,[200000,,0 1362 030753 120 04 0 00 043332 0,,0] 1363 DFAD AC,[200000,,XX 1364 030754 110 04 0 00 043374 0,,0] 1365 030755 312 04 0 00 043376 CAME AC,[ZZ,,0] 1366 030756 003 04 0 00 000214 ER3 AC,T 1367 030757 312 05 0 00 043330 CAME AC+1,[0,,0] 1368 030760 004 05 0 00 000214 ER4 AC+1,T 1369 030761 321 10 0 00 030753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1370 1371 000215 T=T+1 1372 040000 XX=XX/2 1373 164400 ZZ=ZZ-1000 1374 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1375 DMOVE AC,[200000,,0 1376 030762 120 04 0 00 043332 0,,0] 1377 DFAD AC,[200000,,XX 1378 030763 110 04 0 00 043377 0,,0] 1379 030764 312 04 0 00 043401 CAME AC,[ZZ,,0] 1380 030765 003 04 0 00 000215 ER3 AC,T 1381 030766 312 05 0 00 043330 CAME AC+1,[0,,0] 1382 030767 004 05 0 00 000215 ER4 AC+1,T 1383 030770 321 10 0 00 030762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1384 1385 000216 T=T+1 1386 020000 XX=XX/2 1387 163400 ZZ=ZZ-1000 1388 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1389 DMOVE AC,[200000,,0 1390 030771 120 04 0 00 043332 0,,0] 1391 DFAD AC,[200000,,XX 1392 030772 110 04 0 00 043402 0,,0] 1393 030773 312 04 0 00 043404 CAME AC,[ZZ,,0] 1394 030774 003 04 0 00 000216 ER3 AC,T 1395 030775 312 05 0 00 043330 CAME AC+1,[0,,0] 1396 030776 004 05 0 00 000216 ER4 AC+1,T 1397 030777 321 10 0 00 030771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1398 1399 000217 T=T+1 1400 010000 XX=XX/2 1401 162400 ZZ=ZZ-1000 1402 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0046 1403 DMOVE AC,[200000,,0 1404 031000 120 04 0 00 043332 0,,0] 1405 DFAD AC,[200000,,XX 1406 031001 110 04 0 00 043405 0,,0] 1407 031002 312 04 0 00 043407 CAME AC,[ZZ,,0] 1408 031003 003 04 0 00 000217 ER3 AC,T 1409 031004 312 05 0 00 043330 CAME AC+1,[0,,0] 1410 031005 004 05 0 00 000217 ER4 AC+1,T 1411 031006 321 10 0 00 031000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1412 1413 000220 T=T+1 1414 004000 XX=XX/2 1415 161400 ZZ=ZZ-1000 1416 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1417 DMOVE AC,[200000,,0 1418 031007 120 04 0 00 043332 0,,0] 1419 DFAD AC,[200000,,XX 1420 031010 110 04 0 00 043410 0,,0] 1421 031011 312 04 0 00 043412 CAME AC,[ZZ,,0] 1422 031012 003 04 0 00 000220 ER3 AC,T 1423 031013 312 05 0 00 043330 CAME AC+1,[0,,0] 1424 031014 004 05 0 00 000220 ER4 AC+1,T 1425 031015 321 10 0 00 031007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1426 1427 000221 T=T+1 1428 002000 XX=XX/2 1429 160400 ZZ=ZZ-1000 1430 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1431 DMOVE AC,[200000,,0 1432 031016 120 04 0 00 043332 0,,0] 1433 DFAD AC,[200000,,XX 1434 031017 110 04 0 00 043413 0,,0] 1435 031020 312 04 0 00 043415 CAME AC,[ZZ,,0] 1436 031021 003 04 0 00 000221 ER3 AC,T 1437 031022 312 05 0 00 043330 CAME AC+1,[0,,0] 1438 031023 004 05 0 00 000221 ER4 AC+1,T 1439 031024 321 10 0 00 031016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1440 1441 000222 T=T+1 1442 001000 XX=XX/2 1443 157400 ZZ=ZZ-1000 1444 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1445 DMOVE AC,[200000,,0 1446 031025 120 04 0 00 043332 0,,0] 1447 DFAD AC,[200000,,XX 1448 031026 110 04 0 00 043416 0,,0] 1449 031027 312 04 0 00 043420 CAME AC,[ZZ,,0] 1450 031030 003 04 0 00 000222 ER3 AC,T 1451 031031 312 05 0 00 043330 CAME AC+1,[0,,0] 1452 031032 004 05 0 00 000222 ER4 AC+1,T 1453 031033 321 10 0 00 031025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1454 1455 000223 T=T+1 1456 000400 XX=XX/2 1457 156400 ZZ=ZZ-1000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0047 1458 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1459 DMOVE AC,[200000,,0 1460 031034 120 04 0 00 043332 0,,0] 1461 DFAD AC,[200000,,XX 1462 031035 110 04 0 00 043421 0,,0] 1463 031036 312 04 0 00 043423 CAME AC,[ZZ,,0] 1464 031037 003 04 0 00 000223 ER3 AC,T 1465 031040 312 05 0 00 043330 CAME AC+1,[0,,0] 1466 031041 004 05 0 00 000223 ER4 AC+1,T 1467 031042 321 10 0 00 031034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1468 1469 000224 T=T+1 1470 000200 XX=XX/2 1471 155400 ZZ=ZZ-1000 1472 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1473 DMOVE AC,[200000,,0 1474 031043 120 04 0 00 043332 0,,0] 1475 DFAD AC,[200000,,XX 1476 031044 110 04 0 00 043424 0,,0] 1477 031045 312 04 0 00 043426 CAME AC,[ZZ,,0] 1478 031046 003 04 0 00 000224 ER3 AC,T 1479 031047 312 05 0 00 043330 CAME AC+1,[0,,0] 1480 031050 004 05 0 00 000224 ER4 AC+1,T 1481 031051 321 10 0 00 031043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1482 1483 000225 T=T+1 1484 000100 XX=XX/2 1485 154400 ZZ=ZZ-1000 1486 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1487 DMOVE AC,[200000,,0 1488 031052 120 04 0 00 043332 0,,0] 1489 DFAD AC,[200000,,XX 1490 031053 110 04 0 00 043427 0,,0] 1491 031054 312 04 0 00 043431 CAME AC,[ZZ,,0] 1492 031055 003 04 0 00 000225 ER3 AC,T 1493 031056 312 05 0 00 043330 CAME AC+1,[0,,0] 1494 031057 004 05 0 00 000225 ER4 AC+1,T 1495 031060 321 10 0 00 031052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1496 1497 000226 T=T+1 1498 000040 XX=XX/2 1499 153400 ZZ=ZZ-1000 1500 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1501 DMOVE AC,[200000,,0 1502 031061 120 04 0 00 043332 0,,0] 1503 DFAD AC,[200000,,XX 1504 031062 110 04 0 00 043432 0,,0] 1505 031063 312 04 0 00 043434 CAME AC,[ZZ,,0] 1506 031064 003 04 0 00 000226 ER3 AC,T 1507 031065 312 05 0 00 043330 CAME AC+1,[0,,0] 1508 031066 004 05 0 00 000226 ER4 AC+1,T 1509 031067 321 10 0 00 031061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1510 1511 000227 T=T+1 1512 000020 XX=XX/2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0048 1513 152400 ZZ=ZZ-1000 1514 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1515 DMOVE AC,[200000,,0 1516 031070 120 04 0 00 043332 0,,0] 1517 DFAD AC,[200000,,XX 1518 031071 110 04 0 00 043435 0,,0] 1519 031072 312 04 0 00 043437 CAME AC,[ZZ,,0] 1520 031073 003 04 0 00 000227 ER3 AC,T 1521 031074 312 05 0 00 043330 CAME AC+1,[0,,0] 1522 031075 004 05 0 00 000227 ER4 AC+1,T 1523 031076 321 10 0 00 031070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1524 1525 000230 T=T+1 1526 000010 XX=XX/2 1527 151400 ZZ=ZZ-1000 1528 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1529 DMOVE AC,[200000,,0 1530 031077 120 04 0 00 043332 0,,0] 1531 DFAD AC,[200000,,XX 1532 031100 110 04 0 00 043440 0,,0] 1533 031101 312 04 0 00 043442 CAME AC,[ZZ,,0] 1534 031102 003 04 0 00 000230 ER3 AC,T 1535 031103 312 05 0 00 043330 CAME AC+1,[0,,0] 1536 031104 004 05 0 00 000230 ER4 AC+1,T 1537 031105 321 10 0 00 031077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1538 1539 000231 T=T+1 1540 000004 XX=XX/2 1541 150400 ZZ=ZZ-1000 1542 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1543 DMOVE AC,[200000,,0 1544 031106 120 04 0 00 043332 0,,0] 1545 DFAD AC,[200000,,XX 1546 031107 110 04 0 00 043443 0,,0] 1547 031110 312 04 0 00 043445 CAME AC,[ZZ,,0] 1548 031111 003 04 0 00 000231 ER3 AC,T 1549 031112 312 05 0 00 043330 CAME AC+1,[0,,0] 1550 031113 004 05 0 00 000231 ER4 AC+1,T 1551 031114 321 10 0 00 031106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1552 1553 000232 T=T+1 1554 000002 XX=XX/2 1555 147400 ZZ=ZZ-1000 1556 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1557 DMOVE AC,[200000,,0 1558 031115 120 04 0 00 043332 0,,0] 1559 DFAD AC,[200000,,XX 1560 031116 110 04 0 00 043446 0,,0] 1561 031117 312 04 0 00 043450 CAME AC,[ZZ,,0] 1562 031120 003 04 0 00 000232 ER3 AC,T 1563 031121 312 05 0 00 043330 CAME AC+1,[0,,0] 1564 031122 004 05 0 00 000232 ER4 AC+1,T 1565 031123 321 10 0 00 031115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1566 1567 000233 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0049 1568 000001 XX=XX/2 1569 146400 ZZ=ZZ-1000 1570 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^ 1571 DMOVE AC,[200000,,0 1572 031124 120 04 0 00 043332 0,,0] 1573 DFAD AC,[200000,,XX 1574 031125 110 04 0 00 043451 0,,0] 1575 031126 312 04 0 00 043453 CAME AC,[ZZ,,0] 1576 031127 003 04 0 00 000233 ER3 AC,T 1577 031130 312 05 0 00 043330 CAME AC+1,[0,,0] 1578 031131 004 05 0 00 000233 ER4 AC+1,T 1579 031132 321 10 0 00 031124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1580 1581 1582 400000 XX=400000 1583 1584 000234 T=T+1 1585 DFARP T,200000,0,0,0,200000,0,XX,0,0,0,0,0^ 1586 DMOVE AC,[200000,,0 1587 031133 120 04 0 00 043332 0,,0] 1588 DFAD AC,[200000,,0 1589 031134 110 04 0 00 043454 XX,,0] 1590 031135 312 04 0 00 043330 CAME AC,[0,,0] 1591 031136 003 04 0 00 000234 ER3 AC,T 1592 031137 312 05 0 00 043330 CAME AC+1,[0,,0] 1593 031140 004 05 0 00 000234 ER4 AC+1,T 1594 031141 321 10 0 00 031133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1595 1596 REPEAT ^D17, 1597 1602 000235 T=T+1 1603 200000 XX=XX/2 1604 145400 ZZ=ZZ-1000 1605 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1606 DMOVE AC,[200000,,0 1607 031142 120 04 0 00 043332 0,,0] 1608 DFAD AC,[200000,,0 1609 031143 110 04 0 00 043456 XX,,0] 1610 031144 312 04 0 00 043460 CAME AC,[ZZ,,0] 1611 031145 003 04 0 00 000235 ER3 AC,T 1612 031146 312 05 0 00 043330 CAME AC+1,[0,,0] 1613 031147 004 05 0 00 000235 ER4 AC+1,T 1614 031150 321 10 0 00 031142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1615 1616 000236 T=T+1 1617 100000 XX=XX/2 1618 144400 ZZ=ZZ-1000 1619 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1620 DMOVE AC,[200000,,0 1621 031151 120 04 0 00 043332 0,,0] 1622 DFAD AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0050 1623 031152 110 04 0 00 043461 XX,,0] 1624 031153 312 04 0 00 043463 CAME AC,[ZZ,,0] 1625 031154 003 04 0 00 000236 ER3 AC,T 1626 031155 312 05 0 00 043330 CAME AC+1,[0,,0] 1627 031156 004 05 0 00 000236 ER4 AC+1,T 1628 031157 321 10 0 00 031151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1629 1630 000237 T=T+1 1631 040000 XX=XX/2 1632 143400 ZZ=ZZ-1000 1633 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1634 DMOVE AC,[200000,,0 1635 031160 120 04 0 00 043332 0,,0] 1636 DFAD AC,[200000,,0 1637 031161 110 04 0 00 043464 XX,,0] 1638 031162 312 04 0 00 043466 CAME AC,[ZZ,,0] 1639 031163 003 04 0 00 000237 ER3 AC,T 1640 031164 312 05 0 00 043330 CAME AC+1,[0,,0] 1641 031165 004 05 0 00 000237 ER4 AC+1,T 1642 031166 321 10 0 00 031160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1643 1644 000240 T=T+1 1645 020000 XX=XX/2 1646 142400 ZZ=ZZ-1000 1647 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1648 DMOVE AC,[200000,,0 1649 031167 120 04 0 00 043332 0,,0] 1650 DFAD AC,[200000,,0 1651 031170 110 04 0 00 043467 XX,,0] 1652 031171 312 04 0 00 043471 CAME AC,[ZZ,,0] 1653 031172 003 04 0 00 000240 ER3 AC,T 1654 031173 312 05 0 00 043330 CAME AC+1,[0,,0] 1655 031174 004 05 0 00 000240 ER4 AC+1,T 1656 031175 321 10 0 00 031167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1657 1658 000241 T=T+1 1659 010000 XX=XX/2 1660 141400 ZZ=ZZ-1000 1661 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1662 DMOVE AC,[200000,,0 1663 031176 120 04 0 00 043332 0,,0] 1664 DFAD AC,[200000,,0 1665 031177 110 04 0 00 043472 XX,,0] 1666 031200 312 04 0 00 043474 CAME AC,[ZZ,,0] 1667 031201 003 04 0 00 000241 ER3 AC,T 1668 031202 312 05 0 00 043330 CAME AC+1,[0,,0] 1669 031203 004 05 0 00 000241 ER4 AC+1,T 1670 031204 321 10 0 00 031176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1671 1672 000242 T=T+1 1673 004000 XX=XX/2 1674 140400 ZZ=ZZ-1000 1675 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1676 DMOVE AC,[200000,,0 1677 031205 120 04 0 00 043332 0,,0] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0051 1678 DFAD AC,[200000,,0 1679 031206 110 04 0 00 043475 XX,,0] 1680 031207 312 04 0 00 043477 CAME AC,[ZZ,,0] 1681 031210 003 04 0 00 000242 ER3 AC,T 1682 031211 312 05 0 00 043330 CAME AC+1,[0,,0] 1683 031212 004 05 0 00 000242 ER4 AC+1,T 1684 031213 321 10 0 00 031205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1685 1686 000243 T=T+1 1687 002000 XX=XX/2 1688 137400 ZZ=ZZ-1000 1689 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1690 DMOVE AC,[200000,,0 1691 031214 120 04 0 00 043332 0,,0] 1692 DFAD AC,[200000,,0 1693 031215 110 04 0 00 043500 XX,,0] 1694 031216 312 04 0 00 043502 CAME AC,[ZZ,,0] 1695 031217 003 04 0 00 000243 ER3 AC,T 1696 031220 312 05 0 00 043330 CAME AC+1,[0,,0] 1697 031221 004 05 0 00 000243 ER4 AC+1,T 1698 031222 321 10 0 00 031214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1699 1700 000244 T=T+1 1701 001000 XX=XX/2 1702 136400 ZZ=ZZ-1000 1703 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1704 DMOVE AC,[200000,,0 1705 031223 120 04 0 00 043332 0,,0] 1706 DFAD AC,[200000,,0 1707 031224 110 04 0 00 043503 XX,,0] 1708 031225 312 04 0 00 043505 CAME AC,[ZZ,,0] 1709 031226 003 04 0 00 000244 ER3 AC,T 1710 031227 312 05 0 00 043330 CAME AC+1,[0,,0] 1711 031230 004 05 0 00 000244 ER4 AC+1,T 1712 031231 321 10 0 00 031223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1713 1714 000245 T=T+1 1715 000400 XX=XX/2 1716 135400 ZZ=ZZ-1000 1717 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1718 DMOVE AC,[200000,,0 1719 031232 120 04 0 00 043332 0,,0] 1720 DFAD AC,[200000,,0 1721 031233 110 04 0 00 043506 XX,,0] 1722 031234 312 04 0 00 043510 CAME AC,[ZZ,,0] 1723 031235 003 04 0 00 000245 ER3 AC,T 1724 031236 312 05 0 00 043330 CAME AC+1,[0,,0] 1725 031237 004 05 0 00 000245 ER4 AC+1,T 1726 031240 321 10 0 00 031232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1727 1728 000246 T=T+1 1729 000200 XX=XX/2 1730 134400 ZZ=ZZ-1000 1731 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1732 DMOVE AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0052 1733 031241 120 04 0 00 043332 0,,0] 1734 DFAD AC,[200000,,0 1735 031242 110 04 0 00 043511 XX,,0] 1736 031243 312 04 0 00 043513 CAME AC,[ZZ,,0] 1737 031244 003 04 0 00 000246 ER3 AC,T 1738 031245 312 05 0 00 043330 CAME AC+1,[0,,0] 1739 031246 004 05 0 00 000246 ER4 AC+1,T 1740 031247 321 10 0 00 031241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1741 1742 000247 T=T+1 1743 000100 XX=XX/2 1744 133400 ZZ=ZZ-1000 1745 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1746 DMOVE AC,[200000,,0 1747 031250 120 04 0 00 043332 0,,0] 1748 DFAD AC,[200000,,0 1749 031251 110 04 0 00 043514 XX,,0] 1750 031252 312 04 0 00 043516 CAME AC,[ZZ,,0] 1751 031253 003 04 0 00 000247 ER3 AC,T 1752 031254 312 05 0 00 043330 CAME AC+1,[0,,0] 1753 031255 004 05 0 00 000247 ER4 AC+1,T 1754 031256 321 10 0 00 031250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1755 1756 000250 T=T+1 1757 000040 XX=XX/2 1758 132400 ZZ=ZZ-1000 1759 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1760 DMOVE AC,[200000,,0 1761 031257 120 04 0 00 043332 0,,0] 1762 DFAD AC,[200000,,0 1763 031260 110 04 0 00 043517 XX,,0] 1764 031261 312 04 0 00 043521 CAME AC,[ZZ,,0] 1765 031262 003 04 0 00 000250 ER3 AC,T 1766 031263 312 05 0 00 043330 CAME AC+1,[0,,0] 1767 031264 004 05 0 00 000250 ER4 AC+1,T 1768 031265 321 10 0 00 031257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1769 1770 000251 T=T+1 1771 000020 XX=XX/2 1772 131400 ZZ=ZZ-1000 1773 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1774 DMOVE AC,[200000,,0 1775 031266 120 04 0 00 043332 0,,0] 1776 DFAD AC,[200000,,0 1777 031267 110 04 0 00 043522 XX,,0] 1778 031270 312 04 0 00 043524 CAME AC,[ZZ,,0] 1779 031271 003 04 0 00 000251 ER3 AC,T 1780 031272 312 05 0 00 043330 CAME AC+1,[0,,0] 1781 031273 004 05 0 00 000251 ER4 AC+1,T 1782 031274 321 10 0 00 031266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1783 1784 000252 T=T+1 1785 000010 XX=XX/2 1786 130400 ZZ=ZZ-1000 1787 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0053 1788 DMOVE AC,[200000,,0 1789 031275 120 04 0 00 043332 0,,0] 1790 DFAD AC,[200000,,0 1791 031276 110 04 0 00 043525 XX,,0] 1792 031277 312 04 0 00 043527 CAME AC,[ZZ,,0] 1793 031300 003 04 0 00 000252 ER3 AC,T 1794 031301 312 05 0 00 043330 CAME AC+1,[0,,0] 1795 031302 004 05 0 00 000252 ER4 AC+1,T 1796 031303 321 10 0 00 031275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1797 1798 000253 T=T+1 1799 000004 XX=XX/2 1800 127400 ZZ=ZZ-1000 1801 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1802 DMOVE AC,[200000,,0 1803 031304 120 04 0 00 043332 0,,0] 1804 DFAD AC,[200000,,0 1805 031305 110 04 0 00 043530 XX,,0] 1806 031306 312 04 0 00 043532 CAME AC,[ZZ,,0] 1807 031307 003 04 0 00 000253 ER3 AC,T 1808 031310 312 05 0 00 043330 CAME AC+1,[0,,0] 1809 031311 004 05 0 00 000253 ER4 AC+1,T 1810 031312 321 10 0 00 031304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1811 1812 000254 T=T+1 1813 000002 XX=XX/2 1814 126400 ZZ=ZZ-1000 1815 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1816 DMOVE AC,[200000,,0 1817 031313 120 04 0 00 043332 0,,0] 1818 DFAD AC,[200000,,0 1819 031314 110 04 0 00 043533 XX,,0] 1820 031315 312 04 0 00 043535 CAME AC,[ZZ,,0] 1821 031316 003 04 0 00 000254 ER3 AC,T 1822 031317 312 05 0 00 043330 CAME AC+1,[0,,0] 1823 031320 004 05 0 00 000254 ER4 AC+1,T 1824 031321 321 10 0 00 031313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1825 1826 000255 T=T+1 1827 000001 XX=XX/2 1828 125400 ZZ=ZZ-1000 1829 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^ 1830 DMOVE AC,[200000,,0 1831 031322 120 04 0 00 043332 0,,0] 1832 DFAD AC,[200000,,0 1833 031323 110 04 0 00 043536 XX,,0] 1834 031324 312 04 0 00 043540 CAME AC,[ZZ,,0] 1835 031325 003 04 0 00 000255 ER3 AC,T 1836 031326 312 05 0 00 043330 CAME AC+1,[0,,0] 1837 031327 004 05 0 00 000255 ER4 AC+1,T 1838 031330 321 10 0 00 031322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1839 1840 1841 000001 000000 XX=1000000 1842 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0054 1843 REPEAT ^D18, 1844 1849 000256 T=T+1 1850 400000 XX=XX/2 1851 124400 ZZ=ZZ-1000 1852 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1853 DMOVE AC,[200000,,0 1854 031331 120 04 0 00 043332 0,,0] 1855 DFAD AC,[200000,,0 1856 031332 110 04 0 00 043541 0,,XX] 1857 031333 312 04 0 00 043543 CAME AC,[ZZ,,0] 1858 031334 003 04 0 00 000256 ER3 AC,T 1859 031335 312 05 0 00 043330 CAME AC+1,[0,,0] 1860 031336 004 05 0 00 000256 ER4 AC+1,T 1861 031337 321 10 0 00 031331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1862 1863 000257 T=T+1 1864 200000 XX=XX/2 1865 123400 ZZ=ZZ-1000 1866 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1867 DMOVE AC,[200000,,0 1868 031340 120 04 0 00 043332 0,,0] 1869 DFAD AC,[200000,,0 1870 031341 110 04 0 00 043544 0,,XX] 1871 031342 312 04 0 00 043546 CAME AC,[ZZ,,0] 1872 031343 003 04 0 00 000257 ER3 AC,T 1873 031344 312 05 0 00 043330 CAME AC+1,[0,,0] 1874 031345 004 05 0 00 000257 ER4 AC+1,T 1875 031346 321 10 0 00 031340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1876 1877 000260 T=T+1 1878 100000 XX=XX/2 1879 122400 ZZ=ZZ-1000 1880 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1881 DMOVE AC,[200000,,0 1882 031347 120 04 0 00 043332 0,,0] 1883 DFAD AC,[200000,,0 1884 031350 110 04 0 00 043547 0,,XX] 1885 031351 312 04 0 00 043551 CAME AC,[ZZ,,0] 1886 031352 003 04 0 00 000260 ER3 AC,T 1887 031353 312 05 0 00 043330 CAME AC+1,[0,,0] 1888 031354 004 05 0 00 000260 ER4 AC+1,T 1889 031355 321 10 0 00 031347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1890 1891 000261 T=T+1 1892 040000 XX=XX/2 1893 121400 ZZ=ZZ-1000 1894 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1895 DMOVE AC,[200000,,0 1896 031356 120 04 0 00 043332 0,,0] 1897 DFAD AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0055 1898 031357 110 04 0 00 043552 0,,XX] 1899 031360 312 04 0 00 043554 CAME AC,[ZZ,,0] 1900 031361 003 04 0 00 000261 ER3 AC,T 1901 031362 312 05 0 00 043330 CAME AC+1,[0,,0] 1902 031363 004 05 0 00 000261 ER4 AC+1,T 1903 031364 321 10 0 00 031356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1904 1905 000262 T=T+1 1906 020000 XX=XX/2 1907 120400 ZZ=ZZ-1000 1908 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1909 DMOVE AC,[200000,,0 1910 031365 120 04 0 00 043332 0,,0] 1911 DFAD AC,[200000,,0 1912 031366 110 04 0 00 043555 0,,XX] 1913 031367 312 04 0 00 043557 CAME AC,[ZZ,,0] 1914 031370 003 04 0 00 000262 ER3 AC,T 1915 031371 312 05 0 00 043330 CAME AC+1,[0,,0] 1916 031372 004 05 0 00 000262 ER4 AC+1,T 1917 031373 321 10 0 00 031365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1918 1919 000263 T=T+1 1920 010000 XX=XX/2 1921 117400 ZZ=ZZ-1000 1922 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1923 DMOVE AC,[200000,,0 1924 031374 120 04 0 00 043332 0,,0] 1925 DFAD AC,[200000,,0 1926 031375 110 04 0 00 043560 0,,XX] 1927 031376 312 04 0 00 043562 CAME AC,[ZZ,,0] 1928 031377 003 04 0 00 000263 ER3 AC,T 1929 031400 312 05 0 00 043330 CAME AC+1,[0,,0] 1930 031401 004 05 0 00 000263 ER4 AC+1,T 1931 031402 321 10 0 00 031374 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1932 1933 000264 T=T+1 1934 004000 XX=XX/2 1935 116400 ZZ=ZZ-1000 1936 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1937 DMOVE AC,[200000,,0 1938 031403 120 04 0 00 043332 0,,0] 1939 DFAD AC,[200000,,0 1940 031404 110 04 0 00 043563 0,,XX] 1941 031405 312 04 0 00 043565 CAME AC,[ZZ,,0] 1942 031406 003 04 0 00 000264 ER3 AC,T 1943 031407 312 05 0 00 043330 CAME AC+1,[0,,0] 1944 031410 004 05 0 00 000264 ER4 AC+1,T 1945 031411 321 10 0 00 031403 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1946 1947 000265 T=T+1 1948 002000 XX=XX/2 1949 115400 ZZ=ZZ-1000 1950 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1951 DMOVE AC,[200000,,0 1952 031412 120 04 0 00 043332 0,,0] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0056 1953 DFAD AC,[200000,,0 1954 031413 110 04 0 00 043566 0,,XX] 1955 031414 312 04 0 00 043570 CAME AC,[ZZ,,0] 1956 031415 003 04 0 00 000265 ER3 AC,T 1957 031416 312 05 0 00 043330 CAME AC+1,[0,,0] 1958 031417 004 05 0 00 000265 ER4 AC+1,T 1959 031420 321 10 0 00 031412 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1960 1961 000266 T=T+1 1962 001000 XX=XX/2 1963 114400 ZZ=ZZ-1000 1964 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1965 DMOVE AC,[200000,,0 1966 031421 120 04 0 00 043332 0,,0] 1967 DFAD AC,[200000,,0 1968 031422 110 04 0 00 043571 0,,XX] 1969 031423 312 04 0 00 043573 CAME AC,[ZZ,,0] 1970 031424 003 04 0 00 000266 ER3 AC,T 1971 031425 312 05 0 00 043330 CAME AC+1,[0,,0] 1972 031426 004 05 0 00 000266 ER4 AC+1,T 1973 031427 321 10 0 00 031421 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1974 1975 000267 T=T+1 1976 000400 XX=XX/2 1977 113400 ZZ=ZZ-1000 1978 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1979 DMOVE AC,[200000,,0 1980 031430 120 04 0 00 043332 0,,0] 1981 DFAD AC,[200000,,0 1982 031431 110 04 0 00 043574 0,,XX] 1983 031432 312 04 0 00 043576 CAME AC,[ZZ,,0] 1984 031433 003 04 0 00 000267 ER3 AC,T 1985 031434 312 05 0 00 043330 CAME AC+1,[0,,0] 1986 031435 004 05 0 00 000267 ER4 AC+1,T 1987 031436 321 10 0 00 031430 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1988 1989 000270 T=T+1 1990 000200 XX=XX/2 1991 112400 ZZ=ZZ-1000 1992 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 1993 DMOVE AC,[200000,,0 1994 031437 120 04 0 00 043332 0,,0] 1995 DFAD AC,[200000,,0 1996 031440 110 04 0 00 043577 0,,XX] 1997 031441 312 04 0 00 043601 CAME AC,[ZZ,,0] 1998 031442 003 04 0 00 000270 ER3 AC,T 1999 031443 312 05 0 00 043330 CAME AC+1,[0,,0] 2000 031444 004 05 0 00 000270 ER4 AC+1,T 2001 031445 321 10 0 00 031437 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2002 2003 000271 T=T+1 2004 000100 XX=XX/2 2005 111400 ZZ=ZZ-1000 2006 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 2007 DMOVE AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0057 2008 031446 120 04 0 00 043332 0,,0] 2009 DFAD AC,[200000,,0 2010 031447 110 04 0 00 043602 0,,XX] 2011 031450 312 04 0 00 043604 CAME AC,[ZZ,,0] 2012 031451 003 04 0 00 000271 ER3 AC,T 2013 031452 312 05 0 00 043330 CAME AC+1,[0,,0] 2014 031453 004 05 0 00 000271 ER4 AC+1,T 2015 031454 321 10 0 00 031446 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2016 2017 000272 T=T+1 2018 000040 XX=XX/2 2019 110400 ZZ=ZZ-1000 2020 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 2021 DMOVE AC,[200000,,0 2022 031455 120 04 0 00 043332 0,,0] 2023 DFAD AC,[200000,,0 2024 031456 110 04 0 00 043605 0,,XX] 2025 031457 312 04 0 00 043607 CAME AC,[ZZ,,0] 2026 031460 003 04 0 00 000272 ER3 AC,T 2027 031461 312 05 0 00 043330 CAME AC+1,[0,,0] 2028 031462 004 05 0 00 000272 ER4 AC+1,T 2029 031463 321 10 0 00 031455 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2030 2031 000273 T=T+1 2032 000020 XX=XX/2 2033 107400 ZZ=ZZ-1000 2034 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 2035 DMOVE AC,[200000,,0 2036 031464 120 04 0 00 043332 0,,0] 2037 DFAD AC,[200000,,0 2038 031465 110 04 0 00 043610 0,,XX] 2039 031466 312 04 0 00 043612 CAME AC,[ZZ,,0] 2040 031467 003 04 0 00 000273 ER3 AC,T 2041 031470 312 05 0 00 043330 CAME AC+1,[0,,0] 2042 031471 004 05 0 00 000273 ER4 AC+1,T 2043 031472 321 10 0 00 031464 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2044 2045 000274 T=T+1 2046 000010 XX=XX/2 2047 106400 ZZ=ZZ-1000 2048 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 2049 DMOVE AC,[200000,,0 2050 031473 120 04 0 00 043332 0,,0] 2051 DFAD AC,[200000,,0 2052 031474 110 04 0 00 043613 0,,XX] 2053 031475 312 04 0 00 043615 CAME AC,[ZZ,,0] 2054 031476 003 04 0 00 000274 ER3 AC,T 2055 031477 312 05 0 00 043330 CAME AC+1,[0,,0] 2056 031500 004 05 0 00 000274 ER4 AC+1,T 2057 031501 321 10 0 00 031473 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2058 2059 000275 T=T+1 2060 000004 XX=XX/2 2061 105400 ZZ=ZZ-1000 2062 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0058 2063 DMOVE AC,[200000,,0 2064 031502 120 04 0 00 043332 0,,0] 2065 DFAD AC,[200000,,0 2066 031503 110 04 0 00 043616 0,,XX] 2067 031504 312 04 0 00 043620 CAME AC,[ZZ,,0] 2068 031505 003 04 0 00 000275 ER3 AC,T 2069 031506 312 05 0 00 043330 CAME AC+1,[0,,0] 2070 031507 004 05 0 00 000275 ER4 AC+1,T 2071 031510 321 10 0 00 031502 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2072 2073 000276 T=T+1 2074 000002 XX=XX/2 2075 104400 ZZ=ZZ-1000 2076 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 2077 DMOVE AC,[200000,,0 2078 031511 120 04 0 00 043332 0,,0] 2079 DFAD AC,[200000,,0 2080 031512 110 04 0 00 043621 0,,XX] 2081 031513 312 04 0 00 043623 CAME AC,[ZZ,,0] 2082 031514 003 04 0 00 000276 ER3 AC,T 2083 031515 312 05 0 00 043330 CAME AC+1,[0,,0] 2084 031516 004 05 0 00 000276 ER4 AC+1,T 2085 031517 321 10 0 00 031511 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2086 2087 000277 T=T+1 2088 000001 XX=XX/2 2089 103400 ZZ=ZZ-1000 2090 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^ 2091 DMOVE AC,[200000,,0 2092 031520 120 04 0 00 043332 0,,0] 2093 DFAD AC,[200000,,0 2094 031521 110 04 0 00 043624 0,,XX] 2095 031522 312 04 0 00 043626 CAME AC,[ZZ,,0] 2096 031523 003 04 0 00 000277 ER3 AC,T 2097 031524 312 05 0 00 043330 CAME AC+1,[0,,0] 2098 031525 004 05 0 00 000277 ER4 AC+1,T 2099 031526 321 10 0 00 031520 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2100 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0059 2101 ;RIPPLE ONES TEST (TO A RIPPLED ONE, ADD A WORD OF ALL ZEROS) 2102 000300 T=300 2103 001000 XX=1000 2104 201400 ZZ=201400 2105 2106 R300: REPEAT ^D9, 2107 2112 000301 T=T+1 2113 000400 XX=XX/2 2114 200400 ZZ=ZZ-1000 2115 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2116 DMOVE AC,[200000+XX,,0 2117 031527 120 04 0 00 043334 0,,0] 2118 DFAD AC,[200000,,0 2119 031530 110 04 0 00 043332 0,,0] 2120 031531 312 04 0 00 043334 CAME AC,[ZZ,,0] 2121 031532 003 04 0 00 000301 ER3 AC,T 2122 031533 312 05 0 00 043330 CAME AC+1,[0,,0] 2123 031534 004 05 0 00 000301 ER4 AC+1,T 2124 031535 321 10 0 00 031527 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2125 2126 000302 T=T+1 2127 000200 XX=XX/2 2128 177400 ZZ=ZZ-1000 2129 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2130 DMOVE AC,[200000+XX,,0 2131 031536 120 04 0 00 043336 0,,0] 2132 DFAD AC,[200000,,0 2133 031537 110 04 0 00 043332 0,,0] 2134 031540 312 04 0 00 043340 CAME AC,[ZZ,,0] 2135 031541 003 04 0 00 000302 ER3 AC,T 2136 031542 312 05 0 00 043330 CAME AC+1,[0,,0] 2137 031543 004 05 0 00 000302 ER4 AC+1,T 2138 031544 321 10 0 00 031536 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2139 2140 000303 T=T+1 2141 000100 XX=XX/2 2142 176400 ZZ=ZZ-1000 2143 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2144 DMOVE AC,[200000+XX,,0 2145 031545 120 04 0 00 043341 0,,0] 2146 DFAD AC,[200000,,0 2147 031546 110 04 0 00 043332 0,,0] 2148 031547 312 04 0 00 043343 CAME AC,[ZZ,,0] 2149 031550 003 04 0 00 000303 ER3 AC,T 2150 031551 312 05 0 00 043330 CAME AC+1,[0,,0] 2151 031552 004 05 0 00 000303 ER4 AC+1,T 2152 031553 321 10 0 00 031545 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2153 2154 000304 T=T+1 2155 000040 XX=XX/2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0060 2156 175400 ZZ=ZZ-1000 2157 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2158 DMOVE AC,[200000+XX,,0 2159 031554 120 04 0 00 043344 0,,0] 2160 DFAD AC,[200000,,0 2161 031555 110 04 0 00 043332 0,,0] 2162 031556 312 04 0 00 043346 CAME AC,[ZZ,,0] 2163 031557 003 04 0 00 000304 ER3 AC,T 2164 031560 312 05 0 00 043330 CAME AC+1,[0,,0] 2165 031561 004 05 0 00 000304 ER4 AC+1,T 2166 031562 321 10 0 00 031554 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2167 2168 000305 T=T+1 2169 000020 XX=XX/2 2170 174400 ZZ=ZZ-1000 2171 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2172 DMOVE AC,[200000+XX,,0 2173 031563 120 04 0 00 043347 0,,0] 2174 DFAD AC,[200000,,0 2175 031564 110 04 0 00 043332 0,,0] 2176 031565 312 04 0 00 043351 CAME AC,[ZZ,,0] 2177 031566 003 04 0 00 000305 ER3 AC,T 2178 031567 312 05 0 00 043330 CAME AC+1,[0,,0] 2179 031570 004 05 0 00 000305 ER4 AC+1,T 2180 031571 321 10 0 00 031563 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2181 2182 000306 T=T+1 2183 000010 XX=XX/2 2184 173400 ZZ=ZZ-1000 2185 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2186 DMOVE AC,[200000+XX,,0 2187 031572 120 04 0 00 043352 0,,0] 2188 DFAD AC,[200000,,0 2189 031573 110 04 0 00 043332 0,,0] 2190 031574 312 04 0 00 043354 CAME AC,[ZZ,,0] 2191 031575 003 04 0 00 000306 ER3 AC,T 2192 031576 312 05 0 00 043330 CAME AC+1,[0,,0] 2193 031577 004 05 0 00 000306 ER4 AC+1,T 2194 031600 321 10 0 00 031572 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2195 2196 000307 T=T+1 2197 000004 XX=XX/2 2198 172400 ZZ=ZZ-1000 2199 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2200 DMOVE AC,[200000+XX,,0 2201 031601 120 04 0 00 043355 0,,0] 2202 DFAD AC,[200000,,0 2203 031602 110 04 0 00 043332 0,,0] 2204 031603 312 04 0 00 043357 CAME AC,[ZZ,,0] 2205 031604 003 04 0 00 000307 ER3 AC,T 2206 031605 312 05 0 00 043330 CAME AC+1,[0,,0] 2207 031606 004 05 0 00 000307 ER4 AC+1,T 2208 031607 321 10 0 00 031601 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2209 2210 000310 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0061 2211 000002 XX=XX/2 2212 171400 ZZ=ZZ-1000 2213 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2214 DMOVE AC,[200000+XX,,0 2215 031610 120 04 0 00 043360 0,,0] 2216 DFAD AC,[200000,,0 2217 031611 110 04 0 00 043332 0,,0] 2218 031612 312 04 0 00 043362 CAME AC,[ZZ,,0] 2219 031613 003 04 0 00 000310 ER3 AC,T 2220 031614 312 05 0 00 043330 CAME AC+1,[0,,0] 2221 031615 004 05 0 00 000310 ER4 AC+1,T 2222 031616 321 10 0 00 031610 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2223 2224 000311 T=T+1 2225 000001 XX=XX/2 2226 170400 ZZ=ZZ-1000 2227 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^ 2228 DMOVE AC,[200000+XX,,0 2229 031617 120 04 0 00 043363 0,,0] 2230 DFAD AC,[200000,,0 2231 031620 110 04 0 00 043332 0,,0] 2232 031621 312 04 0 00 043365 CAME AC,[ZZ,,0] 2233 031622 003 04 0 00 000311 ER3 AC,T 2234 031623 312 05 0 00 043330 CAME AC+1,[0,,0] 2235 031624 004 05 0 00 000311 ER4 AC+1,T 2236 031625 321 10 0 00 031617 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2237 2238 2239 000001 000000 XX=1000000 2240 2241 REPEAT ^D18, 2242 2247 000312 T=T+1 2248 400000 XX=XX/2 2249 167400 ZZ=ZZ-1000 2250 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2251 DMOVE AC,[200000,,XX 2252 031626 120 04 0 00 043366 0,,0] 2253 DFAD AC,[200000,,0 2254 031627 110 04 0 00 043332 0,,0] 2255 031630 312 04 0 00 043370 CAME AC,[ZZ,,0] 2256 031631 003 04 0 00 000312 ER3 AC,T 2257 031632 312 05 0 00 043330 CAME AC+1,[0,,0] 2258 031633 004 05 0 00 000312 ER4 AC+1,T 2259 031634 321 10 0 00 031626 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2260 2261 000313 T=T+1 2262 200000 XX=XX/2 2263 166400 ZZ=ZZ-1000 2264 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2265 DMOVE AC,[200000,,XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0062 2266 031635 120 04 0 00 043371 0,,0] 2267 DFAD AC,[200000,,0 2268 031636 110 04 0 00 043332 0,,0] 2269 031637 312 04 0 00 043373 CAME AC,[ZZ,,0] 2270 031640 003 04 0 00 000313 ER3 AC,T 2271 031641 312 05 0 00 043330 CAME AC+1,[0,,0] 2272 031642 004 05 0 00 000313 ER4 AC+1,T 2273 031643 321 10 0 00 031635 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2274 2275 000314 T=T+1 2276 100000 XX=XX/2 2277 165400 ZZ=ZZ-1000 2278 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2279 DMOVE AC,[200000,,XX 2280 031644 120 04 0 00 043374 0,,0] 2281 DFAD AC,[200000,,0 2282 031645 110 04 0 00 043332 0,,0] 2283 031646 312 04 0 00 043376 CAME AC,[ZZ,,0] 2284 031647 003 04 0 00 000314 ER3 AC,T 2285 031650 312 05 0 00 043330 CAME AC+1,[0,,0] 2286 031651 004 05 0 00 000314 ER4 AC+1,T 2287 031652 321 10 0 00 031644 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2288 2289 000315 T=T+1 2290 040000 XX=XX/2 2291 164400 ZZ=ZZ-1000 2292 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2293 DMOVE AC,[200000,,XX 2294 031653 120 04 0 00 043377 0,,0] 2295 DFAD AC,[200000,,0 2296 031654 110 04 0 00 043332 0,,0] 2297 031655 312 04 0 00 043401 CAME AC,[ZZ,,0] 2298 031656 003 04 0 00 000315 ER3 AC,T 2299 031657 312 05 0 00 043330 CAME AC+1,[0,,0] 2300 031660 004 05 0 00 000315 ER4 AC+1,T 2301 031661 321 10 0 00 031653 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2302 2303 000316 T=T+1 2304 020000 XX=XX/2 2305 163400 ZZ=ZZ-1000 2306 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2307 DMOVE AC,[200000,,XX 2308 031662 120 04 0 00 043402 0,,0] 2309 DFAD AC,[200000,,0 2310 031663 110 04 0 00 043332 0,,0] 2311 031664 312 04 0 00 043404 CAME AC,[ZZ,,0] 2312 031665 003 04 0 00 000316 ER3 AC,T 2313 031666 312 05 0 00 043330 CAME AC+1,[0,,0] 2314 031667 004 05 0 00 000316 ER4 AC+1,T 2315 031670 321 10 0 00 031662 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2316 2317 000317 T=T+1 2318 010000 XX=XX/2 2319 162400 ZZ=ZZ-1000 2320 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0063 2321 DMOVE AC,[200000,,XX 2322 031671 120 04 0 00 043405 0,,0] 2323 DFAD AC,[200000,,0 2324 031672 110 04 0 00 043332 0,,0] 2325 031673 312 04 0 00 043407 CAME AC,[ZZ,,0] 2326 031674 003 04 0 00 000317 ER3 AC,T 2327 031675 312 05 0 00 043330 CAME AC+1,[0,,0] 2328 031676 004 05 0 00 000317 ER4 AC+1,T 2329 031677 321 10 0 00 031671 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2330 2331 000320 T=T+1 2332 004000 XX=XX/2 2333 161400 ZZ=ZZ-1000 2334 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2335 DMOVE AC,[200000,,XX 2336 031700 120 04 0 00 043410 0,,0] 2337 DFAD AC,[200000,,0 2338 031701 110 04 0 00 043332 0,,0] 2339 031702 312 04 0 00 043412 CAME AC,[ZZ,,0] 2340 031703 003 04 0 00 000320 ER3 AC,T 2341 031704 312 05 0 00 043330 CAME AC+1,[0,,0] 2342 031705 004 05 0 00 000320 ER4 AC+1,T 2343 031706 321 10 0 00 031700 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2344 2345 000321 T=T+1 2346 002000 XX=XX/2 2347 160400 ZZ=ZZ-1000 2348 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2349 DMOVE AC,[200000,,XX 2350 031707 120 04 0 00 043413 0,,0] 2351 DFAD AC,[200000,,0 2352 031710 110 04 0 00 043332 0,,0] 2353 031711 312 04 0 00 043415 CAME AC,[ZZ,,0] 2354 031712 003 04 0 00 000321 ER3 AC,T 2355 031713 312 05 0 00 043330 CAME AC+1,[0,,0] 2356 031714 004 05 0 00 000321 ER4 AC+1,T 2357 031715 321 10 0 00 031707 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2358 2359 000322 T=T+1 2360 001000 XX=XX/2 2361 157400 ZZ=ZZ-1000 2362 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2363 DMOVE AC,[200000,,XX 2364 031716 120 04 0 00 043416 0,,0] 2365 DFAD AC,[200000,,0 2366 031717 110 04 0 00 043332 0,,0] 2367 031720 312 04 0 00 043420 CAME AC,[ZZ,,0] 2368 031721 003 04 0 00 000322 ER3 AC,T 2369 031722 312 05 0 00 043330 CAME AC+1,[0,,0] 2370 031723 004 05 0 00 000322 ER4 AC+1,T 2371 031724 321 10 0 00 031716 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2372 2373 000323 T=T+1 2374 000400 XX=XX/2 2375 156400 ZZ=ZZ-1000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0064 2376 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2377 DMOVE AC,[200000,,XX 2378 031725 120 04 0 00 043421 0,,0] 2379 DFAD AC,[200000,,0 2380 031726 110 04 0 00 043332 0,,0] 2381 031727 312 04 0 00 043423 CAME AC,[ZZ,,0] 2382 031730 003 04 0 00 000323 ER3 AC,T 2383 031731 312 05 0 00 043330 CAME AC+1,[0,,0] 2384 031732 004 05 0 00 000323 ER4 AC+1,T 2385 031733 321 10 0 00 031725 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2386 2387 000324 T=T+1 2388 000200 XX=XX/2 2389 155400 ZZ=ZZ-1000 2390 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2391 DMOVE AC,[200000,,XX 2392 031734 120 04 0 00 043424 0,,0] 2393 DFAD AC,[200000,,0 2394 031735 110 04 0 00 043332 0,,0] 2395 031736 312 04 0 00 043426 CAME AC,[ZZ,,0] 2396 031737 003 04 0 00 000324 ER3 AC,T 2397 031740 312 05 0 00 043330 CAME AC+1,[0,,0] 2398 031741 004 05 0 00 000324 ER4 AC+1,T 2399 031742 321 10 0 00 031734 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2400 2401 000325 T=T+1 2402 000100 XX=XX/2 2403 154400 ZZ=ZZ-1000 2404 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2405 DMOVE AC,[200000,,XX 2406 031743 120 04 0 00 043427 0,,0] 2407 DFAD AC,[200000,,0 2408 031744 110 04 0 00 043332 0,,0] 2409 031745 312 04 0 00 043431 CAME AC,[ZZ,,0] 2410 031746 003 04 0 00 000325 ER3 AC,T 2411 031747 312 05 0 00 043330 CAME AC+1,[0,,0] 2412 031750 004 05 0 00 000325 ER4 AC+1,T 2413 031751 321 10 0 00 031743 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2414 2415 000326 T=T+1 2416 000040 XX=XX/2 2417 153400 ZZ=ZZ-1000 2418 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2419 DMOVE AC,[200000,,XX 2420 031752 120 04 0 00 043432 0,,0] 2421 DFAD AC,[200000,,0 2422 031753 110 04 0 00 043332 0,,0] 2423 031754 312 04 0 00 043434 CAME AC,[ZZ,,0] 2424 031755 003 04 0 00 000326 ER3 AC,T 2425 031756 312 05 0 00 043330 CAME AC+1,[0,,0] 2426 031757 004 05 0 00 000326 ER4 AC+1,T 2427 031760 321 10 0 00 031752 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2428 2429 000327 T=T+1 2430 000020 XX=XX/2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0065 2431 152400 ZZ=ZZ-1000 2432 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2433 DMOVE AC,[200000,,XX 2434 031761 120 04 0 00 043435 0,,0] 2435 DFAD AC,[200000,,0 2436 031762 110 04 0 00 043332 0,,0] 2437 031763 312 04 0 00 043437 CAME AC,[ZZ,,0] 2438 031764 003 04 0 00 000327 ER3 AC,T 2439 031765 312 05 0 00 043330 CAME AC+1,[0,,0] 2440 031766 004 05 0 00 000327 ER4 AC+1,T 2441 031767 321 10 0 00 031761 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2442 2443 000330 T=T+1 2444 000010 XX=XX/2 2445 151400 ZZ=ZZ-1000 2446 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2447 DMOVE AC,[200000,,XX 2448 031770 120 04 0 00 043440 0,,0] 2449 DFAD AC,[200000,,0 2450 031771 110 04 0 00 043332 0,,0] 2451 031772 312 04 0 00 043442 CAME AC,[ZZ,,0] 2452 031773 003 04 0 00 000330 ER3 AC,T 2453 031774 312 05 0 00 043330 CAME AC+1,[0,,0] 2454 031775 004 05 0 00 000330 ER4 AC+1,T 2455 031776 321 10 0 00 031770 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2456 2457 000331 T=T+1 2458 000004 XX=XX/2 2459 150400 ZZ=ZZ-1000 2460 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2461 DMOVE AC,[200000,,XX 2462 031777 120 04 0 00 043443 0,,0] 2463 DFAD AC,[200000,,0 2464 032000 110 04 0 00 043332 0,,0] 2465 032001 312 04 0 00 043445 CAME AC,[ZZ,,0] 2466 032002 003 04 0 00 000331 ER3 AC,T 2467 032003 312 05 0 00 043330 CAME AC+1,[0,,0] 2468 032004 004 05 0 00 000331 ER4 AC+1,T 2469 032005 321 10 0 00 031777 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2470 2471 000332 T=T+1 2472 000002 XX=XX/2 2473 147400 ZZ=ZZ-1000 2474 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2475 DMOVE AC,[200000,,XX 2476 032006 120 04 0 00 043446 0,,0] 2477 DFAD AC,[200000,,0 2478 032007 110 04 0 00 043332 0,,0] 2479 032010 312 04 0 00 043450 CAME AC,[ZZ,,0] 2480 032011 003 04 0 00 000332 ER3 AC,T 2481 032012 312 05 0 00 043330 CAME AC+1,[0,,0] 2482 032013 004 05 0 00 000332 ER4 AC+1,T 2483 032014 321 10 0 00 032006 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2484 2485 000333 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0066 2486 000001 XX=XX/2 2487 146400 ZZ=ZZ-1000 2488 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^ 2489 DMOVE AC,[200000,,XX 2490 032015 120 04 0 00 043451 0,,0] 2491 DFAD AC,[200000,,0 2492 032016 110 04 0 00 043332 0,,0] 2493 032017 312 04 0 00 043453 CAME AC,[ZZ,,0] 2494 032020 003 04 0 00 000333 ER3 AC,T 2495 032021 312 05 0 00 043330 CAME AC+1,[0,,0] 2496 032022 004 05 0 00 000333 ER4 AC+1,T 2497 032023 321 10 0 00 032015 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2498 2499 2500 400000 XX=400000 2501 2502 000334 T=T+1 2503 DFARP T,200000,0,XX,0,200000,0,0,0,0,0,0,0^ 2504 DMOVE AC,[200000,,0 2505 032024 120 04 0 00 043454 XX,,0] 2506 DFAD AC,[200000,,0 2507 032025 110 04 0 00 043332 0,,0] 2508 032026 312 04 0 00 043330 CAME AC,[0,,0] 2509 032027 003 04 0 00 000334 ER3 AC,T 2510 032030 312 05 0 00 043330 CAME AC+1,[0,,0] 2511 032031 004 05 0 00 000334 ER4 AC+1,T 2512 032032 321 10 0 00 032024 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2513 2514 REPEAT ^D17, 2515 2521 000335 T=T+1 2522 200000 XX=XX/2 2523 145400 ZZ=ZZ-1000 2524 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2525 DMOVE AC,[200000,,0 2526 032033 120 04 0 00 043456 XX,,0] 2527 DFAD AC,[200000,,0 2528 032034 110 04 0 00 043332 0,,0] 2529 032035 312 04 0 00 043460 CAME AC,[ZZ,,0] 2530 032036 003 04 0 00 000335 ER3 AC,T 2531 032037 312 05 0 00 043330 CAME AC+1,[0,,0] 2532 032040 004 05 0 00 000335 ER4 AC+1,T 2533 032041 321 10 0 00 032033 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2534 2535 2536 000336 T=T+1 2537 100000 XX=XX/2 2538 144400 ZZ=ZZ-1000 2539 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2540 DMOVE AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0067 2541 032042 120 04 0 00 043461 XX,,0] 2542 DFAD AC,[200000,,0 2543 032043 110 04 0 00 043332 0,,0] 2544 032044 312 04 0 00 043463 CAME AC,[ZZ,,0] 2545 032045 003 04 0 00 000336 ER3 AC,T 2546 032046 312 05 0 00 043330 CAME AC+1,[0,,0] 2547 032047 004 05 0 00 000336 ER4 AC+1,T 2548 032050 321 10 0 00 032042 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2549 2550 2551 000337 T=T+1 2552 040000 XX=XX/2 2553 143400 ZZ=ZZ-1000 2554 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2555 DMOVE AC,[200000,,0 2556 032051 120 04 0 00 043464 XX,,0] 2557 DFAD AC,[200000,,0 2558 032052 110 04 0 00 043332 0,,0] 2559 032053 312 04 0 00 043466 CAME AC,[ZZ,,0] 2560 032054 003 04 0 00 000337 ER3 AC,T 2561 032055 312 05 0 00 043330 CAME AC+1,[0,,0] 2562 032056 004 05 0 00 000337 ER4 AC+1,T 2563 032057 321 10 0 00 032051 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2564 2565 2566 000340 T=T+1 2567 020000 XX=XX/2 2568 142400 ZZ=ZZ-1000 2569 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2570 DMOVE AC,[200000,,0 2571 032060 120 04 0 00 043467 XX,,0] 2572 DFAD AC,[200000,,0 2573 032061 110 04 0 00 043332 0,,0] 2574 032062 312 04 0 00 043471 CAME AC,[ZZ,,0] 2575 032063 003 04 0 00 000340 ER3 AC,T 2576 032064 312 05 0 00 043330 CAME AC+1,[0,,0] 2577 032065 004 05 0 00 000340 ER4 AC+1,T 2578 032066 321 10 0 00 032060 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2579 2580 2581 000341 T=T+1 2582 010000 XX=XX/2 2583 141400 ZZ=ZZ-1000 2584 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2585 DMOVE AC,[200000,,0 2586 032067 120 04 0 00 043472 XX,,0] 2587 DFAD AC,[200000,,0 2588 032070 110 04 0 00 043332 0,,0] 2589 032071 312 04 0 00 043474 CAME AC,[ZZ,,0] 2590 032072 003 04 0 00 000341 ER3 AC,T 2591 032073 312 05 0 00 043330 CAME AC+1,[0,,0] 2592 032074 004 05 0 00 000341 ER4 AC+1,T 2593 032075 321 10 0 00 032067 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2594 2595 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0068 2596 000342 T=T+1 2597 004000 XX=XX/2 2598 140400 ZZ=ZZ-1000 2599 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2600 DMOVE AC,[200000,,0 2601 032076 120 04 0 00 043475 XX,,0] 2602 DFAD AC,[200000,,0 2603 032077 110 04 0 00 043332 0,,0] 2604 032100 312 04 0 00 043477 CAME AC,[ZZ,,0] 2605 032101 003 04 0 00 000342 ER3 AC,T 2606 032102 312 05 0 00 043330 CAME AC+1,[0,,0] 2607 032103 004 05 0 00 000342 ER4 AC+1,T 2608 032104 321 10 0 00 032076 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2609 2610 2611 000343 T=T+1 2612 002000 XX=XX/2 2613 137400 ZZ=ZZ-1000 2614 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2615 DMOVE AC,[200000,,0 2616 032105 120 04 0 00 043500 XX,,0] 2617 DFAD AC,[200000,,0 2618 032106 110 04 0 00 043332 0,,0] 2619 032107 312 04 0 00 043502 CAME AC,[ZZ,,0] 2620 032110 003 04 0 00 000343 ER3 AC,T 2621 032111 312 05 0 00 043330 CAME AC+1,[0,,0] 2622 032112 004 05 0 00 000343 ER4 AC+1,T 2623 032113 321 10 0 00 032105 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2624 2625 2626 000344 T=T+1 2627 001000 XX=XX/2 2628 136400 ZZ=ZZ-1000 2629 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2630 DMOVE AC,[200000,,0 2631 032114 120 04 0 00 043503 XX,,0] 2632 DFAD AC,[200000,,0 2633 032115 110 04 0 00 043332 0,,0] 2634 032116 312 04 0 00 043505 CAME AC,[ZZ,,0] 2635 032117 003 04 0 00 000344 ER3 AC,T 2636 032120 312 05 0 00 043330 CAME AC+1,[0,,0] 2637 032121 004 05 0 00 000344 ER4 AC+1,T 2638 032122 321 10 0 00 032114 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2639 2640 2641 000345 T=T+1 2642 000400 XX=XX/2 2643 135400 ZZ=ZZ-1000 2644 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2645 DMOVE AC,[200000,,0 2646 032123 120 04 0 00 043506 XX,,0] 2647 DFAD AC,[200000,,0 2648 032124 110 04 0 00 043332 0,,0] 2649 032125 312 04 0 00 043510 CAME AC,[ZZ,,0] 2650 032126 003 04 0 00 000345 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0069 2651 032127 312 05 0 00 043330 CAME AC+1,[0,,0] 2652 032130 004 05 0 00 000345 ER4 AC+1,T 2653 032131 321 10 0 00 032123 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2654 2655 2656 000346 T=T+1 2657 000200 XX=XX/2 2658 134400 ZZ=ZZ-1000 2659 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2660 DMOVE AC,[200000,,0 2661 032132 120 04 0 00 043511 XX,,0] 2662 DFAD AC,[200000,,0 2663 032133 110 04 0 00 043332 0,,0] 2664 032134 312 04 0 00 043513 CAME AC,[ZZ,,0] 2665 032135 003 04 0 00 000346 ER3 AC,T 2666 032136 312 05 0 00 043330 CAME AC+1,[0,,0] 2667 032137 004 05 0 00 000346 ER4 AC+1,T 2668 032140 321 10 0 00 032132 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2669 2670 2671 000347 T=T+1 2672 000100 XX=XX/2 2673 133400 ZZ=ZZ-1000 2674 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2675 DMOVE AC,[200000,,0 2676 032141 120 04 0 00 043514 XX,,0] 2677 DFAD AC,[200000,,0 2678 032142 110 04 0 00 043332 0,,0] 2679 032143 312 04 0 00 043516 CAME AC,[ZZ,,0] 2680 032144 003 04 0 00 000347 ER3 AC,T 2681 032145 312 05 0 00 043330 CAME AC+1,[0,,0] 2682 032146 004 05 0 00 000347 ER4 AC+1,T 2683 032147 321 10 0 00 032141 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2684 2685 2686 000350 T=T+1 2687 000040 XX=XX/2 2688 132400 ZZ=ZZ-1000 2689 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2690 DMOVE AC,[200000,,0 2691 032150 120 04 0 00 043517 XX,,0] 2692 DFAD AC,[200000,,0 2693 032151 110 04 0 00 043332 0,,0] 2694 032152 312 04 0 00 043521 CAME AC,[ZZ,,0] 2695 032153 003 04 0 00 000350 ER3 AC,T 2696 032154 312 05 0 00 043330 CAME AC+1,[0,,0] 2697 032155 004 05 0 00 000350 ER4 AC+1,T 2698 032156 321 10 0 00 032150 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2699 2700 2701 000351 T=T+1 2702 000020 XX=XX/2 2703 131400 ZZ=ZZ-1000 2704 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2705 DMOVE AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0070 2706 032157 120 04 0 00 043522 XX,,0] 2707 DFAD AC,[200000,,0 2708 032160 110 04 0 00 043332 0,,0] 2709 032161 312 04 0 00 043524 CAME AC,[ZZ,,0] 2710 032162 003 04 0 00 000351 ER3 AC,T 2711 032163 312 05 0 00 043330 CAME AC+1,[0,,0] 2712 032164 004 05 0 00 000351 ER4 AC+1,T 2713 032165 321 10 0 00 032157 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2714 2715 2716 000352 T=T+1 2717 000010 XX=XX/2 2718 130400 ZZ=ZZ-1000 2719 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2720 DMOVE AC,[200000,,0 2721 032166 120 04 0 00 043525 XX,,0] 2722 DFAD AC,[200000,,0 2723 032167 110 04 0 00 043332 0,,0] 2724 032170 312 04 0 00 043527 CAME AC,[ZZ,,0] 2725 032171 003 04 0 00 000352 ER3 AC,T 2726 032172 312 05 0 00 043330 CAME AC+1,[0,,0] 2727 032173 004 05 0 00 000352 ER4 AC+1,T 2728 032174 321 10 0 00 032166 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2729 2730 2731 000353 T=T+1 2732 000004 XX=XX/2 2733 127400 ZZ=ZZ-1000 2734 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2735 DMOVE AC,[200000,,0 2736 032175 120 04 0 00 043530 XX,,0] 2737 DFAD AC,[200000,,0 2738 032176 110 04 0 00 043332 0,,0] 2739 032177 312 04 0 00 043532 CAME AC,[ZZ,,0] 2740 032200 003 04 0 00 000353 ER3 AC,T 2741 032201 312 05 0 00 043330 CAME AC+1,[0,,0] 2742 032202 004 05 0 00 000353 ER4 AC+1,T 2743 032203 321 10 0 00 032175 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2744 2745 2746 000354 T=T+1 2747 000002 XX=XX/2 2748 126400 ZZ=ZZ-1000 2749 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2750 DMOVE AC,[200000,,0 2751 032204 120 04 0 00 043533 XX,,0] 2752 DFAD AC,[200000,,0 2753 032205 110 04 0 00 043332 0,,0] 2754 032206 312 04 0 00 043535 CAME AC,[ZZ,,0] 2755 032207 003 04 0 00 000354 ER3 AC,T 2756 032210 312 05 0 00 043330 CAME AC+1,[0,,0] 2757 032211 004 05 0 00 000354 ER4 AC+1,T 2758 032212 321 10 0 00 032204 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2759 2760 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0071 2761 000355 T=T+1 2762 000001 XX=XX/2 2763 125400 ZZ=ZZ-1000 2764 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^ 2765 DMOVE AC,[200000,,0 2766 032213 120 04 0 00 043536 XX,,0] 2767 DFAD AC,[200000,,0 2768 032214 110 04 0 00 043332 0,,0] 2769 032215 312 04 0 00 043540 CAME AC,[ZZ,,0] 2770 032216 003 04 0 00 000355 ER3 AC,T 2771 032217 312 05 0 00 043330 CAME AC+1,[0,,0] 2772 032220 004 05 0 00 000355 ER4 AC+1,T 2773 032221 321 10 0 00 032213 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2774 2775 2776 2777 000001 000000 XX=1000000 2778 2779 REPEAT ^D18, 2780 2785 000356 T=T+1 2786 400000 XX=XX/2 2787 124400 ZZ=ZZ-1000 2788 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2789 DMOVE AC,[200000,,0 2790 032222 120 04 0 00 043541 0,,XX] 2791 DFAD AC,[200000,,0 2792 032223 110 04 0 00 043332 0,,0] 2793 032224 312 04 0 00 043543 CAME AC,[ZZ,,0] 2794 032225 003 04 0 00 000356 ER3 AC,T 2795 032226 312 05 0 00 043330 CAME AC+1,[0,,0] 2796 032227 004 05 0 00 000356 ER4 AC+1,T 2797 032230 321 10 0 00 032222 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2798 2799 000357 T=T+1 2800 200000 XX=XX/2 2801 123400 ZZ=ZZ-1000 2802 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2803 DMOVE AC,[200000,,0 2804 032231 120 04 0 00 043544 0,,XX] 2805 DFAD AC,[200000,,0 2806 032232 110 04 0 00 043332 0,,0] 2807 032233 312 04 0 00 043546 CAME AC,[ZZ,,0] 2808 032234 003 04 0 00 000357 ER3 AC,T 2809 032235 312 05 0 00 043330 CAME AC+1,[0,,0] 2810 032236 004 05 0 00 000357 ER4 AC+1,T 2811 032237 321 10 0 00 032231 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2812 2813 000360 T=T+1 2814 100000 XX=XX/2 2815 122400 ZZ=ZZ-1000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0072 2816 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2817 DMOVE AC,[200000,,0 2818 032240 120 04 0 00 043547 0,,XX] 2819 DFAD AC,[200000,,0 2820 032241 110 04 0 00 043332 0,,0] 2821 032242 312 04 0 00 043551 CAME AC,[ZZ,,0] 2822 032243 003 04 0 00 000360 ER3 AC,T 2823 032244 312 05 0 00 043330 CAME AC+1,[0,,0] 2824 032245 004 05 0 00 000360 ER4 AC+1,T 2825 032246 321 10 0 00 032240 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2826 2827 000361 T=T+1 2828 040000 XX=XX/2 2829 121400 ZZ=ZZ-1000 2830 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2831 DMOVE AC,[200000,,0 2832 032247 120 04 0 00 043552 0,,XX] 2833 DFAD AC,[200000,,0 2834 032250 110 04 0 00 043332 0,,0] 2835 032251 312 04 0 00 043554 CAME AC,[ZZ,,0] 2836 032252 003 04 0 00 000361 ER3 AC,T 2837 032253 312 05 0 00 043330 CAME AC+1,[0,,0] 2838 032254 004 05 0 00 000361 ER4 AC+1,T 2839 032255 321 10 0 00 032247 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2840 2841 000362 T=T+1 2842 020000 XX=XX/2 2843 120400 ZZ=ZZ-1000 2844 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2845 DMOVE AC,[200000,,0 2846 032256 120 04 0 00 043555 0,,XX] 2847 DFAD AC,[200000,,0 2848 032257 110 04 0 00 043332 0,,0] 2849 032260 312 04 0 00 043557 CAME AC,[ZZ,,0] 2850 032261 003 04 0 00 000362 ER3 AC,T 2851 032262 312 05 0 00 043330 CAME AC+1,[0,,0] 2852 032263 004 05 0 00 000362 ER4 AC+1,T 2853 032264 321 10 0 00 032256 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2854 2855 000363 T=T+1 2856 010000 XX=XX/2 2857 117400 ZZ=ZZ-1000 2858 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2859 DMOVE AC,[200000,,0 2860 032265 120 04 0 00 043560 0,,XX] 2861 DFAD AC,[200000,,0 2862 032266 110 04 0 00 043332 0,,0] 2863 032267 312 04 0 00 043562 CAME AC,[ZZ,,0] 2864 032270 003 04 0 00 000363 ER3 AC,T 2865 032271 312 05 0 00 043330 CAME AC+1,[0,,0] 2866 032272 004 05 0 00 000363 ER4 AC+1,T 2867 032273 321 10 0 00 032265 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2868 2869 000364 T=T+1 2870 004000 XX=XX/2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0073 2871 116400 ZZ=ZZ-1000 2872 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2873 DMOVE AC,[200000,,0 2874 032274 120 04 0 00 043563 0,,XX] 2875 DFAD AC,[200000,,0 2876 032275 110 04 0 00 043332 0,,0] 2877 032276 312 04 0 00 043565 CAME AC,[ZZ,,0] 2878 032277 003 04 0 00 000364 ER3 AC,T 2879 032300 312 05 0 00 043330 CAME AC+1,[0,,0] 2880 032301 004 05 0 00 000364 ER4 AC+1,T 2881 032302 321 10 0 00 032274 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2882 2883 000365 T=T+1 2884 002000 XX=XX/2 2885 115400 ZZ=ZZ-1000 2886 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2887 DMOVE AC,[200000,,0 2888 032303 120 04 0 00 043566 0,,XX] 2889 DFAD AC,[200000,,0 2890 032304 110 04 0 00 043332 0,,0] 2891 032305 312 04 0 00 043570 CAME AC,[ZZ,,0] 2892 032306 003 04 0 00 000365 ER3 AC,T 2893 032307 312 05 0 00 043330 CAME AC+1,[0,,0] 2894 032310 004 05 0 00 000365 ER4 AC+1,T 2895 032311 321 10 0 00 032303 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2896 2897 000366 T=T+1 2898 001000 XX=XX/2 2899 114400 ZZ=ZZ-1000 2900 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2901 DMOVE AC,[200000,,0 2902 032312 120 04 0 00 043571 0,,XX] 2903 DFAD AC,[200000,,0 2904 032313 110 04 0 00 043332 0,,0] 2905 032314 312 04 0 00 043573 CAME AC,[ZZ,,0] 2906 032315 003 04 0 00 000366 ER3 AC,T 2907 032316 312 05 0 00 043330 CAME AC+1,[0,,0] 2908 032317 004 05 0 00 000366 ER4 AC+1,T 2909 032320 321 10 0 00 032312 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2910 2911 000367 T=T+1 2912 000400 XX=XX/2 2913 113400 ZZ=ZZ-1000 2914 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2915 DMOVE AC,[200000,,0 2916 032321 120 04 0 00 043574 0,,XX] 2917 DFAD AC,[200000,,0 2918 032322 110 04 0 00 043332 0,,0] 2919 032323 312 04 0 00 043576 CAME AC,[ZZ,,0] 2920 032324 003 04 0 00 000367 ER3 AC,T 2921 032325 312 05 0 00 043330 CAME AC+1,[0,,0] 2922 032326 004 05 0 00 000367 ER4 AC+1,T 2923 032327 321 10 0 00 032321 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2924 2925 000370 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0074 2926 000200 XX=XX/2 2927 112400 ZZ=ZZ-1000 2928 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2929 DMOVE AC,[200000,,0 2930 032330 120 04 0 00 043577 0,,XX] 2931 DFAD AC,[200000,,0 2932 032331 110 04 0 00 043332 0,,0] 2933 032332 312 04 0 00 043601 CAME AC,[ZZ,,0] 2934 032333 003 04 0 00 000370 ER3 AC,T 2935 032334 312 05 0 00 043330 CAME AC+1,[0,,0] 2936 032335 004 05 0 00 000370 ER4 AC+1,T 2937 032336 321 10 0 00 032330 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2938 2939 000371 T=T+1 2940 000100 XX=XX/2 2941 111400 ZZ=ZZ-1000 2942 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2943 DMOVE AC,[200000,,0 2944 032337 120 04 0 00 043602 0,,XX] 2945 DFAD AC,[200000,,0 2946 032340 110 04 0 00 043332 0,,0] 2947 032341 312 04 0 00 043604 CAME AC,[ZZ,,0] 2948 032342 003 04 0 00 000371 ER3 AC,T 2949 032343 312 05 0 00 043330 CAME AC+1,[0,,0] 2950 032344 004 05 0 00 000371 ER4 AC+1,T 2951 032345 321 10 0 00 032337 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2952 2953 000372 T=T+1 2954 000040 XX=XX/2 2955 110400 ZZ=ZZ-1000 2956 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2957 DMOVE AC,[200000,,0 2958 032346 120 04 0 00 043605 0,,XX] 2959 DFAD AC,[200000,,0 2960 032347 110 04 0 00 043332 0,,0] 2961 032350 312 04 0 00 043607 CAME AC,[ZZ,,0] 2962 032351 003 04 0 00 000372 ER3 AC,T 2963 032352 312 05 0 00 043330 CAME AC+1,[0,,0] 2964 032353 004 05 0 00 000372 ER4 AC+1,T 2965 032354 321 10 0 00 032346 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2966 2967 000373 T=T+1 2968 000020 XX=XX/2 2969 107400 ZZ=ZZ-1000 2970 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2971 DMOVE AC,[200000,,0 2972 032355 120 04 0 00 043610 0,,XX] 2973 DFAD AC,[200000,,0 2974 032356 110 04 0 00 043332 0,,0] 2975 032357 312 04 0 00 043612 CAME AC,[ZZ,,0] 2976 032360 003 04 0 00 000373 ER3 AC,T 2977 032361 312 05 0 00 043330 CAME AC+1,[0,,0] 2978 032362 004 05 0 00 000373 ER4 AC+1,T 2979 032363 321 10 0 00 032355 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2980 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0075 2981 000374 T=T+1 2982 000010 XX=XX/2 2983 106400 ZZ=ZZ-1000 2984 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2985 DMOVE AC,[200000,,0 2986 032364 120 04 0 00 043613 0,,XX] 2987 DFAD AC,[200000,,0 2988 032365 110 04 0 00 043332 0,,0] 2989 032366 312 04 0 00 043615 CAME AC,[ZZ,,0] 2990 032367 003 04 0 00 000374 ER3 AC,T 2991 032370 312 05 0 00 043330 CAME AC+1,[0,,0] 2992 032371 004 05 0 00 000374 ER4 AC+1,T 2993 032372 321 10 0 00 032364 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2994 2995 000375 T=T+1 2996 000004 XX=XX/2 2997 105400 ZZ=ZZ-1000 2998 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 2999 DMOVE AC,[200000,,0 3000 032373 120 04 0 00 043616 0,,XX] 3001 DFAD AC,[200000,,0 3002 032374 110 04 0 00 043332 0,,0] 3003 032375 312 04 0 00 043620 CAME AC,[ZZ,,0] 3004 032376 003 04 0 00 000375 ER3 AC,T 3005 032377 312 05 0 00 043330 CAME AC+1,[0,,0] 3006 032400 004 05 0 00 000375 ER4 AC+1,T 3007 032401 321 10 0 00 032373 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3008 3009 000376 T=T+1 3010 000002 XX=XX/2 3011 104400 ZZ=ZZ-1000 3012 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 3013 DMOVE AC,[200000,,0 3014 032402 120 04 0 00 043621 0,,XX] 3015 DFAD AC,[200000,,0 3016 032403 110 04 0 00 043332 0,,0] 3017 032404 312 04 0 00 043623 CAME AC,[ZZ,,0] 3018 032405 003 04 0 00 000376 ER3 AC,T 3019 032406 312 05 0 00 043330 CAME AC+1,[0,,0] 3020 032407 004 05 0 00 000376 ER4 AC+1,T 3021 032410 321 10 0 00 032402 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3022 3023 000377 T=T+1 3024 000001 XX=XX/2 3025 103400 ZZ=ZZ-1000 3026 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^ 3027 DMOVE AC,[200000,,0 3028 032411 120 04 0 00 043624 0,,XX] 3029 DFAD AC,[200000,,0 3030 032412 110 04 0 00 043332 0,,0] 3031 032413 312 04 0 00 043626 CAME AC,[ZZ,,0] 3032 032414 003 04 0 00 000377 ER3 AC,T 3033 032415 312 05 0 00 043330 CAME AC+1,[0,,0] 3034 032416 004 05 0 00 000377 ER4 AC+1,T 3035 032417 321 10 0 00 032411 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0076 3036 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0077 3037 3038 ;ADD A FRACTION OF ALL ONES TO A FRACTION OF ALL ZEROS 3039 3040 DFA 4,0,0,0,0,777,-1,-1,-1,777,-1,377777,-1^ 3041 R400: DMOVE AC,[0,,0 3042 032420 120 04 0 00 043330 0,,0] 3043 DFAD AC,[777,,-1 3044 032421 110 04 0 00 043627 -1,,-1] 3045 032422 312 04 0 00 043627 CAME AC,[777,,-1] 3046 032423 003 04 0 00 000401 ER3 AC,401 3047 032424 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3048 032425 004 05 0 00 000401 ER4 AC+1,401 3049 032426 321 10 0 00 032420 JUMPL AC+4,R400 ;LOOP ON ERROR SWITCH^ 3050 3051 ;ADD A FRACTION OF ALL ZEROS TO A FRACTION OF ALL ONES 3052 3053 DFA 5,777,-1,-1,-1,0,0,0,0,777,-1,377777,-1^ 3054 R500: DMOVE AC,[777,,-1 3055 032427 120 04 0 00 043627 -1,,-1] 3056 DFAD AC,[0,,0 3057 032430 110 04 0 00 043330 0,,0] 3058 032431 312 04 0 00 043627 CAME AC,[777,,-1] 3059 032432 003 04 0 00 000501 ER3 AC,501 3060 032433 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3061 032434 004 05 0 00 000501 ER4 AC+1,501 3062 032435 321 10 0 00 032427 JUMPL AC+4,R500 ;LOOP ON ERROR SWITCH^ 3063 PAGE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0078 3064 ;RIPPLE ZEROS TESTS (TO A FRACTION OF ALL ZEROS, ADD A RIPPLED ZERO) 3065 3066 000600 T=600 3067 000000 ZZ=0 3068 3069 R600: REPEAT ^D18, 3070 , 3073 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ 3074 > 3075 000601 T=T+1 3076 000001 ZZ=ZZ+ZZ+1 3077 777777 777776 IFE , 3078 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3079 DMOVE AC,[0,,0 3080 032436 120 04 0 00 043330 0,,0] 3081 DFAD AC,[777,,-1 3082 032437 110 04 0 00 043632 -1,,ZZ] 3083 032440 312 04 0 00 043627 CAME AC,[777,,-1] 3084 032441 003 04 0 00 000601 ER3 AC,T 3085 032442 312 05 0 00 043634 CAME AC+1,[377777,,ZZ] 3086 032443 004 05 0 00 000601 ER4 AC+1,T 3087 032444 321 10 0 00 032436 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3088 3089 000602 T=T+1 3090 777777 777775 ZZ=ZZ+ZZ+1 3091 IFE , 3092 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3093 DMOVE AC,[0,,0 3094 032445 120 04 0 00 043330 0,,0] 3095 DFAD AC,[777,,-1 3096 032446 110 04 0 00 043635 -1,,ZZ] 3097 032447 312 04 0 00 043627 CAME AC,[777,,-1] 3098 032450 003 04 0 00 000602 ER3 AC,T 3099 032451 312 05 0 00 043637 CAME AC+1,[377777,,ZZ] 3100 032452 004 05 0 00 000602 ER4 AC+1,T 3101 032453 321 10 0 00 032445 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3102 3103 000603 T=T+1 3104 777777 777773 ZZ=ZZ+ZZ+1 3105 IFE , 3106 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3107 DMOVE AC,[0,,0 3108 032454 120 04 0 00 043330 0,,0] 3109 DFAD AC,[777,,-1 3110 032455 110 04 0 00 043640 -1,,ZZ] 3111 032456 312 04 0 00 043627 CAME AC,[777,,-1] 3112 032457 003 04 0 00 000603 ER3 AC,T 3113 032460 312 05 0 00 043642 CAME AC+1,[377777,,ZZ] 3114 032461 004 05 0 00 000603 ER4 AC+1,T 3115 032462 321 10 0 00 032454 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3116 3117 000604 T=T+1 3118 777777 777767 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0079 3119 IFE , 3120 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3121 DMOVE AC,[0,,0 3122 032463 120 04 0 00 043330 0,,0] 3123 DFAD AC,[777,,-1 3124 032464 110 04 0 00 043643 -1,,ZZ] 3125 032465 312 04 0 00 043627 CAME AC,[777,,-1] 3126 032466 003 04 0 00 000604 ER3 AC,T 3127 032467 312 05 0 00 043645 CAME AC+1,[377777,,ZZ] 3128 032470 004 05 0 00 000604 ER4 AC+1,T 3129 032471 321 10 0 00 032463 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3130 3131 000605 T=T+1 3132 777777 777757 ZZ=ZZ+ZZ+1 3133 IFE , 3134 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3135 DMOVE AC,[0,,0 3136 032472 120 04 0 00 043330 0,,0] 3137 DFAD AC,[777,,-1 3138 032473 110 04 0 00 043646 -1,,ZZ] 3139 032474 312 04 0 00 043627 CAME AC,[777,,-1] 3140 032475 003 04 0 00 000605 ER3 AC,T 3141 032476 312 05 0 00 043650 CAME AC+1,[377777,,ZZ] 3142 032477 004 05 0 00 000605 ER4 AC+1,T 3143 032500 321 10 0 00 032472 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3144 3145 000606 T=T+1 3146 777777 777737 ZZ=ZZ+ZZ+1 3147 IFE , 3148 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3149 DMOVE AC,[0,,0 3150 032501 120 04 0 00 043330 0,,0] 3151 DFAD AC,[777,,-1 3152 032502 110 04 0 00 043651 -1,,ZZ] 3153 032503 312 04 0 00 043627 CAME AC,[777,,-1] 3154 032504 003 04 0 00 000606 ER3 AC,T 3155 032505 312 05 0 00 043653 CAME AC+1,[377777,,ZZ] 3156 032506 004 05 0 00 000606 ER4 AC+1,T 3157 032507 321 10 0 00 032501 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3158 3159 000607 T=T+1 3160 777777 777677 ZZ=ZZ+ZZ+1 3161 IFE , 3162 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3163 DMOVE AC,[0,,0 3164 032510 120 04 0 00 043330 0,,0] 3165 DFAD AC,[777,,-1 3166 032511 110 04 0 00 043654 -1,,ZZ] 3167 032512 312 04 0 00 043627 CAME AC,[777,,-1] 3168 032513 003 04 0 00 000607 ER3 AC,T 3169 032514 312 05 0 00 043656 CAME AC+1,[377777,,ZZ] 3170 032515 004 05 0 00 000607 ER4 AC+1,T 3171 032516 321 10 0 00 032510 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3172 3173 000610 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0080 3174 777777 777577 ZZ=ZZ+ZZ+1 3175 IFE , 3176 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3177 DMOVE AC,[0,,0 3178 032517 120 04 0 00 043330 0,,0] 3179 DFAD AC,[777,,-1 3180 032520 110 04 0 00 043657 -1,,ZZ] 3181 032521 312 04 0 00 043627 CAME AC,[777,,-1] 3182 032522 003 04 0 00 000610 ER3 AC,T 3183 032523 312 05 0 00 043661 CAME AC+1,[377777,,ZZ] 3184 032524 004 05 0 00 000610 ER4 AC+1,T 3185 032525 321 10 0 00 032517 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3186 3187 000611 T=T+1 3188 777777 777377 ZZ=ZZ+ZZ+1 3189 IFE , 3190 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3191 DMOVE AC,[0,,0 3192 032526 120 04 0 00 043330 0,,0] 3193 DFAD AC,[777,,-1 3194 032527 110 04 0 00 043662 -1,,ZZ] 3195 032530 312 04 0 00 043627 CAME AC,[777,,-1] 3196 032531 003 04 0 00 000611 ER3 AC,T 3197 032532 312 05 0 00 043664 CAME AC+1,[377777,,ZZ] 3198 032533 004 05 0 00 000611 ER4 AC+1,T 3199 032534 321 10 0 00 032526 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3200 3201 000612 T=T+1 3202 777777 776777 ZZ=ZZ+ZZ+1 3203 IFE , 3204 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3205 DMOVE AC,[0,,0 3206 032535 120 04 0 00 043330 0,,0] 3207 DFAD AC,[777,,-1 3208 032536 110 04 0 00 043665 -1,,ZZ] 3209 032537 312 04 0 00 043627 CAME AC,[777,,-1] 3210 032540 003 04 0 00 000612 ER3 AC,T 3211 032541 312 05 0 00 043667 CAME AC+1,[377777,,ZZ] 3212 032542 004 05 0 00 000612 ER4 AC+1,T 3213 032543 321 10 0 00 032535 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3214 3215 000613 T=T+1 3216 777777 775777 ZZ=ZZ+ZZ+1 3217 IFE , 3218 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3219 DMOVE AC,[0,,0 3220 032544 120 04 0 00 043330 0,,0] 3221 DFAD AC,[777,,-1 3222 032545 110 04 0 00 043670 -1,,ZZ] 3223 032546 312 04 0 00 043627 CAME AC,[777,,-1] 3224 032547 003 04 0 00 000613 ER3 AC,T 3225 032550 312 05 0 00 043672 CAME AC+1,[377777,,ZZ] 3226 032551 004 05 0 00 000613 ER4 AC+1,T 3227 032552 321 10 0 00 032544 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3228 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0081 3229 000614 T=T+1 3230 777777 773777 ZZ=ZZ+ZZ+1 3231 IFE , 3232 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3233 DMOVE AC,[0,,0 3234 032553 120 04 0 00 043330 0,,0] 3235 DFAD AC,[777,,-1 3236 032554 110 04 0 00 043673 -1,,ZZ] 3237 032555 312 04 0 00 043627 CAME AC,[777,,-1] 3238 032556 003 04 0 00 000614 ER3 AC,T 3239 032557 312 05 0 00 043675 CAME AC+1,[377777,,ZZ] 3240 032560 004 05 0 00 000614 ER4 AC+1,T 3241 032561 321 10 0 00 032553 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3242 3243 000615 T=T+1 3244 777777 767777 ZZ=ZZ+ZZ+1 3245 IFE , 3246 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3247 DMOVE AC,[0,,0 3248 032562 120 04 0 00 043330 0,,0] 3249 DFAD AC,[777,,-1 3250 032563 110 04 0 00 043676 -1,,ZZ] 3251 032564 312 04 0 00 043627 CAME AC,[777,,-1] 3252 032565 003 04 0 00 000615 ER3 AC,T 3253 032566 312 05 0 00 043700 CAME AC+1,[377777,,ZZ] 3254 032567 004 05 0 00 000615 ER4 AC+1,T 3255 032570 321 10 0 00 032562 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3256 3257 000616 T=T+1 3258 777777 757777 ZZ=ZZ+ZZ+1 3259 IFE , 3260 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3261 DMOVE AC,[0,,0 3262 032571 120 04 0 00 043330 0,,0] 3263 DFAD AC,[777,,-1 3264 032572 110 04 0 00 043701 -1,,ZZ] 3265 032573 312 04 0 00 043627 CAME AC,[777,,-1] 3266 032574 003 04 0 00 000616 ER3 AC,T 3267 032575 312 05 0 00 043703 CAME AC+1,[377777,,ZZ] 3268 032576 004 05 0 00 000616 ER4 AC+1,T 3269 032577 321 10 0 00 032571 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3270 3271 000617 T=T+1 3272 777777 737777 ZZ=ZZ+ZZ+1 3273 IFE , 3274 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3275 DMOVE AC,[0,,0 3276 032600 120 04 0 00 043330 0,,0] 3277 DFAD AC,[777,,-1 3278 032601 110 04 0 00 043704 -1,,ZZ] 3279 032602 312 04 0 00 043627 CAME AC,[777,,-1] 3280 032603 003 04 0 00 000617 ER3 AC,T 3281 032604 312 05 0 00 043706 CAME AC+1,[377777,,ZZ] 3282 032605 004 05 0 00 000617 ER4 AC+1,T 3283 032606 321 10 0 00 032600 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0082 3284 3285 000620 T=T+1 3286 777777 677777 ZZ=ZZ+ZZ+1 3287 IFE , 3288 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3289 DMOVE AC,[0,,0 3290 032607 120 04 0 00 043330 0,,0] 3291 DFAD AC,[777,,-1 3292 032610 110 04 0 00 043707 -1,,ZZ] 3293 032611 312 04 0 00 043627 CAME AC,[777,,-1] 3294 032612 003 04 0 00 000620 ER3 AC,T 3295 032613 312 05 0 00 043711 CAME AC+1,[377777,,ZZ] 3296 032614 004 05 0 00 000620 ER4 AC+1,T 3297 032615 321 10 0 00 032607 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3298 3299 000621 T=T+1 3300 777777 577777 ZZ=ZZ+ZZ+1 3301 IFE , 3302 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3303 DMOVE AC,[0,,0 3304 032616 120 04 0 00 043330 0,,0] 3305 DFAD AC,[777,,-1 3306 032617 110 04 0 00 043712 -1,,ZZ] 3307 032620 312 04 0 00 043627 CAME AC,[777,,-1] 3308 032621 003 04 0 00 000621 ER3 AC,T 3309 032622 312 05 0 00 043714 CAME AC+1,[377777,,ZZ] 3310 032623 004 05 0 00 000621 ER4 AC+1,T 3311 032624 321 10 0 00 032616 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3312 3313 000622 T=T+1 3314 777777 377777 ZZ=ZZ+ZZ+1 3315 IFE , 3316 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^ 3317 DMOVE AC,[0,,0 3318 032625 120 04 0 00 043330 0,,0] 3319 DFAD AC,[777,,-1 3320 032626 110 04 0 00 043715 -1,,ZZ] 3321 032627 312 04 0 00 043627 CAME AC,[777,,-1] 3322 032630 003 04 0 00 000622 ER3 AC,T 3323 032631 312 05 0 00 043717 CAME AC+1,[377777,,ZZ] 3324 032632 004 05 0 00 000622 ER4 AC+1,T 3325 032633 321 10 0 00 032625 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3326 3327 3328 000000 ZZ=0 3329 3330 REPEAT ^D18, 3331 , 3334 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1 3335 > 3336 000623 T=T+1 3337 000001 ZZ=ZZ+ZZ+1 3338 777777 777776 IFE , DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0083 3339 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3340 DMOVE AC,[0,,0 3341 032634 120 04 0 00 043330 0,,0] 3342 DFAD AC,[777,,-1 3343 032635 110 04 0 00 043720 ZZ,,-1] 3344 032636 312 04 0 00 043627 CAME AC,[777,,-1] 3345 032637 003 04 0 00 000623 ER3 AC,T 3346 032640 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1] 3347 032641 004 05 0 00 000623 ER4 AC+1,T 3348 032642 321 10 0 00 032634 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3349 3350 000624 T=T+1 3351 777777 777775 ZZ=ZZ+ZZ+1 3352 IFE , 3353 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3354 DMOVE AC,[0,,0 3355 032643 120 04 0 00 043330 0,,0] 3356 DFAD AC,[777,,-1 3357 032644 110 04 0 00 043723 ZZ,,-1] 3358 032645 312 04 0 00 043627 CAME AC,[777,,-1] 3359 032646 003 04 0 00 000624 ER3 AC,T 3360 032647 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1] 3361 032650 004 05 0 00 000624 ER4 AC+1,T 3362 032651 321 10 0 00 032643 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3363 3364 000625 T=T+1 3365 777777 777773 ZZ=ZZ+ZZ+1 3366 IFE , 3367 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3368 DMOVE AC,[0,,0 3369 032652 120 04 0 00 043330 0,,0] 3370 DFAD AC,[777,,-1 3371 032653 110 04 0 00 043726 ZZ,,-1] 3372 032654 312 04 0 00 043627 CAME AC,[777,,-1] 3373 032655 003 04 0 00 000625 ER3 AC,T 3374 032656 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1] 3375 032657 004 05 0 00 000625 ER4 AC+1,T 3376 032660 321 10 0 00 032652 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3377 3378 000626 T=T+1 3379 777777 777767 ZZ=ZZ+ZZ+1 3380 IFE , 3381 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3382 DMOVE AC,[0,,0 3383 032661 120 04 0 00 043330 0,,0] 3384 DFAD AC,[777,,-1 3385 032662 110 04 0 00 043731 ZZ,,-1] 3386 032663 312 04 0 00 043627 CAME AC,[777,,-1] 3387 032664 003 04 0 00 000626 ER3 AC,T 3388 032665 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1] 3389 032666 004 05 0 00 000626 ER4 AC+1,T 3390 032667 321 10 0 00 032661 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3391 3392 000627 T=T+1 3393 777777 777757 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0084 3394 IFE , 3395 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3396 DMOVE AC,[0,,0 3397 032670 120 04 0 00 043330 0,,0] 3398 DFAD AC,[777,,-1 3399 032671 110 04 0 00 043734 ZZ,,-1] 3400 032672 312 04 0 00 043627 CAME AC,[777,,-1] 3401 032673 003 04 0 00 000627 ER3 AC,T 3402 032674 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1] 3403 032675 004 05 0 00 000627 ER4 AC+1,T 3404 032676 321 10 0 00 032670 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3405 3406 000630 T=T+1 3407 777777 777737 ZZ=ZZ+ZZ+1 3408 IFE , 3409 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3410 DMOVE AC,[0,,0 3411 032677 120 04 0 00 043330 0,,0] 3412 DFAD AC,[777,,-1 3413 032700 110 04 0 00 043737 ZZ,,-1] 3414 032701 312 04 0 00 043627 CAME AC,[777,,-1] 3415 032702 003 04 0 00 000630 ER3 AC,T 3416 032703 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1] 3417 032704 004 05 0 00 000630 ER4 AC+1,T 3418 032705 321 10 0 00 032677 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3419 3420 000631 T=T+1 3421 777777 777677 ZZ=ZZ+ZZ+1 3422 IFE , 3423 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3424 DMOVE AC,[0,,0 3425 032706 120 04 0 00 043330 0,,0] 3426 DFAD AC,[777,,-1 3427 032707 110 04 0 00 043742 ZZ,,-1] 3428 032710 312 04 0 00 043627 CAME AC,[777,,-1] 3429 032711 003 04 0 00 000631 ER3 AC,T 3430 032712 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1] 3431 032713 004 05 0 00 000631 ER4 AC+1,T 3432 032714 321 10 0 00 032706 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3433 3434 000632 T=T+1 3435 777777 777577 ZZ=ZZ+ZZ+1 3436 IFE , 3437 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3438 DMOVE AC,[0,,0 3439 032715 120 04 0 00 043330 0,,0] 3440 DFAD AC,[777,,-1 3441 032716 110 04 0 00 043745 ZZ,,-1] 3442 032717 312 04 0 00 043627 CAME AC,[777,,-1] 3443 032720 003 04 0 00 000632 ER3 AC,T 3444 032721 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1] 3445 032722 004 05 0 00 000632 ER4 AC+1,T 3446 032723 321 10 0 00 032715 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3447 3448 000633 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0085 3449 777777 777377 ZZ=ZZ+ZZ+1 3450 IFE , 3451 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3452 DMOVE AC,[0,,0 3453 032724 120 04 0 00 043330 0,,0] 3454 DFAD AC,[777,,-1 3455 032725 110 04 0 00 043750 ZZ,,-1] 3456 032726 312 04 0 00 043627 CAME AC,[777,,-1] 3457 032727 003 04 0 00 000633 ER3 AC,T 3458 032730 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1] 3459 032731 004 05 0 00 000633 ER4 AC+1,T 3460 032732 321 10 0 00 032724 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3461 3462 000634 T=T+1 3463 777777 776777 ZZ=ZZ+ZZ+1 3464 IFE , 3465 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3466 DMOVE AC,[0,,0 3467 032733 120 04 0 00 043330 0,,0] 3468 DFAD AC,[777,,-1 3469 032734 110 04 0 00 043753 ZZ,,-1] 3470 032735 312 04 0 00 043627 CAME AC,[777,,-1] 3471 032736 003 04 0 00 000634 ER3 AC,T 3472 032737 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1] 3473 032740 004 05 0 00 000634 ER4 AC+1,T 3474 032741 321 10 0 00 032733 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3475 3476 000635 T=T+1 3477 777777 775777 ZZ=ZZ+ZZ+1 3478 IFE , 3479 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3480 DMOVE AC,[0,,0 3481 032742 120 04 0 00 043330 0,,0] 3482 DFAD AC,[777,,-1 3483 032743 110 04 0 00 043756 ZZ,,-1] 3484 032744 312 04 0 00 043627 CAME AC,[777,,-1] 3485 032745 003 04 0 00 000635 ER3 AC,T 3486 032746 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1] 3487 032747 004 05 0 00 000635 ER4 AC+1,T 3488 032750 321 10 0 00 032742 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3489 3490 000636 T=T+1 3491 777777 773777 ZZ=ZZ+ZZ+1 3492 IFE , 3493 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3494 DMOVE AC,[0,,0 3495 032751 120 04 0 00 043330 0,,0] 3496 DFAD AC,[777,,-1 3497 032752 110 04 0 00 043761 ZZ,,-1] 3498 032753 312 04 0 00 043627 CAME AC,[777,,-1] 3499 032754 003 04 0 00 000636 ER3 AC,T 3500 032755 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1] 3501 032756 004 05 0 00 000636 ER4 AC+1,T 3502 032757 321 10 0 00 032751 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3503 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0086 3504 000637 T=T+1 3505 777777 767777 ZZ=ZZ+ZZ+1 3506 IFE , 3507 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3508 DMOVE AC,[0,,0 3509 032760 120 04 0 00 043330 0,,0] 3510 DFAD AC,[777,,-1 3511 032761 110 04 0 00 043764 ZZ,,-1] 3512 032762 312 04 0 00 043627 CAME AC,[777,,-1] 3513 032763 003 04 0 00 000637 ER3 AC,T 3514 032764 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1] 3515 032765 004 05 0 00 000637 ER4 AC+1,T 3516 032766 321 10 0 00 032760 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3517 3518 000640 T=T+1 3519 777777 757777 ZZ=ZZ+ZZ+1 3520 IFE , 3521 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3522 DMOVE AC,[0,,0 3523 032767 120 04 0 00 043330 0,,0] 3524 DFAD AC,[777,,-1 3525 032770 110 04 0 00 043767 ZZ,,-1] 3526 032771 312 04 0 00 043627 CAME AC,[777,,-1] 3527 032772 003 04 0 00 000640 ER3 AC,T 3528 032773 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1] 3529 032774 004 05 0 00 000640 ER4 AC+1,T 3530 032775 321 10 0 00 032767 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3531 3532 000641 T=T+1 3533 777777 737777 ZZ=ZZ+ZZ+1 3534 IFE , 3535 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3536 DMOVE AC,[0,,0 3537 032776 120 04 0 00 043330 0,,0] 3538 DFAD AC,[777,,-1 3539 032777 110 04 0 00 043772 ZZ,,-1] 3540 033000 312 04 0 00 043627 CAME AC,[777,,-1] 3541 033001 003 04 0 00 000641 ER3 AC,T 3542 033002 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1] 3543 033003 004 05 0 00 000641 ER4 AC+1,T 3544 033004 321 10 0 00 032776 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3545 3546 000642 T=T+1 3547 777777 677777 ZZ=ZZ+ZZ+1 3548 IFE , 3549 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3550 DMOVE AC,[0,,0 3551 033005 120 04 0 00 043330 0,,0] 3552 DFAD AC,[777,,-1 3553 033006 110 04 0 00 043775 ZZ,,-1] 3554 033007 312 04 0 00 043627 CAME AC,[777,,-1] 3555 033010 003 04 0 00 000642 ER3 AC,T 3556 033011 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1] 3557 033012 004 05 0 00 000642 ER4 AC+1,T 3558 033013 321 10 0 00 033005 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0087 3559 3560 000643 T=T+1 3561 777777 577777 ZZ=ZZ+ZZ+1 3562 IFE , 3563 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3564 DMOVE AC,[0,,0 3565 033014 120 04 0 00 043330 0,,0] 3566 DFAD AC,[777,,-1 3567 033015 110 04 0 00 044000 ZZ,,-1] 3568 033016 312 04 0 00 043627 CAME AC,[777,,-1] 3569 033017 003 04 0 00 000643 ER3 AC,T 3570 033020 312 05 0 00 044002 CAME AC+1,[ZZ&377777,,-1] 3571 033021 004 05 0 00 000643 ER4 AC+1,T 3572 033022 321 10 0 00 033014 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3573 3574 000644 T=T+1 3575 777777 377777 ZZ=ZZ+ZZ+1 3576 IFE , 3577 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^ 3578 DMOVE AC,[0,,0 3579 033023 120 04 0 00 043330 0,,0] 3580 DFAD AC,[777,,-1 3581 033024 110 04 0 00 044003 ZZ,,-1] 3582 033025 312 04 0 00 043627 CAME AC,[777,,-1] 3583 033026 003 04 0 00 000644 ER3 AC,T 3584 033027 312 05 0 00 043631 CAME AC+1,[ZZ&377777,,-1] 3585 033030 004 05 0 00 000644 ER4 AC+1,T 3586 033031 321 10 0 00 033023 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3587 3588 3589 000000 ZZ=0 3590 3591 REPEAT ^D18, 3592 , 3595 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1 3596 > 3597 000645 T=T+1 3598 000001 ZZ=ZZ+ZZ+1 3599 777777 777776 IFE , 3600 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3601 DMOVE AC,[0,,0 3602 033032 120 04 0 00 043330 0,,0] 3603 DFAD AC,[777,,ZZ 3604 033033 110 04 0 00 044005 -1,,-1] 3605 033034 312 04 0 00 044005 CAME AC,[777,,ZZ] 3606 033035 003 04 0 00 000645 ER3 AC,T 3607 033036 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3608 033037 004 05 0 00 000645 ER4 AC+1,T 3609 033040 321 10 0 00 033032 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3610 3611 000646 T=T+1 3612 777777 777775 ZZ=ZZ+ZZ+1 3613 IFE , DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0088 3614 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3615 DMOVE AC,[0,,0 3616 033041 120 04 0 00 043330 0,,0] 3617 DFAD AC,[777,,ZZ 3618 033042 110 04 0 00 044007 -1,,-1] 3619 033043 312 04 0 00 044007 CAME AC,[777,,ZZ] 3620 033044 003 04 0 00 000646 ER3 AC,T 3621 033045 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3622 033046 004 05 0 00 000646 ER4 AC+1,T 3623 033047 321 10 0 00 033041 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3624 3625 000647 T=T+1 3626 777777 777773 ZZ=ZZ+ZZ+1 3627 IFE , 3628 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3629 DMOVE AC,[0,,0 3630 033050 120 04 0 00 043330 0,,0] 3631 DFAD AC,[777,,ZZ 3632 033051 110 04 0 00 044011 -1,,-1] 3633 033052 312 04 0 00 044011 CAME AC,[777,,ZZ] 3634 033053 003 04 0 00 000647 ER3 AC,T 3635 033054 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3636 033055 004 05 0 00 000647 ER4 AC+1,T 3637 033056 321 10 0 00 033050 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3638 3639 000650 T=T+1 3640 777777 777767 ZZ=ZZ+ZZ+1 3641 IFE , 3642 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3643 DMOVE AC,[0,,0 3644 033057 120 04 0 00 043330 0,,0] 3645 DFAD AC,[777,,ZZ 3646 033060 110 04 0 00 044013 -1,,-1] 3647 033061 312 04 0 00 044013 CAME AC,[777,,ZZ] 3648 033062 003 04 0 00 000650 ER3 AC,T 3649 033063 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3650 033064 004 05 0 00 000650 ER4 AC+1,T 3651 033065 321 10 0 00 033057 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3652 3653 000651 T=T+1 3654 777777 777757 ZZ=ZZ+ZZ+1 3655 IFE , 3656 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3657 DMOVE AC,[0,,0 3658 033066 120 04 0 00 043330 0,,0] 3659 DFAD AC,[777,,ZZ 3660 033067 110 04 0 00 044015 -1,,-1] 3661 033070 312 04 0 00 044015 CAME AC,[777,,ZZ] 3662 033071 003 04 0 00 000651 ER3 AC,T 3663 033072 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3664 033073 004 05 0 00 000651 ER4 AC+1,T 3665 033074 321 10 0 00 033066 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3666 3667 000652 T=T+1 3668 777777 777737 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0089 3669 IFE , 3670 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3671 DMOVE AC,[0,,0 3672 033075 120 04 0 00 043330 0,,0] 3673 DFAD AC,[777,,ZZ 3674 033076 110 04 0 00 044017 -1,,-1] 3675 033077 312 04 0 00 044017 CAME AC,[777,,ZZ] 3676 033100 003 04 0 00 000652 ER3 AC,T 3677 033101 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3678 033102 004 05 0 00 000652 ER4 AC+1,T 3679 033103 321 10 0 00 033075 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3680 3681 000653 T=T+1 3682 777777 777677 ZZ=ZZ+ZZ+1 3683 IFE , 3684 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3685 DMOVE AC,[0,,0 3686 033104 120 04 0 00 043330 0,,0] 3687 DFAD AC,[777,,ZZ 3688 033105 110 04 0 00 044021 -1,,-1] 3689 033106 312 04 0 00 044021 CAME AC,[777,,ZZ] 3690 033107 003 04 0 00 000653 ER3 AC,T 3691 033110 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3692 033111 004 05 0 00 000653 ER4 AC+1,T 3693 033112 321 10 0 00 033104 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3694 3695 000654 T=T+1 3696 777777 777577 ZZ=ZZ+ZZ+1 3697 IFE , 3698 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3699 DMOVE AC,[0,,0 3700 033113 120 04 0 00 043330 0,,0] 3701 DFAD AC,[777,,ZZ 3702 033114 110 04 0 00 044023 -1,,-1] 3703 033115 312 04 0 00 044023 CAME AC,[777,,ZZ] 3704 033116 003 04 0 00 000654 ER3 AC,T 3705 033117 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3706 033120 004 05 0 00 000654 ER4 AC+1,T 3707 033121 321 10 0 00 033113 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3708 3709 000655 T=T+1 3710 777777 777377 ZZ=ZZ+ZZ+1 3711 IFE , 3712 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3713 DMOVE AC,[0,,0 3714 033122 120 04 0 00 043330 0,,0] 3715 DFAD AC,[777,,ZZ 3716 033123 110 04 0 00 044025 -1,,-1] 3717 033124 312 04 0 00 044025 CAME AC,[777,,ZZ] 3718 033125 003 04 0 00 000655 ER3 AC,T 3719 033126 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3720 033127 004 05 0 00 000655 ER4 AC+1,T 3721 033130 321 10 0 00 033122 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3722 3723 000656 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0090 3724 777777 776777 ZZ=ZZ+ZZ+1 3725 IFE , 3726 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3727 DMOVE AC,[0,,0 3728 033131 120 04 0 00 043330 0,,0] 3729 DFAD AC,[777,,ZZ 3730 033132 110 04 0 00 044027 -1,,-1] 3731 033133 312 04 0 00 044027 CAME AC,[777,,ZZ] 3732 033134 003 04 0 00 000656 ER3 AC,T 3733 033135 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3734 033136 004 05 0 00 000656 ER4 AC+1,T 3735 033137 321 10 0 00 033131 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3736 3737 000657 T=T+1 3738 777777 775777 ZZ=ZZ+ZZ+1 3739 IFE , 3740 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3741 DMOVE AC,[0,,0 3742 033140 120 04 0 00 043330 0,,0] 3743 DFAD AC,[777,,ZZ 3744 033141 110 04 0 00 044031 -1,,-1] 3745 033142 312 04 0 00 044031 CAME AC,[777,,ZZ] 3746 033143 003 04 0 00 000657 ER3 AC,T 3747 033144 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3748 033145 004 05 0 00 000657 ER4 AC+1,T 3749 033146 321 10 0 00 033140 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3750 3751 000660 T=T+1 3752 777777 773777 ZZ=ZZ+ZZ+1 3753 IFE , 3754 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3755 DMOVE AC,[0,,0 3756 033147 120 04 0 00 043330 0,,0] 3757 DFAD AC,[777,,ZZ 3758 033150 110 04 0 00 044033 -1,,-1] 3759 033151 312 04 0 00 044033 CAME AC,[777,,ZZ] 3760 033152 003 04 0 00 000660 ER3 AC,T 3761 033153 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3762 033154 004 05 0 00 000660 ER4 AC+1,T 3763 033155 321 10 0 00 033147 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3764 3765 000661 T=T+1 3766 777777 767777 ZZ=ZZ+ZZ+1 3767 IFE , 3768 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3769 DMOVE AC,[0,,0 3770 033156 120 04 0 00 043330 0,,0] 3771 DFAD AC,[777,,ZZ 3772 033157 110 04 0 00 044035 -1,,-1] 3773 033160 312 04 0 00 044035 CAME AC,[777,,ZZ] 3774 033161 003 04 0 00 000661 ER3 AC,T 3775 033162 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3776 033163 004 05 0 00 000661 ER4 AC+1,T 3777 033164 321 10 0 00 033156 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3778 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0091 3779 000662 T=T+1 3780 777777 757777 ZZ=ZZ+ZZ+1 3781 IFE , 3782 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3783 DMOVE AC,[0,,0 3784 033165 120 04 0 00 043330 0,,0] 3785 DFAD AC,[777,,ZZ 3786 033166 110 04 0 00 044037 -1,,-1] 3787 033167 312 04 0 00 044037 CAME AC,[777,,ZZ] 3788 033170 003 04 0 00 000662 ER3 AC,T 3789 033171 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3790 033172 004 05 0 00 000662 ER4 AC+1,T 3791 033173 321 10 0 00 033165 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3792 3793 000663 T=T+1 3794 777777 737777 ZZ=ZZ+ZZ+1 3795 IFE , 3796 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3797 DMOVE AC,[0,,0 3798 033174 120 04 0 00 043330 0,,0] 3799 DFAD AC,[777,,ZZ 3800 033175 110 04 0 00 044041 -1,,-1] 3801 033176 312 04 0 00 044041 CAME AC,[777,,ZZ] 3802 033177 003 04 0 00 000663 ER3 AC,T 3803 033200 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3804 033201 004 05 0 00 000663 ER4 AC+1,T 3805 033202 321 10 0 00 033174 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3806 3807 000664 T=T+1 3808 777777 677777 ZZ=ZZ+ZZ+1 3809 IFE , 3810 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3811 DMOVE AC,[0,,0 3812 033203 120 04 0 00 043330 0,,0] 3813 DFAD AC,[777,,ZZ 3814 033204 110 04 0 00 044043 -1,,-1] 3815 033205 312 04 0 00 044043 CAME AC,[777,,ZZ] 3816 033206 003 04 0 00 000664 ER3 AC,T 3817 033207 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3818 033210 004 05 0 00 000664 ER4 AC+1,T 3819 033211 321 10 0 00 033203 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3820 3821 000665 T=T+1 3822 777777 577777 ZZ=ZZ+ZZ+1 3823 IFE , 3824 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3825 DMOVE AC,[0,,0 3826 033212 120 04 0 00 043330 0,,0] 3827 DFAD AC,[777,,ZZ 3828 033213 110 04 0 00 044045 -1,,-1] 3829 033214 312 04 0 00 044045 CAME AC,[777,,ZZ] 3830 033215 003 04 0 00 000665 ER3 AC,T 3831 033216 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3832 033217 004 05 0 00 000665 ER4 AC+1,T 3833 033220 321 10 0 00 033212 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0092 3834 3835 000666 T=T+1 3836 777777 377777 ZZ=ZZ+ZZ+1 3837 IFE , 3838 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^ 3839 DMOVE AC,[0,,0 3840 033221 120 04 0 00 043330 0,,0] 3841 DFAD AC,[777,,ZZ 3842 033222 110 04 0 00 044047 -1,,-1] 3843 033223 312 04 0 00 044047 CAME AC,[777,,ZZ] 3844 033224 003 04 0 00 000666 ER3 AC,T 3845 033225 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3846 033226 004 05 0 00 000666 ER4 AC+1,T 3847 033227 321 10 0 00 033221 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3848 3849 3850 000000 ZZ=0 3851 3852 REPEAT ^D8, 3853 , 3856 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1 3857 > 3858 3859 000667 T=T+1 3860 000001 ZZ=ZZ+ZZ+1 3861 777777 777776 IFE , 3862 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3863 DMOVE AC,[0,,0 3864 033230 120 04 0 00 043330 0,,0] 3865 DFAD AC,[ZZ&777,,-1 3866 033231 110 04 0 00 044051 -1,,-1] 3867 033232 312 04 0 00 044051 CAME AC,[ZZ&777,,-1] 3868 033233 003 04 0 00 000667 ER3 AC,T 3869 033234 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3870 033235 004 05 0 00 000667 ER4 AC+1,T 3871 033236 321 10 0 00 033230 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3872 3873 000670 T=T+1 3874 777777 777775 ZZ=ZZ+ZZ+1 3875 IFE , 3876 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3877 DMOVE AC,[0,,0 3878 033237 120 04 0 00 043330 0,,0] 3879 DFAD AC,[ZZ&777,,-1 3880 033240 110 04 0 00 044053 -1,,-1] 3881 033241 312 04 0 00 044053 CAME AC,[ZZ&777,,-1] 3882 033242 003 04 0 00 000670 ER3 AC,T 3883 033243 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3884 033244 004 05 0 00 000670 ER4 AC+1,T 3885 033245 321 10 0 00 033237 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3886 3887 000671 T=T+1 3888 777777 777773 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0093 3889 IFE , 3890 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3891 DMOVE AC,[0,,0 3892 033246 120 04 0 00 043330 0,,0] 3893 DFAD AC,[ZZ&777,,-1 3894 033247 110 04 0 00 044055 -1,,-1] 3895 033250 312 04 0 00 044055 CAME AC,[ZZ&777,,-1] 3896 033251 003 04 0 00 000671 ER3 AC,T 3897 033252 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3898 033253 004 05 0 00 000671 ER4 AC+1,T 3899 033254 321 10 0 00 033246 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3900 3901 000672 T=T+1 3902 777777 777767 ZZ=ZZ+ZZ+1 3903 IFE , 3904 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3905 DMOVE AC,[0,,0 3906 033255 120 04 0 00 043330 0,,0] 3907 DFAD AC,[ZZ&777,,-1 3908 033256 110 04 0 00 044057 -1,,-1] 3909 033257 312 04 0 00 044057 CAME AC,[ZZ&777,,-1] 3910 033260 003 04 0 00 000672 ER3 AC,T 3911 033261 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3912 033262 004 05 0 00 000672 ER4 AC+1,T 3913 033263 321 10 0 00 033255 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3914 3915 000673 T=T+1 3916 777777 777757 ZZ=ZZ+ZZ+1 3917 IFE , 3918 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3919 DMOVE AC,[0,,0 3920 033264 120 04 0 00 043330 0,,0] 3921 DFAD AC,[ZZ&777,,-1 3922 033265 110 04 0 00 044061 -1,,-1] 3923 033266 312 04 0 00 044061 CAME AC,[ZZ&777,,-1] 3924 033267 003 04 0 00 000673 ER3 AC,T 3925 033270 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3926 033271 004 05 0 00 000673 ER4 AC+1,T 3927 033272 321 10 0 00 033264 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3928 3929 000674 T=T+1 3930 777777 777737 ZZ=ZZ+ZZ+1 3931 IFE , 3932 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3933 DMOVE AC,[0,,0 3934 033273 120 04 0 00 043330 0,,0] 3935 DFAD AC,[ZZ&777,,-1 3936 033274 110 04 0 00 044063 -1,,-1] 3937 033275 312 04 0 00 044063 CAME AC,[ZZ&777,,-1] 3938 033276 003 04 0 00 000674 ER3 AC,T 3939 033277 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3940 033300 004 05 0 00 000674 ER4 AC+1,T 3941 033301 321 10 0 00 033273 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3942 3943 000675 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0094 3944 777777 777677 ZZ=ZZ+ZZ+1 3945 IFE , 3946 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3947 DMOVE AC,[0,,0 3948 033302 120 04 0 00 043330 0,,0] 3949 DFAD AC,[ZZ&777,,-1 3950 033303 110 04 0 00 044065 -1,,-1] 3951 033304 312 04 0 00 044065 CAME AC,[ZZ&777,,-1] 3952 033305 003 04 0 00 000675 ER3 AC,T 3953 033306 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3954 033307 004 05 0 00 000675 ER4 AC+1,T 3955 033310 321 10 0 00 033302 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3956 3957 000676 T=T+1 3958 777777 777577 ZZ=ZZ+ZZ+1 3959 IFE , 3960 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^ 3961 DMOVE AC,[0,,0 3962 033311 120 04 0 00 043330 0,,0] 3963 DFAD AC,[ZZ&777,,-1 3964 033312 110 04 0 00 044067 -1,,-1] 3965 033313 312 04 0 00 044067 CAME AC,[ZZ&777,,-1] 3966 033314 003 04 0 00 000676 ER3 AC,T 3967 033315 312 05 0 00 043631 CAME AC+1,[377777,,-1] 3968 033316 004 05 0 00 000676 ER4 AC+1,T 3969 033317 321 10 0 00 033311 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3970 3971 3972 000677 T=T+1 3973 DFARP T,0,0,0,0,1377,-1,-1,-1,777,-1,377777,-2^ 3974 DMOVE AC,[0,,0 3975 033320 120 04 0 00 043330 0,,0] 3976 DFAD AC,[1377,,-1 3977 033321 110 04 0 00 044071 -1,,-1] 3978 033322 312 04 0 00 043627 CAME AC,[777,,-1] 3979 033323 003 04 0 00 000677 ER3 AC,T 3980 033324 312 05 0 00 043634 CAME AC+1,[377777,,-2] 3981 033325 004 05 0 00 000677 ER4 AC+1,T 3982 033326 321 10 0 00 033320 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0095 3983 ;RIPPLE ZEROS TEST (TO A RIPPLED ZERO, ADD A FRACTION OF ALL ZEROS) 3984 3985 000700 T=700 3986 000000 ZZ=0 3987 3988 R700: REPEAT ^D18, 3989 , 3992 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ 3993 > 3994 000701 T=T+1 3995 000001 ZZ=ZZ+ZZ+1 3996 777777 777776 IFE , 3997 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 3998 DMOVE AC,[777,,-1 3999 033327 120 04 0 00 043632 -1,,ZZ] 4000 DFAD AC,[0,,0 4001 033330 110 04 0 00 043330 0,,0] 4002 033331 312 04 0 00 043627 CAME AC,[777,,-1] 4003 033332 003 04 0 00 000701 ER3 AC,T 4004 033333 312 05 0 00 043634 CAME AC+1,[377777,,ZZ] 4005 033334 004 05 0 00 000701 ER4 AC+1,T 4006 033335 321 10 0 00 033327 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4007 4008 000702 T=T+1 4009 777777 777775 ZZ=ZZ+ZZ+1 4010 IFE , 4011 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4012 DMOVE AC,[777,,-1 4013 033336 120 04 0 00 043635 -1,,ZZ] 4014 DFAD AC,[0,,0 4015 033337 110 04 0 00 043330 0,,0] 4016 033340 312 04 0 00 043627 CAME AC,[777,,-1] 4017 033341 003 04 0 00 000702 ER3 AC,T 4018 033342 312 05 0 00 043637 CAME AC+1,[377777,,ZZ] 4019 033343 004 05 0 00 000702 ER4 AC+1,T 4020 033344 321 10 0 00 033336 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4021 4022 000703 T=T+1 4023 777777 777773 ZZ=ZZ+ZZ+1 4024 IFE , 4025 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4026 DMOVE AC,[777,,-1 4027 033345 120 04 0 00 043640 -1,,ZZ] 4028 DFAD AC,[0,,0 4029 033346 110 04 0 00 043330 0,,0] 4030 033347 312 04 0 00 043627 CAME AC,[777,,-1] 4031 033350 003 04 0 00 000703 ER3 AC,T 4032 033351 312 05 0 00 043642 CAME AC+1,[377777,,ZZ] 4033 033352 004 05 0 00 000703 ER4 AC+1,T 4034 033353 321 10 0 00 033345 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4035 4036 000704 T=T+1 4037 777777 777767 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0096 4038 IFE , 4039 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4040 DMOVE AC,[777,,-1 4041 033354 120 04 0 00 043643 -1,,ZZ] 4042 DFAD AC,[0,,0 4043 033355 110 04 0 00 043330 0,,0] 4044 033356 312 04 0 00 043627 CAME AC,[777,,-1] 4045 033357 003 04 0 00 000704 ER3 AC,T 4046 033360 312 05 0 00 043645 CAME AC+1,[377777,,ZZ] 4047 033361 004 05 0 00 000704 ER4 AC+1,T 4048 033362 321 10 0 00 033354 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4049 4050 000705 T=T+1 4051 777777 777757 ZZ=ZZ+ZZ+1 4052 IFE , 4053 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4054 DMOVE AC,[777,,-1 4055 033363 120 04 0 00 043646 -1,,ZZ] 4056 DFAD AC,[0,,0 4057 033364 110 04 0 00 043330 0,,0] 4058 033365 312 04 0 00 043627 CAME AC,[777,,-1] 4059 033366 003 04 0 00 000705 ER3 AC,T 4060 033367 312 05 0 00 043650 CAME AC+1,[377777,,ZZ] 4061 033370 004 05 0 00 000705 ER4 AC+1,T 4062 033371 321 10 0 00 033363 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4063 4064 000706 T=T+1 4065 777777 777737 ZZ=ZZ+ZZ+1 4066 IFE , 4067 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4068 DMOVE AC,[777,,-1 4069 033372 120 04 0 00 043651 -1,,ZZ] 4070 DFAD AC,[0,,0 4071 033373 110 04 0 00 043330 0,,0] 4072 033374 312 04 0 00 043627 CAME AC,[777,,-1] 4073 033375 003 04 0 00 000706 ER3 AC,T 4074 033376 312 05 0 00 043653 CAME AC+1,[377777,,ZZ] 4075 033377 004 05 0 00 000706 ER4 AC+1,T 4076 033400 321 10 0 00 033372 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4077 4078 000707 T=T+1 4079 777777 777677 ZZ=ZZ+ZZ+1 4080 IFE , 4081 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4082 DMOVE AC,[777,,-1 4083 033401 120 04 0 00 043654 -1,,ZZ] 4084 DFAD AC,[0,,0 4085 033402 110 04 0 00 043330 0,,0] 4086 033403 312 04 0 00 043627 CAME AC,[777,,-1] 4087 033404 003 04 0 00 000707 ER3 AC,T 4088 033405 312 05 0 00 043656 CAME AC+1,[377777,,ZZ] 4089 033406 004 05 0 00 000707 ER4 AC+1,T 4090 033407 321 10 0 00 033401 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4091 4092 000710 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0097 4093 777777 777577 ZZ=ZZ+ZZ+1 4094 IFE , 4095 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4096 DMOVE AC,[777,,-1 4097 033410 120 04 0 00 043657 -1,,ZZ] 4098 DFAD AC,[0,,0 4099 033411 110 04 0 00 043330 0,,0] 4100 033412 312 04 0 00 043627 CAME AC,[777,,-1] 4101 033413 003 04 0 00 000710 ER3 AC,T 4102 033414 312 05 0 00 043661 CAME AC+1,[377777,,ZZ] 4103 033415 004 05 0 00 000710 ER4 AC+1,T 4104 033416 321 10 0 00 033410 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4105 4106 000711 T=T+1 4107 777777 777377 ZZ=ZZ+ZZ+1 4108 IFE , 4109 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4110 DMOVE AC,[777,,-1 4111 033417 120 04 0 00 043662 -1,,ZZ] 4112 DFAD AC,[0,,0 4113 033420 110 04 0 00 043330 0,,0] 4114 033421 312 04 0 00 043627 CAME AC,[777,,-1] 4115 033422 003 04 0 00 000711 ER3 AC,T 4116 033423 312 05 0 00 043664 CAME AC+1,[377777,,ZZ] 4117 033424 004 05 0 00 000711 ER4 AC+1,T 4118 033425 321 10 0 00 033417 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4119 4120 000712 T=T+1 4121 777777 776777 ZZ=ZZ+ZZ+1 4122 IFE , 4123 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4124 DMOVE AC,[777,,-1 4125 033426 120 04 0 00 043665 -1,,ZZ] 4126 DFAD AC,[0,,0 4127 033427 110 04 0 00 043330 0,,0] 4128 033430 312 04 0 00 043627 CAME AC,[777,,-1] 4129 033431 003 04 0 00 000712 ER3 AC,T 4130 033432 312 05 0 00 043667 CAME AC+1,[377777,,ZZ] 4131 033433 004 05 0 00 000712 ER4 AC+1,T 4132 033434 321 10 0 00 033426 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4133 4134 000713 T=T+1 4135 777777 775777 ZZ=ZZ+ZZ+1 4136 IFE , 4137 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4138 DMOVE AC,[777,,-1 4139 033435 120 04 0 00 043670 -1,,ZZ] 4140 DFAD AC,[0,,0 4141 033436 110 04 0 00 043330 0,,0] 4142 033437 312 04 0 00 043627 CAME AC,[777,,-1] 4143 033440 003 04 0 00 000713 ER3 AC,T 4144 033441 312 05 0 00 043672 CAME AC+1,[377777,,ZZ] 4145 033442 004 05 0 00 000713 ER4 AC+1,T 4146 033443 321 10 0 00 033435 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4147 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0098 4148 000714 T=T+1 4149 777777 773777 ZZ=ZZ+ZZ+1 4150 IFE , 4151 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4152 DMOVE AC,[777,,-1 4153 033444 120 04 0 00 043673 -1,,ZZ] 4154 DFAD AC,[0,,0 4155 033445 110 04 0 00 043330 0,,0] 4156 033446 312 04 0 00 043627 CAME AC,[777,,-1] 4157 033447 003 04 0 00 000714 ER3 AC,T 4158 033450 312 05 0 00 043675 CAME AC+1,[377777,,ZZ] 4159 033451 004 05 0 00 000714 ER4 AC+1,T 4160 033452 321 10 0 00 033444 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4161 4162 000715 T=T+1 4163 777777 767777 ZZ=ZZ+ZZ+1 4164 IFE , 4165 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4166 DMOVE AC,[777,,-1 4167 033453 120 04 0 00 043676 -1,,ZZ] 4168 DFAD AC,[0,,0 4169 033454 110 04 0 00 043330 0,,0] 4170 033455 312 04 0 00 043627 CAME AC,[777,,-1] 4171 033456 003 04 0 00 000715 ER3 AC,T 4172 033457 312 05 0 00 043700 CAME AC+1,[377777,,ZZ] 4173 033460 004 05 0 00 000715 ER4 AC+1,T 4174 033461 321 10 0 00 033453 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4175 4176 000716 T=T+1 4177 777777 757777 ZZ=ZZ+ZZ+1 4178 IFE , 4179 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4180 DMOVE AC,[777,,-1 4181 033462 120 04 0 00 043701 -1,,ZZ] 4182 DFAD AC,[0,,0 4183 033463 110 04 0 00 043330 0,,0] 4184 033464 312 04 0 00 043627 CAME AC,[777,,-1] 4185 033465 003 04 0 00 000716 ER3 AC,T 4186 033466 312 05 0 00 043703 CAME AC+1,[377777,,ZZ] 4187 033467 004 05 0 00 000716 ER4 AC+1,T 4188 033470 321 10 0 00 033462 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4189 4190 000717 T=T+1 4191 777777 737777 ZZ=ZZ+ZZ+1 4192 IFE , 4193 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4194 DMOVE AC,[777,,-1 4195 033471 120 04 0 00 043704 -1,,ZZ] 4196 DFAD AC,[0,,0 4197 033472 110 04 0 00 043330 0,,0] 4198 033473 312 04 0 00 043627 CAME AC,[777,,-1] 4199 033474 003 04 0 00 000717 ER3 AC,T 4200 033475 312 05 0 00 043706 CAME AC+1,[377777,,ZZ] 4201 033476 004 05 0 00 000717 ER4 AC+1,T 4202 033477 321 10 0 00 033471 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0099 4203 4204 000720 T=T+1 4205 777777 677777 ZZ=ZZ+ZZ+1 4206 IFE , 4207 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4208 DMOVE AC,[777,,-1 4209 033500 120 04 0 00 043707 -1,,ZZ] 4210 DFAD AC,[0,,0 4211 033501 110 04 0 00 043330 0,,0] 4212 033502 312 04 0 00 043627 CAME AC,[777,,-1] 4213 033503 003 04 0 00 000720 ER3 AC,T 4214 033504 312 05 0 00 043711 CAME AC+1,[377777,,ZZ] 4215 033505 004 05 0 00 000720 ER4 AC+1,T 4216 033506 321 10 0 00 033500 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4217 4218 000721 T=T+1 4219 777777 577777 ZZ=ZZ+ZZ+1 4220 IFE , 4221 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4222 DMOVE AC,[777,,-1 4223 033507 120 04 0 00 043712 -1,,ZZ] 4224 DFAD AC,[0,,0 4225 033510 110 04 0 00 043330 0,,0] 4226 033511 312 04 0 00 043627 CAME AC,[777,,-1] 4227 033512 003 04 0 00 000721 ER3 AC,T 4228 033513 312 05 0 00 043714 CAME AC+1,[377777,,ZZ] 4229 033514 004 05 0 00 000721 ER4 AC+1,T 4230 033515 321 10 0 00 033507 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4231 4232 000722 T=T+1 4233 777777 377777 ZZ=ZZ+ZZ+1 4234 IFE , 4235 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^ 4236 DMOVE AC,[777,,-1 4237 033516 120 04 0 00 043715 -1,,ZZ] 4238 DFAD AC,[0,,0 4239 033517 110 04 0 00 043330 0,,0] 4240 033520 312 04 0 00 043627 CAME AC,[777,,-1] 4241 033521 003 04 0 00 000722 ER3 AC,T 4242 033522 312 05 0 00 043717 CAME AC+1,[377777,,ZZ] 4243 033523 004 05 0 00 000722 ER4 AC+1,T 4244 033524 321 10 0 00 033516 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4245 4246 4247 000000 ZZ=0 4248 4249 REPEAT ^D18, 4250 , 4253 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1 4254 > 4255 000723 T=T+1 4256 000001 ZZ=ZZ+ZZ+1 4257 777777 777776 IFE , DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0100 4258 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4259 DMOVE AC,[777,,-1 4260 033525 120 04 0 00 043720 ZZ,,-1] 4261 DFAD AC,[0,,0 4262 033526 110 04 0 00 043330 0,,0] 4263 033527 312 04 0 00 043627 CAME AC,[777,,-1] 4264 033530 003 04 0 00 000723 ER3 AC,T 4265 033531 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1] 4266 033532 004 05 0 00 000723 ER4 AC+1,T 4267 033533 321 10 0 00 033525 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4268 4269 000724 T=T+1 4270 777777 777775 ZZ=ZZ+ZZ+1 4271 IFE , 4272 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4273 DMOVE AC,[777,,-1 4274 033534 120 04 0 00 043723 ZZ,,-1] 4275 DFAD AC,[0,,0 4276 033535 110 04 0 00 043330 0,,0] 4277 033536 312 04 0 00 043627 CAME AC,[777,,-1] 4278 033537 003 04 0 00 000724 ER3 AC,T 4279 033540 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1] 4280 033541 004 05 0 00 000724 ER4 AC+1,T 4281 033542 321 10 0 00 033534 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4282 4283 000725 T=T+1 4284 777777 777773 ZZ=ZZ+ZZ+1 4285 IFE , 4286 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4287 DMOVE AC,[777,,-1 4288 033543 120 04 0 00 043726 ZZ,,-1] 4289 DFAD AC,[0,,0 4290 033544 110 04 0 00 043330 0,,0] 4291 033545 312 04 0 00 043627 CAME AC,[777,,-1] 4292 033546 003 04 0 00 000725 ER3 AC,T 4293 033547 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1] 4294 033550 004 05 0 00 000725 ER4 AC+1,T 4295 033551 321 10 0 00 033543 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4296 4297 000726 T=T+1 4298 777777 777767 ZZ=ZZ+ZZ+1 4299 IFE , 4300 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4301 DMOVE AC,[777,,-1 4302 033552 120 04 0 00 043731 ZZ,,-1] 4303 DFAD AC,[0,,0 4304 033553 110 04 0 00 043330 0,,0] 4305 033554 312 04 0 00 043627 CAME AC,[777,,-1] 4306 033555 003 04 0 00 000726 ER3 AC,T 4307 033556 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1] 4308 033557 004 05 0 00 000726 ER4 AC+1,T 4309 033560 321 10 0 00 033552 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4310 4311 000727 T=T+1 4312 777777 777757 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0101 4313 IFE , 4314 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4315 DMOVE AC,[777,,-1 4316 033561 120 04 0 00 043734 ZZ,,-1] 4317 DFAD AC,[0,,0 4318 033562 110 04 0 00 043330 0,,0] 4319 033563 312 04 0 00 043627 CAME AC,[777,,-1] 4320 033564 003 04 0 00 000727 ER3 AC,T 4321 033565 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1] 4322 033566 004 05 0 00 000727 ER4 AC+1,T 4323 033567 321 10 0 00 033561 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4324 4325 000730 T=T+1 4326 777777 777737 ZZ=ZZ+ZZ+1 4327 IFE , 4328 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4329 DMOVE AC,[777,,-1 4330 033570 120 04 0 00 043737 ZZ,,-1] 4331 DFAD AC,[0,,0 4332 033571 110 04 0 00 043330 0,,0] 4333 033572 312 04 0 00 043627 CAME AC,[777,,-1] 4334 033573 003 04 0 00 000730 ER3 AC,T 4335 033574 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1] 4336 033575 004 05 0 00 000730 ER4 AC+1,T 4337 033576 321 10 0 00 033570 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4338 4339 000731 T=T+1 4340 777777 777677 ZZ=ZZ+ZZ+1 4341 IFE , 4342 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4343 DMOVE AC,[777,,-1 4344 033577 120 04 0 00 043742 ZZ,,-1] 4345 DFAD AC,[0,,0 4346 033600 110 04 0 00 043330 0,,0] 4347 033601 312 04 0 00 043627 CAME AC,[777,,-1] 4348 033602 003 04 0 00 000731 ER3 AC,T 4349 033603 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1] 4350 033604 004 05 0 00 000731 ER4 AC+1,T 4351 033605 321 10 0 00 033577 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4352 4353 000732 T=T+1 4354 777777 777577 ZZ=ZZ+ZZ+1 4355 IFE , 4356 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4357 DMOVE AC,[777,,-1 4358 033606 120 04 0 00 043745 ZZ,,-1] 4359 DFAD AC,[0,,0 4360 033607 110 04 0 00 043330 0,,0] 4361 033610 312 04 0 00 043627 CAME AC,[777,,-1] 4362 033611 003 04 0 00 000732 ER3 AC,T 4363 033612 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1] 4364 033613 004 05 0 00 000732 ER4 AC+1,T 4365 033614 321 10 0 00 033606 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4366 4367 000733 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0102 4368 777777 777377 ZZ=ZZ+ZZ+1 4369 IFE , 4370 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4371 DMOVE AC,[777,,-1 4372 033615 120 04 0 00 043750 ZZ,,-1] 4373 DFAD AC,[0,,0 4374 033616 110 04 0 00 043330 0,,0] 4375 033617 312 04 0 00 043627 CAME AC,[777,,-1] 4376 033620 003 04 0 00 000733 ER3 AC,T 4377 033621 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1] 4378 033622 004 05 0 00 000733 ER4 AC+1,T 4379 033623 321 10 0 00 033615 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4380 4381 000734 T=T+1 4382 777777 776777 ZZ=ZZ+ZZ+1 4383 IFE , 4384 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4385 DMOVE AC,[777,,-1 4386 033624 120 04 0 00 043753 ZZ,,-1] 4387 DFAD AC,[0,,0 4388 033625 110 04 0 00 043330 0,,0] 4389 033626 312 04 0 00 043627 CAME AC,[777,,-1] 4390 033627 003 04 0 00 000734 ER3 AC,T 4391 033630 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1] 4392 033631 004 05 0 00 000734 ER4 AC+1,T 4393 033632 321 10 0 00 033624 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4394 4395 000735 T=T+1 4396 777777 775777 ZZ=ZZ+ZZ+1 4397 IFE , 4398 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4399 DMOVE AC,[777,,-1 4400 033633 120 04 0 00 043756 ZZ,,-1] 4401 DFAD AC,[0,,0 4402 033634 110 04 0 00 043330 0,,0] 4403 033635 312 04 0 00 043627 CAME AC,[777,,-1] 4404 033636 003 04 0 00 000735 ER3 AC,T 4405 033637 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1] 4406 033640 004 05 0 00 000735 ER4 AC+1,T 4407 033641 321 10 0 00 033633 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4408 4409 000736 T=T+1 4410 777777 773777 ZZ=ZZ+ZZ+1 4411 IFE , 4412 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4413 DMOVE AC,[777,,-1 4414 033642 120 04 0 00 043761 ZZ,,-1] 4415 DFAD AC,[0,,0 4416 033643 110 04 0 00 043330 0,,0] 4417 033644 312 04 0 00 043627 CAME AC,[777,,-1] 4418 033645 003 04 0 00 000736 ER3 AC,T 4419 033646 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1] 4420 033647 004 05 0 00 000736 ER4 AC+1,T 4421 033650 321 10 0 00 033642 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4422 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0103 4423 000737 T=T+1 4424 777777 767777 ZZ=ZZ+ZZ+1 4425 IFE , 4426 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4427 DMOVE AC,[777,,-1 4428 033651 120 04 0 00 043764 ZZ,,-1] 4429 DFAD AC,[0,,0 4430 033652 110 04 0 00 043330 0,,0] 4431 033653 312 04 0 00 043627 CAME AC,[777,,-1] 4432 033654 003 04 0 00 000737 ER3 AC,T 4433 033655 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1] 4434 033656 004 05 0 00 000737 ER4 AC+1,T 4435 033657 321 10 0 00 033651 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4436 4437 000740 T=T+1 4438 777777 757777 ZZ=ZZ+ZZ+1 4439 IFE , 4440 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4441 DMOVE AC,[777,,-1 4442 033660 120 04 0 00 043767 ZZ,,-1] 4443 DFAD AC,[0,,0 4444 033661 110 04 0 00 043330 0,,0] 4445 033662 312 04 0 00 043627 CAME AC,[777,,-1] 4446 033663 003 04 0 00 000740 ER3 AC,T 4447 033664 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1] 4448 033665 004 05 0 00 000740 ER4 AC+1,T 4449 033666 321 10 0 00 033660 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4450 4451 000741 T=T+1 4452 777777 737777 ZZ=ZZ+ZZ+1 4453 IFE , 4454 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4455 DMOVE AC,[777,,-1 4456 033667 120 04 0 00 043772 ZZ,,-1] 4457 DFAD AC,[0,,0 4458 033670 110 04 0 00 043330 0,,0] 4459 033671 312 04 0 00 043627 CAME AC,[777,,-1] 4460 033672 003 04 0 00 000741 ER3 AC,T 4461 033673 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1] 4462 033674 004 05 0 00 000741 ER4 AC+1,T 4463 033675 321 10 0 00 033667 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4464 4465 000742 T=T+1 4466 777777 677777 ZZ=ZZ+ZZ+1 4467 IFE , 4468 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4469 DMOVE AC,[777,,-1 4470 033676 120 04 0 00 043775 ZZ,,-1] 4471 DFAD AC,[0,,0 4472 033677 110 04 0 00 043330 0,,0] 4473 033700 312 04 0 00 043627 CAME AC,[777,,-1] 4474 033701 003 04 0 00 000742 ER3 AC,T 4475 033702 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1] 4476 033703 004 05 0 00 000742 ER4 AC+1,T 4477 033704 321 10 0 00 033676 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0104 4478 4479 000743 T=T+1 4480 777777 577777 ZZ=ZZ+ZZ+1 4481 IFE , 4482 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4483 DMOVE AC,[777,,-1 4484 033705 120 04 0 00 044000 ZZ,,-1] 4485 DFAD AC,[0,,0 4486 033706 110 04 0 00 043330 0,,0] 4487 033707 312 04 0 00 043627 CAME AC,[777,,-1] 4488 033710 003 04 0 00 000743 ER3 AC,T 4489 033711 312 05 0 00 044002 CAME AC+1,[ZZ&377777,,-1] 4490 033712 004 05 0 00 000743 ER4 AC+1,T 4491 033713 321 10 0 00 033705 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4492 4493 000744 T=T+1 4494 777777 377777 ZZ=ZZ+ZZ+1 4495 IFE , 4496 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^ 4497 DMOVE AC,[777,,-1 4498 033714 120 04 0 00 044003 ZZ,,-1] 4499 DFAD AC,[0,,0 4500 033715 110 04 0 00 043330 0,,0] 4501 033716 312 04 0 00 043627 CAME AC,[777,,-1] 4502 033717 003 04 0 00 000744 ER3 AC,T 4503 033720 312 05 0 00 043631 CAME AC+1,[ZZ&377777,,-1] 4504 033721 004 05 0 00 000744 ER4 AC+1,T 4505 033722 321 10 0 00 033714 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4506 4507 4508 000000 ZZ=0 4509 4510 REPEAT ^D18, 4511 , 4514 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1 4515 > 4516 000745 T=T+1 4517 000001 ZZ=ZZ+ZZ+1 4518 777777 777776 IFE , 4519 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4520 DMOVE AC,[777,,ZZ 4521 033723 120 04 0 00 044005 -1,,-1] 4522 DFAD AC,[0,,0 4523 033724 110 04 0 00 043330 0,,0] 4524 033725 312 04 0 00 044005 CAME AC,[777,,ZZ] 4525 033726 003 04 0 00 000745 ER3 AC,T 4526 033727 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4527 033730 004 05 0 00 000745 ER4 AC+1,T 4528 033731 321 10 0 00 033723 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4529 4530 000746 T=T+1 4531 777777 777775 ZZ=ZZ+ZZ+1 4532 IFE , DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0105 4533 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4534 DMOVE AC,[777,,ZZ 4535 033732 120 04 0 00 044007 -1,,-1] 4536 DFAD AC,[0,,0 4537 033733 110 04 0 00 043330 0,,0] 4538 033734 312 04 0 00 044007 CAME AC,[777,,ZZ] 4539 033735 003 04 0 00 000746 ER3 AC,T 4540 033736 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4541 033737 004 05 0 00 000746 ER4 AC+1,T 4542 033740 321 10 0 00 033732 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4543 4544 000747 T=T+1 4545 777777 777773 ZZ=ZZ+ZZ+1 4546 IFE , 4547 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4548 DMOVE AC,[777,,ZZ 4549 033741 120 04 0 00 044011 -1,,-1] 4550 DFAD AC,[0,,0 4551 033742 110 04 0 00 043330 0,,0] 4552 033743 312 04 0 00 044011 CAME AC,[777,,ZZ] 4553 033744 003 04 0 00 000747 ER3 AC,T 4554 033745 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4555 033746 004 05 0 00 000747 ER4 AC+1,T 4556 033747 321 10 0 00 033741 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4557 4558 000750 T=T+1 4559 777777 777767 ZZ=ZZ+ZZ+1 4560 IFE , 4561 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4562 DMOVE AC,[777,,ZZ 4563 033750 120 04 0 00 044013 -1,,-1] 4564 DFAD AC,[0,,0 4565 033751 110 04 0 00 043330 0,,0] 4566 033752 312 04 0 00 044013 CAME AC,[777,,ZZ] 4567 033753 003 04 0 00 000750 ER3 AC,T 4568 033754 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4569 033755 004 05 0 00 000750 ER4 AC+1,T 4570 033756 321 10 0 00 033750 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4571 4572 000751 T=T+1 4573 777777 777757 ZZ=ZZ+ZZ+1 4574 IFE , 4575 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4576 DMOVE AC,[777,,ZZ 4577 033757 120 04 0 00 044015 -1,,-1] 4578 DFAD AC,[0,,0 4579 033760 110 04 0 00 043330 0,,0] 4580 033761 312 04 0 00 044015 CAME AC,[777,,ZZ] 4581 033762 003 04 0 00 000751 ER3 AC,T 4582 033763 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4583 033764 004 05 0 00 000751 ER4 AC+1,T 4584 033765 321 10 0 00 033757 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4585 4586 000752 T=T+1 4587 777777 777737 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0106 4588 IFE , 4589 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4590 DMOVE AC,[777,,ZZ 4591 033766 120 04 0 00 044017 -1,,-1] 4592 DFAD AC,[0,,0 4593 033767 110 04 0 00 043330 0,,0] 4594 033770 312 04 0 00 044017 CAME AC,[777,,ZZ] 4595 033771 003 04 0 00 000752 ER3 AC,T 4596 033772 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4597 033773 004 05 0 00 000752 ER4 AC+1,T 4598 033774 321 10 0 00 033766 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4599 4600 000753 T=T+1 4601 777777 777677 ZZ=ZZ+ZZ+1 4602 IFE , 4603 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4604 DMOVE AC,[777,,ZZ 4605 033775 120 04 0 00 044021 -1,,-1] 4606 DFAD AC,[0,,0 4607 033776 110 04 0 00 043330 0,,0] 4608 033777 312 04 0 00 044021 CAME AC,[777,,ZZ] 4609 034000 003 04 0 00 000753 ER3 AC,T 4610 034001 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4611 034002 004 05 0 00 000753 ER4 AC+1,T 4612 034003 321 10 0 00 033775 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4613 4614 000754 T=T+1 4615 777777 777577 ZZ=ZZ+ZZ+1 4616 IFE , 4617 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4618 DMOVE AC,[777,,ZZ 4619 034004 120 04 0 00 044023 -1,,-1] 4620 DFAD AC,[0,,0 4621 034005 110 04 0 00 043330 0,,0] 4622 034006 312 04 0 00 044023 CAME AC,[777,,ZZ] 4623 034007 003 04 0 00 000754 ER3 AC,T 4624 034010 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4625 034011 004 05 0 00 000754 ER4 AC+1,T 4626 034012 321 10 0 00 034004 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4627 4628 000755 T=T+1 4629 777777 777377 ZZ=ZZ+ZZ+1 4630 IFE , 4631 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4632 DMOVE AC,[777,,ZZ 4633 034013 120 04 0 00 044025 -1,,-1] 4634 DFAD AC,[0,,0 4635 034014 110 04 0 00 043330 0,,0] 4636 034015 312 04 0 00 044025 CAME AC,[777,,ZZ] 4637 034016 003 04 0 00 000755 ER3 AC,T 4638 034017 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4639 034020 004 05 0 00 000755 ER4 AC+1,T 4640 034021 321 10 0 00 034013 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4641 4642 000756 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0107 4643 777777 776777 ZZ=ZZ+ZZ+1 4644 IFE , 4645 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4646 DMOVE AC,[777,,ZZ 4647 034022 120 04 0 00 044027 -1,,-1] 4648 DFAD AC,[0,,0 4649 034023 110 04 0 00 043330 0,,0] 4650 034024 312 04 0 00 044027 CAME AC,[777,,ZZ] 4651 034025 003 04 0 00 000756 ER3 AC,T 4652 034026 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4653 034027 004 05 0 00 000756 ER4 AC+1,T 4654 034030 321 10 0 00 034022 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4655 4656 000757 T=T+1 4657 777777 775777 ZZ=ZZ+ZZ+1 4658 IFE , 4659 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4660 DMOVE AC,[777,,ZZ 4661 034031 120 04 0 00 044031 -1,,-1] 4662 DFAD AC,[0,,0 4663 034032 110 04 0 00 043330 0,,0] 4664 034033 312 04 0 00 044031 CAME AC,[777,,ZZ] 4665 034034 003 04 0 00 000757 ER3 AC,T 4666 034035 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4667 034036 004 05 0 00 000757 ER4 AC+1,T 4668 034037 321 10 0 00 034031 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4669 4670 000760 T=T+1 4671 777777 773777 ZZ=ZZ+ZZ+1 4672 IFE , 4673 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4674 DMOVE AC,[777,,ZZ 4675 034040 120 04 0 00 044033 -1,,-1] 4676 DFAD AC,[0,,0 4677 034041 110 04 0 00 043330 0,,0] 4678 034042 312 04 0 00 044033 CAME AC,[777,,ZZ] 4679 034043 003 04 0 00 000760 ER3 AC,T 4680 034044 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4681 034045 004 05 0 00 000760 ER4 AC+1,T 4682 034046 321 10 0 00 034040 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4683 4684 000761 T=T+1 4685 777777 767777 ZZ=ZZ+ZZ+1 4686 IFE , 4687 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4688 DMOVE AC,[777,,ZZ 4689 034047 120 04 0 00 044035 -1,,-1] 4690 DFAD AC,[0,,0 4691 034050 110 04 0 00 043330 0,,0] 4692 034051 312 04 0 00 044035 CAME AC,[777,,ZZ] 4693 034052 003 04 0 00 000761 ER3 AC,T 4694 034053 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4695 034054 004 05 0 00 000761 ER4 AC+1,T 4696 034055 321 10 0 00 034047 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4697 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0108 4698 000762 T=T+1 4699 777777 757777 ZZ=ZZ+ZZ+1 4700 IFE , 4701 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4702 DMOVE AC,[777,,ZZ 4703 034056 120 04 0 00 044037 -1,,-1] 4704 DFAD AC,[0,,0 4705 034057 110 04 0 00 043330 0,,0] 4706 034060 312 04 0 00 044037 CAME AC,[777,,ZZ] 4707 034061 003 04 0 00 000762 ER3 AC,T 4708 034062 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4709 034063 004 05 0 00 000762 ER4 AC+1,T 4710 034064 321 10 0 00 034056 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4711 4712 000763 T=T+1 4713 777777 737777 ZZ=ZZ+ZZ+1 4714 IFE , 4715 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4716 DMOVE AC,[777,,ZZ 4717 034065 120 04 0 00 044041 -1,,-1] 4718 DFAD AC,[0,,0 4719 034066 110 04 0 00 043330 0,,0] 4720 034067 312 04 0 00 044041 CAME AC,[777,,ZZ] 4721 034070 003 04 0 00 000763 ER3 AC,T 4722 034071 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4723 034072 004 05 0 00 000763 ER4 AC+1,T 4724 034073 321 10 0 00 034065 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4725 4726 000764 T=T+1 4727 777777 677777 ZZ=ZZ+ZZ+1 4728 IFE , 4729 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4730 DMOVE AC,[777,,ZZ 4731 034074 120 04 0 00 044043 -1,,-1] 4732 DFAD AC,[0,,0 4733 034075 110 04 0 00 043330 0,,0] 4734 034076 312 04 0 00 044043 CAME AC,[777,,ZZ] 4735 034077 003 04 0 00 000764 ER3 AC,T 4736 034100 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4737 034101 004 05 0 00 000764 ER4 AC+1,T 4738 034102 321 10 0 00 034074 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4739 4740 000765 T=T+1 4741 777777 577777 ZZ=ZZ+ZZ+1 4742 IFE , 4743 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4744 DMOVE AC,[777,,ZZ 4745 034103 120 04 0 00 044045 -1,,-1] 4746 DFAD AC,[0,,0 4747 034104 110 04 0 00 043330 0,,0] 4748 034105 312 04 0 00 044045 CAME AC,[777,,ZZ] 4749 034106 003 04 0 00 000765 ER3 AC,T 4750 034107 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4751 034110 004 05 0 00 000765 ER4 AC+1,T 4752 034111 321 10 0 00 034103 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0109 4753 4754 000766 T=T+1 4755 777777 377777 ZZ=ZZ+ZZ+1 4756 IFE , 4757 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^ 4758 DMOVE AC,[777,,ZZ 4759 034112 120 04 0 00 044047 -1,,-1] 4760 DFAD AC,[0,,0 4761 034113 110 04 0 00 043330 0,,0] 4762 034114 312 04 0 00 044047 CAME AC,[777,,ZZ] 4763 034115 003 04 0 00 000766 ER3 AC,T 4764 034116 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4765 034117 004 05 0 00 000766 ER4 AC+1,T 4766 034120 321 10 0 00 034112 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4767 4768 4769 000000 ZZ=0 4770 4771 REPEAT ^D8, 4772 , 4775 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1 4776 > 4777 000767 T=T+1 4778 000001 ZZ=ZZ+ZZ+1 4779 777777 777776 IFE , 4780 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4781 DMOVE AC,[ZZ&777,,-1 4782 034121 120 04 0 00 044051 -1,,-1] 4783 DFAD AC,[0,,0 4784 034122 110 04 0 00 043330 0,,0] 4785 034123 312 04 0 00 044051 CAME AC,[ZZ&777,,-1] 4786 034124 003 04 0 00 000767 ER3 AC,T 4787 034125 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4788 034126 004 05 0 00 000767 ER4 AC+1,T 4789 034127 321 10 0 00 034121 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4790 4791 000770 T=T+1 4792 777777 777775 ZZ=ZZ+ZZ+1 4793 IFE , 4794 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4795 DMOVE AC,[ZZ&777,,-1 4796 034130 120 04 0 00 044053 -1,,-1] 4797 DFAD AC,[0,,0 4798 034131 110 04 0 00 043330 0,,0] 4799 034132 312 04 0 00 044053 CAME AC,[ZZ&777,,-1] 4800 034133 003 04 0 00 000770 ER3 AC,T 4801 034134 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4802 034135 004 05 0 00 000770 ER4 AC+1,T 4803 034136 321 10 0 00 034130 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4804 4805 000771 T=T+1 4806 777777 777773 ZZ=ZZ+ZZ+1 4807 IFE , DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0110 4808 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4809 DMOVE AC,[ZZ&777,,-1 4810 034137 120 04 0 00 044055 -1,,-1] 4811 DFAD AC,[0,,0 4812 034140 110 04 0 00 043330 0,,0] 4813 034141 312 04 0 00 044055 CAME AC,[ZZ&777,,-1] 4814 034142 003 04 0 00 000771 ER3 AC,T 4815 034143 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4816 034144 004 05 0 00 000771 ER4 AC+1,T 4817 034145 321 10 0 00 034137 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4818 4819 000772 T=T+1 4820 777777 777767 ZZ=ZZ+ZZ+1 4821 IFE , 4822 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4823 DMOVE AC,[ZZ&777,,-1 4824 034146 120 04 0 00 044057 -1,,-1] 4825 DFAD AC,[0,,0 4826 034147 110 04 0 00 043330 0,,0] 4827 034150 312 04 0 00 044057 CAME AC,[ZZ&777,,-1] 4828 034151 003 04 0 00 000772 ER3 AC,T 4829 034152 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4830 034153 004 05 0 00 000772 ER4 AC+1,T 4831 034154 321 10 0 00 034146 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4832 4833 000773 T=T+1 4834 777777 777757 ZZ=ZZ+ZZ+1 4835 IFE , 4836 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4837 DMOVE AC,[ZZ&777,,-1 4838 034155 120 04 0 00 044061 -1,,-1] 4839 DFAD AC,[0,,0 4840 034156 110 04 0 00 043330 0,,0] 4841 034157 312 04 0 00 044061 CAME AC,[ZZ&777,,-1] 4842 034160 003 04 0 00 000773 ER3 AC,T 4843 034161 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4844 034162 004 05 0 00 000773 ER4 AC+1,T 4845 034163 321 10 0 00 034155 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4846 4847 000774 T=T+1 4848 777777 777737 ZZ=ZZ+ZZ+1 4849 IFE , 4850 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4851 DMOVE AC,[ZZ&777,,-1 4852 034164 120 04 0 00 044063 -1,,-1] 4853 DFAD AC,[0,,0 4854 034165 110 04 0 00 043330 0,,0] 4855 034166 312 04 0 00 044063 CAME AC,[ZZ&777,,-1] 4856 034167 003 04 0 00 000774 ER3 AC,T 4857 034170 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4858 034171 004 05 0 00 000774 ER4 AC+1,T 4859 034172 321 10 0 00 034164 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4860 4861 000775 T=T+1 4862 777777 777677 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0111 4863 IFE , 4864 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4865 DMOVE AC,[ZZ&777,,-1 4866 034173 120 04 0 00 044065 -1,,-1] 4867 DFAD AC,[0,,0 4868 034174 110 04 0 00 043330 0,,0] 4869 034175 312 04 0 00 044065 CAME AC,[ZZ&777,,-1] 4870 034176 003 04 0 00 000775 ER3 AC,T 4871 034177 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4872 034200 004 05 0 00 000775 ER4 AC+1,T 4873 034201 321 10 0 00 034173 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4874 4875 000776 T=T+1 4876 777777 777577 ZZ=ZZ+ZZ+1 4877 IFE , 4878 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^ 4879 DMOVE AC,[ZZ&777,,-1 4880 034202 120 04 0 00 044067 -1,,-1] 4881 DFAD AC,[0,,0 4882 034203 110 04 0 00 043330 0,,0] 4883 034204 312 04 0 00 044067 CAME AC,[ZZ&777,,-1] 4884 034205 003 04 0 00 000776 ER3 AC,T 4885 034206 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4886 034207 004 05 0 00 000776 ER4 AC+1,T 4887 034210 321 10 0 00 034202 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4888 4889 4890 000777 T=T+1 4891 DFARP T,0,0,0,0,1377,-1,-1,-1,777,-1,377777,-2^ 4892 DMOVE AC,[0,,0 4893 034211 120 04 0 00 043330 0,,0] 4894 DFAD AC,[1377,,-1 4895 034212 110 04 0 00 044071 -1,,-1] 4896 034213 312 04 0 00 043627 CAME AC,[777,,-1] 4897 034214 003 04 0 00 000777 ER3 AC,T 4898 034215 312 05 0 00 043634 CAME AC+1,[377777,,-2] 4899 034216 004 05 0 00 000777 ER4 AC+1,T 4900 034217 321 10 0 00 034211 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0112 4901 ;RIPPLE ZEROS - RIPPLE ONES COMBINED (ADD A RIPPLED ONE TO A RIPPLED ZERO) 4902 4903 001000 T=1000 4904 000000 XX=0 4905 000000 ZZ=0 4906 4907 R1000: REPEAT ^D18, 4908 , 4911 ZZ=ZZ+ZZ 4912 IFE ZZ, 4913 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1 4914 > 4915 001001 T=T+1 4916 000001 XX=XX+XX+1 4917 777777 777776 IFE , 4918 000000 ZZ=ZZ+ZZ 4919 000001 IFE ZZ, 4920 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 4921 DMOVE AC,[777,,-1 4922 034220 120 04 0 00 043632 -1,,XX] 4923 DFAD AC,[0,,0 4924 034221 110 04 0 00 044073 0,,ZZ] 4925 034222 312 04 0 00 043627 CAME AC,[777,,-1] 4926 034223 003 04 0 00 001001 ER3 AC,T 4927 034224 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4928 034225 004 05 0 00 001001 ER4 AC+1,T 4929 034226 321 10 0 00 034220 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4930 4931 001002 T=T+1 4932 777777 777775 XX=XX+XX+1 4933 IFE , 4934 000002 ZZ=ZZ+ZZ 4935 IFE ZZ, 4936 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 4937 DMOVE AC,[777,,-1 4938 034227 120 04 0 00 043635 -1,,XX] 4939 DFAD AC,[0,,0 4940 034230 110 04 0 00 044075 0,,ZZ] 4941 034231 312 04 0 00 043627 CAME AC,[777,,-1] 4942 034232 003 04 0 00 001002 ER3 AC,T 4943 034233 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4944 034234 004 05 0 00 001002 ER4 AC+1,T 4945 034235 321 10 0 00 034227 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4946 4947 001003 T=T+1 4948 777777 777773 XX=XX+XX+1 4949 IFE , 4950 000004 ZZ=ZZ+ZZ 4951 IFE ZZ, 4952 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 4953 DMOVE AC,[777,,-1 4954 034236 120 04 0 00 043640 -1,,XX] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0113 4955 DFAD AC,[0,,0 4956 034237 110 04 0 00 044077 0,,ZZ] 4957 034240 312 04 0 00 043627 CAME AC,[777,,-1] 4958 034241 003 04 0 00 001003 ER3 AC,T 4959 034242 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4960 034243 004 05 0 00 001003 ER4 AC+1,T 4961 034244 321 10 0 00 034236 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4962 4963 001004 T=T+1 4964 777777 777767 XX=XX+XX+1 4965 IFE , 4966 000010 ZZ=ZZ+ZZ 4967 IFE ZZ, 4968 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 4969 DMOVE AC,[777,,-1 4970 034245 120 04 0 00 043643 -1,,XX] 4971 DFAD AC,[0,,0 4972 034246 110 04 0 00 044101 0,,ZZ] 4973 034247 312 04 0 00 043627 CAME AC,[777,,-1] 4974 034250 003 04 0 00 001004 ER3 AC,T 4975 034251 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4976 034252 004 05 0 00 001004 ER4 AC+1,T 4977 034253 321 10 0 00 034245 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4978 4979 001005 T=T+1 4980 777777 777757 XX=XX+XX+1 4981 IFE , 4982 000020 ZZ=ZZ+ZZ 4983 IFE ZZ, 4984 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 4985 DMOVE AC,[777,,-1 4986 034254 120 04 0 00 043646 -1,,XX] 4987 DFAD AC,[0,,0 4988 034255 110 04 0 00 044103 0,,ZZ] 4989 034256 312 04 0 00 043627 CAME AC,[777,,-1] 4990 034257 003 04 0 00 001005 ER3 AC,T 4991 034260 312 05 0 00 043631 CAME AC+1,[377777,,-1] 4992 034261 004 05 0 00 001005 ER4 AC+1,T 4993 034262 321 10 0 00 034254 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 4994 4995 001006 T=T+1 4996 777777 777737 XX=XX+XX+1 4997 IFE , 4998 000040 ZZ=ZZ+ZZ 4999 IFE ZZ, 5000 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5001 DMOVE AC,[777,,-1 5002 034263 120 04 0 00 043651 -1,,XX] 5003 DFAD AC,[0,,0 5004 034264 110 04 0 00 044105 0,,ZZ] 5005 034265 312 04 0 00 043627 CAME AC,[777,,-1] 5006 034266 003 04 0 00 001006 ER3 AC,T 5007 034267 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5008 034270 004 05 0 00 001006 ER4 AC+1,T 5009 034271 321 10 0 00 034263 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0114 5010 5011 001007 T=T+1 5012 777777 777677 XX=XX+XX+1 5013 IFE , 5014 000100 ZZ=ZZ+ZZ 5015 IFE ZZ, 5016 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5017 DMOVE AC,[777,,-1 5018 034272 120 04 0 00 043654 -1,,XX] 5019 DFAD AC,[0,,0 5020 034273 110 04 0 00 044107 0,,ZZ] 5021 034274 312 04 0 00 043627 CAME AC,[777,,-1] 5022 034275 003 04 0 00 001007 ER3 AC,T 5023 034276 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5024 034277 004 05 0 00 001007 ER4 AC+1,T 5025 034300 321 10 0 00 034272 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5026 5027 001010 T=T+1 5028 777777 777577 XX=XX+XX+1 5029 IFE , 5030 000200 ZZ=ZZ+ZZ 5031 IFE ZZ, 5032 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5033 DMOVE AC,[777,,-1 5034 034301 120 04 0 00 043657 -1,,XX] 5035 DFAD AC,[0,,0 5036 034302 110 04 0 00 044111 0,,ZZ] 5037 034303 312 04 0 00 043627 CAME AC,[777,,-1] 5038 034304 003 04 0 00 001010 ER3 AC,T 5039 034305 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5040 034306 004 05 0 00 001010 ER4 AC+1,T 5041 034307 321 10 0 00 034301 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5042 5043 001011 T=T+1 5044 777777 777377 XX=XX+XX+1 5045 IFE , 5046 000400 ZZ=ZZ+ZZ 5047 IFE ZZ, 5048 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5049 DMOVE AC,[777,,-1 5050 034310 120 04 0 00 043662 -1,,XX] 5051 DFAD AC,[0,,0 5052 034311 110 04 0 00 044113 0,,ZZ] 5053 034312 312 04 0 00 043627 CAME AC,[777,,-1] 5054 034313 003 04 0 00 001011 ER3 AC,T 5055 034314 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5056 034315 004 05 0 00 001011 ER4 AC+1,T 5057 034316 321 10 0 00 034310 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5058 5059 001012 T=T+1 5060 777777 776777 XX=XX+XX+1 5061 IFE , 5062 001000 ZZ=ZZ+ZZ 5063 IFE ZZ, 5064 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0115 5065 DMOVE AC,[777,,-1 5066 034317 120 04 0 00 043665 -1,,XX] 5067 DFAD AC,[0,,0 5068 034320 110 04 0 00 044115 0,,ZZ] 5069 034321 312 04 0 00 043627 CAME AC,[777,,-1] 5070 034322 003 04 0 00 001012 ER3 AC,T 5071 034323 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5072 034324 004 05 0 00 001012 ER4 AC+1,T 5073 034325 321 10 0 00 034317 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5074 5075 001013 T=T+1 5076 777777 775777 XX=XX+XX+1 5077 IFE , 5078 002000 ZZ=ZZ+ZZ 5079 IFE ZZ, 5080 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5081 DMOVE AC,[777,,-1 5082 034326 120 04 0 00 043670 -1,,XX] 5083 DFAD AC,[0,,0 5084 034327 110 04 0 00 044117 0,,ZZ] 5085 034330 312 04 0 00 043627 CAME AC,[777,,-1] 5086 034331 003 04 0 00 001013 ER3 AC,T 5087 034332 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5088 034333 004 05 0 00 001013 ER4 AC+1,T 5089 034334 321 10 0 00 034326 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5090 5091 001014 T=T+1 5092 777777 773777 XX=XX+XX+1 5093 IFE , 5094 004000 ZZ=ZZ+ZZ 5095 IFE ZZ, 5096 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5097 DMOVE AC,[777,,-1 5098 034335 120 04 0 00 043673 -1,,XX] 5099 DFAD AC,[0,,0 5100 034336 110 04 0 00 044121 0,,ZZ] 5101 034337 312 04 0 00 043627 CAME AC,[777,,-1] 5102 034340 003 04 0 00 001014 ER3 AC,T 5103 034341 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5104 034342 004 05 0 00 001014 ER4 AC+1,T 5105 034343 321 10 0 00 034335 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5106 5107 001015 T=T+1 5108 777777 767777 XX=XX+XX+1 5109 IFE , 5110 010000 ZZ=ZZ+ZZ 5111 IFE ZZ, 5112 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5113 DMOVE AC,[777,,-1 5114 034344 120 04 0 00 043676 -1,,XX] 5115 DFAD AC,[0,,0 5116 034345 110 04 0 00 044123 0,,ZZ] 5117 034346 312 04 0 00 043627 CAME AC,[777,,-1] 5118 034347 003 04 0 00 001015 ER3 AC,T 5119 034350 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0116 5120 034351 004 05 0 00 001015 ER4 AC+1,T 5121 034352 321 10 0 00 034344 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5122 5123 001016 T=T+1 5124 777777 757777 XX=XX+XX+1 5125 IFE , 5126 020000 ZZ=ZZ+ZZ 5127 IFE ZZ, 5128 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5129 DMOVE AC,[777,,-1 5130 034353 120 04 0 00 043701 -1,,XX] 5131 DFAD AC,[0,,0 5132 034354 110 04 0 00 044125 0,,ZZ] 5133 034355 312 04 0 00 043627 CAME AC,[777,,-1] 5134 034356 003 04 0 00 001016 ER3 AC,T 5135 034357 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5136 034360 004 05 0 00 001016 ER4 AC+1,T 5137 034361 321 10 0 00 034353 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5138 5139 001017 T=T+1 5140 777777 737777 XX=XX+XX+1 5141 IFE , 5142 040000 ZZ=ZZ+ZZ 5143 IFE ZZ, 5144 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5145 DMOVE AC,[777,,-1 5146 034362 120 04 0 00 043704 -1,,XX] 5147 DFAD AC,[0,,0 5148 034363 110 04 0 00 044127 0,,ZZ] 5149 034364 312 04 0 00 043627 CAME AC,[777,,-1] 5150 034365 003 04 0 00 001017 ER3 AC,T 5151 034366 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5152 034367 004 05 0 00 001017 ER4 AC+1,T 5153 034370 321 10 0 00 034362 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5154 5155 001020 T=T+1 5156 777777 677777 XX=XX+XX+1 5157 IFE , 5158 100000 ZZ=ZZ+ZZ 5159 IFE ZZ, 5160 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5161 DMOVE AC,[777,,-1 5162 034371 120 04 0 00 043707 -1,,XX] 5163 DFAD AC,[0,,0 5164 034372 110 04 0 00 044131 0,,ZZ] 5165 034373 312 04 0 00 043627 CAME AC,[777,,-1] 5166 034374 003 04 0 00 001020 ER3 AC,T 5167 034375 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5168 034376 004 05 0 00 001020 ER4 AC+1,T 5169 034377 321 10 0 00 034371 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5170 5171 001021 T=T+1 5172 777777 577777 XX=XX+XX+1 5173 IFE , 5174 200000 ZZ=ZZ+ZZ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0117 5175 IFE ZZ, 5176 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5177 DMOVE AC,[777,,-1 5178 034400 120 04 0 00 043712 -1,,XX] 5179 DFAD AC,[0,,0 5180 034401 110 04 0 00 044133 0,,ZZ] 5181 034402 312 04 0 00 043627 CAME AC,[777,,-1] 5182 034403 003 04 0 00 001021 ER3 AC,T 5183 034404 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5184 034405 004 05 0 00 001021 ER4 AC+1,T 5185 034406 321 10 0 00 034400 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5186 5187 001022 T=T+1 5188 777777 377777 XX=XX+XX+1 5189 IFE , 5190 400000 ZZ=ZZ+ZZ 5191 IFE ZZ, 5192 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^ 5193 DMOVE AC,[777,,-1 5194 034407 120 04 0 00 043715 -1,,XX] 5195 DFAD AC,[0,,0 5196 034410 110 04 0 00 044135 0,,ZZ] 5197 034411 312 04 0 00 043627 CAME AC,[777,,-1] 5198 034412 003 04 0 00 001022 ER3 AC,T 5199 034413 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5200 034414 004 05 0 00 001022 ER4 AC+1,T 5201 034415 321 10 0 00 034407 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5202 5203 5204 000000 XX=0 5205 000000 ZZ=0 5206 5207 REPEAT ^D18, 5208 , 5211 ZZ=ZZ+ZZ 5212 IFE ZZ, 5213 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1 5214 > 5215 001023 T=T+1 5216 000001 XX=XX+XX+1 5217 777777 777776 IFE , 5218 000000 ZZ=ZZ+ZZ 5219 000001 IFE ZZ, 5220 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5221 DMOVE AC,[777,,-1 5222 034416 120 04 0 00 043720 XX,,-1] 5223 DFAD AC,[0,,0 5224 034417 110 04 0 00 044137 ZZ,,0] 5225 034420 312 04 0 00 043627 CAME AC,[777,,-1] 5226 034421 003 04 0 00 001023 ER3 AC,T 5227 034422 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5228 034423 004 05 0 00 001023 ER4 AC+1,T 5229 034424 321 10 0 00 034416 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0118 5230 5231 001024 T=T+1 5232 777777 777775 XX=XX+XX+1 5233 IFE , 5234 000002 ZZ=ZZ+ZZ 5235 IFE ZZ, 5236 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5237 DMOVE AC,[777,,-1 5238 034425 120 04 0 00 043723 XX,,-1] 5239 DFAD AC,[0,,0 5240 034426 110 04 0 00 044141 ZZ,,0] 5241 034427 312 04 0 00 043627 CAME AC,[777,,-1] 5242 034430 003 04 0 00 001024 ER3 AC,T 5243 034431 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5244 034432 004 05 0 00 001024 ER4 AC+1,T 5245 034433 321 10 0 00 034425 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5246 5247 001025 T=T+1 5248 777777 777773 XX=XX+XX+1 5249 IFE , 5250 000004 ZZ=ZZ+ZZ 5251 IFE ZZ, 5252 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5253 DMOVE AC,[777,,-1 5254 034434 120 04 0 00 043726 XX,,-1] 5255 DFAD AC,[0,,0 5256 034435 110 04 0 00 044143 ZZ,,0] 5257 034436 312 04 0 00 043627 CAME AC,[777,,-1] 5258 034437 003 04 0 00 001025 ER3 AC,T 5259 034440 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5260 034441 004 05 0 00 001025 ER4 AC+1,T 5261 034442 321 10 0 00 034434 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5262 5263 001026 T=T+1 5264 777777 777767 XX=XX+XX+1 5265 IFE , 5266 000010 ZZ=ZZ+ZZ 5267 IFE ZZ, 5268 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5269 DMOVE AC,[777,,-1 5270 034443 120 04 0 00 043731 XX,,-1] 5271 DFAD AC,[0,,0 5272 034444 110 04 0 00 044145 ZZ,,0] 5273 034445 312 04 0 00 043627 CAME AC,[777,,-1] 5274 034446 003 04 0 00 001026 ER3 AC,T 5275 034447 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5276 034450 004 05 0 00 001026 ER4 AC+1,T 5277 034451 321 10 0 00 034443 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5278 5279 001027 T=T+1 5280 777777 777757 XX=XX+XX+1 5281 IFE , 5282 000020 ZZ=ZZ+ZZ 5283 IFE ZZ, 5284 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0119 5285 DMOVE AC,[777,,-1 5286 034452 120 04 0 00 043734 XX,,-1] 5287 DFAD AC,[0,,0 5288 034453 110 04 0 00 044147 ZZ,,0] 5289 034454 312 04 0 00 043627 CAME AC,[777,,-1] 5290 034455 003 04 0 00 001027 ER3 AC,T 5291 034456 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5292 034457 004 05 0 00 001027 ER4 AC+1,T 5293 034460 321 10 0 00 034452 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5294 5295 001030 T=T+1 5296 777777 777737 XX=XX+XX+1 5297 IFE , 5298 000040 ZZ=ZZ+ZZ 5299 IFE ZZ, 5300 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5301 DMOVE AC,[777,,-1 5302 034461 120 04 0 00 043737 XX,,-1] 5303 DFAD AC,[0,,0 5304 034462 110 04 0 00 044151 ZZ,,0] 5305 034463 312 04 0 00 043627 CAME AC,[777,,-1] 5306 034464 003 04 0 00 001030 ER3 AC,T 5307 034465 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5308 034466 004 05 0 00 001030 ER4 AC+1,T 5309 034467 321 10 0 00 034461 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5310 5311 001031 T=T+1 5312 777777 777677 XX=XX+XX+1 5313 IFE , 5314 000100 ZZ=ZZ+ZZ 5315 IFE ZZ, 5316 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5317 DMOVE AC,[777,,-1 5318 034470 120 04 0 00 043742 XX,,-1] 5319 DFAD AC,[0,,0 5320 034471 110 04 0 00 044153 ZZ,,0] 5321 034472 312 04 0 00 043627 CAME AC,[777,,-1] 5322 034473 003 04 0 00 001031 ER3 AC,T 5323 034474 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5324 034475 004 05 0 00 001031 ER4 AC+1,T 5325 034476 321 10 0 00 034470 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5326 5327 001032 T=T+1 5328 777777 777577 XX=XX+XX+1 5329 IFE , 5330 000200 ZZ=ZZ+ZZ 5331 IFE ZZ, 5332 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5333 DMOVE AC,[777,,-1 5334 034477 120 04 0 00 043745 XX,,-1] 5335 DFAD AC,[0,,0 5336 034500 110 04 0 00 044155 ZZ,,0] 5337 034501 312 04 0 00 043627 CAME AC,[777,,-1] 5338 034502 003 04 0 00 001032 ER3 AC,T 5339 034503 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0120 5340 034504 004 05 0 00 001032 ER4 AC+1,T 5341 034505 321 10 0 00 034477 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5342 5343 001033 T=T+1 5344 777777 777377 XX=XX+XX+1 5345 IFE , 5346 000400 ZZ=ZZ+ZZ 5347 IFE ZZ, 5348 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5349 DMOVE AC,[777,,-1 5350 034506 120 04 0 00 043750 XX,,-1] 5351 DFAD AC,[0,,0 5352 034507 110 04 0 00 044157 ZZ,,0] 5353 034510 312 04 0 00 043627 CAME AC,[777,,-1] 5354 034511 003 04 0 00 001033 ER3 AC,T 5355 034512 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5356 034513 004 05 0 00 001033 ER4 AC+1,T 5357 034514 321 10 0 00 034506 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5358 5359 001034 T=T+1 5360 777777 776777 XX=XX+XX+1 5361 IFE , 5362 001000 ZZ=ZZ+ZZ 5363 IFE ZZ, 5364 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5365 DMOVE AC,[777,,-1 5366 034515 120 04 0 00 043753 XX,,-1] 5367 DFAD AC,[0,,0 5368 034516 110 04 0 00 044161 ZZ,,0] 5369 034517 312 04 0 00 043627 CAME AC,[777,,-1] 5370 034520 003 04 0 00 001034 ER3 AC,T 5371 034521 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5372 034522 004 05 0 00 001034 ER4 AC+1,T 5373 034523 321 10 0 00 034515 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5374 5375 001035 T=T+1 5376 777777 775777 XX=XX+XX+1 5377 IFE , 5378 002000 ZZ=ZZ+ZZ 5379 IFE ZZ, 5380 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5381 DMOVE AC,[777,,-1 5382 034524 120 04 0 00 043756 XX,,-1] 5383 DFAD AC,[0,,0 5384 034525 110 04 0 00 044163 ZZ,,0] 5385 034526 312 04 0 00 043627 CAME AC,[777,,-1] 5386 034527 003 04 0 00 001035 ER3 AC,T 5387 034530 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5388 034531 004 05 0 00 001035 ER4 AC+1,T 5389 034532 321 10 0 00 034524 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5390 5391 001036 T=T+1 5392 777777 773777 XX=XX+XX+1 5393 IFE , 5394 004000 ZZ=ZZ+ZZ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0121 5395 IFE ZZ, 5396 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5397 DMOVE AC,[777,,-1 5398 034533 120 04 0 00 043761 XX,,-1] 5399 DFAD AC,[0,,0 5400 034534 110 04 0 00 044165 ZZ,,0] 5401 034535 312 04 0 00 043627 CAME AC,[777,,-1] 5402 034536 003 04 0 00 001036 ER3 AC,T 5403 034537 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5404 034540 004 05 0 00 001036 ER4 AC+1,T 5405 034541 321 10 0 00 034533 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5406 5407 001037 T=T+1 5408 777777 767777 XX=XX+XX+1 5409 IFE , 5410 010000 ZZ=ZZ+ZZ 5411 IFE ZZ, 5412 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5413 DMOVE AC,[777,,-1 5414 034542 120 04 0 00 043764 XX,,-1] 5415 DFAD AC,[0,,0 5416 034543 110 04 0 00 044167 ZZ,,0] 5417 034544 312 04 0 00 043627 CAME AC,[777,,-1] 5418 034545 003 04 0 00 001037 ER3 AC,T 5419 034546 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5420 034547 004 05 0 00 001037 ER4 AC+1,T 5421 034550 321 10 0 00 034542 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5422 5423 001040 T=T+1 5424 777777 757777 XX=XX+XX+1 5425 IFE , 5426 020000 ZZ=ZZ+ZZ 5427 IFE ZZ, 5428 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5429 DMOVE AC,[777,,-1 5430 034551 120 04 0 00 043767 XX,,-1] 5431 DFAD AC,[0,,0 5432 034552 110 04 0 00 044171 ZZ,,0] 5433 034553 312 04 0 00 043627 CAME AC,[777,,-1] 5434 034554 003 04 0 00 001040 ER3 AC,T 5435 034555 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5436 034556 004 05 0 00 001040 ER4 AC+1,T 5437 034557 321 10 0 00 034551 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5438 5439 001041 T=T+1 5440 777777 737777 XX=XX+XX+1 5441 IFE , 5442 040000 ZZ=ZZ+ZZ 5443 IFE ZZ, 5444 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5445 DMOVE AC,[777,,-1 5446 034560 120 04 0 00 043772 XX,,-1] 5447 DFAD AC,[0,,0 5448 034561 110 04 0 00 044173 ZZ,,0] 5449 034562 312 04 0 00 043627 CAME AC,[777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0122 5450 034563 003 04 0 00 001041 ER3 AC,T 5451 034564 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5452 034565 004 05 0 00 001041 ER4 AC+1,T 5453 034566 321 10 0 00 034560 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5454 5455 001042 T=T+1 5456 777777 677777 XX=XX+XX+1 5457 IFE , 5458 100000 ZZ=ZZ+ZZ 5459 IFE ZZ, 5460 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5461 DMOVE AC,[777,,-1 5462 034567 120 04 0 00 043775 XX,,-1] 5463 DFAD AC,[0,,0 5464 034570 110 04 0 00 044175 ZZ,,0] 5465 034571 312 04 0 00 043627 CAME AC,[777,,-1] 5466 034572 003 04 0 00 001042 ER3 AC,T 5467 034573 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5468 034574 004 05 0 00 001042 ER4 AC+1,T 5469 034575 321 10 0 00 034567 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5470 5471 001043 T=T+1 5472 777777 577777 XX=XX+XX+1 5473 IFE , 5474 200000 ZZ=ZZ+ZZ 5475 IFE ZZ, 5476 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5477 DMOVE AC,[777,,-1 5478 034576 120 04 0 00 044000 XX,,-1] 5479 DFAD AC,[0,,0 5480 034577 110 04 0 00 043331 ZZ,,0] 5481 034600 312 04 0 00 043627 CAME AC,[777,,-1] 5482 034601 003 04 0 00 001043 ER3 AC,T 5483 034602 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5484 034603 004 05 0 00 001043 ER4 AC+1,T 5485 034604 321 10 0 00 034576 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5486 5487 001044 T=T+1 5488 777777 377777 XX=XX+XX+1 5489 IFE , 5490 400000 ZZ=ZZ+ZZ 5491 IFE ZZ, 5492 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^ 5493 DMOVE AC,[777,,-1 5494 034605 120 04 0 00 044003 XX,,-1] 5495 DFAD AC,[0,,0 5496 034606 110 04 0 00 044177 ZZ,,0] 5497 034607 312 04 0 00 043627 CAME AC,[777,,-1] 5498 034610 003 04 0 00 001044 ER3 AC,T 5499 034611 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5500 034612 004 05 0 00 001044 ER4 AC+1,T 5501 034613 321 10 0 00 034605 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5502 5503 5504 000000 XX=0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0123 5505 000000 ZZ=0 5506 5507 REPEAT ^D18, 5508 , 5511 ZZ=ZZ+ZZ 5512 IFE ZZ, 5513 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1 5514 > 5515 001045 T=T+1 5516 000001 XX=XX+XX+1 5517 777777 777776 IFE , 5518 000000 ZZ=ZZ+ZZ 5519 000001 IFE ZZ, 5520 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5521 DMOVE AC,[777,,XX 5522 034614 120 04 0 00 044005 -1,,-1] 5523 DFAD AC,[0,,ZZ 5524 034615 110 04 0 00 044074 0,,0] 5525 034616 312 04 0 00 043627 CAME AC,[777,,-1] 5526 034617 003 04 0 00 001045 ER3 AC,T 5527 034620 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5528 034621 004 05 0 00 001045 ER4 AC+1,T 5529 034622 321 10 0 00 034614 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5530 5531 001046 T=T+1 5532 777777 777775 XX=XX+XX+1 5533 IFE , 5534 000002 ZZ=ZZ+ZZ 5535 IFE ZZ, 5536 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5537 DMOVE AC,[777,,XX 5538 034623 120 04 0 00 044007 -1,,-1] 5539 DFAD AC,[0,,ZZ 5540 034624 110 04 0 00 044076 0,,0] 5541 034625 312 04 0 00 043627 CAME AC,[777,,-1] 5542 034626 003 04 0 00 001046 ER3 AC,T 5543 034627 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5544 034630 004 05 0 00 001046 ER4 AC+1,T 5545 034631 321 10 0 00 034623 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5546 5547 001047 T=T+1 5548 777777 777773 XX=XX+XX+1 5549 IFE , 5550 000004 ZZ=ZZ+ZZ 5551 IFE ZZ, 5552 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5553 DMOVE AC,[777,,XX 5554 034632 120 04 0 00 044011 -1,,-1] 5555 DFAD AC,[0,,ZZ 5556 034633 110 04 0 00 044100 0,,0] 5557 034634 312 04 0 00 043627 CAME AC,[777,,-1] 5558 034635 003 04 0 00 001047 ER3 AC,T 5559 034636 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0124 5560 034637 004 05 0 00 001047 ER4 AC+1,T 5561 034640 321 10 0 00 034632 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5562 5563 001050 T=T+1 5564 777777 777767 XX=XX+XX+1 5565 IFE , 5566 000010 ZZ=ZZ+ZZ 5567 IFE ZZ, 5568 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5569 DMOVE AC,[777,,XX 5570 034641 120 04 0 00 044013 -1,,-1] 5571 DFAD AC,[0,,ZZ 5572 034642 110 04 0 00 044102 0,,0] 5573 034643 312 04 0 00 043627 CAME AC,[777,,-1] 5574 034644 003 04 0 00 001050 ER3 AC,T 5575 034645 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5576 034646 004 05 0 00 001050 ER4 AC+1,T 5577 034647 321 10 0 00 034641 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5578 5579 001051 T=T+1 5580 777777 777757 XX=XX+XX+1 5581 IFE , 5582 000020 ZZ=ZZ+ZZ 5583 IFE ZZ, 5584 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5585 DMOVE AC,[777,,XX 5586 034650 120 04 0 00 044015 -1,,-1] 5587 DFAD AC,[0,,ZZ 5588 034651 110 04 0 00 044104 0,,0] 5589 034652 312 04 0 00 043627 CAME AC,[777,,-1] 5590 034653 003 04 0 00 001051 ER3 AC,T 5591 034654 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5592 034655 004 05 0 00 001051 ER4 AC+1,T 5593 034656 321 10 0 00 034650 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5594 5595 001052 T=T+1 5596 777777 777737 XX=XX+XX+1 5597 IFE , 5598 000040 ZZ=ZZ+ZZ 5599 IFE ZZ, 5600 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5601 DMOVE AC,[777,,XX 5602 034657 120 04 0 00 044017 -1,,-1] 5603 DFAD AC,[0,,ZZ 5604 034660 110 04 0 00 044106 0,,0] 5605 034661 312 04 0 00 043627 CAME AC,[777,,-1] 5606 034662 003 04 0 00 001052 ER3 AC,T 5607 034663 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5608 034664 004 05 0 00 001052 ER4 AC+1,T 5609 034665 321 10 0 00 034657 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5610 5611 001053 T=T+1 5612 777777 777677 XX=XX+XX+1 5613 IFE , 5614 000100 ZZ=ZZ+ZZ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0125 5615 IFE ZZ, 5616 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5617 DMOVE AC,[777,,XX 5618 034666 120 04 0 00 044021 -1,,-1] 5619 DFAD AC,[0,,ZZ 5620 034667 110 04 0 00 044110 0,,0] 5621 034670 312 04 0 00 043627 CAME AC,[777,,-1] 5622 034671 003 04 0 00 001053 ER3 AC,T 5623 034672 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5624 034673 004 05 0 00 001053 ER4 AC+1,T 5625 034674 321 10 0 00 034666 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5626 5627 001054 T=T+1 5628 777777 777577 XX=XX+XX+1 5629 IFE , 5630 000200 ZZ=ZZ+ZZ 5631 IFE ZZ, 5632 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5633 DMOVE AC,[777,,XX 5634 034675 120 04 0 00 044023 -1,,-1] 5635 DFAD AC,[0,,ZZ 5636 034676 110 04 0 00 044112 0,,0] 5637 034677 312 04 0 00 043627 CAME AC,[777,,-1] 5638 034700 003 04 0 00 001054 ER3 AC,T 5639 034701 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5640 034702 004 05 0 00 001054 ER4 AC+1,T 5641 034703 321 10 0 00 034675 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5642 5643 001055 T=T+1 5644 777777 777377 XX=XX+XX+1 5645 IFE , 5646 000400 ZZ=ZZ+ZZ 5647 IFE ZZ, 5648 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5649 DMOVE AC,[777,,XX 5650 034704 120 04 0 00 044025 -1,,-1] 5651 DFAD AC,[0,,ZZ 5652 034705 110 04 0 00 044114 0,,0] 5653 034706 312 04 0 00 043627 CAME AC,[777,,-1] 5654 034707 003 04 0 00 001055 ER3 AC,T 5655 034710 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5656 034711 004 05 0 00 001055 ER4 AC+1,T 5657 034712 321 10 0 00 034704 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5658 5659 001056 T=T+1 5660 777777 776777 XX=XX+XX+1 5661 IFE , 5662 001000 ZZ=ZZ+ZZ 5663 IFE ZZ, 5664 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5665 DMOVE AC,[777,,XX 5666 034713 120 04 0 00 044027 -1,,-1] 5667 DFAD AC,[0,,ZZ 5668 034714 110 04 0 00 044116 0,,0] 5669 034715 312 04 0 00 043627 CAME AC,[777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0126 5670 034716 003 04 0 00 001056 ER3 AC,T 5671 034717 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5672 034720 004 05 0 00 001056 ER4 AC+1,T 5673 034721 321 10 0 00 034713 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5674 5675 001057 T=T+1 5676 777777 775777 XX=XX+XX+1 5677 IFE , 5678 002000 ZZ=ZZ+ZZ 5679 IFE ZZ, 5680 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5681 DMOVE AC,[777,,XX 5682 034722 120 04 0 00 044031 -1,,-1] 5683 DFAD AC,[0,,ZZ 5684 034723 110 04 0 00 044120 0,,0] 5685 034724 312 04 0 00 043627 CAME AC,[777,,-1] 5686 034725 003 04 0 00 001057 ER3 AC,T 5687 034726 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5688 034727 004 05 0 00 001057 ER4 AC+1,T 5689 034730 321 10 0 00 034722 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5690 5691 001060 T=T+1 5692 777777 773777 XX=XX+XX+1 5693 IFE , 5694 004000 ZZ=ZZ+ZZ 5695 IFE ZZ, 5696 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5697 DMOVE AC,[777,,XX 5698 034731 120 04 0 00 044033 -1,,-1] 5699 DFAD AC,[0,,ZZ 5700 034732 110 04 0 00 044122 0,,0] 5701 034733 312 04 0 00 043627 CAME AC,[777,,-1] 5702 034734 003 04 0 00 001060 ER3 AC,T 5703 034735 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5704 034736 004 05 0 00 001060 ER4 AC+1,T 5705 034737 321 10 0 00 034731 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5706 5707 001061 T=T+1 5708 777777 767777 XX=XX+XX+1 5709 IFE , 5710 010000 ZZ=ZZ+ZZ 5711 IFE ZZ, 5712 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5713 DMOVE AC,[777,,XX 5714 034740 120 04 0 00 044035 -1,,-1] 5715 DFAD AC,[0,,ZZ 5716 034741 110 04 0 00 044124 0,,0] 5717 034742 312 04 0 00 043627 CAME AC,[777,,-1] 5718 034743 003 04 0 00 001061 ER3 AC,T 5719 034744 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5720 034745 004 05 0 00 001061 ER4 AC+1,T 5721 034746 321 10 0 00 034740 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5722 5723 001062 T=T+1 5724 777777 757777 XX=XX+XX+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0127 5725 IFE , 5726 020000 ZZ=ZZ+ZZ 5727 IFE ZZ, 5728 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5729 DMOVE AC,[777,,XX 5730 034747 120 04 0 00 044037 -1,,-1] 5731 DFAD AC,[0,,ZZ 5732 034750 110 04 0 00 044126 0,,0] 5733 034751 312 04 0 00 043627 CAME AC,[777,,-1] 5734 034752 003 04 0 00 001062 ER3 AC,T 5735 034753 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5736 034754 004 05 0 00 001062 ER4 AC+1,T 5737 034755 321 10 0 00 034747 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5738 5739 001063 T=T+1 5740 777777 737777 XX=XX+XX+1 5741 IFE , 5742 040000 ZZ=ZZ+ZZ 5743 IFE ZZ, 5744 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5745 DMOVE AC,[777,,XX 5746 034756 120 04 0 00 044041 -1,,-1] 5747 DFAD AC,[0,,ZZ 5748 034757 110 04 0 00 044130 0,,0] 5749 034760 312 04 0 00 043627 CAME AC,[777,,-1] 5750 034761 003 04 0 00 001063 ER3 AC,T 5751 034762 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5752 034763 004 05 0 00 001063 ER4 AC+1,T 5753 034764 321 10 0 00 034756 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5754 5755 001064 T=T+1 5756 777777 677777 XX=XX+XX+1 5757 IFE , 5758 100000 ZZ=ZZ+ZZ 5759 IFE ZZ, 5760 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5761 DMOVE AC,[777,,XX 5762 034765 120 04 0 00 044043 -1,,-1] 5763 DFAD AC,[0,,ZZ 5764 034766 110 04 0 00 044132 0,,0] 5765 034767 312 04 0 00 043627 CAME AC,[777,,-1] 5766 034770 003 04 0 00 001064 ER3 AC,T 5767 034771 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5768 034772 004 05 0 00 001064 ER4 AC+1,T 5769 034773 321 10 0 00 034765 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5770 5771 001065 T=T+1 5772 777777 577777 XX=XX+XX+1 5773 IFE , 5774 200000 ZZ=ZZ+ZZ 5775 IFE ZZ, 5776 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5777 DMOVE AC,[777,,XX 5778 034774 120 04 0 00 044045 -1,,-1] 5779 DFAD AC,[0,,ZZ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0128 5780 034775 110 04 0 00 044134 0,,0] 5781 034776 312 04 0 00 043627 CAME AC,[777,,-1] 5782 034777 003 04 0 00 001065 ER3 AC,T 5783 035000 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5784 035001 004 05 0 00 001065 ER4 AC+1,T 5785 035002 321 10 0 00 034774 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5786 5787 001066 T=T+1 5788 777777 377777 XX=XX+XX+1 5789 IFE , 5790 400000 ZZ=ZZ+ZZ 5791 IFE ZZ, 5792 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^ 5793 DMOVE AC,[777,,XX 5794 035003 120 04 0 00 044047 -1,,-1] 5795 DFAD AC,[0,,ZZ 5796 035004 110 04 0 00 044136 0,,0] 5797 035005 312 04 0 00 043627 CAME AC,[777,,-1] 5798 035006 003 04 0 00 001066 ER3 AC,T 5799 035007 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5800 035010 004 05 0 00 001066 ER4 AC+1,T 5801 035011 321 10 0 00 035003 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5802 5803 5804 000000 XX=0 5805 000000 ZZ=0 5806 5807 REPEAT ^D9, 5808 , 5811 ZZ=ZZ+ZZ 5812 IFE ZZ, 5813 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1 5814 > DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0129 5815 001067 T=T+1 5816 000001 XX=XX+XX+1 5817 777777 777776 IFE , 5818 000000 ZZ=ZZ+ZZ 5819 000001 IFE ZZ, 5820 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5821 DMOVE AC,[XX&777,,-1 5822 035012 120 04 0 00 044051 -1,,-1] 5823 DFAD AC,[ZZ,,0 5824 035013 110 04 0 00 044140 0,,0] 5825 035014 312 04 0 00 043627 CAME AC,[777,,-1] 5826 035015 003 04 0 00 001067 ER3 AC,T 5827 035016 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5828 035017 004 05 0 00 001067 ER4 AC+1,T 5829 035020 321 10 0 00 035012 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5830 5831 001070 T=T+1 5832 777777 777775 XX=XX+XX+1 5833 IFE , 5834 000002 ZZ=ZZ+ZZ 5835 IFE ZZ, 5836 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5837 DMOVE AC,[XX&777,,-1 5838 035021 120 04 0 00 044053 -1,,-1] 5839 DFAD AC,[ZZ,,0 5840 035022 110 04 0 00 044142 0,,0] 5841 035023 312 04 0 00 043627 CAME AC,[777,,-1] 5842 035024 003 04 0 00 001070 ER3 AC,T 5843 035025 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5844 035026 004 05 0 00 001070 ER4 AC+1,T 5845 035027 321 10 0 00 035021 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5846 5847 001071 T=T+1 5848 777777 777773 XX=XX+XX+1 5849 IFE , 5850 000004 ZZ=ZZ+ZZ 5851 IFE ZZ, 5852 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5853 DMOVE AC,[XX&777,,-1 5854 035030 120 04 0 00 044055 -1,,-1] 5855 DFAD AC,[ZZ,,0 5856 035031 110 04 0 00 044144 0,,0] 5857 035032 312 04 0 00 043627 CAME AC,[777,,-1] 5858 035033 003 04 0 00 001071 ER3 AC,T 5859 035034 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5860 035035 004 05 0 00 001071 ER4 AC+1,T 5861 035036 321 10 0 00 035030 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5862 5863 001072 T=T+1 5864 777777 777767 XX=XX+XX+1 5865 IFE , 5866 000010 ZZ=ZZ+ZZ 5867 IFE ZZ, 5868 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0130 5869 DMOVE AC,[XX&777,,-1 5870 035037 120 04 0 00 044057 -1,,-1] 5871 DFAD AC,[ZZ,,0 5872 035040 110 04 0 00 044146 0,,0] 5873 035041 312 04 0 00 043627 CAME AC,[777,,-1] 5874 035042 003 04 0 00 001072 ER3 AC,T 5875 035043 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5876 035044 004 05 0 00 001072 ER4 AC+1,T 5877 035045 321 10 0 00 035037 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5878 5879 001073 T=T+1 5880 777777 777757 XX=XX+XX+1 5881 IFE , 5882 000020 ZZ=ZZ+ZZ 5883 IFE ZZ, 5884 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5885 DMOVE AC,[XX&777,,-1 5886 035046 120 04 0 00 044061 -1,,-1] 5887 DFAD AC,[ZZ,,0 5888 035047 110 04 0 00 044150 0,,0] 5889 035050 312 04 0 00 043627 CAME AC,[777,,-1] 5890 035051 003 04 0 00 001073 ER3 AC,T 5891 035052 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5892 035053 004 05 0 00 001073 ER4 AC+1,T 5893 035054 321 10 0 00 035046 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5894 5895 001074 T=T+1 5896 777777 777737 XX=XX+XX+1 5897 IFE , 5898 000040 ZZ=ZZ+ZZ 5899 IFE ZZ, 5900 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5901 DMOVE AC,[XX&777,,-1 5902 035055 120 04 0 00 044063 -1,,-1] 5903 DFAD AC,[ZZ,,0 5904 035056 110 04 0 00 044152 0,,0] 5905 035057 312 04 0 00 043627 CAME AC,[777,,-1] 5906 035060 003 04 0 00 001074 ER3 AC,T 5907 035061 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5908 035062 004 05 0 00 001074 ER4 AC+1,T 5909 035063 321 10 0 00 035055 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5910 5911 001075 T=T+1 5912 777777 777677 XX=XX+XX+1 5913 IFE , 5914 000100 ZZ=ZZ+ZZ 5915 IFE ZZ, 5916 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5917 DMOVE AC,[XX&777,,-1 5918 035064 120 04 0 00 044065 -1,,-1] 5919 DFAD AC,[ZZ,,0 5920 035065 110 04 0 00 044154 0,,0] 5921 035066 312 04 0 00 043627 CAME AC,[777,,-1] 5922 035067 003 04 0 00 001075 ER3 AC,T 5923 035070 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0131 5924 035071 004 05 0 00 001075 ER4 AC+1,T 5925 035072 321 10 0 00 035064 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5926 5927 001076 T=T+1 5928 777777 777577 XX=XX+XX+1 5929 IFE , 5930 000200 ZZ=ZZ+ZZ 5931 IFE ZZ, 5932 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5933 DMOVE AC,[XX&777,,-1 5934 035073 120 04 0 00 044067 -1,,-1] 5935 DFAD AC,[ZZ,,0 5936 035074 110 04 0 00 044156 0,,0] 5937 035075 312 04 0 00 043627 CAME AC,[777,,-1] 5938 035076 003 04 0 00 001076 ER3 AC,T 5939 035077 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5940 035100 004 05 0 00 001076 ER4 AC+1,T 5941 035101 321 10 0 00 035073 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5942 5943 001077 T=T+1 5944 777777 777377 XX=XX+XX+1 5945 IFE , 5946 000400 ZZ=ZZ+ZZ 5947 IFE ZZ, 5948 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^ 5949 DMOVE AC,[XX&777,,-1 5950 035102 120 04 0 00 044201 -1,,-1] 5951 DFAD AC,[ZZ,,0 5952 035103 110 04 0 00 044160 0,,0] 5953 035104 312 04 0 00 043627 CAME AC,[777,,-1] 5954 035105 003 04 0 00 001077 ER3 AC,T 5955 035106 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5956 035107 004 05 0 00 001077 ER4 AC+1,T 5957 035110 321 10 0 00 035102 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5958 5959 ;RIPPLE ZEROS - RIPPLE ONES COMBINED (ADD A RIPPLED ZERO TO A RIPPLED ONE) 5960 5961 001100 T=1100 5962 000000 XX=0 5963 000000 ZZ=0 5964 5965 R1100: REPEAT ^D18, 5966 5969 ZZ=ZZ+ZZ+1 5970 IFE , 5971 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1 5972 > 5973 001101 T=T+1 5974 000000 XX=XX+XX 5975 000001 IFE XX, 5976 000001 ZZ=ZZ+ZZ+1 5977 777777 777776 IFE , 5978 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0132 5979 DMOVE AC,[0,,0 5980 035111 120 04 0 00 044073 0,,XX] 5981 DFAD AC,[777,,-1 5982 035112 110 04 0 00 043632 -1,,ZZ] 5983 035113 312 04 0 00 043627 CAME AC,[777,,-1] 5984 035114 003 04 0 00 001101 ER3 AC,T 5985 035115 312 05 0 00 043631 CAME AC+1,[377777,,-1] 5986 035116 004 05 0 00 001101 ER4 AC+1,T 5987 035117 321 10 0 00 035111 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 5988 5989 001102 T=T+1 5990 000002 XX=XX+XX 5991 IFE XX, 5992 777777 777775 ZZ=ZZ+ZZ+1 5993 IFE , 5994 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 5995 DMOVE AC,[0,,0 5996 035120 120 04 0 00 044075 0,,XX] 5997 DFAD AC,[777,,-1 5998 035121 110 04 0 00 043635 -1,,ZZ] 5999 035122 312 04 0 00 043627 CAME AC,[777,,-1] 6000 035123 003 04 0 00 001102 ER3 AC,T 6001 035124 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6002 035125 004 05 0 00 001102 ER4 AC+1,T 6003 035126 321 10 0 00 035120 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6004 6005 001103 T=T+1 6006 000004 XX=XX+XX 6007 IFE XX, 6008 777777 777773 ZZ=ZZ+ZZ+1 6009 IFE , 6010 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6011 DMOVE AC,[0,,0 6012 035127 120 04 0 00 044077 0,,XX] 6013 DFAD AC,[777,,-1 6014 035130 110 04 0 00 043640 -1,,ZZ] 6015 035131 312 04 0 00 043627 CAME AC,[777,,-1] 6016 035132 003 04 0 00 001103 ER3 AC,T 6017 035133 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6018 035134 004 05 0 00 001103 ER4 AC+1,T 6019 035135 321 10 0 00 035127 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6020 6021 001104 T=T+1 6022 000010 XX=XX+XX 6023 IFE XX, 6024 777777 777767 ZZ=ZZ+ZZ+1 6025 IFE , 6026 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6027 DMOVE AC,[0,,0 6028 035136 120 04 0 00 044101 0,,XX] 6029 DFAD AC,[777,,-1 6030 035137 110 04 0 00 043643 -1,,ZZ] 6031 035140 312 04 0 00 043627 CAME AC,[777,,-1] 6032 035141 003 04 0 00 001104 ER3 AC,T 6033 035142 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0133 6034 035143 004 05 0 00 001104 ER4 AC+1,T 6035 035144 321 10 0 00 035136 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6036 6037 001105 T=T+1 6038 000020 XX=XX+XX 6039 IFE XX, 6040 777777 777757 ZZ=ZZ+ZZ+1 6041 IFE , 6042 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6043 DMOVE AC,[0,,0 6044 035145 120 04 0 00 044103 0,,XX] 6045 DFAD AC,[777,,-1 6046 035146 110 04 0 00 043646 -1,,ZZ] 6047 035147 312 04 0 00 043627 CAME AC,[777,,-1] 6048 035150 003 04 0 00 001105 ER3 AC,T 6049 035151 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6050 035152 004 05 0 00 001105 ER4 AC+1,T 6051 035153 321 10 0 00 035145 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6052 6053 001106 T=T+1 6054 000040 XX=XX+XX 6055 IFE XX, 6056 777777 777737 ZZ=ZZ+ZZ+1 6057 IFE , 6058 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6059 DMOVE AC,[0,,0 6060 035154 120 04 0 00 044105 0,,XX] 6061 DFAD AC,[777,,-1 6062 035155 110 04 0 00 043651 -1,,ZZ] 6063 035156 312 04 0 00 043627 CAME AC,[777,,-1] 6064 035157 003 04 0 00 001106 ER3 AC,T 6065 035160 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6066 035161 004 05 0 00 001106 ER4 AC+1,T 6067 035162 321 10 0 00 035154 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6068 6069 001107 T=T+1 6070 000100 XX=XX+XX 6071 IFE XX, 6072 777777 777677 ZZ=ZZ+ZZ+1 6073 IFE , 6074 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6075 DMOVE AC,[0,,0 6076 035163 120 04 0 00 044107 0,,XX] 6077 DFAD AC,[777,,-1 6078 035164 110 04 0 00 043654 -1,,ZZ] 6079 035165 312 04 0 00 043627 CAME AC,[777,,-1] 6080 035166 003 04 0 00 001107 ER3 AC,T 6081 035167 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6082 035170 004 05 0 00 001107 ER4 AC+1,T 6083 035171 321 10 0 00 035163 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6084 6085 001110 T=T+1 6086 000200 XX=XX+XX 6087 IFE XX, 6088 777777 777577 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0134 6089 IFE , 6090 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6091 DMOVE AC,[0,,0 6092 035172 120 04 0 00 044111 0,,XX] 6093 DFAD AC,[777,,-1 6094 035173 110 04 0 00 043657 -1,,ZZ] 6095 035174 312 04 0 00 043627 CAME AC,[777,,-1] 6096 035175 003 04 0 00 001110 ER3 AC,T 6097 035176 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6098 035177 004 05 0 00 001110 ER4 AC+1,T 6099 035200 321 10 0 00 035172 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6100 6101 001111 T=T+1 6102 000400 XX=XX+XX 6103 IFE XX, 6104 777777 777377 ZZ=ZZ+ZZ+1 6105 IFE , 6106 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6107 DMOVE AC,[0,,0 6108 035201 120 04 0 00 044113 0,,XX] 6109 DFAD AC,[777,,-1 6110 035202 110 04 0 00 043662 -1,,ZZ] 6111 035203 312 04 0 00 043627 CAME AC,[777,,-1] 6112 035204 003 04 0 00 001111 ER3 AC,T 6113 035205 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6114 035206 004 05 0 00 001111 ER4 AC+1,T 6115 035207 321 10 0 00 035201 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6116 6117 001112 T=T+1 6118 001000 XX=XX+XX 6119 IFE XX, 6120 777777 776777 ZZ=ZZ+ZZ+1 6121 IFE , 6122 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6123 DMOVE AC,[0,,0 6124 035210 120 04 0 00 044115 0,,XX] 6125 DFAD AC,[777,,-1 6126 035211 110 04 0 00 043665 -1,,ZZ] 6127 035212 312 04 0 00 043627 CAME AC,[777,,-1] 6128 035213 003 04 0 00 001112 ER3 AC,T 6129 035214 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6130 035215 004 05 0 00 001112 ER4 AC+1,T 6131 035216 321 10 0 00 035210 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6132 6133 001113 T=T+1 6134 002000 XX=XX+XX 6135 IFE XX, 6136 777777 775777 ZZ=ZZ+ZZ+1 6137 IFE , 6138 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6139 DMOVE AC,[0,,0 6140 035217 120 04 0 00 044117 0,,XX] 6141 DFAD AC,[777,,-1 6142 035220 110 04 0 00 043670 -1,,ZZ] 6143 035221 312 04 0 00 043627 CAME AC,[777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0135 6144 035222 003 04 0 00 001113 ER3 AC,T 6145 035223 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6146 035224 004 05 0 00 001113 ER4 AC+1,T 6147 035225 321 10 0 00 035217 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6148 6149 001114 T=T+1 6150 004000 XX=XX+XX 6151 IFE XX, 6152 777777 773777 ZZ=ZZ+ZZ+1 6153 IFE , 6154 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6155 DMOVE AC,[0,,0 6156 035226 120 04 0 00 044121 0,,XX] 6157 DFAD AC,[777,,-1 6158 035227 110 04 0 00 043673 -1,,ZZ] 6159 035230 312 04 0 00 043627 CAME AC,[777,,-1] 6160 035231 003 04 0 00 001114 ER3 AC,T 6161 035232 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6162 035233 004 05 0 00 001114 ER4 AC+1,T 6163 035234 321 10 0 00 035226 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6164 6165 001115 T=T+1 6166 010000 XX=XX+XX 6167 IFE XX, 6168 777777 767777 ZZ=ZZ+ZZ+1 6169 IFE , 6170 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6171 DMOVE AC,[0,,0 6172 035235 120 04 0 00 044123 0,,XX] 6173 DFAD AC,[777,,-1 6174 035236 110 04 0 00 043676 -1,,ZZ] 6175 035237 312 04 0 00 043627 CAME AC,[777,,-1] 6176 035240 003 04 0 00 001115 ER3 AC,T 6177 035241 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6178 035242 004 05 0 00 001115 ER4 AC+1,T 6179 035243 321 10 0 00 035235 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6180 6181 001116 T=T+1 6182 020000 XX=XX+XX 6183 IFE XX, 6184 777777 757777 ZZ=ZZ+ZZ+1 6185 IFE , 6186 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6187 DMOVE AC,[0,,0 6188 035244 120 04 0 00 044125 0,,XX] 6189 DFAD AC,[777,,-1 6190 035245 110 04 0 00 043701 -1,,ZZ] 6191 035246 312 04 0 00 043627 CAME AC,[777,,-1] 6192 035247 003 04 0 00 001116 ER3 AC,T 6193 035250 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6194 035251 004 05 0 00 001116 ER4 AC+1,T 6195 035252 321 10 0 00 035244 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6196 6197 001117 T=T+1 6198 040000 XX=XX+XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0136 6199 IFE XX, 6200 777777 737777 ZZ=ZZ+ZZ+1 6201 IFE , 6202 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6203 DMOVE AC,[0,,0 6204 035253 120 04 0 00 044127 0,,XX] 6205 DFAD AC,[777,,-1 6206 035254 110 04 0 00 043704 -1,,ZZ] 6207 035255 312 04 0 00 043627 CAME AC,[777,,-1] 6208 035256 003 04 0 00 001117 ER3 AC,T 6209 035257 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6210 035260 004 05 0 00 001117 ER4 AC+1,T 6211 035261 321 10 0 00 035253 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6212 6213 001120 T=T+1 6214 100000 XX=XX+XX 6215 IFE XX, 6216 777777 677777 ZZ=ZZ+ZZ+1 6217 IFE , 6218 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6219 DMOVE AC,[0,,0 6220 035262 120 04 0 00 044131 0,,XX] 6221 DFAD AC,[777,,-1 6222 035263 110 04 0 00 043707 -1,,ZZ] 6223 035264 312 04 0 00 043627 CAME AC,[777,,-1] 6224 035265 003 04 0 00 001120 ER3 AC,T 6225 035266 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6226 035267 004 05 0 00 001120 ER4 AC+1,T 6227 035270 321 10 0 00 035262 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6228 6229 001121 T=T+1 6230 200000 XX=XX+XX 6231 IFE XX, 6232 777777 577777 ZZ=ZZ+ZZ+1 6233 IFE , 6234 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6235 DMOVE AC,[0,,0 6236 035271 120 04 0 00 044133 0,,XX] 6237 DFAD AC,[777,,-1 6238 035272 110 04 0 00 043712 -1,,ZZ] 6239 035273 312 04 0 00 043627 CAME AC,[777,,-1] 6240 035274 003 04 0 00 001121 ER3 AC,T 6241 035275 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6242 035276 004 05 0 00 001121 ER4 AC+1,T 6243 035277 321 10 0 00 035271 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6244 6245 001122 T=T+1 6246 400000 XX=XX+XX 6247 IFE XX, 6248 777777 377777 ZZ=ZZ+ZZ+1 6249 IFE , 6250 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^ 6251 DMOVE AC,[0,,0 6252 035300 120 04 0 00 044135 0,,XX] 6253 DFAD AC,[777,,-1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0137 6254 035301 110 04 0 00 043715 -1,,ZZ] 6255 035302 312 04 0 00 043627 CAME AC,[777,,-1] 6256 035303 003 04 0 00 001122 ER3 AC,T 6257 035304 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6258 035305 004 05 0 00 001122 ER4 AC+1,T 6259 035306 321 10 0 00 035300 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6260 6261 6262 000000 XX=0 6263 000000 ZZ=0 6264 6265 REPEAT ^D18, 6266 6269 ZZ=ZZ+ZZ+1 6270 IFE , 6271 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1 6272 > 6273 001123 T=T+1 6274 000000 XX=XX+XX 6275 000001 IFE XX, 6276 000001 ZZ=ZZ+ZZ+1 6277 777777 777776 IFE , 6278 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6279 DMOVE AC,[0,,0 6280 035307 120 04 0 00 044137 XX,,0] 6281 DFAD AC,[777,,-1 6282 035310 110 04 0 00 043720 ZZ,,-1] 6283 035311 312 04 0 00 043627 CAME AC,[777,,-1] 6284 035312 003 04 0 00 001123 ER3 AC,T 6285 035313 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6286 035314 004 05 0 00 001123 ER4 AC+1,T 6287 035315 321 10 0 00 035307 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6288 6289 001124 T=T+1 6290 000002 XX=XX+XX 6291 IFE XX, 6292 777777 777775 ZZ=ZZ+ZZ+1 6293 IFE , 6294 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6295 DMOVE AC,[0,,0 6296 035316 120 04 0 00 044141 XX,,0] 6297 DFAD AC,[777,,-1 6298 035317 110 04 0 00 043723 ZZ,,-1] 6299 035320 312 04 0 00 043627 CAME AC,[777,,-1] 6300 035321 003 04 0 00 001124 ER3 AC,T 6301 035322 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6302 035323 004 05 0 00 001124 ER4 AC+1,T 6303 035324 321 10 0 00 035316 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6304 6305 001125 T=T+1 6306 000004 XX=XX+XX 6307 IFE XX, 6308 777777 777773 ZZ=ZZ+ZZ+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0138 6309 IFE , 6310 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6311 DMOVE AC,[0,,0 6312 035325 120 04 0 00 044143 XX,,0] 6313 DFAD AC,[777,,-1 6314 035326 110 04 0 00 043726 ZZ,,-1] 6315 035327 312 04 0 00 043627 CAME AC,[777,,-1] 6316 035330 003 04 0 00 001125 ER3 AC,T 6317 035331 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6318 035332 004 05 0 00 001125 ER4 AC+1,T 6319 035333 321 10 0 00 035325 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6320 6321 001126 T=T+1 6322 000010 XX=XX+XX 6323 IFE XX, 6324 777777 777767 ZZ=ZZ+ZZ+1 6325 IFE , 6326 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6327 DMOVE AC,[0,,0 6328 035334 120 04 0 00 044145 XX,,0] 6329 DFAD AC,[777,,-1 6330 035335 110 04 0 00 043731 ZZ,,-1] 6331 035336 312 04 0 00 043627 CAME AC,[777,,-1] 6332 035337 003 04 0 00 001126 ER3 AC,T 6333 035340 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6334 035341 004 05 0 00 001126 ER4 AC+1,T 6335 035342 321 10 0 00 035334 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6336 6337 001127 T=T+1 6338 000020 XX=XX+XX 6339 IFE XX, 6340 777777 777757 ZZ=ZZ+ZZ+1 6341 IFE , 6342 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6343 DMOVE AC,[0,,0 6344 035343 120 04 0 00 044147 XX,,0] 6345 DFAD AC,[777,,-1 6346 035344 110 04 0 00 043734 ZZ,,-1] 6347 035345 312 04 0 00 043627 CAME AC,[777,,-1] 6348 035346 003 04 0 00 001127 ER3 AC,T 6349 035347 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6350 035350 004 05 0 00 001127 ER4 AC+1,T 6351 035351 321 10 0 00 035343 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6352 6353 001130 T=T+1 6354 000040 XX=XX+XX 6355 IFE XX, 6356 777777 777737 ZZ=ZZ+ZZ+1 6357 IFE , 6358 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6359 DMOVE AC,[0,,0 6360 035352 120 04 0 00 044151 XX,,0] 6361 DFAD AC,[777,,-1 6362 035353 110 04 0 00 043737 ZZ,,-1] 6363 035354 312 04 0 00 043627 CAME AC,[777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0139 6364 035355 003 04 0 00 001130 ER3 AC,T 6365 035356 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6366 035357 004 05 0 00 001130 ER4 AC+1,T 6367 035360 321 10 0 00 035352 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6368 6369 001131 T=T+1 6370 000100 XX=XX+XX 6371 IFE XX, 6372 777777 777677 ZZ=ZZ+ZZ+1 6373 IFE , 6374 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6375 DMOVE AC,[0,,0 6376 035361 120 04 0 00 044153 XX,,0] 6377 DFAD AC,[777,,-1 6378 035362 110 04 0 00 043742 ZZ,,-1] 6379 035363 312 04 0 00 043627 CAME AC,[777,,-1] 6380 035364 003 04 0 00 001131 ER3 AC,T 6381 035365 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6382 035366 004 05 0 00 001131 ER4 AC+1,T 6383 035367 321 10 0 00 035361 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6384 6385 001132 T=T+1 6386 000200 XX=XX+XX 6387 IFE XX, 6388 777777 777577 ZZ=ZZ+ZZ+1 6389 IFE , 6390 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6391 DMOVE AC,[0,,0 6392 035370 120 04 0 00 044155 XX,,0] 6393 DFAD AC,[777,,-1 6394 035371 110 04 0 00 043745 ZZ,,-1] 6395 035372 312 04 0 00 043627 CAME AC,[777,,-1] 6396 035373 003 04 0 00 001132 ER3 AC,T 6397 035374 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6398 035375 004 05 0 00 001132 ER4 AC+1,T 6399 035376 321 10 0 00 035370 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6400 6401 001133 T=T+1 6402 000400 XX=XX+XX 6403 IFE XX, 6404 777777 777377 ZZ=ZZ+ZZ+1 6405 IFE , 6406 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6407 DMOVE AC,[0,,0 6408 035377 120 04 0 00 044157 XX,,0] 6409 DFAD AC,[777,,-1 6410 035400 110 04 0 00 043750 ZZ,,-1] 6411 035401 312 04 0 00 043627 CAME AC,[777,,-1] 6412 035402 003 04 0 00 001133 ER3 AC,T 6413 035403 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6414 035404 004 05 0 00 001133 ER4 AC+1,T 6415 035405 321 10 0 00 035377 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6416 6417 001134 T=T+1 6418 001000 XX=XX+XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0140 6419 IFE XX, 6420 777777 776777 ZZ=ZZ+ZZ+1 6421 IFE , 6422 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6423 DMOVE AC,[0,,0 6424 035406 120 04 0 00 044161 XX,,0] 6425 DFAD AC,[777,,-1 6426 035407 110 04 0 00 043753 ZZ,,-1] 6427 035410 312 04 0 00 043627 CAME AC,[777,,-1] 6428 035411 003 04 0 00 001134 ER3 AC,T 6429 035412 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6430 035413 004 05 0 00 001134 ER4 AC+1,T 6431 035414 321 10 0 00 035406 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6432 6433 001135 T=T+1 6434 002000 XX=XX+XX 6435 IFE XX, 6436 777777 775777 ZZ=ZZ+ZZ+1 6437 IFE , 6438 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6439 DMOVE AC,[0,,0 6440 035415 120 04 0 00 044163 XX,,0] 6441 DFAD AC,[777,,-1 6442 035416 110 04 0 00 043756 ZZ,,-1] 6443 035417 312 04 0 00 043627 CAME AC,[777,,-1] 6444 035420 003 04 0 00 001135 ER3 AC,T 6445 035421 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6446 035422 004 05 0 00 001135 ER4 AC+1,T 6447 035423 321 10 0 00 035415 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6448 6449 001136 T=T+1 6450 004000 XX=XX+XX 6451 IFE XX, 6452 777777 773777 ZZ=ZZ+ZZ+1 6453 IFE , 6454 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6455 DMOVE AC,[0,,0 6456 035424 120 04 0 00 044165 XX,,0] 6457 DFAD AC,[777,,-1 6458 035425 110 04 0 00 043761 ZZ,,-1] 6459 035426 312 04 0 00 043627 CAME AC,[777,,-1] 6460 035427 003 04 0 00 001136 ER3 AC,T 6461 035430 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6462 035431 004 05 0 00 001136 ER4 AC+1,T 6463 035432 321 10 0 00 035424 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6464 6465 001137 T=T+1 6466 010000 XX=XX+XX 6467 IFE XX, 6468 777777 767777 ZZ=ZZ+ZZ+1 6469 IFE , 6470 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6471 DMOVE AC,[0,,0 6472 035433 120 04 0 00 044167 XX,,0] 6473 DFAD AC,[777,,-1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0141 6474 035434 110 04 0 00 043764 ZZ,,-1] 6475 035435 312 04 0 00 043627 CAME AC,[777,,-1] 6476 035436 003 04 0 00 001137 ER3 AC,T 6477 035437 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6478 035440 004 05 0 00 001137 ER4 AC+1,T 6479 035441 321 10 0 00 035433 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6480 6481 001140 T=T+1 6482 020000 XX=XX+XX 6483 IFE XX, 6484 777777 757777 ZZ=ZZ+ZZ+1 6485 IFE , 6486 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6487 DMOVE AC,[0,,0 6488 035442 120 04 0 00 044171 XX,,0] 6489 DFAD AC,[777,,-1 6490 035443 110 04 0 00 043767 ZZ,,-1] 6491 035444 312 04 0 00 043627 CAME AC,[777,,-1] 6492 035445 003 04 0 00 001140 ER3 AC,T 6493 035446 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6494 035447 004 05 0 00 001140 ER4 AC+1,T 6495 035450 321 10 0 00 035442 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6496 6497 001141 T=T+1 6498 040000 XX=XX+XX 6499 IFE XX, 6500 777777 737777 ZZ=ZZ+ZZ+1 6501 IFE , 6502 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6503 DMOVE AC,[0,,0 6504 035451 120 04 0 00 044173 XX,,0] 6505 DFAD AC,[777,,-1 6506 035452 110 04 0 00 043772 ZZ,,-1] 6507 035453 312 04 0 00 043627 CAME AC,[777,,-1] 6508 035454 003 04 0 00 001141 ER3 AC,T 6509 035455 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6510 035456 004 05 0 00 001141 ER4 AC+1,T 6511 035457 321 10 0 00 035451 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6512 6513 001142 T=T+1 6514 100000 XX=XX+XX 6515 IFE XX, 6516 777777 677777 ZZ=ZZ+ZZ+1 6517 IFE , 6518 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6519 DMOVE AC,[0,,0 6520 035460 120 04 0 00 044175 XX,,0] 6521 DFAD AC,[777,,-1 6522 035461 110 04 0 00 043775 ZZ,,-1] 6523 035462 312 04 0 00 043627 CAME AC,[777,,-1] 6524 035463 003 04 0 00 001142 ER3 AC,T 6525 035464 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6526 035465 004 05 0 00 001142 ER4 AC+1,T 6527 035466 321 10 0 00 035460 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6528 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0142 6529 001143 T=T+1 6530 200000 XX=XX+XX 6531 IFE XX, 6532 777777 577777 ZZ=ZZ+ZZ+1 6533 IFE , 6534 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6535 DMOVE AC,[0,,0 6536 035467 120 04 0 00 043331 XX,,0] 6537 DFAD AC,[777,,-1 6538 035470 110 04 0 00 044000 ZZ,,-1] 6539 035471 312 04 0 00 043627 CAME AC,[777,,-1] 6540 035472 003 04 0 00 001143 ER3 AC,T 6541 035473 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6542 035474 004 05 0 00 001143 ER4 AC+1,T 6543 035475 321 10 0 00 035467 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6544 6545 001144 T=T+1 6546 400000 XX=XX+XX 6547 IFE XX, 6548 777777 377777 ZZ=ZZ+ZZ+1 6549 IFE , 6550 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^ 6551 DMOVE AC,[0,,0 6552 035476 120 04 0 00 044177 XX,,0] 6553 DFAD AC,[777,,-1 6554 035477 110 04 0 00 044003 ZZ,,-1] 6555 035500 312 04 0 00 043627 CAME AC,[777,,-1] 6556 035501 003 04 0 00 001144 ER3 AC,T 6557 035502 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6558 035503 004 05 0 00 001144 ER4 AC+1,T 6559 035504 321 10 0 00 035476 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6560 6561 6562 000000 XX=0 6563 000000 ZZ=0 6564 6565 REPEAT ^D18, 6566 6569 ZZ=ZZ+ZZ+1 6570 IFE , 6571 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1 6572 > 6573 001145 T=T+1 6574 000000 XX=XX+XX 6575 000001 IFE XX, 6576 000001 ZZ=ZZ+ZZ+1 6577 777777 777776 IFE , 6578 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6579 DMOVE AC,[0,,XX 6580 035505 120 04 0 00 044074 0,,0] 6581 DFAD AC,[777,,ZZ 6582 035506 110 04 0 00 044005 -1,,-1] 6583 035507 312 04 0 00 043627 CAME AC,[777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0143 6584 035510 003 04 0 00 001145 ER3 AC,T 6585 035511 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6586 035512 004 05 0 00 001145 ER4 AC+1,T 6587 035513 321 10 0 00 035505 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6588 6589 001146 T=T+1 6590 000002 XX=XX+XX 6591 IFE XX, 6592 777777 777775 ZZ=ZZ+ZZ+1 6593 IFE , 6594 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6595 DMOVE AC,[0,,XX 6596 035514 120 04 0 00 044076 0,,0] 6597 DFAD AC,[777,,ZZ 6598 035515 110 04 0 00 044007 -1,,-1] 6599 035516 312 04 0 00 043627 CAME AC,[777,,-1] 6600 035517 003 04 0 00 001146 ER3 AC,T 6601 035520 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6602 035521 004 05 0 00 001146 ER4 AC+1,T 6603 035522 321 10 0 00 035514 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6604 6605 001147 T=T+1 6606 000004 XX=XX+XX 6607 IFE XX, 6608 777777 777773 ZZ=ZZ+ZZ+1 6609 IFE , 6610 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6611 DMOVE AC,[0,,XX 6612 035523 120 04 0 00 044100 0,,0] 6613 DFAD AC,[777,,ZZ 6614 035524 110 04 0 00 044011 -1,,-1] 6615 035525 312 04 0 00 043627 CAME AC,[777,,-1] 6616 035526 003 04 0 00 001147 ER3 AC,T 6617 035527 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6618 035530 004 05 0 00 001147 ER4 AC+1,T 6619 035531 321 10 0 00 035523 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6620 6621 001150 T=T+1 6622 000010 XX=XX+XX 6623 IFE XX, 6624 777777 777767 ZZ=ZZ+ZZ+1 6625 IFE , 6626 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6627 DMOVE AC,[0,,XX 6628 035532 120 04 0 00 044102 0,,0] 6629 DFAD AC,[777,,ZZ 6630 035533 110 04 0 00 044013 -1,,-1] 6631 035534 312 04 0 00 043627 CAME AC,[777,,-1] 6632 035535 003 04 0 00 001150 ER3 AC,T 6633 035536 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6634 035537 004 05 0 00 001150 ER4 AC+1,T 6635 035540 321 10 0 00 035532 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6636 6637 001151 T=T+1 6638 000020 XX=XX+XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0144 6639 IFE XX, 6640 777777 777757 ZZ=ZZ+ZZ+1 6641 IFE , 6642 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6643 DMOVE AC,[0,,XX 6644 035541 120 04 0 00 044104 0,,0] 6645 DFAD AC,[777,,ZZ 6646 035542 110 04 0 00 044015 -1,,-1] 6647 035543 312 04 0 00 043627 CAME AC,[777,,-1] 6648 035544 003 04 0 00 001151 ER3 AC,T 6649 035545 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6650 035546 004 05 0 00 001151 ER4 AC+1,T 6651 035547 321 10 0 00 035541 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6652 6653 001152 T=T+1 6654 000040 XX=XX+XX 6655 IFE XX, 6656 777777 777737 ZZ=ZZ+ZZ+1 6657 IFE , 6658 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6659 DMOVE AC,[0,,XX 6660 035550 120 04 0 00 044106 0,,0] 6661 DFAD AC,[777,,ZZ 6662 035551 110 04 0 00 044017 -1,,-1] 6663 035552 312 04 0 00 043627 CAME AC,[777,,-1] 6664 035553 003 04 0 00 001152 ER3 AC,T 6665 035554 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6666 035555 004 05 0 00 001152 ER4 AC+1,T 6667 035556 321 10 0 00 035550 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6668 6669 001153 T=T+1 6670 000100 XX=XX+XX 6671 IFE XX, 6672 777777 777677 ZZ=ZZ+ZZ+1 6673 IFE , 6674 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6675 DMOVE AC,[0,,XX 6676 035557 120 04 0 00 044110 0,,0] 6677 DFAD AC,[777,,ZZ 6678 035560 110 04 0 00 044021 -1,,-1] 6679 035561 312 04 0 00 043627 CAME AC,[777,,-1] 6680 035562 003 04 0 00 001153 ER3 AC,T 6681 035563 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6682 035564 004 05 0 00 001153 ER4 AC+1,T 6683 035565 321 10 0 00 035557 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6684 6685 001154 T=T+1 6686 000200 XX=XX+XX 6687 IFE XX, 6688 777777 777577 ZZ=ZZ+ZZ+1 6689 IFE , 6690 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6691 DMOVE AC,[0,,XX 6692 035566 120 04 0 00 044112 0,,0] 6693 DFAD AC,[777,,ZZ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0145 6694 035567 110 04 0 00 044023 -1,,-1] 6695 035570 312 04 0 00 043627 CAME AC,[777,,-1] 6696 035571 003 04 0 00 001154 ER3 AC,T 6697 035572 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6698 035573 004 05 0 00 001154 ER4 AC+1,T 6699 035574 321 10 0 00 035566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6700 6701 001155 T=T+1 6702 000400 XX=XX+XX 6703 IFE XX, 6704 777777 777377 ZZ=ZZ+ZZ+1 6705 IFE , 6706 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6707 DMOVE AC,[0,,XX 6708 035575 120 04 0 00 044114 0,,0] 6709 DFAD AC,[777,,ZZ 6710 035576 110 04 0 00 044025 -1,,-1] 6711 035577 312 04 0 00 043627 CAME AC,[777,,-1] 6712 035600 003 04 0 00 001155 ER3 AC,T 6713 035601 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6714 035602 004 05 0 00 001155 ER4 AC+1,T 6715 035603 321 10 0 00 035575 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6716 6717 001156 T=T+1 6718 001000 XX=XX+XX 6719 IFE XX, 6720 777777 776777 ZZ=ZZ+ZZ+1 6721 IFE , 6722 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6723 DMOVE AC,[0,,XX 6724 035604 120 04 0 00 044116 0,,0] 6725 DFAD AC,[777,,ZZ 6726 035605 110 04 0 00 044027 -1,,-1] 6727 035606 312 04 0 00 043627 CAME AC,[777,,-1] 6728 035607 003 04 0 00 001156 ER3 AC,T 6729 035610 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6730 035611 004 05 0 00 001156 ER4 AC+1,T 6731 035612 321 10 0 00 035604 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6732 6733 001157 T=T+1 6734 002000 XX=XX+XX 6735 IFE XX, 6736 777777 775777 ZZ=ZZ+ZZ+1 6737 IFE , 6738 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6739 DMOVE AC,[0,,XX 6740 035613 120 04 0 00 044120 0,,0] 6741 DFAD AC,[777,,ZZ 6742 035614 110 04 0 00 044031 -1,,-1] 6743 035615 312 04 0 00 043627 CAME AC,[777,,-1] 6744 035616 003 04 0 00 001157 ER3 AC,T 6745 035617 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6746 035620 004 05 0 00 001157 ER4 AC+1,T 6747 035621 321 10 0 00 035613 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6748 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0146 6749 001160 T=T+1 6750 004000 XX=XX+XX 6751 IFE XX, 6752 777777 773777 ZZ=ZZ+ZZ+1 6753 IFE , 6754 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6755 DMOVE AC,[0,,XX 6756 035622 120 04 0 00 044122 0,,0] 6757 DFAD AC,[777,,ZZ 6758 035623 110 04 0 00 044033 -1,,-1] 6759 035624 312 04 0 00 043627 CAME AC,[777,,-1] 6760 035625 003 04 0 00 001160 ER3 AC,T 6761 035626 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6762 035627 004 05 0 00 001160 ER4 AC+1,T 6763 035630 321 10 0 00 035622 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6764 6765 001161 T=T+1 6766 010000 XX=XX+XX 6767 IFE XX, 6768 777777 767777 ZZ=ZZ+ZZ+1 6769 IFE , 6770 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6771 DMOVE AC,[0,,XX 6772 035631 120 04 0 00 044124 0,,0] 6773 DFAD AC,[777,,ZZ 6774 035632 110 04 0 00 044035 -1,,-1] 6775 035633 312 04 0 00 043627 CAME AC,[777,,-1] 6776 035634 003 04 0 00 001161 ER3 AC,T 6777 035635 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6778 035636 004 05 0 00 001161 ER4 AC+1,T 6779 035637 321 10 0 00 035631 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6780 6781 001162 T=T+1 6782 020000 XX=XX+XX 6783 IFE XX, 6784 777777 757777 ZZ=ZZ+ZZ+1 6785 IFE , 6786 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6787 DMOVE AC,[0,,XX 6788 035640 120 04 0 00 044126 0,,0] 6789 DFAD AC,[777,,ZZ 6790 035641 110 04 0 00 044037 -1,,-1] 6791 035642 312 04 0 00 043627 CAME AC,[777,,-1] 6792 035643 003 04 0 00 001162 ER3 AC,T 6793 035644 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6794 035645 004 05 0 00 001162 ER4 AC+1,T 6795 035646 321 10 0 00 035640 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6796 6797 001163 T=T+1 6798 040000 XX=XX+XX 6799 IFE XX, 6800 777777 737777 ZZ=ZZ+ZZ+1 6801 IFE , 6802 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6803 DMOVE AC,[0,,XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-18 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0147 6804 035647 120 04 0 00 044130 0,,0] 6805 DFAD AC,[777,,ZZ 6806 035650 110 04 0 00 044041 -1,,-1] 6807 035651 312 04 0 00 043627 CAME AC,[777,,-1] 6808 035652 003 04 0 00 001163 ER3 AC,T 6809 035653 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6810 035654 004 05 0 00 001163 ER4 AC+1,T 6811 035655 321 10 0 00 035647 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6812 6813 001164 T=T+1 6814 100000 XX=XX+XX 6815 IFE XX, 6816 777777 677777 ZZ=ZZ+ZZ+1 6817 IFE , 6818 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6819 DMOVE AC,[0,,XX 6820 035656 120 04 0 00 044132 0,,0] 6821 DFAD AC,[777,,ZZ 6822 035657 110 04 0 00 044043 -1,,-1] 6823 035660 312 04 0 00 043627 CAME AC,[777,,-1] 6824 035661 003 04 0 00 001164 ER3 AC,T 6825 035662 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6826 035663 004 05 0 00 001164 ER4 AC+1,T 6827 035664 321 10 0 00 035656 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6828 6829 001165 T=T+1 6830 200000 XX=XX+XX 6831 IFE XX, 6832 777777 577777 ZZ=ZZ+ZZ+1 6833 IFE , 6834 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6835 DMOVE AC,[0,,XX 6836 035665 120 04 0 00 044134 0,,0] 6837 DFAD AC,[777,,ZZ 6838 035666 110 04 0 00 044045 -1,,-1] 6839 035667 312 04 0 00 043627 CAME AC,[777,,-1] 6840 035670 003 04 0 00 001165 ER3 AC,T 6841 035671 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6842 035672 004 05 0 00 001165 ER4 AC+1,T 6843 035673 321 10 0 00 035665 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6844 6845 001166 T=T+1 6846 400000 XX=XX+XX 6847 IFE XX, 6848 777777 377777 ZZ=ZZ+ZZ+1 6849 IFE , 6850 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^ 6851 DMOVE AC,[0,,XX 6852 035674 120 04 0 00 044136 0,,0] 6853 DFAD AC,[777,,ZZ 6854 035675 110 04 0 00 044047 -1,,-1] 6855 035676 312 04 0 00 043627 CAME AC,[777,,-1] 6856 035677 003 04 0 00 001166 ER3 AC,T 6857 035700 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6858 035701 004 05 0 00 001166 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-19 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0148 6859 035702 321 10 0 00 035674 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6860 6861 6862 000000 XX=0 6863 000000 ZZ=0 6864 6865 REPEAT ^D9, 6866 6869 ZZ=ZZ+ZZ+1 6870 IFE , 6871 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1 6872 > DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0149 6873 001167 T=T+1 6874 000000 XX=XX+XX 6875 000001 IFE XX, 6876 000001 ZZ=ZZ+ZZ+1 6877 777777 777776 IFE , 6878 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6879 DMOVE AC,[XX,,0 6880 035703 120 04 0 00 044140 0,,0] 6881 DFAD AC,[ZZ&777,,-1 6882 035704 110 04 0 00 044051 -1,,-1] 6883 035705 312 04 0 00 043627 CAME AC,[777,,-1] 6884 035706 003 04 0 00 001167 ER3 AC,T 6885 035707 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6886 035710 004 05 0 00 001167 ER4 AC+1,T 6887 035711 321 10 0 00 035703 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6888 6889 001170 T=T+1 6890 000002 XX=XX+XX 6891 IFE XX, 6892 777777 777775 ZZ=ZZ+ZZ+1 6893 IFE , 6894 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6895 DMOVE AC,[XX,,0 6896 035712 120 04 0 00 044142 0,,0] 6897 DFAD AC,[ZZ&777,,-1 6898 035713 110 04 0 00 044053 -1,,-1] 6899 035714 312 04 0 00 043627 CAME AC,[777,,-1] 6900 035715 003 04 0 00 001170 ER3 AC,T 6901 035716 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6902 035717 004 05 0 00 001170 ER4 AC+1,T 6903 035720 321 10 0 00 035712 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6904 6905 001171 T=T+1 6906 000004 XX=XX+XX 6907 IFE XX, 6908 777777 777773 ZZ=ZZ+ZZ+1 6909 IFE , 6910 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6911 DMOVE AC,[XX,,0 6912 035721 120 04 0 00 044144 0,,0] 6913 DFAD AC,[ZZ&777,,-1 6914 035722 110 04 0 00 044055 -1,,-1] 6915 035723 312 04 0 00 043627 CAME AC,[777,,-1] 6916 035724 003 04 0 00 001171 ER3 AC,T 6917 035725 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6918 035726 004 05 0 00 001171 ER4 AC+1,T 6919 035727 321 10 0 00 035721 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6920 6921 001172 T=T+1 6922 000010 XX=XX+XX 6923 IFE XX, 6924 777777 777767 ZZ=ZZ+ZZ+1 6925 IFE , 6926 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0150 6927 DMOVE AC,[XX,,0 6928 035730 120 04 0 00 044146 0,,0] 6929 DFAD AC,[ZZ&777,,-1 6930 035731 110 04 0 00 044057 -1,,-1] 6931 035732 312 04 0 00 043627 CAME AC,[777,,-1] 6932 035733 003 04 0 00 001172 ER3 AC,T 6933 035734 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6934 035735 004 05 0 00 001172 ER4 AC+1,T 6935 035736 321 10 0 00 035730 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6936 6937 001173 T=T+1 6938 000020 XX=XX+XX 6939 IFE XX, 6940 777777 777757 ZZ=ZZ+ZZ+1 6941 IFE , 6942 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6943 DMOVE AC,[XX,,0 6944 035737 120 04 0 00 044150 0,,0] 6945 DFAD AC,[ZZ&777,,-1 6946 035740 110 04 0 00 044061 -1,,-1] 6947 035741 312 04 0 00 043627 CAME AC,[777,,-1] 6948 035742 003 04 0 00 001173 ER3 AC,T 6949 035743 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6950 035744 004 05 0 00 001173 ER4 AC+1,T 6951 035745 321 10 0 00 035737 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6952 6953 001174 T=T+1 6954 000040 XX=XX+XX 6955 IFE XX, 6956 777777 777737 ZZ=ZZ+ZZ+1 6957 IFE , 6958 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6959 DMOVE AC,[XX,,0 6960 035746 120 04 0 00 044152 0,,0] 6961 DFAD AC,[ZZ&777,,-1 6962 035747 110 04 0 00 044063 -1,,-1] 6963 035750 312 04 0 00 043627 CAME AC,[777,,-1] 6964 035751 003 04 0 00 001174 ER3 AC,T 6965 035752 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6966 035753 004 05 0 00 001174 ER4 AC+1,T 6967 035754 321 10 0 00 035746 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6968 6969 001175 T=T+1 6970 000100 XX=XX+XX 6971 IFE XX, 6972 777777 777677 ZZ=ZZ+ZZ+1 6973 IFE , 6974 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6975 DMOVE AC,[XX,,0 6976 035755 120 04 0 00 044154 0,,0] 6977 DFAD AC,[ZZ&777,,-1 6978 035756 110 04 0 00 044065 -1,,-1] 6979 035757 312 04 0 00 043627 CAME AC,[777,,-1] 6980 035760 003 04 0 00 001175 ER3 AC,T 6981 035761 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0151 6982 035762 004 05 0 00 001175 ER4 AC+1,T 6983 035763 321 10 0 00 035755 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 6984 6985 001176 T=T+1 6986 000200 XX=XX+XX 6987 IFE XX, 6988 777777 777577 ZZ=ZZ+ZZ+1 6989 IFE , 6990 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 6991 DMOVE AC,[XX,,0 6992 035764 120 04 0 00 044156 0,,0] 6993 DFAD AC,[ZZ&777,,-1 6994 035765 110 04 0 00 044067 -1,,-1] 6995 035766 312 04 0 00 043627 CAME AC,[777,,-1] 6996 035767 003 04 0 00 001176 ER3 AC,T 6997 035770 312 05 0 00 043631 CAME AC+1,[377777,,-1] 6998 035771 004 05 0 00 001176 ER4 AC+1,T 6999 035772 321 10 0 00 035764 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7000 7001 001177 T=T+1 7002 000400 XX=XX+XX 7003 IFE XX, 7004 777777 777377 ZZ=ZZ+ZZ+1 7005 IFE , 7006 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^ 7007 DMOVE AC,[XX,,0 7008 035773 120 04 0 00 044160 0,,0] 7009 DFAD AC,[ZZ&777,,-1 7010 035774 110 04 0 00 044201 -1,,-1] 7011 035775 312 04 0 00 043627 CAME AC,[777,,-1] 7012 035776 003 04 0 00 001177 ER3 AC,T 7013 035777 312 05 0 00 043631 CAME AC+1,[377777,,-1] 7014 036000 004 05 0 00 001177 ER4 AC+1,T 7015 036001 321 10 0 00 035773 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7016 7017 ;RIPPLE ONES (TO A FRACTION OF ALL ONES, ADD A RIPPLED ONE) 7018 7019 001200 T=1200 7020 7021 000000 XX=0 7022 7023 R1200: REPEAT ^D18, 7024 7028 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ 7029 > 7030 001201 T=T+1 7031 000000 ZZ=XX 7032 000000 XX=XX+XX 7033 000001 IFE XX, 7034 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7035 DMOVE AC,[200777,,-1 7036 036002 120 04 0 00 044203 -1,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0152 7037 DFAD AC,[200000,,0 7038 036003 110 04 0 00 043624 0,,XX] 7039 036004 312 04 0 00 044205 CAME AC,[201400,,0] 7040 036005 003 04 0 00 001201 ER3 AC,T 7041 036006 312 05 0 00 043330 CAME AC+1,[0,,ZZ] 7042 036007 004 05 0 00 001201 ER4 AC+1,T 7043 036010 321 10 0 00 036002 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7044 7045 001202 T=T+1 7046 000001 ZZ=XX 7047 000002 XX=XX+XX 7048 IFE XX, 7049 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7050 DMOVE AC,[200777,,-1 7051 036011 120 04 0 00 044203 -1,,-1] 7052 DFAD AC,[200000,,0 7053 036012 110 04 0 00 043621 0,,XX] 7054 036013 312 04 0 00 044205 CAME AC,[201400,,0] 7055 036014 003 04 0 00 001202 ER3 AC,T 7056 036015 312 05 0 00 043625 CAME AC+1,[0,,ZZ] 7057 036016 004 05 0 00 001202 ER4 AC+1,T 7058 036017 321 10 0 00 036011 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7059 7060 001203 T=T+1 7061 000002 ZZ=XX 7062 000004 XX=XX+XX 7063 IFE XX, 7064 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7065 DMOVE AC,[200777,,-1 7066 036020 120 04 0 00 044203 -1,,-1] 7067 DFAD AC,[200000,,0 7068 036021 110 04 0 00 043616 0,,XX] 7069 036022 312 04 0 00 044205 CAME AC,[201400,,0] 7070 036023 003 04 0 00 001203 ER3 AC,T 7071 036024 312 05 0 00 043622 CAME AC+1,[0,,ZZ] 7072 036025 004 05 0 00 001203 ER4 AC+1,T 7073 036026 321 10 0 00 036020 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7074 7075 001204 T=T+1 7076 000004 ZZ=XX 7077 000010 XX=XX+XX 7078 IFE XX, 7079 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7080 DMOVE AC,[200777,,-1 7081 036027 120 04 0 00 044203 -1,,-1] 7082 DFAD AC,[200000,,0 7083 036030 110 04 0 00 043613 0,,XX] 7084 036031 312 04 0 00 044205 CAME AC,[201400,,0] 7085 036032 003 04 0 00 001204 ER3 AC,T 7086 036033 312 05 0 00 043617 CAME AC+1,[0,,ZZ] 7087 036034 004 05 0 00 001204 ER4 AC+1,T 7088 036035 321 10 0 00 036027 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7089 7090 001205 T=T+1 7091 000010 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0153 7092 000020 XX=XX+XX 7093 IFE XX, 7094 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7095 DMOVE AC,[200777,,-1 7096 036036 120 04 0 00 044203 -1,,-1] 7097 DFAD AC,[200000,,0 7098 036037 110 04 0 00 043610 0,,XX] 7099 036040 312 04 0 00 044205 CAME AC,[201400,,0] 7100 036041 003 04 0 00 001205 ER3 AC,T 7101 036042 312 05 0 00 043614 CAME AC+1,[0,,ZZ] 7102 036043 004 05 0 00 001205 ER4 AC+1,T 7103 036044 321 10 0 00 036036 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7104 7105 001206 T=T+1 7106 000020 ZZ=XX 7107 000040 XX=XX+XX 7108 IFE XX, 7109 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7110 DMOVE AC,[200777,,-1 7111 036045 120 04 0 00 044203 -1,,-1] 7112 DFAD AC,[200000,,0 7113 036046 110 04 0 00 043605 0,,XX] 7114 036047 312 04 0 00 044205 CAME AC,[201400,,0] 7115 036050 003 04 0 00 001206 ER3 AC,T 7116 036051 312 05 0 00 043611 CAME AC+1,[0,,ZZ] 7117 036052 004 05 0 00 001206 ER4 AC+1,T 7118 036053 321 10 0 00 036045 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7119 7120 001207 T=T+1 7121 000040 ZZ=XX 7122 000100 XX=XX+XX 7123 IFE XX, 7124 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7125 DMOVE AC,[200777,,-1 7126 036054 120 04 0 00 044203 -1,,-1] 7127 DFAD AC,[200000,,0 7128 036055 110 04 0 00 043602 0,,XX] 7129 036056 312 04 0 00 044205 CAME AC,[201400,,0] 7130 036057 003 04 0 00 001207 ER3 AC,T 7131 036060 312 05 0 00 043606 CAME AC+1,[0,,ZZ] 7132 036061 004 05 0 00 001207 ER4 AC+1,T 7133 036062 321 10 0 00 036054 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7134 7135 001210 T=T+1 7136 000100 ZZ=XX 7137 000200 XX=XX+XX 7138 IFE XX, 7139 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7140 DMOVE AC,[200777,,-1 7141 036063 120 04 0 00 044203 -1,,-1] 7142 DFAD AC,[200000,,0 7143 036064 110 04 0 00 043577 0,,XX] 7144 036065 312 04 0 00 044205 CAME AC,[201400,,0] 7145 036066 003 04 0 00 001210 ER3 AC,T 7146 036067 312 05 0 00 043603 CAME AC+1,[0,,ZZ] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0154 7147 036070 004 05 0 00 001210 ER4 AC+1,T 7148 036071 321 10 0 00 036063 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7149 7150 001211 T=T+1 7151 000200 ZZ=XX 7152 000400 XX=XX+XX 7153 IFE XX, 7154 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7155 DMOVE AC,[200777,,-1 7156 036072 120 04 0 00 044203 -1,,-1] 7157 DFAD AC,[200000,,0 7158 036073 110 04 0 00 043574 0,,XX] 7159 036074 312 04 0 00 044205 CAME AC,[201400,,0] 7160 036075 003 04 0 00 001211 ER3 AC,T 7161 036076 312 05 0 00 043600 CAME AC+1,[0,,ZZ] 7162 036077 004 05 0 00 001211 ER4 AC+1,T 7163 036100 321 10 0 00 036072 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7164 7165 001212 T=T+1 7166 000400 ZZ=XX 7167 001000 XX=XX+XX 7168 IFE XX, 7169 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7170 DMOVE AC,[200777,,-1 7171 036101 120 04 0 00 044203 -1,,-1] 7172 DFAD AC,[200000,,0 7173 036102 110 04 0 00 043571 0,,XX] 7174 036103 312 04 0 00 044205 CAME AC,[201400,,0] 7175 036104 003 04 0 00 001212 ER3 AC,T 7176 036105 312 05 0 00 043575 CAME AC+1,[0,,ZZ] 7177 036106 004 05 0 00 001212 ER4 AC+1,T 7178 036107 321 10 0 00 036101 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7179 7180 001213 T=T+1 7181 001000 ZZ=XX 7182 002000 XX=XX+XX 7183 IFE XX, 7184 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7185 DMOVE AC,[200777,,-1 7186 036110 120 04 0 00 044203 -1,,-1] 7187 DFAD AC,[200000,,0 7188 036111 110 04 0 00 043566 0,,XX] 7189 036112 312 04 0 00 044205 CAME AC,[201400,,0] 7190 036113 003 04 0 00 001213 ER3 AC,T 7191 036114 312 05 0 00 043572 CAME AC+1,[0,,ZZ] 7192 036115 004 05 0 00 001213 ER4 AC+1,T 7193 036116 321 10 0 00 036110 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7194 7195 001214 T=T+1 7196 002000 ZZ=XX 7197 004000 XX=XX+XX 7198 IFE XX, 7199 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7200 DMOVE AC,[200777,,-1 7201 036117 120 04 0 00 044203 -1,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0155 7202 DFAD AC,[200000,,0 7203 036120 110 04 0 00 043563 0,,XX] 7204 036121 312 04 0 00 044205 CAME AC,[201400,,0] 7205 036122 003 04 0 00 001214 ER3 AC,T 7206 036123 312 05 0 00 043567 CAME AC+1,[0,,ZZ] 7207 036124 004 05 0 00 001214 ER4 AC+1,T 7208 036125 321 10 0 00 036117 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7209 7210 001215 T=T+1 7211 004000 ZZ=XX 7212 010000 XX=XX+XX 7213 IFE XX, 7214 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7215 DMOVE AC,[200777,,-1 7216 036126 120 04 0 00 044203 -1,,-1] 7217 DFAD AC,[200000,,0 7218 036127 110 04 0 00 043560 0,,XX] 7219 036130 312 04 0 00 044205 CAME AC,[201400,,0] 7220 036131 003 04 0 00 001215 ER3 AC,T 7221 036132 312 05 0 00 043564 CAME AC+1,[0,,ZZ] 7222 036133 004 05 0 00 001215 ER4 AC+1,T 7223 036134 321 10 0 00 036126 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7224 7225 001216 T=T+1 7226 010000 ZZ=XX 7227 020000 XX=XX+XX 7228 IFE XX, 7229 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7230 DMOVE AC,[200777,,-1 7231 036135 120 04 0 00 044203 -1,,-1] 7232 DFAD AC,[200000,,0 7233 036136 110 04 0 00 043555 0,,XX] 7234 036137 312 04 0 00 044205 CAME AC,[201400,,0] 7235 036140 003 04 0 00 001216 ER3 AC,T 7236 036141 312 05 0 00 043561 CAME AC+1,[0,,ZZ] 7237 036142 004 05 0 00 001216 ER4 AC+1,T 7238 036143 321 10 0 00 036135 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7239 7240 001217 T=T+1 7241 020000 ZZ=XX 7242 040000 XX=XX+XX 7243 IFE XX, 7244 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7245 DMOVE AC,[200777,,-1 7246 036144 120 04 0 00 044203 -1,,-1] 7247 DFAD AC,[200000,,0 7248 036145 110 04 0 00 043552 0,,XX] 7249 036146 312 04 0 00 044205 CAME AC,[201400,,0] 7250 036147 003 04 0 00 001217 ER3 AC,T 7251 036150 312 05 0 00 043556 CAME AC+1,[0,,ZZ] 7252 036151 004 05 0 00 001217 ER4 AC+1,T 7253 036152 321 10 0 00 036144 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7254 7255 001220 T=T+1 7256 040000 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0156 7257 100000 XX=XX+XX 7258 IFE XX, 7259 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7260 DMOVE AC,[200777,,-1 7261 036153 120 04 0 00 044203 -1,,-1] 7262 DFAD AC,[200000,,0 7263 036154 110 04 0 00 043547 0,,XX] 7264 036155 312 04 0 00 044205 CAME AC,[201400,,0] 7265 036156 003 04 0 00 001220 ER3 AC,T 7266 036157 312 05 0 00 043553 CAME AC+1,[0,,ZZ] 7267 036160 004 05 0 00 001220 ER4 AC+1,T 7268 036161 321 10 0 00 036153 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7269 7270 001221 T=T+1 7271 100000 ZZ=XX 7272 200000 XX=XX+XX 7273 IFE XX, 7274 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7275 DMOVE AC,[200777,,-1 7276 036162 120 04 0 00 044203 -1,,-1] 7277 DFAD AC,[200000,,0 7278 036163 110 04 0 00 043544 0,,XX] 7279 036164 312 04 0 00 044205 CAME AC,[201400,,0] 7280 036165 003 04 0 00 001221 ER3 AC,T 7281 036166 312 05 0 00 043550 CAME AC+1,[0,,ZZ] 7282 036167 004 05 0 00 001221 ER4 AC+1,T 7283 036170 321 10 0 00 036162 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7284 7285 001222 T=T+1 7286 200000 ZZ=XX 7287 400000 XX=XX+XX 7288 IFE XX, 7289 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^ 7290 DMOVE AC,[200777,,-1 7291 036171 120 04 0 00 044203 -1,,-1] 7292 DFAD AC,[200000,,0 7293 036172 110 04 0 00 043541 0,,XX] 7294 036173 312 04 0 00 044205 CAME AC,[201400,,0] 7295 036174 003 04 0 00 001222 ER3 AC,T 7296 036175 312 05 0 00 043545 CAME AC+1,[0,,ZZ] 7297 036176 004 05 0 00 001222 ER4 AC+1,T 7298 036177 321 10 0 00 036171 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7299 7300 7301 400000 ZZ=XX 7302 000001 XX=1 7303 7304 001223 T=T+1 7305 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,0,ZZ^ 7306 DMOVE AC,[200777,,-1 7307 036200 120 04 0 00 044203 -1,,-1] 7308 DFAD AC,[200000,,0 7309 036201 110 04 0 00 043536 XX,,0] 7310 036202 312 04 0 00 044205 CAME AC,[201400,,0] 7311 036203 003 04 0 00 001223 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0157 7312 036204 312 05 0 00 043542 CAME AC+1,[0,,ZZ] 7313 036205 004 05 0 00 001223 ER4 AC+1,T 7314 036206 321 10 0 00 036200 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7315 7316 7317 REPEAT ^D16, 7318 7323 001224 T=T+1 7324 000001 ZZ=XX 7325 000002 XX=XX+XX 7326 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7327 DMOVE AC,[200777,,-1 7328 036207 120 04 0 00 044203 -1,,-1] 7329 DFAD AC,[200000,,0 7330 036210 110 04 0 00 043533 XX,,0] 7331 036211 312 04 0 00 044205 CAME AC,[201400,,0] 7332 036212 003 04 0 00 001224 ER3 AC,T 7333 036213 312 05 0 00 043537 CAME AC+1,[ZZ,,0] 7334 036214 004 05 0 00 001224 ER4 AC+1,T 7335 036215 321 10 0 00 036207 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7336 7337 001225 T=T+1 7338 000002 ZZ=XX 7339 000004 XX=XX+XX 7340 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7341 DMOVE AC,[200777,,-1 7342 036216 120 04 0 00 044203 -1,,-1] 7343 DFAD AC,[200000,,0 7344 036217 110 04 0 00 043530 XX,,0] 7345 036220 312 04 0 00 044205 CAME AC,[201400,,0] 7346 036221 003 04 0 00 001225 ER3 AC,T 7347 036222 312 05 0 00 043534 CAME AC+1,[ZZ,,0] 7348 036223 004 05 0 00 001225 ER4 AC+1,T 7349 036224 321 10 0 00 036216 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7350 7351 001226 T=T+1 7352 000004 ZZ=XX 7353 000010 XX=XX+XX 7354 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7355 DMOVE AC,[200777,,-1 7356 036225 120 04 0 00 044203 -1,,-1] 7357 DFAD AC,[200000,,0 7358 036226 110 04 0 00 043525 XX,,0] 7359 036227 312 04 0 00 044205 CAME AC,[201400,,0] 7360 036230 003 04 0 00 001226 ER3 AC,T 7361 036231 312 05 0 00 043531 CAME AC+1,[ZZ,,0] 7362 036232 004 05 0 00 001226 ER4 AC+1,T 7363 036233 321 10 0 00 036225 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7364 7365 001227 T=T+1 7366 000010 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0158 7367 000020 XX=XX+XX 7368 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7369 DMOVE AC,[200777,,-1 7370 036234 120 04 0 00 044203 -1,,-1] 7371 DFAD AC,[200000,,0 7372 036235 110 04 0 00 043522 XX,,0] 7373 036236 312 04 0 00 044205 CAME AC,[201400,,0] 7374 036237 003 04 0 00 001227 ER3 AC,T 7375 036240 312 05 0 00 043526 CAME AC+1,[ZZ,,0] 7376 036241 004 05 0 00 001227 ER4 AC+1,T 7377 036242 321 10 0 00 036234 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7378 7379 001230 T=T+1 7380 000020 ZZ=XX 7381 000040 XX=XX+XX 7382 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7383 DMOVE AC,[200777,,-1 7384 036243 120 04 0 00 044203 -1,,-1] 7385 DFAD AC,[200000,,0 7386 036244 110 04 0 00 043517 XX,,0] 7387 036245 312 04 0 00 044205 CAME AC,[201400,,0] 7388 036246 003 04 0 00 001230 ER3 AC,T 7389 036247 312 05 0 00 043523 CAME AC+1,[ZZ,,0] 7390 036250 004 05 0 00 001230 ER4 AC+1,T 7391 036251 321 10 0 00 036243 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7392 7393 001231 T=T+1 7394 000040 ZZ=XX 7395 000100 XX=XX+XX 7396 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7397 DMOVE AC,[200777,,-1 7398 036252 120 04 0 00 044203 -1,,-1] 7399 DFAD AC,[200000,,0 7400 036253 110 04 0 00 043514 XX,,0] 7401 036254 312 04 0 00 044205 CAME AC,[201400,,0] 7402 036255 003 04 0 00 001231 ER3 AC,T 7403 036256 312 05 0 00 043520 CAME AC+1,[ZZ,,0] 7404 036257 004 05 0 00 001231 ER4 AC+1,T 7405 036260 321 10 0 00 036252 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7406 7407 001232 T=T+1 7408 000100 ZZ=XX 7409 000200 XX=XX+XX 7410 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7411 DMOVE AC,[200777,,-1 7412 036261 120 04 0 00 044203 -1,,-1] 7413 DFAD AC,[200000,,0 7414 036262 110 04 0 00 043511 XX,,0] 7415 036263 312 04 0 00 044205 CAME AC,[201400,,0] 7416 036264 003 04 0 00 001232 ER3 AC,T 7417 036265 312 05 0 00 043515 CAME AC+1,[ZZ,,0] 7418 036266 004 05 0 00 001232 ER4 AC+1,T 7419 036267 321 10 0 00 036261 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7420 7421 001233 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0159 7422 000200 ZZ=XX 7423 000400 XX=XX+XX 7424 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7425 DMOVE AC,[200777,,-1 7426 036270 120 04 0 00 044203 -1,,-1] 7427 DFAD AC,[200000,,0 7428 036271 110 04 0 00 043506 XX,,0] 7429 036272 312 04 0 00 044205 CAME AC,[201400,,0] 7430 036273 003 04 0 00 001233 ER3 AC,T 7431 036274 312 05 0 00 043512 CAME AC+1,[ZZ,,0] 7432 036275 004 05 0 00 001233 ER4 AC+1,T 7433 036276 321 10 0 00 036270 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7434 7435 001234 T=T+1 7436 000400 ZZ=XX 7437 001000 XX=XX+XX 7438 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7439 DMOVE AC,[200777,,-1 7440 036277 120 04 0 00 044203 -1,,-1] 7441 DFAD AC,[200000,,0 7442 036300 110 04 0 00 043503 XX,,0] 7443 036301 312 04 0 00 044205 CAME AC,[201400,,0] 7444 036302 003 04 0 00 001234 ER3 AC,T 7445 036303 312 05 0 00 043507 CAME AC+1,[ZZ,,0] 7446 036304 004 05 0 00 001234 ER4 AC+1,T 7447 036305 321 10 0 00 036277 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7448 7449 001235 T=T+1 7450 001000 ZZ=XX 7451 002000 XX=XX+XX 7452 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7453 DMOVE AC,[200777,,-1 7454 036306 120 04 0 00 044203 -1,,-1] 7455 DFAD AC,[200000,,0 7456 036307 110 04 0 00 043500 XX,,0] 7457 036310 312 04 0 00 044205 CAME AC,[201400,,0] 7458 036311 003 04 0 00 001235 ER3 AC,T 7459 036312 312 05 0 00 043504 CAME AC+1,[ZZ,,0] 7460 036313 004 05 0 00 001235 ER4 AC+1,T 7461 036314 321 10 0 00 036306 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7462 7463 001236 T=T+1 7464 002000 ZZ=XX 7465 004000 XX=XX+XX 7466 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7467 DMOVE AC,[200777,,-1 7468 036315 120 04 0 00 044203 -1,,-1] 7469 DFAD AC,[200000,,0 7470 036316 110 04 0 00 043475 XX,,0] 7471 036317 312 04 0 00 044205 CAME AC,[201400,,0] 7472 036320 003 04 0 00 001236 ER3 AC,T 7473 036321 312 05 0 00 043501 CAME AC+1,[ZZ,,0] 7474 036322 004 05 0 00 001236 ER4 AC+1,T 7475 036323 321 10 0 00 036315 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7476 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0160 7477 001237 T=T+1 7478 004000 ZZ=XX 7479 010000 XX=XX+XX 7480 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7481 DMOVE AC,[200777,,-1 7482 036324 120 04 0 00 044203 -1,,-1] 7483 DFAD AC,[200000,,0 7484 036325 110 04 0 00 043472 XX,,0] 7485 036326 312 04 0 00 044205 CAME AC,[201400,,0] 7486 036327 003 04 0 00 001237 ER3 AC,T 7487 036330 312 05 0 00 043476 CAME AC+1,[ZZ,,0] 7488 036331 004 05 0 00 001237 ER4 AC+1,T 7489 036332 321 10 0 00 036324 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7490 7491 001240 T=T+1 7492 010000 ZZ=XX 7493 020000 XX=XX+XX 7494 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7495 DMOVE AC,[200777,,-1 7496 036333 120 04 0 00 044203 -1,,-1] 7497 DFAD AC,[200000,,0 7498 036334 110 04 0 00 043467 XX,,0] 7499 036335 312 04 0 00 044205 CAME AC,[201400,,0] 7500 036336 003 04 0 00 001240 ER3 AC,T 7501 036337 312 05 0 00 043473 CAME AC+1,[ZZ,,0] 7502 036340 004 05 0 00 001240 ER4 AC+1,T 7503 036341 321 10 0 00 036333 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7504 7505 001241 T=T+1 7506 020000 ZZ=XX 7507 040000 XX=XX+XX 7508 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7509 DMOVE AC,[200777,,-1 7510 036342 120 04 0 00 044203 -1,,-1] 7511 DFAD AC,[200000,,0 7512 036343 110 04 0 00 043464 XX,,0] 7513 036344 312 04 0 00 044205 CAME AC,[201400,,0] 7514 036345 003 04 0 00 001241 ER3 AC,T 7515 036346 312 05 0 00 043470 CAME AC+1,[ZZ,,0] 7516 036347 004 05 0 00 001241 ER4 AC+1,T 7517 036350 321 10 0 00 036342 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7518 7519 001242 T=T+1 7520 040000 ZZ=XX 7521 100000 XX=XX+XX 7522 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7523 DMOVE AC,[200777,,-1 7524 036351 120 04 0 00 044203 -1,,-1] 7525 DFAD AC,[200000,,0 7526 036352 110 04 0 00 043461 XX,,0] 7527 036353 312 04 0 00 044205 CAME AC,[201400,,0] 7528 036354 003 04 0 00 001242 ER3 AC,T 7529 036355 312 05 0 00 043465 CAME AC+1,[ZZ,,0] 7530 036356 004 05 0 00 001242 ER4 AC+1,T 7531 036357 321 10 0 00 036351 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0161 7532 7533 001243 T=T+1 7534 100000 ZZ=XX 7535 200000 XX=XX+XX 7536 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^ 7537 DMOVE AC,[200777,,-1 7538 036360 120 04 0 00 044203 -1,,-1] 7539 DFAD AC,[200000,,0 7540 036361 110 04 0 00 043456 XX,,0] 7541 036362 312 04 0 00 044205 CAME AC,[201400,,0] 7542 036363 003 04 0 00 001243 ER3 AC,T 7543 036364 312 05 0 00 043462 CAME AC+1,[ZZ,,0] 7544 036365 004 05 0 00 001243 ER4 AC+1,T 7545 036366 321 10 0 00 036360 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7546 7547 7548 200000 ZZ=XX 7549 400000 XX=XX+XX 7550 7551 001244 T=T+1 7552 DFARP T,200777,-1,-1,-1,200000,0,XX,0,200777,-1,377777,-1^ 7553 DMOVE AC,[200777,,-1 7554 036367 120 04 0 00 044203 -1,,-1] 7555 DFAD AC,[200000,,0 7556 036370 110 04 0 00 043454 XX,,0] 7557 036371 312 04 0 00 044203 CAME AC,[200777,,-1] 7558 036372 003 04 0 00 001244 ER3 AC,T 7559 036373 312 05 0 00 043631 CAME AC+1,[377777,,-1] 7560 036374 004 05 0 00 001244 ER4 AC+1,T 7561 036375 321 10 0 00 036367 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7562 7563 001245 T=T+1 7564 000001 XX=1 7565 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,0,ZZ,0^ 7566 DMOVE AC,[200777,,-1 7567 036376 120 04 0 00 044203 -1,,-1] 7568 DFAD AC,[200000,,XX 7569 036377 110 04 0 00 043451 0,,0] 7570 036400 312 04 0 00 044205 CAME AC,[201400,,0] 7571 036401 003 04 0 00 001245 ER3 AC,T 7572 036402 312 05 0 00 043332 CAME AC+1,[ZZ,,0] 7573 036403 004 05 0 00 001245 ER4 AC+1,T 7574 036404 321 10 0 00 036376 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7575 7576 REPEAT ^D17, 7577 7582 7583 001246 T=T+1 7584 000001 ZZ=XX 7585 000002 XX=XX+XX 7586 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0162 7587 DMOVE AC,[200777,,-1 7588 036405 120 04 0 00 044203 -1,,-1] 7589 DFAD AC,[200000,,XX 7590 036406 110 04 0 00 043446 0,,0] 7591 036407 312 04 0 00 044206 CAME AC,[201400,,ZZ] 7592 036410 003 04 0 00 001246 ER3 AC,T 7593 036411 312 05 0 00 043330 CAME AC+1,[0,,0] 7594 036412 004 05 0 00 001246 ER4 AC+1,T 7595 036413 321 10 0 00 036405 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7596 7597 001247 T=T+1 7598 000002 ZZ=XX 7599 000004 XX=XX+XX 7600 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7601 DMOVE AC,[200777,,-1 7602 036414 120 04 0 00 044203 -1,,-1] 7603 DFAD AC,[200000,,XX 7604 036415 110 04 0 00 043443 0,,0] 7605 036416 312 04 0 00 044207 CAME AC,[201400,,ZZ] 7606 036417 003 04 0 00 001247 ER3 AC,T 7607 036420 312 05 0 00 043330 CAME AC+1,[0,,0] 7608 036421 004 05 0 00 001247 ER4 AC+1,T 7609 036422 321 10 0 00 036414 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7610 7611 001250 T=T+1 7612 000004 ZZ=XX 7613 000010 XX=XX+XX 7614 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7615 DMOVE AC,[200777,,-1 7616 036423 120 04 0 00 044203 -1,,-1] 7617 DFAD AC,[200000,,XX 7618 036424 110 04 0 00 043440 0,,0] 7619 036425 312 04 0 00 044210 CAME AC,[201400,,ZZ] 7620 036426 003 04 0 00 001250 ER3 AC,T 7621 036427 312 05 0 00 043330 CAME AC+1,[0,,0] 7622 036430 004 05 0 00 001250 ER4 AC+1,T 7623 036431 321 10 0 00 036423 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7624 7625 001251 T=T+1 7626 000010 ZZ=XX 7627 000020 XX=XX+XX 7628 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7629 DMOVE AC,[200777,,-1 7630 036432 120 04 0 00 044203 -1,,-1] 7631 DFAD AC,[200000,,XX 7632 036433 110 04 0 00 043435 0,,0] 7633 036434 312 04 0 00 044211 CAME AC,[201400,,ZZ] 7634 036435 003 04 0 00 001251 ER3 AC,T 7635 036436 312 05 0 00 043330 CAME AC+1,[0,,0] 7636 036437 004 05 0 00 001251 ER4 AC+1,T 7637 036440 321 10 0 00 036432 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7638 7639 001252 T=T+1 7640 000020 ZZ=XX 7641 000040 XX=XX+XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0163 7642 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7643 DMOVE AC,[200777,,-1 7644 036441 120 04 0 00 044203 -1,,-1] 7645 DFAD AC,[200000,,XX 7646 036442 110 04 0 00 043432 0,,0] 7647 036443 312 04 0 00 044212 CAME AC,[201400,,ZZ] 7648 036444 003 04 0 00 001252 ER3 AC,T 7649 036445 312 05 0 00 043330 CAME AC+1,[0,,0] 7650 036446 004 05 0 00 001252 ER4 AC+1,T 7651 036447 321 10 0 00 036441 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7652 7653 001253 T=T+1 7654 000040 ZZ=XX 7655 000100 XX=XX+XX 7656 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7657 DMOVE AC,[200777,,-1 7658 036450 120 04 0 00 044203 -1,,-1] 7659 DFAD AC,[200000,,XX 7660 036451 110 04 0 00 043427 0,,0] 7661 036452 312 04 0 00 044213 CAME AC,[201400,,ZZ] 7662 036453 003 04 0 00 001253 ER3 AC,T 7663 036454 312 05 0 00 043330 CAME AC+1,[0,,0] 7664 036455 004 05 0 00 001253 ER4 AC+1,T 7665 036456 321 10 0 00 036450 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7666 7667 001254 T=T+1 7668 000100 ZZ=XX 7669 000200 XX=XX+XX 7670 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7671 DMOVE AC,[200777,,-1 7672 036457 120 04 0 00 044203 -1,,-1] 7673 DFAD AC,[200000,,XX 7674 036460 110 04 0 00 043424 0,,0] 7675 036461 312 04 0 00 044214 CAME AC,[201400,,ZZ] 7676 036462 003 04 0 00 001254 ER3 AC,T 7677 036463 312 05 0 00 043330 CAME AC+1,[0,,0] 7678 036464 004 05 0 00 001254 ER4 AC+1,T 7679 036465 321 10 0 00 036457 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7680 7681 001255 T=T+1 7682 000200 ZZ=XX 7683 000400 XX=XX+XX 7684 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7685 DMOVE AC,[200777,,-1 7686 036466 120 04 0 00 044203 -1,,-1] 7687 DFAD AC,[200000,,XX 7688 036467 110 04 0 00 043421 0,,0] 7689 036470 312 04 0 00 044215 CAME AC,[201400,,ZZ] 7690 036471 003 04 0 00 001255 ER3 AC,T 7691 036472 312 05 0 00 043330 CAME AC+1,[0,,0] 7692 036473 004 05 0 00 001255 ER4 AC+1,T 7693 036474 321 10 0 00 036466 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7694 7695 001256 T=T+1 7696 000400 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0164 7697 001000 XX=XX+XX 7698 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7699 DMOVE AC,[200777,,-1 7700 036475 120 04 0 00 044203 -1,,-1] 7701 DFAD AC,[200000,,XX 7702 036476 110 04 0 00 043416 0,,0] 7703 036477 312 04 0 00 044216 CAME AC,[201400,,ZZ] 7704 036500 003 04 0 00 001256 ER3 AC,T 7705 036501 312 05 0 00 043330 CAME AC+1,[0,,0] 7706 036502 004 05 0 00 001256 ER4 AC+1,T 7707 036503 321 10 0 00 036475 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7708 7709 001257 T=T+1 7710 001000 ZZ=XX 7711 002000 XX=XX+XX 7712 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7713 DMOVE AC,[200777,,-1 7714 036504 120 04 0 00 044203 -1,,-1] 7715 DFAD AC,[200000,,XX 7716 036505 110 04 0 00 043413 0,,0] 7717 036506 312 04 0 00 044217 CAME AC,[201400,,ZZ] 7718 036507 003 04 0 00 001257 ER3 AC,T 7719 036510 312 05 0 00 043330 CAME AC+1,[0,,0] 7720 036511 004 05 0 00 001257 ER4 AC+1,T 7721 036512 321 10 0 00 036504 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7722 7723 001260 T=T+1 7724 002000 ZZ=XX 7725 004000 XX=XX+XX 7726 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7727 DMOVE AC,[200777,,-1 7728 036513 120 04 0 00 044203 -1,,-1] 7729 DFAD AC,[200000,,XX 7730 036514 110 04 0 00 043410 0,,0] 7731 036515 312 04 0 00 044220 CAME AC,[201400,,ZZ] 7732 036516 003 04 0 00 001260 ER3 AC,T 7733 036517 312 05 0 00 043330 CAME AC+1,[0,,0] 7734 036520 004 05 0 00 001260 ER4 AC+1,T 7735 036521 321 10 0 00 036513 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7736 7737 001261 T=T+1 7738 004000 ZZ=XX 7739 010000 XX=XX+XX 7740 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7741 DMOVE AC,[200777,,-1 7742 036522 120 04 0 00 044203 -1,,-1] 7743 DFAD AC,[200000,,XX 7744 036523 110 04 0 00 043405 0,,0] 7745 036524 312 04 0 00 044221 CAME AC,[201400,,ZZ] 7746 036525 003 04 0 00 001261 ER3 AC,T 7747 036526 312 05 0 00 043330 CAME AC+1,[0,,0] 7748 036527 004 05 0 00 001261 ER4 AC+1,T 7749 036530 321 10 0 00 036522 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7750 7751 001262 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0165 7752 010000 ZZ=XX 7753 020000 XX=XX+XX 7754 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7755 DMOVE AC,[200777,,-1 7756 036531 120 04 0 00 044203 -1,,-1] 7757 DFAD AC,[200000,,XX 7758 036532 110 04 0 00 043402 0,,0] 7759 036533 312 04 0 00 044222 CAME AC,[201400,,ZZ] 7760 036534 003 04 0 00 001262 ER3 AC,T 7761 036535 312 05 0 00 043330 CAME AC+1,[0,,0] 7762 036536 004 05 0 00 001262 ER4 AC+1,T 7763 036537 321 10 0 00 036531 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7764 7765 001263 T=T+1 7766 020000 ZZ=XX 7767 040000 XX=XX+XX 7768 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7769 DMOVE AC,[200777,,-1 7770 036540 120 04 0 00 044203 -1,,-1] 7771 DFAD AC,[200000,,XX 7772 036541 110 04 0 00 043377 0,,0] 7773 036542 312 04 0 00 044223 CAME AC,[201400,,ZZ] 7774 036543 003 04 0 00 001263 ER3 AC,T 7775 036544 312 05 0 00 043330 CAME AC+1,[0,,0] 7776 036545 004 05 0 00 001263 ER4 AC+1,T 7777 036546 321 10 0 00 036540 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7778 7779 001264 T=T+1 7780 040000 ZZ=XX 7781 100000 XX=XX+XX 7782 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7783 DMOVE AC,[200777,,-1 7784 036547 120 04 0 00 044203 -1,,-1] 7785 DFAD AC,[200000,,XX 7786 036550 110 04 0 00 043374 0,,0] 7787 036551 312 04 0 00 044224 CAME AC,[201400,,ZZ] 7788 036552 003 04 0 00 001264 ER3 AC,T 7789 036553 312 05 0 00 043330 CAME AC+1,[0,,0] 7790 036554 004 05 0 00 001264 ER4 AC+1,T 7791 036555 321 10 0 00 036547 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7792 7793 001265 T=T+1 7794 100000 ZZ=XX 7795 200000 XX=XX+XX 7796 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7797 DMOVE AC,[200777,,-1 7798 036556 120 04 0 00 044203 -1,,-1] 7799 DFAD AC,[200000,,XX 7800 036557 110 04 0 00 043371 0,,0] 7801 036560 312 04 0 00 044225 CAME AC,[201400,,ZZ] 7802 036561 003 04 0 00 001265 ER3 AC,T 7803 036562 312 05 0 00 043330 CAME AC+1,[0,,0] 7804 036563 004 05 0 00 001265 ER4 AC+1,T 7805 036564 321 10 0 00 036556 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7806 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0166 7807 001266 T=T+1 7808 200000 ZZ=XX 7809 400000 XX=XX+XX 7810 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^ 7811 DMOVE AC,[200777,,-1 7812 036565 120 04 0 00 044203 -1,,-1] 7813 DFAD AC,[200000,,XX 7814 036566 110 04 0 00 043366 0,,0] 7815 036567 312 04 0 00 044226 CAME AC,[201400,,ZZ] 7816 036570 003 04 0 00 001266 ER3 AC,T 7817 036571 312 05 0 00 043330 CAME AC+1,[0,,0] 7818 036572 004 05 0 00 001266 ER4 AC+1,T 7819 036573 321 10 0 00 036565 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7820 7821 7822 7823 001267 T=T+1 7824 400000 ZZ=XX 7825 000001 XX=1 7826 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400,ZZ,0,0^ 7827 DMOVE AC,[200777,,-1 7828 036574 120 04 0 00 044203 -1,,-1] 7829 DFAD AC,[200000+XX,,0 7830 036575 110 04 0 00 043363 0,,0] 7831 036576 312 04 0 00 044227 CAME AC,[201400,,ZZ] 7832 036577 003 04 0 00 001267 ER3 AC,T 7833 036600 312 05 0 00 043330 CAME AC+1,[0,,0] 7834 036601 004 05 0 00 001267 ER4 AC+1,T 7835 036602 321 10 0 00 036574 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7836 7837 REPEAT ^D8, 7838 7843 001270 T=T+1 7844 000001 ZZ=XX 7845 000002 XX=XX+XX 7846 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7847 DMOVE AC,[200777,,-1 7848 036603 120 04 0 00 044203 -1,,-1] 7849 DFAD AC,[200000+XX,,0 7850 036604 110 04 0 00 043360 0,,0] 7851 036605 312 04 0 00 044230 CAME AC,[201400+ZZ,,0] 7852 036606 003 04 0 00 001270 ER3 AC,T 7853 036607 312 05 0 00 043330 CAME AC+1,[0,,0] 7854 036610 004 05 0 00 001270 ER4 AC+1,T 7855 036611 321 10 0 00 036603 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7856 7857 001271 T=T+1 7858 000002 ZZ=XX 7859 000004 XX=XX+XX 7860 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7861 DMOVE AC,[200777,,-1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-18 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0167 7862 036612 120 04 0 00 044203 -1,,-1] 7863 DFAD AC,[200000+XX,,0 7864 036613 110 04 0 00 043355 0,,0] 7865 036614 312 04 0 00 044231 CAME AC,[201400+ZZ,,0] 7866 036615 003 04 0 00 001271 ER3 AC,T 7867 036616 312 05 0 00 043330 CAME AC+1,[0,,0] 7868 036617 004 05 0 00 001271 ER4 AC+1,T 7869 036620 321 10 0 00 036612 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7870 7871 001272 T=T+1 7872 000004 ZZ=XX 7873 000010 XX=XX+XX 7874 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7875 DMOVE AC,[200777,,-1 7876 036621 120 04 0 00 044203 -1,,-1] 7877 DFAD AC,[200000+XX,,0 7878 036622 110 04 0 00 043352 0,,0] 7879 036623 312 04 0 00 044232 CAME AC,[201400+ZZ,,0] 7880 036624 003 04 0 00 001272 ER3 AC,T 7881 036625 312 05 0 00 043330 CAME AC+1,[0,,0] 7882 036626 004 05 0 00 001272 ER4 AC+1,T 7883 036627 321 10 0 00 036621 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7884 7885 001273 T=T+1 7886 000010 ZZ=XX 7887 000020 XX=XX+XX 7888 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7889 DMOVE AC,[200777,,-1 7890 036630 120 04 0 00 044203 -1,,-1] 7891 DFAD AC,[200000+XX,,0 7892 036631 110 04 0 00 043347 0,,0] 7893 036632 312 04 0 00 044233 CAME AC,[201400+ZZ,,0] 7894 036633 003 04 0 00 001273 ER3 AC,T 7895 036634 312 05 0 00 043330 CAME AC+1,[0,,0] 7896 036635 004 05 0 00 001273 ER4 AC+1,T 7897 036636 321 10 0 00 036630 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7898 7899 001274 T=T+1 7900 000020 ZZ=XX 7901 000040 XX=XX+XX 7902 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7903 DMOVE AC,[200777,,-1 7904 036637 120 04 0 00 044203 -1,,-1] 7905 DFAD AC,[200000+XX,,0 7906 036640 110 04 0 00 043344 0,,0] 7907 036641 312 04 0 00 044234 CAME AC,[201400+ZZ,,0] 7908 036642 003 04 0 00 001274 ER3 AC,T 7909 036643 312 05 0 00 043330 CAME AC+1,[0,,0] 7910 036644 004 05 0 00 001274 ER4 AC+1,T 7911 036645 321 10 0 00 036637 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7912 7913 001275 T=T+1 7914 000040 ZZ=XX 7915 000100 XX=XX+XX 7916 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-19 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0168 7917 DMOVE AC,[200777,,-1 7918 036646 120 04 0 00 044203 -1,,-1] 7919 DFAD AC,[200000+XX,,0 7920 036647 110 04 0 00 043341 0,,0] 7921 036650 312 04 0 00 044235 CAME AC,[201400+ZZ,,0] 7922 036651 003 04 0 00 001275 ER3 AC,T 7923 036652 312 05 0 00 043330 CAME AC+1,[0,,0] 7924 036653 004 05 0 00 001275 ER4 AC+1,T 7925 036654 321 10 0 00 036646 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7926 7927 001276 T=T+1 7928 000100 ZZ=XX 7929 000200 XX=XX+XX 7930 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7931 DMOVE AC,[200777,,-1 7932 036655 120 04 0 00 044203 -1,,-1] 7933 DFAD AC,[200000+XX,,0 7934 036656 110 04 0 00 043336 0,,0] 7935 036657 312 04 0 00 044236 CAME AC,[201400+ZZ,,0] 7936 036660 003 04 0 00 001276 ER3 AC,T 7937 036661 312 05 0 00 043330 CAME AC+1,[0,,0] 7938 036662 004 05 0 00 001276 ER4 AC+1,T 7939 036663 321 10 0 00 036655 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7940 7941 001277 T=T+1 7942 000200 ZZ=XX 7943 000400 XX=XX+XX 7944 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^ 7945 DMOVE AC,[200777,,-1 7946 036664 120 04 0 00 044203 -1,,-1] 7947 DFAD AC,[200000+XX,,0 7948 036665 110 04 0 00 043334 0,,0] 7949 036666 312 04 0 00 044237 CAME AC,[201400+ZZ,,0] 7950 036667 003 04 0 00 001277 ER3 AC,T 7951 036670 312 05 0 00 043330 CAME AC+1,[0,,0] 7952 036671 004 05 0 00 001277 ER4 AC+1,T 7953 036672 321 10 0 00 036664 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7954 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0169 7955 ;RIPPLE ONES (TO A RIPPLED ONE, ADD A FRACTION OF ALL ONES) 7956 7957 001300 T=1300 7958 7959 000000 XX=0 7960 7961 R1300: REPEAT ^D18, 7962 7966 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ 7967 > 7968 001301 T=T+1 7969 000000 ZZ=XX 7970 000000 XX=XX+XX 7971 000001 IFE XX, 7972 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 7973 DMOVE AC,[200000,,0 7974 036673 120 04 0 00 043624 0,,XX] 7975 DFAD AC,[200777,,-1 7976 036674 110 04 0 00 044203 -1,,-1] 7977 036675 312 04 0 00 044205 CAME AC,[201400,,0] 7978 036676 003 04 0 00 001301 ER3 AC,T 7979 036677 312 05 0 00 043330 CAME AC+1,[0,,ZZ] 7980 036700 004 05 0 00 001301 ER4 AC+1,T 7981 036701 321 10 0 00 036673 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7982 7983 001302 T=T+1 7984 000001 ZZ=XX 7985 000002 XX=XX+XX 7986 IFE XX, 7987 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 7988 DMOVE AC,[200000,,0 7989 036702 120 04 0 00 043621 0,,XX] 7990 DFAD AC,[200777,,-1 7991 036703 110 04 0 00 044203 -1,,-1] 7992 036704 312 04 0 00 044205 CAME AC,[201400,,0] 7993 036705 003 04 0 00 001302 ER3 AC,T 7994 036706 312 05 0 00 043625 CAME AC+1,[0,,ZZ] 7995 036707 004 05 0 00 001302 ER4 AC+1,T 7996 036710 321 10 0 00 036702 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 7997 7998 001303 T=T+1 7999 000002 ZZ=XX 8000 000004 XX=XX+XX 8001 IFE XX, 8002 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8003 DMOVE AC,[200000,,0 8004 036711 120 04 0 00 043616 0,,XX] 8005 DFAD AC,[200777,,-1 8006 036712 110 04 0 00 044203 -1,,-1] 8007 036713 312 04 0 00 044205 CAME AC,[201400,,0] 8008 036714 003 04 0 00 001303 ER3 AC,T 8009 036715 312 05 0 00 043622 CAME AC+1,[0,,ZZ] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0170 8010 036716 004 05 0 00 001303 ER4 AC+1,T 8011 036717 321 10 0 00 036711 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8012 8013 001304 T=T+1 8014 000004 ZZ=XX 8015 000010 XX=XX+XX 8016 IFE XX, 8017 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8018 DMOVE AC,[200000,,0 8019 036720 120 04 0 00 043613 0,,XX] 8020 DFAD AC,[200777,,-1 8021 036721 110 04 0 00 044203 -1,,-1] 8022 036722 312 04 0 00 044205 CAME AC,[201400,,0] 8023 036723 003 04 0 00 001304 ER3 AC,T 8024 036724 312 05 0 00 043617 CAME AC+1,[0,,ZZ] 8025 036725 004 05 0 00 001304 ER4 AC+1,T 8026 036726 321 10 0 00 036720 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8027 8028 001305 T=T+1 8029 000010 ZZ=XX 8030 000020 XX=XX+XX 8031 IFE XX, 8032 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8033 DMOVE AC,[200000,,0 8034 036727 120 04 0 00 043610 0,,XX] 8035 DFAD AC,[200777,,-1 8036 036730 110 04 0 00 044203 -1,,-1] 8037 036731 312 04 0 00 044205 CAME AC,[201400,,0] 8038 036732 003 04 0 00 001305 ER3 AC,T 8039 036733 312 05 0 00 043614 CAME AC+1,[0,,ZZ] 8040 036734 004 05 0 00 001305 ER4 AC+1,T 8041 036735 321 10 0 00 036727 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8042 8043 001306 T=T+1 8044 000020 ZZ=XX 8045 000040 XX=XX+XX 8046 IFE XX, 8047 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8048 DMOVE AC,[200000,,0 8049 036736 120 04 0 00 043605 0,,XX] 8050 DFAD AC,[200777,,-1 8051 036737 110 04 0 00 044203 -1,,-1] 8052 036740 312 04 0 00 044205 CAME AC,[201400,,0] 8053 036741 003 04 0 00 001306 ER3 AC,T 8054 036742 312 05 0 00 043611 CAME AC+1,[0,,ZZ] 8055 036743 004 05 0 00 001306 ER4 AC+1,T 8056 036744 321 10 0 00 036736 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8057 8058 001307 T=T+1 8059 000040 ZZ=XX 8060 000100 XX=XX+XX 8061 IFE XX, 8062 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8063 DMOVE AC,[200000,,0 8064 036745 120 04 0 00 043602 0,,XX] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0171 8065 DFAD AC,[200777,,-1 8066 036746 110 04 0 00 044203 -1,,-1] 8067 036747 312 04 0 00 044205 CAME AC,[201400,,0] 8068 036750 003 04 0 00 001307 ER3 AC,T 8069 036751 312 05 0 00 043606 CAME AC+1,[0,,ZZ] 8070 036752 004 05 0 00 001307 ER4 AC+1,T 8071 036753 321 10 0 00 036745 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8072 8073 001310 T=T+1 8074 000100 ZZ=XX 8075 000200 XX=XX+XX 8076 IFE XX, 8077 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8078 DMOVE AC,[200000,,0 8079 036754 120 04 0 00 043577 0,,XX] 8080 DFAD AC,[200777,,-1 8081 036755 110 04 0 00 044203 -1,,-1] 8082 036756 312 04 0 00 044205 CAME AC,[201400,,0] 8083 036757 003 04 0 00 001310 ER3 AC,T 8084 036760 312 05 0 00 043603 CAME AC+1,[0,,ZZ] 8085 036761 004 05 0 00 001310 ER4 AC+1,T 8086 036762 321 10 0 00 036754 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8087 8088 001311 T=T+1 8089 000200 ZZ=XX 8090 000400 XX=XX+XX 8091 IFE XX, 8092 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8093 DMOVE AC,[200000,,0 8094 036763 120 04 0 00 043574 0,,XX] 8095 DFAD AC,[200777,,-1 8096 036764 110 04 0 00 044203 -1,,-1] 8097 036765 312 04 0 00 044205 CAME AC,[201400,,0] 8098 036766 003 04 0 00 001311 ER3 AC,T 8099 036767 312 05 0 00 043600 CAME AC+1,[0,,ZZ] 8100 036770 004 05 0 00 001311 ER4 AC+1,T 8101 036771 321 10 0 00 036763 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8102 8103 001312 T=T+1 8104 000400 ZZ=XX 8105 001000 XX=XX+XX 8106 IFE XX, 8107 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8108 DMOVE AC,[200000,,0 8109 036772 120 04 0 00 043571 0,,XX] 8110 DFAD AC,[200777,,-1 8111 036773 110 04 0 00 044203 -1,,-1] 8112 036774 312 04 0 00 044205 CAME AC,[201400,,0] 8113 036775 003 04 0 00 001312 ER3 AC,T 8114 036776 312 05 0 00 043575 CAME AC+1,[0,,ZZ] 8115 036777 004 05 0 00 001312 ER4 AC+1,T 8116 037000 321 10 0 00 036772 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8117 8118 001313 T=T+1 8119 001000 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0172 8120 002000 XX=XX+XX 8121 IFE XX, 8122 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8123 DMOVE AC,[200000,,0 8124 037001 120 04 0 00 043566 0,,XX] 8125 DFAD AC,[200777,,-1 8126 037002 110 04 0 00 044203 -1,,-1] 8127 037003 312 04 0 00 044205 CAME AC,[201400,,0] 8128 037004 003 04 0 00 001313 ER3 AC,T 8129 037005 312 05 0 00 043572 CAME AC+1,[0,,ZZ] 8130 037006 004 05 0 00 001313 ER4 AC+1,T 8131 037007 321 10 0 00 037001 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8132 8133 001314 T=T+1 8134 002000 ZZ=XX 8135 004000 XX=XX+XX 8136 IFE XX, 8137 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8138 DMOVE AC,[200000,,0 8139 037010 120 04 0 00 043563 0,,XX] 8140 DFAD AC,[200777,,-1 8141 037011 110 04 0 00 044203 -1,,-1] 8142 037012 312 04 0 00 044205 CAME AC,[201400,,0] 8143 037013 003 04 0 00 001314 ER3 AC,T 8144 037014 312 05 0 00 043567 CAME AC+1,[0,,ZZ] 8145 037015 004 05 0 00 001314 ER4 AC+1,T 8146 037016 321 10 0 00 037010 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8147 8148 001315 T=T+1 8149 004000 ZZ=XX 8150 010000 XX=XX+XX 8151 IFE XX, 8152 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8153 DMOVE AC,[200000,,0 8154 037017 120 04 0 00 043560 0,,XX] 8155 DFAD AC,[200777,,-1 8156 037020 110 04 0 00 044203 -1,,-1] 8157 037021 312 04 0 00 044205 CAME AC,[201400,,0] 8158 037022 003 04 0 00 001315 ER3 AC,T 8159 037023 312 05 0 00 043564 CAME AC+1,[0,,ZZ] 8160 037024 004 05 0 00 001315 ER4 AC+1,T 8161 037025 321 10 0 00 037017 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8162 8163 001316 T=T+1 8164 010000 ZZ=XX 8165 020000 XX=XX+XX 8166 IFE XX, 8167 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8168 DMOVE AC,[200000,,0 8169 037026 120 04 0 00 043555 0,,XX] 8170 DFAD AC,[200777,,-1 8171 037027 110 04 0 00 044203 -1,,-1] 8172 037030 312 04 0 00 044205 CAME AC,[201400,,0] 8173 037031 003 04 0 00 001316 ER3 AC,T 8174 037032 312 05 0 00 043561 CAME AC+1,[0,,ZZ] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0173 8175 037033 004 05 0 00 001316 ER4 AC+1,T 8176 037034 321 10 0 00 037026 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8177 8178 001317 T=T+1 8179 020000 ZZ=XX 8180 040000 XX=XX+XX 8181 IFE XX, 8182 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8183 DMOVE AC,[200000,,0 8184 037035 120 04 0 00 043552 0,,XX] 8185 DFAD AC,[200777,,-1 8186 037036 110 04 0 00 044203 -1,,-1] 8187 037037 312 04 0 00 044205 CAME AC,[201400,,0] 8188 037040 003 04 0 00 001317 ER3 AC,T 8189 037041 312 05 0 00 043556 CAME AC+1,[0,,ZZ] 8190 037042 004 05 0 00 001317 ER4 AC+1,T 8191 037043 321 10 0 00 037035 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8192 8193 001320 T=T+1 8194 040000 ZZ=XX 8195 100000 XX=XX+XX 8196 IFE XX, 8197 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8198 DMOVE AC,[200000,,0 8199 037044 120 04 0 00 043547 0,,XX] 8200 DFAD AC,[200777,,-1 8201 037045 110 04 0 00 044203 -1,,-1] 8202 037046 312 04 0 00 044205 CAME AC,[201400,,0] 8203 037047 003 04 0 00 001320 ER3 AC,T 8204 037050 312 05 0 00 043553 CAME AC+1,[0,,ZZ] 8205 037051 004 05 0 00 001320 ER4 AC+1,T 8206 037052 321 10 0 00 037044 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8207 8208 001321 T=T+1 8209 100000 ZZ=XX 8210 200000 XX=XX+XX 8211 IFE XX, 8212 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8213 DMOVE AC,[200000,,0 8214 037053 120 04 0 00 043544 0,,XX] 8215 DFAD AC,[200777,,-1 8216 037054 110 04 0 00 044203 -1,,-1] 8217 037055 312 04 0 00 044205 CAME AC,[201400,,0] 8218 037056 003 04 0 00 001321 ER3 AC,T 8219 037057 312 05 0 00 043550 CAME AC+1,[0,,ZZ] 8220 037060 004 05 0 00 001321 ER4 AC+1,T 8221 037061 321 10 0 00 037053 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8222 8223 001322 T=T+1 8224 200000 ZZ=XX 8225 400000 XX=XX+XX 8226 IFE XX, 8227 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^ 8228 DMOVE AC,[200000,,0 8229 037062 120 04 0 00 043541 0,,XX] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0174 8230 DFAD AC,[200777,,-1 8231 037063 110 04 0 00 044203 -1,,-1] 8232 037064 312 04 0 00 044205 CAME AC,[201400,,0] 8233 037065 003 04 0 00 001322 ER3 AC,T 8234 037066 312 05 0 00 043545 CAME AC+1,[0,,ZZ] 8235 037067 004 05 0 00 001322 ER4 AC+1,T 8236 037070 321 10 0 00 037062 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8237 8238 8239 400000 ZZ=XX 8240 000001 XX=1 8241 8242 001323 T=T+1 8243 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,0,ZZ^ 8244 DMOVE AC,[200000,,0 8245 037071 120 04 0 00 043536 XX,,0] 8246 DFAD AC,[200777,,-1 8247 037072 110 04 0 00 044203 -1,,-1] 8248 037073 312 04 0 00 044205 CAME AC,[201400,,0] 8249 037074 003 04 0 00 001323 ER3 AC,T 8250 037075 312 05 0 00 043542 CAME AC+1,[0,,ZZ] 8251 037076 004 05 0 00 001323 ER4 AC+1,T 8252 037077 321 10 0 00 037071 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8253 8254 8255 REPEAT ^D16, 8256 8261 001324 T=T+1 8262 000001 ZZ=XX 8263 000002 XX=XX+XX 8264 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8265 DMOVE AC,[200000,,0 8266 037100 120 04 0 00 043533 XX,,0] 8267 DFAD AC,[200777,,-1 8268 037101 110 04 0 00 044203 -1,,-1] 8269 037102 312 04 0 00 044205 CAME AC,[201400,,0] 8270 037103 003 04 0 00 001324 ER3 AC,T 8271 037104 312 05 0 00 043537 CAME AC+1,[ZZ,,0] 8272 037105 004 05 0 00 001324 ER4 AC+1,T 8273 037106 321 10 0 00 037100 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8274 8275 001325 T=T+1 8276 000002 ZZ=XX 8277 000004 XX=XX+XX 8278 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8279 DMOVE AC,[200000,,0 8280 037107 120 04 0 00 043530 XX,,0] 8281 DFAD AC,[200777,,-1 8282 037110 110 04 0 00 044203 -1,,-1] 8283 037111 312 04 0 00 044205 CAME AC,[201400,,0] 8284 037112 003 04 0 00 001325 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0175 8285 037113 312 05 0 00 043534 CAME AC+1,[ZZ,,0] 8286 037114 004 05 0 00 001325 ER4 AC+1,T 8287 037115 321 10 0 00 037107 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8288 8289 001326 T=T+1 8290 000004 ZZ=XX 8291 000010 XX=XX+XX 8292 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8293 DMOVE AC,[200000,,0 8294 037116 120 04 0 00 043525 XX,,0] 8295 DFAD AC,[200777,,-1 8296 037117 110 04 0 00 044203 -1,,-1] 8297 037120 312 04 0 00 044205 CAME AC,[201400,,0] 8298 037121 003 04 0 00 001326 ER3 AC,T 8299 037122 312 05 0 00 043531 CAME AC+1,[ZZ,,0] 8300 037123 004 05 0 00 001326 ER4 AC+1,T 8301 037124 321 10 0 00 037116 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8302 8303 001327 T=T+1 8304 000010 ZZ=XX 8305 000020 XX=XX+XX 8306 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8307 DMOVE AC,[200000,,0 8308 037125 120 04 0 00 043522 XX,,0] 8309 DFAD AC,[200777,,-1 8310 037126 110 04 0 00 044203 -1,,-1] 8311 037127 312 04 0 00 044205 CAME AC,[201400,,0] 8312 037130 003 04 0 00 001327 ER3 AC,T 8313 037131 312 05 0 00 043526 CAME AC+1,[ZZ,,0] 8314 037132 004 05 0 00 001327 ER4 AC+1,T 8315 037133 321 10 0 00 037125 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8316 8317 001330 T=T+1 8318 000020 ZZ=XX 8319 000040 XX=XX+XX 8320 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8321 DMOVE AC,[200000,,0 8322 037134 120 04 0 00 043517 XX,,0] 8323 DFAD AC,[200777,,-1 8324 037135 110 04 0 00 044203 -1,,-1] 8325 037136 312 04 0 00 044205 CAME AC,[201400,,0] 8326 037137 003 04 0 00 001330 ER3 AC,T 8327 037140 312 05 0 00 043523 CAME AC+1,[ZZ,,0] 8328 037141 004 05 0 00 001330 ER4 AC+1,T 8329 037142 321 10 0 00 037134 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8330 8331 001331 T=T+1 8332 000040 ZZ=XX 8333 000100 XX=XX+XX 8334 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8335 DMOVE AC,[200000,,0 8336 037143 120 04 0 00 043514 XX,,0] 8337 DFAD AC,[200777,,-1 8338 037144 110 04 0 00 044203 -1,,-1] 8339 037145 312 04 0 00 044205 CAME AC,[201400,,0] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0176 8340 037146 003 04 0 00 001331 ER3 AC,T 8341 037147 312 05 0 00 043520 CAME AC+1,[ZZ,,0] 8342 037150 004 05 0 00 001331 ER4 AC+1,T 8343 037151 321 10 0 00 037143 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8344 8345 001332 T=T+1 8346 000100 ZZ=XX 8347 000200 XX=XX+XX 8348 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8349 DMOVE AC,[200000,,0 8350 037152 120 04 0 00 043511 XX,,0] 8351 DFAD AC,[200777,,-1 8352 037153 110 04 0 00 044203 -1,,-1] 8353 037154 312 04 0 00 044205 CAME AC,[201400,,0] 8354 037155 003 04 0 00 001332 ER3 AC,T 8355 037156 312 05 0 00 043515 CAME AC+1,[ZZ,,0] 8356 037157 004 05 0 00 001332 ER4 AC+1,T 8357 037160 321 10 0 00 037152 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8358 8359 001333 T=T+1 8360 000200 ZZ=XX 8361 000400 XX=XX+XX 8362 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8363 DMOVE AC,[200000,,0 8364 037161 120 04 0 00 043506 XX,,0] 8365 DFAD AC,[200777,,-1 8366 037162 110 04 0 00 044203 -1,,-1] 8367 037163 312 04 0 00 044205 CAME AC,[201400,,0] 8368 037164 003 04 0 00 001333 ER3 AC,T 8369 037165 312 05 0 00 043512 CAME AC+1,[ZZ,,0] 8370 037166 004 05 0 00 001333 ER4 AC+1,T 8371 037167 321 10 0 00 037161 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8372 8373 001334 T=T+1 8374 000400 ZZ=XX 8375 001000 XX=XX+XX 8376 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8377 DMOVE AC,[200000,,0 8378 037170 120 04 0 00 043503 XX,,0] 8379 DFAD AC,[200777,,-1 8380 037171 110 04 0 00 044203 -1,,-1] 8381 037172 312 04 0 00 044205 CAME AC,[201400,,0] 8382 037173 003 04 0 00 001334 ER3 AC,T 8383 037174 312 05 0 00 043507 CAME AC+1,[ZZ,,0] 8384 037175 004 05 0 00 001334 ER4 AC+1,T 8385 037176 321 10 0 00 037170 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8386 8387 001335 T=T+1 8388 001000 ZZ=XX 8389 002000 XX=XX+XX 8390 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8391 DMOVE AC,[200000,,0 8392 037177 120 04 0 00 043500 XX,,0] 8393 DFAD AC,[200777,,-1 8394 037200 110 04 0 00 044203 -1,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0177 8395 037201 312 04 0 00 044205 CAME AC,[201400,,0] 8396 037202 003 04 0 00 001335 ER3 AC,T 8397 037203 312 05 0 00 043504 CAME AC+1,[ZZ,,0] 8398 037204 004 05 0 00 001335 ER4 AC+1,T 8399 037205 321 10 0 00 037177 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8400 8401 001336 T=T+1 8402 002000 ZZ=XX 8403 004000 XX=XX+XX 8404 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8405 DMOVE AC,[200000,,0 8406 037206 120 04 0 00 043475 XX,,0] 8407 DFAD AC,[200777,,-1 8408 037207 110 04 0 00 044203 -1,,-1] 8409 037210 312 04 0 00 044205 CAME AC,[201400,,0] 8410 037211 003 04 0 00 001336 ER3 AC,T 8411 037212 312 05 0 00 043501 CAME AC+1,[ZZ,,0] 8412 037213 004 05 0 00 001336 ER4 AC+1,T 8413 037214 321 10 0 00 037206 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8414 8415 001337 T=T+1 8416 004000 ZZ=XX 8417 010000 XX=XX+XX 8418 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8419 DMOVE AC,[200000,,0 8420 037215 120 04 0 00 043472 XX,,0] 8421 DFAD AC,[200777,,-1 8422 037216 110 04 0 00 044203 -1,,-1] 8423 037217 312 04 0 00 044205 CAME AC,[201400,,0] 8424 037220 003 04 0 00 001337 ER3 AC,T 8425 037221 312 05 0 00 043476 CAME AC+1,[ZZ,,0] 8426 037222 004 05 0 00 001337 ER4 AC+1,T 8427 037223 321 10 0 00 037215 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8428 8429 001340 T=T+1 8430 010000 ZZ=XX 8431 020000 XX=XX+XX 8432 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8433 DMOVE AC,[200000,,0 8434 037224 120 04 0 00 043467 XX,,0] 8435 DFAD AC,[200777,,-1 8436 037225 110 04 0 00 044203 -1,,-1] 8437 037226 312 04 0 00 044205 CAME AC,[201400,,0] 8438 037227 003 04 0 00 001340 ER3 AC,T 8439 037230 312 05 0 00 043473 CAME AC+1,[ZZ,,0] 8440 037231 004 05 0 00 001340 ER4 AC+1,T 8441 037232 321 10 0 00 037224 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8442 8443 001341 T=T+1 8444 020000 ZZ=XX 8445 040000 XX=XX+XX 8446 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8447 DMOVE AC,[200000,,0 8448 037233 120 04 0 00 043464 XX,,0] 8449 DFAD AC,[200777,,-1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0178 8450 037234 110 04 0 00 044203 -1,,-1] 8451 037235 312 04 0 00 044205 CAME AC,[201400,,0] 8452 037236 003 04 0 00 001341 ER3 AC,T 8453 037237 312 05 0 00 043470 CAME AC+1,[ZZ,,0] 8454 037240 004 05 0 00 001341 ER4 AC+1,T 8455 037241 321 10 0 00 037233 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8456 8457 001342 T=T+1 8458 040000 ZZ=XX 8459 100000 XX=XX+XX 8460 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8461 DMOVE AC,[200000,,0 8462 037242 120 04 0 00 043461 XX,,0] 8463 DFAD AC,[200777,,-1 8464 037243 110 04 0 00 044203 -1,,-1] 8465 037244 312 04 0 00 044205 CAME AC,[201400,,0] 8466 037245 003 04 0 00 001342 ER3 AC,T 8467 037246 312 05 0 00 043465 CAME AC+1,[ZZ,,0] 8468 037247 004 05 0 00 001342 ER4 AC+1,T 8469 037250 321 10 0 00 037242 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8470 8471 001343 T=T+1 8472 100000 ZZ=XX 8473 200000 XX=XX+XX 8474 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^ 8475 DMOVE AC,[200000,,0 8476 037251 120 04 0 00 043456 XX,,0] 8477 DFAD AC,[200777,,-1 8478 037252 110 04 0 00 044203 -1,,-1] 8479 037253 312 04 0 00 044205 CAME AC,[201400,,0] 8480 037254 003 04 0 00 001343 ER3 AC,T 8481 037255 312 05 0 00 043462 CAME AC+1,[ZZ,,0] 8482 037256 004 05 0 00 001343 ER4 AC+1,T 8483 037257 321 10 0 00 037251 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8484 8485 8486 8487 200000 ZZ=XX 8488 400000 XX=XX+XX 8489 001344 T=T+1 8490 DFARP T,200000,0,XX,0,200777,-1,-1,-1,200777,-1,377777,-1^ 8491 DMOVE AC,[200000,,0 8492 037260 120 04 0 00 043454 XX,,0] 8493 DFAD AC,[200777,,-1 8494 037261 110 04 0 00 044203 -1,,-1] 8495 037262 312 04 0 00 044203 CAME AC,[200777,,-1] 8496 037263 003 04 0 00 001344 ER3 AC,T 8497 037264 312 05 0 00 043631 CAME AC+1,[377777,,-1] 8498 037265 004 05 0 00 001344 ER4 AC+1,T 8499 037266 321 10 0 00 037260 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8500 8501 8502 000001 XX=1 8503 001345 T=T+1 8504 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,0,ZZ,0^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0179 8505 DMOVE AC,[200000,,XX 8506 037267 120 04 0 00 043451 0,,0] 8507 DFAD AC,[200777,,-1 8508 037270 110 04 0 00 044203 -1,,-1] 8509 037271 312 04 0 00 044205 CAME AC,[201400,,0] 8510 037272 003 04 0 00 001345 ER3 AC,T 8511 037273 312 05 0 00 043332 CAME AC+1,[ZZ,,0] 8512 037274 004 05 0 00 001345 ER4 AC+1,T 8513 037275 321 10 0 00 037267 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8514 REPEAT ^D17, 8515 8520 001346 T=T+1 8521 000001 ZZ=XX 8522 000002 XX=XX+XX 8523 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8524 DMOVE AC,[200000,,XX 8525 037276 120 04 0 00 043446 0,,0] 8526 DFAD AC,[200777,,-1 8527 037277 110 04 0 00 044203 -1,,-1] 8528 037300 312 04 0 00 044206 CAME AC,[201400,,ZZ] 8529 037301 003 04 0 00 001346 ER3 AC,T 8530 037302 312 05 0 00 043330 CAME AC+1,[0,,0] 8531 037303 004 05 0 00 001346 ER4 AC+1,T 8532 037304 321 10 0 00 037276 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8533 8534 001347 T=T+1 8535 000002 ZZ=XX 8536 000004 XX=XX+XX 8537 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8538 DMOVE AC,[200000,,XX 8539 037305 120 04 0 00 043443 0,,0] 8540 DFAD AC,[200777,,-1 8541 037306 110 04 0 00 044203 -1,,-1] 8542 037307 312 04 0 00 044207 CAME AC,[201400,,ZZ] 8543 037310 003 04 0 00 001347 ER3 AC,T 8544 037311 312 05 0 00 043330 CAME AC+1,[0,,0] 8545 037312 004 05 0 00 001347 ER4 AC+1,T 8546 037313 321 10 0 00 037305 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8547 8548 001350 T=T+1 8549 000004 ZZ=XX 8550 000010 XX=XX+XX 8551 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8552 DMOVE AC,[200000,,XX 8553 037314 120 04 0 00 043440 0,,0] 8554 DFAD AC,[200777,,-1 8555 037315 110 04 0 00 044203 -1,,-1] 8556 037316 312 04 0 00 044210 CAME AC,[201400,,ZZ] 8557 037317 003 04 0 00 001350 ER3 AC,T 8558 037320 312 05 0 00 043330 CAME AC+1,[0,,0] 8559 037321 004 05 0 00 001350 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0180 8560 037322 321 10 0 00 037314 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8561 8562 001351 T=T+1 8563 000010 ZZ=XX 8564 000020 XX=XX+XX 8565 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8566 DMOVE AC,[200000,,XX 8567 037323 120 04 0 00 043435 0,,0] 8568 DFAD AC,[200777,,-1 8569 037324 110 04 0 00 044203 -1,,-1] 8570 037325 312 04 0 00 044211 CAME AC,[201400,,ZZ] 8571 037326 003 04 0 00 001351 ER3 AC,T 8572 037327 312 05 0 00 043330 CAME AC+1,[0,,0] 8573 037330 004 05 0 00 001351 ER4 AC+1,T 8574 037331 321 10 0 00 037323 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8575 8576 001352 T=T+1 8577 000020 ZZ=XX 8578 000040 XX=XX+XX 8579 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8580 DMOVE AC,[200000,,XX 8581 037332 120 04 0 00 043432 0,,0] 8582 DFAD AC,[200777,,-1 8583 037333 110 04 0 00 044203 -1,,-1] 8584 037334 312 04 0 00 044212 CAME AC,[201400,,ZZ] 8585 037335 003 04 0 00 001352 ER3 AC,T 8586 037336 312 05 0 00 043330 CAME AC+1,[0,,0] 8587 037337 004 05 0 00 001352 ER4 AC+1,T 8588 037340 321 10 0 00 037332 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8589 8590 001353 T=T+1 8591 000040 ZZ=XX 8592 000100 XX=XX+XX 8593 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8594 DMOVE AC,[200000,,XX 8595 037341 120 04 0 00 043427 0,,0] 8596 DFAD AC,[200777,,-1 8597 037342 110 04 0 00 044203 -1,,-1] 8598 037343 312 04 0 00 044213 CAME AC,[201400,,ZZ] 8599 037344 003 04 0 00 001353 ER3 AC,T 8600 037345 312 05 0 00 043330 CAME AC+1,[0,,0] 8601 037346 004 05 0 00 001353 ER4 AC+1,T 8602 037347 321 10 0 00 037341 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8603 8604 001354 T=T+1 8605 000100 ZZ=XX 8606 000200 XX=XX+XX 8607 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8608 DMOVE AC,[200000,,XX 8609 037350 120 04 0 00 043424 0,,0] 8610 DFAD AC,[200777,,-1 8611 037351 110 04 0 00 044203 -1,,-1] 8612 037352 312 04 0 00 044214 CAME AC,[201400,,ZZ] 8613 037353 003 04 0 00 001354 ER3 AC,T 8614 037354 312 05 0 00 043330 CAME AC+1,[0,,0] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0181 8615 037355 004 05 0 00 001354 ER4 AC+1,T 8616 037356 321 10 0 00 037350 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8617 8618 001355 T=T+1 8619 000200 ZZ=XX 8620 000400 XX=XX+XX 8621 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8622 DMOVE AC,[200000,,XX 8623 037357 120 04 0 00 043421 0,,0] 8624 DFAD AC,[200777,,-1 8625 037360 110 04 0 00 044203 -1,,-1] 8626 037361 312 04 0 00 044215 CAME AC,[201400,,ZZ] 8627 037362 003 04 0 00 001355 ER3 AC,T 8628 037363 312 05 0 00 043330 CAME AC+1,[0,,0] 8629 037364 004 05 0 00 001355 ER4 AC+1,T 8630 037365 321 10 0 00 037357 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8631 8632 001356 T=T+1 8633 000400 ZZ=XX 8634 001000 XX=XX+XX 8635 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8636 DMOVE AC,[200000,,XX 8637 037366 120 04 0 00 043416 0,,0] 8638 DFAD AC,[200777,,-1 8639 037367 110 04 0 00 044203 -1,,-1] 8640 037370 312 04 0 00 044216 CAME AC,[201400,,ZZ] 8641 037371 003 04 0 00 001356 ER3 AC,T 8642 037372 312 05 0 00 043330 CAME AC+1,[0,,0] 8643 037373 004 05 0 00 001356 ER4 AC+1,T 8644 037374 321 10 0 00 037366 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8645 8646 001357 T=T+1 8647 001000 ZZ=XX 8648 002000 XX=XX+XX 8649 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8650 DMOVE AC,[200000,,XX 8651 037375 120 04 0 00 043413 0,,0] 8652 DFAD AC,[200777,,-1 8653 037376 110 04 0 00 044203 -1,,-1] 8654 037377 312 04 0 00 044217 CAME AC,[201400,,ZZ] 8655 037400 003 04 0 00 001357 ER3 AC,T 8656 037401 312 05 0 00 043330 CAME AC+1,[0,,0] 8657 037402 004 05 0 00 001357 ER4 AC+1,T 8658 037403 321 10 0 00 037375 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8659 8660 001360 T=T+1 8661 002000 ZZ=XX 8662 004000 XX=XX+XX 8663 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8664 DMOVE AC,[200000,,XX 8665 037404 120 04 0 00 043410 0,,0] 8666 DFAD AC,[200777,,-1 8667 037405 110 04 0 00 044203 -1,,-1] 8668 037406 312 04 0 00 044220 CAME AC,[201400,,ZZ] 8669 037407 003 04 0 00 001360 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0182 8670 037410 312 05 0 00 043330 CAME AC+1,[0,,0] 8671 037411 004 05 0 00 001360 ER4 AC+1,T 8672 037412 321 10 0 00 037404 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8673 8674 001361 T=T+1 8675 004000 ZZ=XX 8676 010000 XX=XX+XX 8677 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8678 DMOVE AC,[200000,,XX 8679 037413 120 04 0 00 043405 0,,0] 8680 DFAD AC,[200777,,-1 8681 037414 110 04 0 00 044203 -1,,-1] 8682 037415 312 04 0 00 044221 CAME AC,[201400,,ZZ] 8683 037416 003 04 0 00 001361 ER3 AC,T 8684 037417 312 05 0 00 043330 CAME AC+1,[0,,0] 8685 037420 004 05 0 00 001361 ER4 AC+1,T 8686 037421 321 10 0 00 037413 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8687 8688 001362 T=T+1 8689 010000 ZZ=XX 8690 020000 XX=XX+XX 8691 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8692 DMOVE AC,[200000,,XX 8693 037422 120 04 0 00 043402 0,,0] 8694 DFAD AC,[200777,,-1 8695 037423 110 04 0 00 044203 -1,,-1] 8696 037424 312 04 0 00 044222 CAME AC,[201400,,ZZ] 8697 037425 003 04 0 00 001362 ER3 AC,T 8698 037426 312 05 0 00 043330 CAME AC+1,[0,,0] 8699 037427 004 05 0 00 001362 ER4 AC+1,T 8700 037430 321 10 0 00 037422 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8701 8702 001363 T=T+1 8703 020000 ZZ=XX 8704 040000 XX=XX+XX 8705 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8706 DMOVE AC,[200000,,XX 8707 037431 120 04 0 00 043377 0,,0] 8708 DFAD AC,[200777,,-1 8709 037432 110 04 0 00 044203 -1,,-1] 8710 037433 312 04 0 00 044223 CAME AC,[201400,,ZZ] 8711 037434 003 04 0 00 001363 ER3 AC,T 8712 037435 312 05 0 00 043330 CAME AC+1,[0,,0] 8713 037436 004 05 0 00 001363 ER4 AC+1,T 8714 037437 321 10 0 00 037431 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8715 8716 001364 T=T+1 8717 040000 ZZ=XX 8718 100000 XX=XX+XX 8719 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8720 DMOVE AC,[200000,,XX 8721 037440 120 04 0 00 043374 0,,0] 8722 DFAD AC,[200777,,-1 8723 037441 110 04 0 00 044203 -1,,-1] 8724 037442 312 04 0 00 044224 CAME AC,[201400,,ZZ] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0183 8725 037443 003 04 0 00 001364 ER3 AC,T 8726 037444 312 05 0 00 043330 CAME AC+1,[0,,0] 8727 037445 004 05 0 00 001364 ER4 AC+1,T 8728 037446 321 10 0 00 037440 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8729 8730 001365 T=T+1 8731 100000 ZZ=XX 8732 200000 XX=XX+XX 8733 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8734 DMOVE AC,[200000,,XX 8735 037447 120 04 0 00 043371 0,,0] 8736 DFAD AC,[200777,,-1 8737 037450 110 04 0 00 044203 -1,,-1] 8738 037451 312 04 0 00 044225 CAME AC,[201400,,ZZ] 8739 037452 003 04 0 00 001365 ER3 AC,T 8740 037453 312 05 0 00 043330 CAME AC+1,[0,,0] 8741 037454 004 05 0 00 001365 ER4 AC+1,T 8742 037455 321 10 0 00 037447 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8743 8744 001366 T=T+1 8745 200000 ZZ=XX 8746 400000 XX=XX+XX 8747 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8748 DMOVE AC,[200000,,XX 8749 037456 120 04 0 00 043366 0,,0] 8750 DFAD AC,[200777,,-1 8751 037457 110 04 0 00 044203 -1,,-1] 8752 037460 312 04 0 00 044226 CAME AC,[201400,,ZZ] 8753 037461 003 04 0 00 001366 ER3 AC,T 8754 037462 312 05 0 00 043330 CAME AC+1,[0,,0] 8755 037463 004 05 0 00 001366 ER4 AC+1,T 8756 037464 321 10 0 00 037456 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8757 8758 8759 001367 T=T+1 8760 400000 ZZ=XX 8761 000001 XX=1 8762 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400,ZZ,0,0^ 8763 DMOVE AC,[200000+XX,,0 8764 037465 120 04 0 00 043363 0,,0] 8765 DFAD AC,[200777,,-1 8766 037466 110 04 0 00 044203 -1,,-1] 8767 037467 312 04 0 00 044227 CAME AC,[201400,,ZZ] 8768 037470 003 04 0 00 001367 ER3 AC,T 8769 037471 312 05 0 00 043330 CAME AC+1,[0,,0] 8770 037472 004 05 0 00 001367 ER4 AC+1,T 8771 037473 321 10 0 00 037465 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8772 REPEAT ^D8, 8773 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0184 8778 001370 T=T+1 8779 000001 ZZ=XX 8780 000002 XX=XX+XX 8781 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8782 DMOVE AC,[200000+XX,,0 8783 037474 120 04 0 00 043360 0,,0] 8784 DFAD AC,[200777,,-1 8785 037475 110 04 0 00 044203 -1,,-1] 8786 037476 312 04 0 00 044230 CAME AC,[201400+ZZ,,0] 8787 037477 003 04 0 00 001370 ER3 AC,T 8788 037500 312 05 0 00 043330 CAME AC+1,[0,,0] 8789 037501 004 05 0 00 001370 ER4 AC+1,T 8790 037502 321 10 0 00 037474 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8791 8792 001371 T=T+1 8793 000002 ZZ=XX 8794 000004 XX=XX+XX 8795 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8796 DMOVE AC,[200000+XX,,0 8797 037503 120 04 0 00 043355 0,,0] 8798 DFAD AC,[200777,,-1 8799 037504 110 04 0 00 044203 -1,,-1] 8800 037505 312 04 0 00 044231 CAME AC,[201400+ZZ,,0] 8801 037506 003 04 0 00 001371 ER3 AC,T 8802 037507 312 05 0 00 043330 CAME AC+1,[0,,0] 8803 037510 004 05 0 00 001371 ER4 AC+1,T 8804 037511 321 10 0 00 037503 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8805 8806 001372 T=T+1 8807 000004 ZZ=XX 8808 000010 XX=XX+XX 8809 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8810 DMOVE AC,[200000+XX,,0 8811 037512 120 04 0 00 043352 0,,0] 8812 DFAD AC,[200777,,-1 8813 037513 110 04 0 00 044203 -1,,-1] 8814 037514 312 04 0 00 044232 CAME AC,[201400+ZZ,,0] 8815 037515 003 04 0 00 001372 ER3 AC,T 8816 037516 312 05 0 00 043330 CAME AC+1,[0,,0] 8817 037517 004 05 0 00 001372 ER4 AC+1,T 8818 037520 321 10 0 00 037512 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8819 8820 001373 T=T+1 8821 000010 ZZ=XX 8822 000020 XX=XX+XX 8823 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8824 DMOVE AC,[200000+XX,,0 8825 037521 120 04 0 00 043347 0,,0] 8826 DFAD AC,[200777,,-1 8827 037522 110 04 0 00 044203 -1,,-1] 8828 037523 312 04 0 00 044233 CAME AC,[201400+ZZ,,0] 8829 037524 003 04 0 00 001373 ER3 AC,T 8830 037525 312 05 0 00 043330 CAME AC+1,[0,,0] 8831 037526 004 05 0 00 001373 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0185 8832 037527 321 10 0 00 037521 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8833 8834 001374 T=T+1 8835 000020 ZZ=XX 8836 000040 XX=XX+XX 8837 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8838 DMOVE AC,[200000+XX,,0 8839 037530 120 04 0 00 043344 0,,0] 8840 DFAD AC,[200777,,-1 8841 037531 110 04 0 00 044203 -1,,-1] 8842 037532 312 04 0 00 044234 CAME AC,[201400+ZZ,,0] 8843 037533 003 04 0 00 001374 ER3 AC,T 8844 037534 312 05 0 00 043330 CAME AC+1,[0,,0] 8845 037535 004 05 0 00 001374 ER4 AC+1,T 8846 037536 321 10 0 00 037530 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8847 8848 001375 T=T+1 8849 000040 ZZ=XX 8850 000100 XX=XX+XX 8851 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8852 DMOVE AC,[200000+XX,,0 8853 037537 120 04 0 00 043341 0,,0] 8854 DFAD AC,[200777,,-1 8855 037540 110 04 0 00 044203 -1,,-1] 8856 037541 312 04 0 00 044235 CAME AC,[201400+ZZ,,0] 8857 037542 003 04 0 00 001375 ER3 AC,T 8858 037543 312 05 0 00 043330 CAME AC+1,[0,,0] 8859 037544 004 05 0 00 001375 ER4 AC+1,T 8860 037545 321 10 0 00 037537 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8861 8862 001376 T=T+1 8863 000100 ZZ=XX 8864 000200 XX=XX+XX 8865 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8866 DMOVE AC,[200000+XX,,0 8867 037546 120 04 0 00 043336 0,,0] 8868 DFAD AC,[200777,,-1 8869 037547 110 04 0 00 044203 -1,,-1] 8870 037550 312 04 0 00 044236 CAME AC,[201400+ZZ,,0] 8871 037551 003 04 0 00 001376 ER3 AC,T 8872 037552 312 05 0 00 043330 CAME AC+1,[0,,0] 8873 037553 004 05 0 00 001376 ER4 AC+1,T 8874 037554 321 10 0 00 037546 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8875 8876 001377 T=T+1 8877 000200 ZZ=XX 8878 000400 XX=XX+XX 8879 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^ 8880 DMOVE AC,[200000+XX,,0 8881 037555 120 04 0 00 043334 0,,0] 8882 DFAD AC,[200777,,-1 8883 037556 110 04 0 00 044203 -1,,-1] 8884 037557 312 04 0 00 044237 CAME AC,[201400+ZZ,,0] 8885 037560 003 04 0 00 001377 ER3 AC,T 8886 037561 312 05 0 00 043330 CAME AC+1,[0,,0] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0186 8887 037562 004 05 0 00 001377 ER4 AC+1,T 8888 037563 321 10 0 00 037555 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8889 8890 8891 ;RIPPLE ZEROS TESTS (TO A FRACTION OF ALL ONES, ADD A RIPPLED ZERO) 8892 8893 001400 T=1400 8894 8895 000000 XX=0 8896 8897 R1400: REPEAT ^D18, 8898 8901 XX=XX+XX+1 8902 IFE , 8903 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ 8904 > 8905 001401 T=T+1 8906 000000 ZZ=XX 8907 777777 777777 IFE ZZ, 8908 000001 XX=XX+XX+1 8909 777777 777776 IFE , 8910 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 8911 DMOVE AC,[200777,,-1 8912 037564 120 04 0 00 044203 -1,,-1] 8913 DFAD AC,[200777,,-1 8914 037565 110 04 0 00 044240 -1,,XX] 8915 037566 312 04 0 00 044242 CAME AC,[201777,,-1] 8916 037567 003 04 0 00 001401 ER3 AC,T 8917 037570 312 05 0 00 043631 CAME AC+1,[377777,,ZZ] 8918 037571 004 05 0 00 001401 ER4 AC+1,T 8919 037572 321 10 0 00 037564 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8920 8921 001402 T=T+1 8922 777777 777776 ZZ=XX 8923 IFE ZZ, 8924 777777 777775 XX=XX+XX+1 8925 IFE , 8926 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 8927 DMOVE AC,[200777,,-1 8928 037573 120 04 0 00 044203 -1,,-1] 8929 DFAD AC,[200777,,-1 8930 037574 110 04 0 00 044243 -1,,XX] 8931 037575 312 04 0 00 044242 CAME AC,[201777,,-1] 8932 037576 003 04 0 00 001402 ER3 AC,T 8933 037577 312 05 0 00 043634 CAME AC+1,[377777,,ZZ] 8934 037600 004 05 0 00 001402 ER4 AC+1,T 8935 037601 321 10 0 00 037573 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8936 8937 001403 T=T+1 8938 777777 777775 ZZ=XX 8939 IFE ZZ, 8940 777777 777773 XX=XX+XX+1 8941 IFE , DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0187 8942 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 8943 DMOVE AC,[200777,,-1 8944 037602 120 04 0 00 044203 -1,,-1] 8945 DFAD AC,[200777,,-1 8946 037603 110 04 0 00 044245 -1,,XX] 8947 037604 312 04 0 00 044242 CAME AC,[201777,,-1] 8948 037605 003 04 0 00 001403 ER3 AC,T 8949 037606 312 05 0 00 043637 CAME AC+1,[377777,,ZZ] 8950 037607 004 05 0 00 001403 ER4 AC+1,T 8951 037610 321 10 0 00 037602 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8952 8953 001404 T=T+1 8954 777777 777773 ZZ=XX 8955 IFE ZZ, 8956 777777 777767 XX=XX+XX+1 8957 IFE , 8958 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 8959 DMOVE AC,[200777,,-1 8960 037611 120 04 0 00 044203 -1,,-1] 8961 DFAD AC,[200777,,-1 8962 037612 110 04 0 00 044247 -1,,XX] 8963 037613 312 04 0 00 044242 CAME AC,[201777,,-1] 8964 037614 003 04 0 00 001404 ER3 AC,T 8965 037615 312 05 0 00 043642 CAME AC+1,[377777,,ZZ] 8966 037616 004 05 0 00 001404 ER4 AC+1,T 8967 037617 321 10 0 00 037611 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8968 8969 001405 T=T+1 8970 777777 777767 ZZ=XX 8971 IFE ZZ, 8972 777777 777757 XX=XX+XX+1 8973 IFE , 8974 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 8975 DMOVE AC,[200777,,-1 8976 037620 120 04 0 00 044203 -1,,-1] 8977 DFAD AC,[200777,,-1 8978 037621 110 04 0 00 044251 -1,,XX] 8979 037622 312 04 0 00 044242 CAME AC,[201777,,-1] 8980 037623 003 04 0 00 001405 ER3 AC,T 8981 037624 312 05 0 00 043645 CAME AC+1,[377777,,ZZ] 8982 037625 004 05 0 00 001405 ER4 AC+1,T 8983 037626 321 10 0 00 037620 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 8984 8985 001406 T=T+1 8986 777777 777757 ZZ=XX 8987 IFE ZZ, 8988 777777 777737 XX=XX+XX+1 8989 IFE , 8990 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 8991 DMOVE AC,[200777,,-1 8992 037627 120 04 0 00 044203 -1,,-1] 8993 DFAD AC,[200777,,-1 8994 037630 110 04 0 00 044253 -1,,XX] 8995 037631 312 04 0 00 044242 CAME AC,[201777,,-1] 8996 037632 003 04 0 00 001406 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0188 8997 037633 312 05 0 00 043650 CAME AC+1,[377777,,ZZ] 8998 037634 004 05 0 00 001406 ER4 AC+1,T 8999 037635 321 10 0 00 037627 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9000 9001 001407 T=T+1 9002 777777 777737 ZZ=XX 9003 IFE ZZ, 9004 777777 777677 XX=XX+XX+1 9005 IFE , 9006 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9007 DMOVE AC,[200777,,-1 9008 037636 120 04 0 00 044203 -1,,-1] 9009 DFAD AC,[200777,,-1 9010 037637 110 04 0 00 044255 -1,,XX] 9011 037640 312 04 0 00 044242 CAME AC,[201777,,-1] 9012 037641 003 04 0 00 001407 ER3 AC,T 9013 037642 312 05 0 00 043653 CAME AC+1,[377777,,ZZ] 9014 037643 004 05 0 00 001407 ER4 AC+1,T 9015 037644 321 10 0 00 037636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9016 9017 001410 T=T+1 9018 777777 777677 ZZ=XX 9019 IFE ZZ, 9020 777777 777577 XX=XX+XX+1 9021 IFE , 9022 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9023 DMOVE AC,[200777,,-1 9024 037645 120 04 0 00 044203 -1,,-1] 9025 DFAD AC,[200777,,-1 9026 037646 110 04 0 00 044257 -1,,XX] 9027 037647 312 04 0 00 044242 CAME AC,[201777,,-1] 9028 037650 003 04 0 00 001410 ER3 AC,T 9029 037651 312 05 0 00 043656 CAME AC+1,[377777,,ZZ] 9030 037652 004 05 0 00 001410 ER4 AC+1,T 9031 037653 321 10 0 00 037645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9032 9033 001411 T=T+1 9034 777777 777577 ZZ=XX 9035 IFE ZZ, 9036 777777 777377 XX=XX+XX+1 9037 IFE , 9038 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9039 DMOVE AC,[200777,,-1 9040 037654 120 04 0 00 044203 -1,,-1] 9041 DFAD AC,[200777,,-1 9042 037655 110 04 0 00 044261 -1,,XX] 9043 037656 312 04 0 00 044242 CAME AC,[201777,,-1] 9044 037657 003 04 0 00 001411 ER3 AC,T 9045 037660 312 05 0 00 043661 CAME AC+1,[377777,,ZZ] 9046 037661 004 05 0 00 001411 ER4 AC+1,T 9047 037662 321 10 0 00 037654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9048 9049 001412 T=T+1 9050 777777 777377 ZZ=XX 9051 IFE ZZ, DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0189 9052 777777 776777 XX=XX+XX+1 9053 IFE , 9054 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9055 DMOVE AC,[200777,,-1 9056 037663 120 04 0 00 044203 -1,,-1] 9057 DFAD AC,[200777,,-1 9058 037664 110 04 0 00 044263 -1,,XX] 9059 037665 312 04 0 00 044242 CAME AC,[201777,,-1] 9060 037666 003 04 0 00 001412 ER3 AC,T 9061 037667 312 05 0 00 043664 CAME AC+1,[377777,,ZZ] 9062 037670 004 05 0 00 001412 ER4 AC+1,T 9063 037671 321 10 0 00 037663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9064 9065 001413 T=T+1 9066 777777 776777 ZZ=XX 9067 IFE ZZ, 9068 777777 775777 XX=XX+XX+1 9069 IFE , 9070 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9071 DMOVE AC,[200777,,-1 9072 037672 120 04 0 00 044203 -1,,-1] 9073 DFAD AC,[200777,,-1 9074 037673 110 04 0 00 044265 -1,,XX] 9075 037674 312 04 0 00 044242 CAME AC,[201777,,-1] 9076 037675 003 04 0 00 001413 ER3 AC,T 9077 037676 312 05 0 00 043667 CAME AC+1,[377777,,ZZ] 9078 037677 004 05 0 00 001413 ER4 AC+1,T 9079 037700 321 10 0 00 037672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9080 9081 001414 T=T+1 9082 777777 775777 ZZ=XX 9083 IFE ZZ, 9084 777777 773777 XX=XX+XX+1 9085 IFE , 9086 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9087 DMOVE AC,[200777,,-1 9088 037701 120 04 0 00 044203 -1,,-1] 9089 DFAD AC,[200777,,-1 9090 037702 110 04 0 00 044267 -1,,XX] 9091 037703 312 04 0 00 044242 CAME AC,[201777,,-1] 9092 037704 003 04 0 00 001414 ER3 AC,T 9093 037705 312 05 0 00 043672 CAME AC+1,[377777,,ZZ] 9094 037706 004 05 0 00 001414 ER4 AC+1,T 9095 037707 321 10 0 00 037701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9096 9097 001415 T=T+1 9098 777777 773777 ZZ=XX 9099 IFE ZZ, 9100 777777 767777 XX=XX+XX+1 9101 IFE , 9102 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9103 DMOVE AC,[200777,,-1 9104 037710 120 04 0 00 044203 -1,,-1] 9105 DFAD AC,[200777,,-1 9106 037711 110 04 0 00 044271 -1,,XX] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0190 9107 037712 312 04 0 00 044242 CAME AC,[201777,,-1] 9108 037713 003 04 0 00 001415 ER3 AC,T 9109 037714 312 05 0 00 043675 CAME AC+1,[377777,,ZZ] 9110 037715 004 05 0 00 001415 ER4 AC+1,T 9111 037716 321 10 0 00 037710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9112 9113 001416 T=T+1 9114 777777 767777 ZZ=XX 9115 IFE ZZ, 9116 777777 757777 XX=XX+XX+1 9117 IFE , 9118 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9119 DMOVE AC,[200777,,-1 9120 037717 120 04 0 00 044203 -1,,-1] 9121 DFAD AC,[200777,,-1 9122 037720 110 04 0 00 044273 -1,,XX] 9123 037721 312 04 0 00 044242 CAME AC,[201777,,-1] 9124 037722 003 04 0 00 001416 ER3 AC,T 9125 037723 312 05 0 00 043700 CAME AC+1,[377777,,ZZ] 9126 037724 004 05 0 00 001416 ER4 AC+1,T 9127 037725 321 10 0 00 037717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9128 9129 001417 T=T+1 9130 777777 757777 ZZ=XX 9131 IFE ZZ, 9132 777777 737777 XX=XX+XX+1 9133 IFE , 9134 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9135 DMOVE AC,[200777,,-1 9136 037726 120 04 0 00 044203 -1,,-1] 9137 DFAD AC,[200777,,-1 9138 037727 110 04 0 00 044275 -1,,XX] 9139 037730 312 04 0 00 044242 CAME AC,[201777,,-1] 9140 037731 003 04 0 00 001417 ER3 AC,T 9141 037732 312 05 0 00 043703 CAME AC+1,[377777,,ZZ] 9142 037733 004 05 0 00 001417 ER4 AC+1,T 9143 037734 321 10 0 00 037726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9144 9145 001420 T=T+1 9146 777777 737777 ZZ=XX 9147 IFE ZZ, 9148 777777 677777 XX=XX+XX+1 9149 IFE , 9150 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9151 DMOVE AC,[200777,,-1 9152 037735 120 04 0 00 044203 -1,,-1] 9153 DFAD AC,[200777,,-1 9154 037736 110 04 0 00 044277 -1,,XX] 9155 037737 312 04 0 00 044242 CAME AC,[201777,,-1] 9156 037740 003 04 0 00 001420 ER3 AC,T 9157 037741 312 05 0 00 043706 CAME AC+1,[377777,,ZZ] 9158 037742 004 05 0 00 001420 ER4 AC+1,T 9159 037743 321 10 0 00 037735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9160 9161 001421 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0191 9162 777777 677777 ZZ=XX 9163 IFE ZZ, 9164 777777 577777 XX=XX+XX+1 9165 IFE , 9166 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9167 DMOVE AC,[200777,,-1 9168 037744 120 04 0 00 044203 -1,,-1] 9169 DFAD AC,[200777,,-1 9170 037745 110 04 0 00 044301 -1,,XX] 9171 037746 312 04 0 00 044242 CAME AC,[201777,,-1] 9172 037747 003 04 0 00 001421 ER3 AC,T 9173 037750 312 05 0 00 043711 CAME AC+1,[377777,,ZZ] 9174 037751 004 05 0 00 001421 ER4 AC+1,T 9175 037752 321 10 0 00 037744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9176 9177 001422 T=T+1 9178 777777 577777 ZZ=XX 9179 IFE ZZ, 9180 777777 377777 XX=XX+XX+1 9181 IFE , 9182 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^ 9183 DMOVE AC,[200777,,-1 9184 037753 120 04 0 00 044203 -1,,-1] 9185 DFAD AC,[200777,,-1 9186 037754 110 04 0 00 044303 -1,,XX] 9187 037755 312 04 0 00 044242 CAME AC,[201777,,-1] 9188 037756 003 04 0 00 001422 ER3 AC,T 9189 037757 312 05 0 00 043714 CAME AC+1,[377777,,ZZ] 9190 037760 004 05 0 00 001422 ER4 AC+1,T 9191 037761 321 10 0 00 037753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9192 9193 9194 001423 T=T+1 9195 777777 377777 ZZ=XX 9196 777777 777776 XX=-2 9197 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,377777,ZZ^ 9198 DMOVE AC,[200777,,-1 9199 037762 120 04 0 00 044203 -1,,-1] 9200 DFAD AC,[200777,,-1 9201 037763 110 04 0 00 044305 XX,,-1] 9202 037764 312 04 0 00 044242 CAME AC,[201777,,-1] 9203 037765 003 04 0 00 001423 ER3 AC,T 9204 037766 312 05 0 00 043717 CAME AC+1,[377777,,ZZ] 9205 037767 004 05 0 00 001423 ER4 AC+1,T 9206 037770 321 10 0 00 037762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9207 9208 REPEAT ^D16, 9209 9214 001424 T=T+1 9215 777777 777776 ZZ=XX 9216 777777 777775 XX=XX+XX+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0192 9217 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9218 DMOVE AC,[200777,,-1 9219 037771 120 04 0 00 044203 -1,,-1] 9220 DFAD AC,[200777,,-1 9221 037772 110 04 0 00 044307 XX,,-1] 9222 037773 312 04 0 00 044242 CAME AC,[201777,,-1] 9223 037774 003 04 0 00 001424 ER3 AC,T 9224 037775 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1] 9225 037776 004 05 0 00 001424 ER4 AC+1,T 9226 037777 321 10 0 00 037771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9227 9228 001425 T=T+1 9229 777777 777775 ZZ=XX 9230 777777 777773 XX=XX+XX+1 9231 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9232 DMOVE AC,[200777,,-1 9233 040000 120 04 0 00 044203 -1,,-1] 9234 DFAD AC,[200777,,-1 9235 040001 110 04 0 00 044311 XX,,-1] 9236 040002 312 04 0 00 044242 CAME AC,[201777,,-1] 9237 040003 003 04 0 00 001425 ER3 AC,T 9238 040004 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1] 9239 040005 004 05 0 00 001425 ER4 AC+1,T 9240 040006 321 10 0 00 040000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9241 9242 001426 T=T+1 9243 777777 777773 ZZ=XX 9244 777777 777767 XX=XX+XX+1 9245 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9246 DMOVE AC,[200777,,-1 9247 040007 120 04 0 00 044203 -1,,-1] 9248 DFAD AC,[200777,,-1 9249 040010 110 04 0 00 044313 XX,,-1] 9250 040011 312 04 0 00 044242 CAME AC,[201777,,-1] 9251 040012 003 04 0 00 001426 ER3 AC,T 9252 040013 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1] 9253 040014 004 05 0 00 001426 ER4 AC+1,T 9254 040015 321 10 0 00 040007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9255 9256 001427 T=T+1 9257 777777 777767 ZZ=XX 9258 777777 777757 XX=XX+XX+1 9259 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9260 DMOVE AC,[200777,,-1 9261 040016 120 04 0 00 044203 -1,,-1] 9262 DFAD AC,[200777,,-1 9263 040017 110 04 0 00 044315 XX,,-1] 9264 040020 312 04 0 00 044242 CAME AC,[201777,,-1] 9265 040021 003 04 0 00 001427 ER3 AC,T 9266 040022 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1] 9267 040023 004 05 0 00 001427 ER4 AC+1,T 9268 040024 321 10 0 00 040016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9269 9270 001430 T=T+1 9271 777777 777757 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0193 9272 777777 777737 XX=XX+XX+1 9273 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9274 DMOVE AC,[200777,,-1 9275 040025 120 04 0 00 044203 -1,,-1] 9276 DFAD AC,[200777,,-1 9277 040026 110 04 0 00 044317 XX,,-1] 9278 040027 312 04 0 00 044242 CAME AC,[201777,,-1] 9279 040030 003 04 0 00 001430 ER3 AC,T 9280 040031 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1] 9281 040032 004 05 0 00 001430 ER4 AC+1,T 9282 040033 321 10 0 00 040025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9283 9284 001431 T=T+1 9285 777777 777737 ZZ=XX 9286 777777 777677 XX=XX+XX+1 9287 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9288 DMOVE AC,[200777,,-1 9289 040034 120 04 0 00 044203 -1,,-1] 9290 DFAD AC,[200777,,-1 9291 040035 110 04 0 00 044321 XX,,-1] 9292 040036 312 04 0 00 044242 CAME AC,[201777,,-1] 9293 040037 003 04 0 00 001431 ER3 AC,T 9294 040040 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1] 9295 040041 004 05 0 00 001431 ER4 AC+1,T 9296 040042 321 10 0 00 040034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9297 9298 001432 T=T+1 9299 777777 777677 ZZ=XX 9300 777777 777577 XX=XX+XX+1 9301 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9302 DMOVE AC,[200777,,-1 9303 040043 120 04 0 00 044203 -1,,-1] 9304 DFAD AC,[200777,,-1 9305 040044 110 04 0 00 044323 XX,,-1] 9306 040045 312 04 0 00 044242 CAME AC,[201777,,-1] 9307 040046 003 04 0 00 001432 ER3 AC,T 9308 040047 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1] 9309 040050 004 05 0 00 001432 ER4 AC+1,T 9310 040051 321 10 0 00 040043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9311 9312 001433 T=T+1 9313 777777 777577 ZZ=XX 9314 777777 777377 XX=XX+XX+1 9315 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9316 DMOVE AC,[200777,,-1 9317 040052 120 04 0 00 044203 -1,,-1] 9318 DFAD AC,[200777,,-1 9319 040053 110 04 0 00 044325 XX,,-1] 9320 040054 312 04 0 00 044242 CAME AC,[201777,,-1] 9321 040055 003 04 0 00 001433 ER3 AC,T 9322 040056 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1] 9323 040057 004 05 0 00 001433 ER4 AC+1,T 9324 040060 321 10 0 00 040052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9325 9326 001434 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0194 9327 777777 777377 ZZ=XX 9328 777777 776777 XX=XX+XX+1 9329 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9330 DMOVE AC,[200777,,-1 9331 040061 120 04 0 00 044203 -1,,-1] 9332 DFAD AC,[200777,,-1 9333 040062 110 04 0 00 044327 XX,,-1] 9334 040063 312 04 0 00 044242 CAME AC,[201777,,-1] 9335 040064 003 04 0 00 001434 ER3 AC,T 9336 040065 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1] 9337 040066 004 05 0 00 001434 ER4 AC+1,T 9338 040067 321 10 0 00 040061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9339 9340 001435 T=T+1 9341 777777 776777 ZZ=XX 9342 777777 775777 XX=XX+XX+1 9343 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9344 DMOVE AC,[200777,,-1 9345 040070 120 04 0 00 044203 -1,,-1] 9346 DFAD AC,[200777,,-1 9347 040071 110 04 0 00 044331 XX,,-1] 9348 040072 312 04 0 00 044242 CAME AC,[201777,,-1] 9349 040073 003 04 0 00 001435 ER3 AC,T 9350 040074 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1] 9351 040075 004 05 0 00 001435 ER4 AC+1,T 9352 040076 321 10 0 00 040070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9353 9354 001436 T=T+1 9355 777777 775777 ZZ=XX 9356 777777 773777 XX=XX+XX+1 9357 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9358 DMOVE AC,[200777,,-1 9359 040077 120 04 0 00 044203 -1,,-1] 9360 DFAD AC,[200777,,-1 9361 040100 110 04 0 00 044333 XX,,-1] 9362 040101 312 04 0 00 044242 CAME AC,[201777,,-1] 9363 040102 003 04 0 00 001436 ER3 AC,T 9364 040103 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1] 9365 040104 004 05 0 00 001436 ER4 AC+1,T 9366 040105 321 10 0 00 040077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9367 9368 001437 T=T+1 9369 777777 773777 ZZ=XX 9370 777777 767777 XX=XX+XX+1 9371 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9372 DMOVE AC,[200777,,-1 9373 040106 120 04 0 00 044203 -1,,-1] 9374 DFAD AC,[200777,,-1 9375 040107 110 04 0 00 044335 XX,,-1] 9376 040110 312 04 0 00 044242 CAME AC,[201777,,-1] 9377 040111 003 04 0 00 001437 ER3 AC,T 9378 040112 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1] 9379 040113 004 05 0 00 001437 ER4 AC+1,T 9380 040114 321 10 0 00 040106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9381 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0195 9382 001440 T=T+1 9383 777777 767777 ZZ=XX 9384 777777 757777 XX=XX+XX+1 9385 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9386 DMOVE AC,[200777,,-1 9387 040115 120 04 0 00 044203 -1,,-1] 9388 DFAD AC,[200777,,-1 9389 040116 110 04 0 00 044337 XX,,-1] 9390 040117 312 04 0 00 044242 CAME AC,[201777,,-1] 9391 040120 003 04 0 00 001440 ER3 AC,T 9392 040121 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1] 9393 040122 004 05 0 00 001440 ER4 AC+1,T 9394 040123 321 10 0 00 040115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9395 9396 001441 T=T+1 9397 777777 757777 ZZ=XX 9398 777777 737777 XX=XX+XX+1 9399 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9400 DMOVE AC,[200777,,-1 9401 040124 120 04 0 00 044203 -1,,-1] 9402 DFAD AC,[200777,,-1 9403 040125 110 04 0 00 044341 XX,,-1] 9404 040126 312 04 0 00 044242 CAME AC,[201777,,-1] 9405 040127 003 04 0 00 001441 ER3 AC,T 9406 040130 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1] 9407 040131 004 05 0 00 001441 ER4 AC+1,T 9408 040132 321 10 0 00 040124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9409 9410 001442 T=T+1 9411 777777 737777 ZZ=XX 9412 777777 677777 XX=XX+XX+1 9413 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9414 DMOVE AC,[200777,,-1 9415 040133 120 04 0 00 044203 -1,,-1] 9416 DFAD AC,[200777,,-1 9417 040134 110 04 0 00 044343 XX,,-1] 9418 040135 312 04 0 00 044242 CAME AC,[201777,,-1] 9419 040136 003 04 0 00 001442 ER3 AC,T 9420 040137 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1] 9421 040140 004 05 0 00 001442 ER4 AC+1,T 9422 040141 321 10 0 00 040133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9423 9424 001443 T=T+1 9425 777777 677777 ZZ=XX 9426 777777 577777 XX=XX+XX+1 9427 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^ 9428 DMOVE AC,[200777,,-1 9429 040142 120 04 0 00 044203 -1,,-1] 9430 DFAD AC,[200777,,-1 9431 040143 110 04 0 00 044345 XX,,-1] 9432 040144 312 04 0 00 044242 CAME AC,[201777,,-1] 9433 040145 003 04 0 00 001443 ER3 AC,T 9434 040146 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1] 9435 040147 004 05 0 00 001443 ER4 AC+1,T 9436 040150 321 10 0 00 040142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0196 9437 9438 9439 001444 T=T+1 9440 777777 377777 XX=XX+XX+1 9441 777777 377777 ZZ=XX 9442 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ,-1^ 9443 DMOVE AC,[200777,,-1 9444 040151 120 04 0 00 044203 -1,,-1] 9445 DFAD AC,[200777,,-1 9446 040152 110 04 0 00 044347 XX,,-1] 9447 040153 312 04 0 00 044242 CAME AC,[201777,,-1] 9448 040154 003 04 0 00 001444 ER3 AC,T 9449 040155 312 05 0 00 043631 CAME AC+1,[ZZ,,-1] 9450 040156 004 05 0 00 001444 ER4 AC+1,T 9451 040157 321 10 0 00 040151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9452 9453 001445 T=T+1 9454 177777 ZZ=XX&177777 9455 777777 777776 XX=-2 9456 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,-1,ZZ,-1^ 9457 DMOVE AC,[200777,,-1 9458 040160 120 04 0 00 044203 -1,,-1] 9459 DFAD AC,[200777,,XX 9460 040161 110 04 0 00 044351 -1,,-1] 9461 040162 312 04 0 00 044242 CAME AC,[201777,,-1] 9462 040163 003 04 0 00 001445 ER3 AC,T 9463 040164 312 05 0 00 044002 CAME AC+1,[ZZ,,-1] 9464 040165 004 05 0 00 001445 ER4 AC+1,T 9465 040166 321 10 0 00 040160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9466 9467 REPEAT ^D17, 9468 9473 001446 T=T+1 9474 777777 777776 ZZ=XX 9475 777777 777775 XX=XX+XX+1 9476 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9477 DMOVE AC,[200777,,-1 9478 040167 120 04 0 00 044203 -1,,-1] 9479 DFAD AC,[200777,,XX 9480 040170 110 04 0 00 044353 -1,,-1] 9481 040171 312 04 0 00 044355 CAME AC,[201777,,ZZ] 9482 040172 003 04 0 00 001446 ER3 AC,T 9483 040173 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9484 040174 004 05 0 00 001446 ER4 AC+1,T 9485 040175 321 10 0 00 040167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9486 9487 001447 T=T+1 9488 777777 777775 ZZ=XX 9489 777777 777773 XX=XX+XX+1 9490 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9491 DMOVE AC,[200777,,-1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0197 9492 040176 120 04 0 00 044203 -1,,-1] 9493 DFAD AC,[200777,,XX 9494 040177 110 04 0 00 044356 -1,,-1] 9495 040200 312 04 0 00 044360 CAME AC,[201777,,ZZ] 9496 040201 003 04 0 00 001447 ER3 AC,T 9497 040202 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9498 040203 004 05 0 00 001447 ER4 AC+1,T 9499 040204 321 10 0 00 040176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9500 9501 001450 T=T+1 9502 777777 777773 ZZ=XX 9503 777777 777767 XX=XX+XX+1 9504 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9505 DMOVE AC,[200777,,-1 9506 040205 120 04 0 00 044203 -1,,-1] 9507 DFAD AC,[200777,,XX 9508 040206 110 04 0 00 044361 -1,,-1] 9509 040207 312 04 0 00 044363 CAME AC,[201777,,ZZ] 9510 040210 003 04 0 00 001450 ER3 AC,T 9511 040211 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9512 040212 004 05 0 00 001450 ER4 AC+1,T 9513 040213 321 10 0 00 040205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9514 9515 001451 T=T+1 9516 777777 777767 ZZ=XX 9517 777777 777757 XX=XX+XX+1 9518 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9519 DMOVE AC,[200777,,-1 9520 040214 120 04 0 00 044203 -1,,-1] 9521 DFAD AC,[200777,,XX 9522 040215 110 04 0 00 044364 -1,,-1] 9523 040216 312 04 0 00 044366 CAME AC,[201777,,ZZ] 9524 040217 003 04 0 00 001451 ER3 AC,T 9525 040220 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9526 040221 004 05 0 00 001451 ER4 AC+1,T 9527 040222 321 10 0 00 040214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9528 9529 001452 T=T+1 9530 777777 777757 ZZ=XX 9531 777777 777737 XX=XX+XX+1 9532 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9533 DMOVE AC,[200777,,-1 9534 040223 120 04 0 00 044203 -1,,-1] 9535 DFAD AC,[200777,,XX 9536 040224 110 04 0 00 044367 -1,,-1] 9537 040225 312 04 0 00 044371 CAME AC,[201777,,ZZ] 9538 040226 003 04 0 00 001452 ER3 AC,T 9539 040227 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9540 040230 004 05 0 00 001452 ER4 AC+1,T 9541 040231 321 10 0 00 040223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9542 9543 001453 T=T+1 9544 777777 777737 ZZ=XX 9545 777777 777677 XX=XX+XX+1 9546 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0198 9547 DMOVE AC,[200777,,-1 9548 040232 120 04 0 00 044203 -1,,-1] 9549 DFAD AC,[200777,,XX 9550 040233 110 04 0 00 044372 -1,,-1] 9551 040234 312 04 0 00 044374 CAME AC,[201777,,ZZ] 9552 040235 003 04 0 00 001453 ER3 AC,T 9553 040236 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9554 040237 004 05 0 00 001453 ER4 AC+1,T 9555 040240 321 10 0 00 040232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9556 9557 001454 T=T+1 9558 777777 777677 ZZ=XX 9559 777777 777577 XX=XX+XX+1 9560 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9561 DMOVE AC,[200777,,-1 9562 040241 120 04 0 00 044203 -1,,-1] 9563 DFAD AC,[200777,,XX 9564 040242 110 04 0 00 044375 -1,,-1] 9565 040243 312 04 0 00 044377 CAME AC,[201777,,ZZ] 9566 040244 003 04 0 00 001454 ER3 AC,T 9567 040245 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9568 040246 004 05 0 00 001454 ER4 AC+1,T 9569 040247 321 10 0 00 040241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9570 9571 001455 T=T+1 9572 777777 777577 ZZ=XX 9573 777777 777377 XX=XX+XX+1 9574 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9575 DMOVE AC,[200777,,-1 9576 040250 120 04 0 00 044203 -1,,-1] 9577 DFAD AC,[200777,,XX 9578 040251 110 04 0 00 044400 -1,,-1] 9579 040252 312 04 0 00 044402 CAME AC,[201777,,ZZ] 9580 040253 003 04 0 00 001455 ER3 AC,T 9581 040254 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9582 040255 004 05 0 00 001455 ER4 AC+1,T 9583 040256 321 10 0 00 040250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9584 9585 001456 T=T+1 9586 777777 777377 ZZ=XX 9587 777777 776777 XX=XX+XX+1 9588 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9589 DMOVE AC,[200777,,-1 9590 040257 120 04 0 00 044203 -1,,-1] 9591 DFAD AC,[200777,,XX 9592 040260 110 04 0 00 044403 -1,,-1] 9593 040261 312 04 0 00 044405 CAME AC,[201777,,ZZ] 9594 040262 003 04 0 00 001456 ER3 AC,T 9595 040263 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9596 040264 004 05 0 00 001456 ER4 AC+1,T 9597 040265 321 10 0 00 040257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9598 9599 001457 T=T+1 9600 777777 776777 ZZ=XX 9601 777777 775777 XX=XX+XX+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0199 9602 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9603 DMOVE AC,[200777,,-1 9604 040266 120 04 0 00 044203 -1,,-1] 9605 DFAD AC,[200777,,XX 9606 040267 110 04 0 00 044406 -1,,-1] 9607 040270 312 04 0 00 044410 CAME AC,[201777,,ZZ] 9608 040271 003 04 0 00 001457 ER3 AC,T 9609 040272 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9610 040273 004 05 0 00 001457 ER4 AC+1,T 9611 040274 321 10 0 00 040266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9612 9613 001460 T=T+1 9614 777777 775777 ZZ=XX 9615 777777 773777 XX=XX+XX+1 9616 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9617 DMOVE AC,[200777,,-1 9618 040275 120 04 0 00 044203 -1,,-1] 9619 DFAD AC,[200777,,XX 9620 040276 110 04 0 00 044411 -1,,-1] 9621 040277 312 04 0 00 044413 CAME AC,[201777,,ZZ] 9622 040300 003 04 0 00 001460 ER3 AC,T 9623 040301 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9624 040302 004 05 0 00 001460 ER4 AC+1,T 9625 040303 321 10 0 00 040275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9626 9627 001461 T=T+1 9628 777777 773777 ZZ=XX 9629 777777 767777 XX=XX+XX+1 9630 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9631 DMOVE AC,[200777,,-1 9632 040304 120 04 0 00 044203 -1,,-1] 9633 DFAD AC,[200777,,XX 9634 040305 110 04 0 00 044414 -1,,-1] 9635 040306 312 04 0 00 044416 CAME AC,[201777,,ZZ] 9636 040307 003 04 0 00 001461 ER3 AC,T 9637 040310 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9638 040311 004 05 0 00 001461 ER4 AC+1,T 9639 040312 321 10 0 00 040304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9640 9641 001462 T=T+1 9642 777777 767777 ZZ=XX 9643 777777 757777 XX=XX+XX+1 9644 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9645 DMOVE AC,[200777,,-1 9646 040313 120 04 0 00 044203 -1,,-1] 9647 DFAD AC,[200777,,XX 9648 040314 110 04 0 00 044417 -1,,-1] 9649 040315 312 04 0 00 044421 CAME AC,[201777,,ZZ] 9650 040316 003 04 0 00 001462 ER3 AC,T 9651 040317 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9652 040320 004 05 0 00 001462 ER4 AC+1,T 9653 040321 321 10 0 00 040313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9654 9655 001463 T=T+1 9656 777777 757777 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0200 9657 777777 737777 XX=XX+XX+1 9658 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9659 DMOVE AC,[200777,,-1 9660 040322 120 04 0 00 044203 -1,,-1] 9661 DFAD AC,[200777,,XX 9662 040323 110 04 0 00 044422 -1,,-1] 9663 040324 312 04 0 00 044424 CAME AC,[201777,,ZZ] 9664 040325 003 04 0 00 001463 ER3 AC,T 9665 040326 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9666 040327 004 05 0 00 001463 ER4 AC+1,T 9667 040330 321 10 0 00 040322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9668 9669 001464 T=T+1 9670 777777 737777 ZZ=XX 9671 777777 677777 XX=XX+XX+1 9672 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9673 DMOVE AC,[200777,,-1 9674 040331 120 04 0 00 044203 -1,,-1] 9675 DFAD AC,[200777,,XX 9676 040332 110 04 0 00 044425 -1,,-1] 9677 040333 312 04 0 00 044427 CAME AC,[201777,,ZZ] 9678 040334 003 04 0 00 001464 ER3 AC,T 9679 040335 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9680 040336 004 05 0 00 001464 ER4 AC+1,T 9681 040337 321 10 0 00 040331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9682 9683 001465 T=T+1 9684 777777 677777 ZZ=XX 9685 777777 577777 XX=XX+XX+1 9686 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9687 DMOVE AC,[200777,,-1 9688 040340 120 04 0 00 044203 -1,,-1] 9689 DFAD AC,[200777,,XX 9690 040341 110 04 0 00 044430 -1,,-1] 9691 040342 312 04 0 00 044432 CAME AC,[201777,,ZZ] 9692 040343 003 04 0 00 001465 ER3 AC,T 9693 040344 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9694 040345 004 05 0 00 001465 ER4 AC+1,T 9695 040346 321 10 0 00 040340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9696 9697 001466 T=T+1 9698 777777 577777 ZZ=XX 9699 777777 377777 XX=XX+XX+1 9700 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^ 9701 DMOVE AC,[200777,,-1 9702 040347 120 04 0 00 044203 -1,,-1] 9703 DFAD AC,[200777,,XX 9704 040350 110 04 0 00 044433 -1,,-1] 9705 040351 312 04 0 00 044435 CAME AC,[201777,,ZZ] 9706 040352 003 04 0 00 001466 ER3 AC,T 9707 040353 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9708 040354 004 05 0 00 001466 ER4 AC+1,T 9709 040355 321 10 0 00 040347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9710 9711 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0201 9712 001467 T=T+1 9713 777777 377777 ZZ=XX 9714 777777 777776 XX=-2 9715 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777,ZZ,377777,-1^ 9716 DMOVE AC,[200777,,-1 9717 040356 120 04 0 00 044203 -1,,-1] 9718 DFAD AC,[200777&XX,,-1 9719 040357 110 04 0 00 044436 -1,,-1] 9720 040360 312 04 0 00 044440 CAME AC,[201777,,ZZ] 9721 040361 003 04 0 00 001467 ER3 AC,T 9722 040362 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9723 040363 004 05 0 00 001467 ER4 AC+1,T 9724 040364 321 10 0 00 040356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9725 9726 REPEAT ^D8, 9727 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0202 9732 001470 T=T+1 9733 777777 777776 ZZ=XX 9734 777777 777775 XX=XX+XX+1 9735 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9736 DMOVE AC,[200777,,-1 9737 040365 120 04 0 00 044203 -1,,-1] 9738 DFAD AC,[200777&XX,,-1 9739 040366 110 04 0 00 044441 -1,,-1] 9740 040367 312 04 0 00 044443 CAME AC,[201777&ZZ,,-1] 9741 040370 003 04 0 00 001470 ER3 AC,T 9742 040371 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9743 040372 004 05 0 00 001470 ER4 AC+1,T 9744 040373 321 10 0 00 040365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9745 9746 001471 T=T+1 9747 777777 777775 ZZ=XX 9748 777777 777773 XX=XX+XX+1 9749 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9750 DMOVE AC,[200777,,-1 9751 040374 120 04 0 00 044203 -1,,-1] 9752 DFAD AC,[200777&XX,,-1 9753 040375 110 04 0 00 044444 -1,,-1] 9754 040376 312 04 0 00 044446 CAME AC,[201777&ZZ,,-1] 9755 040377 003 04 0 00 001471 ER3 AC,T 9756 040400 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9757 040401 004 05 0 00 001471 ER4 AC+1,T 9758 040402 321 10 0 00 040374 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9759 9760 001472 T=T+1 9761 777777 777773 ZZ=XX 9762 777777 777767 XX=XX+XX+1 9763 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9764 DMOVE AC,[200777,,-1 9765 040403 120 04 0 00 044203 -1,,-1] 9766 DFAD AC,[200777&XX,,-1 9767 040404 110 04 0 00 044447 -1,,-1] 9768 040405 312 04 0 00 044451 CAME AC,[201777&ZZ,,-1] 9769 040406 003 04 0 00 001472 ER3 AC,T 9770 040407 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9771 040410 004 05 0 00 001472 ER4 AC+1,T 9772 040411 321 10 0 00 040403 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9773 9774 001473 T=T+1 9775 777777 777767 ZZ=XX 9776 777777 777757 XX=XX+XX+1 9777 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9778 DMOVE AC,[200777,,-1 9779 040412 120 04 0 00 044203 -1,,-1] 9780 DFAD AC,[200777&XX,,-1 9781 040413 110 04 0 00 044452 -1,,-1] 9782 040414 312 04 0 00 044454 CAME AC,[201777&ZZ,,-1] 9783 040415 003 04 0 00 001473 ER3 AC,T 9784 040416 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9785 040417 004 05 0 00 001473 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0203 9786 040420 321 10 0 00 040412 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9787 9788 001474 T=T+1 9789 777777 777757 ZZ=XX 9790 777777 777737 XX=XX+XX+1 9791 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9792 DMOVE AC,[200777,,-1 9793 040421 120 04 0 00 044203 -1,,-1] 9794 DFAD AC,[200777&XX,,-1 9795 040422 110 04 0 00 044455 -1,,-1] 9796 040423 312 04 0 00 044457 CAME AC,[201777&ZZ,,-1] 9797 040424 003 04 0 00 001474 ER3 AC,T 9798 040425 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9799 040426 004 05 0 00 001474 ER4 AC+1,T 9800 040427 321 10 0 00 040421 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9801 9802 001475 T=T+1 9803 777777 777737 ZZ=XX 9804 777777 777677 XX=XX+XX+1 9805 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9806 DMOVE AC,[200777,,-1 9807 040430 120 04 0 00 044203 -1,,-1] 9808 DFAD AC,[200777&XX,,-1 9809 040431 110 04 0 00 044460 -1,,-1] 9810 040432 312 04 0 00 044462 CAME AC,[201777&ZZ,,-1] 9811 040433 003 04 0 00 001475 ER3 AC,T 9812 040434 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9813 040435 004 05 0 00 001475 ER4 AC+1,T 9814 040436 321 10 0 00 040430 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9815 9816 001476 T=T+1 9817 777777 777677 ZZ=XX 9818 777777 777577 XX=XX+XX+1 9819 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9820 DMOVE AC,[200777,,-1 9821 040437 120 04 0 00 044203 -1,,-1] 9822 DFAD AC,[200777&XX,,-1 9823 040440 110 04 0 00 044463 -1,,-1] 9824 040441 312 04 0 00 044465 CAME AC,[201777&ZZ,,-1] 9825 040442 003 04 0 00 001476 ER3 AC,T 9826 040443 312 05 0 00 043631 CAME AC+1,[377777,,-1] 9827 040444 004 05 0 00 001476 ER4 AC+1,T 9828 040445 321 10 0 00 040437 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9829 9830 001477 T=T+1 9831 777777 777577 ZZ=XX 9832 777777 777377 XX=XX+XX+1 9833 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^ 9834 DMOVE AC,[200777,,-1 9835 040446 120 04 0 00 044203 -1,,-1] 9836 DFAD AC,[200777&XX,,-1 9837 040447 110 04 0 00 044466 -1,,-1] 9838 040450 312 04 0 00 044470 CAME AC,[201777&ZZ,,-1] 9839 040451 003 04 0 00 001477 ER3 AC,T 9840 040452 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0204 9841 040453 004 05 0 00 001477 ER4 AC+1,T 9842 040454 321 10 0 00 040446 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9843 9844 ;RIPPLE ZEROS TESTS (TO A RIPPLED ZERO, ADD A FRACTION OF ALL ONES) 9845 9846 001500 T=1500 9847 9848 000000 XX=0 9849 9850 R1500: REPEAT ^D18, 9851 9854 XX=XX+XX+1 9855 IFE , 9856 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ 9857 > 9858 001501 T=T+1 9859 000000 ZZ=XX 9860 777777 777777 IFE ZZ, 9861 000001 XX=XX+XX+1 9862 777777 777776 IFE , 9863 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9864 DMOVE AC,[200777,,-1 9865 040455 120 04 0 00 044240 -1,,XX] 9866 DFAD AC,[200777,,-1 9867 040456 110 04 0 00 044203 -1,,-1] 9868 040457 312 04 0 00 044242 CAME AC,[201777,,-1] 9869 040460 003 04 0 00 001501 ER3 AC,T 9870 040461 312 05 0 00 043631 CAME AC+1,[377777,,ZZ] 9871 040462 004 05 0 00 001501 ER4 AC+1,T 9872 040463 321 10 0 00 040455 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9873 9874 001502 T=T+1 9875 777777 777776 ZZ=XX 9876 IFE ZZ, 9877 777777 777775 XX=XX+XX+1 9878 IFE , 9879 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9880 DMOVE AC,[200777,,-1 9881 040464 120 04 0 00 044243 -1,,XX] 9882 DFAD AC,[200777,,-1 9883 040465 110 04 0 00 044203 -1,,-1] 9884 040466 312 04 0 00 044242 CAME AC,[201777,,-1] 9885 040467 003 04 0 00 001502 ER3 AC,T 9886 040470 312 05 0 00 043634 CAME AC+1,[377777,,ZZ] 9887 040471 004 05 0 00 001502 ER4 AC+1,T 9888 040472 321 10 0 00 040464 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9889 9890 001503 T=T+1 9891 777777 777775 ZZ=XX 9892 IFE ZZ, 9893 777777 777773 XX=XX+XX+1 9894 IFE , 9895 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0205 9896 DMOVE AC,[200777,,-1 9897 040473 120 04 0 00 044245 -1,,XX] 9898 DFAD AC,[200777,,-1 9899 040474 110 04 0 00 044203 -1,,-1] 9900 040475 312 04 0 00 044242 CAME AC,[201777,,-1] 9901 040476 003 04 0 00 001503 ER3 AC,T 9902 040477 312 05 0 00 043637 CAME AC+1,[377777,,ZZ] 9903 040500 004 05 0 00 001503 ER4 AC+1,T 9904 040501 321 10 0 00 040473 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9905 9906 001504 T=T+1 9907 777777 777773 ZZ=XX 9908 IFE ZZ, 9909 777777 777767 XX=XX+XX+1 9910 IFE , 9911 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9912 DMOVE AC,[200777,,-1 9913 040502 120 04 0 00 044247 -1,,XX] 9914 DFAD AC,[200777,,-1 9915 040503 110 04 0 00 044203 -1,,-1] 9916 040504 312 04 0 00 044242 CAME AC,[201777,,-1] 9917 040505 003 04 0 00 001504 ER3 AC,T 9918 040506 312 05 0 00 043642 CAME AC+1,[377777,,ZZ] 9919 040507 004 05 0 00 001504 ER4 AC+1,T 9920 040510 321 10 0 00 040502 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9921 9922 001505 T=T+1 9923 777777 777767 ZZ=XX 9924 IFE ZZ, 9925 777777 777757 XX=XX+XX+1 9926 IFE , 9927 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9928 DMOVE AC,[200777,,-1 9929 040511 120 04 0 00 044251 -1,,XX] 9930 DFAD AC,[200777,,-1 9931 040512 110 04 0 00 044203 -1,,-1] 9932 040513 312 04 0 00 044242 CAME AC,[201777,,-1] 9933 040514 003 04 0 00 001505 ER3 AC,T 9934 040515 312 05 0 00 043645 CAME AC+1,[377777,,ZZ] 9935 040516 004 05 0 00 001505 ER4 AC+1,T 9936 040517 321 10 0 00 040511 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9937 9938 001506 T=T+1 9939 777777 777757 ZZ=XX 9940 IFE ZZ, 9941 777777 777737 XX=XX+XX+1 9942 IFE , 9943 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9944 DMOVE AC,[200777,,-1 9945 040520 120 04 0 00 044253 -1,,XX] 9946 DFAD AC,[200777,,-1 9947 040521 110 04 0 00 044203 -1,,-1] 9948 040522 312 04 0 00 044242 CAME AC,[201777,,-1] 9949 040523 003 04 0 00 001506 ER3 AC,T 9950 040524 312 05 0 00 043650 CAME AC+1,[377777,,ZZ] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0206 9951 040525 004 05 0 00 001506 ER4 AC+1,T 9952 040526 321 10 0 00 040520 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9953 9954 001507 T=T+1 9955 777777 777737 ZZ=XX 9956 IFE ZZ, 9957 777777 777677 XX=XX+XX+1 9958 IFE , 9959 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9960 DMOVE AC,[200777,,-1 9961 040527 120 04 0 00 044255 -1,,XX] 9962 DFAD AC,[200777,,-1 9963 040530 110 04 0 00 044203 -1,,-1] 9964 040531 312 04 0 00 044242 CAME AC,[201777,,-1] 9965 040532 003 04 0 00 001507 ER3 AC,T 9966 040533 312 05 0 00 043653 CAME AC+1,[377777,,ZZ] 9967 040534 004 05 0 00 001507 ER4 AC+1,T 9968 040535 321 10 0 00 040527 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9969 9970 001510 T=T+1 9971 777777 777677 ZZ=XX 9972 IFE ZZ, 9973 777777 777577 XX=XX+XX+1 9974 IFE , 9975 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9976 DMOVE AC,[200777,,-1 9977 040536 120 04 0 00 044257 -1,,XX] 9978 DFAD AC,[200777,,-1 9979 040537 110 04 0 00 044203 -1,,-1] 9980 040540 312 04 0 00 044242 CAME AC,[201777,,-1] 9981 040541 003 04 0 00 001510 ER3 AC,T 9982 040542 312 05 0 00 043656 CAME AC+1,[377777,,ZZ] 9983 040543 004 05 0 00 001510 ER4 AC+1,T 9984 040544 321 10 0 00 040536 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 9985 9986 001511 T=T+1 9987 777777 777577 ZZ=XX 9988 IFE ZZ, 9989 777777 777377 XX=XX+XX+1 9990 IFE , 9991 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 9992 DMOVE AC,[200777,,-1 9993 040545 120 04 0 00 044261 -1,,XX] 9994 DFAD AC,[200777,,-1 9995 040546 110 04 0 00 044203 -1,,-1] 9996 040547 312 04 0 00 044242 CAME AC,[201777,,-1] 9997 040550 003 04 0 00 001511 ER3 AC,T 9998 040551 312 05 0 00 043661 CAME AC+1,[377777,,ZZ] 9999 040552 004 05 0 00 001511 ER4 AC+1,T 10000 040553 321 10 0 00 040545 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10001 10002 001512 T=T+1 10003 777777 777377 ZZ=XX 10004 IFE ZZ, 10005 777777 776777 XX=XX+XX+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0207 10006 IFE , 10007 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10008 DMOVE AC,[200777,,-1 10009 040554 120 04 0 00 044263 -1,,XX] 10010 DFAD AC,[200777,,-1 10011 040555 110 04 0 00 044203 -1,,-1] 10012 040556 312 04 0 00 044242 CAME AC,[201777,,-1] 10013 040557 003 04 0 00 001512 ER3 AC,T 10014 040560 312 05 0 00 043664 CAME AC+1,[377777,,ZZ] 10015 040561 004 05 0 00 001512 ER4 AC+1,T 10016 040562 321 10 0 00 040554 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10017 10018 001513 T=T+1 10019 777777 776777 ZZ=XX 10020 IFE ZZ, 10021 777777 775777 XX=XX+XX+1 10022 IFE , 10023 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10024 DMOVE AC,[200777,,-1 10025 040563 120 04 0 00 044265 -1,,XX] 10026 DFAD AC,[200777,,-1 10027 040564 110 04 0 00 044203 -1,,-1] 10028 040565 312 04 0 00 044242 CAME AC,[201777,,-1] 10029 040566 003 04 0 00 001513 ER3 AC,T 10030 040567 312 05 0 00 043667 CAME AC+1,[377777,,ZZ] 10031 040570 004 05 0 00 001513 ER4 AC+1,T 10032 040571 321 10 0 00 040563 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10033 10034 001514 T=T+1 10035 777777 775777 ZZ=XX 10036 IFE ZZ, 10037 777777 773777 XX=XX+XX+1 10038 IFE , 10039 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10040 DMOVE AC,[200777,,-1 10041 040572 120 04 0 00 044267 -1,,XX] 10042 DFAD AC,[200777,,-1 10043 040573 110 04 0 00 044203 -1,,-1] 10044 040574 312 04 0 00 044242 CAME AC,[201777,,-1] 10045 040575 003 04 0 00 001514 ER3 AC,T 10046 040576 312 05 0 00 043672 CAME AC+1,[377777,,ZZ] 10047 040577 004 05 0 00 001514 ER4 AC+1,T 10048 040600 321 10 0 00 040572 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10049 10050 001515 T=T+1 10051 777777 773777 ZZ=XX 10052 IFE ZZ, 10053 777777 767777 XX=XX+XX+1 10054 IFE , 10055 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10056 DMOVE AC,[200777,,-1 10057 040601 120 04 0 00 044271 -1,,XX] 10058 DFAD AC,[200777,,-1 10059 040602 110 04 0 00 044203 -1,,-1] 10060 040603 312 04 0 00 044242 CAME AC,[201777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0208 10061 040604 003 04 0 00 001515 ER3 AC,T 10062 040605 312 05 0 00 043675 CAME AC+1,[377777,,ZZ] 10063 040606 004 05 0 00 001515 ER4 AC+1,T 10064 040607 321 10 0 00 040601 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10065 10066 001516 T=T+1 10067 777777 767777 ZZ=XX 10068 IFE ZZ, 10069 777777 757777 XX=XX+XX+1 10070 IFE , 10071 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10072 DMOVE AC,[200777,,-1 10073 040610 120 04 0 00 044273 -1,,XX] 10074 DFAD AC,[200777,,-1 10075 040611 110 04 0 00 044203 -1,,-1] 10076 040612 312 04 0 00 044242 CAME AC,[201777,,-1] 10077 040613 003 04 0 00 001516 ER3 AC,T 10078 040614 312 05 0 00 043700 CAME AC+1,[377777,,ZZ] 10079 040615 004 05 0 00 001516 ER4 AC+1,T 10080 040616 321 10 0 00 040610 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10081 10082 001517 T=T+1 10083 777777 757777 ZZ=XX 10084 IFE ZZ, 10085 777777 737777 XX=XX+XX+1 10086 IFE , 10087 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10088 DMOVE AC,[200777,,-1 10089 040617 120 04 0 00 044275 -1,,XX] 10090 DFAD AC,[200777,,-1 10091 040620 110 04 0 00 044203 -1,,-1] 10092 040621 312 04 0 00 044242 CAME AC,[201777,,-1] 10093 040622 003 04 0 00 001517 ER3 AC,T 10094 040623 312 05 0 00 043703 CAME AC+1,[377777,,ZZ] 10095 040624 004 05 0 00 001517 ER4 AC+1,T 10096 040625 321 10 0 00 040617 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10097 10098 001520 T=T+1 10099 777777 737777 ZZ=XX 10100 IFE ZZ, 10101 777777 677777 XX=XX+XX+1 10102 IFE , 10103 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10104 DMOVE AC,[200777,,-1 10105 040626 120 04 0 00 044277 -1,,XX] 10106 DFAD AC,[200777,,-1 10107 040627 110 04 0 00 044203 -1,,-1] 10108 040630 312 04 0 00 044242 CAME AC,[201777,,-1] 10109 040631 003 04 0 00 001520 ER3 AC,T 10110 040632 312 05 0 00 043706 CAME AC+1,[377777,,ZZ] 10111 040633 004 05 0 00 001520 ER4 AC+1,T 10112 040634 321 10 0 00 040626 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10113 10114 001521 T=T+1 10115 777777 677777 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0209 10116 IFE ZZ, 10117 777777 577777 XX=XX+XX+1 10118 IFE , 10119 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10120 DMOVE AC,[200777,,-1 10121 040635 120 04 0 00 044301 -1,,XX] 10122 DFAD AC,[200777,,-1 10123 040636 110 04 0 00 044203 -1,,-1] 10124 040637 312 04 0 00 044242 CAME AC,[201777,,-1] 10125 040640 003 04 0 00 001521 ER3 AC,T 10126 040641 312 05 0 00 043711 CAME AC+1,[377777,,ZZ] 10127 040642 004 05 0 00 001521 ER4 AC+1,T 10128 040643 321 10 0 00 040635 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10129 10130 001522 T=T+1 10131 777777 577777 ZZ=XX 10132 IFE ZZ, 10133 777777 377777 XX=XX+XX+1 10134 IFE , 10135 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10136 DMOVE AC,[200777,,-1 10137 040644 120 04 0 00 044303 -1,,XX] 10138 DFAD AC,[200777,,-1 10139 040645 110 04 0 00 044203 -1,,-1] 10140 040646 312 04 0 00 044242 CAME AC,[201777,,-1] 10141 040647 003 04 0 00 001522 ER3 AC,T 10142 040650 312 05 0 00 043714 CAME AC+1,[377777,,ZZ] 10143 040651 004 05 0 00 001522 ER4 AC+1,T 10144 040652 321 10 0 00 040644 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10145 10146 10147 001523 T=T+1 10148 777777 377777 ZZ=XX 10149 777777 777776 XX=-2 10150 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,377777,ZZ^ 10151 DMOVE AC,[200777,,-1 10152 040653 120 04 0 00 044305 XX,,-1] 10153 DFAD AC,[200777,,-1 10154 040654 110 04 0 00 044203 -1,,-1] 10155 040655 312 04 0 00 044242 CAME AC,[201777,,-1] 10156 040656 003 04 0 00 001523 ER3 AC,T 10157 040657 312 05 0 00 043717 CAME AC+1,[377777,,ZZ] 10158 040660 004 05 0 00 001523 ER4 AC+1,T 10159 040661 321 10 0 00 040653 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10160 10161 REPEAT ^D16, 10162 10167 001524 T=T+1 10168 777777 777776 ZZ=XX 10169 777777 777775 XX=XX+XX+1 10170 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0210 10171 DMOVE AC,[200777,,-1 10172 040662 120 04 0 00 044307 XX,,-1] 10173 DFAD AC,[200777,,-1 10174 040663 110 04 0 00 044203 -1,,-1] 10175 040664 312 04 0 00 044242 CAME AC,[201777,,-1] 10176 040665 003 04 0 00 001524 ER3 AC,T 10177 040666 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1] 10178 040667 004 05 0 00 001524 ER4 AC+1,T 10179 040670 321 10 0 00 040662 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10180 10181 001525 T=T+1 10182 777777 777775 ZZ=XX 10183 777777 777773 XX=XX+XX+1 10184 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10185 DMOVE AC,[200777,,-1 10186 040671 120 04 0 00 044311 XX,,-1] 10187 DFAD AC,[200777,,-1 10188 040672 110 04 0 00 044203 -1,,-1] 10189 040673 312 04 0 00 044242 CAME AC,[201777,,-1] 10190 040674 003 04 0 00 001525 ER3 AC,T 10191 040675 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1] 10192 040676 004 05 0 00 001525 ER4 AC+1,T 10193 040677 321 10 0 00 040671 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10194 10195 001526 T=T+1 10196 777777 777773 ZZ=XX 10197 777777 777767 XX=XX+XX+1 10198 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10199 DMOVE AC,[200777,,-1 10200 040700 120 04 0 00 044313 XX,,-1] 10201 DFAD AC,[200777,,-1 10202 040701 110 04 0 00 044203 -1,,-1] 10203 040702 312 04 0 00 044242 CAME AC,[201777,,-1] 10204 040703 003 04 0 00 001526 ER3 AC,T 10205 040704 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1] 10206 040705 004 05 0 00 001526 ER4 AC+1,T 10207 040706 321 10 0 00 040700 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10208 10209 001527 T=T+1 10210 777777 777767 ZZ=XX 10211 777777 777757 XX=XX+XX+1 10212 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10213 DMOVE AC,[200777,,-1 10214 040707 120 04 0 00 044315 XX,,-1] 10215 DFAD AC,[200777,,-1 10216 040710 110 04 0 00 044203 -1,,-1] 10217 040711 312 04 0 00 044242 CAME AC,[201777,,-1] 10218 040712 003 04 0 00 001527 ER3 AC,T 10219 040713 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1] 10220 040714 004 05 0 00 001527 ER4 AC+1,T 10221 040715 321 10 0 00 040707 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10222 10223 001530 T=T+1 10224 777777 777757 ZZ=XX 10225 777777 777737 XX=XX+XX+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0211 10226 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10227 DMOVE AC,[200777,,-1 10228 040716 120 04 0 00 044317 XX,,-1] 10229 DFAD AC,[200777,,-1 10230 040717 110 04 0 00 044203 -1,,-1] 10231 040720 312 04 0 00 044242 CAME AC,[201777,,-1] 10232 040721 003 04 0 00 001530 ER3 AC,T 10233 040722 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1] 10234 040723 004 05 0 00 001530 ER4 AC+1,T 10235 040724 321 10 0 00 040716 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10236 10237 001531 T=T+1 10238 777777 777737 ZZ=XX 10239 777777 777677 XX=XX+XX+1 10240 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10241 DMOVE AC,[200777,,-1 10242 040725 120 04 0 00 044321 XX,,-1] 10243 DFAD AC,[200777,,-1 10244 040726 110 04 0 00 044203 -1,,-1] 10245 040727 312 04 0 00 044242 CAME AC,[201777,,-1] 10246 040730 003 04 0 00 001531 ER3 AC,T 10247 040731 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1] 10248 040732 004 05 0 00 001531 ER4 AC+1,T 10249 040733 321 10 0 00 040725 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10250 10251 001532 T=T+1 10252 777777 777677 ZZ=XX 10253 777777 777577 XX=XX+XX+1 10254 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10255 DMOVE AC,[200777,,-1 10256 040734 120 04 0 00 044323 XX,,-1] 10257 DFAD AC,[200777,,-1 10258 040735 110 04 0 00 044203 -1,,-1] 10259 040736 312 04 0 00 044242 CAME AC,[201777,,-1] 10260 040737 003 04 0 00 001532 ER3 AC,T 10261 040740 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1] 10262 040741 004 05 0 00 001532 ER4 AC+1,T 10263 040742 321 10 0 00 040734 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10264 10265 001533 T=T+1 10266 777777 777577 ZZ=XX 10267 777777 777377 XX=XX+XX+1 10268 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10269 DMOVE AC,[200777,,-1 10270 040743 120 04 0 00 044325 XX,,-1] 10271 DFAD AC,[200777,,-1 10272 040744 110 04 0 00 044203 -1,,-1] 10273 040745 312 04 0 00 044242 CAME AC,[201777,,-1] 10274 040746 003 04 0 00 001533 ER3 AC,T 10275 040747 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1] 10276 040750 004 05 0 00 001533 ER4 AC+1,T 10277 040751 321 10 0 00 040743 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10278 10279 001534 T=T+1 10280 777777 777377 ZZ=XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0212 10281 777777 776777 XX=XX+XX+1 10282 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10283 DMOVE AC,[200777,,-1 10284 040752 120 04 0 00 044327 XX,,-1] 10285 DFAD AC,[200777,,-1 10286 040753 110 04 0 00 044203 -1,,-1] 10287 040754 312 04 0 00 044242 CAME AC,[201777,,-1] 10288 040755 003 04 0 00 001534 ER3 AC,T 10289 040756 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1] 10290 040757 004 05 0 00 001534 ER4 AC+1,T 10291 040760 321 10 0 00 040752 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10292 10293 001535 T=T+1 10294 777777 776777 ZZ=XX 10295 777777 775777 XX=XX+XX+1 10296 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10297 DMOVE AC,[200777,,-1 10298 040761 120 04 0 00 044331 XX,,-1] 10299 DFAD AC,[200777,,-1 10300 040762 110 04 0 00 044203 -1,,-1] 10301 040763 312 04 0 00 044242 CAME AC,[201777,,-1] 10302 040764 003 04 0 00 001535 ER3 AC,T 10303 040765 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1] 10304 040766 004 05 0 00 001535 ER4 AC+1,T 10305 040767 321 10 0 00 040761 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10306 10307 001536 T=T+1 10308 777777 775777 ZZ=XX 10309 777777 773777 XX=XX+XX+1 10310 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10311 DMOVE AC,[200777,,-1 10312 040770 120 04 0 00 044333 XX,,-1] 10313 DFAD AC,[200777,,-1 10314 040771 110 04 0 00 044203 -1,,-1] 10315 040772 312 04 0 00 044242 CAME AC,[201777,,-1] 10316 040773 003 04 0 00 001536 ER3 AC,T 10317 040774 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1] 10318 040775 004 05 0 00 001536 ER4 AC+1,T 10319 040776 321 10 0 00 040770 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10320 10321 001537 T=T+1 10322 777777 773777 ZZ=XX 10323 777777 767777 XX=XX+XX+1 10324 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10325 DMOVE AC,[200777,,-1 10326 040777 120 04 0 00 044335 XX,,-1] 10327 DFAD AC,[200777,,-1 10328 041000 110 04 0 00 044203 -1,,-1] 10329 041001 312 04 0 00 044242 CAME AC,[201777,,-1] 10330 041002 003 04 0 00 001537 ER3 AC,T 10331 041003 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1] 10332 041004 004 05 0 00 001537 ER4 AC+1,T 10333 041005 321 10 0 00 040777 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10334 10335 001540 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0213 10336 777777 767777 ZZ=XX 10337 777777 757777 XX=XX+XX+1 10338 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10339 DMOVE AC,[200777,,-1 10340 041006 120 04 0 00 044337 XX,,-1] 10341 DFAD AC,[200777,,-1 10342 041007 110 04 0 00 044203 -1,,-1] 10343 041010 312 04 0 00 044242 CAME AC,[201777,,-1] 10344 041011 003 04 0 00 001540 ER3 AC,T 10345 041012 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1] 10346 041013 004 05 0 00 001540 ER4 AC+1,T 10347 041014 321 10 0 00 041006 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10348 10349 001541 T=T+1 10350 777777 757777 ZZ=XX 10351 777777 737777 XX=XX+XX+1 10352 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10353 DMOVE AC,[200777,,-1 10354 041015 120 04 0 00 044341 XX,,-1] 10355 DFAD AC,[200777,,-1 10356 041016 110 04 0 00 044203 -1,,-1] 10357 041017 312 04 0 00 044242 CAME AC,[201777,,-1] 10358 041020 003 04 0 00 001541 ER3 AC,T 10359 041021 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1] 10360 041022 004 05 0 00 001541 ER4 AC+1,T 10361 041023 321 10 0 00 041015 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10362 10363 001542 T=T+1 10364 777777 737777 ZZ=XX 10365 777777 677777 XX=XX+XX+1 10366 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10367 DMOVE AC,[200777,,-1 10368 041024 120 04 0 00 044343 XX,,-1] 10369 DFAD AC,[200777,,-1 10370 041025 110 04 0 00 044203 -1,,-1] 10371 041026 312 04 0 00 044242 CAME AC,[201777,,-1] 10372 041027 003 04 0 00 001542 ER3 AC,T 10373 041030 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1] 10374 041031 004 05 0 00 001542 ER4 AC+1,T 10375 041032 321 10 0 00 041024 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10376 10377 001543 T=T+1 10378 777777 677777 ZZ=XX 10379 777777 577777 XX=XX+XX+1 10380 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^ 10381 DMOVE AC,[200777,,-1 10382 041033 120 04 0 00 044345 XX,,-1] 10383 DFAD AC,[200777,,-1 10384 041034 110 04 0 00 044203 -1,,-1] 10385 041035 312 04 0 00 044242 CAME AC,[201777,,-1] 10386 041036 003 04 0 00 001543 ER3 AC,T 10387 041037 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1] 10388 041040 004 05 0 00 001543 ER4 AC+1,T 10389 041041 321 10 0 00 041033 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10390 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0214 10391 10392 001544 T=T+1 10393 777777 377777 XX=XX+XX+1 10394 777777 377777 ZZ=XX 10395 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ,-1^ 10396 DMOVE AC,[200777,,-1 10397 041042 120 04 0 00 044347 XX,,-1] 10398 DFAD AC,[200777,,-1 10399 041043 110 04 0 00 044203 -1,,-1] 10400 041044 312 04 0 00 044242 CAME AC,[201777,,-1] 10401 041045 003 04 0 00 001544 ER3 AC,T 10402 041046 312 05 0 00 043631 CAME AC+1,[ZZ,,-1] 10403 041047 004 05 0 00 001544 ER4 AC+1,T 10404 041050 321 10 0 00 041042 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10405 10406 001545 T=T+1 10407 177777 ZZ=XX&177777 10408 777777 777776 XX=-2 10409 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,-1,ZZ,-1^ 10410 DMOVE AC,[200777,,XX 10411 041051 120 04 0 00 044351 -1,,-1] 10412 DFAD AC,[200777,,-1 10413 041052 110 04 0 00 044203 -1,,-1] 10414 041053 312 04 0 00 044242 CAME AC,[201777,,-1] 10415 041054 003 04 0 00 001545 ER3 AC,T 10416 041055 312 05 0 00 044002 CAME AC+1,[ZZ,,-1] 10417 041056 004 05 0 00 001545 ER4 AC+1,T 10418 041057 321 10 0 00 041051 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10419 10420 REPEAT ^D17, 10421 10426 001546 T=T+1 10427 777777 777776 ZZ=XX 10428 777777 777775 XX=XX+XX+1 10429 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10430 DMOVE AC,[200777,,XX 10431 041060 120 04 0 00 044353 -1,,-1] 10432 DFAD AC,[200777,,-1 10433 041061 110 04 0 00 044203 -1,,-1] 10434 041062 312 04 0 00 044355 CAME AC,[201777,,ZZ] 10435 041063 003 04 0 00 001546 ER3 AC,T 10436 041064 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10437 041065 004 05 0 00 001546 ER4 AC+1,T 10438 041066 321 10 0 00 041060 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10439 10440 001547 T=T+1 10441 777777 777775 ZZ=XX 10442 777777 777773 XX=XX+XX+1 10443 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10444 DMOVE AC,[200777,,XX 10445 041067 120 04 0 00 044356 -1,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0215 10446 DFAD AC,[200777,,-1 10447 041070 110 04 0 00 044203 -1,,-1] 10448 041071 312 04 0 00 044360 CAME AC,[201777,,ZZ] 10449 041072 003 04 0 00 001547 ER3 AC,T 10450 041073 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10451 041074 004 05 0 00 001547 ER4 AC+1,T 10452 041075 321 10 0 00 041067 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10453 10454 001550 T=T+1 10455 777777 777773 ZZ=XX 10456 777777 777767 XX=XX+XX+1 10457 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10458 DMOVE AC,[200777,,XX 10459 041076 120 04 0 00 044361 -1,,-1] 10460 DFAD AC,[200777,,-1 10461 041077 110 04 0 00 044203 -1,,-1] 10462 041100 312 04 0 00 044363 CAME AC,[201777,,ZZ] 10463 041101 003 04 0 00 001550 ER3 AC,T 10464 041102 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10465 041103 004 05 0 00 001550 ER4 AC+1,T 10466 041104 321 10 0 00 041076 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10467 10468 001551 T=T+1 10469 777777 777767 ZZ=XX 10470 777777 777757 XX=XX+XX+1 10471 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10472 DMOVE AC,[200777,,XX 10473 041105 120 04 0 00 044364 -1,,-1] 10474 DFAD AC,[200777,,-1 10475 041106 110 04 0 00 044203 -1,,-1] 10476 041107 312 04 0 00 044366 CAME AC,[201777,,ZZ] 10477 041110 003 04 0 00 001551 ER3 AC,T 10478 041111 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10479 041112 004 05 0 00 001551 ER4 AC+1,T 10480 041113 321 10 0 00 041105 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10481 10482 001552 T=T+1 10483 777777 777757 ZZ=XX 10484 777777 777737 XX=XX+XX+1 10485 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10486 DMOVE AC,[200777,,XX 10487 041114 120 04 0 00 044367 -1,,-1] 10488 DFAD AC,[200777,,-1 10489 041115 110 04 0 00 044203 -1,,-1] 10490 041116 312 04 0 00 044371 CAME AC,[201777,,ZZ] 10491 041117 003 04 0 00 001552 ER3 AC,T 10492 041120 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10493 041121 004 05 0 00 001552 ER4 AC+1,T 10494 041122 321 10 0 00 041114 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10495 10496 001553 T=T+1 10497 777777 777737 ZZ=XX 10498 777777 777677 XX=XX+XX+1 10499 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10500 DMOVE AC,[200777,,XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0216 10501 041123 120 04 0 00 044372 -1,,-1] 10502 DFAD AC,[200777,,-1 10503 041124 110 04 0 00 044203 -1,,-1] 10504 041125 312 04 0 00 044374 CAME AC,[201777,,ZZ] 10505 041126 003 04 0 00 001553 ER3 AC,T 10506 041127 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10507 041130 004 05 0 00 001553 ER4 AC+1,T 10508 041131 321 10 0 00 041123 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10509 10510 001554 T=T+1 10511 777777 777677 ZZ=XX 10512 777777 777577 XX=XX+XX+1 10513 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10514 DMOVE AC,[200777,,XX 10515 041132 120 04 0 00 044375 -1,,-1] 10516 DFAD AC,[200777,,-1 10517 041133 110 04 0 00 044203 -1,,-1] 10518 041134 312 04 0 00 044377 CAME AC,[201777,,ZZ] 10519 041135 003 04 0 00 001554 ER3 AC,T 10520 041136 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10521 041137 004 05 0 00 001554 ER4 AC+1,T 10522 041140 321 10 0 00 041132 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10523 10524 001555 T=T+1 10525 777777 777577 ZZ=XX 10526 777777 777377 XX=XX+XX+1 10527 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10528 DMOVE AC,[200777,,XX 10529 041141 120 04 0 00 044400 -1,,-1] 10530 DFAD AC,[200777,,-1 10531 041142 110 04 0 00 044203 -1,,-1] 10532 041143 312 04 0 00 044402 CAME AC,[201777,,ZZ] 10533 041144 003 04 0 00 001555 ER3 AC,T 10534 041145 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10535 041146 004 05 0 00 001555 ER4 AC+1,T 10536 041147 321 10 0 00 041141 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10537 10538 001556 T=T+1 10539 777777 777377 ZZ=XX 10540 777777 776777 XX=XX+XX+1 10541 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10542 DMOVE AC,[200777,,XX 10543 041150 120 04 0 00 044403 -1,,-1] 10544 DFAD AC,[200777,,-1 10545 041151 110 04 0 00 044203 -1,,-1] 10546 041152 312 04 0 00 044405 CAME AC,[201777,,ZZ] 10547 041153 003 04 0 00 001556 ER3 AC,T 10548 041154 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10549 041155 004 05 0 00 001556 ER4 AC+1,T 10550 041156 321 10 0 00 041150 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10551 10552 001557 T=T+1 10553 777777 776777 ZZ=XX 10554 777777 775777 XX=XX+XX+1 10555 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0217 10556 DMOVE AC,[200777,,XX 10557 041157 120 04 0 00 044406 -1,,-1] 10558 DFAD AC,[200777,,-1 10559 041160 110 04 0 00 044203 -1,,-1] 10560 041161 312 04 0 00 044410 CAME AC,[201777,,ZZ] 10561 041162 003 04 0 00 001557 ER3 AC,T 10562 041163 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10563 041164 004 05 0 00 001557 ER4 AC+1,T 10564 041165 321 10 0 00 041157 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10565 10566 001560 T=T+1 10567 777777 775777 ZZ=XX 10568 777777 773777 XX=XX+XX+1 10569 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10570 DMOVE AC,[200777,,XX 10571 041166 120 04 0 00 044411 -1,,-1] 10572 DFAD AC,[200777,,-1 10573 041167 110 04 0 00 044203 -1,,-1] 10574 041170 312 04 0 00 044413 CAME AC,[201777,,ZZ] 10575 041171 003 04 0 00 001560 ER3 AC,T 10576 041172 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10577 041173 004 05 0 00 001560 ER4 AC+1,T 10578 041174 321 10 0 00 041166 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10579 10580 001561 T=T+1 10581 777777 773777 ZZ=XX 10582 777777 767777 XX=XX+XX+1 10583 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10584 DMOVE AC,[200777,,XX 10585 041175 120 04 0 00 044414 -1,,-1] 10586 DFAD AC,[200777,,-1 10587 041176 110 04 0 00 044203 -1,,-1] 10588 041177 312 04 0 00 044416 CAME AC,[201777,,ZZ] 10589 041200 003 04 0 00 001561 ER3 AC,T 10590 041201 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10591 041202 004 05 0 00 001561 ER4 AC+1,T 10592 041203 321 10 0 00 041175 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10593 10594 001562 T=T+1 10595 777777 767777 ZZ=XX 10596 777777 757777 XX=XX+XX+1 10597 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10598 DMOVE AC,[200777,,XX 10599 041204 120 04 0 00 044417 -1,,-1] 10600 DFAD AC,[200777,,-1 10601 041205 110 04 0 00 044203 -1,,-1] 10602 041206 312 04 0 00 044421 CAME AC,[201777,,ZZ] 10603 041207 003 04 0 00 001562 ER3 AC,T 10604 041210 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10605 041211 004 05 0 00 001562 ER4 AC+1,T 10606 041212 321 10 0 00 041204 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10607 10608 001563 T=T+1 10609 777777 757777 ZZ=XX 10610 777777 737777 XX=XX+XX+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0218 10611 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10612 DMOVE AC,[200777,,XX 10613 041213 120 04 0 00 044422 -1,,-1] 10614 DFAD AC,[200777,,-1 10615 041214 110 04 0 00 044203 -1,,-1] 10616 041215 312 04 0 00 044424 CAME AC,[201777,,ZZ] 10617 041216 003 04 0 00 001563 ER3 AC,T 10618 041217 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10619 041220 004 05 0 00 001563 ER4 AC+1,T 10620 041221 321 10 0 00 041213 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10621 10622 001564 T=T+1 10623 777777 737777 ZZ=XX 10624 777777 677777 XX=XX+XX+1 10625 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10626 DMOVE AC,[200777,,XX 10627 041222 120 04 0 00 044425 -1,,-1] 10628 DFAD AC,[200777,,-1 10629 041223 110 04 0 00 044203 -1,,-1] 10630 041224 312 04 0 00 044427 CAME AC,[201777,,ZZ] 10631 041225 003 04 0 00 001564 ER3 AC,T 10632 041226 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10633 041227 004 05 0 00 001564 ER4 AC+1,T 10634 041230 321 10 0 00 041222 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10635 10636 001565 T=T+1 10637 777777 677777 ZZ=XX 10638 777777 577777 XX=XX+XX+1 10639 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10640 DMOVE AC,[200777,,XX 10641 041231 120 04 0 00 044430 -1,,-1] 10642 DFAD AC,[200777,,-1 10643 041232 110 04 0 00 044203 -1,,-1] 10644 041233 312 04 0 00 044432 CAME AC,[201777,,ZZ] 10645 041234 003 04 0 00 001565 ER3 AC,T 10646 041235 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10647 041236 004 05 0 00 001565 ER4 AC+1,T 10648 041237 321 10 0 00 041231 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10649 10650 001566 T=T+1 10651 777777 577777 ZZ=XX 10652 777777 377777 XX=XX+XX+1 10653 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10654 DMOVE AC,[200777,,XX 10655 041240 120 04 0 00 044433 -1,,-1] 10656 DFAD AC,[200777,,-1 10657 041241 110 04 0 00 044203 -1,,-1] 10658 041242 312 04 0 00 044435 CAME AC,[201777,,ZZ] 10659 041243 003 04 0 00 001566 ER3 AC,T 10660 041244 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10661 041245 004 05 0 00 001566 ER4 AC+1,T 10662 041246 321 10 0 00 041240 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10663 10664 10665 001567 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0219 10666 777777 377777 ZZ=XX 10667 777777 777776 XX=-2 10668 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^ 10669 DMOVE AC,[200777&XX,,-1 10670 041247 120 04 0 00 044436 -1,,-1] 10671 DFAD AC,[200777,,-1 10672 041250 110 04 0 00 044203 -1,,-1] 10673 041251 312 04 0 00 044440 CAME AC,[201777,,ZZ] 10674 041252 003 04 0 00 001567 ER3 AC,T 10675 041253 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10676 041254 004 05 0 00 001567 ER4 AC+1,T 10677 041255 321 10 0 00 041247 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10678 10679 REPEAT ^D8, 10680 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0220 10685 001570 T=T+1 10686 777777 777776 ZZ=XX 10687 777777 777775 XX=XX+XX+1 10688 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10689 DMOVE AC,[200777&XX,,-1 10690 041256 120 04 0 00 044441 -1,,-1] 10691 DFAD AC,[200777,,-1 10692 041257 110 04 0 00 044203 -1,,-1] 10693 041260 312 04 0 00 044443 CAME AC,[201777&ZZ,,-1] 10694 041261 003 04 0 00 001570 ER3 AC,T 10695 041262 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10696 041263 004 05 0 00 001570 ER4 AC+1,T 10697 041264 321 10 0 00 041256 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10698 10699 001571 T=T+1 10700 777777 777775 ZZ=XX 10701 777777 777773 XX=XX+XX+1 10702 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10703 DMOVE AC,[200777&XX,,-1 10704 041265 120 04 0 00 044444 -1,,-1] 10705 DFAD AC,[200777,,-1 10706 041266 110 04 0 00 044203 -1,,-1] 10707 041267 312 04 0 00 044446 CAME AC,[201777&ZZ,,-1] 10708 041270 003 04 0 00 001571 ER3 AC,T 10709 041271 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10710 041272 004 05 0 00 001571 ER4 AC+1,T 10711 041273 321 10 0 00 041265 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10712 10713 001572 T=T+1 10714 777777 777773 ZZ=XX 10715 777777 777767 XX=XX+XX+1 10716 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10717 DMOVE AC,[200777&XX,,-1 10718 041274 120 04 0 00 044447 -1,,-1] 10719 DFAD AC,[200777,,-1 10720 041275 110 04 0 00 044203 -1,,-1] 10721 041276 312 04 0 00 044451 CAME AC,[201777&ZZ,,-1] 10722 041277 003 04 0 00 001572 ER3 AC,T 10723 041300 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10724 041301 004 05 0 00 001572 ER4 AC+1,T 10725 041302 321 10 0 00 041274 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10726 10727 001573 T=T+1 10728 777777 777767 ZZ=XX 10729 777777 777757 XX=XX+XX+1 10730 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10731 DMOVE AC,[200777&XX,,-1 10732 041303 120 04 0 00 044452 -1,,-1] 10733 DFAD AC,[200777,,-1 10734 041304 110 04 0 00 044203 -1,,-1] 10735 041305 312 04 0 00 044454 CAME AC,[201777&ZZ,,-1] 10736 041306 003 04 0 00 001573 ER3 AC,T 10737 041307 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10738 041310 004 05 0 00 001573 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0221 10739 041311 321 10 0 00 041303 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10740 10741 001574 T=T+1 10742 777777 777757 ZZ=XX 10743 777777 777737 XX=XX+XX+1 10744 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10745 DMOVE AC,[200777&XX,,-1 10746 041312 120 04 0 00 044455 -1,,-1] 10747 DFAD AC,[200777,,-1 10748 041313 110 04 0 00 044203 -1,,-1] 10749 041314 312 04 0 00 044457 CAME AC,[201777&ZZ,,-1] 10750 041315 003 04 0 00 001574 ER3 AC,T 10751 041316 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10752 041317 004 05 0 00 001574 ER4 AC+1,T 10753 041320 321 10 0 00 041312 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10754 10755 001575 T=T+1 10756 777777 777737 ZZ=XX 10757 777777 777677 XX=XX+XX+1 10758 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10759 DMOVE AC,[200777&XX,,-1 10760 041321 120 04 0 00 044460 -1,,-1] 10761 DFAD AC,[200777,,-1 10762 041322 110 04 0 00 044203 -1,,-1] 10763 041323 312 04 0 00 044462 CAME AC,[201777&ZZ,,-1] 10764 041324 003 04 0 00 001575 ER3 AC,T 10765 041325 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10766 041326 004 05 0 00 001575 ER4 AC+1,T 10767 041327 321 10 0 00 041321 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10768 10769 001576 T=T+1 10770 777777 777677 ZZ=XX 10771 777777 777577 XX=XX+XX+1 10772 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10773 DMOVE AC,[200777&XX,,-1 10774 041330 120 04 0 00 044463 -1,,-1] 10775 DFAD AC,[200777,,-1 10776 041331 110 04 0 00 044203 -1,,-1] 10777 041332 312 04 0 00 044465 CAME AC,[201777&ZZ,,-1] 10778 041333 003 04 0 00 001576 ER3 AC,T 10779 041334 312 05 0 00 043631 CAME AC+1,[377777,,-1] 10780 041335 004 05 0 00 001576 ER4 AC+1,T 10781 041336 321 10 0 00 041330 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10782 10783 001577 T=T+1 10784 777777 777577 ZZ=XX 10785 777777 777377 XX=XX+XX+1 10786 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^ 10787 DMOVE AC,[200777&XX,,-1 10788 041337 120 04 0 00 044466 -1,,-1] 10789 DFAD AC,[200777,,-1 10790 041340 110 04 0 00 044203 -1,,-1] 10791 041341 312 04 0 00 044470 CAME AC,[201777&ZZ,,-1] 10792 041342 003 04 0 00 001577 ER3 AC,T 10793 041343 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0222 10794 041344 004 05 0 00 001577 ER4 AC+1,T 10795 041345 321 10 0 00 041337 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10796 10797 10798 ;RIPPLE ONES TESTS (ADD A FRACTION OF A RIPPLED ONE TO SAME) 10799 10800 001600 T=1600 10801 000000 XX=0 10802 103400 ZZ=103400 10803 10804 R1600: REPEAT ^D18, 10805 10808 ZZ=ZZ+1000 10809 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0 10810 > 10811 001601 T=T+1 10812 000000 XX=XX+XX 10813 000001 IFE XX, 10814 104400 ZZ=ZZ+1000 10815 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10816 DMOVE AC,[200000,,0 10817 041346 120 04 0 00 043624 0,,XX] 10818 DFAD AC,[200000,,0 10819 041347 110 04 0 00 043624 0,,XX] 10820 041350 312 04 0 00 043623 CAME AC,[ZZ,,0] 10821 041351 003 04 0 00 001601 ER3 AC,T 10822 041352 312 05 0 00 043330 CAME AC+1,[0,,0] 10823 041353 004 05 0 00 001601 ER4 AC+1,T 10824 041354 321 10 0 00 041346 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10825 10826 001602 T=T+1 10827 000002 XX=XX+XX 10828 IFE XX, 10829 105400 ZZ=ZZ+1000 10830 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10831 DMOVE AC,[200000,,0 10832 041355 120 04 0 00 043621 0,,XX] 10833 DFAD AC,[200000,,0 10834 041356 110 04 0 00 043621 0,,XX] 10835 041357 312 04 0 00 043620 CAME AC,[ZZ,,0] 10836 041360 003 04 0 00 001602 ER3 AC,T 10837 041361 312 05 0 00 043330 CAME AC+1,[0,,0] 10838 041362 004 05 0 00 001602 ER4 AC+1,T 10839 041363 321 10 0 00 041355 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10840 10841 001603 T=T+1 10842 000004 XX=XX+XX 10843 IFE XX, 10844 106400 ZZ=ZZ+1000 10845 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10846 DMOVE AC,[200000,,0 10847 041364 120 04 0 00 043616 0,,XX] 10848 DFAD AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0223 10849 041365 110 04 0 00 043616 0,,XX] 10850 041366 312 04 0 00 043615 CAME AC,[ZZ,,0] 10851 041367 003 04 0 00 001603 ER3 AC,T 10852 041370 312 05 0 00 043330 CAME AC+1,[0,,0] 10853 041371 004 05 0 00 001603 ER4 AC+1,T 10854 041372 321 10 0 00 041364 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10855 10856 001604 T=T+1 10857 000010 XX=XX+XX 10858 IFE XX, 10859 107400 ZZ=ZZ+1000 10860 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10861 DMOVE AC,[200000,,0 10862 041373 120 04 0 00 043613 0,,XX] 10863 DFAD AC,[200000,,0 10864 041374 110 04 0 00 043613 0,,XX] 10865 041375 312 04 0 00 043612 CAME AC,[ZZ,,0] 10866 041376 003 04 0 00 001604 ER3 AC,T 10867 041377 312 05 0 00 043330 CAME AC+1,[0,,0] 10868 041400 004 05 0 00 001604 ER4 AC+1,T 10869 041401 321 10 0 00 041373 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10870 10871 001605 T=T+1 10872 000020 XX=XX+XX 10873 IFE XX, 10874 110400 ZZ=ZZ+1000 10875 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10876 DMOVE AC,[200000,,0 10877 041402 120 04 0 00 043610 0,,XX] 10878 DFAD AC,[200000,,0 10879 041403 110 04 0 00 043610 0,,XX] 10880 041404 312 04 0 00 043607 CAME AC,[ZZ,,0] 10881 041405 003 04 0 00 001605 ER3 AC,T 10882 041406 312 05 0 00 043330 CAME AC+1,[0,,0] 10883 041407 004 05 0 00 001605 ER4 AC+1,T 10884 041410 321 10 0 00 041402 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10885 10886 001606 T=T+1 10887 000040 XX=XX+XX 10888 IFE XX, 10889 111400 ZZ=ZZ+1000 10890 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10891 DMOVE AC,[200000,,0 10892 041411 120 04 0 00 043605 0,,XX] 10893 DFAD AC,[200000,,0 10894 041412 110 04 0 00 043605 0,,XX] 10895 041413 312 04 0 00 043604 CAME AC,[ZZ,,0] 10896 041414 003 04 0 00 001606 ER3 AC,T 10897 041415 312 05 0 00 043330 CAME AC+1,[0,,0] 10898 041416 004 05 0 00 001606 ER4 AC+1,T 10899 041417 321 10 0 00 041411 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10900 10901 001607 T=T+1 10902 000100 XX=XX+XX 10903 IFE XX, DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0224 10904 112400 ZZ=ZZ+1000 10905 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10906 DMOVE AC,[200000,,0 10907 041420 120 04 0 00 043602 0,,XX] 10908 DFAD AC,[200000,,0 10909 041421 110 04 0 00 043602 0,,XX] 10910 041422 312 04 0 00 043601 CAME AC,[ZZ,,0] 10911 041423 003 04 0 00 001607 ER3 AC,T 10912 041424 312 05 0 00 043330 CAME AC+1,[0,,0] 10913 041425 004 05 0 00 001607 ER4 AC+1,T 10914 041426 321 10 0 00 041420 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10915 10916 001610 T=T+1 10917 000200 XX=XX+XX 10918 IFE XX, 10919 113400 ZZ=ZZ+1000 10920 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10921 DMOVE AC,[200000,,0 10922 041427 120 04 0 00 043577 0,,XX] 10923 DFAD AC,[200000,,0 10924 041430 110 04 0 00 043577 0,,XX] 10925 041431 312 04 0 00 043576 CAME AC,[ZZ,,0] 10926 041432 003 04 0 00 001610 ER3 AC,T 10927 041433 312 05 0 00 043330 CAME AC+1,[0,,0] 10928 041434 004 05 0 00 001610 ER4 AC+1,T 10929 041435 321 10 0 00 041427 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10930 10931 001611 T=T+1 10932 000400 XX=XX+XX 10933 IFE XX, 10934 114400 ZZ=ZZ+1000 10935 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10936 DMOVE AC,[200000,,0 10937 041436 120 04 0 00 043574 0,,XX] 10938 DFAD AC,[200000,,0 10939 041437 110 04 0 00 043574 0,,XX] 10940 041440 312 04 0 00 043573 CAME AC,[ZZ,,0] 10941 041441 003 04 0 00 001611 ER3 AC,T 10942 041442 312 05 0 00 043330 CAME AC+1,[0,,0] 10943 041443 004 05 0 00 001611 ER4 AC+1,T 10944 041444 321 10 0 00 041436 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10945 10946 001612 T=T+1 10947 001000 XX=XX+XX 10948 IFE XX, 10949 115400 ZZ=ZZ+1000 10950 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10951 DMOVE AC,[200000,,0 10952 041445 120 04 0 00 043571 0,,XX] 10953 DFAD AC,[200000,,0 10954 041446 110 04 0 00 043571 0,,XX] 10955 041447 312 04 0 00 043570 CAME AC,[ZZ,,0] 10956 041450 003 04 0 00 001612 ER3 AC,T 10957 041451 312 05 0 00 043330 CAME AC+1,[0,,0] 10958 041452 004 05 0 00 001612 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0225 10959 041453 321 10 0 00 041445 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10960 10961 001613 T=T+1 10962 002000 XX=XX+XX 10963 IFE XX, 10964 116400 ZZ=ZZ+1000 10965 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10966 DMOVE AC,[200000,,0 10967 041454 120 04 0 00 043566 0,,XX] 10968 DFAD AC,[200000,,0 10969 041455 110 04 0 00 043566 0,,XX] 10970 041456 312 04 0 00 043565 CAME AC,[ZZ,,0] 10971 041457 003 04 0 00 001613 ER3 AC,T 10972 041460 312 05 0 00 043330 CAME AC+1,[0,,0] 10973 041461 004 05 0 00 001613 ER4 AC+1,T 10974 041462 321 10 0 00 041454 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10975 10976 001614 T=T+1 10977 004000 XX=XX+XX 10978 IFE XX, 10979 117400 ZZ=ZZ+1000 10980 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10981 DMOVE AC,[200000,,0 10982 041463 120 04 0 00 043563 0,,XX] 10983 DFAD AC,[200000,,0 10984 041464 110 04 0 00 043563 0,,XX] 10985 041465 312 04 0 00 043562 CAME AC,[ZZ,,0] 10986 041466 003 04 0 00 001614 ER3 AC,T 10987 041467 312 05 0 00 043330 CAME AC+1,[0,,0] 10988 041470 004 05 0 00 001614 ER4 AC+1,T 10989 041471 321 10 0 00 041463 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 10990 10991 001615 T=T+1 10992 010000 XX=XX+XX 10993 IFE XX, 10994 120400 ZZ=ZZ+1000 10995 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 10996 DMOVE AC,[200000,,0 10997 041472 120 04 0 00 043560 0,,XX] 10998 DFAD AC,[200000,,0 10999 041473 110 04 0 00 043560 0,,XX] 11000 041474 312 04 0 00 043557 CAME AC,[ZZ,,0] 11001 041475 003 04 0 00 001615 ER3 AC,T 11002 041476 312 05 0 00 043330 CAME AC+1,[0,,0] 11003 041477 004 05 0 00 001615 ER4 AC+1,T 11004 041500 321 10 0 00 041472 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11005 11006 001616 T=T+1 11007 020000 XX=XX+XX 11008 IFE XX, 11009 121400 ZZ=ZZ+1000 11010 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 11011 DMOVE AC,[200000,,0 11012 041501 120 04 0 00 043555 0,,XX] 11013 DFAD AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0226 11014 041502 110 04 0 00 043555 0,,XX] 11015 041503 312 04 0 00 043554 CAME AC,[ZZ,,0] 11016 041504 003 04 0 00 001616 ER3 AC,T 11017 041505 312 05 0 00 043330 CAME AC+1,[0,,0] 11018 041506 004 05 0 00 001616 ER4 AC+1,T 11019 041507 321 10 0 00 041501 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11020 11021 001617 T=T+1 11022 040000 XX=XX+XX 11023 IFE XX, 11024 122400 ZZ=ZZ+1000 11025 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 11026 DMOVE AC,[200000,,0 11027 041510 120 04 0 00 043552 0,,XX] 11028 DFAD AC,[200000,,0 11029 041511 110 04 0 00 043552 0,,XX] 11030 041512 312 04 0 00 043551 CAME AC,[ZZ,,0] 11031 041513 003 04 0 00 001617 ER3 AC,T 11032 041514 312 05 0 00 043330 CAME AC+1,[0,,0] 11033 041515 004 05 0 00 001617 ER4 AC+1,T 11034 041516 321 10 0 00 041510 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11035 11036 001620 T=T+1 11037 100000 XX=XX+XX 11038 IFE XX, 11039 123400 ZZ=ZZ+1000 11040 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 11041 DMOVE AC,[200000,,0 11042 041517 120 04 0 00 043547 0,,XX] 11043 DFAD AC,[200000,,0 11044 041520 110 04 0 00 043547 0,,XX] 11045 041521 312 04 0 00 043546 CAME AC,[ZZ,,0] 11046 041522 003 04 0 00 001620 ER3 AC,T 11047 041523 312 05 0 00 043330 CAME AC+1,[0,,0] 11048 041524 004 05 0 00 001620 ER4 AC+1,T 11049 041525 321 10 0 00 041517 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11050 11051 001621 T=T+1 11052 200000 XX=XX+XX 11053 IFE XX, 11054 124400 ZZ=ZZ+1000 11055 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 11056 DMOVE AC,[200000,,0 11057 041526 120 04 0 00 043544 0,,XX] 11058 DFAD AC,[200000,,0 11059 041527 110 04 0 00 043544 0,,XX] 11060 041530 312 04 0 00 043543 CAME AC,[ZZ,,0] 11061 041531 003 04 0 00 001621 ER3 AC,T 11062 041532 312 05 0 00 043330 CAME AC+1,[0,,0] 11063 041533 004 05 0 00 001621 ER4 AC+1,T 11064 041534 321 10 0 00 041526 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11065 11066 001622 T=T+1 11067 400000 XX=XX+XX 11068 IFE XX, DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0227 11069 125400 ZZ=ZZ+1000 11070 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^ 11071 DMOVE AC,[200000,,0 11072 041535 120 04 0 00 043541 0,,XX] 11073 DFAD AC,[200000,,0 11074 041536 110 04 0 00 043541 0,,XX] 11075 041537 312 04 0 00 043540 CAME AC,[ZZ,,0] 11076 041540 003 04 0 00 001622 ER3 AC,T 11077 041541 312 05 0 00 043330 CAME AC+1,[0,,0] 11078 041542 004 05 0 00 001622 ER4 AC+1,T 11079 041543 321 10 0 00 041535 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11080 11081 11082 000000 XX=0 11083 11084 REPEAT ^D17, 11085 11088 ZZ=ZZ+1000 11089 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0 11090 > 11091 001623 T=T+1 11092 000000 XX=XX+XX 11093 000001 IFE XX, 11094 126400 ZZ=ZZ+1000 11095 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11096 DMOVE AC,[200000,,0 11097 041544 120 04 0 00 043536 XX,,0] 11098 DFAD AC,[200000,,0 11099 041545 110 04 0 00 043536 XX,,0] 11100 041546 312 04 0 00 043535 CAME AC,[ZZ,,0] 11101 041547 003 04 0 00 001623 ER3 AC,T 11102 041550 312 05 0 00 043330 CAME AC+1,[0,,0] 11103 041551 004 05 0 00 001623 ER4 AC+1,T 11104 041552 321 10 0 00 041544 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11105 11106 001624 T=T+1 11107 000002 XX=XX+XX 11108 IFE XX, 11109 127400 ZZ=ZZ+1000 11110 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11111 DMOVE AC,[200000,,0 11112 041553 120 04 0 00 043533 XX,,0] 11113 DFAD AC,[200000,,0 11114 041554 110 04 0 00 043533 XX,,0] 11115 041555 312 04 0 00 043532 CAME AC,[ZZ,,0] 11116 041556 003 04 0 00 001624 ER3 AC,T 11117 041557 312 05 0 00 043330 CAME AC+1,[0,,0] 11118 041560 004 05 0 00 001624 ER4 AC+1,T 11119 041561 321 10 0 00 041553 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11120 11121 001625 T=T+1 11122 000004 XX=XX+XX 11123 IFE XX, DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0228 11124 130400 ZZ=ZZ+1000 11125 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11126 DMOVE AC,[200000,,0 11127 041562 120 04 0 00 043530 XX,,0] 11128 DFAD AC,[200000,,0 11129 041563 110 04 0 00 043530 XX,,0] 11130 041564 312 04 0 00 043527 CAME AC,[ZZ,,0] 11131 041565 003 04 0 00 001625 ER3 AC,T 11132 041566 312 05 0 00 043330 CAME AC+1,[0,,0] 11133 041567 004 05 0 00 001625 ER4 AC+1,T 11134 041570 321 10 0 00 041562 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11135 11136 001626 T=T+1 11137 000010 XX=XX+XX 11138 IFE XX, 11139 131400 ZZ=ZZ+1000 11140 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11141 DMOVE AC,[200000,,0 11142 041571 120 04 0 00 043525 XX,,0] 11143 DFAD AC,[200000,,0 11144 041572 110 04 0 00 043525 XX,,0] 11145 041573 312 04 0 00 043524 CAME AC,[ZZ,,0] 11146 041574 003 04 0 00 001626 ER3 AC,T 11147 041575 312 05 0 00 043330 CAME AC+1,[0,,0] 11148 041576 004 05 0 00 001626 ER4 AC+1,T 11149 041577 321 10 0 00 041571 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11150 11151 001627 T=T+1 11152 000020 XX=XX+XX 11153 IFE XX, 11154 132400 ZZ=ZZ+1000 11155 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11156 DMOVE AC,[200000,,0 11157 041600 120 04 0 00 043522 XX,,0] 11158 DFAD AC,[200000,,0 11159 041601 110 04 0 00 043522 XX,,0] 11160 041602 312 04 0 00 043521 CAME AC,[ZZ,,0] 11161 041603 003 04 0 00 001627 ER3 AC,T 11162 041604 312 05 0 00 043330 CAME AC+1,[0,,0] 11163 041605 004 05 0 00 001627 ER4 AC+1,T 11164 041606 321 10 0 00 041600 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11165 11166 001630 T=T+1 11167 000040 XX=XX+XX 11168 IFE XX, 11169 133400 ZZ=ZZ+1000 11170 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11171 DMOVE AC,[200000,,0 11172 041607 120 04 0 00 043517 XX,,0] 11173 DFAD AC,[200000,,0 11174 041610 110 04 0 00 043517 XX,,0] 11175 041611 312 04 0 00 043516 CAME AC,[ZZ,,0] 11176 041612 003 04 0 00 001630 ER3 AC,T 11177 041613 312 05 0 00 043330 CAME AC+1,[0,,0] 11178 041614 004 05 0 00 001630 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0229 11179 041615 321 10 0 00 041607 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11180 11181 001631 T=T+1 11182 000100 XX=XX+XX 11183 IFE XX, 11184 134400 ZZ=ZZ+1000 11185 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11186 DMOVE AC,[200000,,0 11187 041616 120 04 0 00 043514 XX,,0] 11188 DFAD AC,[200000,,0 11189 041617 110 04 0 00 043514 XX,,0] 11190 041620 312 04 0 00 043513 CAME AC,[ZZ,,0] 11191 041621 003 04 0 00 001631 ER3 AC,T 11192 041622 312 05 0 00 043330 CAME AC+1,[0,,0] 11193 041623 004 05 0 00 001631 ER4 AC+1,T 11194 041624 321 10 0 00 041616 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11195 11196 001632 T=T+1 11197 000200 XX=XX+XX 11198 IFE XX, 11199 135400 ZZ=ZZ+1000 11200 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11201 DMOVE AC,[200000,,0 11202 041625 120 04 0 00 043511 XX,,0] 11203 DFAD AC,[200000,,0 11204 041626 110 04 0 00 043511 XX,,0] 11205 041627 312 04 0 00 043510 CAME AC,[ZZ,,0] 11206 041630 003 04 0 00 001632 ER3 AC,T 11207 041631 312 05 0 00 043330 CAME AC+1,[0,,0] 11208 041632 004 05 0 00 001632 ER4 AC+1,T 11209 041633 321 10 0 00 041625 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11210 11211 001633 T=T+1 11212 000400 XX=XX+XX 11213 IFE XX, 11214 136400 ZZ=ZZ+1000 11215 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11216 DMOVE AC,[200000,,0 11217 041634 120 04 0 00 043506 XX,,0] 11218 DFAD AC,[200000,,0 11219 041635 110 04 0 00 043506 XX,,0] 11220 041636 312 04 0 00 043505 CAME AC,[ZZ,,0] 11221 041637 003 04 0 00 001633 ER3 AC,T 11222 041640 312 05 0 00 043330 CAME AC+1,[0,,0] 11223 041641 004 05 0 00 001633 ER4 AC+1,T 11224 041642 321 10 0 00 041634 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11225 11226 001634 T=T+1 11227 001000 XX=XX+XX 11228 IFE XX, 11229 137400 ZZ=ZZ+1000 11230 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11231 DMOVE AC,[200000,,0 11232 041643 120 04 0 00 043503 XX,,0] 11233 DFAD AC,[200000,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0230 11234 041644 110 04 0 00 043503 XX,,0] 11235 041645 312 04 0 00 043502 CAME AC,[ZZ,,0] 11236 041646 003 04 0 00 001634 ER3 AC,T 11237 041647 312 05 0 00 043330 CAME AC+1,[0,,0] 11238 041650 004 05 0 00 001634 ER4 AC+1,T 11239 041651 321 10 0 00 041643 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11240 11241 001635 T=T+1 11242 002000 XX=XX+XX 11243 IFE XX, 11244 140400 ZZ=ZZ+1000 11245 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11246 DMOVE AC,[200000,,0 11247 041652 120 04 0 00 043500 XX,,0] 11248 DFAD AC,[200000,,0 11249 041653 110 04 0 00 043500 XX,,0] 11250 041654 312 04 0 00 043477 CAME AC,[ZZ,,0] 11251 041655 003 04 0 00 001635 ER3 AC,T 11252 041656 312 05 0 00 043330 CAME AC+1,[0,,0] 11253 041657 004 05 0 00 001635 ER4 AC+1,T 11254 041660 321 10 0 00 041652 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11255 11256 001636 T=T+1 11257 004000 XX=XX+XX 11258 IFE XX, 11259 141400 ZZ=ZZ+1000 11260 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11261 DMOVE AC,[200000,,0 11262 041661 120 04 0 00 043475 XX,,0] 11263 DFAD AC,[200000,,0 11264 041662 110 04 0 00 043475 XX,,0] 11265 041663 312 04 0 00 043474 CAME AC,[ZZ,,0] 11266 041664 003 04 0 00 001636 ER3 AC,T 11267 041665 312 05 0 00 043330 CAME AC+1,[0,,0] 11268 041666 004 05 0 00 001636 ER4 AC+1,T 11269 041667 321 10 0 00 041661 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11270 11271 001637 T=T+1 11272 010000 XX=XX+XX 11273 IFE XX, 11274 142400 ZZ=ZZ+1000 11275 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11276 DMOVE AC,[200000,,0 11277 041670 120 04 0 00 043472 XX,,0] 11278 DFAD AC,[200000,,0 11279 041671 110 04 0 00 043472 XX,,0] 11280 041672 312 04 0 00 043471 CAME AC,[ZZ,,0] 11281 041673 003 04 0 00 001637 ER3 AC,T 11282 041674 312 05 0 00 043330 CAME AC+1,[0,,0] 11283 041675 004 05 0 00 001637 ER4 AC+1,T 11284 041676 321 10 0 00 041670 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11285 11286 001640 T=T+1 11287 020000 XX=XX+XX 11288 IFE XX, DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0231 11289 143400 ZZ=ZZ+1000 11290 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11291 DMOVE AC,[200000,,0 11292 041677 120 04 0 00 043467 XX,,0] 11293 DFAD AC,[200000,,0 11294 041700 110 04 0 00 043467 XX,,0] 11295 041701 312 04 0 00 043466 CAME AC,[ZZ,,0] 11296 041702 003 04 0 00 001640 ER3 AC,T 11297 041703 312 05 0 00 043330 CAME AC+1,[0,,0] 11298 041704 004 05 0 00 001640 ER4 AC+1,T 11299 041705 321 10 0 00 041677 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11300 11301 001641 T=T+1 11302 040000 XX=XX+XX 11303 IFE XX, 11304 144400 ZZ=ZZ+1000 11305 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11306 DMOVE AC,[200000,,0 11307 041706 120 04 0 00 043464 XX,,0] 11308 DFAD AC,[200000,,0 11309 041707 110 04 0 00 043464 XX,,0] 11310 041710 312 04 0 00 043463 CAME AC,[ZZ,,0] 11311 041711 003 04 0 00 001641 ER3 AC,T 11312 041712 312 05 0 00 043330 CAME AC+1,[0,,0] 11313 041713 004 05 0 00 001641 ER4 AC+1,T 11314 041714 321 10 0 00 041706 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11315 11316 001642 T=T+1 11317 100000 XX=XX+XX 11318 IFE XX, 11319 145400 ZZ=ZZ+1000 11320 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11321 DMOVE AC,[200000,,0 11322 041715 120 04 0 00 043461 XX,,0] 11323 DFAD AC,[200000,,0 11324 041716 110 04 0 00 043461 XX,,0] 11325 041717 312 04 0 00 043460 CAME AC,[ZZ,,0] 11326 041720 003 04 0 00 001642 ER3 AC,T 11327 041721 312 05 0 00 043330 CAME AC+1,[0,,0] 11328 041722 004 05 0 00 001642 ER4 AC+1,T 11329 041723 321 10 0 00 041715 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11330 11331 001643 T=T+1 11332 200000 XX=XX+XX 11333 IFE XX, 11334 146400 ZZ=ZZ+1000 11335 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^ 11336 DMOVE AC,[200000,,0 11337 041724 120 04 0 00 043456 XX,,0] 11338 DFAD AC,[200000,,0 11339 041725 110 04 0 00 043456 XX,,0] 11340 041726 312 04 0 00 043453 CAME AC,[ZZ,,0] 11341 041727 003 04 0 00 001643 ER3 AC,T 11342 041730 312 05 0 00 043330 CAME AC+1,[0,,0] 11343 041731 004 05 0 00 001643 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0232 11344 041732 321 10 0 00 041724 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11345 11346 001644 T=T+1 11347 400000 XX=XX+XX 11348 DFARP T,200000,0,XX,0,200000,0,XX,0,0,0,0,0^ 11349 DMOVE AC,[200000,,0 11350 041733 120 04 0 00 043454 XX,,0] 11351 DFAD AC,[200000,,0 11352 041734 110 04 0 00 043454 XX,,0] 11353 041735 312 04 0 00 043330 CAME AC,[0,,0] 11354 041736 003 04 0 00 001644 ER3 AC,T 11355 041737 312 05 0 00 043330 CAME AC+1,[0,,0] 11356 041740 004 05 0 00 001644 ER4 AC+1,T 11357 041741 321 10 0 00 041733 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11358 11359 000000 XX=0 11360 11361 REPEAT ^D18, 11362 11365 ZZ=ZZ+1000 11366 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0 11367 > 11368 001645 T=T+1 11369 000000 XX=XX+XX 11370 000001 IFE XX, 11371 147400 ZZ=ZZ+1000 11372 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11373 DMOVE AC,[200000,,XX 11374 041742 120 04 0 00 043451 0,,0] 11375 DFAD AC,[200000,,XX 11376 041743 110 04 0 00 043451 0,,0] 11377 041744 312 04 0 00 043450 CAME AC,[ZZ,,0] 11378 041745 003 04 0 00 001645 ER3 AC,T 11379 041746 312 05 0 00 043330 CAME AC+1,[0,,0] 11380 041747 004 05 0 00 001645 ER4 AC+1,T 11381 041750 321 10 0 00 041742 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11382 11383 001646 T=T+1 11384 000002 XX=XX+XX 11385 IFE XX, 11386 150400 ZZ=ZZ+1000 11387 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11388 DMOVE AC,[200000,,XX 11389 041751 120 04 0 00 043446 0,,0] 11390 DFAD AC,[200000,,XX 11391 041752 110 04 0 00 043446 0,,0] 11392 041753 312 04 0 00 043445 CAME AC,[ZZ,,0] 11393 041754 003 04 0 00 001646 ER3 AC,T 11394 041755 312 05 0 00 043330 CAME AC+1,[0,,0] 11395 041756 004 05 0 00 001646 ER4 AC+1,T 11396 041757 321 10 0 00 041751 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11397 11398 001647 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0233 11399 000004 XX=XX+XX 11400 IFE XX, 11401 151400 ZZ=ZZ+1000 11402 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11403 DMOVE AC,[200000,,XX 11404 041760 120 04 0 00 043443 0,,0] 11405 DFAD AC,[200000,,XX 11406 041761 110 04 0 00 043443 0,,0] 11407 041762 312 04 0 00 043442 CAME AC,[ZZ,,0] 11408 041763 003 04 0 00 001647 ER3 AC,T 11409 041764 312 05 0 00 043330 CAME AC+1,[0,,0] 11410 041765 004 05 0 00 001647 ER4 AC+1,T 11411 041766 321 10 0 00 041760 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11412 11413 001650 T=T+1 11414 000010 XX=XX+XX 11415 IFE XX, 11416 152400 ZZ=ZZ+1000 11417 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11418 DMOVE AC,[200000,,XX 11419 041767 120 04 0 00 043440 0,,0] 11420 DFAD AC,[200000,,XX 11421 041770 110 04 0 00 043440 0,,0] 11422 041771 312 04 0 00 043437 CAME AC,[ZZ,,0] 11423 041772 003 04 0 00 001650 ER3 AC,T 11424 041773 312 05 0 00 043330 CAME AC+1,[0,,0] 11425 041774 004 05 0 00 001650 ER4 AC+1,T 11426 041775 321 10 0 00 041767 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11427 11428 001651 T=T+1 11429 000020 XX=XX+XX 11430 IFE XX, 11431 153400 ZZ=ZZ+1000 11432 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11433 DMOVE AC,[200000,,XX 11434 041776 120 04 0 00 043435 0,,0] 11435 DFAD AC,[200000,,XX 11436 041777 110 04 0 00 043435 0,,0] 11437 042000 312 04 0 00 043434 CAME AC,[ZZ,,0] 11438 042001 003 04 0 00 001651 ER3 AC,T 11439 042002 312 05 0 00 043330 CAME AC+1,[0,,0] 11440 042003 004 05 0 00 001651 ER4 AC+1,T 11441 042004 321 10 0 00 041776 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11442 11443 001652 T=T+1 11444 000040 XX=XX+XX 11445 IFE XX, 11446 154400 ZZ=ZZ+1000 11447 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11448 DMOVE AC,[200000,,XX 11449 042005 120 04 0 00 043432 0,,0] 11450 DFAD AC,[200000,,XX 11451 042006 110 04 0 00 043432 0,,0] 11452 042007 312 04 0 00 043431 CAME AC,[ZZ,,0] 11453 042010 003 04 0 00 001652 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0234 11454 042011 312 05 0 00 043330 CAME AC+1,[0,,0] 11455 042012 004 05 0 00 001652 ER4 AC+1,T 11456 042013 321 10 0 00 042005 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11457 11458 001653 T=T+1 11459 000100 XX=XX+XX 11460 IFE XX, 11461 155400 ZZ=ZZ+1000 11462 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11463 DMOVE AC,[200000,,XX 11464 042014 120 04 0 00 043427 0,,0] 11465 DFAD AC,[200000,,XX 11466 042015 110 04 0 00 043427 0,,0] 11467 042016 312 04 0 00 043426 CAME AC,[ZZ,,0] 11468 042017 003 04 0 00 001653 ER3 AC,T 11469 042020 312 05 0 00 043330 CAME AC+1,[0,,0] 11470 042021 004 05 0 00 001653 ER4 AC+1,T 11471 042022 321 10 0 00 042014 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11472 11473 001654 T=T+1 11474 000200 XX=XX+XX 11475 IFE XX, 11476 156400 ZZ=ZZ+1000 11477 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11478 DMOVE AC,[200000,,XX 11479 042023 120 04 0 00 043424 0,,0] 11480 DFAD AC,[200000,,XX 11481 042024 110 04 0 00 043424 0,,0] 11482 042025 312 04 0 00 043423 CAME AC,[ZZ,,0] 11483 042026 003 04 0 00 001654 ER3 AC,T 11484 042027 312 05 0 00 043330 CAME AC+1,[0,,0] 11485 042030 004 05 0 00 001654 ER4 AC+1,T 11486 042031 321 10 0 00 042023 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11487 11488 001655 T=T+1 11489 000400 XX=XX+XX 11490 IFE XX, 11491 157400 ZZ=ZZ+1000 11492 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11493 DMOVE AC,[200000,,XX 11494 042032 120 04 0 00 043421 0,,0] 11495 DFAD AC,[200000,,XX 11496 042033 110 04 0 00 043421 0,,0] 11497 042034 312 04 0 00 043420 CAME AC,[ZZ,,0] 11498 042035 003 04 0 00 001655 ER3 AC,T 11499 042036 312 05 0 00 043330 CAME AC+1,[0,,0] 11500 042037 004 05 0 00 001655 ER4 AC+1,T 11501 042040 321 10 0 00 042032 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11502 11503 001656 T=T+1 11504 001000 XX=XX+XX 11505 IFE XX, 11506 160400 ZZ=ZZ+1000 11507 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11508 DMOVE AC,[200000,,XX DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0235 11509 042041 120 04 0 00 043416 0,,0] 11510 DFAD AC,[200000,,XX 11511 042042 110 04 0 00 043416 0,,0] 11512 042043 312 04 0 00 043415 CAME AC,[ZZ,,0] 11513 042044 003 04 0 00 001656 ER3 AC,T 11514 042045 312 05 0 00 043330 CAME AC+1,[0,,0] 11515 042046 004 05 0 00 001656 ER4 AC+1,T 11516 042047 321 10 0 00 042041 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11517 11518 001657 T=T+1 11519 002000 XX=XX+XX 11520 IFE XX, 11521 161400 ZZ=ZZ+1000 11522 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11523 DMOVE AC,[200000,,XX 11524 042050 120 04 0 00 043413 0,,0] 11525 DFAD AC,[200000,,XX 11526 042051 110 04 0 00 043413 0,,0] 11527 042052 312 04 0 00 043412 CAME AC,[ZZ,,0] 11528 042053 003 04 0 00 001657 ER3 AC,T 11529 042054 312 05 0 00 043330 CAME AC+1,[0,,0] 11530 042055 004 05 0 00 001657 ER4 AC+1,T 11531 042056 321 10 0 00 042050 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11532 11533 001660 T=T+1 11534 004000 XX=XX+XX 11535 IFE XX, 11536 162400 ZZ=ZZ+1000 11537 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11538 DMOVE AC,[200000,,XX 11539 042057 120 04 0 00 043410 0,,0] 11540 DFAD AC,[200000,,XX 11541 042060 110 04 0 00 043410 0,,0] 11542 042061 312 04 0 00 043407 CAME AC,[ZZ,,0] 11543 042062 003 04 0 00 001660 ER3 AC,T 11544 042063 312 05 0 00 043330 CAME AC+1,[0,,0] 11545 042064 004 05 0 00 001660 ER4 AC+1,T 11546 042065 321 10 0 00 042057 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11547 11548 001661 T=T+1 11549 010000 XX=XX+XX 11550 IFE XX, 11551 163400 ZZ=ZZ+1000 11552 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11553 DMOVE AC,[200000,,XX 11554 042066 120 04 0 00 043405 0,,0] 11555 DFAD AC,[200000,,XX 11556 042067 110 04 0 00 043405 0,,0] 11557 042070 312 04 0 00 043404 CAME AC,[ZZ,,0] 11558 042071 003 04 0 00 001661 ER3 AC,T 11559 042072 312 05 0 00 043330 CAME AC+1,[0,,0] 11560 042073 004 05 0 00 001661 ER4 AC+1,T 11561 042074 321 10 0 00 042066 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11562 11563 001662 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0236 11564 020000 XX=XX+XX 11565 IFE XX, 11566 164400 ZZ=ZZ+1000 11567 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11568 DMOVE AC,[200000,,XX 11569 042075 120 04 0 00 043402 0,,0] 11570 DFAD AC,[200000,,XX 11571 042076 110 04 0 00 043402 0,,0] 11572 042077 312 04 0 00 043401 CAME AC,[ZZ,,0] 11573 042100 003 04 0 00 001662 ER3 AC,T 11574 042101 312 05 0 00 043330 CAME AC+1,[0,,0] 11575 042102 004 05 0 00 001662 ER4 AC+1,T 11576 042103 321 10 0 00 042075 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11577 11578 001663 T=T+1 11579 040000 XX=XX+XX 11580 IFE XX, 11581 165400 ZZ=ZZ+1000 11582 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11583 DMOVE AC,[200000,,XX 11584 042104 120 04 0 00 043377 0,,0] 11585 DFAD AC,[200000,,XX 11586 042105 110 04 0 00 043377 0,,0] 11587 042106 312 04 0 00 043376 CAME AC,[ZZ,,0] 11588 042107 003 04 0 00 001663 ER3 AC,T 11589 042110 312 05 0 00 043330 CAME AC+1,[0,,0] 11590 042111 004 05 0 00 001663 ER4 AC+1,T 11591 042112 321 10 0 00 042104 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11592 11593 001664 T=T+1 11594 100000 XX=XX+XX 11595 IFE XX, 11596 166400 ZZ=ZZ+1000 11597 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11598 DMOVE AC,[200000,,XX 11599 042113 120 04 0 00 043374 0,,0] 11600 DFAD AC,[200000,,XX 11601 042114 110 04 0 00 043374 0,,0] 11602 042115 312 04 0 00 043373 CAME AC,[ZZ,,0] 11603 042116 003 04 0 00 001664 ER3 AC,T 11604 042117 312 05 0 00 043330 CAME AC+1,[0,,0] 11605 042120 004 05 0 00 001664 ER4 AC+1,T 11606 042121 321 10 0 00 042113 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11607 11608 001665 T=T+1 11609 200000 XX=XX+XX 11610 IFE XX, 11611 167400 ZZ=ZZ+1000 11612 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11613 DMOVE AC,[200000,,XX 11614 042122 120 04 0 00 043371 0,,0] 11615 DFAD AC,[200000,,XX 11616 042123 110 04 0 00 043371 0,,0] 11617 042124 312 04 0 00 043370 CAME AC,[ZZ,,0] 11618 042125 003 04 0 00 001665 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0237 11619 042126 312 05 0 00 043330 CAME AC+1,[0,,0] 11620 042127 004 05 0 00 001665 ER4 AC+1,T 11621 042130 321 10 0 00 042122 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11622 11623 001666 T=T+1 11624 400000 XX=XX+XX 11625 IFE XX, 11626 170400 ZZ=ZZ+1000 11627 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^ 11628 DMOVE AC,[200000,,XX 11629 042131 120 04 0 00 043366 0,,0] 11630 DFAD AC,[200000,,XX 11631 042132 110 04 0 00 043366 0,,0] 11632 042133 312 04 0 00 043365 CAME AC,[ZZ,,0] 11633 042134 003 04 0 00 001666 ER3 AC,T 11634 042135 312 05 0 00 043330 CAME AC+1,[0,,0] 11635 042136 004 05 0 00 001666 ER4 AC+1,T 11636 042137 321 10 0 00 042131 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11637 11638 11639 000000 XX=0 11640 11641 REPEAT ^D9, 11642 11645 ZZ=ZZ+1000 11646 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0 11647 > 11648 001667 T=T+1 11649 000000 XX=XX+XX 11650 000001 IFE XX, 11651 171400 ZZ=ZZ+1000 11652 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11653 DMOVE AC,[200000+XX,,0 11654 042140 120 04 0 00 043363 0,,0] 11655 DFAD AC,[200000+XX,,0 11656 042141 110 04 0 00 043363 0,,0] 11657 042142 312 04 0 00 043362 CAME AC,[ZZ,,0] 11658 042143 003 04 0 00 001667 ER3 AC,T 11659 042144 312 05 0 00 043330 CAME AC+1,[0,,0] 11660 042145 004 05 0 00 001667 ER4 AC+1,T 11661 042146 321 10 0 00 042140 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11662 11663 001670 T=T+1 11664 000002 XX=XX+XX 11665 IFE XX, 11666 172400 ZZ=ZZ+1000 11667 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11668 DMOVE AC,[200000+XX,,0 11669 042147 120 04 0 00 043360 0,,0] 11670 DFAD AC,[200000+XX,,0 11671 042150 110 04 0 00 043360 0,,0] 11672 042151 312 04 0 00 043357 CAME AC,[ZZ,,0] 11673 042152 003 04 0 00 001670 ER3 AC,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-18 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0238 11674 042153 312 05 0 00 043330 CAME AC+1,[0,,0] 11675 042154 004 05 0 00 001670 ER4 AC+1,T 11676 042155 321 10 0 00 042147 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11677 11678 001671 T=T+1 11679 000004 XX=XX+XX 11680 IFE XX, 11681 173400 ZZ=ZZ+1000 11682 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11683 DMOVE AC,[200000+XX,,0 11684 042156 120 04 0 00 043355 0,,0] 11685 DFAD AC,[200000+XX,,0 11686 042157 110 04 0 00 043355 0,,0] 11687 042160 312 04 0 00 043354 CAME AC,[ZZ,,0] 11688 042161 003 04 0 00 001671 ER3 AC,T 11689 042162 312 05 0 00 043330 CAME AC+1,[0,,0] 11690 042163 004 05 0 00 001671 ER4 AC+1,T 11691 042164 321 10 0 00 042156 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11692 11693 001672 T=T+1 11694 000010 XX=XX+XX 11695 IFE XX, 11696 174400 ZZ=ZZ+1000 11697 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11698 DMOVE AC,[200000+XX,,0 11699 042165 120 04 0 00 043352 0,,0] 11700 DFAD AC,[200000+XX,,0 11701 042166 110 04 0 00 043352 0,,0] 11702 042167 312 04 0 00 043351 CAME AC,[ZZ,,0] 11703 042170 003 04 0 00 001672 ER3 AC,T 11704 042171 312 05 0 00 043330 CAME AC+1,[0,,0] 11705 042172 004 05 0 00 001672 ER4 AC+1,T 11706 042173 321 10 0 00 042165 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11707 11708 001673 T=T+1 11709 000020 XX=XX+XX 11710 IFE XX, 11711 175400 ZZ=ZZ+1000 11712 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11713 DMOVE AC,[200000+XX,,0 11714 042174 120 04 0 00 043347 0,,0] 11715 DFAD AC,[200000+XX,,0 11716 042175 110 04 0 00 043347 0,,0] 11717 042176 312 04 0 00 043346 CAME AC,[ZZ,,0] 11718 042177 003 04 0 00 001673 ER3 AC,T 11719 042200 312 05 0 00 043330 CAME AC+1,[0,,0] 11720 042201 004 05 0 00 001673 ER4 AC+1,T 11721 042202 321 10 0 00 042174 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11722 11723 001674 T=T+1 11724 000040 XX=XX+XX 11725 IFE XX, 11726 176400 ZZ=ZZ+1000 11727 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11728 DMOVE AC,[200000+XX,,0 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-19 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0239 11729 042203 120 04 0 00 043344 0,,0] 11730 DFAD AC,[200000+XX,,0 11731 042204 110 04 0 00 043344 0,,0] 11732 042205 312 04 0 00 043343 CAME AC,[ZZ,,0] 11733 042206 003 04 0 00 001674 ER3 AC,T 11734 042207 312 05 0 00 043330 CAME AC+1,[0,,0] 11735 042210 004 05 0 00 001674 ER4 AC+1,T 11736 042211 321 10 0 00 042203 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11737 11738 001675 T=T+1 11739 000100 XX=XX+XX 11740 IFE XX, 11741 177400 ZZ=ZZ+1000 11742 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11743 DMOVE AC,[200000+XX,,0 11744 042212 120 04 0 00 043341 0,,0] 11745 DFAD AC,[200000+XX,,0 11746 042213 110 04 0 00 043341 0,,0] 11747 042214 312 04 0 00 043340 CAME AC,[ZZ,,0] 11748 042215 003 04 0 00 001675 ER3 AC,T 11749 042216 312 05 0 00 043330 CAME AC+1,[0,,0] 11750 042217 004 05 0 00 001675 ER4 AC+1,T 11751 042220 321 10 0 00 042212 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11752 11753 001676 T=T+1 11754 000200 XX=XX+XX 11755 IFE XX, 11756 200400 ZZ=ZZ+1000 11757 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11758 DMOVE AC,[200000+XX,,0 11759 042221 120 04 0 00 043336 0,,0] 11760 DFAD AC,[200000+XX,,0 11761 042222 110 04 0 00 043336 0,,0] 11762 042223 312 04 0 00 043334 CAME AC,[ZZ,,0] 11763 042224 003 04 0 00 001676 ER3 AC,T 11764 042225 312 05 0 00 043330 CAME AC+1,[0,,0] 11765 042226 004 05 0 00 001676 ER4 AC+1,T 11766 042227 321 10 0 00 042221 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11767 11768 001677 T=T+1 11769 000400 XX=XX+XX 11770 IFE XX, 11771 201400 ZZ=ZZ+1000 11772 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^ 11773 DMOVE AC,[200000+XX,,0 11774 042230 120 04 0 00 043334 0,,0] 11775 DFAD AC,[200000+XX,,0 11776 042231 110 04 0 00 043334 0,,0] 11777 042232 312 04 0 00 044205 CAME AC,[ZZ,,0] 11778 042233 003 04 0 00 001677 ER3 AC,T 11779 042234 312 05 0 00 043330 CAME AC+1,[0,,0] 11780 042235 004 05 0 00 001677 ER4 AC+1,T 11781 042236 321 10 0 00 042230 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11782 11783 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0240 11784 ;RIPPLE ZEROS TESTS (ADD A FRACTION OF A RIPPLED ZERO TO SAME) 11785 11786 001700 T=1700 11787 11788 000000 XX=0 11789 11790 R1700: REPEAT ^D18, 11791 , 11794 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX 11795 > 11796 001701 T=T+1 11797 000001 XX=XX+XX+1 11798 777777 777776 IFE , 11799 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11800 DMOVE AC,[777,,-1 11801 042237 120 04 0 00 043632 -1,,XX] 11802 DFAD AC,[777,,-1 11803 042240 110 04 0 00 043632 -1,,XX] 11804 042241 312 04 0 00 044471 CAME AC,[1777,,-1] 11805 042242 003 04 0 00 001701 ER3 AC,T 11806 042243 312 05 0 00 043634 CAME AC+1,[377777,,XX] 11807 042244 004 05 0 00 001701 ER4 AC+1,T 11808 042245 321 10 0 00 042237 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11809 11810 001702 T=T+1 11811 777777 777775 XX=XX+XX+1 11812 IFE , 11813 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11814 DMOVE AC,[777,,-1 11815 042246 120 04 0 00 043635 -1,,XX] 11816 DFAD AC,[777,,-1 11817 042247 110 04 0 00 043635 -1,,XX] 11818 042250 312 04 0 00 044471 CAME AC,[1777,,-1] 11819 042251 003 04 0 00 001702 ER3 AC,T 11820 042252 312 05 0 00 043637 CAME AC+1,[377777,,XX] 11821 042253 004 05 0 00 001702 ER4 AC+1,T 11822 042254 321 10 0 00 042246 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11823 11824 001703 T=T+1 11825 777777 777773 XX=XX+XX+1 11826 IFE , 11827 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11828 DMOVE AC,[777,,-1 11829 042255 120 04 0 00 043640 -1,,XX] 11830 DFAD AC,[777,,-1 11831 042256 110 04 0 00 043640 -1,,XX] 11832 042257 312 04 0 00 044471 CAME AC,[1777,,-1] 11833 042260 003 04 0 00 001703 ER3 AC,T 11834 042261 312 05 0 00 043642 CAME AC+1,[377777,,XX] 11835 042262 004 05 0 00 001703 ER4 AC+1,T 11836 042263 321 10 0 00 042255 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11837 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-1 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0241 11838 001704 T=T+1 11839 777777 777767 XX=XX+XX+1 11840 IFE , 11841 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11842 DMOVE AC,[777,,-1 11843 042264 120 04 0 00 043643 -1,,XX] 11844 DFAD AC,[777,,-1 11845 042265 110 04 0 00 043643 -1,,XX] 11846 042266 312 04 0 00 044471 CAME AC,[1777,,-1] 11847 042267 003 04 0 00 001704 ER3 AC,T 11848 042270 312 05 0 00 043645 CAME AC+1,[377777,,XX] 11849 042271 004 05 0 00 001704 ER4 AC+1,T 11850 042272 321 10 0 00 042264 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11851 11852 001705 T=T+1 11853 777777 777757 XX=XX+XX+1 11854 IFE , 11855 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11856 DMOVE AC,[777,,-1 11857 042273 120 04 0 00 043646 -1,,XX] 11858 DFAD AC,[777,,-1 11859 042274 110 04 0 00 043646 -1,,XX] 11860 042275 312 04 0 00 044471 CAME AC,[1777,,-1] 11861 042276 003 04 0 00 001705 ER3 AC,T 11862 042277 312 05 0 00 043650 CAME AC+1,[377777,,XX] 11863 042300 004 05 0 00 001705 ER4 AC+1,T 11864 042301 321 10 0 00 042273 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11865 11866 001706 T=T+1 11867 777777 777737 XX=XX+XX+1 11868 IFE , 11869 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11870 DMOVE AC,[777,,-1 11871 042302 120 04 0 00 043651 -1,,XX] 11872 DFAD AC,[777,,-1 11873 042303 110 04 0 00 043651 -1,,XX] 11874 042304 312 04 0 00 044471 CAME AC,[1777,,-1] 11875 042305 003 04 0 00 001706 ER3 AC,T 11876 042306 312 05 0 00 043653 CAME AC+1,[377777,,XX] 11877 042307 004 05 0 00 001706 ER4 AC+1,T 11878 042310 321 10 0 00 042302 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11879 11880 001707 T=T+1 11881 777777 777677 XX=XX+XX+1 11882 IFE , 11883 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11884 DMOVE AC,[777,,-1 11885 042311 120 04 0 00 043654 -1,,XX] 11886 DFAD AC,[777,,-1 11887 042312 110 04 0 00 043654 -1,,XX] 11888 042313 312 04 0 00 044471 CAME AC,[1777,,-1] 11889 042314 003 04 0 00 001707 ER3 AC,T 11890 042315 312 05 0 00 043656 CAME AC+1,[377777,,XX] 11891 042316 004 05 0 00 001707 ER4 AC+1,T 11892 042317 321 10 0 00 042311 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-2 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0242 11893 11894 001710 T=T+1 11895 777777 777577 XX=XX+XX+1 11896 IFE , 11897 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11898 DMOVE AC,[777,,-1 11899 042320 120 04 0 00 043657 -1,,XX] 11900 DFAD AC,[777,,-1 11901 042321 110 04 0 00 043657 -1,,XX] 11902 042322 312 04 0 00 044471 CAME AC,[1777,,-1] 11903 042323 003 04 0 00 001710 ER3 AC,T 11904 042324 312 05 0 00 043661 CAME AC+1,[377777,,XX] 11905 042325 004 05 0 00 001710 ER4 AC+1,T 11906 042326 321 10 0 00 042320 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11907 11908 001711 T=T+1 11909 777777 777377 XX=XX+XX+1 11910 IFE , 11911 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11912 DMOVE AC,[777,,-1 11913 042327 120 04 0 00 043662 -1,,XX] 11914 DFAD AC,[777,,-1 11915 042330 110 04 0 00 043662 -1,,XX] 11916 042331 312 04 0 00 044471 CAME AC,[1777,,-1] 11917 042332 003 04 0 00 001711 ER3 AC,T 11918 042333 312 05 0 00 043664 CAME AC+1,[377777,,XX] 11919 042334 004 05 0 00 001711 ER4 AC+1,T 11920 042335 321 10 0 00 042327 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11921 11922 001712 T=T+1 11923 777777 776777 XX=XX+XX+1 11924 IFE , 11925 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11926 DMOVE AC,[777,,-1 11927 042336 120 04 0 00 043665 -1,,XX] 11928 DFAD AC,[777,,-1 11929 042337 110 04 0 00 043665 -1,,XX] 11930 042340 312 04 0 00 044471 CAME AC,[1777,,-1] 11931 042341 003 04 0 00 001712 ER3 AC,T 11932 042342 312 05 0 00 043667 CAME AC+1,[377777,,XX] 11933 042343 004 05 0 00 001712 ER4 AC+1,T 11934 042344 321 10 0 00 042336 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11935 11936 001713 T=T+1 11937 777777 775777 XX=XX+XX+1 11938 IFE , 11939 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11940 DMOVE AC,[777,,-1 11941 042345 120 04 0 00 043670 -1,,XX] 11942 DFAD AC,[777,,-1 11943 042346 110 04 0 00 043670 -1,,XX] 11944 042347 312 04 0 00 044471 CAME AC,[1777,,-1] 11945 042350 003 04 0 00 001713 ER3 AC,T 11946 042351 312 05 0 00 043672 CAME AC+1,[377777,,XX] 11947 042352 004 05 0 00 001713 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-3 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0243 11948 042353 321 10 0 00 042345 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11949 11950 001714 T=T+1 11951 777777 773777 XX=XX+XX+1 11952 IFE , 11953 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11954 DMOVE AC,[777,,-1 11955 042354 120 04 0 00 043673 -1,,XX] 11956 DFAD AC,[777,,-1 11957 042355 110 04 0 00 043673 -1,,XX] 11958 042356 312 04 0 00 044471 CAME AC,[1777,,-1] 11959 042357 003 04 0 00 001714 ER3 AC,T 11960 042360 312 05 0 00 043675 CAME AC+1,[377777,,XX] 11961 042361 004 05 0 00 001714 ER4 AC+1,T 11962 042362 321 10 0 00 042354 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11963 11964 001715 T=T+1 11965 777777 767777 XX=XX+XX+1 11966 IFE , 11967 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11968 DMOVE AC,[777,,-1 11969 042363 120 04 0 00 043676 -1,,XX] 11970 DFAD AC,[777,,-1 11971 042364 110 04 0 00 043676 -1,,XX] 11972 042365 312 04 0 00 044471 CAME AC,[1777,,-1] 11973 042366 003 04 0 00 001715 ER3 AC,T 11974 042367 312 05 0 00 043700 CAME AC+1,[377777,,XX] 11975 042370 004 05 0 00 001715 ER4 AC+1,T 11976 042371 321 10 0 00 042363 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11977 11978 001716 T=T+1 11979 777777 757777 XX=XX+XX+1 11980 IFE , 11981 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11982 DMOVE AC,[777,,-1 11983 042372 120 04 0 00 043701 -1,,XX] 11984 DFAD AC,[777,,-1 11985 042373 110 04 0 00 043701 -1,,XX] 11986 042374 312 04 0 00 044471 CAME AC,[1777,,-1] 11987 042375 003 04 0 00 001716 ER3 AC,T 11988 042376 312 05 0 00 043703 CAME AC+1,[377777,,XX] 11989 042377 004 05 0 00 001716 ER4 AC+1,T 11990 042400 321 10 0 00 042372 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 11991 11992 001717 T=T+1 11993 777777 737777 XX=XX+XX+1 11994 IFE , 11995 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 11996 DMOVE AC,[777,,-1 11997 042401 120 04 0 00 043704 -1,,XX] 11998 DFAD AC,[777,,-1 11999 042402 110 04 0 00 043704 -1,,XX] 12000 042403 312 04 0 00 044471 CAME AC,[1777,,-1] 12001 042404 003 04 0 00 001717 ER3 AC,T 12002 042405 312 05 0 00 043706 CAME AC+1,[377777,,XX] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-4 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0244 12003 042406 004 05 0 00 001717 ER4 AC+1,T 12004 042407 321 10 0 00 042401 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12005 12006 001720 T=T+1 12007 777777 677777 XX=XX+XX+1 12008 IFE , 12009 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 12010 DMOVE AC,[777,,-1 12011 042410 120 04 0 00 043707 -1,,XX] 12012 DFAD AC,[777,,-1 12013 042411 110 04 0 00 043707 -1,,XX] 12014 042412 312 04 0 00 044471 CAME AC,[1777,,-1] 12015 042413 003 04 0 00 001720 ER3 AC,T 12016 042414 312 05 0 00 043711 CAME AC+1,[377777,,XX] 12017 042415 004 05 0 00 001720 ER4 AC+1,T 12018 042416 321 10 0 00 042410 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12019 12020 001721 T=T+1 12021 777777 577777 XX=XX+XX+1 12022 IFE , 12023 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 12024 DMOVE AC,[777,,-1 12025 042417 120 04 0 00 043712 -1,,XX] 12026 DFAD AC,[777,,-1 12027 042420 110 04 0 00 043712 -1,,XX] 12028 042421 312 04 0 00 044471 CAME AC,[1777,,-1] 12029 042422 003 04 0 00 001721 ER3 AC,T 12030 042423 312 05 0 00 043714 CAME AC+1,[377777,,XX] 12031 042424 004 05 0 00 001721 ER4 AC+1,T 12032 042425 321 10 0 00 042417 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12033 12034 001722 T=T+1 12035 777777 377777 XX=XX+XX+1 12036 IFE , 12037 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^ 12038 DMOVE AC,[777,,-1 12039 042426 120 04 0 00 043715 -1,,XX] 12040 DFAD AC,[777,,-1 12041 042427 110 04 0 00 043715 -1,,XX] 12042 042430 312 04 0 00 044471 CAME AC,[1777,,-1] 12043 042431 003 04 0 00 001722 ER3 AC,T 12044 042432 312 05 0 00 043717 CAME AC+1,[377777,,XX] 12045 042433 004 05 0 00 001722 ER4 AC+1,T 12046 042434 321 10 0 00 042426 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12047 12048 12049 000000 XX=0 12050 12051 REPEAT ^D18, 12052 , 12055 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1 12056 > 12057 001723 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-5 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0245 12058 000001 XX=XX+XX+1 12059 777777 777776 IFE , 12060 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12061 DMOVE AC,[777,,-1 12062 042435 120 04 0 00 043720 XX,,-1] 12063 DFAD AC,[777,,-1 12064 042436 110 04 0 00 043720 XX,,-1] 12065 042437 312 04 0 00 044471 CAME AC,[1777,,-1] 12066 042440 003 04 0 00 001723 ER3 AC,T 12067 042441 312 05 0 00 043722 CAME AC+1,[XX&377777,,-1] 12068 042442 004 05 0 00 001723 ER4 AC+1,T 12069 042443 321 10 0 00 042435 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12070 12071 001724 T=T+1 12072 777777 777775 XX=XX+XX+1 12073 IFE , 12074 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12075 DMOVE AC,[777,,-1 12076 042444 120 04 0 00 043723 XX,,-1] 12077 DFAD AC,[777,,-1 12078 042445 110 04 0 00 043723 XX,,-1] 12079 042446 312 04 0 00 044471 CAME AC,[1777,,-1] 12080 042447 003 04 0 00 001724 ER3 AC,T 12081 042450 312 05 0 00 043725 CAME AC+1,[XX&377777,,-1] 12082 042451 004 05 0 00 001724 ER4 AC+1,T 12083 042452 321 10 0 00 042444 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12084 12085 001725 T=T+1 12086 777777 777773 XX=XX+XX+1 12087 IFE , 12088 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12089 DMOVE AC,[777,,-1 12090 042453 120 04 0 00 043726 XX,,-1] 12091 DFAD AC,[777,,-1 12092 042454 110 04 0 00 043726 XX,,-1] 12093 042455 312 04 0 00 044471 CAME AC,[1777,,-1] 12094 042456 003 04 0 00 001725 ER3 AC,T 12095 042457 312 05 0 00 043730 CAME AC+1,[XX&377777,,-1] 12096 042460 004 05 0 00 001725 ER4 AC+1,T 12097 042461 321 10 0 00 042453 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12098 12099 001726 T=T+1 12100 777777 777767 XX=XX+XX+1 12101 IFE , 12102 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12103 DMOVE AC,[777,,-1 12104 042462 120 04 0 00 043731 XX,,-1] 12105 DFAD AC,[777,,-1 12106 042463 110 04 0 00 043731 XX,,-1] 12107 042464 312 04 0 00 044471 CAME AC,[1777,,-1] 12108 042465 003 04 0 00 001726 ER3 AC,T 12109 042466 312 05 0 00 043733 CAME AC+1,[XX&377777,,-1] 12110 042467 004 05 0 00 001726 ER4 AC+1,T 12111 042470 321 10 0 00 042462 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12112 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-6 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0246 12113 001727 T=T+1 12114 777777 777757 XX=XX+XX+1 12115 IFE , 12116 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12117 DMOVE AC,[777,,-1 12118 042471 120 04 0 00 043734 XX,,-1] 12119 DFAD AC,[777,,-1 12120 042472 110 04 0 00 043734 XX,,-1] 12121 042473 312 04 0 00 044471 CAME AC,[1777,,-1] 12122 042474 003 04 0 00 001727 ER3 AC,T 12123 042475 312 05 0 00 043736 CAME AC+1,[XX&377777,,-1] 12124 042476 004 05 0 00 001727 ER4 AC+1,T 12125 042477 321 10 0 00 042471 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12126 12127 001730 T=T+1 12128 777777 777737 XX=XX+XX+1 12129 IFE , 12130 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12131 DMOVE AC,[777,,-1 12132 042500 120 04 0 00 043737 XX,,-1] 12133 DFAD AC,[777,,-1 12134 042501 110 04 0 00 043737 XX,,-1] 12135 042502 312 04 0 00 044471 CAME AC,[1777,,-1] 12136 042503 003 04 0 00 001730 ER3 AC,T 12137 042504 312 05 0 00 043741 CAME AC+1,[XX&377777,,-1] 12138 042505 004 05 0 00 001730 ER4 AC+1,T 12139 042506 321 10 0 00 042500 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12140 12141 001731 T=T+1 12142 777777 777677 XX=XX+XX+1 12143 IFE , 12144 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12145 DMOVE AC,[777,,-1 12146 042507 120 04 0 00 043742 XX,,-1] 12147 DFAD AC,[777,,-1 12148 042510 110 04 0 00 043742 XX,,-1] 12149 042511 312 04 0 00 044471 CAME AC,[1777,,-1] 12150 042512 003 04 0 00 001731 ER3 AC,T 12151 042513 312 05 0 00 043744 CAME AC+1,[XX&377777,,-1] 12152 042514 004 05 0 00 001731 ER4 AC+1,T 12153 042515 321 10 0 00 042507 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12154 12155 001732 T=T+1 12156 777777 777577 XX=XX+XX+1 12157 IFE , 12158 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12159 DMOVE AC,[777,,-1 12160 042516 120 04 0 00 043745 XX,,-1] 12161 DFAD AC,[777,,-1 12162 042517 110 04 0 00 043745 XX,,-1] 12163 042520 312 04 0 00 044471 CAME AC,[1777,,-1] 12164 042521 003 04 0 00 001732 ER3 AC,T 12165 042522 312 05 0 00 043747 CAME AC+1,[XX&377777,,-1] 12166 042523 004 05 0 00 001732 ER4 AC+1,T 12167 042524 321 10 0 00 042516 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-7 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0247 12168 12169 001733 T=T+1 12170 777777 777377 XX=XX+XX+1 12171 IFE , 12172 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12173 DMOVE AC,[777,,-1 12174 042525 120 04 0 00 043750 XX,,-1] 12175 DFAD AC,[777,,-1 12176 042526 110 04 0 00 043750 XX,,-1] 12177 042527 312 04 0 00 044471 CAME AC,[1777,,-1] 12178 042530 003 04 0 00 001733 ER3 AC,T 12179 042531 312 05 0 00 043752 CAME AC+1,[XX&377777,,-1] 12180 042532 004 05 0 00 001733 ER4 AC+1,T 12181 042533 321 10 0 00 042525 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12182 12183 001734 T=T+1 12184 777777 776777 XX=XX+XX+1 12185 IFE , 12186 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12187 DMOVE AC,[777,,-1 12188 042534 120 04 0 00 043753 XX,,-1] 12189 DFAD AC,[777,,-1 12190 042535 110 04 0 00 043753 XX,,-1] 12191 042536 312 04 0 00 044471 CAME AC,[1777,,-1] 12192 042537 003 04 0 00 001734 ER3 AC,T 12193 042540 312 05 0 00 043755 CAME AC+1,[XX&377777,,-1] 12194 042541 004 05 0 00 001734 ER4 AC+1,T 12195 042542 321 10 0 00 042534 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12196 12197 001735 T=T+1 12198 777777 775777 XX=XX+XX+1 12199 IFE , 12200 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12201 DMOVE AC,[777,,-1 12202 042543 120 04 0 00 043756 XX,,-1] 12203 DFAD AC,[777,,-1 12204 042544 110 04 0 00 043756 XX,,-1] 12205 042545 312 04 0 00 044471 CAME AC,[1777,,-1] 12206 042546 003 04 0 00 001735 ER3 AC,T 12207 042547 312 05 0 00 043760 CAME AC+1,[XX&377777,,-1] 12208 042550 004 05 0 00 001735 ER4 AC+1,T 12209 042551 321 10 0 00 042543 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12210 12211 001736 T=T+1 12212 777777 773777 XX=XX+XX+1 12213 IFE , 12214 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12215 DMOVE AC,[777,,-1 12216 042552 120 04 0 00 043761 XX,,-1] 12217 DFAD AC,[777,,-1 12218 042553 110 04 0 00 043761 XX,,-1] 12219 042554 312 04 0 00 044471 CAME AC,[1777,,-1] 12220 042555 003 04 0 00 001736 ER3 AC,T 12221 042556 312 05 0 00 043763 CAME AC+1,[XX&377777,,-1] 12222 042557 004 05 0 00 001736 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-8 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0248 12223 042560 321 10 0 00 042552 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12224 12225 001737 T=T+1 12226 777777 767777 XX=XX+XX+1 12227 IFE , 12228 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12229 DMOVE AC,[777,,-1 12230 042561 120 04 0 00 043764 XX,,-1] 12231 DFAD AC,[777,,-1 12232 042562 110 04 0 00 043764 XX,,-1] 12233 042563 312 04 0 00 044471 CAME AC,[1777,,-1] 12234 042564 003 04 0 00 001737 ER3 AC,T 12235 042565 312 05 0 00 043766 CAME AC+1,[XX&377777,,-1] 12236 042566 004 05 0 00 001737 ER4 AC+1,T 12237 042567 321 10 0 00 042561 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12238 12239 001740 T=T+1 12240 777777 757777 XX=XX+XX+1 12241 IFE , 12242 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12243 DMOVE AC,[777,,-1 12244 042570 120 04 0 00 043767 XX,,-1] 12245 DFAD AC,[777,,-1 12246 042571 110 04 0 00 043767 XX,,-1] 12247 042572 312 04 0 00 044471 CAME AC,[1777,,-1] 12248 042573 003 04 0 00 001740 ER3 AC,T 12249 042574 312 05 0 00 043771 CAME AC+1,[XX&377777,,-1] 12250 042575 004 05 0 00 001740 ER4 AC+1,T 12251 042576 321 10 0 00 042570 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12252 12253 001741 T=T+1 12254 777777 737777 XX=XX+XX+1 12255 IFE , 12256 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12257 DMOVE AC,[777,,-1 12258 042577 120 04 0 00 043772 XX,,-1] 12259 DFAD AC,[777,,-1 12260 042600 110 04 0 00 043772 XX,,-1] 12261 042601 312 04 0 00 044471 CAME AC,[1777,,-1] 12262 042602 003 04 0 00 001741 ER3 AC,T 12263 042603 312 05 0 00 043774 CAME AC+1,[XX&377777,,-1] 12264 042604 004 05 0 00 001741 ER4 AC+1,T 12265 042605 321 10 0 00 042577 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12266 12267 001742 T=T+1 12268 777777 677777 XX=XX+XX+1 12269 IFE , 12270 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12271 DMOVE AC,[777,,-1 12272 042606 120 04 0 00 043775 XX,,-1] 12273 DFAD AC,[777,,-1 12274 042607 110 04 0 00 043775 XX,,-1] 12275 042610 312 04 0 00 044471 CAME AC,[1777,,-1] 12276 042611 003 04 0 00 001742 ER3 AC,T 12277 042612 312 05 0 00 043777 CAME AC+1,[XX&377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-9 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0249 12278 042613 004 05 0 00 001742 ER4 AC+1,T 12279 042614 321 10 0 00 042606 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12280 12281 001743 T=T+1 12282 777777 577777 XX=XX+XX+1 12283 IFE , 12284 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12285 DMOVE AC,[777,,-1 12286 042615 120 04 0 00 044000 XX,,-1] 12287 DFAD AC,[777,,-1 12288 042616 110 04 0 00 044000 XX,,-1] 12289 042617 312 04 0 00 044471 CAME AC,[1777,,-1] 12290 042620 003 04 0 00 001743 ER3 AC,T 12291 042621 312 05 0 00 044002 CAME AC+1,[XX&377777,,-1] 12292 042622 004 05 0 00 001743 ER4 AC+1,T 12293 042623 321 10 0 00 042615 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12294 12295 001744 T=T+1 12296 777777 377777 XX=XX+XX+1 12297 IFE , 12298 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^ 12299 DMOVE AC,[777,,-1 12300 042624 120 04 0 00 044003 XX,,-1] 12301 DFAD AC,[777,,-1 12302 042625 110 04 0 00 044003 XX,,-1] 12303 042626 312 04 0 00 044471 CAME AC,[1777,,-1] 12304 042627 003 04 0 00 001744 ER3 AC,T 12305 042630 312 05 0 00 043631 CAME AC+1,[XX&377777,,-1] 12306 042631 004 05 0 00 001744 ER4 AC+1,T 12307 042632 321 10 0 00 042624 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12308 12309 12310 000000 XX=0 12311 12312 REPEAT ^D18, 12313 , 12316 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1 12317 > 12318 001745 T=T+1 12319 000001 XX=XX+XX+1 12320 777777 777776 IFE , 12321 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12322 DMOVE AC,[777,,XX 12323 042633 120 04 0 00 044005 -1,,-1] 12324 DFAD AC,[777,,XX 12325 042634 110 04 0 00 044005 -1,,-1] 12326 042635 312 04 0 00 044472 CAME AC,[1777,,XX] 12327 042636 003 04 0 00 001745 ER3 AC,T 12328 042637 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12329 042640 004 05 0 00 001745 ER4 AC+1,T 12330 042641 321 10 0 00 042633 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12331 12332 001746 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-10 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0250 12333 777777 777775 XX=XX+XX+1 12334 IFE , 12335 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12336 DMOVE AC,[777,,XX 12337 042642 120 04 0 00 044007 -1,,-1] 12338 DFAD AC,[777,,XX 12339 042643 110 04 0 00 044007 -1,,-1] 12340 042644 312 04 0 00 044473 CAME AC,[1777,,XX] 12341 042645 003 04 0 00 001746 ER3 AC,T 12342 042646 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12343 042647 004 05 0 00 001746 ER4 AC+1,T 12344 042650 321 10 0 00 042642 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12345 12346 001747 T=T+1 12347 777777 777773 XX=XX+XX+1 12348 IFE , 12349 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12350 DMOVE AC,[777,,XX 12351 042651 120 04 0 00 044011 -1,,-1] 12352 DFAD AC,[777,,XX 12353 042652 110 04 0 00 044011 -1,,-1] 12354 042653 312 04 0 00 044474 CAME AC,[1777,,XX] 12355 042654 003 04 0 00 001747 ER3 AC,T 12356 042655 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12357 042656 004 05 0 00 001747 ER4 AC+1,T 12358 042657 321 10 0 00 042651 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12359 12360 001750 T=T+1 12361 777777 777767 XX=XX+XX+1 12362 IFE , 12363 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12364 DMOVE AC,[777,,XX 12365 042660 120 04 0 00 044013 -1,,-1] 12366 DFAD AC,[777,,XX 12367 042661 110 04 0 00 044013 -1,,-1] 12368 042662 312 04 0 00 044475 CAME AC,[1777,,XX] 12369 042663 003 04 0 00 001750 ER3 AC,T 12370 042664 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12371 042665 004 05 0 00 001750 ER4 AC+1,T 12372 042666 321 10 0 00 042660 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12373 12374 001751 T=T+1 12375 777777 777757 XX=XX+XX+1 12376 IFE , 12377 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12378 DMOVE AC,[777,,XX 12379 042667 120 04 0 00 044015 -1,,-1] 12380 DFAD AC,[777,,XX 12381 042670 110 04 0 00 044015 -1,,-1] 12382 042671 312 04 0 00 044476 CAME AC,[1777,,XX] 12383 042672 003 04 0 00 001751 ER3 AC,T 12384 042673 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12385 042674 004 05 0 00 001751 ER4 AC+1,T 12386 042675 321 10 0 00 042667 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12387 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-11 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0251 12388 001752 T=T+1 12389 777777 777737 XX=XX+XX+1 12390 IFE , 12391 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12392 DMOVE AC,[777,,XX 12393 042676 120 04 0 00 044017 -1,,-1] 12394 DFAD AC,[777,,XX 12395 042677 110 04 0 00 044017 -1,,-1] 12396 042700 312 04 0 00 044477 CAME AC,[1777,,XX] 12397 042701 003 04 0 00 001752 ER3 AC,T 12398 042702 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12399 042703 004 05 0 00 001752 ER4 AC+1,T 12400 042704 321 10 0 00 042676 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12401 12402 001753 T=T+1 12403 777777 777677 XX=XX+XX+1 12404 IFE , 12405 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12406 DMOVE AC,[777,,XX 12407 042705 120 04 0 00 044021 -1,,-1] 12408 DFAD AC,[777,,XX 12409 042706 110 04 0 00 044021 -1,,-1] 12410 042707 312 04 0 00 044500 CAME AC,[1777,,XX] 12411 042710 003 04 0 00 001753 ER3 AC,T 12412 042711 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12413 042712 004 05 0 00 001753 ER4 AC+1,T 12414 042713 321 10 0 00 042705 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12415 12416 001754 T=T+1 12417 777777 777577 XX=XX+XX+1 12418 IFE , 12419 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12420 DMOVE AC,[777,,XX 12421 042714 120 04 0 00 044023 -1,,-1] 12422 DFAD AC,[777,,XX 12423 042715 110 04 0 00 044023 -1,,-1] 12424 042716 312 04 0 00 044501 CAME AC,[1777,,XX] 12425 042717 003 04 0 00 001754 ER3 AC,T 12426 042720 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12427 042721 004 05 0 00 001754 ER4 AC+1,T 12428 042722 321 10 0 00 042714 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12429 12430 001755 T=T+1 12431 777777 777377 XX=XX+XX+1 12432 IFE , 12433 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12434 DMOVE AC,[777,,XX 12435 042723 120 04 0 00 044025 -1,,-1] 12436 DFAD AC,[777,,XX 12437 042724 110 04 0 00 044025 -1,,-1] 12438 042725 312 04 0 00 044502 CAME AC,[1777,,XX] 12439 042726 003 04 0 00 001755 ER3 AC,T 12440 042727 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12441 042730 004 05 0 00 001755 ER4 AC+1,T 12442 042731 321 10 0 00 042723 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-12 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0252 12443 12444 001756 T=T+1 12445 777777 776777 XX=XX+XX+1 12446 IFE , 12447 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12448 DMOVE AC,[777,,XX 12449 042732 120 04 0 00 044027 -1,,-1] 12450 DFAD AC,[777,,XX 12451 042733 110 04 0 00 044027 -1,,-1] 12452 042734 312 04 0 00 044503 CAME AC,[1777,,XX] 12453 042735 003 04 0 00 001756 ER3 AC,T 12454 042736 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12455 042737 004 05 0 00 001756 ER4 AC+1,T 12456 042740 321 10 0 00 042732 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12457 12458 001757 T=T+1 12459 777777 775777 XX=XX+XX+1 12460 IFE , 12461 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12462 DMOVE AC,[777,,XX 12463 042741 120 04 0 00 044031 -1,,-1] 12464 DFAD AC,[777,,XX 12465 042742 110 04 0 00 044031 -1,,-1] 12466 042743 312 04 0 00 044504 CAME AC,[1777,,XX] 12467 042744 003 04 0 00 001757 ER3 AC,T 12468 042745 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12469 042746 004 05 0 00 001757 ER4 AC+1,T 12470 042747 321 10 0 00 042741 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12471 12472 001760 T=T+1 12473 777777 773777 XX=XX+XX+1 12474 IFE , 12475 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12476 DMOVE AC,[777,,XX 12477 042750 120 04 0 00 044033 -1,,-1] 12478 DFAD AC,[777,,XX 12479 042751 110 04 0 00 044033 -1,,-1] 12480 042752 312 04 0 00 044505 CAME AC,[1777,,XX] 12481 042753 003 04 0 00 001760 ER3 AC,T 12482 042754 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12483 042755 004 05 0 00 001760 ER4 AC+1,T 12484 042756 321 10 0 00 042750 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12485 12486 001761 T=T+1 12487 777777 767777 XX=XX+XX+1 12488 IFE , 12489 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12490 DMOVE AC,[777,,XX 12491 042757 120 04 0 00 044035 -1,,-1] 12492 DFAD AC,[777,,XX 12493 042760 110 04 0 00 044035 -1,,-1] 12494 042761 312 04 0 00 044506 CAME AC,[1777,,XX] 12495 042762 003 04 0 00 001761 ER3 AC,T 12496 042763 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12497 042764 004 05 0 00 001761 ER4 AC+1,T DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-13 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0253 12498 042765 321 10 0 00 042757 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12499 12500 001762 T=T+1 12501 777777 757777 XX=XX+XX+1 12502 IFE , 12503 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12504 DMOVE AC,[777,,XX 12505 042766 120 04 0 00 044037 -1,,-1] 12506 DFAD AC,[777,,XX 12507 042767 110 04 0 00 044037 -1,,-1] 12508 042770 312 04 0 00 044507 CAME AC,[1777,,XX] 12509 042771 003 04 0 00 001762 ER3 AC,T 12510 042772 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12511 042773 004 05 0 00 001762 ER4 AC+1,T 12512 042774 321 10 0 00 042766 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12513 12514 001763 T=T+1 12515 777777 737777 XX=XX+XX+1 12516 IFE , 12517 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12518 DMOVE AC,[777,,XX 12519 042775 120 04 0 00 044041 -1,,-1] 12520 DFAD AC,[777,,XX 12521 042776 110 04 0 00 044041 -1,,-1] 12522 042777 312 04 0 00 044510 CAME AC,[1777,,XX] 12523 043000 003 04 0 00 001763 ER3 AC,T 12524 043001 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12525 043002 004 05 0 00 001763 ER4 AC+1,T 12526 043003 321 10 0 00 042775 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12527 12528 001764 T=T+1 12529 777777 677777 XX=XX+XX+1 12530 IFE , 12531 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12532 DMOVE AC,[777,,XX 12533 043004 120 04 0 00 044043 -1,,-1] 12534 DFAD AC,[777,,XX 12535 043005 110 04 0 00 044043 -1,,-1] 12536 043006 312 04 0 00 044511 CAME AC,[1777,,XX] 12537 043007 003 04 0 00 001764 ER3 AC,T 12538 043010 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12539 043011 004 05 0 00 001764 ER4 AC+1,T 12540 043012 321 10 0 00 043004 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12541 12542 001765 T=T+1 12543 777777 577777 XX=XX+XX+1 12544 IFE , 12545 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12546 DMOVE AC,[777,,XX 12547 043013 120 04 0 00 044045 -1,,-1] 12548 DFAD AC,[777,,XX 12549 043014 110 04 0 00 044045 -1,,-1] 12550 043015 312 04 0 00 044512 CAME AC,[1777,,XX] 12551 043016 003 04 0 00 001765 ER3 AC,T 12552 043017 312 05 0 00 043631 CAME AC+1,[377777,,-1] DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-14 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0254 12553 043020 004 05 0 00 001765 ER4 AC+1,T 12554 043021 321 10 0 00 043013 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12555 12556 001766 T=T+1 12557 777777 377777 XX=XX+XX+1 12558 IFE , 12559 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^ 12560 DMOVE AC,[777,,XX 12561 043022 120 04 0 00 044047 -1,,-1] 12562 DFAD AC,[777,,XX 12563 043023 110 04 0 00 044047 -1,,-1] 12564 043024 312 04 0 00 044513 CAME AC,[1777,,XX] 12565 043025 003 04 0 00 001766 ER3 AC,T 12566 043026 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12567 043027 004 05 0 00 001766 ER4 AC+1,T 12568 043030 321 10 0 00 043022 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12569 12570 12571 000000 ZZ=0 12572 12573 REPEAT ^D8, 12574 , 12577 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1 12578 > 12579 001767 T=T+1 12580 777776 777777 XX=XX+XX+1 12581 IFE , 12582 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12583 DMOVE AC,[XX&777,,-1 12584 043031 120 04 0 00 043627 -1,,-1] 12585 DFAD AC,[XX&777,,-1 12586 043032 110 04 0 00 043627 -1,,-1] 12587 043033 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12588 043034 003 04 0 00 001767 ER3 AC,T 12589 043035 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12590 043036 004 05 0 00 001767 ER4 AC+1,T 12591 043037 321 10 0 00 043031 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12592 12593 001770 T=T+1 12594 777775 777777 XX=XX+XX+1 12595 IFE , 12596 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12597 DMOVE AC,[XX&777,,-1 12598 043040 120 04 0 00 043627 -1,,-1] 12599 DFAD AC,[XX&777,,-1 12600 043041 110 04 0 00 043627 -1,,-1] 12601 043042 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12602 043043 003 04 0 00 001770 ER3 AC,T 12603 043044 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12604 043045 004 05 0 00 001770 ER4 AC+1,T 12605 043046 321 10 0 00 043040 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12606 12607 001771 T=T+1 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-15 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0255 12608 777773 777777 XX=XX+XX+1 12609 IFE , 12610 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12611 DMOVE AC,[XX&777,,-1 12612 043047 120 04 0 00 043627 -1,,-1] 12613 DFAD AC,[XX&777,,-1 12614 043050 110 04 0 00 043627 -1,,-1] 12615 043051 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12616 043052 003 04 0 00 001771 ER3 AC,T 12617 043053 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12618 043054 004 05 0 00 001771 ER4 AC+1,T 12619 043055 321 10 0 00 043047 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12620 12621 001772 T=T+1 12622 777767 777777 XX=XX+XX+1 12623 IFE , 12624 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12625 DMOVE AC,[XX&777,,-1 12626 043056 120 04 0 00 043627 -1,,-1] 12627 DFAD AC,[XX&777,,-1 12628 043057 110 04 0 00 043627 -1,,-1] 12629 043060 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12630 043061 003 04 0 00 001772 ER3 AC,T 12631 043062 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12632 043063 004 05 0 00 001772 ER4 AC+1,T 12633 043064 321 10 0 00 043056 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12634 12635 001773 T=T+1 12636 777757 777777 XX=XX+XX+1 12637 IFE , 12638 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12639 DMOVE AC,[XX&777,,-1 12640 043065 120 04 0 00 043627 -1,,-1] 12641 DFAD AC,[XX&777,,-1 12642 043066 110 04 0 00 043627 -1,,-1] 12643 043067 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12644 043070 003 04 0 00 001773 ER3 AC,T 12645 043071 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12646 043072 004 05 0 00 001773 ER4 AC+1,T 12647 043073 321 10 0 00 043065 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12648 12649 001774 T=T+1 12650 777737 777777 XX=XX+XX+1 12651 IFE , 12652 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12653 DMOVE AC,[XX&777,,-1 12654 043074 120 04 0 00 043627 -1,,-1] 12655 DFAD AC,[XX&777,,-1 12656 043075 110 04 0 00 043627 -1,,-1] 12657 043076 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12658 043077 003 04 0 00 001774 ER3 AC,T 12659 043100 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12660 043101 004 05 0 00 001774 ER4 AC+1,T 12661 043102 321 10 0 00 043074 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12662 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-16 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0256 12663 001775 T=T+1 12664 777677 777777 XX=XX+XX+1 12665 IFE , 12666 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12667 DMOVE AC,[XX&777,,-1 12668 043103 120 04 0 00 043627 -1,,-1] 12669 DFAD AC,[XX&777,,-1 12670 043104 110 04 0 00 043627 -1,,-1] 12671 043105 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12672 043106 003 04 0 00 001775 ER3 AC,T 12673 043107 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12674 043110 004 05 0 00 001775 ER4 AC+1,T 12675 043111 321 10 0 00 043103 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12676 12677 001776 T=T+1 12678 777577 777777 XX=XX+XX+1 12679 IFE , 12680 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^ 12681 DMOVE AC,[XX&777,,-1 12682 043112 120 04 0 00 043627 -1,,-1] 12683 DFAD AC,[XX&777,,-1 12684 043113 110 04 0 00 043627 -1,,-1] 12685 043114 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1] 12686 043115 003 04 0 00 001776 ER3 AC,T 12687 043116 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12688 043117 004 05 0 00 001776 ER4 AC+1,T 12689 043120 321 10 0 00 043112 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12690 12691 12692 001777 T=T+1 12693 000777 XX=&777 12694 DFARP T,XX,-1,-1,-1,XX,-1,-1,-1,XX+XX+1,-1,377777,-1^ 12695 DMOVE AC,[XX,,-1 12696 043121 120 04 0 00 043627 -1,,-1] 12697 DFAD AC,[XX,,-1 12698 043122 110 04 0 00 043627 -1,,-1] 12699 043123 312 04 0 00 044471 CAME AC,[XX+XX+1,,-1] 12700 043124 003 04 0 00 001777 ER3 AC,T 12701 043125 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12702 043126 004 05 0 00 001777 ER4 AC+1,T 12703 043127 321 10 0 00 043121 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 12704 PAGE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-17 DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0257 12705 ;ADD A FRACTION OF ALL ONES TO SAME 12706 DFA 20,777,-1,-1,-1,777,-1,-1,-1,1777,-1,377777,-1^ 12707 R2000: DMOVE AC,[777,,-1 12708 043130 120 04 0 00 043627 -1,,-1] 12709 DFAD AC,[777,,-1 12710 043131 110 04 0 00 043627 -1,,-1] 12711 043132 312 04 0 00 044471 CAME AC,[1777,,-1] 12712 043133 003 04 0 00 002001 ER3 AC,2001 12713 043134 312 05 0 00 043631 CAME AC+1,[377777,,-1] 12714 043135 004 05 0 00 002001 ER4 AC+1,2001 12715 043136 321 10 0 00 043130 JUMPL AC+4,R2000 ;LOOP ON ERROR SWITCH^ 12716 12717 12718 043137 254 00 0 00 030057 JRST BEGEND DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0258 12719 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 12720 12721 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 12722 12723 043140 202 00 0 00 044677 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 12724 043141 202 01 0 00 044700 MOVEM 1,%ERAC1# ;SAVE AC1 12725 043142 202 02 0 00 044701 MOVEM 2,%ERAC2# ;SAVE AC2 12726 043143 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 12727 043144 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 12728 043145 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 12729 043146 350 00 0 00 044674 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 12730 043147 200 00 0 00 044674 MOVE 0,MICNT 12731 043150 504 00 0 00 030114 HRL 0,$SVUPC 12732 043151 402 00 0 00 044675 SETZM PROCED# ;CLEAR PROCEED FLAG 12733 043152 037 10 0 00 000002 SWITCH 12734 043153 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 12735 043154 254 00 0 00 043266 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 12736 043155 200 01 0 00 030113 MOVE 1,$SVUUO 12737 043156 242 01 0 00 777745 LSH 1,-^D27 12738 043157 202 01 0 00 044676 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 12739 043160 200 00 0 00 044677 MOVE 0,%ERAC0 12740 043161 200 01 0 00 044700 MOVE 1,%ERAC1 12741 043162 335 00 1 00 044673 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ? 12742 043163 254 00 0 00 043320 JRST %ERRS4 ;NO, SEE IF PRINT ALL 12743 043164 402 00 0 00 044674 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 12744 043165 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 12745 043166 254 00 0 00 043172 JRST .+4 ;NO, DON'T NEED TITLE 12746 043167 336 00 0 00 044702 SKIPN %ERFST# ;FIRST ERROR ? 12747 043170 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 12748 043171 476 00 0 00 044702 SETOM %ERFST 12749 043172 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 12750 043173 254 00 0 00 043177 JRST .+4 ;YES 12751 PMSG <^TEST PASS COUNT = >^ 12752 043174 037 02 0 00 044514 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 12753 043175 200 00 0 00 030047 MOVE PASCNT 12754 043176 037 15 0 00 000000 PNTDEC 12755 PMSG <^PC = >^ 12756 043177 037 02 0 00 044520 PSIXM [SIXBIT\^PC = _\]^ 12757 043200 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 12758 043201 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 12759 043202 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 12760 XLIST 12761 IFDEF ERDIAG,^ 12767 043203 037 02 0 00 044522 PSIXM [SIXBIT\^RESULT = _\]^ 12768 043204 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 12769 043205 242 01 0 00 777751 LSH 1,-27 12770 043206 405 01 0 00 000017 ANDI 1,17 12771 043207 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 12772 043210 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 12773 043211 200 00 0 01 044677 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 12774 043212 037 13 0 00 000000 PNTHW ;PRINT C(AC) 12775 12776 043213 200 00 0 00 030046 MOVE CONSW 12777 043214 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 12778 043215 254 00 0 00 043264 JRST %ERMORE ;NO, RESTORE AC'S ETC. 12779 12780 ;PRINT FAILURE DESCRIPTOR 12781 12782 043216 200 01 0 00 044676 MOVE 1,%ACS1A ;GET UUO NUMBER 12783 043217 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 12784 043220 254 00 0 00 043224 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 12785 043221 037 00 0 00 030242 PCRL 12786 043222 200 00 0 01 043250 MOVE %FLTTB(1) 12787 043223 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 12788 12789 ;PRINT FAULT NUMBER 12790 12791 043224 %ERMS3: PMSG <^FAULT NUMBER = >^ 12792 043224 037 02 0 00 044524 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 12793 043225 201 00 0 00 043247 MOVEI TLET 12794 043226 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0260 12795 12796 043227 550 00 0 00 030113 HRRZ $SVUUO 12797 043230 602 00 0 00 700000 TRNE 700000 12798 043231 254 00 0 00 043245 JRST %ER6X 12799 043232 602 00 0 00 070000 TRNE 070000 12800 043233 254 00 0 00 043243 JRST %ER5X 12801 043234 602 00 0 00 007000 TRNE 007000 12802 043235 254 00 0 00 043241 JRST %ER4X 12803 043236 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 12804 043237 037 00 0 00 030242 %ER7X: PCRL 12805 043240 254 00 0 00 043264 JRST %ERMORE 12806 12807 043241 037 04 0 00 000000 %ER4X: PNT4 12808 043242 254 00 0 00 043237 JRST %ER7X 12809 043243 037 05 0 00 000000 %ER5X: PNT5 12810 043244 254 00 0 00 043237 JRST %ER7X 12811 043245 037 06 0 00 000000 %ER6X: PNT6 12812 043246 254 00 0 00 043237 JRST %ER7X 12813 12814 ;FAILURE DESCRIPTORS 12815 12816 043247 000000 000000 TLET: 0 ;TEST LETTER 12817 043250 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 12818 043251 000000 043330 %NODES: [0] ;NO DESCRIPTOR 12819 043252 000000 043330 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 12820 043253 000000 044527 $ACF: [ASCIZ/C(AC) FAILED/] 12821 043254 000000 044532 %AC1F: [ASCIZ/C(AC+1) FAILED/] 12822 043255 000000 044535 %EF: [ASCIZ/C(E) FAILED/] 12823 043256 000000 044540 %E1F: [ASCIZ/C(E+1) FAILED/] 12824 043257 000000 044543 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 12825 043260 000000 044547 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 12826 043261 000000 044553 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 12827 043262 000000 044557 %EEF: [ASCIZ/C(C(E)) FAILED/] 12828 043263 000000 044562 %FF: [ASCIZ/FLAG FAILED/] 12829 > 12830 XLIST 12831 LIST DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0261 12832 ;RESTORE AC'S AND RETURN OR HALT 12833 12834 043264 256 00 0 00 030101 %ERMORE:XCT ERMORE 12835 043265 037 10 0 00 000002 SWITCH 12836 12837 043266 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 12838 043267 254 00 0 00 043273 JRST .+4 ;NONE 12839 043270 201 00 0 00 043273 MOVEI .+3 ;SAVE CONT ADDRESS 12840 043271 202 00 0 00 000130 MOVEM JOBOPC 12841 043272 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER 12842 043273 200 00 0 00 030046 MOVE CONSW 12843 043274 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 12844 043275 037 14 0 00 000004 ERRHLT ;YES 12845 043276 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 12846 043277 476 00 0 00 044675 SETOM PROCED ;NO, SET THE PROCEED FLAG 12847 043300 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 12848 043301 037 01 0 00 000007 PBELL ;YES, GO RING BELL 12849 12850 043302 200 02 0 00 044701 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 12851 043303 200 01 0 00 044700 MOVE 1,%ERAC1 12852 043304 476 00 1 00 044673 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1 12853 043305 336 00 0 00 044675 SKIPN PROCED ;LOOP ON ERROR ? 12854 043306 254 00 0 00 043316 JRST %ERRS5 ;YES 12855 043307 350 00 1 00 044673 AOS @ERRLOP ;NO, INC C(ERR LOOP AC) 12856 043310 350 00 1 00 044673 AOS @ERRLOP ;SO IT ='S 1 12857 043311 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 12858 043312 254 00 0 00 043316 JRST %ERRS5 ;NO, CONTINUE PROGRAM 12859 043313 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 12860 043314 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 12861 043315 254 00 0 00 043324 JRST %ERRS6 12862 12863 043316 200 00 0 00 044677 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 12864 043317 254 00 0 00 030065 JRST UUOEXT 12865 12866 043320 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 12867 043321 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 12868 043322 254 00 0 00 043266 JRST %ERRS1 ;NO 12869 043323 254 00 0 00 043164 JRST %ERMS1 ;YES 12870 12871 043324 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 12872 043324 037 04 0 00 044565 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 12873 043325 254 00 0 00 030061 JRST $BEND2 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0262 12874 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 12875 12876 ;PROGRAM LITERALS 12877 12878 XLIST 12879 IFNDEF $LPAPER, 12880 043326 LIT 12881 043326 45 70 51 64 00 00 12882 043327 103 104 000 000 000 12883 043330 000000 000000 12884 043331 000000 000000 12885 043332 200000 000000 12886 043333 000000 000000 12887 043334 200400 000000 12888 043335 000000 000000 12889 043336 200200 000000 12890 043337 000000 000000 12891 043340 177400 000000 12892 043341 200100 000000 12893 043342 000000 000000 12894 043343 176400 000000 12895 043344 200040 000000 12896 043345 000000 000000 12897 043346 175400 000000 12898 043347 200020 000000 12899 043350 000000 000000 12900 043351 174400 000000 12901 043352 200010 000000 12902 043353 000000 000000 12903 043354 173400 000000 12904 043355 200004 000000 12905 043356 000000 000000 12906 043357 172400 000000 12907 043360 200002 000000 12908 043361 000000 000000 12909 043362 171400 000000 12910 043363 200001 000000 12911 043364 000000 000000 12912 043365 170400 000000 12913 043366 200000 400000 12914 043367 000000 000000 12915 043370 167400 000000 12916 043371 200000 200000 12917 043372 000000 000000 12918 043373 166400 000000 12919 043374 200000 100000 12920 043375 000000 000000 12921 043376 165400 000000 12922 043377 200000 040000 12923 043400 000000 000000 12924 043401 164400 000000 12925 043402 200000 020000 12926 043403 000000 000000 12927 043404 163400 000000 12928 043405 200000 010000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0263 12929 043406 000000 000000 12930 043407 162400 000000 12931 043410 200000 004000 12932 043411 000000 000000 12933 043412 161400 000000 12934 043413 200000 002000 12935 043414 000000 000000 12936 043415 160400 000000 12937 043416 200000 001000 12938 043417 000000 000000 12939 043420 157400 000000 12940 043421 200000 000400 12941 043422 000000 000000 12942 043423 156400 000000 12943 043424 200000 000200 12944 043425 000000 000000 12945 043426 155400 000000 12946 043427 200000 000100 12947 043430 000000 000000 12948 043431 154400 000000 12949 043432 200000 000040 12950 043433 000000 000000 12951 043434 153400 000000 12952 043435 200000 000020 12953 043436 000000 000000 12954 043437 152400 000000 12955 043440 200000 000010 12956 043441 000000 000000 12957 043442 151400 000000 12958 043443 200000 000004 12959 043444 000000 000000 12960 043445 150400 000000 12961 043446 200000 000002 12962 043447 000000 000000 12963 043450 147400 000000 12964 043451 200000 000001 12965 043452 000000 000000 12966 043453 146400 000000 12967 043454 200000 000000 12968 043455 400000 000000 12969 043456 200000 000000 12970 043457 200000 000000 12971 043460 145400 000000 12972 043461 200000 000000 12973 043462 100000 000000 12974 043463 144400 000000 12975 043464 200000 000000 12976 043465 040000 000000 12977 043466 143400 000000 12978 043467 200000 000000 12979 043470 020000 000000 12980 043471 142400 000000 12981 043472 200000 000000 12982 043473 010000 000000 12983 043474 141400 000000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0264 12984 043475 200000 000000 12985 043476 004000 000000 12986 043477 140400 000000 12987 043500 200000 000000 12988 043501 002000 000000 12989 043502 137400 000000 12990 043503 200000 000000 12991 043504 001000 000000 12992 043505 136400 000000 12993 043506 200000 000000 12994 043507 000400 000000 12995 043510 135400 000000 12996 043511 200000 000000 12997 043512 000200 000000 12998 043513 134400 000000 12999 043514 200000 000000 13000 043515 000100 000000 13001 043516 133400 000000 13002 043517 200000 000000 13003 043520 000040 000000 13004 043521 132400 000000 13005 043522 200000 000000 13006 043523 000020 000000 13007 043524 131400 000000 13008 043525 200000 000000 13009 043526 000010 000000 13010 043527 130400 000000 13011 043530 200000 000000 13012 043531 000004 000000 13013 043532 127400 000000 13014 043533 200000 000000 13015 043534 000002 000000 13016 043535 126400 000000 13017 043536 200000 000000 13018 043537 000001 000000 13019 043540 125400 000000 13020 043541 200000 000000 13021 043542 000000 400000 13022 043543 124400 000000 13023 043544 200000 000000 13024 043545 000000 200000 13025 043546 123400 000000 13026 043547 200000 000000 13027 043550 000000 100000 13028 043551 122400 000000 13029 043552 200000 000000 13030 043553 000000 040000 13031 043554 121400 000000 13032 043555 200000 000000 13033 043556 000000 020000 13034 043557 120400 000000 13035 043560 200000 000000 13036 043561 000000 010000 13037 043562 117400 000000 13038 043563 200000 000000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0265 13039 043564 000000 004000 13040 043565 116400 000000 13041 043566 200000 000000 13042 043567 000000 002000 13043 043570 115400 000000 13044 043571 200000 000000 13045 043572 000000 001000 13046 043573 114400 000000 13047 043574 200000 000000 13048 043575 000000 000400 13049 043576 113400 000000 13050 043577 200000 000000 13051 043600 000000 000200 13052 043601 112400 000000 13053 043602 200000 000000 13054 043603 000000 000100 13055 043604 111400 000000 13056 043605 200000 000000 13057 043606 000000 000040 13058 043607 110400 000000 13059 043610 200000 000000 13060 043611 000000 000020 13061 043612 107400 000000 13062 043613 200000 000000 13063 043614 000000 000010 13064 043615 106400 000000 13065 043616 200000 000000 13066 043617 000000 000004 13067 043620 105400 000000 13068 043621 200000 000000 13069 043622 000000 000002 13070 043623 104400 000000 13071 043624 200000 000000 13072 043625 000000 000001 13073 043626 103400 000000 13074 043627 000777 777777 13075 043630 777777 777777 13076 043631 377777 777777 13077 043632 000777 777777 13078 043633 777777 777776 13079 043634 377777 777776 13080 043635 000777 777777 13081 043636 777777 777775 13082 043637 377777 777775 13083 043640 000777 777777 13084 043641 777777 777773 13085 043642 377777 777773 13086 043643 000777 777777 13087 043644 777777 777767 13088 043645 377777 777767 13089 043646 000777 777777 13090 043647 777777 777757 13091 043650 377777 777757 13092 043651 000777 777777 13093 043652 777777 777737 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-4 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0266 13094 043653 377777 777737 13095 043654 000777 777777 13096 043655 777777 777677 13097 043656 377777 777677 13098 043657 000777 777777 13099 043660 777777 777577 13100 043661 377777 777577 13101 043662 000777 777777 13102 043663 777777 777377 13103 043664 377777 777377 13104 043665 000777 777777 13105 043666 777777 776777 13106 043667 377777 776777 13107 043670 000777 777777 13108 043671 777777 775777 13109 043672 377777 775777 13110 043673 000777 777777 13111 043674 777777 773777 13112 043675 377777 773777 13113 043676 000777 777777 13114 043677 777777 767777 13115 043700 377777 767777 13116 043701 000777 777777 13117 043702 777777 757777 13118 043703 377777 757777 13119 043704 000777 777777 13120 043705 777777 737777 13121 043706 377777 737777 13122 043707 000777 777777 13123 043710 777777 677777 13124 043711 377777 677777 13125 043712 000777 777777 13126 043713 777777 577777 13127 043714 377777 577777 13128 043715 000777 777777 13129 043716 777777 377777 13130 043717 377777 377777 13131 043720 000777 777777 13132 043721 777776 777777 13133 043722 377776 777777 13134 043723 000777 777777 13135 043724 777775 777777 13136 043725 377775 777777 13137 043726 000777 777777 13138 043727 777773 777777 13139 043730 377773 777777 13140 043731 000777 777777 13141 043732 777767 777777 13142 043733 377767 777777 13143 043734 000777 777777 13144 043735 777757 777777 13145 043736 377757 777777 13146 043737 000777 777777 13147 043740 777737 777777 13148 043741 377737 777777 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-5 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0267 13149 043742 000777 777777 13150 043743 777677 777777 13151 043744 377677 777777 13152 043745 000777 777777 13153 043746 777577 777777 13154 043747 377577 777777 13155 043750 000777 777777 13156 043751 777377 777777 13157 043752 377377 777777 13158 043753 000777 777777 13159 043754 776777 777777 13160 043755 376777 777777 13161 043756 000777 777777 13162 043757 775777 777777 13163 043760 375777 777777 13164 043761 000777 777777 13165 043762 773777 777777 13166 043763 373777 777777 13167 043764 000777 777777 13168 043765 767777 777777 13169 043766 367777 777777 13170 043767 000777 777777 13171 043770 757777 777777 13172 043771 357777 777777 13173 043772 000777 777777 13174 043773 737777 777777 13175 043774 337777 777777 13176 043775 000777 777777 13177 043776 677777 777777 13178 043777 277777 777777 13179 044000 000777 777777 13180 044001 577777 777777 13181 044002 177777 777777 13182 044003 000777 777777 13183 044004 377777 777777 13184 044005 000777 777776 13185 044006 777777 777777 13186 044007 000777 777775 13187 044010 777777 777777 13188 044011 000777 777773 13189 044012 777777 777777 13190 044013 000777 777767 13191 044014 777777 777777 13192 044015 000777 777757 13193 044016 777777 777777 13194 044017 000777 777737 13195 044020 777777 777777 13196 044021 000777 777677 13197 044022 777777 777777 13198 044023 000777 777577 13199 044024 777777 777777 13200 044025 000777 777377 13201 044026 777777 777777 13202 044027 000777 776777 13203 044030 777777 777777 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-6 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0268 13204 044031 000777 775777 13205 044032 777777 777777 13206 044033 000777 773777 13207 044034 777777 777777 13208 044035 000777 767777 13209 044036 777777 777777 13210 044037 000777 757777 13211 044040 777777 777777 13212 044041 000777 737777 13213 044042 777777 777777 13214 044043 000777 677777 13215 044044 777777 777777 13216 044045 000777 577777 13217 044046 777777 777777 13218 044047 000777 377777 13219 044050 777777 777777 13220 044051 000776 777777 13221 044052 777777 777777 13222 044053 000775 777777 13223 044054 777777 777777 13224 044055 000773 777777 13225 044056 777777 777777 13226 044057 000767 777777 13227 044060 777777 777777 13228 044061 000757 777777 13229 044062 777777 777777 13230 044063 000737 777777 13231 044064 777777 777777 13232 044065 000677 777777 13233 044066 777777 777777 13234 044067 000577 777777 13235 044070 777777 777777 13236 044071 001377 777777 13237 044072 777777 777777 13238 044073 000000 000000 13239 044074 000000 000001 13240 044075 000000 000000 13241 044076 000000 000002 13242 044077 000000 000000 13243 044100 000000 000004 13244 044101 000000 000000 13245 044102 000000 000010 13246 044103 000000 000000 13247 044104 000000 000020 13248 044105 000000 000000 13249 044106 000000 000040 13250 044107 000000 000000 13251 044110 000000 000100 13252 044111 000000 000000 13253 044112 000000 000200 13254 044113 000000 000000 13255 044114 000000 000400 13256 044115 000000 000000 13257 044116 000000 001000 13258 044117 000000 000000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-7 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0269 13259 044120 000000 002000 13260 044121 000000 000000 13261 044122 000000 004000 13262 044123 000000 000000 13263 044124 000000 010000 13264 044125 000000 000000 13265 044126 000000 020000 13266 044127 000000 000000 13267 044130 000000 040000 13268 044131 000000 000000 13269 044132 000000 100000 13270 044133 000000 000000 13271 044134 000000 200000 13272 044135 000000 000000 13273 044136 000000 400000 13274 044137 000000 000000 13275 044140 000001 000000 13276 044141 000000 000000 13277 044142 000002 000000 13278 044143 000000 000000 13279 044144 000004 000000 13280 044145 000000 000000 13281 044146 000010 000000 13282 044147 000000 000000 13283 044150 000020 000000 13284 044151 000000 000000 13285 044152 000040 000000 13286 044153 000000 000000 13287 044154 000100 000000 13288 044155 000000 000000 13289 044156 000200 000000 13290 044157 000000 000000 13291 044160 000400 000000 13292 044161 000000 000000 13293 044162 001000 000000 13294 044163 000000 000000 13295 044164 002000 000000 13296 044165 000000 000000 13297 044166 004000 000000 13298 044167 000000 000000 13299 044170 010000 000000 13300 044171 000000 000000 13301 044172 020000 000000 13302 044173 000000 000000 13303 044174 040000 000000 13304 044175 000000 000000 13305 044176 100000 000000 13306 044177 000000 000000 13307 044200 400000 000000 13308 044201 000377 777777 13309 044202 777777 777777 13310 044203 200777 777777 13311 044204 777777 777777 13312 044205 201400 000000 13313 044206 201400 000001 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-8 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0270 13314 044207 201400 000002 13315 044210 201400 000004 13316 044211 201400 000010 13317 044212 201400 000020 13318 044213 201400 000040 13319 044214 201400 000100 13320 044215 201400 000200 13321 044216 201400 000400 13322 044217 201400 001000 13323 044220 201400 002000 13324 044221 201400 004000 13325 044222 201400 010000 13326 044223 201400 020000 13327 044224 201400 040000 13328 044225 201400 100000 13329 044226 201400 200000 13330 044227 201400 400000 13331 044230 201401 000000 13332 044231 201402 000000 13333 044232 201404 000000 13334 044233 201410 000000 13335 044234 201420 000000 13336 044235 201440 000000 13337 044236 201500 000000 13338 044237 201600 000000 13339 044240 200777 777777 13340 044241 777777 777776 13341 044242 201777 777777 13342 044243 200777 777777 13343 044244 777777 777775 13344 044245 200777 777777 13345 044246 777777 777773 13346 044247 200777 777777 13347 044250 777777 777767 13348 044251 200777 777777 13349 044252 777777 777757 13350 044253 200777 777777 13351 044254 777777 777737 13352 044255 200777 777777 13353 044256 777777 777677 13354 044257 200777 777777 13355 044260 777777 777577 13356 044261 200777 777777 13357 044262 777777 777377 13358 044263 200777 777777 13359 044264 777777 776777 13360 044265 200777 777777 13361 044266 777777 775777 13362 044267 200777 777777 13363 044270 777777 773777 13364 044271 200777 777777 13365 044272 777777 767777 13366 044273 200777 777777 13367 044274 777777 757777 13368 044275 200777 777777 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-9 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0271 13369 044276 777777 737777 13370 044277 200777 777777 13371 044300 777777 677777 13372 044301 200777 777777 13373 044302 777777 577777 13374 044303 200777 777777 13375 044304 777777 377777 13376 044305 200777 777777 13377 044306 777776 777777 13378 044307 200777 777777 13379 044310 777775 777777 13380 044311 200777 777777 13381 044312 777773 777777 13382 044313 200777 777777 13383 044314 777767 777777 13384 044315 200777 777777 13385 044316 777757 777777 13386 044317 200777 777777 13387 044320 777737 777777 13388 044321 200777 777777 13389 044322 777677 777777 13390 044323 200777 777777 13391 044324 777577 777777 13392 044325 200777 777777 13393 044326 777377 777777 13394 044327 200777 777777 13395 044330 776777 777777 13396 044331 200777 777777 13397 044332 775777 777777 13398 044333 200777 777777 13399 044334 773777 777777 13400 044335 200777 777777 13401 044336 767777 777777 13402 044337 200777 777777 13403 044340 757777 777777 13404 044341 200777 777777 13405 044342 737777 777777 13406 044343 200777 777777 13407 044344 677777 777777 13408 044345 200777 777777 13409 044346 577777 777777 13410 044347 200777 777777 13411 044350 377777 777777 13412 044351 200777 777776 13413 044352 777777 777777 13414 044353 200777 777775 13415 044354 777777 777777 13416 044355 201777 777776 13417 044356 200777 777773 13418 044357 777777 777777 13419 044360 201777 777775 13420 044361 200777 777767 13421 044362 777777 777777 13422 044363 201777 777773 13423 044364 200777 777757 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-10 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0272 13424 044365 777777 777777 13425 044366 201777 777767 13426 044367 200777 777737 13427 044370 777777 777777 13428 044371 201777 777757 13429 044372 200777 777677 13430 044373 777777 777777 13431 044374 201777 777737 13432 044375 200777 777577 13433 044376 777777 777777 13434 044377 201777 777677 13435 044400 200777 777377 13436 044401 777777 777777 13437 044402 201777 777577 13438 044403 200777 776777 13439 044404 777777 777777 13440 044405 201777 777377 13441 044406 200777 775777 13442 044407 777777 777777 13443 044410 201777 776777 13444 044411 200777 773777 13445 044412 777777 777777 13446 044413 201777 775777 13447 044414 200777 767777 13448 044415 777777 777777 13449 044416 201777 773777 13450 044417 200777 757777 13451 044420 777777 777777 13452 044421 201777 767777 13453 044422 200777 737777 13454 044423 777777 777777 13455 044424 201777 757777 13456 044425 200777 677777 13457 044426 777777 777777 13458 044427 201777 737777 13459 044430 200777 577777 13460 044431 777777 777777 13461 044432 201777 677777 13462 044433 200777 377777 13463 044434 777777 777777 13464 044435 201777 577777 13465 044436 200776 777777 13466 044437 777777 777777 13467 044440 201777 377777 13468 044441 200775 777777 13469 044442 777777 777777 13470 044443 201776 777777 13471 044444 200773 777777 13472 044445 777777 777777 13473 044446 201775 777777 13474 044447 200767 777777 13475 044450 777777 777777 13476 044451 201773 777777 13477 044452 200757 777777 13478 044453 777777 777777 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-11 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0273 13479 044454 201767 777777 13480 044455 200737 777777 13481 044456 777777 777777 13482 044457 201757 777777 13483 044460 200677 777777 13484 044461 777777 777777 13485 044462 201737 777777 13486 044463 200577 777777 13487 044464 777777 777777 13488 044465 201677 777777 13489 044466 200377 777777 13490 044467 777777 777777 13491 044470 201577 777777 13492 044471 001777 777777 13493 044472 001777 777776 13494 044473 001777 777775 13495 044474 001777 777773 13496 044475 001777 777767 13497 044476 001777 777757 13498 044477 001777 777737 13499 044500 001777 777677 13500 044501 001777 777577 13501 044502 001777 777377 13502 044503 001777 776777 13503 044504 001777 775777 13504 044505 001777 773777 13505 044506 001777 767777 13506 044507 001777 757777 13507 044510 001777 737777 13508 044511 001777 677777 13509 044512 001777 577777 13510 044513 001777 377777 13511 044514 76 64 45 63 64 00 13512 044515 60 41 63 63 00 43 13513 044516 57 65 56 64 00 35 13514 044517 00 77 00 00 00 00 13515 044520 76 60 43 00 35 00 13516 044521 00 00 77 00 00 00 13517 044522 76 62 45 63 65 54 13518 044523 64 00 00 35 00 77 13519 044524 76 46 41 65 54 64 13520 044525 00 56 65 55 42 45 13521 044526 62 00 35 00 77 00 13522 044527 103 050 101 103 051 13523 044530 040 106 101 111 114 13524 044531 105 104 000 000 000 13525 044532 103 050 101 103 053 13526 044533 061 051 040 106 101 13527 044534 111 114 105 104 000 13528 044535 103 050 105 051 040 13529 044536 106 101 111 114 105 13530 044537 104 000 000 000 000 13531 044540 103 050 105 053 061 13532 044541 051 040 106 101 111 13533 044542 114 105 104 000 000 DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-12 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0274 13534 044543 103 050 103 050 101 13535 044544 103 122 051 051 040 13536 044545 106 101 111 114 105 13537 044546 104 000 000 000 000 13538 044547 103 050 103 050 101 13539 044550 103 122 053 061 051 13540 044551 051 040 106 101 111 13541 044552 114 105 104 000 000 13542 044553 103 050 103 050 101 13543 044554 103 114 051 051 040 13544 044555 106 101 111 114 105 13545 044556 104 000 000 000 000 13546 044557 103 050 103 050 105 13547 044560 051 051 040 106 101 13548 044561 111 114 105 104 000 13549 044562 106 114 101 107 040 13550 044563 106 101 111 114 105 13551 044564 104 000 000 000 000 13552 044565 76 45 70 43 45 45 13553 044566 44 45 44 00 41 54 13554 044567 54 57 67 45 44 00 13555 044570 45 62 62 57 62 63 13556 044571 76 77 00 00 00 00 13557 LIST 13558 044572 000000 000000 ENDSLD: 0 13559 13560 IFDEF DEBUG,< 13561 044573 PATCH: BLOCK DEBUG ;PATCHING AREA 13562 > 13563 13564 ;PROGRAM VARIABLES 13565 044673 VAR 13566 13567 IFDEF PGMEND,< 13568 044703 000000 000000 END: 0 13569 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 044704 CPU TIME USED 00:43.411 34P CORE USED ABORT 577# AC 1164# 1166 1167 1168 1169 1173 1175 1177 1178 1179 1180 1181 1198 1200 SEQ 0275 1202 1203 1204 1205 1206 1212 1214 1216 1217 1218 1219 1220 1226 1228 1230 1231 1232 1233 1234 1240 1242 1244 1245 1246 1247 1248 1254 1256 1258 1259 1260 1261 1262 1268 1270 1272 1273 1274 1275 1276 1282 1284 1286 1287 1288 1289 1290 1296 1298 1300 1301 1302 1303 1304 1310 1312 1314 1315 1316 1317 1318 1333 1335 1337 1338 1339 1340 1341 1347 1349 1351 1352 1353 1354 1355 1361 1363 1365 1366 1367 1368 1369 1375 1377 1379 1380 1381 1382 1383 1389 1391 1393 1394 1395 1396 1397 1403 1405 1407 1408 1409 1410 1411 1417 1419 1421 1422 1423 1424 1425 1431 1433 1435 1436 1437 1438 1439 1445 1447 1449 1450 1451 1452 1453 1459 1461 1463 1464 1465 1466 1467 1473 1475 1477 1478 1479 1480 1481 1487 1489 1491 1492 1493 1494 1495 1501 1503 1505 1506 1507 1508 1509 1515 1517 1519 1520 1521 1522 1523 1529 1531 1533 1534 1535 1536 1537 1543 1545 1547 1548 1549 1550 1551 1557 1559 1561 1562 1563 1564 1565 1571 1573 1575 1576 1577 1578 1579 1586 1588 1590 1591 1592 1593 1594 1606 1608 1610 1611 1612 1613 1614 1620 1622 1624 1625 1626 1627 1628 1634 1636 1638 1639 1640 1641 1642 1648 1650 1652 1653 1654 1655 1656 1662 1664 1666 1667 1668 1669 1670 1676 1678 1680 1681 1682 1683 1684 1690 1692 1694 1695 1696 1697 1698 1704 1706 1708 1709 1710 1711 1712 1718 1720 1722 1723 1724 1725 1726 1732 1734 1736 1737 1738 1739 1740 1746 1748 1750 1751 1752 1753 1754 1760 1762 1764 1765 1766 1767 1768 1774 1776 1778 1779 1780 1781 1782 1788 1790 1792 1793 1794 1795 1796 1802 1804 1806 1807 1808 1809 1810 1816 1818 1820 1821 1822 1823 1824 1830 1832 1834 1835 1836 1837 1838 1853 1855 1857 1858 1859 1860 1861 1867 1869 1871 1872 1873 1874 1875 1881 1883 1885 1886 1887 1888 1889 1895 1897 1899 1900 1901 1902 1903 1909 1911 1913 1914 1915 1916 1917 1923 1925 1927 1928 1929 1930 1931 1937 1939 1941 1942 1943 1944 1945 1951 1953 1955 1956 1957 1958 1959 1965 1967 1969 1970 1971 1972 1973 1979 1981 1983 1984 1985 1986 1987 1993 1995 1997 1998 1999 2000 2001 2007 2009 2011 2012 2013 2014 2015 2021 2023 2025 2026 2027 2028 2029 2035 2037 2039 2040 2041 2042 2043 2049 2051 2053 2054 2055 2056 2057 2063 2065 2067 2068 2069 2070 2071 2077 2079 2081 2082 2083 2084 2085 2091 2093 2095 2096 2097 2098 2099 2116 2118 2120 2121 2122 2123 2124 2130 2132 2134 2135 2136 2137 2138 2144 2146 2148 2149 2150 2151 2152 2158 2160 2162 2163 2164 2165 2166 2172 2174 2176 2177 2178 2179 2180 2186 2188 2190 2191 2192 2193 2194 2200 2202 2204 2205 2206 2207 2208 2214 2216 2218 2219 2220 2221 2222 2228 2230 2232 2233 2234 2235 2236 2251 2253 2255 2256 2257 2258 2259 2265 2267 2269 2270 2271 2272 2273 2279 2281 2283 2284 2285 2286 2287 2293 2295 2297 2298 2299 2300 2301 2307 2309 2311 2312 2313 2314 2315 2321 2323 2325 2326 2327 2328 2329 2335 2337 2339 2340 2341 2342 2343 2349 2351 2353 2354 2355 2356 2357 2363 2365 2367 2368 2369 2370 2371 2377 2379 2381 2382 2383 2384 2385 2391 2393 2395 2396 2397 2398 2399 2405 2407 2409 2410 2411 2412 2413 2419 2421 2423 2424 2425 2426 2427 2433 2435 2437 2438 2439 2440 2441 2447 2449 2451 2452 2453 2454 2455 2461 2463 2465 2466 2467 2468 2469 2475 2477 2479 2480 2481 2482 2483 2489 2491 2493 2494 2495 2496 2497 2504 2506 2508 2509 2510 2511 2512 2525 2527 2529 2530 2531 2532 2533 2540 2542 2544 2545 2546 2547 2548 2555 2557 2559 2560 2561 2562 2563 2570 2572 2574 2575 2576 2577 2578 2585 2587 2589 2590 2591 2592 2593 2600 2602 2604 2605 2606 2607 2608 2615 2617 2619 2620 2621 2622 2623 2630 2632 2634 2635 2636 2637 2638 2645 2647 2649 2650 2651 2652 2653 2660 2662 2664 2665 2666 2667 2668 2675 2677 2679 2680 2681 2682 2683 2690 2692 2694 2695 2696 2697 2698 2705 2707 2709 2710 2711 2712 2713 2720 2722 2724 2725 2726 2727 2728 2735 2737 2739 2740 2741 2742 2743 2750 2752 SEQ 0276 2754 2755 2756 2757 2758 2765 2767 2769 2770 2771 2772 2773 2789 2791 2793 2794 2795 2796 2797 2803 2805 2807 2808 2809 2810 2811 2817 2819 2821 2822 2823 2824 2825 2831 2833 2835 2836 2837 2838 2839 2845 2847 2849 2850 2851 2852 2853 2859 2861 2863 2864 2865 2866 2867 2873 2875 2877 2878 2879 2880 2881 2887 2889 2891 2892 2893 2894 2895 2901 2903 2905 2906 2907 2908 2909 2915 2917 2919 2920 2921 2922 2923 2929 2931 2933 2934 2935 2936 2937 2943 2945 2947 2948 2949 2950 2951 2957 2959 2961 2962 2963 2964 2965 2971 2973 2975 2976 2977 2978 2979 2985 2987 2989 2990 2991 2992 2993 2999 3001 3003 3004 3005 3006 3007 3013 3015 3017 3018 3019 3020 3021 3027 3029 3031 3032 3033 3034 3035 3041 3043 3045 3046 3047 3048 3049 3054 3056 3058 3059 3060 3061 3062 3079 3081 3083 3084 3085 3086 3087 3093 3095 3097 3098 3099 3100 3101 3107 3109 3111 3112 3113 3114 3115 3121 3123 3125 3126 3127 3128 3129 3135 3137 3139 3140 3141 3142 3143 3149 3151 3153 3154 3155 3156 3157 3163 3165 3167 3168 3169 3170 3171 3177 3179 3181 3182 3183 3184 3185 3191 3193 3195 3196 3197 3198 3199 3205 3207 3209 3210 3211 3212 3213 3219 3221 3223 3224 3225 3226 3227 3233 3235 3237 3238 3239 3240 3241 3247 3249 3251 3252 3253 3254 3255 3261 3263 3265 3266 3267 3268 3269 3275 3277 3279 3280 3281 3282 3283 3289 3291 3293 3294 3295 3296 3297 3303 3305 3307 3308 3309 3310 3311 3317 3319 3321 3322 3323 3324 3325 3340 3342 3344 3345 3346 3347 3348 3354 3356 3358 3359 3360 3361 3362 3368 3370 3372 3373 3374 3375 3376 3382 3384 3386 3387 3388 3389 3390 3396 3398 3400 3401 3402 3403 3404 3410 3412 3414 3415 3416 3417 3418 3424 3426 3428 3429 3430 3431 3432 3438 3440 3442 3443 3444 3445 3446 3452 3454 3456 3457 3458 3459 3460 3466 3468 3470 3471 3472 3473 3474 3480 3482 3484 3485 3486 3487 3488 3494 3496 3498 3499 3500 3501 3502 3508 3510 3512 3513 3514 3515 3516 3522 3524 3526 3527 3528 3529 3530 3536 3538 3540 3541 3542 3543 3544 3550 3552 3554 3555 3556 3557 3558 3564 3566 3568 3569 3570 3571 3572 3578 3580 3582 3583 3584 3585 3586 3601 3603 3605 3606 3607 3608 3609 3615 3617 3619 3620 3621 3622 3623 3629 3631 3633 3634 3635 3636 3637 3643 3645 3647 3648 3649 3650 3651 3657 3659 3661 3662 3663 3664 3665 3671 3673 3675 3676 3677 3678 3679 3685 3687 3689 3690 3691 3692 3693 3699 3701 3703 3704 3705 3706 3707 3713 3715 3717 3718 3719 3720 3721 3727 3729 3731 3732 3733 3734 3735 3741 3743 3745 3746 3747 3748 3749 3755 3757 3759 3760 3761 3762 3763 3769 3771 3773 3774 3775 3776 3777 3783 3785 3787 3788 3789 3790 3791 3797 3799 3801 3802 3803 3804 3805 3811 3813 3815 3816 3817 3818 3819 3825 3827 3829 3830 3831 3832 3833 3839 3841 3843 3844 3845 3846 3847 3863 3865 3867 3868 3869 3870 3871 3877 3879 3881 3882 3883 3884 3885 3891 3893 3895 3896 3897 3898 3899 3905 3907 3909 3910 3911 3912 3913 3919 3921 3923 3924 3925 3926 3927 3933 3935 3937 3938 3939 3940 3941 3947 3949 3951 3952 3953 3954 3955 3961 3963 3965 3966 3967 3968 3969 3974 3976 3978 3979 3980 3981 3982 3998 4000 4002 4003 4004 4005 4006 4012 4014 4016 4017 4018 4019 4020 4026 4028 4030 4031 4032 4033 4034 4040 4042 4044 4045 4046 4047 4048 4054 4056 4058 4059 4060 4061 4062 4068 4070 4072 4073 4074 4075 4076 4082 4084 4086 4087 4088 4089 4090 4096 4098 4100 4101 4102 4103 4104 4110 4112 4114 4115 4116 4117 4118 4124 4126 4128 4129 4130 4131 4132 4138 4140 4142 4143 4144 4145 4146 4152 4154 4156 4157 4158 4159 4160 4166 4168 4170 4171 4172 4173 4174 4180 4182 4184 4185 4186 4187 4188 4194 4196 4198 4199 4200 4201 4202 4208 4210 4212 4213 4214 4215 4216 4222 4224 4226 4227 4228 4229 4230 4236 4238 4240 4241 4242 4243 4244 4259 4261 4263 4264 4265 4266 4267 4273 4275 4277 4278 4279 4280 4281 4287 4289 4291 4292 4293 4294 4295 4301 4303 SEQ 0277 4305 4306 4307 4308 4309 4315 4317 4319 4320 4321 4322 4323 4329 4331 4333 4334 4335 4336 4337 4343 4345 4347 4348 4349 4350 4351 4357 4359 4361 4362 4363 4364 4365 4371 4373 4375 4376 4377 4378 4379 4385 4387 4389 4390 4391 4392 4393 4399 4401 4403 4404 4405 4406 4407 4413 4415 4417 4418 4419 4420 4421 4427 4429 4431 4432 4433 4434 4435 4441 4443 4445 4446 4447 4448 4449 4455 4457 4459 4460 4461 4462 4463 4469 4471 4473 4474 4475 4476 4477 4483 4485 4487 4488 4489 4490 4491 4497 4499 4501 4502 4503 4504 4505 4520 4522 4524 4525 4526 4527 4528 4534 4536 4538 4539 4540 4541 4542 4548 4550 4552 4553 4554 4555 4556 4562 4564 4566 4567 4568 4569 4570 4576 4578 4580 4581 4582 4583 4584 4590 4592 4594 4595 4596 4597 4598 4604 4606 4608 4609 4610 4611 4612 4618 4620 4622 4623 4624 4625 4626 4632 4634 4636 4637 4638 4639 4640 4646 4648 4650 4651 4652 4653 4654 4660 4662 4664 4665 4666 4667 4668 4674 4676 4678 4679 4680 4681 4682 4688 4690 4692 4693 4694 4695 4696 4702 4704 4706 4707 4708 4709 4710 4716 4718 4720 4721 4722 4723 4724 4730 4732 4734 4735 4736 4737 4738 4744 4746 4748 4749 4750 4751 4752 4758 4760 4762 4763 4764 4765 4766 4781 4783 4785 4786 4787 4788 4789 4795 4797 4799 4800 4801 4802 4803 4809 4811 4813 4814 4815 4816 4817 4823 4825 4827 4828 4829 4830 4831 4837 4839 4841 4842 4843 4844 4845 4851 4853 4855 4856 4857 4858 4859 4865 4867 4869 4870 4871 4872 4873 4879 4881 4883 4884 4885 4886 4887 4892 4894 4896 4897 4898 4899 4900 4921 4923 4925 4926 4927 4928 4929 4937 4939 4941 4942 4943 4944 4945 4953 4955 4957 4958 4959 4960 4961 4969 4971 4973 4974 4975 4976 4977 4985 4987 4989 4990 4991 4992 4993 5001 5003 5005 5006 5007 5008 5009 5017 5019 5021 5022 5023 5024 5025 5033 5035 5037 5038 5039 5040 5041 5049 5051 5053 5054 5055 5056 5057 5065 5067 5069 5070 5071 5072 5073 5081 5083 5085 5086 5087 5088 5089 5097 5099 5101 5102 5103 5104 5105 5113 5115 5117 5118 5119 5120 5121 5129 5131 5133 5134 5135 5136 5137 5145 5147 5149 5150 5151 5152 5153 5161 5163 5165 5166 5167 5168 5169 5177 5179 5181 5182 5183 5184 5185 5193 5195 5197 5198 5199 5200 5201 5221 5223 5225 5226 5227 5228 5229 5237 5239 5241 5242 5243 5244 5245 5253 5255 5257 5258 5259 5260 5261 5269 5271 5273 5274 5275 5276 5277 5285 5287 5289 5290 5291 5292 5293 5301 5303 5305 5306 5307 5308 5309 5317 5319 5321 5322 5323 5324 5325 5333 5335 5337 5338 5339 5340 5341 5349 5351 5353 5354 5355 5356 5357 5365 5367 5369 5370 5371 5372 5373 5381 5383 5385 5386 5387 5388 5389 5397 5399 5401 5402 5403 5404 5405 5413 5415 5417 5418 5419 5420 5421 5429 5431 5433 5434 5435 5436 5437 5445 5447 5449 5450 5451 5452 5453 5461 5463 5465 5466 5467 5468 5469 5477 5479 5481 5482 5483 5484 5485 5493 5495 5497 5498 5499 5500 5501 5521 5523 5525 5526 5527 5528 5529 5537 5539 5541 5542 5543 5544 5545 5553 5555 5557 5558 5559 5560 5561 5569 5571 5573 5574 5575 5576 5577 5585 5587 5589 5590 5591 5592 5593 5601 5603 5605 5606 5607 5608 5609 5617 5619 5621 5622 5623 5624 5625 5633 5635 5637 5638 5639 5640 5641 5649 5651 5653 5654 5655 5656 5657 5665 5667 5669 5670 5671 5672 5673 5681 5683 5685 5686 5687 5688 5689 5697 5699 5701 5702 5703 5704 5705 5713 5715 5717 5718 5719 5720 5721 5729 5731 5733 5734 5735 5736 5737 5745 5747 5749 5750 5751 5752 5753 5761 5763 5765 5766 5767 5768 5769 5777 5779 5781 5782 5783 5784 5785 5793 5795 5797 5798 5799 5800 5801 5821 5823 5825 5826 5827 5828 5829 5837 5839 5841 5842 5843 5844 5845 5853 5855 5857 5858 5859 5860 5861 5869 5871 5873 5874 5875 5876 5877 5885 5887 5889 5890 5891 5892 5893 5901 5903 5905 5906 5907 5908 5909 5917 5919 5921 5922 5923 5924 5925 5933 5935 5937 5938 5939 5940 5941 5949 5951 5953 5954 5955 5956 5957 5979 5981 5983 5984 5985 5986 5987 5995 5997 SEQ 0278 5999 6000 6001 6002 6003 6011 6013 6015 6016 6017 6018 6019 6027 6029 6031 6032 6033 6034 6035 6043 6045 6047 6048 6049 6050 6051 6059 6061 6063 6064 6065 6066 6067 6075 6077 6079 6080 6081 6082 6083 6091 6093 6095 6096 6097 6098 6099 6107 6109 6111 6112 6113 6114 6115 6123 6125 6127 6128 6129 6130 6131 6139 6141 6143 6144 6145 6146 6147 6155 6157 6159 6160 6161 6162 6163 6171 6173 6175 6176 6177 6178 6179 6187 6189 6191 6192 6193 6194 6195 6203 6205 6207 6208 6209 6210 6211 6219 6221 6223 6224 6225 6226 6227 6235 6237 6239 6240 6241 6242 6243 6251 6253 6255 6256 6257 6258 6259 6279 6281 6283 6284 6285 6286 6287 6295 6297 6299 6300 6301 6302 6303 6311 6313 6315 6316 6317 6318 6319 6327 6329 6331 6332 6333 6334 6335 6343 6345 6347 6348 6349 6350 6351 6359 6361 6363 6364 6365 6366 6367 6375 6377 6379 6380 6381 6382 6383 6391 6393 6395 6396 6397 6398 6399 6407 6409 6411 6412 6413 6414 6415 6423 6425 6427 6428 6429 6430 6431 6439 6441 6443 6444 6445 6446 6447 6455 6457 6459 6460 6461 6462 6463 6471 6473 6475 6476 6477 6478 6479 6487 6489 6491 6492 6493 6494 6495 6503 6505 6507 6508 6509 6510 6511 6519 6521 6523 6524 6525 6526 6527 6535 6537 6539 6540 6541 6542 6543 6551 6553 6555 6556 6557 6558 6559 6579 6581 6583 6584 6585 6586 6587 6595 6597 6599 6600 6601 6602 6603 6611 6613 6615 6616 6617 6618 6619 6627 6629 6631 6632 6633 6634 6635 6643 6645 6647 6648 6649 6650 6651 6659 6661 6663 6664 6665 6666 6667 6675 6677 6679 6680 6681 6682 6683 6691 6693 6695 6696 6697 6698 6699 6707 6709 6711 6712 6713 6714 6715 6723 6725 6727 6728 6729 6730 6731 6739 6741 6743 6744 6745 6746 6747 6755 6757 6759 6760 6761 6762 6763 6771 6773 6775 6776 6777 6778 6779 6787 6789 6791 6792 6793 6794 6795 6803 6805 6807 6808 6809 6810 6811 6819 6821 6823 6824 6825 6826 6827 6835 6837 6839 6840 6841 6842 6843 6851 6853 6855 6856 6857 6858 6859 6879 6881 6883 6884 6885 6886 6887 6895 6897 6899 6900 6901 6902 6903 6911 6913 6915 6916 6917 6918 6919 6927 6929 6931 6932 6933 6934 6935 6943 6945 6947 6948 6949 6950 6951 6959 6961 6963 6964 6965 6966 6967 6975 6977 6979 6980 6981 6982 6983 6991 6993 6995 6996 6997 6998 6999 7007 7009 7011 7012 7013 7014 7015 7035 7037 7039 7040 7041 7042 7043 7050 7052 7054 7055 7056 7057 7058 7065 7067 7069 7070 7071 7072 7073 7080 7082 7084 7085 7086 7087 7088 7095 7097 7099 7100 7101 7102 7103 7110 7112 7114 7115 7116 7117 7118 7125 7127 7129 7130 7131 7132 7133 7140 7142 7144 7145 7146 7147 7148 7155 7157 7159 7160 7161 7162 7163 7170 7172 7174 7175 7176 7177 7178 7185 7187 7189 7190 7191 7192 7193 7200 7202 7204 7205 7206 7207 7208 7215 7217 7219 7220 7221 7222 7223 7230 7232 7234 7235 7236 7237 7238 7245 7247 7249 7250 7251 7252 7253 7260 7262 7264 7265 7266 7267 7268 7275 7277 7279 7280 7281 7282 7283 7290 7292 7294 7295 7296 7297 7298 7306 7308 7310 7311 7312 7313 7314 7327 7329 7331 7332 7333 7334 7335 7341 7343 7345 7346 7347 7348 7349 7355 7357 7359 7360 7361 7362 7363 7369 7371 7373 7374 7375 7376 7377 7383 7385 7387 7388 7389 7390 7391 7397 7399 7401 7402 7403 7404 7405 7411 7413 7415 7416 7417 7418 7419 7425 7427 7429 7430 7431 7432 7433 7439 7441 7443 7444 7445 7446 7447 7453 7455 7457 7458 7459 7460 7461 7467 7469 7471 7472 7473 7474 7475 7481 7483 7485 7486 7487 7488 7489 7495 7497 7499 7500 7501 7502 7503 7509 7511 7513 7514 7515 7516 7517 7523 7525 7527 7528 7529 7530 7531 7537 7539 7541 7542 7543 7544 7545 7553 7555 7557 7558 7559 7560 7561 7566 7568 7570 7571 7572 7573 7574 7587 7589 7591 7592 7593 7594 7595 7601 7603 7605 7606 7607 7608 7609 7615 7617 7619 7620 7621 7622 7623 7629 7631 7633 7634 7635 7636 7637 7643 7645 7647 7648 7649 7650 7651 7657 7659 7661 7662 7663 7664 7665 7671 7673 7675 7676 7677 7678 7679 7685 7687 SEQ 0279 7689 7690 7691 7692 7693 7699 7701 7703 7704 7705 7706 7707 7713 7715 7717 7718 7719 7720 7721 7727 7729 7731 7732 7733 7734 7735 7741 7743 7745 7746 7747 7748 7749 7755 7757 7759 7760 7761 7762 7763 7769 7771 7773 7774 7775 7776 7777 7783 7785 7787 7788 7789 7790 7791 7797 7799 7801 7802 7803 7804 7805 7811 7813 7815 7816 7817 7818 7819 7827 7829 7831 7832 7833 7834 7835 7847 7849 7851 7852 7853 7854 7855 7861 7863 7865 7866 7867 7868 7869 7875 7877 7879 7880 7881 7882 7883 7889 7891 7893 7894 7895 7896 7897 7903 7905 7907 7908 7909 7910 7911 7917 7919 7921 7922 7923 7924 7925 7931 7933 7935 7936 7937 7938 7939 7945 7947 7949 7950 7951 7952 7953 7973 7975 7977 7978 7979 7980 7981 7988 7990 7992 7993 7994 7995 7996 8003 8005 8007 8008 8009 8010 8011 8018 8020 8022 8023 8024 8025 8026 8033 8035 8037 8038 8039 8040 8041 8048 8050 8052 8053 8054 8055 8056 8063 8065 8067 8068 8069 8070 8071 8078 8080 8082 8083 8084 8085 8086 8093 8095 8097 8098 8099 8100 8101 8108 8110 8112 8113 8114 8115 8116 8123 8125 8127 8128 8129 8130 8131 8138 8140 8142 8143 8144 8145 8146 8153 8155 8157 8158 8159 8160 8161 8168 8170 8172 8173 8174 8175 8176 8183 8185 8187 8188 8189 8190 8191 8198 8200 8202 8203 8204 8205 8206 8213 8215 8217 8218 8219 8220 8221 8228 8230 8232 8233 8234 8235 8236 8244 8246 8248 8249 8250 8251 8252 8265 8267 8269 8270 8271 8272 8273 8279 8281 8283 8284 8285 8286 8287 8293 8295 8297 8298 8299 8300 8301 8307 8309 8311 8312 8313 8314 8315 8321 8323 8325 8326 8327 8328 8329 8335 8337 8339 8340 8341 8342 8343 8349 8351 8353 8354 8355 8356 8357 8363 8365 8367 8368 8369 8370 8371 8377 8379 8381 8382 8383 8384 8385 8391 8393 8395 8396 8397 8398 8399 8405 8407 8409 8410 8411 8412 8413 8419 8421 8423 8424 8425 8426 8427 8433 8435 8437 8438 8439 8440 8441 8447 8449 8451 8452 8453 8454 8455 8461 8463 8465 8466 8467 8468 8469 8475 8477 8479 8480 8481 8482 8483 8491 8493 8495 8496 8497 8498 8499 8505 8507 8509 8510 8511 8512 8513 8524 8526 8528 8529 8530 8531 8532 8538 8540 8542 8543 8544 8545 8546 8552 8554 8556 8557 8558 8559 8560 8566 8568 8570 8571 8572 8573 8574 8580 8582 8584 8585 8586 8587 8588 8594 8596 8598 8599 8600 8601 8602 8608 8610 8612 8613 8614 8615 8616 8622 8624 8626 8627 8628 8629 8630 8636 8638 8640 8641 8642 8643 8644 8650 8652 8654 8655 8656 8657 8658 8664 8666 8668 8669 8670 8671 8672 8678 8680 8682 8683 8684 8685 8686 8692 8694 8696 8697 8698 8699 8700 8706 8708 8710 8711 8712 8713 8714 8720 8722 8724 8725 8726 8727 8728 8734 8736 8738 8739 8740 8741 8742 8748 8750 8752 8753 8754 8755 8756 8763 8765 8767 8768 8769 8770 8771 8782 8784 8786 8787 8788 8789 8790 8796 8798 8800 8801 8802 8803 8804 8810 8812 8814 8815 8816 8817 8818 8824 8826 8828 8829 8830 8831 8832 8838 8840 8842 8843 8844 8845 8846 8852 8854 8856 8857 8858 8859 8860 8866 8868 8870 8871 8872 8873 8874 8880 8882 8884 8885 8886 8887 8888 8911 8913 8915 8916 8917 8918 8919 8927 8929 8931 8932 8933 8934 8935 8943 8945 8947 8948 8949 8950 8951 8959 8961 8963 8964 8965 8966 8967 8975 8977 8979 8980 8981 8982 8983 8991 8993 8995 8996 8997 8998 8999 9007 9009 9011 9012 9013 9014 9015 9023 9025 9027 9028 9029 9030 9031 9039 9041 9043 9044 9045 9046 9047 9055 9057 9059 9060 9061 9062 9063 9071 9073 9075 9076 9077 9078 9079 9087 9089 9091 9092 9093 9094 9095 9103 9105 9107 9108 9109 9110 9111 9119 9121 9123 9124 9125 9126 9127 9135 9137 9139 9140 9141 9142 9143 9151 9153 9155 9156 9157 9158 9159 9167 9169 9171 9172 9173 9174 9175 9183 9185 9187 9188 9189 9190 9191 9198 9200 9202 9203 9204 9205 9206 9218 9220 9222 9223 9224 9225 9226 9232 9234 9236 9237 9238 9239 9240 9246 9248 9250 9251 9252 9253 9254 9260 9262 9264 9265 9266 9267 9268 9274 9276 9278 9279 9280 9281 9282 9288 9290 SEQ 0280 9292 9293 9294 9295 9296 9302 9304 9306 9307 9308 9309 9310 9316 9318 9320 9321 9322 9323 9324 9330 9332 9334 9335 9336 9337 9338 9344 9346 9348 9349 9350 9351 9352 9358 9360 9362 9363 9364 9365 9366 9372 9374 9376 9377 9378 9379 9380 9386 9388 9390 9391 9392 9393 9394 9400 9402 9404 9405 9406 9407 9408 9414 9416 9418 9419 9420 9421 9422 9428 9430 9432 9433 9434 9435 9436 9443 9445 9447 9448 9449 9450 9451 9457 9459 9461 9462 9463 9464 9465 9477 9479 9481 9482 9483 9484 9485 9491 9493 9495 9496 9497 9498 9499 9505 9507 9509 9510 9511 9512 9513 9519 9521 9523 9524 9525 9526 9527 9533 9535 9537 9538 9539 9540 9541 9547 9549 9551 9552 9553 9554 9555 9561 9563 9565 9566 9567 9568 9569 9575 9577 9579 9580 9581 9582 9583 9589 9591 9593 9594 9595 9596 9597 9603 9605 9607 9608 9609 9610 9611 9617 9619 9621 9622 9623 9624 9625 9631 9633 9635 9636 9637 9638 9639 9645 9647 9649 9650 9651 9652 9653 9659 9661 9663 9664 9665 9666 9667 9673 9675 9677 9678 9679 9680 9681 9687 9689 9691 9692 9693 9694 9695 9701 9703 9705 9706 9707 9708 9709 9716 9718 9720 9721 9722 9723 9724 9736 9738 9740 9741 9742 9743 9744 9750 9752 9754 9755 9756 9757 9758 9764 9766 9768 9769 9770 9771 9772 9778 9780 9782 9783 9784 9785 9786 9792 9794 9796 9797 9798 9799 9800 9806 9808 9810 9811 9812 9813 9814 9820 9822 9824 9825 9826 9827 9828 9834 9836 9838 9839 9840 9841 9842 9864 9866 9868 9869 9870 9871 9872 9880 9882 9884 9885 9886 9887 9888 9896 9898 9900 9901 9902 9903 9904 9912 9914 9916 9917 9918 9919 9920 9928 9930 9932 9933 9934 9935 9936 9944 9946 9948 9949 9950 9951 9952 9960 9962 9964 9965 9966 9967 9968 9976 9978 9980 9981 9982 9983 9984 9992 9994 9996 9997 9998 9999 10000 10008 10010 10012 10013 10014 10015 10016 10024 10026 10028 10029 10030 10031 10032 10040 10042 10044 10045 10046 10047 10048 10056 10058 10060 10061 10062 10063 10064 10072 10074 10076 10077 10078 10079 10080 10088 10090 10092 10093 10094 10095 10096 10104 10106 10108 10109 10110 10111 10112 10120 10122 10124 10125 10126 10127 10128 10136 10138 10140 10141 10142 10143 10144 10151 10153 10155 10156 10157 10158 10159 10171 10173 10175 10176 10177 10178 10179 10185 10187 10189 10190 10191 10192 10193 10199 10201 10203 10204 10205 10206 10207 10213 10215 10217 10218 10219 10220 10221 10227 10229 10231 10232 10233 10234 10235 10241 10243 10245 10246 10247 10248 10249 10255 10257 10259 10260 10261 10262 10263 10269 10271 10273 10274 10275 10276 10277 10283 10285 10287 10288 10289 10290 10291 10297 10299 10301 10302 10303 10304 10305 10311 10313 10315 10316 10317 10318 10319 10325 10327 10329 10330 10331 10332 10333 10339 10341 10343 10344 10345 10346 10347 10353 10355 10357 10358 10359 10360 10361 10367 10369 10371 10372 10373 10374 10375 10381 10383 10385 10386 10387 10388 10389 10396 10398 10400 10401 10402 10403 10404 10410 10412 10414 10415 10416 10417 10418 10430 10432 10434 10435 10436 10437 10438 10444 10446 10448 10449 10450 10451 10452 10458 10460 10462 10463 10464 10465 10466 10472 10474 10476 10477 10478 10479 10480 10486 10488 10490 10491 10492 10493 10494 10500 10502 10504 10505 10506 10507 10508 10514 10516 10518 10519 10520 10521 10522 10528 10530 10532 10533 10534 10535 10536 10542 10544 10546 10547 10548 10549 10550 10556 10558 10560 10561 10562 10563 10564 10570 10572 10574 10575 10576 10577 10578 10584 10586 10588 10589 10590 10591 10592 10598 10600 10602 10603 10604 10605 10606 10612 10614 10616 10617 10618 10619 10620 10626 10628 10630 10631 10632 10633 10634 10640 10642 10644 10645 10646 10647 10648 10654 10656 10658 10659 10660 10661 10662 10669 10671 10673 10674 10675 10676 10677 10689 10691 10693 10694 10695 10696 10697 10703 10705 10707 10708 10709 10710 10711 10717 10719 10721 10722 10723 10724 10725 10731 10733 10735 10736 10737 10738 10739 10745 10747 10749 10750 10751 10752 10753 10759 10761 10763 10764 10765 10766 10767 10773 10775 10777 10778 10779 10780 10781 10787 10789 10791 10792 10793 10794 10795 10816 10818 10820 10821 10822 10823 10824 10831 10833 10835 10836 10837 10838 10839 10846 10848 10850 10851 10852 10853 10854 10861 10863 10865 10866 10867 10868 10869 10876 10878 SEQ 0281 10880 10881 10882 10883 10884 10891 10893 10895 10896 10897 10898 10899 10906 10908 10910 10911 10912 10913 10914 10921 10923 10925 10926 10927 10928 10929 10936 10938 10940 10941 10942 10943 10944 10951 10953 10955 10956 10957 10958 10959 10966 10968 10970 10971 10972 10973 10974 10981 10983 10985 10986 10987 10988 10989 10996 10998 11000 11001 11002 11003 11004 11011 11013 11015 11016 11017 11018 11019 11026 11028 11030 11031 11032 11033 11034 11041 11043 11045 11046 11047 11048 11049 11056 11058 11060 11061 11062 11063 11064 11071 11073 11075 11076 11077 11078 11079 11096 11098 11100 11101 11102 11103 11104 11111 11113 11115 11116 11117 11118 11119 11126 11128 11130 11131 11132 11133 11134 11141 11143 11145 11146 11147 11148 11149 11156 11158 11160 11161 11162 11163 11164 11171 11173 11175 11176 11177 11178 11179 11186 11188 11190 11191 11192 11193 11194 11201 11203 11205 11206 11207 11208 11209 11216 11218 11220 11221 11222 11223 11224 11231 11233 11235 11236 11237 11238 11239 11246 11248 11250 11251 11252 11253 11254 11261 11263 11265 11266 11267 11268 11269 11276 11278 11280 11281 11282 11283 11284 11291 11293 11295 11296 11297 11298 11299 11306 11308 11310 11311 11312 11313 11314 11321 11323 11325 11326 11327 11328 11329 11336 11338 11340 11341 11342 11343 11344 11349 11351 11353 11354 11355 11356 11357 11373 11375 11377 11378 11379 11380 11381 11388 11390 11392 11393 11394 11395 11396 11403 11405 11407 11408 11409 11410 11411 11418 11420 11422 11423 11424 11425 11426 11433 11435 11437 11438 11439 11440 11441 11448 11450 11452 11453 11454 11455 11456 11463 11465 11467 11468 11469 11470 11471 11478 11480 11482 11483 11484 11485 11486 11493 11495 11497 11498 11499 11500 11501 11508 11510 11512 11513 11514 11515 11516 11523 11525 11527 11528 11529 11530 11531 11538 11540 11542 11543 11544 11545 11546 11553 11555 11557 11558 11559 11560 11561 11568 11570 11572 11573 11574 11575 11576 11583 11585 11587 11588 11589 11590 11591 11598 11600 11602 11603 11604 11605 11606 11613 11615 11617 11618 11619 11620 11621 11628 11630 11632 11633 11634 11635 11636 11653 11655 11657 11658 11659 11660 11661 11668 11670 11672 11673 11674 11675 11676 11683 11685 11687 11688 11689 11690 11691 11698 11700 11702 11703 11704 11705 11706 11713 11715 11717 11718 11719 11720 11721 11728 11730 11732 11733 11734 11735 11736 11743 11745 11747 11748 11749 11750 11751 11758 11760 11762 11763 11764 11765 11766 11773 11775 11777 11778 11779 11780 11781 11800 11802 11804 11805 11806 11807 11808 11814 11816 11818 11819 11820 11821 11822 11828 11830 11832 11833 11834 11835 11836 11842 11844 11846 11847 11848 11849 11850 11856 11858 11860 11861 11862 11863 11864 11870 11872 11874 11875 11876 11877 11878 11884 11886 11888 11889 11890 11891 11892 11898 11900 11902 11903 11904 11905 11906 11912 11914 11916 11917 11918 11919 11920 11926 11928 11930 11931 11932 11933 11934 11940 11942 11944 11945 11946 11947 11948 11954 11956 11958 11959 11960 11961 11962 11968 11970 11972 11973 11974 11975 11976 11982 11984 11986 11987 11988 11989 11990 11996 11998 12000 12001 12002 12003 12004 12010 12012 12014 12015 12016 12017 12018 12024 12026 12028 12029 12030 12031 12032 12038 12040 12042 12043 12044 12045 12046 12061 12063 12065 12066 12067 12068 12069 12075 12077 12079 12080 12081 12082 12083 12089 12091 12093 12094 12095 12096 12097 12103 12105 12107 12108 12109 12110 12111 12117 12119 12121 12122 12123 12124 12125 12131 12133 12135 12136 12137 12138 12139 12145 12147 12149 12150 12151 12152 12153 12159 12161 12163 12164 12165 12166 12167 12173 12175 12177 12178 12179 12180 12181 12187 12189 12191 12192 12193 12194 12195 12201 12203 12205 12206 12207 12208 12209 12215 12217 12219 12220 12221 12222 12223 12229 12231 12233 12234 12235 12236 12237 12243 12245 12247 12248 12249 12250 12251 12257 12259 12261 12262 12263 12264 12265 12271 12273 12275 12276 12277 12278 12279 12285 12287 12289 12290 12291 12292 12293 12299 12301 12303 12304 12305 12306 12307 12322 12324 12326 12327 12328 12329 12330 12336 12338 12340 12341 12342 12343 12344 12350 12352 12354 12355 12356 12357 12358 12364 12366 12368 12369 12370 12371 12372 12378 12380 12382 12383 12384 12385 12386 12392 12394 12396 12397 12398 12399 12400 12406 12408 12410 12411 12412 12413 12414 12420 12422 12424 12425 12426 12427 12428 12434 12436 12438 12439 12440 12441 12442 12448 12450 12452 12453 12454 12455 12456 12462 12464 12466 12467 12468 12469 12470 12476 12478 SEQ 0282 12480 12481 12482 12483 12484 12490 12492 12494 12495 12496 12497 12498 12504 12506 12508 12509 12510 12511 12512 12518 12520 12522 12523 12524 12525 12526 12532 12534 12536 12537 12538 12539 12540 12546 12548 12550 12551 12552 12553 12554 12560 12562 12564 12565 12566 12567 12568 12583 12585 12587 12588 12589 12590 12591 12597 12599 12601 12602 12603 12604 12605 12611 12613 12615 12616 12617 12618 12619 12625 12627 12629 12630 12631 12632 12633 12639 12641 12643 12644 12645 12646 12647 12653 12655 12657 12658 12659 12660 12661 12667 12669 12671 12672 12673 12674 12675 12681 12683 12685 12686 12687 12688 12689 12695 12697 12699 12700 12701 12702 12703 12707 12709 12711 12712 12713 12714 12715 ALTMGO 889# 12841 AROV 803# AROVTP 803# AROVU 803# AST 1004# ATSIN 1005# BEGEND 885# 12718 BEGIN 71 76 77 78 79 80 81 792 793 816# 13569 BEGIN1 832# 886 BELL 1008# BIS 803# CCA 803# CD00 1165# CHAIN 597# CHNOFF 803# CHNON 803# CLKU 803# CLOCKF 871# CNTLC 888# CNTRP 803# COMMA 997# CONSW 872# 12776 12842 12866 CPOPJ 892# CPOPJ1 890# CRLF 727 728 992# CRLF2 731 732 994# CRY0 803# CRY1 803# CSHFLG 1051# CSHMEM 1052# CTRP 803# CYCL60 1045# DCK 803# DDTLNK 611# 830 DDTSRT 830# DEBUG 55# 13560 13561 DECVER 4# 10 23 851 DF22F 956# DIAGMN 819# DING 583# 12847 DOLLAR 1011# DSKUPD 856 EBIT0 803# EBIT1 803# SEQ 0283 EBIT10 803# EBIT11 803# EBIT12 803# EBIT13 803# EBIT14 803# EBIT15 803# EBIT2 803# EBIT3 803# EBIT4 803# EBIT5 803# EBIT6 803# EBIT7 803# EBIT8 803# EBIT9 803# END 13568# ENDFIX 1131# ENDSLD 13558# ERDIAG 59# 12761 ERMORE 905# 12834 EROLD 60# 803 ERRELB 12831 ERRLOP 1169# 1169 12741 12852 12855 12856 ERRMES 41 42 43 44 45 46 47 48 49 50 51 12723# ERRPC 876# 12728 12758 ERRTLS 877# 12726 12859 ERSTOP 586# 12843 EXCASB 56# 854 EXIOT 803# FOV 803# FOVU 803# FRDLNK 609# FSELNK 608# FXU 803# HYPEN 1002# INHCSH 594# INHPAG 591# IOCLR 803# ITERAT 90# 849 ITRCH1 909# ITRCNT 849# JOB41 803# JOBAPR 803# JOBCNI 803# JOBDDT 803# JOBFF 803# JOBOPC 803# 12840 JOBREL 803# JOBREN 803# JOBSA 803# JOBSYM 803# JOBTPC 803# JOBUSY 803# JOBUUO 803# SEQ 0284 JOBVER 803# KAIFLG 866# KLFLG 867# KNTRP 803# KTRP 803# LACLK 803# LACLKE 803# LAPRAL 803# LAPRP1 803# LAPRP2 803# LAPRP3 803# LAPRP4 803# LAPRP5 803# LAPRP6 803# LAPRP7 803# LCHNOF 803# LCHNON 803# LCNTXT 803# LCNXER 803# LCPAER 803# LCPSFT 803# LCPWRF 803# LDATAF 803# LDLNK 610# 819 821 LDNXER 803# LDPAER 803# LDPSFT 803# LDPWRF 803# LEBXMH 803# LEBXML 803# LENXER 803# LEPAER 803# LEPSFT 803# LEPWRF 803# LEUPFW 803# LEXCMP 803# LFLGCL 803# LFLGDS 803# LFLGEN 803# LFLGST 803# LFP 1006# LINSTF 803# LINT 803# LIOCLR 803# LLACBL 803# LLDUSB 803# LMBXMH 803# LMBXML 803# LNXMEN 803# LNXMER 803# LOOPER 585# 12845 LPAREN 803# LPARER 803# SEQ 0285 LPFWPC 803# LPGFTR 803# LPICH1 803# LPICH2 803# LPICH3 803# LPICH4 803# LPICH5 803# LPICH6 803# LPICH7 803# LPICHA 803# LPICLR 803# LPIIP1 803# LPIIP2 803# LPIIP3 803# LPIIP4 803# LPIIP5 803# LPIIP6 803# LPIIP7 803# LPIOFF 803# LPION 803# LPRCH1 803# LPRCH2 803# LPRCH3 803# LPRCH4 803# LPRCH5 803# LPRCH6 803# LPRCH7 803# LPRFMH 803# LPRFML 803# LPSFT 803# LPSFTE 803# LPWRFE 803# LPWRFL 803# LREQSE 803# LRQCLR 803# LSECMO 803# LSMODE 803# LSNXER 803# LSPAER 803# LSPSFT 803# LSPWRF 803# LTBASH 803# LTBASL 803# LTRPAE 803# LTRPEN 803# LUSCMP 803# LUUO 803# LUUO1 41# 936 937 LUUO10 48# 936 941 LUUO11 49# 936 941 LUUO12 50# 936 942 LUUO13 51# 936 942 LUUO14 936 943 SEQ 0286 LUUO15 936 943 LUUO16 936 944 LUUO17 936 944 LUUO2 42# 936 938 LUUO20 936 945 LUUO21 936 945 LUUO22 936 946 LUUO23 936 946 LUUO24 936 947 LUUO25 936 947 LUUO26 936 948 LUUO27 936 948 LUUO3 43# 936 938 LUUO30 936 949 LUUO31 936 949 LUUO32 936 950 LUUO33 936 950 LUUO4 44# 936 939 LUUO5 45# 936 939 LUUO6 46# 936 940 LUUO7 47# 936 940 LUUOI 803# LWRITE 803# MAPNEW 957# MARGIN 879# MCNVER 3# 10 23 851 MEMLOW 959# MEMMAP 857 MEMSIZ 960# MEMTOT 958# MICNT 12729# 12729 12730 12743 MINUS 1001# MODDVC 593# MODDVL 792 792# 852 MODDVU 793 793# 853 MODLNK 612# 816 MONCTL 869# 12744 12857 MONFLG 868# MONTEN 870# MONTYP 1083# MPVU 803# MUUO 803# MUUOPC 803# NOPNT 581# 12734 NXMU 803# OPRSEL 595# OPTIME 971# P 638 639 640 641 803# 891 PAG 803# PALERS 587# 12867 PAREA1 83# 847 PAREA2 84# 848 PAREA3 85# 845 SEQ 0287 PAREA4 86# 846 PAREA5 87# 858 PAREA6 88# 859 PAREA7 858# PAREA8 859# PARU 803# PASCNT 873# 12749 12753 PATCH 13561# PDISF 968# PDLOVU 803# PDOVTP 803# PERIOD 998# PFSTRT 825# PGMEND 58# 13567 PGMNAM 850 1135# PICHN1 803# PICHN2 803# PICHN3 803# PICHN4 803# PICHN5 803# PICHN6 803# PICHN7 803# PICHNA 803# PICLR 803# PIOFF 803# PION 803# PLIST 1037# 1037 PLISTE 1037 1039# PLISTS 1038# PLUS 1003# PNTENB 967# PNTEXT 846# PNTFLG 966# PNTINH 969# PNTLPT 582# PNTNAM 845# PNTRP 803# PNTSPC 970# PROCED 12732# 12732 12846 12853 PTRP 803# PVPAGI 1064# QUEST 1009# R100 1173# 1181 R1000 4907# R1100 5965# R1200 7023# R1300 7961# R1400 8897# R1500 9850# R1600 10804# R1700 11790# R200 1188# R2000 12707# 12715 SEQ 0288 R300 2106# R400 3041# 3049 R500 3054# 3062 R600 3069# R700 3988# RADIX 1012# RADLSC 1014# RADLSP 1013# RANDBS 847# REENTR 827# RELIAB 589# RENTR1 73 1132# REPT 803# REPT1 803# REPTU 925# REQSET 803# RESRT1 72 902# RESRT2 903# RETURN 834# RSTART 578# RTP 1007# RUNFLG 874# SADR1 71# 823 SADR10 80# 839 SADR11 81# 840 SADR2 72# 825 SADR3 73# 827 SADR4 74# SADR5 75# 888 SADR6 76# 889 SADR7 77# 836 SADR8 78# 837 SADR9 79# 838 SBINIT 651 833# SCOPE 926# SFSTRT 823# SLASH 1010# SM10 1114# SNTRP 803# SPACE 999# SPDES 12819# SRTDDT 74 829# START 817 1151# START1 836# START2 837# START3 838# START4 839# START5 840# STARTA 832 1155# STRP 803# SUBLNK 613# 833 SWPTAB 1120# SWTEXR 848# SEQ 0289 SYSEXR 821# T 1184# 1194 1194# 1203 1205 1208 1208# 1217 1219 1222 1222# 1231 1233 1236 1236# 1245 1247 1250 1250# 1259 1261 1264 1264# 1273 1275 1278 1278# 1287 1289 1292 1292# 1301 1303 1306 1306# 1315 1317 1329 1329# 1338 1340 1343 1343# 1352 1354 1357 1357# 1366 1368 1371 1371# 1380 1382 1385 1385# 1394 1396 1399 1399# 1408 1410 1413 1413# 1422 1424 1427 1427# 1436 1438 1441 1441# 1450 1452 1455 1455# 1464 1466 1469 1469# 1478 1480 1483 1483# 1492 1494 1497 1497# 1506 1508 1511 1511# 1520 1522 1525 1525# 1534 1536 1539 1539# 1548 1550 1553 1553# 1562 1564 1567 1567# 1576 1578 1584 1584# 1591 1593 1602 1602# 1611 1613 1616 1616# 1625 1627 1630 1630# 1639 1641 1644 1644# 1653 1655 1658 1658# 1667 1669 1672 1672# 1681 1683 1686 1686# 1695 1697 1700 1700# 1709 1711 1714 1714# 1723 1725 1728 1728# 1737 1739 1742 1742# 1751 1753 1756 1756# 1765 1767 1770 1770# 1779 1781 1784 1784# 1793 1795 1798 1798# 1807 1809 1812 1812# 1821 1823 1826 1826# 1835 1837 1849 1849# 1858 1860 1863 1863# 1872 1874 1877 1877# 1886 1888 1891 1891# 1900 1902 1905 1905# 1914 1916 1919 1919# 1928 1930 1933 1933# 1942 1944 1947 1947# 1956 1958 1961 1961# 1970 1972 1975 1975# 1984 1986 1989 1989# 1998 2000 2003 2003# 2012 2014 2017 2017# 2026 2028 2031 2031# 2040 2042 2045 2045# 2054 2056 2059 2059# 2068 2070 2073 2073# 2082 2084 2087 2087# 2096 2098 2102# 2112 2112# 2121 2123 2126 2126# 2135 2137 2140 2140# 2149 2151 2154 2154# 2163 2165 2168 2168# 2177 2179 2182 2182# 2191 2193 2196 2196# 2205 2207 2210 2210# 2219 2221 2224 2224# 2233 2235 2247 2247# 2256 2258 2261 2261# 2270 2272 2275 2275# 2284 2286 2289 2289# 2298 2300 2303 2303# 2312 2314 2317 2317# 2326 2328 2331 2331# 2340 2342 2345 2345# 2354 2356 2359 2359# 2368 2370 2373 2373# 2382 2384 2387 2387# 2396 2398 2401 2401# 2410 2412 2415 2415# 2424 2426 2429 2429# 2438 2440 2443 2443# 2452 2454 2457 2457# 2466 2468 2471 2471# 2480 2482 2485 2485# 2494 2496 2502 2502# 2509 2511 2521 2521# 2530 2532 2536 2536# 2545 2547 2551 2551# 2560 2562 2566 2566# 2575 2577 2581 2581# 2590 2592 2596 2596# 2605 2607 2611 2611# 2620 2622 2626 2626# 2635 2637 2641 2641# 2650 2652 2656 2656# 2665 2667 2671 2671# 2680 2682 2686 2686# 2695 2697 2701 2701# 2710 2712 2716 2716# 2725 2727 2731 2731# 2740 2742 2746 2746# 2755 2757 2761 2761# 2770 2772 2785 2785# 2794 2796 2799 2799# 2808 2810 2813 2813# 2822 2824 2827 2827# 2836 2838 2841 2841# 2850 2852 2855 2855# 2864 2866 2869 2869# 2878 2880 2883 2883# 2892 2894 2897 2897# 2906 2908 2911 2911# 2920 2922 2925 2925# 2934 2936 2939 2939# 2948 2950 2953 2953# 2962 2964 2967 2967# 2976 2978 2981 2981# 2990 2992 2995 2995# 3004 3006 3009 3009# 3018 3020 3023 3023# 3032 3034 3066# 3075 3075# 3084 3086 3089 3089# 3098 3100 3103 3103# 3112 3114 3117 3117# 3126 3128 3131 3131# 3140 3142 3145 3145# 3154 3156 3159 3159# 3168 3170 3173 3173# 3182 3184 3187 3187# 3196 3198 3201 3201# 3210 3212 3215 3215# 3224 3226 3229 3229# 3238 3240 3243 3243# 3252 3254 3257 3257# 3266 3268 3271 3271# 3280 3282 3285 3285# 3294 3296 3299 3299# 3308 3310 3313 3313# 3322 3324 3336 3336# 3345 3347 3350 3350# 3359 3361 3364 3364# 3373 3375 3378 3378# 3387 3389 3392 3392# 3401 3403 3406 3406# 3415 3417 3420 3420# 3429 3431 3434 3434# 3443 3445 3448 3448# 3457 3459 3462 3462# 3471 3473 3476 3476# 3485 3487 3490 3490# 3499 3501 3504 3504# 3513 3515 3518 3518# 3527 3529 3532 3532# 3541 3543 3546 3546# 3555 3557 3560 3560# 3569 3571 3574 3574# 3583 3585 3597 3597# 3606 3608 3611 3611# 3620 3622 3625 3625# 3634 3636 3639 3639# 3648 3650 3653 3653# 3662 3664 3667 3667# 3676 3678 3681 3681# 3690 3692 3695 3695# 3704 3706 3709 3709# 3718 3720 3723 3723# 3732 3734 3737 3737# 3746 3748 3751 3751# 3760 3762 3765 3765# 3774 3776 3779 3779# 3788 3790 3793 3793# 3802 3804 3807 3807# 3816 3818 3821 3821# 3830 3832 3835 3835# 3844 3846 3859 3859# 3868 3870 3873 SEQ 0290 3873# 3882 3884 3887 3887# 3896 3898 3901 3901# 3910 3912 3915 3915# 3924 3926 3929 3929# 3938 3940 3943 3943# 3952 3954 3957 3957# 3966 3968 3972 3972# 3979 3981 3985# 3994 3994# 4003 4005 4008 4008# 4017 4019 4022 4022# 4031 4033 4036 4036# 4045 4047 4050 4050# 4059 4061 4064 4064# 4073 4075 4078 4078# 4087 4089 4092 4092# 4101 4103 4106 4106# 4115 4117 4120 4120# 4129 4131 4134 4134# 4143 4145 4148 4148# 4157 4159 4162 4162# 4171 4173 4176 4176# 4185 4187 4190 4190# 4199 4201 4204 4204# 4213 4215 4218 4218# 4227 4229 4232 4232# 4241 4243 4255 4255# 4264 4266 4269 4269# 4278 4280 4283 4283# 4292 4294 4297 4297# 4306 4308 4311 4311# 4320 4322 4325 4325# 4334 4336 4339 4339# 4348 4350 4353 4353# 4362 4364 4367 4367# 4376 4378 4381 4381# 4390 4392 4395 4395# 4404 4406 4409 4409# 4418 4420 4423 4423# 4432 4434 4437 4437# 4446 4448 4451 4451# 4460 4462 4465 4465# 4474 4476 4479 4479# 4488 4490 4493 4493# 4502 4504 4516 4516# 4525 4527 4530 4530# 4539 4541 4544 4544# 4553 4555 4558 4558# 4567 4569 4572 4572# 4581 4583 4586 4586# 4595 4597 4600 4600# 4609 4611 4614 4614# 4623 4625 4628 4628# 4637 4639 4642 4642# 4651 4653 4656 4656# 4665 4667 4670 4670# 4679 4681 4684 4684# 4693 4695 4698 4698# 4707 4709 4712 4712# 4721 4723 4726 4726# 4735 4737 4740 4740# 4749 4751 4754 4754# 4763 4765 4777 4777# 4786 4788 4791 4791# 4800 4802 4805 4805# 4814 4816 4819 4819# 4828 4830 4833 4833# 4842 4844 4847 4847# 4856 4858 4861 4861# 4870 4872 4875 4875# 4884 4886 4890 4890# 4897 4899 4903# 4915 4915# 4926 4928 4931 4931# 4942 4944 4947 4947# 4958 4960 4963 4963# 4974 4976 4979 4979# 4990 4992 4995 4995# 5006 5008 5011 5011# 5022 5024 5027 5027# 5038 5040 5043 5043# 5054 5056 5059 5059# 5070 5072 5075 5075# 5086 5088 5091 5091# 5102 5104 5107 5107# 5118 5120 5123 5123# 5134 5136 5139 5139# 5150 5152 5155 5155# 5166 5168 5171 5171# 5182 5184 5187 5187# 5198 5200 5215 5215# 5226 5228 5231 5231# 5242 5244 5247 5247# 5258 5260 5263 5263# 5274 5276 5279 5279# 5290 5292 5295 5295# 5306 5308 5311 5311# 5322 5324 5327 5327# 5338 5340 5343 5343# 5354 5356 5359 5359# 5370 5372 5375 5375# 5386 5388 5391 5391# 5402 5404 5407 5407# 5418 5420 5423 5423# 5434 5436 5439 5439# 5450 5452 5455 5455# 5466 5468 5471 5471# 5482 5484 5487 5487# 5498 5500 5515 5515# 5526 5528 5531 5531# 5542 5544 5547 5547# 5558 5560 5563 5563# 5574 5576 5579 5579# 5590 5592 5595 5595# 5606 5608 5611 5611# 5622 5624 5627 5627# 5638 5640 5643 5643# 5654 5656 5659 5659# 5670 5672 5675 5675# 5686 5688 5691 5691# 5702 5704 5707 5707# 5718 5720 5723 5723# 5734 5736 5739 5739# 5750 5752 5755 5755# 5766 5768 5771 5771# 5782 5784 5787 5787# 5798 5800 5815 5815# 5826 5828 5831 5831# 5842 5844 5847 5847# 5858 5860 5863 5863# 5874 5876 5879 5879# 5890 5892 5895 5895# 5906 5908 5911 5911# 5922 5924 5927 5927# 5938 5940 5943 5943# 5954 5956 5961# 5973 5973# 5984 5986 5989 5989# 6000 6002 6005 6005# 6016 6018 6021 6021# 6032 6034 6037 6037# 6048 6050 6053 6053# 6064 6066 6069 6069# 6080 6082 6085 6085# 6096 6098 6101 6101# 6112 6114 6117 6117# 6128 6130 6133 6133# 6144 6146 6149 6149# 6160 6162 6165 6165# 6176 6178 6181 6181# 6192 6194 6197 6197# 6208 6210 6213 6213# 6224 6226 6229 6229# 6240 6242 6245 6245# 6256 6258 6273 6273# 6284 6286 6289 6289# 6300 6302 6305 6305# 6316 6318 6321 6321# 6332 6334 6337 6337# 6348 6350 6353 6353# 6364 6366 6369 6369# 6380 6382 6385 6385# 6396 6398 6401 6401# 6412 6414 6417 6417# 6428 6430 6433 6433# 6444 6446 6449 6449# 6460 6462 6465 6465# 6476 6478 6481 6481# 6492 6494 6497 6497# 6508 6510 6513 6513# 6524 6526 6529 6529# 6540 6542 6545 6545# 6556 6558 6573 6573# 6584 6586 6589 6589# 6600 6602 6605 6605# 6616 6618 6621 6621# 6632 6634 6637 6637# 6648 6650 6653 6653# 6664 6666 6669 6669# 6680 6682 6685 6685# 6696 6698 6701 6701# 6712 6714 6717 6717# 6728 6730 6733 6733# 6744 6746 6749 6749# 6760 6762 6765 6765# 6776 6778 6781 6781# 6792 6794 6797 6797# 6808 6810 SEQ 0291 6813 6813# 6824 6826 6829 6829# 6840 6842 6845 6845# 6856 6858 6873 6873# 6884 6886 6889 6889# 6900 6902 6905 6905# 6916 6918 6921 6921# 6932 6934 6937 6937# 6948 6950 6953 6953# 6964 6966 6969 6969# 6980 6982 6985 6985# 6996 6998 7001 7001# 7012 7014 7019# 7030 7030# 7040 7042 7045 7045# 7055 7057 7060 7060# 7070 7072 7075 7075# 7085 7087 7090 7090# 7100 7102 7105 7105# 7115 7117 7120 7120# 7130 7132 7135 7135# 7145 7147 7150 7150# 7160 7162 7165 7165# 7175 7177 7180 7180# 7190 7192 7195 7195# 7205 7207 7210 7210# 7220 7222 7225 7225# 7235 7237 7240 7240# 7250 7252 7255 7255# 7265 7267 7270 7270# 7280 7282 7285 7285# 7295 7297 7304 7304# 7311 7313 7323 7323# 7332 7334 7337 7337# 7346 7348 7351 7351# 7360 7362 7365 7365# 7374 7376 7379 7379# 7388 7390 7393 7393# 7402 7404 7407 7407# 7416 7418 7421 7421# 7430 7432 7435 7435# 7444 7446 7449 7449# 7458 7460 7463 7463# 7472 7474 7477 7477# 7486 7488 7491 7491# 7500 7502 7505 7505# 7514 7516 7519 7519# 7528 7530 7533 7533# 7542 7544 7551 7551# 7558 7560 7563 7563# 7571 7573 7583 7583# 7592 7594 7597 7597# 7606 7608 7611 7611# 7620 7622 7625 7625# 7634 7636 7639 7639# 7648 7650 7653 7653# 7662 7664 7667 7667# 7676 7678 7681 7681# 7690 7692 7695 7695# 7704 7706 7709 7709# 7718 7720 7723 7723# 7732 7734 7737 7737# 7746 7748 7751 7751# 7760 7762 7765 7765# 7774 7776 7779 7779# 7788 7790 7793 7793# 7802 7804 7807 7807# 7816 7818 7823 7823# 7832 7834 7843 7843# 7852 7854 7857 7857# 7866 7868 7871 7871# 7880 7882 7885 7885# 7894 7896 7899 7899# 7908 7910 7913 7913# 7922 7924 7927 7927# 7936 7938 7941 7941# 7950 7952 7957# 7968 7968# 7978 7980 7983 7983# 7993 7995 7998 7998# 8008 8010 8013 8013# 8023 8025 8028 8028# 8038 8040 8043 8043# 8053 8055 8058 8058# 8068 8070 8073 8073# 8083 8085 8088 8088# 8098 8100 8103 8103# 8113 8115 8118 8118# 8128 8130 8133 8133# 8143 8145 8148 8148# 8158 8160 8163 8163# 8173 8175 8178 8178# 8188 8190 8193 8193# 8203 8205 8208 8208# 8218 8220 8223 8223# 8233 8235 8242 8242# 8249 8251 8261 8261# 8270 8272 8275 8275# 8284 8286 8289 8289# 8298 8300 8303 8303# 8312 8314 8317 8317# 8326 8328 8331 8331# 8340 8342 8345 8345# 8354 8356 8359 8359# 8368 8370 8373 8373# 8382 8384 8387 8387# 8396 8398 8401 8401# 8410 8412 8415 8415# 8424 8426 8429 8429# 8438 8440 8443 8443# 8452 8454 8457 8457# 8466 8468 8471 8471# 8480 8482 8489 8489# 8496 8498 8503 8503# 8510 8512 8520 8520# 8529 8531 8534 8534# 8543 8545 8548 8548# 8557 8559 8562 8562# 8571 8573 8576 8576# 8585 8587 8590 8590# 8599 8601 8604 8604# 8613 8615 8618 8618# 8627 8629 8632 8632# 8641 8643 8646 8646# 8655 8657 8660 8660# 8669 8671 8674 8674# 8683 8685 8688 8688# 8697 8699 8702 8702# 8711 8713 8716 8716# 8725 8727 8730 8730# 8739 8741 8744 8744# 8753 8755 8759 8759# 8768 8770 8778 8778# 8787 8789 8792 8792# 8801 8803 8806 8806# 8815 8817 8820 8820# 8829 8831 8834 8834# 8843 8845 8848 8848# 8857 8859 8862 8862# 8871 8873 8876 8876# 8885 8887 8893# 8905 8905# 8916 8918 8921 8921# 8932 8934 8937 8937# 8948 8950 8953 8953# 8964 8966 8969 8969# 8980 8982 8985 8985# 8996 8998 9001 9001# 9012 9014 9017 9017# 9028 9030 9033 9033# 9044 9046 9049 9049# 9060 9062 9065 9065# 9076 9078 9081 9081# 9092 9094 9097 9097# 9108 9110 9113 9113# 9124 9126 9129 9129# 9140 9142 9145 9145# 9156 9158 9161 9161# 9172 9174 9177 9177# 9188 9190 9194 9194# 9203 9205 9214 9214# 9223 9225 9228 9228# 9237 9239 9242 9242# 9251 9253 9256 9256# 9265 9267 9270 9270# 9279 9281 9284 9284# 9293 9295 9298 9298# 9307 9309 9312 9312# 9321 9323 9326 9326# 9335 9337 9340 9340# 9349 9351 9354 9354# 9363 9365 9368 9368# 9377 9379 9382 9382# 9391 9393 9396 9396# 9405 9407 9410 9410# 9419 9421 9424 9424# 9433 9435 9439 9439# 9448 9450 9453 9453# 9462 9464 9473 9473# 9482 9484 9487 9487# 9496 9498 9501 9501# 9510 9512 9515 9515# 9524 9526 9529 9529# 9538 9540 9543 9543# 9552 9554 9557 9557# 9566 9568 9571 9571# 9580 9582 9585 9585# 9594 9596 9599 9599# 9608 SEQ 0292 9610 9613 9613# 9622 9624 9627 9627# 9636 9638 9641 9641# 9650 9652 9655 9655# 9664 9666 9669 9669# 9678 9680 9683 9683# 9692 9694 9697 9697# 9706 9708 9712 9712# 9721 9723 9732 9732# 9741 9743 9746 9746# 9755 9757 9760 9760# 9769 9771 9774 9774# 9783 9785 9788 9788# 9797 9799 9802 9802# 9811 9813 9816 9816# 9825 9827 9830 9830# 9839 9841 9846# 9858 9858# 9869 9871 9874 9874# 9885 9887 9890 9890# 9901 9903 9906 9906# 9917 9919 9922 9922# 9933 9935 9938 9938# 9949 9951 9954 9954# 9965 9967 9970 9970# 9981 9983 9986 9986# 9997 9999 10002 10002# 10013 10015 10018 10018# 10029 10031 10034 10034# 10045 10047 10050 10050# 10061 10063 10066 10066# 10077 10079 10082 10082# 10093 10095 10098 10098# 10109 10111 10114 10114# 10125 10127 10130 10130# 10141 10143 10147 10147# 10156 10158 10167 10167# 10176 10178 10181 10181# 10190 10192 10195 10195# 10204 10206 10209 10209# 10218 10220 10223 10223# 10232 10234 10237 10237# 10246 10248 10251 10251# 10260 10262 10265 10265# 10274 10276 10279 10279# 10288 10290 10293 10293# 10302 10304 10307 10307# 10316 10318 10321 10321# 10330 10332 10335 10335# 10344 10346 10349 10349# 10358 10360 10363 10363# 10372 10374 10377 10377# 10386 10388 10392 10392# 10401 10403 10406 10406# 10415 10417 10426 10426# 10435 10437 10440 10440# 10449 10451 10454 10454# 10463 10465 10468 10468# 10477 10479 10482 10482# 10491 10493 10496 10496# 10505 10507 10510 10510# 10519 10521 10524 10524# 10533 10535 10538 10538# 10547 10549 10552 10552# 10561 10563 10566 10566# 10575 10577 10580 10580# 10589 10591 10594 10594# 10603 10605 10608 10608# 10617 10619 10622 10622# 10631 10633 10636 10636# 10645 10647 10650 10650# 10659 10661 10665 10665# 10674 10676 10685 10685# 10694 10696 10699 10699# 10708 10710 10713 10713# 10722 10724 10727 10727# 10736 10738 10741 10741# 10750 10752 10755 10755# 10764 10766 10769 10769# 10778 10780 10783 10783# 10792 10794 10800# 10811 10811# 10821 10823 10826 10826# 10836 10838 10841 10841# 10851 10853 10856 10856# 10866 10868 10871 10871# 10881 10883 10886 10886# 10896 10898 10901 10901# 10911 10913 10916 10916# 10926 10928 10931 10931# 10941 10943 10946 10946# 10956 10958 10961 10961# 10971 10973 10976 10976# 10986 10988 10991 10991# 11001 11003 11006 11006# 11016 11018 11021 11021# 11031 11033 11036 11036# 11046 11048 11051 11051# 11061 11063 11066 11066# 11076 11078 11091 11091# 11101 11103 11106 11106# 11116 11118 11121 11121# 11131 11133 11136 11136# 11146 11148 11151 11151# 11161 11163 11166 11166# 11176 11178 11181 11181# 11191 11193 11196 11196# 11206 11208 11211 11211# 11221 11223 11226 11226# 11236 11238 11241 11241# 11251 11253 11256 11256# 11266 11268 11271 11271# 11281 11283 11286 11286# 11296 11298 11301 11301# 11311 11313 11316 11316# 11326 11328 11331 11331# 11341 11343 11346 11346# 11354 11356 11368 11368# 11378 11380 11383 11383# 11393 11395 11398 11398# 11408 11410 11413 11413# 11423 11425 11428 11428# 11438 11440 11443 11443# 11453 11455 11458 11458# 11468 11470 11473 11473# 11483 11485 11488 11488# 11498 11500 11503 11503# 11513 11515 11518 11518# 11528 11530 11533 11533# 11543 11545 11548 11548# 11558 11560 11563 11563# 11573 11575 11578 11578# 11588 11590 11593 11593# 11603 11605 11608 11608# 11618 11620 11623 11623# 11633 11635 11648 11648# 11658 11660 11663 11663# 11673 11675 11678 11678# 11688 11690 11693 11693# 11703 11705 11708 11708# 11718 11720 11723 11723# 11733 11735 11738 11738# 11748 11750 11753 11753# 11763 11765 11768 11768# 11778 11780 11786# 11796 11796# 11805 11807 11810 11810# 11819 11821 11824 11824# 11833 11835 11838 11838# 11847 11849 11852 11852# 11861 11863 11866 11866# 11875 11877 11880 11880# 11889 11891 11894 11894# 11903 11905 11908 11908# 11917 11919 11922 11922# 11931 11933 11936 11936# 11945 11947 11950 11950# 11959 11961 11964 11964# 11973 11975 11978 11978# 11987 11989 11992 11992# 12001 12003 12006 12006# 12015 12017 12020 12020# 12029 12031 12034 12034# 12043 12045 12057 12057# 12066 12068 12071 12071# 12080 12082 12085 12085# 12094 12096 12099 12099# 12108 12110 12113 12113# 12122 12124 12127 12127# 12136 12138 12141 12141# 12150 12152 12155 12155# 12164 12166 12169 12169# 12178 12180 12183 12183# 12192 12194 12197 12197# 12206 12208 12211 12211# 12220 12222 12225 12225# 12234 12236 12239 12239# 12248 12250 12253 12253# 12262 12264 12267 12267# 12276 12278 12281 12281# 12290 12292 12295 12295# 12304 12306 12318 12318# 12327 12329 12332 12332# 12341 12343 12346 12346# 12355 12357 12360 12360# 12369 12371 12374 12374# 12383 12385 12388 12388# 12397 12399 12402 12402# SEQ 0293 12411 12413 12416 12416# 12425 12427 12430 12430# 12439 12441 12444 12444# 12453 12455 12458 12458# 12467 12469 12472 12472# 12481 12483 12486 12486# 12495 12497 12500 12500# 12509 12511 12514 12514# 12523 12525 12528 12528# 12537 12539 12542 12542# 12551 12553 12556 12556# 12565 12567 12579 12579# 12588 12590 12593 12593# 12602 12604 12607 12607# 12616 12618 12621 12621# 12630 12632 12635 12635# 12644 12646 12649 12649# 12658 12660 12663 12663# 12672 12674 12677 12677# 12686 12688 12692 12692# 12700 12702 TAB 1000# TESTPC 875# 1167 TICKS 878# TLET 1153 12793 12816# TN0 803# TN1 803# TOTALS 579# TRP3TP 803# TTNBRF 1058# TTYFIL 974# TTYSPD 975# TXTINH 590# 12777 UBAVEC 803# USER 865# USERF 803# USRASB 57# 855 USRCRF 984# USRLFF 983# UUODIS 937# UUOEXT 893# 12864 UUORTN 894# UUOSKP 891# XX 1185# 1195 1195# 1200 1209 1209# 1214 1223 1223# 1228 1237 1237# 1242 1251 1251# 1256 1265 1265# 1270 1279 1279# 1284 1293 1293# 1298 1307 1307# 1312 1321# 1330 1330# 1335 1344 1344# 1349 1358 1358# 1363 1372 1372# 1377 1386 1386# 1391 1400 1400# 1405 1414 1414# 1419 1428 1428# 1433 1442 1442# 1447 1456 1456# 1461 1470 1470# 1475 1484 1484# 1489 1498 1498# 1503 1512 1512# 1517 1526 1526# 1531 1540 1540# 1545 1554 1554# 1559 1568 1568# 1573 1582# 1589 1603 1603# 1609 1617 1617# 1623 1631 1631# 1637 1645 1645# 1651 1659 1659# 1665 1673 1673# 1679 1687 1687# 1693 1701 1701# 1707 1715 1715# 1721 1729 1729# 1735 1743 1743# 1749 1757 1757# 1763 1771 1771# 1777 1785 1785# 1791 1799 1799# 1805 1813 1813# 1819 1827 1827# 1833 1841# 1850 1850# 1856 1864 1864# 1870 1878 1878# 1884 1892 1892# 1898 1906 1906# 1912 1920 1920# 1926 1934 1934# 1940 1948 1948# 1954 1962 1962# 1968 1976 1976# 1982 1990 1990# 1996 2004 2004# 2010 2018 2018# 2024 2032 2032# 2038 2046 2046# 2052 2060 2060# 2066 2074 2074# 2080 2088 2088# 2094 2103# 2113 2113# 2116 2127 2127# 2130 2141 2141# 2144 2155 2155# 2158 2169 2169# 2172 2183 2183# 2186 2197 2197# 2200 2211 2211# 2214 2225 2225# 2228 2239# 2248 2248# 2251 2262 2262# 2265 2276 2276# 2279 2290 2290# 2293 2304 2304# 2307 2318 2318# 2321 2332 2332# 2335 2346 2346# 2349 2360 2360# 2363 2374 2374# 2377 2388 2388# 2391 2402 2402# 2405 2416 2416# 2419 2430 2430# 2433 2444 2444# 2447 2458 2458# 2461 2472 2472# 2475 2486 2486# 2489 2500# 2505 2522 2522# 2526 2537 2537# 2541 2552 2552# 2556 2567 2567# 2571 2582 2582# 2586 2597 2597# 2601 2612 2612# 2616 2627 2627# 2631 2642 2642# 2646 2657 2657# 2661 2672 2672# 2676 2687 2687# 2691 2702 2702# 2706 2717 2717# 2721 2732 2732# 2736 2747 2747# 2751 2762 2762# 2766 2777# 2786 2786# 2790 2800 2800# 2804 2814 2814# 2818 2828 2828# 2832 2842 2842# 2846 2856 2856# 2860 2870 2870# 2874 2884 SEQ 0294 2884# 2888 2898 2898# 2902 2912 2912# 2916 2926 2926# 2930 2940 2940# 2944 2954 2954# 2958 2968 2968# 2972 2982 2982# 2986 2996 2996# 3000 3010 3010# 3014 3024 3024# 3028 4904# 4916 4916# 4917 4917# 4922 4932 4932# 4933 4938 4948 4948# 4949 4954 4964 4964# 4965 4970 4980 4980# 4981 4986 4996 4996# 4997 5002 5012 5012# 5013 5018 5028 5028# 5029 5034 5044 5044# 5045 5050 5060 5060# 5061 5066 5076 5076# 5077 5082 5092 5092# 5093 5098 5108 5108# 5109 5114 5124 5124# 5125 5130 5140 5140# 5141 5146 5156 5156# 5157 5162 5172 5172# 5173 5178 5188 5188# 5189 5194 5204# 5216 5216# 5217 5217# 5222 5232 5232# 5233 5238 5248 5248# 5249 5254 5264 5264# 5265 5270 5280 5280# 5281 5286 5296 5296# 5297 5302 5312 5312# 5313 5318 5328 5328# 5329 5334 5344 5344# 5345 5350 5360 5360# 5361 5366 5376 5376# 5377 5382 5392 5392# 5393 5398 5408 5408# 5409 5414 5424 5424# 5425 5430 5440 5440# 5441 5446 5456 5456# 5457 5462 5472 5472# 5473 5478 5488 5488# 5489 5494 5504# 5516 5516# 5517 5517# 5521 5532 5532# 5533 5537 5548 5548# 5549 5553 5564 5564# 5565 5569 5580 5580# 5581 5585 5596 5596# 5597 5601 5612 5612# 5613 5617 5628 5628# 5629 5633 5644 5644# 5645 5649 5660 5660# 5661 5665 5676 5676# 5677 5681 5692 5692# 5693 5697 5708 5708# 5709 5713 5724 5724# 5725 5729 5740 5740# 5741 5745 5756 5756# 5757 5761 5772 5772# 5773 5777 5788 5788# 5789 5793 5804# 5816 5816# 5817 5817# 5821 5832 5832# 5833 5837 5848 5848# 5849 5853 5864 5864# 5865 5869 5880 5880# 5881 5885 5896 5896# 5897 5901 5912 5912# 5913 5917 5928 5928# 5929 5933 5944 5944# 5945 5949 5962# 5974 5974# 5975 5975# 5980 5990 5990# 5991 5996 6006 6006# 6007 6012 6022 6022# 6023 6028 6038 6038# 6039 6044 6054 6054# 6055 6060 6070 6070# 6071 6076 6086 6086# 6087 6092 6102 6102# 6103 6108 6118 6118# 6119 6124 6134 6134# 6135 6140 6150 6150# 6151 6156 6166 6166# 6167 6172 6182 6182# 6183 6188 6198 6198# 6199 6204 6214 6214# 6215 6220 6230 6230# 6231 6236 6246 6246# 6247 6252 6262# 6274 6274# 6275 6275# 6280 6290 6290# 6291 6296 6306 6306# 6307 6312 6322 6322# 6323 6328 6338 6338# 6339 6344 6354 6354# 6355 6360 6370 6370# 6371 6376 6386 6386# 6387 6392 6402 6402# 6403 6408 6418 6418# 6419 6424 6434 6434# 6435 6440 6450 6450# 6451 6456 6466 6466# 6467 6472 6482 6482# 6483 6488 6498 6498# 6499 6504 6514 6514# 6515 6520 6530 6530# 6531 6536 6546 6546# 6547 6552 6562# 6574 6574# 6575 6575# 6579 6590 6590# 6591 6595 6606 6606# 6607 6611 6622 6622# 6623 6627 6638 6638# 6639 6643 6654 6654# 6655 6659 6670 6670# 6671 6675 6686 6686# 6687 6691 6702 6702# 6703 6707 6718 6718# 6719 6723 6734 6734# 6735 6739 6750 6750# 6751 6755 6766 6766# 6767 6771 6782 6782# 6783 6787 6798 6798# 6799 6803 6814 6814# 6815 6819 6830 6830# 6831 6835 6846 6846# 6847 6851 6862# 6874 6874# 6875 6875# 6879 6890 6890# 6891 6895 6906 6906# 6907 6911 6922 6922# 6923 6927 6938 6938# 6939 6943 6954 6954# 6955 6959 6970 6970# 6971 6975 6986 6986# 6987 6991 7002 7002# 7003 7007 7021# 7031 7032 7032# 7033 7033# 7038 7046 7047 7047# 7048 7053 7061 7062 7062# 7063 7068 7076 7077 7077# 7078 7083 7091 7092 7092# 7093 7098 7106 7107 7107# 7108 7113 7121 7122 7122# 7123 7128 7136 7137 7137# 7138 7143 7151 7152 7152# 7153 7158 7166 7167 7167# 7168 7173 7181 7182 7182# 7183 7188 7196 7197 7197# 7198 7203 7211 7212 7212# 7213 7218 7226 7227 7227# 7228 7233 7241 7242 7242# 7243 7248 7256 7257 7257# 7258 7263 7271 7272 7272# 7273 7278 7286 7287 7287# 7288 7293 7301 7302# 7309 7324 7325 7325# 7330 7338 7339 7339# 7344 7352 7353 7353# 7358 7366 7367 7367# 7372 7380 7381 7381# 7386 7394 7395 7395# 7400 7408 7409 7409# 7414 7422 7423 7423# 7428 7436 7437 7437# 7442 7450 7451 7451# 7456 7464 7465 7465# 7470 7478 7479 7479# 7484 7492 7493 7493# 7498 7506 7507 7507# 7512 7520 7521 7521# 7526 7534 7535 7535# 7540 7548 7549 7549# 7556 7564# 7568 7584 7585 7585# 7589 7598 7599 7599# 7603 7612 7613 7613# 7617 7626 7627 7627# 7631 7640 7641 7641# 7645 7654 7655 7655# 7659 7668 SEQ 0295 7669 7669# 7673 7682 7683 7683# 7687 7696 7697 7697# 7701 7710 7711 7711# 7715 7724 7725 7725# 7729 7738 7739 7739# 7743 7752 7753 7753# 7757 7766 7767 7767# 7771 7780 7781 7781# 7785 7794 7795 7795# 7799 7808 7809 7809# 7813 7824 7825# 7829 7844 7845 7845# 7849 7858 7859 7859# 7863 7872 7873 7873# 7877 7886 7887 7887# 7891 7900 7901 7901# 7905 7914 7915 7915# 7919 7928 7929 7929# 7933 7942 7943 7943# 7947 7959# 7969 7970 7970# 7971 7971# 7974 7984 7985 7985# 7986 7989 7999 8000 8000# 8001 8004 8014 8015 8015# 8016 8019 8029 8030 8030# 8031 8034 8044 8045 8045# 8046 8049 8059 8060 8060# 8061 8064 8074 8075 8075# 8076 8079 8089 8090 8090# 8091 8094 8104 8105 8105# 8106 8109 8119 8120 8120# 8121 8124 8134 8135 8135# 8136 8139 8149 8150 8150# 8151 8154 8164 8165 8165# 8166 8169 8179 8180 8180# 8181 8184 8194 8195 8195# 8196 8199 8209 8210 8210# 8211 8214 8224 8225 8225# 8226 8229 8239 8240# 8245 8262 8263 8263# 8266 8276 8277 8277# 8280 8290 8291 8291# 8294 8304 8305 8305# 8308 8318 8319 8319# 8322 8332 8333 8333# 8336 8346 8347 8347# 8350 8360 8361 8361# 8364 8374 8375 8375# 8378 8388 8389 8389# 8392 8402 8403 8403# 8406 8416 8417 8417# 8420 8430 8431 8431# 8434 8444 8445 8445# 8448 8458 8459 8459# 8462 8472 8473 8473# 8476 8487 8488 8488# 8492 8502# 8505 8521 8522 8522# 8524 8535 8536 8536# 8538 8549 8550 8550# 8552 8563 8564 8564# 8566 8577 8578 8578# 8580 8591 8592 8592# 8594 8605 8606 8606# 8608 8619 8620 8620# 8622 8633 8634 8634# 8636 8647 8648 8648# 8650 8661 8662 8662# 8664 8675 8676 8676# 8678 8689 8690 8690# 8692 8703 8704 8704# 8706 8717 8718 8718# 8720 8731 8732 8732# 8734 8745 8746 8746# 8748 8760 8761# 8763 8779 8780 8780# 8782 8793 8794 8794# 8796 8807 8808 8808# 8810 8821 8822 8822# 8824 8835 8836 8836# 8838 8849 8850 8850# 8852 8863 8864 8864# 8866 8877 8878 8878# 8880 8895# 8906 8908 8908# 8909 8909# 8914 8922 8924 8924# 8925 8930 8938 8940 8940# 8941 8946 8954 8956 8956# 8957 8962 8970 8972 8972# 8973 8978 8986 8988 8988# 8989 8994 9002 9004 9004# 9005 9010 9018 9020 9020# 9021 9026 9034 9036 9036# 9037 9042 9050 9052 9052# 9053 9058 9066 9068 9068# 9069 9074 9082 9084 9084# 9085 9090 9098 9100 9100# 9101 9106 9114 9116 9116# 9117 9122 9130 9132 9132# 9133 9138 9146 9148 9148# 9149 9154 9162 9164 9164# 9165 9170 9178 9180 9180# 9181 9186 9195 9196# 9201 9215 9216 9216# 9221 9229 9230 9230# 9235 9243 9244 9244# 9249 9257 9258 9258# 9263 9271 9272 9272# 9277 9285 9286 9286# 9291 9299 9300 9300# 9305 9313 9314 9314# 9319 9327 9328 9328# 9333 9341 9342 9342# 9347 9355 9356 9356# 9361 9369 9370 9370# 9375 9383 9384 9384# 9389 9397 9398 9398# 9403 9411 9412 9412# 9417 9425 9426 9426# 9431 9440 9440# 9441 9446 9454 9455# 9459 9474 9475 9475# 9479 9488 9489 9489# 9493 9502 9503 9503# 9507 9516 9517 9517# 9521 9530 9531 9531# 9535 9544 9545 9545# 9549 9558 9559 9559# 9563 9572 9573 9573# 9577 9586 9587 9587# 9591 9600 9601 9601# 9605 9614 9615 9615# 9619 9628 9629 9629# 9633 9642 9643 9643# 9647 9656 9657 9657# 9661 9670 9671 9671# 9675 9684 9685 9685# 9689 9698 9699 9699# 9703 9713 9714# 9718 9733 9734 9734# 9738 9747 9748 9748# 9752 9761 9762 9762# 9766 9775 9776 9776# 9780 9789 9790 9790# 9794 9803 9804 9804# 9808 9817 9818 9818# 9822 9831 9832 9832# 9836 9848# 9859 9861 9861# 9862 9862# 9865 9875 9877 9877# 9878 9881 9891 9893 9893# 9894 9897 9907 9909 9909# 9910 9913 9923 9925 9925# 9926 9929 9939 9941 9941# 9942 9945 9955 9957 9957# 9958 9961 9971 9973 9973# 9974 9977 9987 9989 9989# 9990 9993 10003 10005 10005# 10006 10009 10019 10021 10021# 10022 10025 10035 10037 10037# 10038 10041 10051 10053 10053# 10054 10057 10067 10069 10069# 10070 10073 10083 10085 10085# 10086 10089 10099 10101 10101# 10102 10105 10115 10117 10117# 10118 10121 10131 10133 10133# 10134 10137 10148 10149# 10152 10168 10169 10169# 10172 10182 10183 10183# 10186 10196 10197 10197# 10200 10210 10211 10211# 10214 10224 10225 10225# 10228 10238 10239 10239# 10242 10252 10253 10253# 10256 10266 10267 10267# 10270 SEQ 0296 10280 10281 10281# 10284 10294 10295 10295# 10298 10308 10309 10309# 10312 10322 10323 10323# 10326 10336 10337 10337# 10340 10350 10351 10351# 10354 10364 10365 10365# 10368 10378 10379 10379# 10382 10393 10393# 10394 10397 10407 10408# 10410 10427 10428 10428# 10430 10441 10442 10442# 10444 10455 10456 10456# 10458 10469 10470 10470# 10472 10483 10484 10484# 10486 10497 10498 10498# 10500 10511 10512 10512# 10514 10525 10526 10526# 10528 10539 10540 10540# 10542 10553 10554 10554# 10556 10567 10568 10568# 10570 10581 10582 10582# 10584 10595 10596 10596# 10598 10609 10610 10610# 10612 10623 10624 10624# 10626 10637 10638 10638# 10640 10651 10652 10652# 10654 10666 10667# 10669 10686 10687 10687# 10689 10700 10701 10701# 10703 10714 10715 10715# 10717 10728 10729 10729# 10731 10742 10743 10743# 10745 10756 10757 10757# 10759 10770 10771 10771# 10773 10784 10785 10785# 10787 10801# 10812 10812# 10813 10813# 10817 10819 10827 10827# 10828 10832 10834 10842 10842# 10843 10847 10849 10857 10857# 10858 10862 10864 10872 10872# 10873 10877 10879 10887 10887# 10888 10892 10894 10902 10902# 10903 10907 10909 10917 10917# 10918 10922 10924 10932 10932# 10933 10937 10939 10947 10947# 10948 10952 10954 10962 10962# 10963 10967 10969 10977 10977# 10978 10982 10984 10992 10992# 10993 10997 10999 11007 11007# 11008 11012 11014 11022 11022# 11023 11027 11029 11037 11037# 11038 11042 11044 11052 11052# 11053 11057 11059 11067 11067# 11068 11072 11074 11082# 11092 11092# 11093 11093# 11097 11099 11107 11107# 11108 11112 11114 11122 11122# 11123 11127 11129 11137 11137# 11138 11142 11144 11152 11152# 11153 11157 11159 11167 11167# 11168 11172 11174 11182 11182# 11183 11187 11189 11197 11197# 11198 11202 11204 11212 11212# 11213 11217 11219 11227 11227# 11228 11232 11234 11242 11242# 11243 11247 11249 11257 11257# 11258 11262 11264 11272 11272# 11273 11277 11279 11287 11287# 11288 11292 11294 11302 11302# 11303 11307 11309 11317 11317# 11318 11322 11324 11332 11332# 11333 11337 11339 11347 11347# 11350 11352 11359# 11369 11369# 11370 11370# 11373 11375 11384 11384# 11385 11388 11390 11399 11399# 11400 11403 11405 11414 11414# 11415 11418 11420 11429 11429# 11430 11433 11435 11444 11444# 11445 11448 11450 11459 11459# 11460 11463 11465 11474 11474# 11475 11478 11480 11489 11489# 11490 11493 11495 11504 11504# 11505 11508 11510 11519 11519# 11520 11523 11525 11534 11534# 11535 11538 11540 11549 11549# 11550 11553 11555 11564 11564# 11565 11568 11570 11579 11579# 11580 11583 11585 11594 11594# 11595 11598 11600 11609 11609# 11610 11613 11615 11624 11624# 11625 11628 11630 11639# 11649 11649# 11650 11650# 11653 11655 11664 11664# 11665 11668 11670 11679 11679# 11680 11683 11685 11694 11694# 11695 11698 11700 11709 11709# 11710 11713 11715 11724 11724# 11725 11728 11730 11739 11739# 11740 11743 11745 11754 11754# 11755 11758 11760 11769 11769# 11770 11773 11775 11788# 11797 11797# 11798 11798# 11801 11803 11806 11811 11811# 11812 11815 11817 11820 11825 11825# 11826 11829 11831 11834 11839 11839# 11840 11843 11845 11848 11853 11853# 11854 11857 11859 11862 11867 11867# 11868 11871 11873 11876 11881 11881# 11882 11885 11887 11890 11895 11895# 11896 11899 11901 11904 11909 11909# 11910 11913 11915 11918 11923 11923# 11924 11927 11929 11932 11937 11937# 11938 11941 11943 11946 11951 11951# 11952 11955 11957 11960 11965 11965# 11966 11969 11971 11974 11979 11979# 11980 11983 11985 11988 11993 11993# 11994 11997 11999 12002 12007 12007# 12008 12011 12013 12016 12021 12021# 12022 12025 12027 12030 12035 12035# 12036 12039 12041 12044 12049# 12058 12058# 12059 12059# 12062 12064 12067 12072 12072# 12073 12076 12078 12081 12086 12086# 12087 12090 12092 12095 12100 12100# 12101 12104 12106 12109 12114 12114# 12115 12118 12120 12123 12128 12128# 12129 12132 12134 12137 12142 12142# 12143 12146 12148 12151 12156 12156# 12157 12160 12162 12165 12170 12170# 12171 12174 12176 12179 12184 12184# 12185 12188 12190 12193 12198 12198# 12199 12202 12204 12207 12212 12212# 12213 12216 12218 12221 12226 12226# 12227 12230 12232 12235 12240 12240# 12241 12244 12246 12249 12254 12254# 12255 12258 12260 12263 12268 12268# 12269 12272 12274 12277 12282 12282# 12283 12286 12288 12291 12296 12296# 12297 12300 12302 12305 12310# 12319 12319# 12320 12320# 12322 12324 12326 12333 12333# 12334 12336 12338 12340 12347 12347# 12348 12350 12352 12354 12361 12361# 12362 12364 12366 12368 12375 12375# 12376 12378 12380 12382 12389 12389# 12390 12392 12394 12396 12403 12403# 12404 12406 12408 12410 12417 12417# 12418 12420 12422 12424 12431 12431# 12432 12434 12436 12438 12445 12445# SEQ 0297 12446 12448 12450 12452 12459 12459# 12460 12462 12464 12466 12473 12473# 12474 12476 12478 12480 12487 12487# 12488 12490 12492 12494 12501 12501# 12502 12504 12506 12508 12515 12515# 12516 12518 12520 12522 12529 12529# 12530 12532 12534 12536 12543 12543# 12544 12546 12548 12550 12557 12557# 12558 12560 12562 12564 12580 12580# 12581 12583 12585 12587 12594 12594# 12595 12597 12599 12601 12608 12608# 12609 12611 12613 12615 12622 12622# 12623 12625 12627 12629 12636 12636# 12637 12639 12641 12643 12650 12650# 12651 12653 12655 12657 12664 12664# 12665 12667 12669 12671 12678 12678# 12679 12681 12683 12685 12693 12693# 12695 12697 12699 ZZ 1186# 1196 1196# 1202 1210 1210# 1216 1224 1224# 1230 1238 1238# 1244 1252 1252# 1258 1266 1266# 1272 1280 1280# 1286 1294 1294# 1300 1308 1308# 1314 1331 1331# 1337 1345 1345# 1351 1359 1359# 1365 1373 1373# 1379 1387 1387# 1393 1401 1401# 1407 1415 1415# 1421 1429 1429# 1435 1443 1443# 1449 1457 1457# 1463 1471 1471# 1477 1485 1485# 1491 1499 1499# 1505 1513 1513# 1519 1527 1527# 1533 1541 1541# 1547 1555 1555# 1561 1569 1569# 1575 1604 1604# 1610 1618 1618# 1624 1632 1632# 1638 1646 1646# 1652 1660 1660# 1666 1674 1674# 1680 1688 1688# 1694 1702 1702# 1708 1716 1716# 1722 1730 1730# 1736 1744 1744# 1750 1758 1758# 1764 1772 1772# 1778 1786 1786# 1792 1800 1800# 1806 1814 1814# 1820 1828 1828# 1834 1851 1851# 1857 1865 1865# 1871 1879 1879# 1885 1893 1893# 1899 1907 1907# 1913 1921 1921# 1927 1935 1935# 1941 1949 1949# 1955 1963 1963# 1969 1977 1977# 1983 1991 1991# 1997 2005 2005# 2011 2019 2019# 2025 2033 2033# 2039 2047 2047# 2053 2061 2061# 2067 2075 2075# 2081 2089 2089# 2095 2104# 2114 2114# 2120 2128 2128# 2134 2142 2142# 2148 2156 2156# 2162 2170 2170# 2176 2184 2184# 2190 2198 2198# 2204 2212 2212# 2218 2226 2226# 2232 2249 2249# 2255 2263 2263# 2269 2277 2277# 2283 2291 2291# 2297 2305 2305# 2311 2319 2319# 2325 2333 2333# 2339 2347 2347# 2353 2361 2361# 2367 2375 2375# 2381 2389 2389# 2395 2403 2403# 2409 2417 2417# 2423 2431 2431# 2437 2445 2445# 2451 2459 2459# 2465 2473 2473# 2479 2487 2487# 2493 2523 2523# 2529 2538 2538# 2544 2553 2553# 2559 2568 2568# 2574 2583 2583# 2589 2598 2598# 2604 2613 2613# 2619 2628 2628# 2634 2643 2643# 2649 2658 2658# 2664 2673 2673# 2679 2688 2688# 2694 2703 2703# 2709 2718 2718# 2724 2733 2733# 2739 2748 2748# 2754 2763 2763# 2769 2787 2787# 2793 2801 2801# 2807 2815 2815# 2821 2829 2829# 2835 2843 2843# 2849 2857 2857# 2863 2871 2871# 2877 2885 2885# 2891 2899 2899# 2905 2913 2913# 2919 2927 2927# 2933 2941 2941# 2947 2955 2955# 2961 2969 2969# 2975 2983 2983# 2989 2997 2997# 3003 3011 3011# 3017 3025 3025# 3031 3067# 3076 3076# 3077 3077# 3082 3085 3090 3090# 3091 3096 3099 3104 3104# 3105 3110 3113 3118 3118# 3119 3124 3127 3132 3132# 3133 3138 3141 3146 3146# 3147 3152 3155 3160 3160# 3161 3166 3169 3174 3174# 3175 3180 3183 3188 3188# 3189 3194 3197 3202 3202# 3203 3208 3211 3216 3216# 3217 3222 3225 3230 3230# 3231 3236 3239 3244 3244# 3245 3250 3253 3258 3258# 3259 3264 3267 3272 3272# 3273 3278 3281 3286 3286# 3287 3292 3295 3300 3300# 3301 3306 3309 3314 3314# 3315 3320 3323 3328# 3337 3337# 3338 3338# 3343 3346 3351 3351# 3352 3357 3360 3365 3365# 3366 3371 3374 3379 3379# 3380 3385 3388 3393 3393# 3394 3399 3402 3407 3407# 3408 3413 3416 3421 3421# 3422 3427 3430 3435 3435# 3436 3441 3444 3449 3449# 3450 3455 3458 3463 3463# 3464 3469 3472 3477 3477# 3478 3483 3486 3491 3491# 3492 3497 3500 3505 3505# 3506 3511 3514 3519 3519# 3520 3525 3528 3533 3533# 3534 3539 3542 3547 3547# 3548 3553 3556 3561 3561# 3562 3567 3570 3575 3575# 3576 3581 3584 3589# 3598 3598# 3599 3599# 3603 3605 3612 3612# 3613 3617 3619 3626 3626# 3627 3631 3633 3640 3640# 3641 3645 3647 3654 3654# 3655 3659 3661 3668 3668# 3669 3673 3675 3682 3682# 3683 3687 3689 3696 3696# 3697 3701 3703 3710 3710# 3711 3715 3717 3724 3724# 3725 3729 3731 3738 3738# 3739 3743 3745 3752 3752# 3753 3757 3759 3766 3766# 3767 3771 3773 3780 3780# 3781 3785 3787 SEQ 0298 3794 3794# 3795 3799 3801 3808 3808# 3809 3813 3815 3822 3822# 3823 3827 3829 3836 3836# 3837 3841 3843 3850# 3860 3860# 3861 3861# 3865 3867 3874 3874# 3875 3879 3881 3888 3888# 3889 3893 3895 3902 3902# 3903 3907 3909 3916 3916# 3917 3921 3923 3930 3930# 3931 3935 3937 3944 3944# 3945 3949 3951 3958 3958# 3959 3963 3965 3986# 3995 3995# 3996 3996# 3999 4004 4009 4009# 4010 4013 4018 4023 4023# 4024 4027 4032 4037 4037# 4038 4041 4046 4051 4051# 4052 4055 4060 4065 4065# 4066 4069 4074 4079 4079# 4080 4083 4088 4093 4093# 4094 4097 4102 4107 4107# 4108 4111 4116 4121 4121# 4122 4125 4130 4135 4135# 4136 4139 4144 4149 4149# 4150 4153 4158 4163 4163# 4164 4167 4172 4177 4177# 4178 4181 4186 4191 4191# 4192 4195 4200 4205 4205# 4206 4209 4214 4219 4219# 4220 4223 4228 4233 4233# 4234 4237 4242 4247# 4256 4256# 4257 4257# 4260 4265 4270 4270# 4271 4274 4279 4284 4284# 4285 4288 4293 4298 4298# 4299 4302 4307 4312 4312# 4313 4316 4321 4326 4326# 4327 4330 4335 4340 4340# 4341 4344 4349 4354 4354# 4355 4358 4363 4368 4368# 4369 4372 4377 4382 4382# 4383 4386 4391 4396 4396# 4397 4400 4405 4410 4410# 4411 4414 4419 4424 4424# 4425 4428 4433 4438 4438# 4439 4442 4447 4452 4452# 4453 4456 4461 4466 4466# 4467 4470 4475 4480 4480# 4481 4484 4489 4494 4494# 4495 4498 4503 4508# 4517 4517# 4518 4518# 4520 4524 4531 4531# 4532 4534 4538 4545 4545# 4546 4548 4552 4559 4559# 4560 4562 4566 4573 4573# 4574 4576 4580 4587 4587# 4588 4590 4594 4601 4601# 4602 4604 4608 4615 4615# 4616 4618 4622 4629 4629# 4630 4632 4636 4643 4643# 4644 4646 4650 4657 4657# 4658 4660 4664 4671 4671# 4672 4674 4678 4685 4685# 4686 4688 4692 4699 4699# 4700 4702 4706 4713 4713# 4714 4716 4720 4727 4727# 4728 4730 4734 4741 4741# 4742 4744 4748 4755 4755# 4756 4758 4762 4769# 4778 4778# 4779 4779# 4781 4785 4792 4792# 4793 4795 4799 4806 4806# 4807 4809 4813 4820 4820# 4821 4823 4827 4834 4834# 4835 4837 4841 4848 4848# 4849 4851 4855 4862 4862# 4863 4865 4869 4876 4876# 4877 4879 4883 4905# 4918 4918# 4919 4919# 4924 4934 4934# 4935 4940 4950 4950# 4951 4956 4966 4966# 4967 4972 4982 4982# 4983 4988 4998 4998# 4999 5004 5014 5014# 5015 5020 5030 5030# 5031 5036 5046 5046# 5047 5052 5062 5062# 5063 5068 5078 5078# 5079 5084 5094 5094# 5095 5100 5110 5110# 5111 5116 5126 5126# 5127 5132 5142 5142# 5143 5148 5158 5158# 5159 5164 5174 5174# 5175 5180 5190 5190# 5191 5196 5205# 5218 5218# 5219 5219# 5224 5234 5234# 5235 5240 5250 5250# 5251 5256 5266 5266# 5267 5272 5282 5282# 5283 5288 5298 5298# 5299 5304 5314 5314# 5315 5320 5330 5330# 5331 5336 5346 5346# 5347 5352 5362 5362# 5363 5368 5378 5378# 5379 5384 5394 5394# 5395 5400 5410 5410# 5411 5416 5426 5426# 5427 5432 5442 5442# 5443 5448 5458 5458# 5459 5464 5474 5474# 5475 5480 5490 5490# 5491 5496 5505# 5518 5518# 5519 5519# 5523 5534 5534# 5535 5539 5550 5550# 5551 5555 5566 5566# 5567 5571 5582 5582# 5583 5587 5598 5598# 5599 5603 5614 5614# 5615 5619 5630 5630# 5631 5635 5646 5646# 5647 5651 5662 5662# 5663 5667 5678 5678# 5679 5683 5694 5694# 5695 5699 5710 5710# 5711 5715 5726 5726# 5727 5731 5742 5742# 5743 5747 5758 5758# 5759 5763 5774 5774# 5775 5779 5790 5790# 5791 5795 5805# 5818 5818# 5819 5819# 5823 5834 5834# 5835 5839 5850 5850# 5851 5855 5866 5866# 5867 5871 5882 5882# 5883 5887 5898 5898# 5899 5903 5914 5914# 5915 5919 5930 5930# 5931 5935 5946 5946# 5947 5951 5963# 5976 5976# 5977 5977# 5982 5992 5992# 5993 5998 6008 6008# 6009 6014 6024 6024# 6025 6030 6040 6040# 6041 6046 6056 6056# 6057 6062 6072 6072# 6073 6078 6088 6088# 6089 6094 6104 6104# 6105 6110 6120 6120# 6121 6126 6136 6136# 6137 6142 6152 6152# 6153 6158 6168 6168# 6169 6174 6184 6184# 6185 6190 6200 6200# 6201 6206 6216 6216# 6217 6222 6232 6232# 6233 6238 6248 6248# 6249 6254 6263# 6276 6276# 6277 6277# 6282 6292 6292# 6293 6298 6308 6308# 6309 6314 6324 6324# 6325 6330 6340 6340# 6341 6346 6356 6356# 6357 6362 6372 6372# SEQ 0299 6373 6378 6388 6388# 6389 6394 6404 6404# 6405 6410 6420 6420# 6421 6426 6436 6436# 6437 6442 6452 6452# 6453 6458 6468 6468# 6469 6474 6484 6484# 6485 6490 6500 6500# 6501 6506 6516 6516# 6517 6522 6532 6532# 6533 6538 6548 6548# 6549 6554 6563# 6576 6576# 6577 6577# 6581 6592 6592# 6593 6597 6608 6608# 6609 6613 6624 6624# 6625 6629 6640 6640# 6641 6645 6656 6656# 6657 6661 6672 6672# 6673 6677 6688 6688# 6689 6693 6704 6704# 6705 6709 6720 6720# 6721 6725 6736 6736# 6737 6741 6752 6752# 6753 6757 6768 6768# 6769 6773 6784 6784# 6785 6789 6800 6800# 6801 6805 6816 6816# 6817 6821 6832 6832# 6833 6837 6848 6848# 6849 6853 6863# 6876 6876# 6877 6877# 6881 6892 6892# 6893 6897 6908 6908# 6909 6913 6924 6924# 6925 6929 6940 6940# 6941 6945 6956 6956# 6957 6961 6972 6972# 6973 6977 6988 6988# 6989 6993 7004 7004# 7005 7009 7031# 7041 7046# 7056 7061# 7071 7076# 7086 7091# 7101 7106# 7116 7121# 7131 7136# 7146 7151# 7161 7166# 7176 7181# 7191 7196# 7206 7211# 7221 7226# 7236 7241# 7251 7256# 7266 7271# 7281 7286# 7296 7301# 7312 7324# 7333 7338# 7347 7352# 7361 7366# 7375 7380# 7389 7394# 7403 7408# 7417 7422# 7431 7436# 7445 7450# 7459 7464# 7473 7478# 7487 7492# 7501 7506# 7515 7520# 7529 7534# 7543 7548# 7572 7584# 7591 7598# 7605 7612# 7619 7626# 7633 7640# 7647 7654# 7661 7668# 7675 7682# 7689 7696# 7703 7710# 7717 7724# 7731 7738# 7745 7752# 7759 7766# 7773 7780# 7787 7794# 7801 7808# 7815 7824# 7831 7844# 7851 7858# 7865 7872# 7879 7886# 7893 7900# 7907 7914# 7921 7928# 7935 7942# 7949 7969# 7979 7984# 7994 7999# 8009 8014# 8024 8029# 8039 8044# 8054 8059# 8069 8074# 8084 8089# 8099 8104# 8114 8119# 8129 8134# 8144 8149# 8159 8164# 8174 8179# 8189 8194# 8204 8209# 8219 8224# 8234 8239# 8250 8262# 8271 8276# 8285 8290# 8299 8304# 8313 8318# 8327 8332# 8341 8346# 8355 8360# 8369 8374# 8383 8388# 8397 8402# 8411 8416# 8425 8430# 8439 8444# 8453 8458# 8467 8472# 8481 8487# 8511 8521# 8528 8535# 8542 8549# 8556 8563# 8570 8577# 8584 8591# 8598 8605# 8612 8619# 8626 8633# 8640 8647# 8654 8661# 8668 8675# 8682 8689# 8696 8703# 8710 8717# 8724 8731# 8738 8745# 8752 8760# 8767 8779# 8786 8793# 8800 8807# 8814 8821# 8828 8835# 8842 8849# 8856 8863# 8870 8877# 8884 8906# 8907 8907# 8917 8922# 8923 8933 8938# 8939 8949 8954# 8955 8965 8970# 8971 8981 8986# 8987 8997 9002# 9003 9013 9018# 9019 9029 9034# 9035 9045 9050# 9051 9061 9066# 9067 9077 9082# 9083 9093 9098# 9099 9109 9114# 9115 9125 9130# 9131 9141 9146# 9147 9157 9162# 9163 9173 9178# 9179 9189 9195# 9204 9215# 9224 9229# 9238 9243# 9252 9257# 9266 9271# 9280 9285# 9294 9299# 9308 9313# 9322 9327# 9336 9341# 9350 9355# 9364 9369# 9378 9383# 9392 9397# 9406 9411# 9420 9425# 9434 9441# 9449 9454# 9463 9474# 9481 9488# 9495 9502# 9509 9516# 9523 9530# 9537 9544# 9551 9558# 9565 9572# 9579 9586# 9593 9600# 9607 9614# 9621 9628# 9635 9642# 9649 9656# 9663 9670# 9677 9684# 9691 9698# 9705 9713# 9720 9733# 9740 9747# 9754 9761# 9768 9775# 9782 9789# 9796 9803# 9810 9817# 9824 9831# 9838 9859# 9860 9860# 9870 9875# 9876 9886 9891# 9892 9902 9907# 9908 9918 9923# 9924 9934 9939# 9940 9950 9955# 9956 9966 9971# 9972 9982 9987# 9988 9998 10003# 10004 10014 10019# 10020 10030 10035# 10036 10046 10051# 10052 10062 10067# 10068 10078 10083# 10084 10094 10099# 10100 10110 10115# 10116 10126 10131# 10132 10142 10148# 10157 10168# 10177 10182# 10191 10196# 10205 10210# 10219 10224# 10233 10238# 10247 10252# 10261 10266# 10275 10280# 10289 10294# 10303 10308# 10317 10322# 10331 10336# 10345 10350# 10359 10364# 10373 10378# 10387 10394# 10402 10407# 10416 10427# 10434 10441# 10448 10455# 10462 10469# 10476 10483# 10490 10497# 10504 10511# 10518 10525# 10532 10539# 10546 10553# 10560 10567# 10574 10581# 10588 10595# 10602 10609# 10616 10623# 10630 10637# 10644 10651# 10658 10666# 10673 10686# 10693 10700# 10707 10714# 10721 10728# 10735 10742# 10749 10756# 10763 10770# 10777 10784# 10791 10802# 10814 10814# 10820 10829 10829# 10835 10844 10844# 10850 10859 10859# 10865 10874 10874# 10880 10889 10889# 10895 10904 10904# 10910 10919 10919# 10925 10934 10934# 10940 10949 10949# 10955 10964 10964# 10970 10979 10979# 10985 10994 10994# 11000 11009 11009# 11015 11024 11024# 11030 SEQ 0300 11039 11039# 11045 11054 11054# 11060 11069 11069# 11075 11094 11094# 11100 11109 11109# 11115 11124 11124# 11130 11139 11139# 11145 11154 11154# 11160 11169 11169# 11175 11184 11184# 11190 11199 11199# 11205 11214 11214# 11220 11229 11229# 11235 11244 11244# 11250 11259 11259# 11265 11274 11274# 11280 11289 11289# 11295 11304 11304# 11310 11319 11319# 11325 11334 11334# 11340 11371 11371# 11377 11386 11386# 11392 11401 11401# 11407 11416 11416# 11422 11431 11431# 11437 11446 11446# 11452 11461 11461# 11467 11476 11476# 11482 11491 11491# 11497 11506 11506# 11512 11521 11521# 11527 11536 11536# 11542 11551 11551# 11557 11566 11566# 11572 11581 11581# 11587 11596 11596# 11602 11611 11611# 11617 11626 11626# 11632 11651 11651# 11657 11666 11666# 11672 11681 11681# 11687 11696 11696# 11702 11711 11711# 11717 11726 11726# 11732 11741 11741# 11747 11756 11756# 11762 11771 11771# 11777 12571# $$MUUO 1089# $$OUTE 1095# $$TAX1 1107# $$TAX2 1108# $$TOGG 1101# $$UUO 1078# $ACC0 916# $ACF 12820# $BEND1 886# $BEND2 75 887# 12873 $CHRIN 977# $CRLF 979# $DEVCH 803# $DSKUP 856# $DVOFF 973# $EMODE 854# $FFF 981# $IBUF 1029# $INEXT 1031# $INNM 1030# $ITRHL 897# $ITRX1 898# $LPAPE 12879 $MMAP 857# $MODVL 852# $MODVU 853# $OBUF 1020# $ONETM 880# $OUTEX 1022# $OUTNM 1021# $PAPER 803 $PARER 904# $PNAME 850# $PSHER 908# $PVER 851# $RSRTX 900# $RSRTY 901# $SPAG1 920# $START 817# $SVAPR 918# $SVPAG 919# $SVPI 917# SEQ 0301 $SVUPC 923# 12727 12731 12757 $SVUUO 922# 12736 12768 12796 $TABF 980# $TTCHR 976# $TWCNT 972# $TYPNB 978# $UMODE 855# $UORTX 895# $USRHL 899# $UUOER 896# 937 $VTF 982# %AC1F 12821# %ACS1A 12738# 12738 12782 %ACTFL 929# %ACTUL 930# %ALF 12826# %AR1F 12825# %ARF 12824# %COREC 928# %CORFL 927# %DISCR 931# %E1F 12823# %EEF 12827# %EF 12822# %ER4X 12802 12807# %ER5X 12800 12809# %ER6X 12798 12811# %ER7X 12804# 12808 12810 12812 %ERAC0 12723# 12723 12739 12773 12863 %ERAC1 12724# 12724 12740 12851 %ERAC2 12725# 12725 12850 %ERFST 12746# 12746 12748 %ERHI1 1070# %ERHI2 1071# %ERHI3 1072# %ERMOR 12778 12805 12834# %ERMS1 12743# 12869 %ERMS2 12766# %ERMS3 12784 12791# %ERRS1 12735 12837# 12868 %ERRS2 12850# %ERRS4 12742 12866# %ERRS5 12854 12858 12863# %ERRS6 12861 12871# %FF 12828# %FLTTB 12786 12817# %NODES 12818# .JB41 803# .JBAPR 803# .JBCNI 803# .JBDDT 803# .JBFF 803# .JBOPC 803# SEQ 0302 .JBREL 803# .JBREN 803# .JBSA 803# .JBSYM 803# .JBTPC 803# .JBUSY 803# .JBUUO 803# .JBVER 803# APRID 803# BCIO 803# SEQ 0303 BCIOB 803# BSIO 803# BSIOB 803# CFLUSH 763# CINVAL 762# CLOKOP 757# CLRPT 803# CWRTBI 764# DFA 417# 1172 3040 3053 12706 DFARP 460# 1197 1211 1225 1239 1253 1267 1281 1295 1309 1332 1346 1360 1374 1388 1402 1416 1430 1444 1458 1472 1486 1500 1514 1528 1542 1556 1570 1585 1605 1619 1633 1647 1661 1675 1689 1703 1717 1731 1745 1759 1773 1787 1801 1815 1829 1852 1866 1880 1894 1908 1922 1936 1950 1964 1978 1992 2006 2020 2034 2048 2062 2076 2090 2115 2129 2143 2157 2171 2185 2199 2213 2227 2250 2264 2278 2292 2306 2320 2334 2348 2362 2376 2390 2404 2418 2432 2446 2460 2474 2488 2503 2524 2539 2554 2569 2584 2599 2614 2629 2644 2659 2674 2689 2704 2719 2734 2749 2764 2788 2802 2816 2830 2844 2858 2872 2886 2900 2914 2928 2942 2956 2970 2984 2998 3012 3026 3078 3092 3106 3120 3134 3148 3162 3176 3190 3204 3218 3232 3246 3260 3274 3288 3302 3316 3339 3353 3367 3381 3395 3409 3423 3437 3451 3465 3479 3493 3507 3521 3535 3549 3563 3577 3600 3614 3628 3642 3656 3670 3684 3698 3712 3726 3740 3754 3768 3782 3796 3810 3824 3838 3862 3876 3890 3904 3918 3932 3946 3960 3973 3997 4011 4025 4039 4053 4067 4081 4095 4109 4123 4137 4151 4165 4179 4193 4207 4221 4235 4258 4272 4286 4300 4314 4328 4342 4356 4370 4384 4398 4412 4426 4440 4454 4468 4482 4496 4519 4533 4547 4561 4575 4589 4603 4617 4631 4645 4659 4673 4687 4701 4715 4729 4743 4757 4780 4794 4808 4822 4836 4850 4864 4878 4891 4920 4936 4952 4968 4984 5000 5016 5032 5048 5064 5080 5096 5112 5128 5144 5160 5176 5192 5220 5236 5252 5268 5284 5300 5316 5332 5348 5364 5380 5396 5412 5428 5444 5460 5476 5492 5520 5536 5552 5568 5584 5600 5616 5632 5648 5664 5680 5696 5712 5728 5744 5760 5776 5792 5820 5836 5852 5868 5884 5900 5916 5932 5948 5978 5994 6010 6026 6042 6058 6074 6090 6106 6122 6138 6154 6170 6186 6202 6218 6234 6250 6278 6294 6310 6326 6342 6358 6374 6390 6406 6422 6438 6454 6470 6486 6502 6518 6534 6550 6578 6594 6610 6626 6642 6658 6674 6690 6706 6722 6738 6754 6770 6786 6802 6818 6834 6850 6878 6894 6910 6926 6942 6958 6974 6990 7006 7034 7049 7064 7079 7094 7109 7124 7139 7154 7169 7184 7199 7214 7229 7244 7259 7274 7289 7305 7326 7340 7354 7368 7382 7396 7410 7424 7438 7452 7466 7480 7494 7508 7522 7536 7552 7565 7586 7600 7614 7628 7642 7656 7670 7684 7698 7712 7726 7740 7754 7768 7782 7796 7810 7826 7846 7860 7874 7888 7902 7916 7930 7944 7972 7987 8002 8017 8032 8047 8062 8077 8092 8107 8122 8137 8152 8167 8182 8197 8212 8227 8243 8264 8278 8292 8306 8320 8334 8348 8362 8376 8390 8404 8418 8432 8446 8460 8474 8490 8504 8523 8537 8551 8565 8579 8593 8607 8621 8635 8649 8663 8677 8691 8705 8719 8733 8747 8762 8781 8795 8809 8823 8837 8851 8865 8879 8910 8926 8942 8958 8974 8990 9006 9022 9038 9054 9070 9086 9102 9118 9134 9150 9166 9182 9197 9217 9231 9245 9259 9273 9287 9301 9315 9329 9343 9357 9371 9385 9399 9413 9427 9442 9456 9476 9490 9504 9518 9532 9546 9560 9574 9588 9602 9616 9630 9644 9658 9672 9686 9700 9715 9735 9749 9763 9777 9791 9805 9819 9833 9863 9879 9895 9911 9927 9943 9959 9975 9991 10007 10023 10039 10055 10071 10087 10103 10119 10135 10150 10170 10184 10198 10212 10226 10240 10254 10268 10282 10296 10310 10324 10338 10352 10366 10380 10395 10409 10429 10443 10457 10471 10485 10499 10513 10527 10541 10555 10569 SEQ 0304 10583 10597 10611 10625 10639 10653 10668 10688 10702 10716 10730 10744 10758 10772 10786 10815 10830 10845 10860 10875 10890 10905 10920 10935 10950 10965 10980 10995 11010 11025 11040 11055 11070 11095 11110 11125 11140 11155 11170 11185 11200 11215 11230 11245 11260 11275 11290 11305 11320 11335 11348 11372 11387 11402 11417 11432 11447 11462 11477 11492 11507 11522 11537 11552 11567 11582 11597 11612 11627 11652 11667 11682 11697 11712 11727 11742 11757 11772 11799 11813 11827 11841 11855 11869 11883 11897 11911 11925 11939 11953 11967 11981 11995 12009 12023 12037 12060 12074 12088 12102 12116 12130 12144 12158 12172 12186 12200 12214 12228 12242 12256 12270 12284 12298 12321 12335 12349 12363 12377 12391 12405 12419 12433 12447 12461 12475 12489 12503 12517 12531 12545 12559 12582 12596 12610 12624 12638 12652 12666 12680 12694 DFD 450# DFM 439# DFS 428# DMVE 91# DMVE17 113# DMVM 253# DMVM17 305# DMVN 141# DMVN17 171# DMVNF 209# DMVNM 278# DMVNM1 337# DMVNMF 372# DROPDV 724# 1132 ENDUUO 770# 885 EOPUUO 771# 887 ER1 29# ER10 36# ER11 37# ER12 38# ER13 39# ER2 30# ER3 31# 1178 1203 1217 1231 1245 1259 1273 1287 1301 1315 1338 1352 1366 1380 1394 1408 1422 1436 1450 1464 1478 1492 1506 1520 1534 1548 1562 1576 1591 1611 1625 1639 1653 1667 1681 1695 1709 1723 1737 1751 1765 1779 1793 1807 1821 1835 1858 1872 1886 1900 1914 1928 1942 1956 1970 1984 1998 2012 2026 2040 2054 2068 2082 2096 2121 2135 2149 2163 2177 2191 2205 2219 2233 2256 2270 2284 2298 2312 2326 2340 2354 2368 2382 2396 2410 2424 2438 2452 2466 2480 2494 2509 2530 2545 2560 2575 2590 2605 2620 2635 2650 2665 2680 2695 2710 2725 2740 2755 2770 2794 2808 2822 2836 2850 2864 2878 2892 2906 2920 2934 2948 2962 2976 2990 3004 3018 3032 3046 3059 3084 3098 3112 3126 3140 3154 3168 3182 3196 3210 3224 3238 3252 3266 3280 3294 3308 3322 3345 3359 3373 3387 3401 3415 3429 3443 3457 3471 3485 3499 3513 3527 3541 3555 3569 3583 3606 3620 3634 3648 3662 3676 3690 3704 3718 3732 3746 3760 3774 3788 3802 3816 3830 3844 3868 3882 3896 3910 3924 3938 3952 3966 3979 4003 4017 4031 4045 4059 4073 4087 4101 4115 4129 4143 4157 4171 4185 4199 4213 4227 4241 4264 4278 4292 4306 4320 4334 4348 4362 4376 4390 4404 4418 4432 4446 4460 4474 4488 4502 4525 4539 4553 4567 4581 4595 4609 4623 4637 4651 4665 4679 4693 4707 4721 4735 4749 4763 4786 4800 4814 4828 4842 4856 4870 4884 4897 4926 4942 4958 4974 4990 5006 5022 5038 5054 5070 5086 5102 5118 5134 5150 5166 5182 5198 5226 5242 5258 5274 5290 5306 SEQ 0305 5322 5338 5354 5370 5386 5402 5418 5434 5450 5466 5482 5498 5526 5542 5558 5574 5590 5606 5622 5638 5654 5670 5686 5702 5718 5734 5750 5766 5782 5798 5826 5842 5858 5874 5890 5906 5922 5938 5954 5984 6000 6016 6032 6048 6064 6080 6096 6112 6128 6144 6160 6176 6192 6208 6224 6240 6256 6284 6300 6316 6332 6348 6364 6380 6396 6412 6428 6444 6460 6476 6492 6508 6524 6540 6556 6584 6600 6616 6632 6648 6664 6680 6696 6712 6728 6744 6760 6776 6792 6808 6824 6840 6856 6884 6900 6916 6932 6948 6964 6980 6996 7012 7040 7055 7070 7085 7100 7115 7130 7145 7160 7175 7190 7205 7220 7235 7250 7265 7280 7295 7311 7332 7346 7360 7374 7388 7402 7416 7430 7444 7458 7472 7486 7500 7514 7528 7542 7558 7571 7592 7606 7620 7634 7648 7662 7676 7690 7704 7718 7732 7746 7760 7774 7788 7802 7816 7832 7852 7866 7880 7894 7908 7922 7936 7950 7978 7993 8008 8023 8038 8053 8068 8083 8098 8113 8128 8143 8158 8173 8188 8203 8218 8233 8249 8270 8284 8298 8312 8326 8340 8354 8368 8382 8396 8410 8424 8438 8452 8466 8480 8496 8510 8529 8543 8557 8571 8585 8599 8613 8627 8641 8655 8669 8683 8697 8711 8725 8739 8753 8768 8787 8801 8815 8829 8843 8857 8871 8885 8916 8932 8948 8964 8980 8996 9012 9028 9044 9060 9076 9092 9108 9124 9140 9156 9172 9188 9203 9223 9237 9251 9265 9279 9293 9307 9321 9335 9349 9363 9377 9391 9405 9419 9433 9448 9462 9482 9496 9510 9524 9538 9552 9566 9580 9594 9608 9622 9636 9650 9664 9678 9692 9706 9721 9741 9755 9769 9783 9797 9811 9825 9839 9869 9885 9901 9917 9933 9949 9965 9981 9997 10013 10029 10045 10061 10077 10093 10109 10125 10141 10156 10176 10190 10204 10218 10232 10246 10260 10274 10288 10302 10316 10330 10344 10358 10372 10386 10401 10415 10435 10449 10463 10477 10491 10505 10519 10533 10547 10561 10575 10589 10603 10617 10631 10645 10659 10674 10694 10708 10722 10736 10750 10764 10778 10792 10821 10836 10851 10866 10881 10896 10911 10926 10941 10956 10971 10986 11001 11016 11031 11046 11061 11076 11101 11116 11131 11146 11161 11176 11191 11206 11221 11236 11251 11266 11281 11296 11311 11326 11341 11354 11378 11393 11408 11423 11438 11453 11468 11483 11498 11513 11528 11543 11558 11573 11588 11603 11618 11633 11658 11673 11688 11703 11718 11733 11748 11763 11778 11805 11819 11833 11847 11861 11875 11889 11903 11917 11931 11945 11959 11973 11987 12001 12015 12029 12043 12066 12080 12094 12108 12122 12136 12150 12164 12178 12192 12206 12220 12234 12248 12262 12276 12290 12304 12327 12341 12355 12369 12383 12397 12411 12425 12439 12453 12467 12481 12495 12509 12523 12537 12551 12565 12588 12602 12616 12630 12644 12658 12672 12686 12700 12712 ER4 32# 1180 1205 1219 1233 1247 1261 1275 1289 1303 1317 1340 1354 1368 1382 1396 1410 1424 1438 1452 1466 1480 1494 1508 1522 1536 1550 1564 1578 1593 1613 1627 1641 1655 1669 1683 1697 1711 1725 1739 1753 1767 1781 1795 1809 1823 1837 1860 1874 1888 1902 1916 1930 1944 1958 1972 1986 2000 2014 2028 2042 2056 2070 2084 2098 2123 2137 2151 2165 2179 2193 2207 2221 2235 2258 2272 2286 2300 2314 2328 2342 2356 2370 2384 2398 2412 2426 2440 2454 2468 2482 2496 2511 2532 2547 2562 2577 2592 2607 2622 2637 2652 2667 2682 2697 2712 2727 2742 2757 2772 2796 2810 2824 2838 2852 2866 2880 2894 2908 2922 2936 2950 2964 2978 2992 3006 3020 3034 3048 3061 3086 3100 3114 3128 3142 3156 3170 3184 3198 3212 3226 3240 3254 3268 3282 3296 3310 3324 3347 3361 3375 3389 3403 3417 3431 3445 3459 3473 3487 3501 3515 3529 3543 3557 3571 3585 3608 3622 3636 3650 3664 3678 3692 3706 3720 3734 3748 3762 3776 3790 3804 3818 3832 3846 3870 3884 3898 3912 3926 3940 3954 3968 3981 4005 4019 4033 4047 4061 4075 4089 4103 4117 4131 4145 4159 4173 4187 4201 4215 4229 4243 4266 4280 4294 4308 4322 4336 4350 4364 4378 4392 4406 4420 4434 4448 4462 4476 4490 4504 4527 4541 4555 4569 4583 4597 4611 4625 4639 4653 4667 4681 4695 4709 4723 4737 4751 4765 4788 4802 4816 4830 4844 SEQ 0306 4858 4872 4886 4899 4928 4944 4960 4976 4992 5008 5024 5040 5056 5072 5088 5104 5120 5136 5152 5168 5184 5200 5228 5244 5260 5276 5292 5308 5324 5340 5356 5372 5388 5404 5420 5436 5452 5468 5484 5500 5528 5544 5560 5576 5592 5608 5624 5640 5656 5672 5688 5704 5720 5736 5752 5768 5784 5800 5828 5844 5860 5876 5892 5908 5924 5940 5956 5986 6002 6018 6034 6050 6066 6082 6098 6114 6130 6146 6162 6178 6194 6210 6226 6242 6258 6286 6302 6318 6334 6350 6366 6382 6398 6414 6430 6446 6462 6478 6494 6510 6526 6542 6558 6586 6602 6618 6634 6650 6666 6682 6698 6714 6730 6746 6762 6778 6794 6810 6826 6842 6858 6886 6902 6918 6934 6950 6966 6982 6998 7014 7042 7057 7072 7087 7102 7117 7132 7147 7162 7177 7192 7207 7222 7237 7252 7267 7282 7297 7313 7334 7348 7362 7376 7390 7404 7418 7432 7446 7460 7474 7488 7502 7516 7530 7544 7560 7573 7594 7608 7622 7636 7650 7664 7678 7692 7706 7720 7734 7748 7762 7776 7790 7804 7818 7834 7854 7868 7882 7896 7910 7924 7938 7952 7980 7995 8010 8025 8040 8055 8070 8085 8100 8115 8130 8145 8160 8175 8190 8205 8220 8235 8251 8272 8286 8300 8314 8328 8342 8356 8370 8384 8398 8412 8426 8440 8454 8468 8482 8498 8512 8531 8545 8559 8573 8587 8601 8615 8629 8643 8657 8671 8685 8699 8713 8727 8741 8755 8770 8789 8803 8817 8831 8845 8859 8873 8887 8918 8934 8950 8966 8982 8998 9014 9030 9046 9062 9078 9094 9110 9126 9142 9158 9174 9190 9205 9225 9239 9253 9267 9281 9295 9309 9323 9337 9351 9365 9379 9393 9407 9421 9435 9450 9464 9484 9498 9512 9526 9540 9554 9568 9582 9596 9610 9624 9638 9652 9666 9680 9694 9708 9723 9743 9757 9771 9785 9799 9813 9827 9841 9871 9887 9903 9919 9935 9951 9967 9983 9999 10015 10031 10047 10063 10079 10095 10111 10127 10143 10158 10178 10192 10206 10220 10234 10248 10262 10276 10290 10304 10318 10332 10346 10360 10374 10388 10403 10417 10437 10451 10465 10479 10493 10507 10521 10535 10549 10563 10577 10591 10605 10619 10633 10647 10661 10676 10696 10710 10724 10738 10752 10766 10780 10794 10823 10838 10853 10868 10883 10898 10913 10928 10943 10958 10973 10988 11003 11018 11033 11048 11063 11078 11103 11118 11133 11148 11163 11178 11193 11208 11223 11238 11253 11268 11283 11298 11313 11328 11343 11356 11380 11395 11410 11425 11440 11455 11470 11485 11500 11515 11530 11545 11560 11575 11590 11605 11620 11635 11660 11675 11690 11705 11720 11735 11750 11765 11780 11807 11821 11835 11849 11863 11877 11891 11905 11919 11933 11947 11961 11975 11989 12003 12017 12031 12045 12068 12082 12096 12110 12124 12138 12152 12166 12180 12194 12208 12222 12236 12250 12264 12278 12292 12306 12329 12343 12357 12371 12385 12399 12413 12427 12441 12455 12469 12483 12497 12511 12525 12539 12553 12567 12590 12604 12618 12632 12646 12660 12674 12688 12702 12714 ER5 33# ER6 34# ER7 35# ERRHLT 658# 12844 FATAL 657# FRD36 799# FRD8 800# FREAD 798# FSELEC 797# GET 641# GO 638# HALT 77 78 79 80 81 643# 906 JEN 645# JRSTF 644# MAPADR 780# MAPCNK 781# SEQ 0307 MAPMEM 777# MAPPNT 783# MAPSET 782# MEMSEG 779# MEMZRO 778# MODPCP 790# MODPCU 789# MTROP 758# NAME 7# 10 PBELL 733# 12848 PCRL 727# 12785 12804 PCRL2 731# PCRL2F 732# PCRLF 728# PFORCE 735# PGMINT 651# 1151 PJRST 642# PMSG 737# 12751 12755 12766 12791 PMSGF 740# 12871 PNT1 693# PNT11 707# PNT11F 708# PNT1F 694# PNT2 695# PNT2F 696# PNT3 697# 12803 PNT3F 698# PNT4 699# 12807 PNT4F 700# PNT5 701# 12809 PNT5F 702# PNT6 703# 12759 12811 PNT6F 704# PNT7 705# PNT7F 706# PNTA 679# 12794 PNTADF 710# PNTADR 709# PNTAF 680# PNTAL 681# 12787 PNTALF 682# PNTCHF 692# PNTCHR 691# PNTCI 689# PNTCIF 690# PNTCW 725# PNTCWF 726# PNTDCF 718# PNTDEC 717# 12754 PNTDS 719# PNTDSF 720# PNTHW 713# 12774 PNTHWF 714# SEQ 0308 PNTMSF 686# PNTMSG 685# PNTNM 721# 12747 PNTOCF 716# PNTOCS 715# PNTOCT 711# PNTOTF 712# PNTSIX 722# PNTSXF 723# PSIXL 683# PSIXLF 684# PSIXM 687# 12752 12756 12767 12792 PSIXMF 688# 12872 PSP 729# PSPF 730# PUT 640# RDAPR 803# RDCSB 803# RDCSTM 803# RDEBR 803# RDHSB 803# RDINT 803# RDIO 803# RDIOB 803# RDPI 803# RDPUR 803# RDSPB 803# RDTIM 803# RDUBR 803# RTN 639# 893 S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655 660 664 803 808 814 841 843 861 863 881 883 912 914 932 934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041 1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085 1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126 1128 SAVEAC 63# 1158# 1165 SDFA 471# SDFARP 557# SDFD 525# SDFDKL 535# SDFM 493# SDFMKL 503# SDFS 482# SIXBTZ 746# SWITCH 752# 12733 12835 TIOE 803# TIOEB 803# TION 803# TIONB 803# TTALTM 673# 12837 TTICHR 666# TTICLR 676# SEQ 0309 TTICNV 671# TTIDEC 670# TTINO 668# TTIOCT 669# TTIYES 667# TTLOOK 672# TTSIXB 674# TTYINP 675# WRAPR 803# WRCSB 803# WRCSTM 803# WREBR 803# WRHSB 803# WRINT 803# WRIO 803# WRIOB 803# WRPI 803# WRPUR 803# WRSPB 803# WRTIM 803# WRUBR 803# ANDI 12770 AOS 891 12726 12729 12855 12856 SEQ 0310 ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010 1011 ASCIZ 1135 1152 12820 12821 12822 12823 12824 12825 12826 12827 12828 BLOCK 960 1020 1023 1029 1032 1038 13561 BYTE 1008 CAIG 12772 12783 CAIL 12860 CALL 1133 CAME 1177 1179 1202 1204 1216 1218 1230 1232 1244 1246 1258 1260 1272 1274 1286 1288 1300 1302 1314 1316 1337 1339 1351 1353 1365 1367 1379 1381 1393 1395 1407 1409 1421 1423 1435 1437 1449 1451 1463 1465 1477 1479 1491 1493 1505 1507 1519 1521 1533 1535 1547 1549 1561 1563 1575 1577 1590 1592 1610 1612 1624 1626 1638 1640 1652 1654 1666 1668 1680 1682 1694 1696 1708 1710 1722 1724 1736 1738 1750 1752 1764 1766 1778 1780 1792 1794 1806 1808 1820 1822 1834 1836 1857 1859 1871 1873 1885 1887 1899 1901 1913 1915 1927 1929 1941 1943 1955 1957 1969 1971 1983 1985 1997 1999 2011 2013 2025 2027 2039 2041 2053 2055 2067 2069 2081 2083 2095 2097 2120 2122 2134 2136 2148 2150 2162 2164 2176 2178 2190 2192 2204 2206 2218 2220 2232 2234 2255 2257 2269 2271 2283 2285 2297 2299 2311 2313 2325 2327 2339 2341 2353 2355 2367 2369 2381 2383 2395 2397 2409 2411 2423 2425 2437 2439 2451 2453 2465 2467 2479 2481 2493 2495 2508 2510 2529 2531 2544 2546 2559 2561 2574 2576 2589 2591 2604 2606 2619 2621 2634 2636 2649 2651 2664 2666 2679 2681 2694 2696 2709 2711 2724 2726 2739 2741 2754 2756 2769 2771 2793 2795 2807 2809 2821 2823 2835 2837 2849 2851 2863 2865 2877 2879 2891 2893 2905 2907 2919 2921 2933 2935 2947 2949 2961 2963 2975 2977 2989 2991 3003 3005 3017 3019 3031 3033 3045 3047 3058 3060 3083 3085 3097 3099 3111 3113 3125 3127 3139 3141 3153 3155 3167 3169 3181 3183 3195 3197 3209 3211 3223 3225 3237 3239 3251 3253 3265 3267 3279 3281 3293 3295 3307 3309 3321 3323 3344 3346 3358 3360 3372 3374 3386 3388 3400 3402 3414 3416 3428 3430 3442 3444 3456 3458 3470 3472 3484 3486 3498 3500 3512 3514 3526 3528 3540 3542 3554 3556 3568 3570 3582 3584 3605 3607 3619 3621 3633 3635 3647 3649 3661 3663 3675 3677 3689 3691 3703 3705 3717 3719 3731 3733 3745 3747 3759 3761 3773 3775 3787 3789 3801 3803 3815 3817 3829 3831 3843 3845 3867 3869 3881 3883 3895 3897 3909 3911 3923 3925 3937 3939 3951 3953 3965 3967 3978 3980 4002 4004 4016 4018 4030 4032 4044 4046 4058 4060 4072 4074 4086 4088 4100 4102 4114 4116 4128 4130 4142 4144 4156 4158 4170 4172 4184 4186 4198 4200 4212 4214 4226 4228 4240 4242 4263 4265 4277 4279 4291 4293 4305 4307 4319 4321 4333 4335 4347 4349 4361 4363 4375 4377 4389 4391 4403 4405 4417 4419 4431 4433 4445 4447 4459 4461 4473 4475 4487 4489 4501 4503 4524 4526 4538 4540 4552 4554 4566 4568 4580 4582 4594 4596 4608 4610 4622 4624 4636 4638 4650 4652 4664 4666 4678 4680 4692 4694 4706 4708 4720 4722 4734 4736 4748 4750 4762 4764 4785 4787 4799 4801 4813 4815 4827 4829 4841 4843 4855 4857 4869 4871 4883 4885 4896 4898 4925 4927 4941 4943 4957 4959 4973 4975 4989 4991 5005 5007 5021 5023 5037 5039 5053 5055 5069 5071 5085 5087 5101 5103 5117 5119 5133 5135 5149 5151 5165 5167 5181 5183 5197 5199 5225 5227 5241 5243 5257 5259 5273 5275 5289 5291 5305 5307 5321 5323 5337 5339 5353 5355 5369 5371 5385 5387 5401 5403 5417 5419 5433 5435 5449 5451 5465 5467 5481 5483 5497 5499 5525 5527 5541 5543 5557 5559 5573 5575 5589 5591 5605 5607 5621 5623 5637 5639 5653 5655 5669 5671 5685 5687 5701 5703 5717 5719 5733 5735 5749 5751 5765 5767 5781 5783 5797 5799 5825 5827 5841 5843 5857 5859 5873 5875 5889 5891 5905 5907 SEQ 0311 5921 5923 5937 5939 5953 5955 5983 5985 5999 6001 6015 6017 6031 6033 6047 6049 6063 6065 6079 6081 6095 6097 6111 6113 6127 6129 6143 6145 6159 6161 6175 6177 6191 6193 6207 6209 6223 6225 6239 6241 6255 6257 6283 6285 6299 6301 6315 6317 6331 6333 6347 6349 6363 6365 6379 6381 6395 6397 6411 6413 6427 6429 6443 6445 6459 6461 6475 6477 6491 6493 6507 6509 6523 6525 6539 6541 6555 6557 6583 6585 6599 6601 6615 6617 6631 6633 6647 6649 6663 6665 6679 6681 6695 6697 6711 6713 6727 6729 6743 6745 6759 6761 6775 6777 6791 6793 6807 6809 6823 6825 6839 6841 6855 6857 6883 6885 6899 6901 6915 6917 6931 6933 6947 6949 6963 6965 6979 6981 6995 6997 7011 7013 7039 7041 7054 7056 7069 7071 7084 7086 7099 7101 7114 7116 7129 7131 7144 7146 7159 7161 7174 7176 7189 7191 7204 7206 7219 7221 7234 7236 7249 7251 7264 7266 7279 7281 7294 7296 7310 7312 7331 7333 7345 7347 7359 7361 7373 7375 7387 7389 7401 7403 7415 7417 7429 7431 7443 7445 7457 7459 7471 7473 7485 7487 7499 7501 7513 7515 7527 7529 7541 7543 7557 7559 7570 7572 7591 7593 7605 7607 7619 7621 7633 7635 7647 7649 7661 7663 7675 7677 7689 7691 7703 7705 7717 7719 7731 7733 7745 7747 7759 7761 7773 7775 7787 7789 7801 7803 7815 7817 7831 7833 7851 7853 7865 7867 7879 7881 7893 7895 7907 7909 7921 7923 7935 7937 7949 7951 7977 7979 7992 7994 8007 8009 8022 8024 8037 8039 8052 8054 8067 8069 8082 8084 8097 8099 8112 8114 8127 8129 8142 8144 8157 8159 8172 8174 8187 8189 8202 8204 8217 8219 8232 8234 8248 8250 8269 8271 8283 8285 8297 8299 8311 8313 8325 8327 8339 8341 8353 8355 8367 8369 8381 8383 8395 8397 8409 8411 8423 8425 8437 8439 8451 8453 8465 8467 8479 8481 8495 8497 8509 8511 8528 8530 8542 8544 8556 8558 8570 8572 8584 8586 8598 8600 8612 8614 8626 8628 8640 8642 8654 8656 8668 8670 8682 8684 8696 8698 8710 8712 8724 8726 8738 8740 8752 8754 8767 8769 8786 8788 8800 8802 8814 8816 8828 8830 8842 8844 8856 8858 8870 8872 8884 8886 8915 8917 8931 8933 8947 8949 8963 8965 8979 8981 8995 8997 9011 9013 9027 9029 9043 9045 9059 9061 9075 9077 9091 9093 9107 9109 9123 9125 9139 9141 9155 9157 9171 9173 9187 9189 9202 9204 9222 9224 9236 9238 9250 9252 9264 9266 9278 9280 9292 9294 9306 9308 9320 9322 9334 9336 9348 9350 9362 9364 9376 9378 9390 9392 9404 9406 9418 9420 9432 9434 9447 9449 9461 9463 9481 9483 9495 9497 9509 9511 9523 9525 9537 9539 9551 9553 9565 9567 9579 9581 9593 9595 9607 9609 9621 9623 9635 9637 9649 9651 9663 9665 9677 9679 9691 9693 9705 9707 9720 9722 9740 9742 9754 9756 9768 9770 9782 9784 9796 9798 9810 9812 9824 9826 9838 9840 9868 9870 9884 9886 9900 9902 9916 9918 9932 9934 9948 9950 9964 9966 9980 9982 9996 9998 10012 10014 10028 10030 10044 10046 10060 10062 10076 10078 10092 10094 10108 10110 10124 10126 10140 10142 10155 10157 10175 10177 10189 10191 10203 10205 10217 10219 10231 10233 10245 10247 10259 10261 10273 10275 10287 10289 10301 10303 10315 10317 10329 10331 10343 10345 10357 10359 10371 10373 10385 10387 10400 10402 10414 10416 10434 10436 10448 10450 10462 10464 10476 10478 10490 10492 10504 10506 10518 10520 10532 10534 10546 10548 10560 10562 10574 10576 10588 10590 10602 10604 10616 10618 10630 10632 10644 10646 10658 10660 10673 10675 10693 10695 10707 10709 10721 10723 10735 10737 10749 10751 10763 10765 10777 10779 10791 10793 10820 10822 10835 10837 10850 10852 10865 10867 10880 10882 10895 10897 10910 10912 10925 10927 10940 10942 10955 10957 10970 10972 10985 10987 11000 11002 11015 11017 11030 11032 11045 11047 11060 11062 11075 11077 11100 11102 11115 11117 11130 11132 11145 11147 11160 11162 11175 11177 11190 11192 11205 11207 11220 11222 11235 11237 11250 11252 11265 11267 11280 11282 11295 11297 11310 11312 11325 11327 11340 11342 11353 11355 11377 11379 11392 11394 11407 11409 11422 11424 11437 11439 11452 11454 11467 11469 11482 11484 11497 11499 11512 11514 11527 11529 11542 11544 11557 11559 11572 11574 11587 11589 11602 11604 11617 11619 SEQ 0312 11632 11634 11657 11659 11672 11674 11687 11689 11702 11704 11717 11719 11732 11734 11747 11749 11762 11764 11777 11779 11804 11806 11818 11820 11832 11834 11846 11848 11860 11862 11874 11876 11888 11890 11902 11904 11916 11918 11930 11932 11944 11946 11958 11960 11972 11974 11986 11988 12000 12002 12014 12016 12028 12030 12042 12044 12065 12067 12079 12081 12093 12095 12107 12109 12121 12123 12135 12137 12149 12151 12163 12165 12177 12179 12191 12193 12205 12207 12219 12221 12233 12235 12247 12249 12261 12263 12275 12277 12289 12291 12303 12305 12326 12328 12340 12342 12354 12356 12368 12370 12382 12384 12396 12398 12410 12412 12424 12426 12438 12440 12452 12454 12466 12468 12480 12482 12494 12496 12508 12510 12522 12524 12536 12538 12550 12552 12564 12566 12587 12589 12601 12603 12615 12617 12629 12631 12643 12645 12657 12659 12671 12673 12685 12687 12699 12701 12711 12713 CAMN 12728 DEFINE 7 63 91 113 141 171 209 253 278 305 337 372 417 428 439 450 460 471 482 493 503 525 535 557 569 737 740 746 1158 DFAD 1175 1200 1214 1228 1242 1256 1270 1284 1298 1312 1335 1349 1363 1377 1391 1405 1419 1433 1447 1461 1475 1489 1503 1517 1531 1545 1559 1573 1588 1608 1622 1636 1650 1664 1678 1692 1706 1720 1734 1748 1762 1776 1790 1804 1818 1832 1855 1869 1883 1897 1911 1925 1939 1953 1967 1981 1995 2009 2023 2037 2051 2065 2079 2093 2118 2132 2146 2160 2174 2188 2202 2216 2230 2253 2267 2281 2295 2309 2323 2337 2351 2365 2379 2393 2407 2421 2435 2449 2463 2477 2491 2506 2527 2542 2557 2572 2587 2602 2617 2632 2647 2662 2677 2692 2707 2722 2737 2752 2767 2791 2805 2819 2833 2847 2861 2875 2889 2903 2917 2931 2945 2959 2973 2987 3001 3015 3029 3043 3056 3081 3095 3109 3123 3137 3151 3165 3179 3193 3207 3221 3235 3249 3263 3277 3291 3305 3319 3342 3356 3370 3384 3398 3412 3426 3440 3454 3468 3482 3496 3510 3524 3538 3552 3566 3580 3603 3617 3631 3645 3659 3673 3687 3701 3715 3729 3743 3757 3771 3785 3799 3813 3827 3841 3865 3879 3893 3907 3921 3935 3949 3963 3976 4000 4014 4028 4042 4056 4070 4084 4098 4112 4126 4140 4154 4168 4182 4196 4210 4224 4238 4261 4275 4289 4303 4317 4331 4345 4359 4373 4387 4401 4415 4429 4443 4457 4471 4485 4499 4522 4536 4550 4564 4578 4592 4606 4620 4634 4648 4662 4676 4690 4704 4718 4732 4746 4760 4783 4797 4811 4825 4839 4853 4867 4881 4894 4923 4939 4955 4971 4987 5003 5019 5035 5051 5067 5083 5099 5115 5131 5147 5163 5179 5195 5223 5239 5255 5271 5287 5303 5319 5335 5351 5367 5383 5399 5415 5431 5447 5463 5479 5495 5523 5539 5555 5571 5587 5603 5619 5635 5651 5667 5683 5699 5715 5731 5747 5763 5779 5795 5823 5839 5855 5871 5887 5903 5919 5935 5951 5981 5997 6013 6029 6045 6061 6077 6093 6109 6125 6141 6157 6173 6189 6205 6221 6237 6253 6281 6297 6313 6329 6345 6361 6377 6393 6409 6425 6441 6457 6473 6489 6505 6521 6537 6553 6581 6597 6613 6629 6645 6661 6677 6693 6709 6725 6741 6757 6773 6789 6805 6821 6837 6853 6881 6897 6913 6929 6945 6961 6977 6993 7009 7037 7052 7067 7082 7097 7112 7127 7142 7157 7172 7187 7202 7217 7232 7247 7262 7277 7292 7308 7329 7343 7357 7371 7385 7399 7413 7427 7441 7455 7469 7483 7497 7511 7525 7539 7555 7568 7589 7603 7617 7631 7645 7659 7673 7687 7701 7715 7729 7743 7757 7771 7785 7799 7813 7829 7849 7863 7877 7891 7905 7919 7933 7947 7975 7990 8005 8020 8035 8050 8065 8080 8095 8110 8125 8140 8155 8170 8185 8200 8215 8230 8246 8267 8281 8295 8309 8323 8337 8351 8365 8379 8393 8407 8421 8435 8449 8463 8477 8493 8507 8526 8540 8554 8568 8582 8596 8610 8624 8638 8652 8666 8680 8694 8708 8722 8736 8750 8765 8784 8798 8812 8826 8840 8854 8868 8882 8913 8929 8945 8961 8977 8993 9009 9025 9041 9057 9073 9089 9105 9121 9137 9153 9169 9185 9200 9220 9234 9248 9262 9276 9290 SEQ 0313 9304 9318 9332 9346 9360 9374 9388 9402 9416 9430 9445 9459 9479 9493 9507 9521 9535 9549 9563 9577 9591 9605 9619 9633 9647 9661 9675 9689 9703 9718 9738 9752 9766 9780 9794 9808 9822 9836 9866 9882 9898 9914 9930 9946 9962 9978 9994 10010 10026 10042 10058 10074 10090 10106 10122 10138 10153 10173 10187 10201 10215 10229 10243 10257 10271 10285 10299 10313 10327 10341 10355 10369 10383 10398 10412 10432 10446 10460 10474 10488 10502 10516 10530 10544 10558 10572 10586 10600 10614 10628 10642 10656 10671 10691 10705 10719 10733 10747 10761 10775 10789 10818 10833 10848 10863 10878 10893 10908 10923 10938 10953 10968 10983 10998 11013 11028 11043 11058 11073 11098 11113 11128 11143 11158 11173 11188 11203 11218 11233 11248 11263 11278 11293 11308 11323 11338 11351 11375 11390 11405 11420 11435 11450 11465 11480 11495 11510 11525 11540 11555 11570 11585 11600 11615 11630 11655 11670 11685 11700 11715 11730 11745 11760 11775 11802 11816 11830 11844 11858 11872 11886 11900 11914 11928 11942 11956 11970 11984 11998 12012 12026 12040 12063 12077 12091 12105 12119 12133 12147 12161 12175 12189 12203 12217 12231 12245 12259 12273 12287 12301 12324 12338 12352 12366 12380 12394 12408 12422 12436 12450 12464 12478 12492 12506 12520 12534 12548 12562 12585 12599 12613 12627 12641 12655 12669 12683 12697 12709 DMOVE 1173 1198 1212 1226 1240 1254 1268 1282 1296 1310 1333 1347 1361 1375 1389 1403 1417 1431 1445 1459 1473 1487 1501 1515 1529 1543 1557 1571 1586 1606 1620 1634 1648 1662 1676 1690 1704 1718 1732 1746 1760 1774 1788 1802 1816 1830 1853 1867 1881 1895 1909 1923 1937 1951 1965 1979 1993 2007 2021 2035 2049 2063 2077 2091 2116 2130 2144 2158 2172 2186 2200 2214 2228 2251 2265 2279 2293 2307 2321 2335 2349 2363 2377 2391 2405 2419 2433 2447 2461 2475 2489 2504 2525 2540 2555 2570 2585 2600 2615 2630 2645 2660 2675 2690 2705 2720 2735 2750 2765 2789 2803 2817 2831 2845 2859 2873 2887 2901 2915 2929 2943 2957 2971 2985 2999 3013 3027 3041 3054 3079 3093 3107 3121 3135 3149 3163 3177 3191 3205 3219 3233 3247 3261 3275 3289 3303 3317 3340 3354 3368 3382 3396 3410 3424 3438 3452 3466 3480 3494 3508 3522 3536 3550 3564 3578 3601 3615 3629 3643 3657 3671 3685 3699 3713 3727 3741 3755 3769 3783 3797 3811 3825 3839 3863 3877 3891 3905 3919 3933 3947 3961 3974 3998 4012 4026 4040 4054 4068 4082 4096 4110 4124 4138 4152 4166 4180 4194 4208 4222 4236 4259 4273 4287 4301 4315 4329 4343 4357 4371 4385 4399 4413 4427 4441 4455 4469 4483 4497 4520 4534 4548 4562 4576 4590 4604 4618 4632 4646 4660 4674 4688 4702 4716 4730 4744 4758 4781 4795 4809 4823 4837 4851 4865 4879 4892 4921 4937 4953 4969 4985 5001 5017 5033 5049 5065 5081 5097 5113 5129 5145 5161 5177 5193 5221 5237 5253 5269 5285 5301 5317 5333 5349 5365 5381 5397 5413 5429 5445 5461 5477 5493 5521 5537 5553 5569 5585 5601 5617 5633 5649 5665 5681 5697 5713 5729 5745 5761 5777 5793 5821 5837 5853 5869 5885 5901 5917 5933 5949 5979 5995 6011 6027 6043 6059 6075 6091 6107 6123 6139 6155 6171 6187 6203 6219 6235 6251 6279 6295 6311 6327 6343 6359 6375 6391 6407 6423 6439 6455 6471 6487 6503 6519 6535 6551 6579 6595 6611 6627 6643 6659 6675 6691 6707 6723 6739 6755 6771 6787 6803 6819 6835 6851 6879 6895 6911 6927 6943 6959 6975 6991 7007 7035 7050 7065 7080 7095 7110 7125 7140 7155 7170 7185 7200 7215 7230 7245 7260 7275 7290 7306 7327 7341 7355 7369 7383 7397 7411 7425 7439 7453 7467 7481 7495 7509 7523 7537 7553 7566 7587 7601 7615 7629 7643 7657 7671 7685 7699 7713 7727 7741 7755 7769 7783 7797 7811 7827 7847 7861 7875 7889 7903 7917 7931 7945 7973 7988 8003 8018 8033 8048 8063 8078 8093 8108 8123 8138 8153 8168 8183 8198 8213 8228 8244 8265 8279 8293 8307 8321 8335 8349 8363 8377 8391 8405 8419 8433 8447 8461 8475 8491 8505 8524 8538 8552 8566 8580 8594 8608 8622 8636 8650 8664 8678 8692 8706 8720 8734 8748 8763 8782 8796 8810 8824 8838 SEQ 0314 8852 8866 8880 8911 8927 8943 8959 8975 8991 9007 9023 9039 9055 9071 9087 9103 9119 9135 9151 9167 9183 9198 9218 9232 9246 9260 9274 9288 9302 9316 9330 9344 9358 9372 9386 9400 9414 9428 9443 9457 9477 9491 9505 9519 9533 9547 9561 9575 9589 9603 9617 9631 9645 9659 9673 9687 9701 9716 9736 9750 9764 9778 9792 9806 9820 9834 9864 9880 9896 9912 9928 9944 9960 9976 9992 10008 10024 10040 10056 10072 10088 10104 10120 10136 10151 10171 10185 10199 10213 10227 10241 10255 10269 10283 10297 10311 10325 10339 10353 10367 10381 10396 10410 10430 10444 10458 10472 10486 10500 10514 10528 10542 10556 10570 10584 10598 10612 10626 10640 10654 10669 10689 10703 10717 10731 10745 10759 10773 10787 10816 10831 10846 10861 10876 10891 10906 10921 10936 10951 10966 10981 10996 11011 11026 11041 11056 11071 11096 11111 11126 11141 11156 11171 11186 11201 11216 11231 11246 11261 11276 11291 11306 11321 11336 11349 11373 11388 11403 11418 11433 11448 11463 11478 11493 11508 11523 11538 11553 11568 11583 11598 11613 11628 11653 11668 11683 11698 11713 11728 11743 11758 11773 11800 11814 11828 11842 11856 11870 11884 11898 11912 11926 11940 11954 11968 11982 11996 12010 12024 12038 12061 12075 12089 12103 12117 12131 12145 12159 12173 12187 12201 12215 12229 12243 12257 12271 12285 12299 12322 12336 12350 12364 12378 12392 12406 12420 12434 12448 12462 12476 12490 12504 12518 12532 12546 12560 12583 12597 12611 12625 12639 12653 12667 12681 12695 12707 END 13569 HRL 12731 HRRZ 12727 12757 12796 IFDEF 803 854 855 856 857 12761 12831 13560 13567 IFE 3077 3091 3105 3119 3133 3147 3161 3175 3189 3203 3217 3231 3245 3259 3273 3287 3301 3315 3338 3352 3366 3380 3394 3408 3422 3436 3450 3464 3478 3492 3506 3520 3534 3548 3562 3576 3599 3613 3627 3641 3655 3669 3683 3697 3711 3725 3739 3753 3767 3781 3795 3809 3823 3837 3861 3875 3889 3903 3917 3931 3945 3959 3996 4010 4024 4038 4052 4066 4080 4094 4108 4122 4136 4150 4164 4178 4192 4206 4220 4234 4257 4271 4285 4299 4313 4327 4341 4355 4369 4383 4397 4411 4425 4439 4453 4467 4481 4495 4518 4532 4546 4560 4574 4588 4602 4616 4630 4644 4658 4672 4686 4700 4714 4728 4742 4756 4779 4793 4807 4821 4835 4849 4863 4877 4917 4919 4933 4935 4949 4951 4965 4967 4981 4983 4997 4999 5013 5015 5029 5031 5045 5047 5061 5063 5077 5079 5093 5095 5109 5111 5125 5127 5141 5143 5157 5159 5173 5175 5189 5191 5217 5219 5233 5235 5249 5251 5265 5267 5281 5283 5297 5299 5313 5315 5329 5331 5345 5347 5361 5363 5377 5379 5393 5395 5409 5411 5425 5427 5441 5443 5457 5459 5473 5475 5489 5491 5517 5519 5533 5535 5549 5551 5565 5567 5581 5583 5597 5599 5613 5615 5629 5631 5645 5647 5661 5663 5677 5679 5693 5695 5709 5711 5725 5727 5741 5743 5757 5759 5773 5775 5789 5791 5817 5819 5833 5835 5849 5851 5865 5867 5881 5883 5897 5899 5913 5915 5929 5931 5945 5947 5975 5977 5991 5993 6007 6009 6023 6025 6039 6041 6055 6057 6071 6073 6087 6089 6103 6105 6119 6121 6135 6137 6151 6153 6167 6169 6183 6185 6199 6201 6215 6217 6231 6233 6247 6249 6275 6277 6291 6293 6307 6309 6323 6325 6339 6341 6355 6357 6371 6373 6387 6389 6403 6405 6419 6421 6435 6437 6451 6453 6467 6469 6483 6485 6499 6501 6515 6517 6531 6533 6547 6549 6575 6577 6591 6593 6607 6609 6623 6625 6639 6641 6655 6657 6671 6673 6687 6689 6703 6705 6719 6721 6735 6737 6751 6753 6767 6769 6783 6785 6799 6801 6815 6817 6831 6833 6847 6849 6875 6877 6891 6893 6907 6909 6923 6925 6939 6941 6955 6957 6971 6973 6987 6989 7003 7005 7033 7048 7063 7078 7093 7108 7123 7138 7153 7168 7183 7198 7213 7228 7243 7258 7273 7288 7971 7986 8001 8016 8031 8046 8061 8076 8091 8106 8121 8136 8151 8166 8181 8196 8211 8226 8907 8909 8923 8925 8939 8941 8955 8957 SEQ 0315 8971 8973 8987 8989 9003 9005 9019 9021 9035 9037 9051 9053 9067 9069 9083 9085 9099 9101 9115 9117 9131 9133 9147 9149 9163 9165 9179 9181 9860 9862 9876 9878 9892 9894 9908 9910 9924 9926 9940 9942 9956 9958 9972 9974 9988 9990 10004 10006 10020 10022 10036 10038 10052 10054 10068 10070 10084 10086 10100 10102 10116 10118 10132 10134 10813 10828 10843 10858 10873 10888 10903 10918 10933 10948 10963 10978 10993 11008 11023 11038 11053 11068 11093 11108 11123 11138 11153 11168 11183 11198 11213 11228 11243 11258 11273 11288 11303 11318 11333 11370 11385 11400 11415 11430 11445 11460 11475 11490 11505 11520 11535 11550 11565 11580 11595 11610 11625 11650 11665 11680 11695 11710 11725 11740 11755 11770 11798 11812 11826 11840 11854 11868 11882 11896 11910 11924 11938 11952 11966 11980 11994 12008 12022 12036 12059 12073 12087 12101 12115 12129 12143 12157 12171 12185 12199 12213 12227 12241 12255 12269 12283 12297 12320 12334 12348 12362 12376 12390 12404 12418 12432 12446 12460 12474 12488 12502 12516 12530 12544 12558 12581 12595 12609 12623 12637 12651 12665 12679 IFNDEF 792 793 803 854 855 856 857 936 12879 JFCL 894 895 896 897 898 899 900 901 902 903 904 905 JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833 886 1155 12718 12735 12742 12745 12750 12778 12784 12798 12800 12802 12805 12808 12810 12812 12838 12841 12854 12858 12861 12864 12868 12869 12873 JSP 651 JUMPL 1181 1206 1220 1234 1248 1262 1276 1290 1304 1318 1341 1355 1369 1383 1397 1411 1425 1439 1453 1467 1481 1495 1509 1523 1537 1551 1565 1579 1594 1614 1628 1642 1656 1670 1684 1698 1712 1726 1740 1754 1768 1782 1796 1810 1824 1838 1861 1875 1889 1903 1917 1931 1945 1959 1973 1987 2001 2015 2029 2043 2057 2071 2085 2099 2124 2138 2152 2166 2180 2194 2208 2222 2236 2259 2273 2287 2301 2315 2329 2343 2357 2371 2385 2399 2413 2427 2441 2455 2469 2483 2497 2512 2533 2548 2563 2578 2593 2608 2623 2638 2653 2668 2683 2698 2713 2728 2743 2758 2773 2797 2811 2825 2839 2853 2867 2881 2895 2909 2923 2937 2951 2965 2979 2993 3007 3021 3035 3049 3062 3087 3101 3115 3129 3143 3157 3171 3185 3199 3213 3227 3241 3255 3269 3283 3297 3311 3325 3348 3362 3376 3390 3404 3418 3432 3446 3460 3474 3488 3502 3516 3530 3544 3558 3572 3586 3609 3623 3637 3651 3665 3679 3693 3707 3721 3735 3749 3763 3777 3791 3805 3819 3833 3847 3871 3885 3899 3913 3927 3941 3955 3969 3982 4006 4020 4034 4048 4062 4076 4090 4104 4118 4132 4146 4160 4174 4188 4202 4216 4230 4244 4267 4281 4295 4309 4323 4337 4351 4365 4379 4393 4407 4421 4435 4449 4463 4477 4491 4505 4528 4542 4556 4570 4584 4598 4612 4626 4640 4654 4668 4682 4696 4710 4724 4738 4752 4766 4789 4803 4817 4831 4845 4859 4873 4887 4900 4929 4945 4961 4977 4993 5009 5025 5041 5057 5073 5089 5105 5121 5137 5153 5169 5185 5201 5229 5245 5261 5277 5293 5309 5325 5341 5357 5373 5389 5405 5421 5437 5453 5469 5485 5501 5529 5545 5561 5577 5593 5609 5625 5641 5657 5673 5689 5705 5721 5737 5753 5769 5785 5801 5829 5845 5861 5877 5893 5909 5925 5941 5957 5987 6003 6019 6035 6051 6067 6083 6099 6115 6131 6147 6163 6179 6195 6211 6227 6243 6259 6287 6303 6319 6335 6351 6367 6383 6399 6415 6431 6447 6463 6479 6495 6511 6527 6543 6559 6587 6603 6619 6635 6651 6667 6683 6699 6715 6731 6747 6763 6779 6795 6811 6827 6843 6859 6887 6903 6919 6935 6951 6967 6983 6999 7015 7043 7058 7073 7088 7103 7118 7133 7148 7163 7178 7193 7208 7223 7238 7253 7268 7283 7298 7314 7335 7349 7363 7377 7391 7405 7419 7433 7447 7461 7475 7489 7503 7517 7531 7545 7561 7574 7595 7609 7623 7637 7651 7665 7679 7693 7707 7721 7735 7749 7763 7777 7791 7805 7819 7835 7855 7869 7883 7897 7911 7925 7939 7953 7981 7996 8011 8026 8041 8056 8071 8086 8101 8116 8131 8146 8161 8176 8191 8206 8221 8236 SEQ 0316 8252 8273 8287 8301 8315 8329 8343 8357 8371 8385 8399 8413 8427 8441 8455 8469 8483 8499 8513 8532 8546 8560 8574 8588 8602 8616 8630 8644 8658 8672 8686 8700 8714 8728 8742 8756 8771 8790 8804 8818 8832 8846 8860 8874 8888 8919 8935 8951 8967 8983 8999 9015 9031 9047 9063 9079 9095 9111 9127 9143 9159 9175 9191 9206 9226 9240 9254 9268 9282 9296 9310 9324 9338 9352 9366 9380 9394 9408 9422 9436 9451 9465 9485 9499 9513 9527 9541 9555 9569 9583 9597 9611 9625 9639 9653 9667 9681 9695 9709 9724 9744 9758 9772 9786 9800 9814 9828 9842 9872 9888 9904 9920 9936 9952 9968 9984 10000 10016 10032 10048 10064 10080 10096 10112 10128 10144 10159 10179 10193 10207 10221 10235 10249 10263 10277 10291 10305 10319 10333 10347 10361 10375 10389 10404 10418 10438 10452 10466 10480 10494 10508 10522 10536 10550 10564 10578 10592 10606 10620 10634 10648 10662 10677 10697 10711 10725 10739 10753 10767 10781 10795 10824 10839 10854 10869 10884 10899 10914 10929 10944 10959 10974 10989 11004 11019 11034 11049 11064 11079 11104 11119 11134 11149 11164 11179 11194 11209 11224 11239 11254 11269 11284 11299 11314 11329 11344 11357 11381 11396 11411 11426 11441 11456 11471 11486 11501 11516 11531 11546 11561 11576 11591 11606 11621 11636 11661 11676 11691 11706 11721 11736 11751 11766 11781 11808 11822 11836 11850 11864 11878 11892 11906 11920 11934 11948 11962 11976 11990 12004 12018 12032 12046 12069 12083 12097 12111 12125 12139 12153 12167 12181 12195 12209 12223 12237 12251 12265 12279 12293 12307 12330 12344 12358 12372 12386 12400 12414 12428 12442 12456 12470 12484 12498 12512 12526 12540 12554 12568 12591 12605 12619 12633 12647 12661 12675 12689 12703 12715 LALL 8 LIST 7 803 936 12761 12831 12879 13557 LIT 12880 LOC 22 806 1130 LSH 12737 12769 MOVE 1152 12730 12736 12739 12740 12753 12768 12771 12773 12776 12782 12786 12842 12850 12851 12859 12863 12866 MOVEI 1166 1168 12793 12839 MOVEM 1153 1167 1169 12723 12724 12725 12738 12758 12840 NOSYM 24 OPDEF 29 30 31 32 33 34 35 36 37 38 39 638 639 640 641 642 643 644 645 651 657 658 666 667 668 669 670 671 672 673 674 675 676 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 735 752 757 758 762 763 764 770 771 777 778 779 780 781 782 783 789 790 797 798 799 800 803 PAGE 1182 3063 12704 POP 641 POPJ 639 PUSH 640 PUSHJ 638 REPEAT 1188 1323 1596 1843 2106 2241 2514 2779 3069 3330 3591 3852 3988 4249 4510 4771 4907 5207 5507 5807 5965 6265 6565 6865 7023 7317 7576 7837 7961 8255 8514 8772 8897 9208 9467 9726 9850 10161 10420 10679 10804 11084 11361 11641 11790 12051 12312 12573 SETOM 12748 12846 12852 SETZM 12732 12743 SIXBIT 85 86 1021 1022 1030 1031 1133 12752 12756 12767 12792 12872 SKIPGE 12741 SEQ 0317 SKIPL 12744 12857 SKIPN 12746 12749 12853 SUBTTL 25 567 602 803 804 1156 12719 12874 TITLE 12 TLNE 12734 12777 12843 12847 TLNN 12845 12867 TRNE 12797 12799 12801 VAR 13565 XALL 14 XCT 12834 XLIST 6 802 803 935 12760 12830 12878 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0318 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 *030630 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *030637 DFAD 4,043334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *030646 DFAD 4,043336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *030655 DFAD 4,043341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200100 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *030664 DFAD 4,043344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200040 000000 C(E+1)= 000000 000000 FINAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0319 *030673 DFAD 4,043347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200020 000000 C(E+1)= 000000 000000 FINAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 ---------- *030702 DFAD 4,043352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200010 000000 C(E+1)= 000000 000000 FINAL C(AC)= 173400 000000 C(AC+1)= 000000 000000 ---------- *030711 DFAD 4,043355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200004 000000 C(E+1)= 000000 000000 FINAL C(AC)= 172400 000000 C(AC+1)= 000000 000000 ---------- *030720 DFAD 4,043360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200002 000000 C(E+1)= 000000 000000 FINAL C(AC)= 171400 000000 C(AC+1)= 000000 000000 ---------- *030727 DFAD 4,043363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200001 000000 C(E+1)= 000000 000000 FINAL C(AC)= 170400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0320 *030736 DFAD 4,043366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 400000 C(E+1)= 000000 000000 FINAL C(AC)= 167400 000000 C(AC+1)= 000000 000000 ---------- *030745 DFAD 4,043371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 200000 C(E+1)= 000000 000000 FINAL C(AC)= 166400 000000 C(AC+1)= 000000 000000 ---------- *030754 DFAD 4,043374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 100000 C(E+1)= 000000 000000 FINAL C(AC)= 165400 000000 C(AC+1)= 000000 000000 ---------- *030763 DFAD 4,043377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 040000 C(E+1)= 000000 000000 FINAL C(AC)= 164400 000000 C(AC+1)= 000000 000000 ---------- *030772 DFAD 4,043402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 020000 C(E+1)= 000000 000000 FINAL C(AC)= 163400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0321 *031001 DFAD 4,043405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 010000 C(E+1)= 000000 000000 FINAL C(AC)= 162400 000000 C(AC+1)= 000000 000000 ---------- *031010 DFAD 4,043410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 004000 C(E+1)= 000000 000000 FINAL C(AC)= 161400 000000 C(AC+1)= 000000 000000 ---------- *031017 DFAD 4,043413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 002000 C(E+1)= 000000 000000 FINAL C(AC)= 160400 000000 C(AC+1)= 000000 000000 ---------- *031026 DFAD 4,043416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 001000 C(E+1)= 000000 000000 FINAL C(AC)= 157400 000000 C(AC+1)= 000000 000000 ---------- *031035 DFAD 4,043421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000400 C(E+1)= 000000 000000 FINAL C(AC)= 156400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0322 *031044 DFAD 4,043424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000200 C(E+1)= 000000 000000 FINAL C(AC)= 155400 000000 C(AC+1)= 000000 000000 ---------- *031053 DFAD 4,043427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000100 C(E+1)= 000000 000000 FINAL C(AC)= 154400 000000 C(AC+1)= 000000 000000 ---------- *031062 DFAD 4,043432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000040 C(E+1)= 000000 000000 FINAL C(AC)= 153400 000000 C(AC+1)= 000000 000000 ---------- *031071 DFAD 4,043435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000020 C(E+1)= 000000 000000 FINAL C(AC)= 152400 000000 C(AC+1)= 000000 000000 ---------- *031100 DFAD 4,043440 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000010 C(E+1)= 000000 000000 FINAL C(AC)= 151400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0323 *031107 DFAD 4,043443 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000004 C(E+1)= 000000 000000 FINAL C(AC)= 150400 000000 C(AC+1)= 000000 000000 ---------- *031116 DFAD 4,043446 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000002 C(E+1)= 000000 000000 FINAL C(AC)= 147400 000000 C(AC+1)= 000000 000000 ---------- *031125 DFAD 4,043451 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 146400 000000 C(AC+1)= 000000 000000 ---------- *031134 DFAD 4,043454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *031143 DFAD 4,043456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 200000 000000 FINAL C(AC)= 145400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0324 *031152 DFAD 4,043461 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 100000 000000 FINAL C(AC)= 144400 000000 C(AC+1)= 000000 000000 ---------- *031161 DFAD 4,043464 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 040000 000000 FINAL C(AC)= 143400 000000 C(AC+1)= 000000 000000 ---------- *031170 DFAD 4,043467 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 020000 000000 FINAL C(AC)= 142400 000000 C(AC+1)= 000000 000000 ---------- *031177 DFAD 4,043472 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 010000 000000 FINAL C(AC)= 141400 000000 C(AC+1)= 000000 000000 ---------- *031206 DFAD 4,043475 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 004000 000000 FINAL C(AC)= 140400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0325 *031215 DFAD 4,043500 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 002000 000000 FINAL C(AC)= 137400 000000 C(AC+1)= 000000 000000 ---------- *031224 DFAD 4,043503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 001000 000000 FINAL C(AC)= 136400 000000 C(AC+1)= 000000 000000 ---------- *031233 DFAD 4,043506 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000400 000000 FINAL C(AC)= 135400 000000 C(AC+1)= 000000 000000 ---------- *031242 DFAD 4,043511 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000200 000000 FINAL C(AC)= 134400 000000 C(AC+1)= 000000 000000 ---------- *031251 DFAD 4,043514 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000100 000000 FINAL C(AC)= 133400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0326 *031260 DFAD 4,043517 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000040 000000 FINAL C(AC)= 132400 000000 C(AC+1)= 000000 000000 ---------- *031267 DFAD 4,043522 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000020 000000 FINAL C(AC)= 131400 000000 C(AC+1)= 000000 000000 ---------- *031276 DFAD 4,043525 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000010 000000 FINAL C(AC)= 130400 000000 C(AC+1)= 000000 000000 ---------- *031305 DFAD 4,043530 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000004 000000 FINAL C(AC)= 127400 000000 C(AC+1)= 000000 000000 ---------- *031314 DFAD 4,043533 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000002 000000 FINAL C(AC)= 126400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0327 *031323 DFAD 4,043536 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000001 000000 FINAL C(AC)= 125400 000000 C(AC+1)= 000000 000000 ---------- *031332 DFAD 4,043541 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 400000 FINAL C(AC)= 124400 000000 C(AC+1)= 000000 000000 ---------- *031341 DFAD 4,043544 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 200000 FINAL C(AC)= 123400 000000 C(AC+1)= 000000 000000 ---------- *031350 DFAD 4,043547 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 100000 FINAL C(AC)= 122400 000000 C(AC+1)= 000000 000000 ---------- *031357 DFAD 4,043552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 040000 FINAL C(AC)= 121400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0328 *031366 DFAD 4,043555 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 020000 FINAL C(AC)= 120400 000000 C(AC+1)= 000000 000000 ---------- *031375 DFAD 4,043560 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 010000 FINAL C(AC)= 117400 000000 C(AC+1)= 000000 000000 ---------- *031404 DFAD 4,043563 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 004000 FINAL C(AC)= 116400 000000 C(AC+1)= 000000 000000 ---------- *031413 DFAD 4,043566 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 002000 FINAL C(AC)= 115400 000000 C(AC+1)= 000000 000000 ---------- *031422 DFAD 4,043571 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 001000 FINAL C(AC)= 114400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0329 *031431 DFAD 4,043574 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000400 FINAL C(AC)= 113400 000000 C(AC+1)= 000000 000000 ---------- *031440 DFAD 4,043577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000200 FINAL C(AC)= 112400 000000 C(AC+1)= 000000 000000 ---------- *031447 DFAD 4,043602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000100 FINAL C(AC)= 111400 000000 C(AC+1)= 000000 000000 ---------- *031456 DFAD 4,043605 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000040 FINAL C(AC)= 110400 000000 C(AC+1)= 000000 000000 ---------- *031465 DFAD 4,043610 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000020 FINAL C(AC)= 107400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0330 *031474 DFAD 4,043613 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000010 FINAL C(AC)= 106400 000000 C(AC+1)= 000000 000000 ---------- *031503 DFAD 4,043616 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000004 FINAL C(AC)= 105400 000000 C(AC+1)= 000000 000000 ---------- *031512 DFAD 4,043621 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000002 FINAL C(AC)= 104400 000000 C(AC+1)= 000000 000000 ---------- *031521 DFAD 4,043624 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 103400 000000 C(AC+1)= 000000 000000 ---------- *031530 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0331 *031537 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *031546 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *031555 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 ---------- *031564 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 ---------- *031573 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 173400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0332 *031602 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 172400 000000 C(AC+1)= 000000 000000 ---------- *031611 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 171400 000000 C(AC+1)= 000000 000000 ---------- *031620 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 170400 000000 C(AC+1)= 000000 000000 ---------- *031627 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 167400 000000 C(AC+1)= 000000 000000 ---------- *031636 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 166400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0333 *031645 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 165400 000000 C(AC+1)= 000000 000000 ---------- *031654 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 164400 000000 C(AC+1)= 000000 000000 ---------- *031663 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 163400 000000 C(AC+1)= 000000 000000 ---------- *031672 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 162400 000000 C(AC+1)= 000000 000000 ---------- *031701 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 161400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0334 *031710 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 160400 000000 C(AC+1)= 000000 000000 ---------- *031717 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 157400 000000 C(AC+1)= 000000 000000 ---------- *031726 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 156400 000000 C(AC+1)= 000000 000000 ---------- *031735 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 155400 000000 C(AC+1)= 000000 000000 ---------- *031744 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 154400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0335 *031753 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 153400 000000 C(AC+1)= 000000 000000 ---------- *031762 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 152400 000000 C(AC+1)= 000000 000000 ---------- *031771 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 151400 000000 C(AC+1)= 000000 000000 ---------- *032000 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 150400 000000 C(AC+1)= 000000 000000 ---------- *032007 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 147400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0336 *032016 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 146400 000000 C(AC+1)= 000000 000000 ---------- *032025 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032034 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 145400 000000 C(AC+1)= 000000 000000 ---------- *032043 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 100000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 144400 000000 C(AC+1)= 000000 000000 ---------- *032052 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 040000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 143400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0337 *032061 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 020000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 142400 000000 C(AC+1)= 000000 000000 ---------- *032070 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 010000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 141400 000000 C(AC+1)= 000000 000000 ---------- *032077 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 004000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 140400 000000 C(AC+1)= 000000 000000 ---------- *032106 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 002000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 137400 000000 C(AC+1)= 000000 000000 ---------- *032115 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 001000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 136400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0338 *032124 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000400 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 135400 000000 C(AC+1)= 000000 000000 ---------- *032133 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000200 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 134400 000000 C(AC+1)= 000000 000000 ---------- *032142 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000100 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 133400 000000 C(AC+1)= 000000 000000 ---------- *032151 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000040 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 132400 000000 C(AC+1)= 000000 000000 ---------- *032160 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000020 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 131400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0339 *032167 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000010 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 130400 000000 C(AC+1)= 000000 000000 ---------- *032176 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000004 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 127400 000000 C(AC+1)= 000000 000000 ---------- *032205 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000002 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 126400 000000 C(AC+1)= 000000 000000 ---------- *032214 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000001 000000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 125400 000000 C(AC+1)= 000000 000000 ---------- *032223 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 400000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 124400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0340 *032232 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 200000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 123400 000000 C(AC+1)= 000000 000000 ---------- *032241 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 100000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 122400 000000 C(AC+1)= 000000 000000 ---------- *032250 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 040000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 121400 000000 C(AC+1)= 000000 000000 ---------- *032257 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 020000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 120400 000000 C(AC+1)= 000000 000000 ---------- *032266 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 010000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 117400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0341 *032275 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 004000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 116400 000000 C(AC+1)= 000000 000000 ---------- *032304 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 002000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 115400 000000 C(AC+1)= 000000 000000 ---------- *032313 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 001000 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 114400 000000 C(AC+1)= 000000 000000 ---------- *032322 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000400 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 113400 000000 C(AC+1)= 000000 000000 ---------- *032331 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000200 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 112400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0342 *032340 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000100 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 111400 000000 C(AC+1)= 000000 000000 ---------- *032347 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000040 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 110400 000000 C(AC+1)= 000000 000000 ---------- *032356 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000020 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 107400 000000 C(AC+1)= 000000 000000 ---------- *032365 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000010 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 106400 000000 C(AC+1)= 000000 000000 ---------- *032374 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 105400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0343 *032403 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000002 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 104400 000000 C(AC+1)= 000000 000000 ---------- *032412 DFAD 4,043332 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000001 C(E)= 200000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 103400 000000 C(AC+1)= 000000 000000 ---------- *032421 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *032430 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *032437 DFAD 4,043632 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777776 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0344 *032446 DFAD 4,043635 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777775 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777775 ---------- *032455 DFAD 4,043640 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777773 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777773 ---------- *032464 DFAD 4,043643 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777767 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777767 ---------- *032473 DFAD 4,043646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777757 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777757 ---------- *032502 DFAD 4,043651 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777737 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777737 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0345 *032511 DFAD 4,043654 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777677 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777677 ---------- *032520 DFAD 4,043657 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777577 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777577 ---------- *032527 DFAD 4,043662 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777377 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777377 ---------- *032536 DFAD 4,043665 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 776777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 776777 ---------- *032545 DFAD 4,043670 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 775777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 775777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0346 *032554 DFAD 4,043673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 773777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 773777 ---------- *032563 DFAD 4,043676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 767777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 767777 ---------- *032572 DFAD 4,043701 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 757777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 757777 ---------- *032601 DFAD 4,043704 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 737777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 737777 ---------- *032610 DFAD 4,043707 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 677777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 677777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0347 *032617 DFAD 4,043712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 577777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 577777 ---------- *032626 DFAD 4,043715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 377777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 377777 ---------- *032635 DFAD 4,043720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777776 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377776 777777 ---------- *032644 DFAD 4,043723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777775 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377775 777777 ---------- *032653 DFAD 4,043726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777773 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377773 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0348 *032662 DFAD 4,043731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777767 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377767 777777 ---------- *032671 DFAD 4,043734 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777757 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377757 777777 ---------- *032700 DFAD 4,043737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777737 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377737 777777 ---------- *032707 DFAD 4,043742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777677 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377677 777777 ---------- *032716 DFAD 4,043745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777577 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377577 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0349 *032725 DFAD 4,043750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777377 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377377 777777 ---------- *032734 DFAD 4,043753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 776777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 376777 777777 ---------- *032743 DFAD 4,043756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 775777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 375777 777777 ---------- *032752 DFAD 4,043761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 773777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 373777 777777 ---------- *032761 DFAD 4,043764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 767777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 367777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0350 *032770 DFAD 4,043767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 757777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 357777 777777 ---------- *032777 DFAD 4,043772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 737777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 337777 777777 ---------- *033006 DFAD 4,043775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 677777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 277777 777777 ---------- *033015 DFAD 4,044000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 577777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 177777 777777 ---------- *033024 DFAD 4,044003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 377777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0351 *033033 DFAD 4,044005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777776 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777776 C(AC+1)= 377777 777777 ---------- *033042 DFAD 4,044007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777775 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777775 C(AC+1)= 377777 777777 ---------- *033051 DFAD 4,044011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777773 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777773 C(AC+1)= 377777 777777 ---------- *033060 DFAD 4,044013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777767 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777767 C(AC+1)= 377777 777777 ---------- *033067 DFAD 4,044015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777757 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777757 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0352 *033076 DFAD 4,044017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777737 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777737 C(AC+1)= 377777 777777 ---------- *033105 DFAD 4,044021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777677 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777677 C(AC+1)= 377777 777777 ---------- *033114 DFAD 4,044023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777577 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777577 C(AC+1)= 377777 777777 ---------- *033123 DFAD 4,044025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777377 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777377 C(AC+1)= 377777 777777 ---------- *033132 DFAD 4,044027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 776777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 776777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0353 *033141 DFAD 4,044031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 775777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 775777 C(AC+1)= 377777 777777 ---------- *033150 DFAD 4,044033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 773777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 773777 C(AC+1)= 377777 777777 ---------- *033157 DFAD 4,044035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 767777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 767777 C(AC+1)= 377777 777777 ---------- *033166 DFAD 4,044037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 757777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 757777 C(AC+1)= 377777 777777 ---------- *033175 DFAD 4,044041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 737777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 737777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0354 *033204 DFAD 4,044043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 677777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 677777 C(AC+1)= 377777 777777 ---------- *033213 DFAD 4,044045 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 577777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 577777 C(AC+1)= 377777 777777 ---------- *033222 DFAD 4,044047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 377777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 377777 C(AC+1)= 377777 777777 ---------- *033231 DFAD 4,044051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000776 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000776 777777 C(AC+1)= 377777 777777 ---------- *033240 DFAD 4,044053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000775 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000775 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0355 *033247 DFAD 4,044055 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000773 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000773 777777 C(AC+1)= 377777 777777 ---------- *033256 DFAD 4,044057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000767 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000767 777777 C(AC+1)= 377777 777777 ---------- *033265 DFAD 4,044061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000757 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000757 777777 C(AC+1)= 377777 777777 ---------- *033274 DFAD 4,044063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000737 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000737 777777 C(AC+1)= 377777 777777 ---------- *033303 DFAD 4,044065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000677 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000677 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0356 *033312 DFAD 4,044067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000577 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000577 777777 C(AC+1)= 377777 777777 ---------- *033321 DFAD 4,044071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 001377 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777776 ---------- *033330 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777776 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777776 ---------- *033337 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777775 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777775 ---------- *033346 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777773 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777773 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0357 *033355 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777767 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777767 ---------- *033364 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777757 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777757 ---------- *033373 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777737 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777737 ---------- *033402 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777677 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777677 ---------- *033411 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777577 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777577 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0358 *033420 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777377 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777377 ---------- *033427 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 776777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 776777 ---------- *033436 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 775777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 775777 ---------- *033445 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 773777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 773777 ---------- *033454 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 767777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 767777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0359 *033463 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 757777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 757777 ---------- *033472 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 737777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 737777 ---------- *033501 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 677777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 677777 ---------- *033510 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 577777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 577777 ---------- *033517 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 377777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 377777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0360 *033526 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777776 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377776 777777 ---------- *033535 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777775 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377775 777777 ---------- *033544 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777773 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377773 777777 ---------- *033553 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777767 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377767 777777 ---------- *033562 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777757 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377757 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0361 *033571 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777737 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377737 777777 ---------- *033600 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777677 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377677 777777 ---------- *033607 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777577 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377577 777777 ---------- *033616 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777377 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377377 777777 ---------- *033625 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 776777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 376777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0362 *033634 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 775777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 375777 777777 ---------- *033643 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 773777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 373777 777777 ---------- *033652 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 767777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 367777 777777 ---------- *033661 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 757777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 357777 777777 ---------- *033670 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 737777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 337777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0363 *033677 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 677777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 277777 777777 ---------- *033706 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 577777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 177777 777777 ---------- *033715 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *033724 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777776 C(AC+1)= 377777 777777 ---------- *033733 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777775 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777775 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0364 *033742 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777773 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777773 C(AC+1)= 377777 777777 ---------- *033751 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777767 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777767 C(AC+1)= 377777 777777 ---------- *033760 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777757 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777757 C(AC+1)= 377777 777777 ---------- *033767 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777737 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777737 C(AC+1)= 377777 777777 ---------- *033776 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777677 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777677 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0365 *034005 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777577 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777577 C(AC+1)= 377777 777777 ---------- *034014 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777377 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777377 C(AC+1)= 377777 777777 ---------- *034023 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 776777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 776777 C(AC+1)= 377777 777777 ---------- *034032 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 775777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 775777 C(AC+1)= 377777 777777 ---------- *034041 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 773777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 773777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0366 *034050 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 767777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 767777 C(AC+1)= 377777 777777 ---------- *034057 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 757777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 757777 C(AC+1)= 377777 777777 ---------- *034066 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 737777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 737777 C(AC+1)= 377777 777777 ---------- *034075 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 677777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 677777 C(AC+1)= 377777 777777 ---------- *034104 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 577777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 577777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0367 *034113 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 377777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 377777 C(AC+1)= 377777 777777 ---------- *034122 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000776 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000776 777777 C(AC+1)= 377777 777777 ---------- *034131 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000775 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000775 777777 C(AC+1)= 377777 777777 ---------- *034140 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000773 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000773 777777 C(AC+1)= 377777 777777 ---------- *034147 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000767 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000767 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0368 *034156 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000757 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000757 777777 C(AC+1)= 377777 777777 ---------- *034165 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000737 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000737 777777 C(AC+1)= 377777 777777 ---------- *034174 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000677 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000677 777777 C(AC+1)= 377777 777777 ---------- *034203 DFAD 4,043330 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000577 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000577 777777 C(AC+1)= 377777 777777 ---------- *034212 DFAD 4,044071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 001377 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777776 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0369 *034221 DFAD 4,044073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777776 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034230 DFAD 4,044075 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777775 C(E)= 000000 000000 C(E+1)= 000000 000002 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034237 DFAD 4,044077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777773 C(E)= 000000 000000 C(E+1)= 000000 000004 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034246 DFAD 4,044101 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777767 C(E)= 000000 000000 C(E+1)= 000000 000010 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034255 DFAD 4,044103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777757 C(E)= 000000 000000 C(E+1)= 000000 000020 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0370 *034264 DFAD 4,044105 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777737 C(E)= 000000 000000 C(E+1)= 000000 000040 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034273 DFAD 4,044107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777677 C(E)= 000000 000000 C(E+1)= 000000 000100 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034302 DFAD 4,044111 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777577 C(E)= 000000 000000 C(E+1)= 000000 000200 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034311 DFAD 4,044113 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777377 C(E)= 000000 000000 C(E+1)= 000000 000400 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034320 DFAD 4,044115 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 776777 C(E)= 000000 000000 C(E+1)= 000000 001000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0371 *034327 DFAD 4,044117 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 775777 C(E)= 000000 000000 C(E+1)= 000000 002000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034336 DFAD 4,044121 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 773777 C(E)= 000000 000000 C(E+1)= 000000 004000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034345 DFAD 4,044123 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 767777 C(E)= 000000 000000 C(E+1)= 000000 010000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034354 DFAD 4,044125 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 757777 C(E)= 000000 000000 C(E+1)= 000000 020000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034363 DFAD 4,044127 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 737777 C(E)= 000000 000000 C(E+1)= 000000 040000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0372 *034372 DFAD 4,044131 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 677777 C(E)= 000000 000000 C(E+1)= 000000 100000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034401 DFAD 4,044133 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 577777 C(E)= 000000 000000 C(E+1)= 000000 200000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034410 DFAD 4,044135 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 377777 C(E)= 000000 000000 C(E+1)= 000000 400000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034417 DFAD 4,044137 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777776 777777 C(E)= 000000 000000 C(E+1)= 000001 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034426 DFAD 4,044141 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777775 777777 C(E)= 000000 000000 C(E+1)= 000002 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0373 *034435 DFAD 4,044143 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777773 777777 C(E)= 000000 000000 C(E+1)= 000004 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034444 DFAD 4,044145 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777767 777777 C(E)= 000000 000000 C(E+1)= 000010 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034453 DFAD 4,044147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777757 777777 C(E)= 000000 000000 C(E+1)= 000020 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034462 DFAD 4,044151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777737 777777 C(E)= 000000 000000 C(E+1)= 000040 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034471 DFAD 4,044153 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777677 777777 C(E)= 000000 000000 C(E+1)= 000100 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0374 *034500 DFAD 4,044155 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777577 777777 C(E)= 000000 000000 C(E+1)= 000200 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034507 DFAD 4,044157 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777377 777777 C(E)= 000000 000000 C(E+1)= 000400 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034516 DFAD 4,044161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 776777 777777 C(E)= 000000 000000 C(E+1)= 001000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034525 DFAD 4,044163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 775777 777777 C(E)= 000000 000000 C(E+1)= 002000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034534 DFAD 4,044165 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 773777 777777 C(E)= 000000 000000 C(E+1)= 004000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0375 *034543 DFAD 4,044167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 767777 777777 C(E)= 000000 000000 C(E+1)= 010000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034552 DFAD 4,044171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 757777 777777 C(E)= 000000 000000 C(E+1)= 020000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034561 DFAD 4,044173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 737777 777777 C(E)= 000000 000000 C(E+1)= 040000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034570 DFAD 4,044175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 677777 777777 C(E)= 000000 000000 C(E+1)= 100000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034577 DFAD 4,043331 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 577777 777777 C(E)= 000000 000000 C(E+1)= 200000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0376 *034606 DFAD 4,044177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 C(E)= 000000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034615 DFAD 4,044074 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034624 DFAD 4,044076 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777775 C(AC+1)= 777777 777777 C(E)= 000000 000002 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034633 DFAD 4,044100 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777773 C(AC+1)= 777777 777777 C(E)= 000000 000004 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034642 DFAD 4,044102 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777767 C(AC+1)= 777777 777777 C(E)= 000000 000010 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0377 *034651 DFAD 4,044104 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777757 C(AC+1)= 777777 777777 C(E)= 000000 000020 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034660 DFAD 4,044106 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777737 C(AC+1)= 777777 777777 C(E)= 000000 000040 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034667 DFAD 4,044110 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777677 C(AC+1)= 777777 777777 C(E)= 000000 000100 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034676 DFAD 4,044112 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777577 C(AC+1)= 777777 777777 C(E)= 000000 000200 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034705 DFAD 4,044114 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777377 C(AC+1)= 777777 777777 C(E)= 000000 000400 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0378 *034714 DFAD 4,044116 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 776777 C(AC+1)= 777777 777777 C(E)= 000000 001000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034723 DFAD 4,044120 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 775777 C(AC+1)= 777777 777777 C(E)= 000000 002000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034732 DFAD 4,044122 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 773777 C(AC+1)= 777777 777777 C(E)= 000000 004000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034741 DFAD 4,044124 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 767777 C(AC+1)= 777777 777777 C(E)= 000000 010000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034750 DFAD 4,044126 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 757777 C(AC+1)= 777777 777777 C(E)= 000000 020000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0379 *034757 DFAD 4,044130 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 737777 C(AC+1)= 777777 777777 C(E)= 000000 040000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034766 DFAD 4,044132 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 677777 C(AC+1)= 777777 777777 C(E)= 000000 100000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *034775 DFAD 4,044134 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 577777 C(AC+1)= 777777 777777 C(E)= 000000 200000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035004 DFAD 4,044136 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 377777 C(AC+1)= 777777 777777 C(E)= 000000 400000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035013 DFAD 4,044140 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000776 777777 C(AC+1)= 777777 777777 C(E)= 000001 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0380 *035022 DFAD 4,044142 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000775 777777 C(AC+1)= 777777 777777 C(E)= 000002 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035031 DFAD 4,044144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000773 777777 C(AC+1)= 777777 777777 C(E)= 000004 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035040 DFAD 4,044146 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000767 777777 C(AC+1)= 777777 777777 C(E)= 000010 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035047 DFAD 4,044150 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000757 777777 C(AC+1)= 777777 777777 C(E)= 000020 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035056 DFAD 4,044152 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000737 777777 C(AC+1)= 777777 777777 C(E)= 000040 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0381 *035065 DFAD 4,044154 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000677 777777 C(AC+1)= 777777 777777 C(E)= 000100 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035074 DFAD 4,044156 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000577 777777 C(AC+1)= 777777 777777 C(E)= 000200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035103 DFAD 4,044160 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000377 777777 C(AC+1)= 777777 777777 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035112 DFAD 4,043632 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 000777 777777 C(E+1)= 777777 777776 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035121 DFAD 4,043635 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000002 C(E)= 000777 777777 C(E+1)= 777777 777775 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0382 *035130 DFAD 4,043640 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000004 C(E)= 000777 777777 C(E+1)= 777777 777773 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035137 DFAD 4,043643 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000010 C(E)= 000777 777777 C(E+1)= 777777 777767 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035146 DFAD 4,043646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000020 C(E)= 000777 777777 C(E+1)= 777777 777757 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035155 DFAD 4,043651 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000040 C(E)= 000777 777777 C(E+1)= 777777 777737 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035164 DFAD 4,043654 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000100 C(E)= 000777 777777 C(E+1)= 777777 777677 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0383 *035173 DFAD 4,043657 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000200 C(E)= 000777 777777 C(E+1)= 777777 777577 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035202 DFAD 4,043662 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000400 C(E)= 000777 777777 C(E+1)= 777777 777377 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035211 DFAD 4,043665 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 001000 C(E)= 000777 777777 C(E+1)= 777777 776777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035220 DFAD 4,043670 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 002000 C(E)= 000777 777777 C(E+1)= 777777 775777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035227 DFAD 4,043673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 004000 C(E)= 000777 777777 C(E+1)= 777777 773777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0384 *035236 DFAD 4,043676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 010000 C(E)= 000777 777777 C(E+1)= 777777 767777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035245 DFAD 4,043701 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 020000 C(E)= 000777 777777 C(E+1)= 777777 757777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035254 DFAD 4,043704 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 040000 C(E)= 000777 777777 C(E+1)= 777777 737777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035263 DFAD 4,043707 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 100000 C(E)= 000777 777777 C(E+1)= 777777 677777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035272 DFAD 4,043712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 200000 C(E)= 000777 777777 C(E+1)= 777777 577777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0385 *035301 DFAD 4,043715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 400000 C(E)= 000777 777777 C(E+1)= 777777 377777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035310 DFAD 4,043720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000001 000000 C(E)= 000777 777777 C(E+1)= 777776 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035317 DFAD 4,043723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000002 000000 C(E)= 000777 777777 C(E+1)= 777775 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035326 DFAD 4,043726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000004 000000 C(E)= 000777 777777 C(E+1)= 777773 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035335 DFAD 4,043731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000010 000000 C(E)= 000777 777777 C(E+1)= 777767 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0386 *035344 DFAD 4,043734 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000020 000000 C(E)= 000777 777777 C(E+1)= 777757 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035353 DFAD 4,043737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000040 000000 C(E)= 000777 777777 C(E+1)= 777737 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035362 DFAD 4,043742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000100 000000 C(E)= 000777 777777 C(E+1)= 777677 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035371 DFAD 4,043745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000200 000000 C(E)= 000777 777777 C(E+1)= 777577 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035400 DFAD 4,043750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000400 000000 C(E)= 000777 777777 C(E+1)= 777377 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0387 *035407 DFAD 4,043753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 001000 000000 C(E)= 000777 777777 C(E+1)= 776777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035416 DFAD 4,043756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 002000 000000 C(E)= 000777 777777 C(E+1)= 775777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035425 DFAD 4,043761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 004000 000000 C(E)= 000777 777777 C(E+1)= 773777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035434 DFAD 4,043764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 010000 000000 C(E)= 000777 777777 C(E+1)= 767777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035443 DFAD 4,043767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 020000 000000 C(E)= 000777 777777 C(E+1)= 757777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0388 *035452 DFAD 4,043772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 040000 000000 C(E)= 000777 777777 C(E+1)= 737777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035461 DFAD 4,043775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 100000 000000 C(E)= 000777 777777 C(E+1)= 677777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035470 DFAD 4,044000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 200000 000000 C(E)= 000777 777777 C(E+1)= 577777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035477 DFAD 4,044003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 000777 777777 C(E+1)= 377777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035506 DFAD 4,044005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 000777 777776 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0389 *035515 DFAD 4,044007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 000777 777775 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035524 DFAD 4,044011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000777 777773 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035533 DFAD 4,044013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000777 777767 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035542 DFAD 4,044015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 000777 777757 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035551 DFAD 4,044017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 000777 777737 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0390 *035560 DFAD 4,044021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000777 777677 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035567 DFAD 4,044023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 000777 777577 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035576 DFAD 4,044025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 000777 777377 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035605 DFAD 4,044027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 000777 776777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035614 DFAD 4,044031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 000777 775777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0391 *035623 DFAD 4,044033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 000777 773777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035632 DFAD 4,044035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 000777 767777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035641 DFAD 4,044037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 000777 757777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035650 DFAD 4,044041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 000777 737777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035657 DFAD 4,044043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 000777 677777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0392 *035666 DFAD 4,044045 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 000777 577777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035675 DFAD 4,044047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 000777 377777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035704 DFAD 4,044051 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 000776 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035713 DFAD 4,044053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 000775 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035722 DFAD 4,044055 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 000773 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0393 *035731 DFAD 4,044057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 000767 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035740 DFAD 4,044061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 000757 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035747 DFAD 4,044063 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 000737 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035756 DFAD 4,044065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 000677 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *035765 DFAD 4,044067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 000577 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0394 *035774 DFAD 4,044201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 000377 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 ---------- *036003 DFAD 4,043624 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *036012 DFAD 4,043621 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000002 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000001 ---------- *036021 DFAD 4,043616 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000004 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000002 ---------- *036030 DFAD 4,043613 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000010 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0395 *036037 DFAD 4,043610 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000020 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000010 ---------- *036046 DFAD 4,043605 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000040 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000020 ---------- *036055 DFAD 4,043602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000100 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000040 ---------- *036064 DFAD 4,043577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000200 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000100 ---------- *036073 DFAD 4,043574 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000400 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0396 *036102 DFAD 4,043571 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 001000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000400 ---------- *036111 DFAD 4,043566 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 002000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 001000 ---------- *036120 DFAD 4,043563 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 004000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 002000 ---------- *036127 DFAD 4,043560 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 010000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 004000 ---------- *036136 DFAD 4,043555 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 020000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 80 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0397 *036145 DFAD 4,043552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 040000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 020000 ---------- *036154 DFAD 4,043547 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 100000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 040000 ---------- *036163 DFAD 4,043544 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 200000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 100000 ---------- *036172 DFAD 4,043541 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 400000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 200000 ---------- *036201 DFAD 4,043536 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000001 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0398 *036210 DFAD 4,043533 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000002 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000001 000000 ---------- *036217 DFAD 4,043530 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000004 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000002 000000 ---------- *036226 DFAD 4,043525 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000010 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000004 000000 ---------- *036235 DFAD 4,043522 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000020 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000010 000000 ---------- *036244 DFAD 4,043517 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000040 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0399 *036253 DFAD 4,043514 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000100 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000040 000000 ---------- *036262 DFAD 4,043511 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000200 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000100 000000 ---------- *036271 DFAD 4,043506 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000400 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000200 000000 ---------- *036300 DFAD 4,043503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 001000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000400 000000 ---------- *036307 DFAD 4,043500 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 002000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0400 *036316 DFAD 4,043475 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 004000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 002000 000000 ---------- *036325 DFAD 4,043472 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 010000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 004000 000000 ---------- *036334 DFAD 4,043467 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 020000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 010000 000000 ---------- *036343 DFAD 4,043464 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 040000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 020000 000000 ---------- *036352 DFAD 4,043461 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 100000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0401 *036361 DFAD 4,043456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 200000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 100000 000000 ---------- *036370 DFAD 4,043454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 200777 777777 C(AC+1)= 377777 777777 ---------- *036377 DFAD 4,043451 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 200000 000000 ---------- *036406 DFAD 4,043446 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000002 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000001 C(AC+1)= 000000 000000 ---------- *036415 DFAD 4,043443 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000004 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000002 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0402 *036424 DFAD 4,043440 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000010 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000004 C(AC+1)= 000000 000000 ---------- *036433 DFAD 4,043435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000020 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000010 C(AC+1)= 000000 000000 ---------- *036442 DFAD 4,043432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000040 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000020 C(AC+1)= 000000 000000 ---------- *036451 DFAD 4,043427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000100 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000040 C(AC+1)= 000000 000000 ---------- *036460 DFAD 4,043424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000200 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000100 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0403 *036467 DFAD 4,043421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000400 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000200 C(AC+1)= 000000 000000 ---------- *036476 DFAD 4,043416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 001000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000400 C(AC+1)= 000000 000000 ---------- *036505 DFAD 4,043413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 002000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 001000 C(AC+1)= 000000 000000 ---------- *036514 DFAD 4,043410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 004000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 002000 C(AC+1)= 000000 000000 ---------- *036523 DFAD 4,043405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 010000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 004000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0404 *036532 DFAD 4,043402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 020000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 010000 C(AC+1)= 000000 000000 ---------- *036541 DFAD 4,043377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 040000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 020000 C(AC+1)= 000000 000000 ---------- *036550 DFAD 4,043374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 100000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 040000 C(AC+1)= 000000 000000 ---------- *036557 DFAD 4,043371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 200000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 100000 C(AC+1)= 000000 000000 ---------- *036566 DFAD 4,043366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 400000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 200000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0405 *036575 DFAD 4,043363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200001 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 400000 C(AC+1)= 000000 000000 ---------- *036604 DFAD 4,043360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200002 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201401 000000 C(AC+1)= 000000 000000 ---------- *036613 DFAD 4,043355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200004 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201402 000000 C(AC+1)= 000000 000000 ---------- *036622 DFAD 4,043352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200010 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201404 000000 C(AC+1)= 000000 000000 ---------- *036631 DFAD 4,043347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200020 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201410 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 89 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0406 *036640 DFAD 4,043344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200040 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201420 000000 C(AC+1)= 000000 000000 ---------- *036647 DFAD 4,043341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200100 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201440 000000 C(AC+1)= 000000 000000 ---------- *036656 DFAD 4,043336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201500 000000 C(AC+1)= 000000 000000 ---------- *036665 DFAD 4,043334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201600 000000 C(AC+1)= 000000 000000 ---------- *036674 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000001 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0407 *036703 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000002 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000001 ---------- *036712 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000002 ---------- *036721 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000010 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000004 ---------- *036730 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000020 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000010 ---------- *036737 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000040 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000020 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0408 *036746 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000100 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000040 ---------- *036755 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000200 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000100 ---------- *036764 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000400 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000200 ---------- *036773 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 001000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000400 ---------- *037002 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 002000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0409 *037011 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 004000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 002000 ---------- *037020 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 010000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 004000 ---------- *037027 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 020000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 010000 ---------- *037036 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 040000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 020000 ---------- *037045 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 100000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 040000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 93 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0410 *037054 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 200000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 100000 ---------- *037063 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 400000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 200000 ---------- *037072 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000001 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 400000 ---------- *037101 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000002 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000001 000000 ---------- *037110 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000004 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 94 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0411 *037117 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000010 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000004 000000 ---------- *037126 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000020 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000010 000000 ---------- *037135 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000040 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000020 000000 ---------- *037144 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000100 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000040 000000 ---------- *037153 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000200 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 95 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0412 *037162 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000400 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000200 000000 ---------- *037171 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 001000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000400 000000 ---------- *037200 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 002000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 001000 000000 ---------- *037207 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 004000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 002000 000000 ---------- *037216 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 010000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0413 *037225 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 020000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 010000 000000 ---------- *037234 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 040000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 020000 000000 ---------- *037243 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 100000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 040000 000000 ---------- *037252 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 100000 000000 ---------- *037261 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 200777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0414 *037270 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 200000 000000 ---------- *037277 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000001 C(AC+1)= 000000 000000 ---------- *037306 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000002 C(AC+1)= 000000 000000 ---------- *037315 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000004 C(AC+1)= 000000 000000 ---------- *037324 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000010 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0415 *037333 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000020 C(AC+1)= 000000 000000 ---------- *037342 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000040 C(AC+1)= 000000 000000 ---------- *037351 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000100 C(AC+1)= 000000 000000 ---------- *037360 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000200 C(AC+1)= 000000 000000 ---------- *037367 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 000400 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0416 *037376 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 001000 C(AC+1)= 000000 000000 ---------- *037405 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 002000 C(AC+1)= 000000 000000 ---------- *037414 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 004000 C(AC+1)= 000000 000000 ---------- *037423 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 010000 C(AC+1)= 000000 000000 ---------- *037432 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 020000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0417 *037441 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 040000 C(AC+1)= 000000 000000 ---------- *037450 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 100000 C(AC+1)= 000000 000000 ---------- *037457 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 200000 C(AC+1)= 000000 000000 ---------- *037466 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201400 400000 C(AC+1)= 000000 000000 ---------- *037475 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201401 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0418 *037504 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201402 000000 C(AC+1)= 000000 000000 ---------- *037513 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201404 000000 C(AC+1)= 000000 000000 ---------- *037522 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201410 000000 C(AC+1)= 000000 000000 ---------- *037531 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201420 000000 C(AC+1)= 000000 000000 ---------- *037540 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201440 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 102 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0419 *037547 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201500 000000 C(AC+1)= 000000 000000 ---------- *037556 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201600 000000 C(AC+1)= 000000 000000 ---------- *037565 DFAD 4,044240 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777776 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777777 ---------- *037574 DFAD 4,044243 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777775 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777776 ---------- *037603 DFAD 4,044245 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777773 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777775 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 103 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0420 *037612 DFAD 4,044247 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777767 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777773 ---------- *037621 DFAD 4,044251 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777757 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777767 ---------- *037630 DFAD 4,044253 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777737 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777757 ---------- *037637 DFAD 4,044255 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777677 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777737 ---------- *037646 DFAD 4,044257 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777577 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777677 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 104 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0421 *037655 DFAD 4,044261 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777377 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777577 ---------- *037664 DFAD 4,044263 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 776777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777377 ---------- *037673 DFAD 4,044265 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 775777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 776777 ---------- *037702 DFAD 4,044267 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 773777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 775777 ---------- *037711 DFAD 4,044271 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 767777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 773777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 105 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0422 *037720 DFAD 4,044273 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 757777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 767777 ---------- *037727 DFAD 4,044275 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 737777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 757777 ---------- *037736 DFAD 4,044277 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 677777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 737777 ---------- *037745 DFAD 4,044301 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 577777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 677777 ---------- *037754 DFAD 4,044303 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 377777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 577777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 106 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0423 *037763 DFAD 4,044305 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777776 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 377777 ---------- *037772 DFAD 4,044307 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777775 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377776 777777 ---------- *040001 DFAD 4,044311 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777773 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377775 777777 ---------- *040010 DFAD 4,044313 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777767 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377773 777777 ---------- *040017 DFAD 4,044315 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777757 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377767 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 107 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0424 *040026 DFAD 4,044317 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777737 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377757 777777 ---------- *040035 DFAD 4,044321 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777677 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377737 777777 ---------- *040044 DFAD 4,044323 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777577 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377677 777777 ---------- *040053 DFAD 4,044325 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777377 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377577 777777 ---------- *040062 DFAD 4,044327 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 776777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377377 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 108 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0425 *040071 DFAD 4,044331 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 775777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 376777 777777 ---------- *040100 DFAD 4,044333 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 773777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 375777 777777 ---------- *040107 DFAD 4,044335 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 767777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 373777 777777 ---------- *040116 DFAD 4,044337 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 757777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 367777 777777 ---------- *040125 DFAD 4,044341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 737777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 357777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 109 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0426 *040134 DFAD 4,044343 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 677777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 337777 777777 ---------- *040143 DFAD 4,044345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 577777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 277777 777777 ---------- *040152 DFAD 4,044347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 377777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777777 ---------- *040161 DFAD 4,044351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777776 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 177777 777777 ---------- *040170 DFAD 4,044353 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777775 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777776 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 110 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0427 *040177 DFAD 4,044356 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777773 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777775 C(AC+1)= 377777 777777 ---------- *040206 DFAD 4,044361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777767 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777773 C(AC+1)= 377777 777777 ---------- *040215 DFAD 4,044364 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777757 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777767 C(AC+1)= 377777 777777 ---------- *040224 DFAD 4,044367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777737 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777757 C(AC+1)= 377777 777777 ---------- *040233 DFAD 4,044372 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777677 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777737 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 111 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0428 *040242 DFAD 4,044375 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777577 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777677 C(AC+1)= 377777 777777 ---------- *040251 DFAD 4,044400 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777377 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777577 C(AC+1)= 377777 777777 ---------- *040260 DFAD 4,044403 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 776777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777377 C(AC+1)= 377777 777777 ---------- *040267 DFAD 4,044406 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 775777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 776777 C(AC+1)= 377777 777777 ---------- *040276 DFAD 4,044411 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 773777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 775777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 112 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0429 *040305 DFAD 4,044414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 767777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 773777 C(AC+1)= 377777 777777 ---------- *040314 DFAD 4,044417 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 757777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 767777 C(AC+1)= 377777 777777 ---------- *040323 DFAD 4,044422 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 737777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 757777 C(AC+1)= 377777 777777 ---------- *040332 DFAD 4,044425 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 677777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 737777 C(AC+1)= 377777 777777 ---------- *040341 DFAD 4,044430 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 577777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 677777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 113 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0430 *040350 DFAD 4,044433 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 377777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 577777 C(AC+1)= 377777 777777 ---------- *040357 DFAD 4,044436 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200776 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 377777 C(AC+1)= 377777 777777 ---------- *040366 DFAD 4,044441 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200775 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201776 777777 C(AC+1)= 377777 777777 ---------- *040375 DFAD 4,044444 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200773 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201775 777777 C(AC+1)= 377777 777777 ---------- *040404 DFAD 4,044447 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200767 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201773 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 114 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0431 *040413 DFAD 4,044452 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200757 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201767 777777 C(AC+1)= 377777 777777 ---------- *040422 DFAD 4,044455 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200737 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201757 777777 C(AC+1)= 377777 777777 ---------- *040431 DFAD 4,044460 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200677 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201737 777777 C(AC+1)= 377777 777777 ---------- *040440 DFAD 4,044463 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200577 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201677 777777 C(AC+1)= 377777 777777 ---------- *040447 DFAD 4,044466 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200377 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201577 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 115 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0432 *040456 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777776 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777777 ---------- *040465 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777775 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777776 ---------- *040474 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777773 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777775 ---------- *040503 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777767 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777773 ---------- *040512 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777757 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 116 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0433 *040521 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777737 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777757 ---------- *040530 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777677 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777737 ---------- *040537 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777577 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777677 ---------- *040546 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777377 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777577 ---------- *040555 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 776777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777377 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 117 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0434 *040564 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 775777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 776777 ---------- *040573 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 773777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 775777 ---------- *040602 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 767777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 773777 ---------- *040611 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 757777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 767777 ---------- *040620 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 737777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 757777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 118 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0435 *040627 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 677777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 737777 ---------- *040636 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 577777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 677777 ---------- *040645 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 377777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 577777 ---------- *040654 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777776 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 377777 ---------- *040663 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777775 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377776 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 119 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0436 *040672 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777773 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377775 777777 ---------- *040701 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777767 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377773 777777 ---------- *040710 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777757 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377767 777777 ---------- *040717 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777737 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377757 777777 ---------- *040726 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777677 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377737 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 120 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0437 *040735 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777577 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377677 777777 ---------- *040744 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777377 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377577 777777 ---------- *040753 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 776777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377377 777777 ---------- *040762 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 775777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 376777 777777 ---------- *040771 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 773777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 375777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 121 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0438 *041000 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 767777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 373777 777777 ---------- *041007 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 757777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 367777 777777 ---------- *041016 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 737777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 357777 777777 ---------- *041025 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 677777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 337777 777777 ---------- *041034 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 577777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 277777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 122 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0439 *041043 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 377777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377777 777777 ---------- *041052 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777776 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 177777 777777 ---------- *041061 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777775 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777776 C(AC+1)= 377777 777777 ---------- *041070 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777773 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777775 C(AC+1)= 377777 777777 ---------- *041077 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777767 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777773 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 123 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0440 *041106 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777757 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777767 C(AC+1)= 377777 777777 ---------- *041115 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777737 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777757 C(AC+1)= 377777 777777 ---------- *041124 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777677 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777737 C(AC+1)= 377777 777777 ---------- *041133 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777577 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777677 C(AC+1)= 377777 777777 ---------- *041142 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777377 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777577 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 124 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0441 *041151 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 776777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 777377 C(AC+1)= 377777 777777 ---------- *041160 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 775777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 776777 C(AC+1)= 377777 777777 ---------- *041167 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 773777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 775777 C(AC+1)= 377777 777777 ---------- *041176 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 767777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 773777 C(AC+1)= 377777 777777 ---------- *041205 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 757777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 767777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 125 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0442 *041214 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 737777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 757777 C(AC+1)= 377777 777777 ---------- *041223 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 677777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 737777 C(AC+1)= 377777 777777 ---------- *041232 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 577777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 677777 C(AC+1)= 377777 777777 ---------- *041241 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 377777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 577777 C(AC+1)= 377777 777777 ---------- *041250 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200776 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201777 377777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 126 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0443 *041257 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200775 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201776 777777 C(AC+1)= 377777 777777 ---------- *041266 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200773 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201775 777777 C(AC+1)= 377777 777777 ---------- *041275 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200767 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201773 777777 C(AC+1)= 377777 777777 ---------- *041304 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200757 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201767 777777 C(AC+1)= 377777 777777 ---------- *041313 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200737 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201757 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 127 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0444 *041322 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200677 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201737 777777 C(AC+1)= 377777 777777 ---------- *041331 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200577 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201677 777777 C(AC+1)= 377777 777777 ---------- *041340 DFAD 4,044203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200377 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 201577 777777 C(AC+1)= 377777 777777 ---------- *041347 DFAD 4,043624 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000001 C(E)= 200000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 104400 000000 C(AC+1)= 000000 000000 ---------- *041356 DFAD 4,043621 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000002 C(E)= 200000 000000 C(E+1)= 000000 000002 FINAL C(AC)= 105400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 128 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0445 *041365 DFAD 4,043616 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 200000 000000 C(E+1)= 000000 000004 FINAL C(AC)= 106400 000000 C(AC+1)= 000000 000000 ---------- *041374 DFAD 4,043613 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000010 C(E)= 200000 000000 C(E+1)= 000000 000010 FINAL C(AC)= 107400 000000 C(AC+1)= 000000 000000 ---------- *041403 DFAD 4,043610 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000020 C(E)= 200000 000000 C(E+1)= 000000 000020 FINAL C(AC)= 110400 000000 C(AC+1)= 000000 000000 ---------- *041412 DFAD 4,043605 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000040 C(E)= 200000 000000 C(E+1)= 000000 000040 FINAL C(AC)= 111400 000000 C(AC+1)= 000000 000000 ---------- *041421 DFAD 4,043602 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000100 C(E)= 200000 000000 C(E+1)= 000000 000100 FINAL C(AC)= 112400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 129 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0446 *041430 DFAD 4,043577 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000200 C(E)= 200000 000000 C(E+1)= 000000 000200 FINAL C(AC)= 113400 000000 C(AC+1)= 000000 000000 ---------- *041437 DFAD 4,043574 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000400 C(E)= 200000 000000 C(E+1)= 000000 000400 FINAL C(AC)= 114400 000000 C(AC+1)= 000000 000000 ---------- *041446 DFAD 4,043571 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 001000 C(E)= 200000 000000 C(E+1)= 000000 001000 FINAL C(AC)= 115400 000000 C(AC+1)= 000000 000000 ---------- *041455 DFAD 4,043566 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 002000 C(E)= 200000 000000 C(E+1)= 000000 002000 FINAL C(AC)= 116400 000000 C(AC+1)= 000000 000000 ---------- *041464 DFAD 4,043563 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 004000 C(E)= 200000 000000 C(E+1)= 000000 004000 FINAL C(AC)= 117400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 130 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0447 *041473 DFAD 4,043560 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 010000 C(E)= 200000 000000 C(E+1)= 000000 010000 FINAL C(AC)= 120400 000000 C(AC+1)= 000000 000000 ---------- *041502 DFAD 4,043555 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 020000 C(E)= 200000 000000 C(E+1)= 000000 020000 FINAL C(AC)= 121400 000000 C(AC+1)= 000000 000000 ---------- *041511 DFAD 4,043552 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 040000 C(E)= 200000 000000 C(E+1)= 000000 040000 FINAL C(AC)= 122400 000000 C(AC+1)= 000000 000000 ---------- *041520 DFAD 4,043547 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 100000 C(E)= 200000 000000 C(E+1)= 000000 100000 FINAL C(AC)= 123400 000000 C(AC+1)= 000000 000000 ---------- *041527 DFAD 4,043544 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 200000 C(E)= 200000 000000 C(E+1)= 000000 200000 FINAL C(AC)= 124400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 131 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0448 *041536 DFAD 4,043541 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 400000 C(E)= 200000 000000 C(E+1)= 000000 400000 FINAL C(AC)= 125400 000000 C(AC+1)= 000000 000000 ---------- *041545 DFAD 4,043536 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000001 000000 C(E)= 200000 000000 C(E+1)= 000001 000000 FINAL C(AC)= 126400 000000 C(AC+1)= 000000 000000 ---------- *041554 DFAD 4,043533 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000002 000000 C(E)= 200000 000000 C(E+1)= 000002 000000 FINAL C(AC)= 127400 000000 C(AC+1)= 000000 000000 ---------- *041563 DFAD 4,043530 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000004 000000 C(E)= 200000 000000 C(E+1)= 000004 000000 FINAL C(AC)= 130400 000000 C(AC+1)= 000000 000000 ---------- *041572 DFAD 4,043525 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000010 000000 C(E)= 200000 000000 C(E+1)= 000010 000000 FINAL C(AC)= 131400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 132 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0449 *041601 DFAD 4,043522 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000020 000000 C(E)= 200000 000000 C(E+1)= 000020 000000 FINAL C(AC)= 132400 000000 C(AC+1)= 000000 000000 ---------- *041610 DFAD 4,043517 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000040 000000 C(E)= 200000 000000 C(E+1)= 000040 000000 FINAL C(AC)= 133400 000000 C(AC+1)= 000000 000000 ---------- *041617 DFAD 4,043514 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000100 000000 C(E)= 200000 000000 C(E+1)= 000100 000000 FINAL C(AC)= 134400 000000 C(AC+1)= 000000 000000 ---------- *041626 DFAD 4,043511 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000200 000000 C(E)= 200000 000000 C(E+1)= 000200 000000 FINAL C(AC)= 135400 000000 C(AC+1)= 000000 000000 ---------- *041635 DFAD 4,043506 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000400 000000 C(E)= 200000 000000 C(E+1)= 000400 000000 FINAL C(AC)= 136400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 133 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0450 *041644 DFAD 4,043503 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 001000 000000 C(E)= 200000 000000 C(E+1)= 001000 000000 FINAL C(AC)= 137400 000000 C(AC+1)= 000000 000000 ---------- *041653 DFAD 4,043500 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 002000 000000 C(E)= 200000 000000 C(E+1)= 002000 000000 FINAL C(AC)= 140400 000000 C(AC+1)= 000000 000000 ---------- *041662 DFAD 4,043475 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 004000 000000 C(E)= 200000 000000 C(E+1)= 004000 000000 FINAL C(AC)= 141400 000000 C(AC+1)= 000000 000000 ---------- *041671 DFAD 4,043472 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 010000 000000 C(E)= 200000 000000 C(E+1)= 010000 000000 FINAL C(AC)= 142400 000000 C(AC+1)= 000000 000000 ---------- *041700 DFAD 4,043467 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 020000 000000 C(E)= 200000 000000 C(E+1)= 020000 000000 FINAL C(AC)= 143400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 134 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0451 *041707 DFAD 4,043464 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 040000 000000 C(E)= 200000 000000 C(E+1)= 040000 000000 FINAL C(AC)= 144400 000000 C(AC+1)= 000000 000000 ---------- *041716 DFAD 4,043461 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 100000 000000 C(E)= 200000 000000 C(E+1)= 100000 000000 FINAL C(AC)= 145400 000000 C(AC+1)= 000000 000000 ---------- *041725 DFAD 4,043456 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 200000 000000 C(E+1)= 200000 000000 FINAL C(AC)= 146400 000000 C(AC+1)= 000000 000000 ---------- *041734 DFAD 4,043454 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 200000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *041743 DFAD 4,043451 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 200000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 147400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 135 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0452 *041752 DFAD 4,043446 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 200000 000002 C(E+1)= 000000 000000 FINAL C(AC)= 150400 000000 C(AC+1)= 000000 000000 ---------- *041761 DFAD 4,043443 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 200000 000004 C(E+1)= 000000 000000 FINAL C(AC)= 151400 000000 C(AC+1)= 000000 000000 ---------- *041770 DFAD 4,043440 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 200000 000010 C(E+1)= 000000 000000 FINAL C(AC)= 152400 000000 C(AC+1)= 000000 000000 ---------- *041777 DFAD 4,043435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 200000 000020 C(E+1)= 000000 000000 FINAL C(AC)= 153400 000000 C(AC+1)= 000000 000000 ---------- *042006 DFAD 4,043432 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 200000 000040 C(E+1)= 000000 000000 FINAL C(AC)= 154400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 136 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0453 *042015 DFAD 4,043427 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 200000 000100 C(E+1)= 000000 000000 FINAL C(AC)= 155400 000000 C(AC+1)= 000000 000000 ---------- *042024 DFAD 4,043424 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 200000 000200 C(E+1)= 000000 000000 FINAL C(AC)= 156400 000000 C(AC+1)= 000000 000000 ---------- *042033 DFAD 4,043421 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 200000 000400 C(E+1)= 000000 000000 FINAL C(AC)= 157400 000000 C(AC+1)= 000000 000000 ---------- *042042 DFAD 4,043416 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 200000 001000 C(E+1)= 000000 000000 FINAL C(AC)= 160400 000000 C(AC+1)= 000000 000000 ---------- *042051 DFAD 4,043413 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 200000 002000 C(E+1)= 000000 000000 FINAL C(AC)= 161400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 137 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0454 *042060 DFAD 4,043410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 200000 004000 C(E+1)= 000000 000000 FINAL C(AC)= 162400 000000 C(AC+1)= 000000 000000 ---------- *042067 DFAD 4,043405 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 200000 010000 C(E+1)= 000000 000000 FINAL C(AC)= 163400 000000 C(AC+1)= 000000 000000 ---------- *042076 DFAD 4,043402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 200000 020000 C(E+1)= 000000 000000 FINAL C(AC)= 164400 000000 C(AC+1)= 000000 000000 ---------- *042105 DFAD 4,043377 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 200000 040000 C(E+1)= 000000 000000 FINAL C(AC)= 165400 000000 C(AC+1)= 000000 000000 ---------- *042114 DFAD 4,043374 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 200000 100000 C(E+1)= 000000 000000 FINAL C(AC)= 166400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 138 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0455 *042123 DFAD 4,043371 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 200000 200000 C(E+1)= 000000 000000 FINAL C(AC)= 167400 000000 C(AC+1)= 000000 000000 ---------- *042132 DFAD 4,043366 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 200000 400000 C(E+1)= 000000 000000 FINAL C(AC)= 170400 000000 C(AC+1)= 000000 000000 ---------- *042141 DFAD 4,043363 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 200001 000000 C(E+1)= 000000 000000 FINAL C(AC)= 171400 000000 C(AC+1)= 000000 000000 ---------- *042150 DFAD 4,043360 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200002 000000 C(E+1)= 000000 000000 FINAL C(AC)= 172400 000000 C(AC+1)= 000000 000000 ---------- *042157 DFAD 4,043355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200004 000000 C(E+1)= 000000 000000 FINAL C(AC)= 173400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 139 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0456 *042166 DFAD 4,043352 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200010 000000 C(E+1)= 000000 000000 FINAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 ---------- *042175 DFAD 4,043347 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200020 000000 C(E+1)= 000000 000000 FINAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 ---------- *042204 DFAD 4,043344 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200040 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *042213 DFAD 4,043341 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200100 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *042222 DFAD 4,043336 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 140 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0457 *042231 DFAD 4,043334 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *042240 DFAD 4,043632 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777776 C(E)= 000777 777777 C(E+1)= 777777 777776 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777776 ---------- *042247 DFAD 4,043635 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777775 C(E)= 000777 777777 C(E+1)= 777777 777775 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777775 ---------- *042256 DFAD 4,043640 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777773 C(E)= 000777 777777 C(E+1)= 777777 777773 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777773 ---------- *042265 DFAD 4,043643 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777767 C(E)= 000777 777777 C(E+1)= 777777 777767 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 141 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0458 *042274 DFAD 4,043646 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777757 C(E)= 000777 777777 C(E+1)= 777777 777757 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777757 ---------- *042303 DFAD 4,043651 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777737 C(E)= 000777 777777 C(E+1)= 777777 777737 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777737 ---------- *042312 DFAD 4,043654 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777677 C(E)= 000777 777777 C(E+1)= 777777 777677 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777677 ---------- *042321 DFAD 4,043657 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777577 C(E)= 000777 777777 C(E+1)= 777777 777577 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777577 ---------- *042330 DFAD 4,043662 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777377 C(E)= 000777 777777 C(E+1)= 777777 777377 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777377 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 142 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0459 *042337 DFAD 4,043665 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 776777 C(E)= 000777 777777 C(E+1)= 777777 776777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 776777 ---------- *042346 DFAD 4,043670 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 775777 C(E)= 000777 777777 C(E+1)= 777777 775777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 775777 ---------- *042355 DFAD 4,043673 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 773777 C(E)= 000777 777777 C(E+1)= 777777 773777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 773777 ---------- *042364 DFAD 4,043676 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 767777 C(E)= 000777 777777 C(E+1)= 777777 767777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 767777 ---------- *042373 DFAD 4,043701 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 757777 C(E)= 000777 777777 C(E+1)= 777777 757777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 757777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 143 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0460 *042402 DFAD 4,043704 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 737777 C(E)= 000777 777777 C(E+1)= 777777 737777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 737777 ---------- *042411 DFAD 4,043707 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 677777 C(E)= 000777 777777 C(E+1)= 777777 677777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 677777 ---------- *042420 DFAD 4,043712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 577777 C(E)= 000777 777777 C(E+1)= 777777 577777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 577777 ---------- *042427 DFAD 4,043715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 377777 C(E)= 000777 777777 C(E+1)= 777777 377777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 377777 ---------- *042436 DFAD 4,043720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777776 777777 C(E)= 000777 777777 C(E+1)= 777776 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377776 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 144 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0461 *042445 DFAD 4,043723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777775 777777 C(E)= 000777 777777 C(E+1)= 777775 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377775 777777 ---------- *042454 DFAD 4,043726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777773 777777 C(E)= 000777 777777 C(E+1)= 777773 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377773 777777 ---------- *042463 DFAD 4,043731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777767 777777 C(E)= 000777 777777 C(E+1)= 777767 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377767 777777 ---------- *042472 DFAD 4,043734 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777757 777777 C(E)= 000777 777777 C(E+1)= 777757 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377757 777777 ---------- *042501 DFAD 4,043737 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777737 777777 C(E)= 000777 777777 C(E+1)= 777737 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377737 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 145 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0462 *042510 DFAD 4,043742 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777677 777777 C(E)= 000777 777777 C(E+1)= 777677 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377677 777777 ---------- *042517 DFAD 4,043745 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777577 777777 C(E)= 000777 777777 C(E+1)= 777577 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377577 777777 ---------- *042526 DFAD 4,043750 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777377 777777 C(E)= 000777 777777 C(E+1)= 777377 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377377 777777 ---------- *042535 DFAD 4,043753 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 776777 777777 C(E)= 000777 777777 C(E+1)= 776777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 376777 777777 ---------- *042544 DFAD 4,043756 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 775777 777777 C(E)= 000777 777777 C(E+1)= 775777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 375777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 146 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0463 *042553 DFAD 4,043761 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 773777 777777 C(E)= 000777 777777 C(E+1)= 773777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 373777 777777 ---------- *042562 DFAD 4,043764 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 767777 777777 C(E)= 000777 777777 C(E+1)= 767777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 367777 777777 ---------- *042571 DFAD 4,043767 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 757777 777777 C(E)= 000777 777777 C(E+1)= 757777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 357777 777777 ---------- *042600 DFAD 4,043772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 737777 777777 C(E)= 000777 777777 C(E+1)= 737777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 337777 777777 ---------- *042607 DFAD 4,043775 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 677777 777777 C(E)= 000777 777777 C(E+1)= 677777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 277777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 147 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0464 *042616 DFAD 4,044000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 577777 777777 C(E)= 000777 777777 C(E+1)= 577777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 177777 777777 ---------- *042625 DFAD 4,044003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 377777 777777 C(E)= 000777 777777 C(E+1)= 377777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *042634 DFAD 4,044005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777776 C(AC+1)= 777777 777777 C(E)= 000777 777776 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777776 C(AC+1)= 377777 777777 ---------- *042643 DFAD 4,044007 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777775 C(AC+1)= 777777 777777 C(E)= 000777 777775 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777775 C(AC+1)= 377777 777777 ---------- *042652 DFAD 4,044011 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777773 C(AC+1)= 777777 777777 C(E)= 000777 777773 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777773 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 148 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0465 *042661 DFAD 4,044013 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777767 C(AC+1)= 777777 777777 C(E)= 000777 777767 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777767 C(AC+1)= 377777 777777 ---------- *042670 DFAD 4,044015 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777757 C(AC+1)= 777777 777777 C(E)= 000777 777757 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777757 C(AC+1)= 377777 777777 ---------- *042677 DFAD 4,044017 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777737 C(AC+1)= 777777 777777 C(E)= 000777 777737 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777737 C(AC+1)= 377777 777777 ---------- *042706 DFAD 4,044021 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777677 C(AC+1)= 777777 777777 C(E)= 000777 777677 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777677 C(AC+1)= 377777 777777 ---------- *042715 DFAD 4,044023 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777577 C(AC+1)= 777777 777777 C(E)= 000777 777577 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777577 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 149 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0466 *042724 DFAD 4,044025 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777377 C(AC+1)= 777777 777777 C(E)= 000777 777377 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777377 C(AC+1)= 377777 777777 ---------- *042733 DFAD 4,044027 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 776777 C(AC+1)= 777777 777777 C(E)= 000777 776777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 776777 C(AC+1)= 377777 777777 ---------- *042742 DFAD 4,044031 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 775777 C(AC+1)= 777777 777777 C(E)= 000777 775777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 775777 C(AC+1)= 377777 777777 ---------- *042751 DFAD 4,044033 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 773777 C(AC+1)= 777777 777777 C(E)= 000777 773777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 773777 C(AC+1)= 377777 777777 ---------- *042760 DFAD 4,044035 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 767777 C(AC+1)= 777777 777777 C(E)= 000777 767777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 767777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 150 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0467 *042767 DFAD 4,044037 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 757777 C(AC+1)= 777777 777777 C(E)= 000777 757777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 757777 C(AC+1)= 377777 777777 ---------- *042776 DFAD 4,044041 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 737777 C(AC+1)= 777777 777777 C(E)= 000777 737777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 737777 C(AC+1)= 377777 777777 ---------- *043005 DFAD 4,044043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 677777 C(AC+1)= 777777 777777 C(E)= 000777 677777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 677777 C(AC+1)= 377777 777777 ---------- *043014 DFAD 4,044045 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 577777 C(AC+1)= 777777 777777 C(E)= 000777 577777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 577777 C(AC+1)= 377777 777777 ---------- *043023 DFAD 4,044047 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 377777 C(AC+1)= 777777 777777 C(E)= 000777 377777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 377777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 151 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0468 *043032 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043041 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043050 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043057 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043066 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 152 DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0469 *043075 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043104 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043113 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043122 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- *043131 DFAD 4,043627 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 001777 777777 C(AC+1)= 377777 777777 ---------- rtl/MAINDEC-10-DSKCE.txt0000700000175100010010000232356112061454564 12732 0ustar RobNone;DSKCE IDENTIFICATION -------------- PRODUCT CODE: AH-E333A-DD DIAGNOSTIC CODE: DSKCE PRODUCT NAME: DSKCEA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (5) VERSION: 0.1 DATE RELEASED: JUNE 1978 MAINTAINED BY: DIAGNOSTIC ENGINEERING AUTHOR: JOHN R. KIRCHOFF COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT CORPORATION. THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. MAINDEC-10-DSKCE.TXT PAGE 2 SEQ 0003 TABLE OF CONTENTS ----------------- 1.0 ABSTRACT 2.0 REQUIREMENTS 2.1 EQUIPMENT 2.2 STORAGE 2.3 PRELIMINARY PROGRAMS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE 3.2 STARTING PROCEDURE 3.3 OPERATING PROCEDURE 4.0 DATA SWITCH FUNCTIONS 5.0 ERRORS 6.0 ITERATION COUNTER 7.0 CYCLE TIME 8.0 OPERATIONAL VARIATIONS 9.0 MISCELLANEOUS 10.0 LISTING MAINDEC-10-DSKCE.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE FIFTH IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE DOUBLE PRECISION FLOATING POINT INSTRUCTIONS: DFAD, DFSB, DFMP AND DFDV. 2.0 REQUIREMENTS 2.1 EQUIPMENT A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE LOAD DEVICE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS PREVIOUS PROCESSOR DIAGNOSTICS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE ****** NOTE ****** THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE PROGRAM BE RESIDENT IN THE DECSYSTEM 2020. FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES. MAINDEC-10-DSKCE.TXT PAGE 4 SEQ 0005 3.2 STARTING PROCEDURE A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO 4.0 DATA SWITCH FUNCTIONS). RUN UNDER "SMMON". THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE OPERATIONAL SWITCHES: TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) - IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS ARE ASKED AND THE OPERATOR RESPONDS BY TYPING THE ANSWER AS SIX OCTAL DIGITS REPRESENTING THE DESIRED SWITCH SETTINGS. SPECIFY LH SWITCHES IN OCTAL- SPECIFY RH SWITCHES IN OCTAL- IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR THE SWITCH SETTINGS. IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES ARE USED. THIS IS ONLY VALID UPON RESTARTING OF AN INTERRUPTED PROGRAM. MAINDEC-10-DSKCE.TXT PAGE 5 SEQ 0006 3.3 OPERATING PROCEDURE A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA SWITCHES SHOULD BE SET TO 0. B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING. THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT TO BE ISOLATED AND REPLACED AND/OR REPAIRED. C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'. THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH SETTINGS FOR DEBUGGING PURPOSES. D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING ERRORS ON THE LINE PRINTER. E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT BUT HALT THE PROGRAM POINTING TO THE ERROR. MAINDEC-10-DSKCE.TXT PAGE 6 SEQ 0007 4.0 DATA SWITCH FUNCTIONS SWITCH STATE FUNCTION ------ ----- -------- 0 ABORT 0 NORMAL OPERATION 1 ABORT AT END OF PASS 1 RSTART NOT USED 2 TOTALS NOT USED 3 NOPNT 0 NORMAL TYPEOUT 1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED) 4 PNTLPT 0 NORMAL OUTPUT TO TTY 1 PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 5 DING 0 NO FUNCTION 1 RING TTY BELL ON ERROR 6 LOOPER 0 PROCEED TO NEXT TEST 1 ENTER SCOPE LOOP ON TEST ERROR 7 ERSTOP 0 NO FUNCTION 1 HALT ON TEST ERROR 8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING 1 PRINT ALL ERRORS, EVEN IF SAME ERROR 9 RELIAB NOT USED 10 TXTINH 0 PRINT FULL ERROR MESSAGES. 1 INHIBIT COMMENT PORTION OF ERROR MESSAGES. 11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE 1 INHIBIT PAGING AND TRAPPING 12 MODDVC NOT USED 13 INHCSH 0 ALLOW CACHE USE 1 INHIBIT CACHE MAINDEC-10-DSKCE.TXT PAGE 7 SEQ 0008 5.0 ERRORS ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR NUMBER AND THE CONTENTS OF AN APPLICABLE AC. THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING. THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY BE MADE AT SOME FUTURE DATE. IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET. 6.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE CONSOLE PROCESSOR. 7.0 CYCLE TIME THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC. MAINDEC-10-DSKCE.TXT PAGE 8 SEQ 0009 8.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE PROGRAM IS USED IN THIS MANNER. THEY ARE: 1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR CONTROL WORD. LH = 0, STAND-ALONE OPERATION -1, RUNNING UNDER DIAGNOSTIC MONITOR RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER DIAGNOSTIC MONITOR CONTROL. B. USER MODE TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING OUTPUT FILE IS 'DSKCE.LPT' EXAMPLE DEVICE ASSIGNMENT: .ASSIGN DSK DEV IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN RETURN TO DIAMON COMMAND MODE. MAINDEC-10-DSKCE.TXT PAGE 9 SEQ 0010 8.0 OPERATIONAL VARIATIONS (CON'T) THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.). IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' COMMAND. C. SYSTEM EXERCISER START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN 'SWTEXR' LOC 30023. 9.0 MISCELLANEOUS THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET (0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE. 10.0 LISTING HISTORY FILE FOR DSKCE SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKCE TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (5) VERSION: 0.1 DATE: JUNE 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. PREVIOUS MARCH RELEASE MODIFIED FOR TEST S73400 DUE TO SPECIFICATION CHANGE ON LEAST SIGNIFICANT BIT FOR DOUBLE FLOATING DIVIDE. --------------------------------------------------------------- DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1 DSKCET MAC 21-Jun-78 09:35 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;MAINDEC-10-DSKCE 2 3 000000 MCNVER=0 4 000001 DECVER=1 5 6 XLIST 7 LIST 8 LALL 9 10 NAME \MCNVER,\DECVER^ 11 12 TITLE DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 ^ 13 14 XALL 15 16 ;COPYRIGHT 1978 17 ;DIGITAL EQUIPMENT CORPORATION 18 ;MARLBORO, MASS. 01752 19 20 ;JOHN R. KIRCHOFF 21 22 000137 LOC 137 23 000137 000000 000001 MCNVER,,DECVER 24 NOSYM DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0013 25 SUBTTL DIAGNOSTIC PARAMETERS 26 27 ;OPERATOR DEFINITIONS 28 29 001000 000000 OPDEF ER1 [1B8] 30 002000 000000 OPDEF ER2 [2B8] 31 003000 000000 OPDEF ER3 [3B8] 32 004000 000000 OPDEF ER4 [4B8] 33 005000 000000 OPDEF ER5 [5B8] 34 006000 000000 OPDEF ER6 [6B8] 35 007000 000000 OPDEF ER7 [7B8] 36 010000 000000 OPDEF ER10 [10B8] 37 011000 000000 OPDEF ER11 [11B8] 38 012000 000000 OPDEF ER12 [12B8] 39 013000 000000 OPDEF ER13 [13B8] 40 41 037666 LUUO1==ERRMES 42 037666 LUUO2==ERRMES 43 037666 LUUO3==ERRMES 44 037666 LUUO4==ERRMES 45 037666 LUUO5==ERRMES 46 037666 LUUO6==ERRMES 47 037666 LUUO7==ERRMES 48 037666 LUUO10==ERRMES 49 037666 LUUO11==ERRMES 50 037666 LUUO12==ERRMES 51 037666 LUUO13==ERRMES 52 53 ;SUBROUTINE ASSEMBLY DEFINITIONS 54 55 000100 DEBUG=100 56 000001 EXCASB=1 57 000001 USRASB=1 58 000001 PGMEND=1 59 000001 ERDIAG=1 60 000001 EROLD=1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0014 61 ;MACROS 62 63 DEFINE SAVEAC (A,B)< 64 MOVEI AC+2,. 65 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 66 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 67 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> 68 69 ;BEGIN ASSEMBLY PARAMETERS 70 71 030000 SADR1=BEGIN 72 030076 SADR2=RESRT1 73 030600 SADR3=RENTR1 74 030007 SADR4=SRTDDT 75 030061 SADR5=$BEND2 76 030000 SADR6=BEGIN 77 254200 030000 SADR7=HALT BEGIN 78 254200 030000 SADR8=HALT BEGIN 79 254200 030000 SADR9=HALT BEGIN 80 254200 030000 SADR10=HALT BEGIN 81 254200 030000 SADR11=HALT BEGIN 82 83 000000 PAREA1=0 84 000000 PAREA2=0 85 446353 434500 PAREA3=SIXBIT/DSKCE/ 86 546064 000000 PAREA4=SIXBIT/LPT/ 87 000000 PAREA5=0 88 000000 PAREA6=0 89 90 000001 ITERAT=1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0015 91 DEFINE DMVE (L,A,B,C,D) < 92 ;THIS MACRO TESTS THE DMOVE INSTRUCTION 93 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 94 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 95 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION. 96 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS 97 ;[XWD A,B] AND [XWD C,D], RESPECTIVELY. THE TEST PASSES IF THESE 98 ;COMPARISONS AGREE. 99 100 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS 101 MOVE AC+6,[XWD C,D] ;FOR COMPARISON 102 MOVE AC,[XWD 707070,707070] 103 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 104 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D 105 XWD C,D] ;FROM MEMORY TO AC, AC+1 106 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 107 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B 108 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 109 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = C,D 110 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> 111 112 113 DEFINE DMVE17 (L,T,A,B,C,D) < 114 ;THIS MACRO TESTS THE DMOVE INSTRUCTION 115 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 116 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 117 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION. 118 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST 119 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 120 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 121 122 Q'T'0: MOVEM AC,%SV17# ;SAVE AC17 123 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS 124 MOVE AC+6,[XWD C,D] ;FOR COMPARISON 125 MOVE AC,[XWD 707070,707070] 126 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 127 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D 128 XWD C,D] ;FROM MEMORY TO AC, AC+1 129 Q'T'3: CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 130 JRST .+4 ;HERE IF NO ERROR 131 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS 132 MOVE AC,%SV17 ;RESTORE P 133 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B 134 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 135 JRST .+4 ;HERE IF NO ERROR 136 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD 137 MOVE AC,%SV17 ;RESTORE P 138 ER4 AC-1,L'2 139 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 140 JUMPL SAC,Q'T'0 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0016 141 DEFINE DMVN (L,A,B,C,D) < 142 ;THIS MACRO TESTS THE DMOVN INSTRUCTION 143 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 144 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 145 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA 146 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED 147 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST 148 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 149 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 150 151 Q'L'0: DMOVE AC,[XWD 707070,707070 152 XWD 070707,070707] ;INITIALIZE AC,AC+1 153 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON 154 IFIDN <0,0>,< 155 SETZ AC+6, 156 ADDI AC+5,1 > 157 IFIDN <400000,0>,< 158 SETZ AC+6, 159 ADDI AC+5,1 > 160 IFDIF <0,0>,< 161 IFDIF <400000,0>,< 162 MOVN AC+6,[XWD C,D] 163 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 164 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ; 165 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1 166 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 167 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B 168 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 169 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D 170 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0017 171 DEFINE DMVN17 (L,A,B,C,D) < 172 ;THIS MACRO TESTS THE DMOVN INSTRUCTION 173 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 174 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 175 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA 176 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED 177 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST 178 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 179 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 180 181 Q'L'0: MOVEM AC,%SV17 ;SAVE P 182 DMOVE AC,[XWD 707070,707070 183 XWD 070707,070707] ;INITIALIZE AC,AC+1 184 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON 185 IFIDN <0,0>,< 186 SETZ AC+6, 187 ADDI AC+5,1 > 188 IFIDN <400000,0>,< 189 SETZ AC+6, 190 ADDI AC+5,1 > 191 IFDIF <0,0>,< 192 IFDIF <400000,0>,< 193 MOVN AC+6,[XWD C,D] 194 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 195 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ; 196 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1 197 CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 198 JRST .+4 ;HERE IF TESTS OK 199 MOVEM AC,AC-1 ;SAVE BAD WORD 200 MOVE AC,%SV17 ;RESTORE P 201 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B 202 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 203 JRST .+4 ;HERE IF TESTS OK 204 MOVEM AC,AC-1 205 MOVE AC,%SV17 ;RESTORE P 206 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D 207 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY 208 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0018 209 DEFINE DMVNF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) < 210 ;**KS10** 211 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 212 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 213 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 214 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 215 216 ;**KL10** 217 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 218 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 219 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 220 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 221 222 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 223 DMOVN AC+1,[XWD A,B ;*DMOVN TEST 224 XWD C,D] 225 JSP AC,.+1 ;READ FLAGS 226 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK 227 TLNE AC,USERF ;IN USER MODE ? 228 JRST Q'L'4 ;YES 229 SKIPN SM10 ;KL10 ? 230 JRST Q'L'3 ;YES 231 ;KS10 EXEC MODE 232 CAME AC,[KSEF,,Q'L'1] 233 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 234 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH 235 JRST Q'L'6 236 ;KL10 EXEC MODE 237 Q'L'3: CAME AC,[KLEF,,Q'L'1] 238 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 239 JRST Q'L'2 240 ;KL10/KS10 USER MODE 241 Q'L'4: SKIPN SM10 ;KL10 ? 242 JRST Q'L'5 ;YES 243 ;KS10 USER MODE 244 CAME AC,[KSUF,,Q'L'1] 245 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 246 JRST Q'L'2 247 ;KL10 USER MODE 248 Q'L'5: CAME AC,[KLUF,,Q'L'1] 249 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 250 JRST Q'L'2 251 252 Q'L'6: JRST .+1> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0019 253 DEFINE DMVM (L,A,B,C,D) < 254 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION 255 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 256 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS. 257 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 258 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA 259 ;THE DMOVEM INSTRUCTION. C(TSTWD) AND C(TSTWD+1) ARE THEN 260 ;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 261 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 262 263 Q'L'0: DMOVE AC,[XWD 707070,707070 264 XWD 070707,070707] ;INITIALIZE TEST WORDS 265 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 266 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 267 DMOVE AC,[XWD A,B 268 XWD C,D] ;INITIALIZE AC,AC+1 269 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 270 ;TO MEMORY (TSTWD, TSTWD+1) 271 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 272 CAME AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY? 273 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B 274 CAME AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY? 275 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D 276 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> 277 278 DEFINE DMVNM (L,A,B,C,D) < 279 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION 280 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 281 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS. 282 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 283 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY 284 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION. 285 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE 286 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST 287 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 288 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 289 290 Q'L'0: DMOVE AC,[XWD 707070,707070 291 XWD 070707,070707] 292 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 293 DMOVE AC,[XWD A,B 294 XWD C,D] ;INITIALIZE AC,AC+1 295 DMOVN AC+5,[XWD A,B 296 XWD C,D] ;SET-UP TO CHECK RESULTS 297 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 298 ;TO MEMORY (TSTWD, TSTWD+1) 299 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 300 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 301 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B 302 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 303 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D 304 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0020 305 DEFINE DMVM17 (L,A,B,C,D) < 306 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION 307 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 308 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS. 309 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 310 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION. 311 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST 312 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 313 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 314 315 Q'L'0: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP 316 DMOVE AC,[XWD 707070,707070 317 XWD 070707,070707] ;INITIALIZE TEST WORDS 318 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 319 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 320 DMOVE AC,[XWD A,B 321 XWD C,D] ;INITIALIZE AC,AC+1 322 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 323 ;TO MEMORY (TSTWD, TSTWD+1) 324 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 325 CAMN AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY? 326 JRST .+4 ;HERE IF TESTS OK 327 MOVEM AC,AC-1 ;SAVE BAD WORD 328 MOVE AC,%SV17 ;RESTORE P 329 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B 330 CAMN AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY? 331 JRST .+4 ;HERE IF TESTS OK 332 MOVEM AC,AC-1 ;SAVE BAD WORD 333 MOVE AC,%SV17 ;RESTORE P 334 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D 335 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 336 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0021 337 DEFINE DMVNM17 (L,A,B,C,D) < 338 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION 339 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 340 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS. 341 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 342 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY 343 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION. 344 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE 345 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST 346 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 347 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 348 349 Q'L'0: DMOVE AC,[XWD 707070,707070 350 XWD 070707,070707] 351 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 352 DMOVE AC,[XWD A,B 353 XWD C,D] ;INITIALIZE AC,AC+1 354 DMOVN AC+5,[XWD A,B 355 XWD C,D] ;SET-UP TO CHECK RESULTS 356 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 357 ;TO MEMORY (TSTWD, TSTWD+1) 358 359 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 360 CAMN AC,&17 ;WAS TSTWD LOADED CORRECTLY? 361 JRST .+4 362 MOVEM AC,AC-1 ;SAVE BAD WORD 363 MOVE AC,%SV17 ;RESTORE P 364 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B 365 CAMN AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 366 JRST .+4 ;HERE IF TESTS OK 367 MOVEM AC,AC-1 ;SAVE BAD WORD 368 MOVE AC,%SV17 369 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D 370 MOVE AC,%SV17 371 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 11 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0022 372 DEFINE DMVNMF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) < 373 ;**KS10** 374 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 375 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 376 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 377 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 378 379 ;**KL10** 380 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 381 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 382 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 383 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 384 385 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 386 DMOVE AC,[XWD A,B 387 XWD C,D] ;SETUP INITIAL 388 DMOVNM AC,TSTWD ;*DMOVNM TEST 389 JSP AC,.+1 ;READ FLAGS 390 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK 391 TLNE AC,USERF ;IN USER MODE ? 392 JRST Q'L'4 ;YES 393 SKIPN SM10 ;KL10 ? 394 JRST Q'L'3 ;YES 395 ;KS10 EXEC MODE 396 CAME AC,[KSEF,,Q'L'1] 397 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 398 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH 399 JRST Q'L'6 400 ;KL10 EXEC MODE 401 Q'L'3: CAME AC,[KLEF,,Q'L'1] 402 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 403 JRST Q'L'2 404 ;KL10/KS10 USER MODE 405 Q'L'4: SKIPN SM10 ;KL10 ? 406 JRST Q'L'5 ;YES 407 ;KS10 USER MODE 408 CAME AC,[KSUF,,Q'L'1] 409 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 410 JRST Q'L'2 411 ;KL10 USER MODE 412 Q'L'5: CAME AC,[KLUF,,Q'L'1] 413 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 414 JRST Q'L'2 415 416 Q'L'6: JRST .+1> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 12 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0023 417 DEFINE DFA (T,A,B,C,D,E,F,G,H,I,M,K,L) < 418 R'T'00: DMOVE AC,[A,,B 419 C,,D] 420 DFAD AC,[E,,F 421 G,,H] 422 CAME AC,[I,,M] 423 ER3 AC,T'01 424 CAME AC+1,[K,,L] 425 ER4 AC+1,T'01 426 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 427 428 DEFINE DFS (T,A,B,C,D,E,F,G,H,I,M,K,L) < 429 R'T'00: DMOVE AC,[A,,B 430 C,,D] 431 DFSB AC,[E,,F 432 G,,H] 433 CAME AC,[I,,M] 434 ER3 AC,T'01 435 CAME AC+1,[K,,L] 436 ER4 AC+1,T'01 437 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 438 439 DEFINE DFM (T,A,B,C,D,E,F,G,H,I,M,K,L) < 440 R'T'00: DMOVE AC,[A,,B 441 C,,D] 442 DFMP AC,[E,,F 443 G,,H] 444 CAME AC,[I,,M] 445 ER3 AC,T'01 446 CAME AC+1,[K,,L] 447 ER4 AC+1,T'01 448 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 449 450 DEFINE DFD (T,A,B,C,D,E,F,G,H,I,M,K,L) < 451 R'T'00: DMOVE AC,[A,,B 452 C,,D] 453 DFDV AC,[E,,F 454 G,,H] 455 CAME AC,[I,,M] 456 ER3 AC,T'01 457 CAME AC+1,[K,,L] 458 ER4 AC+1,T'01 459 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 13 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0024 460 DEFINE DFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) < 461 DMOVE AC,[A,,B 462 C,,D] 463 DFAD AC,[E,,F 464 G,,H] 465 CAME AC,[I,,M] 466 ER3 AC,T 467 CAME AC+1,[K,,L] 468 ER4 AC+1,T 469 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH> 470 471 DEFINE SDFA (T,A,B,C,D,E,F,G,H,I,M,K,L) < 472 S'T'00: DMOVE AC,[A,,B 473 C,,D] 474 DFAD AC,[E,,F 475 G,,H] 476 CAME AC,[I,,M] 477 ER3 AC,T'01 478 CAME AC+1,[K,,L] 479 ER4 AC+1,T'01 480 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> 481 482 DEFINE SDFS (T,A,B,C,D,E,F,G,H,I,M,K,L) < 483 S'T'00: DMOVE AC,[A,,B 484 C,,D] 485 DFSB AC,[E,,F 486 G,,H] 487 CAME AC,[I,,M] 488 ER3 AC,T'01 489 CAME AC+1,[K,,L] 490 ER4 AC+1,T'01 491 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> 492 493 DEFINE SDFM (T,A,B,C,D,E,F,G,H,I,M,K,L) < 494 S'T'00: DMOVE AC,[A,,B 495 C,,D] 496 DFMP AC,[E,,F 497 G,,H] 498 CAME AC,[I,,M] 499 ER3 AC,T'01 500 CAME AC+1,[K,,L] 501 ER4 AC+1,T'01 502 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 14 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0025 503 DEFINE SDFMKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) < 504 S'T'00: DMOVE AC,[A,,B 505 C,,D] 506 DFMP AC,[E,,F 507 G,,H] 508 SKIPE KLFLG 509 JRST S'T'05 510 CAME AC,[I,,M] 511 ER3 AC,T'01 512 CAME AC+1,[K,,L] 513 ER4 AC+1,T'01 514 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH 515 JRST S'T'07 516 517 S'T'05: CAME AC,[KL1,,KL2] 518 ER3 AC,T'01 519 CAME AC+1,[KL3,,KL4] 520 ER4 AC+1,T'01 521 JRST S'T'06 522 523 S'T'07: JRST .+1 > 524 525 DEFINE SDFD (T,A,B,C,D,E,F,G,H,I,M,K,L) < 526 S'T'00: DMOVE AC,[A,,B 527 C,,D] 528 DFDV AC,[E,,F 529 G,,H] 530 CAME AC,[I,,M] 531 ER3 AC,T'01 532 CAME AC+1,[K,,L] 533 ER4 AC+1,T'01 534 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 15 DSKCET MAC 21-Jun-78 09:35 DIAGNOSTIC PARAMETERS SEQ 0026 535 DEFINE SDFDKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) < 536 S'T'00: DMOVE AC,[A,,B 537 C,,D] 538 DFDV AC,[E,,F 539 G,,H] 540 SKIPN SM10 541 JRST S'T'05 542 CAME AC,[I,,M] 543 ER3 AC,T'01 544 CAME AC+1,[K,,L] 545 ER4 AC+1,T'01 546 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH 547 JRST S'T'07 548 549 S'T'05: CAME AC,[KL1,,KL2] 550 ER3 AC,T'01 551 CAME AC+1,[KL3,,KL4] 552 ER4 AC+1,T'01 553 JRST S'T'06 554 555 S'T'07: JRST .+1 > 556 557 DEFINE SDFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) < 558 DMOVE AC,[A,,B 559 C,,D] 560 DFAD AC,[E,,F 561 G,,H] 562 CAME AC,[I,,M] 563 ER3 AC,T 564 CAME AC+1,[K,,L] 565 ER4 AC+1,T 566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH> DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1 PARAM KSM 28-Mar-78 16:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0027 567 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 568 569 DEFINE S,<;*********************************************************************> 570 571 S^;*********************************************************************^ 572 ;*DATA SWITCHES 573 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 574 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 575 S^;*********************************************************************^ 576 577 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 578 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 579 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 580 581 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 582 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 583 010000 DING== 010000 ;RING BELL ON ERROR 584 585 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 586 002000 ERSTOP==002000 ;HALT ON TEST ERROR 587 001000 PALERS==001000 ;PRINT ALL ERRORS 588 589 000400 RELIAB==000400 ;RELIABILITY MODE 590 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 591 000100 INHPAG==000100 ;INHIBIT PAGING 592 593 000040 MODDVC==000040 ;MODIFY DEVICE CODE 594 000020 INHCSH==000020 ;INHIBIT CACHE 595 000010 OPRSEL==000010 ;OPERATOR SELECTION 596 597 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 598 599 ;SWITCH 16 RESERVED 600 601 ;SWITCH 17 RESERVED !!! DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2 PARAM KSM 28-Mar-78 16:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0028 602 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 603 604 S^;*********************************************************************^ 605 ;*SPECIAL SUBPROGRAM LINKAGES 606 S^;*********************************************************************^ 607 608 027772 FSELNK= 27772 ;FILE SELECT LINK 609 027773 FRDLNK= 27773 ;FILE READ LINK 610 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 611 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 612 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 613 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 614 615 S^;*********************************************************************^ 616 ;*SPECIAL SUBROUTINE FATAL HALTS 617 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 618 S^;*********************************************************************^ 619 620 ;ADDRESS TAG REASON 621 ;--------------------- 622 623 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 624 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 625 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 626 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 627 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 628 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 629 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 630 ; 1017 EOPERR ;END OF PROGRAM ERROR 631 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 632 633 S^;*********************************************************************^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3 PARAM KSM 28-Mar-78 16:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0029 634 S^;*********************************************************************^ 635 ;OPERATOR DEFINITIONS (NON-UUO'S) 636 S^;*********************************************************************^ 637 638 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 639 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 640 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 641 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 642 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 643 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 644 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 645 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 646 647 S^;*********************************************************************^ 648 ;*SUBROUTINE INITIALIZATION CALL 649 S^;*********************************************************************^ 650 651 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 652 653 S^;*********************************************************************^ 654 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 655 S^;*********************************************************************^ 656 657 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 658 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 659 660 S^;*********************************************************************^ 661 ;*TERMINAL INPUT UUO'S 662 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 663 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 664 S^;*********************************************************************^ 665 666 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 667 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 668 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 669 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 670 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 671 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 672 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 673 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 674 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 675 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 676 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4 PARAM KSM 28-Mar-78 16:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0030 677 ;*TERMINAL OUTPUT UUO'S. 678 679 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 680 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 681 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 682 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 683 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 684 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 685 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 686 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 687 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 688 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 689 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 690 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 691 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 692 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 693 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 694 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 695 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 696 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 697 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 698 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 699 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 700 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 701 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 702 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 703 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 704 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 705 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 706 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 707 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 708 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 709 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 710 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 711 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 712 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 713 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 714 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 715 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 716 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 717 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 718 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 719 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 720 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5 PARAM KSM 28-Mar-78 16:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0031 721 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 722 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 723 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 724 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 725 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 726 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 727 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 728 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 729 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 730 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 731 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 732 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 733 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 734 735 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 736 737 DEFINE PMSG (ARG),< 738 PSIXM [SIXBIT\ARG'_\]> 739 740 DEFINE PMSGF (ARG),< 741 PSIXMF [SIXBIT\ARG'_\]> 742 743 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 744 ;* CONSERVES CORE OVER ASCIZ 745 746 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 747 748 ;*CONSOLE SWITCH INPUT UUO. 749 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 750 ;* USER MODE. 751 752 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 753 754 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 755 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 756 757 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 758 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 759 760 ;*KS-10 CACHE OPERATION UUO'S 761 762 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 763 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 764 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6 PARAM KSM 28-Mar-78 16:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0032 765 ;*END OF PASS/PROGRAM UUOS 766 767 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 768 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 769 770 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 771 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 772 773 ;*MEMORY MANAGEMENT UUO'S 774 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 775 ;*ADDRESS CONVERSION, ETC... 776 777 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 778 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 779 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 780 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 781 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 782 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 783 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 784 785 ;*DEVICE CODE MODIFICATION UUO 786 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 787 ;*IOT'S TO A DIFFERENT DEVICE CODE. 788 789 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 790 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 791 792 030000 IFNDEF MODDVL, 793 030000 IFNDEF MODDVU, 794 795 ;*"DIAMON" FILE SELECTION AND READ UUOS 796 797 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 798 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 799 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 800 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 801 802 XLIST 803 LIST DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0033 804 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 805 806 030000 LOC 30000 807 808 S^;*********************************************************************^ 809 ;*PROGRAM STARTING ADDRESSES 810 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 811 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 812 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 813 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 814 S^;*********************************************************************^ 815 816 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 817 030001 254 00 0 00 030617 $START: JRST START ;MODE CHECK STARTING ADDRESS 818 819 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 820 821 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 822 823 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 824 825 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 826 827 030006 254 00 0 00 030600 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 828 829 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 830 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 831 832 030010 254 00 0 00 030622 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 833 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 834 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 835 836 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 837 030014 254200 030000 START2: SADR8 ; " 838 030015 254200 030000 START3: SADR9 ; " 839 030016 254200 030000 START4: SADR10 ; " 840 030017 254200 030000 START5: SADR11 ; " DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0034 841 S^;*********************************************************************^ 842 ;*PROGRAM FIXED PARAMETER AREA 843 S^;*********************************************************************^ 844 845 030020 446353 434500 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 846 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 847 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 848 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 849 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 850 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 851 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 852 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 853 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 854 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 855 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 856 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 857 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 858 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 859 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 860 861 S^;*********************************************************************^ 862 ;*PROGRAM VARIABLE PARAMETER AREA 863 S^;*********************************************************************^ 864 865 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 866 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 867 030041 777777 777777 KLFLG: -1 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 868 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 869 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 870 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 871 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 872 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 873 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 874 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 875 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 876 030052 000000 000000 ERRPC: 0 ;ERROR PC 877 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 878 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 879 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 880 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0035 881 S^;*********************************************************************^ 882 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 883 S^;*********************************************************************^ 884 885 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 886 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 887 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 888 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 889 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 890 030064 CPOPJ1: ;SKIP RETURN 891 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 892 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 893 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 894 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 895 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 896 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 897 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 898 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 899 030073 255 00 0 00 000000 $USRHL: JFCL ; " 900 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 901 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 902 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 903 030077 255 00 0 00 000000 RESRT2: JFCL ; " 904 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 905 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 906 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 907 908 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 909 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 910 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 911 912 S^;*********************************************************************^ 913 ;*PROCESSOR CONTROL STORAGE 914 S^;*********************************************************************^ 915 916 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 917 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 918 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 919 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 920 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 921 922 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 923 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 924 925 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 926 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 927 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 928 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 929 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 930 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 931 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0036 932 S^;*********************************************************************^ 933 ;*UUO DISPATCH TABLE 934 S^;*********************************************************************^ 935 XLIST 936 LIST 937 030124 037666 030070 UUODIS: LUUO1,,$UUOER 938 030125 037666 037666 LUUO3,,LUUO2 939 030126 037666 037666 LUUO5,,LUUO4 940 030127 037666 037666 LUUO7,,LUUO6 941 030130 037666 037666 LUUO11,,LUUO10 942 030131 037666 037666 LUUO13,,LUUO12 943 030132 030070 030070 LUUO15,,LUUO14 944 030133 030070 030070 LUUO17,,LUUO16 945 030134 030070 030070 LUUO21,,LUUO20 946 030135 030070 030070 LUUO23,,LUUO22 947 030136 030070 030070 LUUO25,,LUUO24 948 030137 030070 030070 LUUO27,,LUUO26 949 030140 030070 030070 LUUO31,,LUUO30 950 030141 030070 030070 LUUO33,,LUUO32 951 952 S^;*********************************************************************^ 953 ;*MEMORY MANAGMENT STORAGE 954 S^;*********************************************************************^ 955 956 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 957 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 958 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 959 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 960 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 961 962 S^;*********************************************************************^ 963 ;*PRINT CONTROL STORAGE 964 S^;*********************************************************************^ 965 966 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 967 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 968 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 969 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 970 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 971 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 972 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 973 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 974 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 975 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 976 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 977 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 978 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 979 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 980 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 981 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 982 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 983 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 984 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0037 985 S^;*********************************************************************^ 986 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 987 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 988 ;* MOVEI NAME 989 ;* PNTA ;OR PNTAF 990 S^;*********************************************************************^ 991 992 030242 CRLF: ASCII/ 993 030242 015 012 000 000 000 / 994 030243 CRLF2: ASCII/ 995 996 030243 015 012 015 012 000 / 997 030244 054 000 000 000 000 COMMA: ASCII/,/ 998 030245 056 000 000 000 000 PERIOD: ASCII/./ 999 030246 040 000 000 000 000 SPACE: ASCII/ / 1000 030247 011 000 000 000 000 TAB: ASCII/ / 1001 030250 MINUS: 1002 030250 055 000 000 000 000 HYPEN: ASCII/-/ 1003 030251 053 000 000 000 000 PLUS: ASCII/+/ 1004 030252 052 000 000 000 000 AST: ASCII/*/ 1005 030253 100 000 000 000 000 ATSIN: ASCII/@/ 1006 030254 050 000 000 000 000 LFP: ASCII/(/ 1007 030255 051 000 000 000 000 RTP: ASCII/)/ 1008 030256 007 0000000000 BELL: BYTE (7) 007 1009 030257 077 000 000 000 000 QUEST: ASCII/?/ 1010 030260 057 000 000 000 000 SLASH: ASCII!/! 1011 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 1012 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 1013 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 1014 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 1015 1016 S^;*********************************************************************^ 1017 ;*USER MODE OUTPUT FILE INFORMATION 1018 S^;*********************************************************************^ 1019 1020 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 1021 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 1022 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 1023 030272 BLOCK 2 1024 1025 S^;*********************************************************************^ 1026 ;*DISK UPDATE MODE FILE INFORMATION 1027 S^;*********************************************************************^ 1028 1029 030274 $IBUF: BLOCK 3 1030 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 1031 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 1032 030301 BLOCK 2 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0038 1033 S^;*********************************************************************^ 1034 ;*PUSHDOWN LIST CONTROL INFORMATION 1035 S^;*********************************************************************^ 1036 1037 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 1038 030304 PLISTS: BLOCK 200 1039 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 1040 1041 S^;*********************************************************************^ 1042 ;*POWER LINE CLOCK FREQUENCY FLAG 1043 S^;*********************************************************************^ 1044 1045 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 1046 1047 S^;*********************************************************************^ 1048 ;*KL10 CACHE CONTROL FLAGS 1049 S^;*********************************************************************^ 1050 1051 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 1052 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 1053 1054 S^;*********************************************************************^ 1055 ;*NUMBER INPUT DIGIT FLAG 1056 S^;*********************************************************************^ 1057 1058 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 1059 1060 S^;*********************************************************************^ 1061 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 1062 S^;*********************************************************************^ 1063 1064 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 1065 1066 S^;*********************************************************************^ 1067 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 1068 S^;*********************************************************************^ 1069 1070 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 1071 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 1072 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 1073 1074 S^;*********************************************************************^ 1075 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 1076 S^;*********************************************************************^ 1077 1078 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7 FIXED KSM 28-Mar-78 16:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0039 1079 S^;*********************************************************************^ 1080 ;*USER MODE MONITOR TYPE FLAG 1081 S^;*********************************************************************^ 1082 1083 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 1084 1085 S^;*********************************************************************^ 1086 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 1087 S^;*********************************************************************^ 1088 1089 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 1090 1091 S^;*********************************************************************^ 1092 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 1093 S^;*********************************************************************^ 1094 1095 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 1096 1097 S^;*********************************************************************^ 1098 ;*"SWITCH" CALL USAGE CONTROL 1099 S^;*********************************************************************^ 1100 1101 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 1102 1103 S^;*********************************************************************^ 1104 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 1105 S^;*********************************************************************^ 1106 1107 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 1108 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 1109 1110 S^;*********************************************************************^ 1111 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 1112 S^;*********************************************************************^ 1113 1114 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 1115 1116 S^;*********************************************************************^ 1117 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 1118 S^;*********************************************************************^ 1119 1120 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 1121 1122 S^;*********************************************************************^ 1123 ;*SPECIAL FUTURE EXPANSION ROOM 1124 S^;*********************************************************************^ 1125 1126 S^;*********************************************************************^ 1127 ;*END OF FIXED STORAGE 1128 S^;*********************************************************************^ 1129 1130 030577 LOC 30577 1131 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1 DSKCE1 MAC 21-Jun-78 10:46 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0040 1132 030600 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE 1133 030601 040 00 0 00 040054 CALL [SIXBIT .EXIT.] 1134 1135 030602 PGMNAM: ASCIZ? 1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5 (DSKCE) 1137 030603 123 131 123 124 105 1138 030604 115 040 062 060 062 1139 030605 060 040 101 104 126 1140 030606 101 116 103 105 104 1141 030607 040 111 116 123 124 1142 030610 122 125 103 124 111 1143 030611 117 116 040 104 111 1144 030612 101 107 116 117 123 1145 030613 124 111 103 040 043 1146 030614 065 040 050 104 123 1147 030615 113 103 105 051 015 1148 030616 012 000 000 000 000 ? 1149 ;INITIALIZE SUBROUTINES 1150 1151 030617 265 00 0 00 030011 START: PGMINT 1152 030620 200 00 0 00 040055 MOVE [ASCIZ/CE/] 1153 030621 201 10 0 00 000000 MOVEI 10,0 ;FIXME: Hacked for KS10 FPGA testing by R Doyle 1154 1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0041 1156 SUBTTL CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS 1157 1158 000004 AC=4 1159 030623 CE00: SAVEAC (1,1)^ 1160 030623 201 06 0 00 030623 MOVEI AC+2,. 1161 030624 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 1162 030625 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 1163 030626 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 1164 030627 254 02 1 00 040056 JRSTF @[.+1] ;CLEAR ALL FLAGS 1165 1166 000101 T=101 1167 030630 S100: SDFARP T,201400,0,0,0,577400,0,0,0,200400,0,0,0^ 1168 DMOVE AC,[201400,,0 1169 030630 120 04 0 00 040057 0,,0] 1170 DFAD AC,[577400,,0 1171 030631 110 04 0 00 040061 0,,0] 1172 030632 312 04 0 00 040063 CAME AC,[200400,,0] 1173 030633 003 04 0 00 000101 ER3 AC,T 1174 030634 312 05 0 00 040060 CAME AC+1,[0,,0] 1175 030635 004 05 0 00 000101 ER4 AC+1,T 1176 030636 321 10 0 00 030630 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1177 1178 000400 XX=400 1179 200400 ZZ=200400 1180 1181 REPEAT ^D8, 1182 1187 000102 T=T+1 1188 000200 XX=XX/2 1189 177400 ZZ=ZZ-1000 1190 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1191 DMOVE AC,[200400+XX,,0 1192 030637 120 04 0 00 040064 0,,0] 1193 DFAD AC,[577400,,0 1194 030640 110 04 0 00 040061 0,,0] 1195 030641 312 04 0 00 040066 CAME AC,[ZZ,,0] 1196 030642 003 04 0 00 000102 ER3 AC,T 1197 030643 312 05 0 00 040060 CAME AC+1,[0,,0] 1198 030644 004 05 0 00 000102 ER4 AC+1,T 1199 030645 321 10 0 00 030637 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1200 1201 000103 T=T+1 1202 000100 XX=XX/2 1203 176400 ZZ=ZZ-1000 1204 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1205 DMOVE AC,[200400+XX,,0 1206 030646 120 04 0 00 040067 0,,0] 1207 DFAD AC,[577400,,0 1208 030647 110 04 0 00 040061 0,,0] 1209 030650 312 04 0 00 040071 CAME AC,[ZZ,,0] 1210 030651 003 04 0 00 000103 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-1 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0042 1211 030652 312 05 0 00 040060 CAME AC+1,[0,,0] 1212 030653 004 05 0 00 000103 ER4 AC+1,T 1213 030654 321 10 0 00 030646 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1214 1215 000104 T=T+1 1216 000040 XX=XX/2 1217 175400 ZZ=ZZ-1000 1218 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1219 DMOVE AC,[200400+XX,,0 1220 030655 120 04 0 00 040072 0,,0] 1221 DFAD AC,[577400,,0 1222 030656 110 04 0 00 040061 0,,0] 1223 030657 312 04 0 00 040074 CAME AC,[ZZ,,0] 1224 030660 003 04 0 00 000104 ER3 AC,T 1225 030661 312 05 0 00 040060 CAME AC+1,[0,,0] 1226 030662 004 05 0 00 000104 ER4 AC+1,T 1227 030663 321 10 0 00 030655 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1228 1229 000105 T=T+1 1230 000020 XX=XX/2 1231 174400 ZZ=ZZ-1000 1232 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1233 DMOVE AC,[200400+XX,,0 1234 030664 120 04 0 00 040075 0,,0] 1235 DFAD AC,[577400,,0 1236 030665 110 04 0 00 040061 0,,0] 1237 030666 312 04 0 00 040077 CAME AC,[ZZ,,0] 1238 030667 003 04 0 00 000105 ER3 AC,T 1239 030670 312 05 0 00 040060 CAME AC+1,[0,,0] 1240 030671 004 05 0 00 000105 ER4 AC+1,T 1241 030672 321 10 0 00 030664 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1242 1243 000106 T=T+1 1244 000010 XX=XX/2 1245 173400 ZZ=ZZ-1000 1246 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1247 DMOVE AC,[200400+XX,,0 1248 030673 120 04 0 00 040100 0,,0] 1249 DFAD AC,[577400,,0 1250 030674 110 04 0 00 040061 0,,0] 1251 030675 312 04 0 00 040102 CAME AC,[ZZ,,0] 1252 030676 003 04 0 00 000106 ER3 AC,T 1253 030677 312 05 0 00 040060 CAME AC+1,[0,,0] 1254 030700 004 05 0 00 000106 ER4 AC+1,T 1255 030701 321 10 0 00 030673 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1256 1257 000107 T=T+1 1258 000004 XX=XX/2 1259 172400 ZZ=ZZ-1000 1260 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1261 DMOVE AC,[200400+XX,,0 1262 030702 120 04 0 00 040103 0,,0] 1263 DFAD AC,[577400,,0 1264 030703 110 04 0 00 040061 0,,0] 1265 030704 312 04 0 00 040105 CAME AC,[ZZ,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-2 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0043 1266 030705 003 04 0 00 000107 ER3 AC,T 1267 030706 312 05 0 00 040060 CAME AC+1,[0,,0] 1268 030707 004 05 0 00 000107 ER4 AC+1,T 1269 030710 321 10 0 00 030702 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1270 1271 000110 T=T+1 1272 000002 XX=XX/2 1273 171400 ZZ=ZZ-1000 1274 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1275 DMOVE AC,[200400+XX,,0 1276 030711 120 04 0 00 040106 0,,0] 1277 DFAD AC,[577400,,0 1278 030712 110 04 0 00 040061 0,,0] 1279 030713 312 04 0 00 040110 CAME AC,[ZZ,,0] 1280 030714 003 04 0 00 000110 ER3 AC,T 1281 030715 312 05 0 00 040060 CAME AC+1,[0,,0] 1282 030716 004 05 0 00 000110 ER4 AC+1,T 1283 030717 321 10 0 00 030711 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1284 1285 000111 T=T+1 1286 000001 XX=XX/2 1287 170400 ZZ=ZZ-1000 1288 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^ 1289 DMOVE AC,[200400+XX,,0 1290 030720 120 04 0 00 040111 0,,0] 1291 DFAD AC,[577400,,0 1292 030721 110 04 0 00 040061 0,,0] 1293 030722 312 04 0 00 040113 CAME AC,[ZZ,,0] 1294 030723 003 04 0 00 000111 ER3 AC,T 1295 030724 312 05 0 00 040060 CAME AC+1,[0,,0] 1296 030725 004 05 0 00 000111 ER4 AC+1,T 1297 030726 321 10 0 00 030720 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1298 1299 1300 000001 000000 XX=1000000 1301 1302 REPEAT ^D18, 1303 1308 000112 T=T+1 1309 400000 XX=XX/2 1310 167400 ZZ=ZZ-1000 1311 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1312 DMOVE AC,[200400,,XX 1313 030727 120 04 0 00 040114 0,,0] 1314 DFAD AC,[577400,,0 1315 030730 110 04 0 00 040061 0,,0] 1316 030731 312 04 0 00 040116 CAME AC,[ZZ,,0] 1317 030732 003 04 0 00 000112 ER3 AC,T 1318 030733 312 05 0 00 040060 CAME AC+1,[0,,0] 1319 030734 004 05 0 00 000112 ER4 AC+1,T 1320 030735 321 10 0 00 030727 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-3 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0044 1321 1322 000113 T=T+1 1323 200000 XX=XX/2 1324 166400 ZZ=ZZ-1000 1325 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1326 DMOVE AC,[200400,,XX 1327 030736 120 04 0 00 040117 0,,0] 1328 DFAD AC,[577400,,0 1329 030737 110 04 0 00 040061 0,,0] 1330 030740 312 04 0 00 040121 CAME AC,[ZZ,,0] 1331 030741 003 04 0 00 000113 ER3 AC,T 1332 030742 312 05 0 00 040060 CAME AC+1,[0,,0] 1333 030743 004 05 0 00 000113 ER4 AC+1,T 1334 030744 321 10 0 00 030736 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1335 1336 000114 T=T+1 1337 100000 XX=XX/2 1338 165400 ZZ=ZZ-1000 1339 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1340 DMOVE AC,[200400,,XX 1341 030745 120 04 0 00 040122 0,,0] 1342 DFAD AC,[577400,,0 1343 030746 110 04 0 00 040061 0,,0] 1344 030747 312 04 0 00 040124 CAME AC,[ZZ,,0] 1345 030750 003 04 0 00 000114 ER3 AC,T 1346 030751 312 05 0 00 040060 CAME AC+1,[0,,0] 1347 030752 004 05 0 00 000114 ER4 AC+1,T 1348 030753 321 10 0 00 030745 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1349 1350 000115 T=T+1 1351 040000 XX=XX/2 1352 164400 ZZ=ZZ-1000 1353 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1354 DMOVE AC,[200400,,XX 1355 030754 120 04 0 00 040125 0,,0] 1356 DFAD AC,[577400,,0 1357 030755 110 04 0 00 040061 0,,0] 1358 030756 312 04 0 00 040127 CAME AC,[ZZ,,0] 1359 030757 003 04 0 00 000115 ER3 AC,T 1360 030760 312 05 0 00 040060 CAME AC+1,[0,,0] 1361 030761 004 05 0 00 000115 ER4 AC+1,T 1362 030762 321 10 0 00 030754 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1363 1364 000116 T=T+1 1365 020000 XX=XX/2 1366 163400 ZZ=ZZ-1000 1367 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1368 DMOVE AC,[200400,,XX 1369 030763 120 04 0 00 040130 0,,0] 1370 DFAD AC,[577400,,0 1371 030764 110 04 0 00 040061 0,,0] 1372 030765 312 04 0 00 040132 CAME AC,[ZZ,,0] 1373 030766 003 04 0 00 000116 ER3 AC,T 1374 030767 312 05 0 00 040060 CAME AC+1,[0,,0] 1375 030770 004 05 0 00 000116 ER4 AC+1,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-4 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0045 1376 030771 321 10 0 00 030763 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1377 1378 000117 T=T+1 1379 010000 XX=XX/2 1380 162400 ZZ=ZZ-1000 1381 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1382 DMOVE AC,[200400,,XX 1383 030772 120 04 0 00 040133 0,,0] 1384 DFAD AC,[577400,,0 1385 030773 110 04 0 00 040061 0,,0] 1386 030774 312 04 0 00 040135 CAME AC,[ZZ,,0] 1387 030775 003 04 0 00 000117 ER3 AC,T 1388 030776 312 05 0 00 040060 CAME AC+1,[0,,0] 1389 030777 004 05 0 00 000117 ER4 AC+1,T 1390 031000 321 10 0 00 030772 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1391 1392 000120 T=T+1 1393 004000 XX=XX/2 1394 161400 ZZ=ZZ-1000 1395 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1396 DMOVE AC,[200400,,XX 1397 031001 120 04 0 00 040136 0,,0] 1398 DFAD AC,[577400,,0 1399 031002 110 04 0 00 040061 0,,0] 1400 031003 312 04 0 00 040140 CAME AC,[ZZ,,0] 1401 031004 003 04 0 00 000120 ER3 AC,T 1402 031005 312 05 0 00 040060 CAME AC+1,[0,,0] 1403 031006 004 05 0 00 000120 ER4 AC+1,T 1404 031007 321 10 0 00 031001 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1405 1406 000121 T=T+1 1407 002000 XX=XX/2 1408 160400 ZZ=ZZ-1000 1409 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1410 DMOVE AC,[200400,,XX 1411 031010 120 04 0 00 040141 0,,0] 1412 DFAD AC,[577400,,0 1413 031011 110 04 0 00 040061 0,,0] 1414 031012 312 04 0 00 040143 CAME AC,[ZZ,,0] 1415 031013 003 04 0 00 000121 ER3 AC,T 1416 031014 312 05 0 00 040060 CAME AC+1,[0,,0] 1417 031015 004 05 0 00 000121 ER4 AC+1,T 1418 031016 321 10 0 00 031010 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1419 1420 000122 T=T+1 1421 001000 XX=XX/2 1422 157400 ZZ=ZZ-1000 1423 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1424 DMOVE AC,[200400,,XX 1425 031017 120 04 0 00 040144 0,,0] 1426 DFAD AC,[577400,,0 1427 031020 110 04 0 00 040061 0,,0] 1428 031021 312 04 0 00 040146 CAME AC,[ZZ,,0] 1429 031022 003 04 0 00 000122 ER3 AC,T 1430 031023 312 05 0 00 040060 CAME AC+1,[0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-5 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0046 1431 031024 004 05 0 00 000122 ER4 AC+1,T 1432 031025 321 10 0 00 031017 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1433 1434 000123 T=T+1 1435 000400 XX=XX/2 1436 156400 ZZ=ZZ-1000 1437 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1438 DMOVE AC,[200400,,XX 1439 031026 120 04 0 00 040147 0,,0] 1440 DFAD AC,[577400,,0 1441 031027 110 04 0 00 040061 0,,0] 1442 031030 312 04 0 00 040151 CAME AC,[ZZ,,0] 1443 031031 003 04 0 00 000123 ER3 AC,T 1444 031032 312 05 0 00 040060 CAME AC+1,[0,,0] 1445 031033 004 05 0 00 000123 ER4 AC+1,T 1446 031034 321 10 0 00 031026 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1447 1448 000124 T=T+1 1449 000200 XX=XX/2 1450 155400 ZZ=ZZ-1000 1451 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1452 DMOVE AC,[200400,,XX 1453 031035 120 04 0 00 040152 0,,0] 1454 DFAD AC,[577400,,0 1455 031036 110 04 0 00 040061 0,,0] 1456 031037 312 04 0 00 040154 CAME AC,[ZZ,,0] 1457 031040 003 04 0 00 000124 ER3 AC,T 1458 031041 312 05 0 00 040060 CAME AC+1,[0,,0] 1459 031042 004 05 0 00 000124 ER4 AC+1,T 1460 031043 321 10 0 00 031035 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1461 1462 000125 T=T+1 1463 000100 XX=XX/2 1464 154400 ZZ=ZZ-1000 1465 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1466 DMOVE AC,[200400,,XX 1467 031044 120 04 0 00 040155 0,,0] 1468 DFAD AC,[577400,,0 1469 031045 110 04 0 00 040061 0,,0] 1470 031046 312 04 0 00 040157 CAME AC,[ZZ,,0] 1471 031047 003 04 0 00 000125 ER3 AC,T 1472 031050 312 05 0 00 040060 CAME AC+1,[0,,0] 1473 031051 004 05 0 00 000125 ER4 AC+1,T 1474 031052 321 10 0 00 031044 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1475 1476 000126 T=T+1 1477 000040 XX=XX/2 1478 153400 ZZ=ZZ-1000 1479 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1480 DMOVE AC,[200400,,XX 1481 031053 120 04 0 00 040160 0,,0] 1482 DFAD AC,[577400,,0 1483 031054 110 04 0 00 040061 0,,0] 1484 031055 312 04 0 00 040162 CAME AC,[ZZ,,0] 1485 031056 003 04 0 00 000126 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-6 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0047 1486 031057 312 05 0 00 040060 CAME AC+1,[0,,0] 1487 031060 004 05 0 00 000126 ER4 AC+1,T 1488 031061 321 10 0 00 031053 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1489 1490 000127 T=T+1 1491 000020 XX=XX/2 1492 152400 ZZ=ZZ-1000 1493 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1494 DMOVE AC,[200400,,XX 1495 031062 120 04 0 00 040163 0,,0] 1496 DFAD AC,[577400,,0 1497 031063 110 04 0 00 040061 0,,0] 1498 031064 312 04 0 00 040165 CAME AC,[ZZ,,0] 1499 031065 003 04 0 00 000127 ER3 AC,T 1500 031066 312 05 0 00 040060 CAME AC+1,[0,,0] 1501 031067 004 05 0 00 000127 ER4 AC+1,T 1502 031070 321 10 0 00 031062 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1503 1504 000130 T=T+1 1505 000010 XX=XX/2 1506 151400 ZZ=ZZ-1000 1507 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1508 DMOVE AC,[200400,,XX 1509 031071 120 04 0 00 040166 0,,0] 1510 DFAD AC,[577400,,0 1511 031072 110 04 0 00 040061 0,,0] 1512 031073 312 04 0 00 040170 CAME AC,[ZZ,,0] 1513 031074 003 04 0 00 000130 ER3 AC,T 1514 031075 312 05 0 00 040060 CAME AC+1,[0,,0] 1515 031076 004 05 0 00 000130 ER4 AC+1,T 1516 031077 321 10 0 00 031071 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1517 1518 000131 T=T+1 1519 000004 XX=XX/2 1520 150400 ZZ=ZZ-1000 1521 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1522 DMOVE AC,[200400,,XX 1523 031100 120 04 0 00 040171 0,,0] 1524 DFAD AC,[577400,,0 1525 031101 110 04 0 00 040061 0,,0] 1526 031102 312 04 0 00 040173 CAME AC,[ZZ,,0] 1527 031103 003 04 0 00 000131 ER3 AC,T 1528 031104 312 05 0 00 040060 CAME AC+1,[0,,0] 1529 031105 004 05 0 00 000131 ER4 AC+1,T 1530 031106 321 10 0 00 031100 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1531 1532 000132 T=T+1 1533 000002 XX=XX/2 1534 147400 ZZ=ZZ-1000 1535 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1536 DMOVE AC,[200400,,XX 1537 031107 120 04 0 00 040174 0,,0] 1538 DFAD AC,[577400,,0 1539 031110 110 04 0 00 040061 0,,0] 1540 031111 312 04 0 00 040176 CAME AC,[ZZ,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-7 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0048 1541 031112 003 04 0 00 000132 ER3 AC,T 1542 031113 312 05 0 00 040060 CAME AC+1,[0,,0] 1543 031114 004 05 0 00 000132 ER4 AC+1,T 1544 031115 321 10 0 00 031107 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1545 1546 000133 T=T+1 1547 000001 XX=XX/2 1548 146400 ZZ=ZZ-1000 1549 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^ 1550 DMOVE AC,[200400,,XX 1551 031116 120 04 0 00 040177 0,,0] 1552 DFAD AC,[577400,,0 1553 031117 110 04 0 00 040061 0,,0] 1554 031120 312 04 0 00 040201 CAME AC,[ZZ,,0] 1555 031121 003 04 0 00 000133 ER3 AC,T 1556 031122 312 05 0 00 040060 CAME AC+1,[0,,0] 1557 031123 004 05 0 00 000133 ER4 AC+1,T 1558 031124 321 10 0 00 031116 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1559 1560 1561 400000 XX=400000 1562 1563 REPEAT ^D17, 1564 1569 000134 T=T+1 1570 200000 XX=XX/2 1571 145400 ZZ=ZZ-1000 1572 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1573 DMOVE AC,[200400,,0 1574 031125 120 04 0 00 040202 XX,,0] 1575 DFAD AC,[577400,,0 1576 031126 110 04 0 00 040061 0,,0] 1577 031127 312 04 0 00 040204 CAME AC,[ZZ,,0] 1578 031130 003 04 0 00 000134 ER3 AC,T 1579 031131 312 05 0 00 040060 CAME AC+1,[0,,0] 1580 031132 004 05 0 00 000134 ER4 AC+1,T 1581 031133 321 10 0 00 031125 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1582 1583 000135 T=T+1 1584 100000 XX=XX/2 1585 144400 ZZ=ZZ-1000 1586 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1587 DMOVE AC,[200400,,0 1588 031134 120 04 0 00 040205 XX,,0] 1589 DFAD AC,[577400,,0 1590 031135 110 04 0 00 040061 0,,0] 1591 031136 312 04 0 00 040207 CAME AC,[ZZ,,0] 1592 031137 003 04 0 00 000135 ER3 AC,T 1593 031140 312 05 0 00 040060 CAME AC+1,[0,,0] 1594 031141 004 05 0 00 000135 ER4 AC+1,T 1595 031142 321 10 0 00 031134 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-8 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0049 1596 1597 000136 T=T+1 1598 040000 XX=XX/2 1599 143400 ZZ=ZZ-1000 1600 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1601 DMOVE AC,[200400,,0 1602 031143 120 04 0 00 040210 XX,,0] 1603 DFAD AC,[577400,,0 1604 031144 110 04 0 00 040061 0,,0] 1605 031145 312 04 0 00 040212 CAME AC,[ZZ,,0] 1606 031146 003 04 0 00 000136 ER3 AC,T 1607 031147 312 05 0 00 040060 CAME AC+1,[0,,0] 1608 031150 004 05 0 00 000136 ER4 AC+1,T 1609 031151 321 10 0 00 031143 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1610 1611 000137 T=T+1 1612 020000 XX=XX/2 1613 142400 ZZ=ZZ-1000 1614 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1615 DMOVE AC,[200400,,0 1616 031152 120 04 0 00 040213 XX,,0] 1617 DFAD AC,[577400,,0 1618 031153 110 04 0 00 040061 0,,0] 1619 031154 312 04 0 00 040215 CAME AC,[ZZ,,0] 1620 031155 003 04 0 00 000137 ER3 AC,T 1621 031156 312 05 0 00 040060 CAME AC+1,[0,,0] 1622 031157 004 05 0 00 000137 ER4 AC+1,T 1623 031160 321 10 0 00 031152 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1624 1625 000140 T=T+1 1626 010000 XX=XX/2 1627 141400 ZZ=ZZ-1000 1628 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1629 DMOVE AC,[200400,,0 1630 031161 120 04 0 00 040216 XX,,0] 1631 DFAD AC,[577400,,0 1632 031162 110 04 0 00 040061 0,,0] 1633 031163 312 04 0 00 040220 CAME AC,[ZZ,,0] 1634 031164 003 04 0 00 000140 ER3 AC,T 1635 031165 312 05 0 00 040060 CAME AC+1,[0,,0] 1636 031166 004 05 0 00 000140 ER4 AC+1,T 1637 031167 321 10 0 00 031161 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1638 1639 000141 T=T+1 1640 004000 XX=XX/2 1641 140400 ZZ=ZZ-1000 1642 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1643 DMOVE AC,[200400,,0 1644 031170 120 04 0 00 040221 XX,,0] 1645 DFAD AC,[577400,,0 1646 031171 110 04 0 00 040061 0,,0] 1647 031172 312 04 0 00 040223 CAME AC,[ZZ,,0] 1648 031173 003 04 0 00 000141 ER3 AC,T 1649 031174 312 05 0 00 040060 CAME AC+1,[0,,0] 1650 031175 004 05 0 00 000141 ER4 AC+1,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-9 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0050 1651 031176 321 10 0 00 031170 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1652 1653 000142 T=T+1 1654 002000 XX=XX/2 1655 137400 ZZ=ZZ-1000 1656 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1657 DMOVE AC,[200400,,0 1658 031177 120 04 0 00 040224 XX,,0] 1659 DFAD AC,[577400,,0 1660 031200 110 04 0 00 040061 0,,0] 1661 031201 312 04 0 00 040226 CAME AC,[ZZ,,0] 1662 031202 003 04 0 00 000142 ER3 AC,T 1663 031203 312 05 0 00 040060 CAME AC+1,[0,,0] 1664 031204 004 05 0 00 000142 ER4 AC+1,T 1665 031205 321 10 0 00 031177 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1666 1667 000143 T=T+1 1668 001000 XX=XX/2 1669 136400 ZZ=ZZ-1000 1670 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1671 DMOVE AC,[200400,,0 1672 031206 120 04 0 00 040227 XX,,0] 1673 DFAD AC,[577400,,0 1674 031207 110 04 0 00 040061 0,,0] 1675 031210 312 04 0 00 040231 CAME AC,[ZZ,,0] 1676 031211 003 04 0 00 000143 ER3 AC,T 1677 031212 312 05 0 00 040060 CAME AC+1,[0,,0] 1678 031213 004 05 0 00 000143 ER4 AC+1,T 1679 031214 321 10 0 00 031206 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1680 1681 000144 T=T+1 1682 000400 XX=XX/2 1683 135400 ZZ=ZZ-1000 1684 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1685 DMOVE AC,[200400,,0 1686 031215 120 04 0 00 040232 XX,,0] 1687 DFAD AC,[577400,,0 1688 031216 110 04 0 00 040061 0,,0] 1689 031217 312 04 0 00 040234 CAME AC,[ZZ,,0] 1690 031220 003 04 0 00 000144 ER3 AC,T 1691 031221 312 05 0 00 040060 CAME AC+1,[0,,0] 1692 031222 004 05 0 00 000144 ER4 AC+1,T 1693 031223 321 10 0 00 031215 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1694 1695 000145 T=T+1 1696 000200 XX=XX/2 1697 134400 ZZ=ZZ-1000 1698 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1699 DMOVE AC,[200400,,0 1700 031224 120 04 0 00 040235 XX,,0] 1701 DFAD AC,[577400,,0 1702 031225 110 04 0 00 040061 0,,0] 1703 031226 312 04 0 00 040237 CAME AC,[ZZ,,0] 1704 031227 003 04 0 00 000145 ER3 AC,T 1705 031230 312 05 0 00 040060 CAME AC+1,[0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-10 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0051 1706 031231 004 05 0 00 000145 ER4 AC+1,T 1707 031232 321 10 0 00 031224 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1708 1709 000146 T=T+1 1710 000100 XX=XX/2 1711 133400 ZZ=ZZ-1000 1712 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1713 DMOVE AC,[200400,,0 1714 031233 120 04 0 00 040240 XX,,0] 1715 DFAD AC,[577400,,0 1716 031234 110 04 0 00 040061 0,,0] 1717 031235 312 04 0 00 040242 CAME AC,[ZZ,,0] 1718 031236 003 04 0 00 000146 ER3 AC,T 1719 031237 312 05 0 00 040060 CAME AC+1,[0,,0] 1720 031240 004 05 0 00 000146 ER4 AC+1,T 1721 031241 321 10 0 00 031233 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1722 1723 000147 T=T+1 1724 000040 XX=XX/2 1725 132400 ZZ=ZZ-1000 1726 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1727 DMOVE AC,[200400,,0 1728 031242 120 04 0 00 040243 XX,,0] 1729 DFAD AC,[577400,,0 1730 031243 110 04 0 00 040061 0,,0] 1731 031244 312 04 0 00 040245 CAME AC,[ZZ,,0] 1732 031245 003 04 0 00 000147 ER3 AC,T 1733 031246 312 05 0 00 040060 CAME AC+1,[0,,0] 1734 031247 004 05 0 00 000147 ER4 AC+1,T 1735 031250 321 10 0 00 031242 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1736 1737 000150 T=T+1 1738 000020 XX=XX/2 1739 131400 ZZ=ZZ-1000 1740 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1741 DMOVE AC,[200400,,0 1742 031251 120 04 0 00 040246 XX,,0] 1743 DFAD AC,[577400,,0 1744 031252 110 04 0 00 040061 0,,0] 1745 031253 312 04 0 00 040250 CAME AC,[ZZ,,0] 1746 031254 003 04 0 00 000150 ER3 AC,T 1747 031255 312 05 0 00 040060 CAME AC+1,[0,,0] 1748 031256 004 05 0 00 000150 ER4 AC+1,T 1749 031257 321 10 0 00 031251 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1750 1751 000151 T=T+1 1752 000010 XX=XX/2 1753 130400 ZZ=ZZ-1000 1754 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1755 DMOVE AC,[200400,,0 1756 031260 120 04 0 00 040251 XX,,0] 1757 DFAD AC,[577400,,0 1758 031261 110 04 0 00 040061 0,,0] 1759 031262 312 04 0 00 040253 CAME AC,[ZZ,,0] 1760 031263 003 04 0 00 000151 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-11 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0052 1761 031264 312 05 0 00 040060 CAME AC+1,[0,,0] 1762 031265 004 05 0 00 000151 ER4 AC+1,T 1763 031266 321 10 0 00 031260 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1764 1765 000152 T=T+1 1766 000004 XX=XX/2 1767 127400 ZZ=ZZ-1000 1768 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1769 DMOVE AC,[200400,,0 1770 031267 120 04 0 00 040254 XX,,0] 1771 DFAD AC,[577400,,0 1772 031270 110 04 0 00 040061 0,,0] 1773 031271 312 04 0 00 040256 CAME AC,[ZZ,,0] 1774 031272 003 04 0 00 000152 ER3 AC,T 1775 031273 312 05 0 00 040060 CAME AC+1,[0,,0] 1776 031274 004 05 0 00 000152 ER4 AC+1,T 1777 031275 321 10 0 00 031267 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1778 1779 000153 T=T+1 1780 000002 XX=XX/2 1781 126400 ZZ=ZZ-1000 1782 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1783 DMOVE AC,[200400,,0 1784 031276 120 04 0 00 040257 XX,,0] 1785 DFAD AC,[577400,,0 1786 031277 110 04 0 00 040061 0,,0] 1787 031300 312 04 0 00 040261 CAME AC,[ZZ,,0] 1788 031301 003 04 0 00 000153 ER3 AC,T 1789 031302 312 05 0 00 040060 CAME AC+1,[0,,0] 1790 031303 004 05 0 00 000153 ER4 AC+1,T 1791 031304 321 10 0 00 031276 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1792 1793 000154 T=T+1 1794 000001 XX=XX/2 1795 125400 ZZ=ZZ-1000 1796 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^ 1797 DMOVE AC,[200400,,0 1798 031305 120 04 0 00 040262 XX,,0] 1799 DFAD AC,[577400,,0 1800 031306 110 04 0 00 040061 0,,0] 1801 031307 312 04 0 00 040264 CAME AC,[ZZ,,0] 1802 031310 003 04 0 00 000154 ER3 AC,T 1803 031311 312 05 0 00 040060 CAME AC+1,[0,,0] 1804 031312 004 05 0 00 000154 ER4 AC+1,T 1805 031313 321 10 0 00 031305 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1806 1807 1808 000001 000000 XX=1000000 1809 1810 REPEAT ^D18, 1811 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-12 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0053 1816 000155 T=T+1 1817 400000 XX=XX/2 1818 124400 ZZ=ZZ-1000 1819 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1820 DMOVE AC,[200400,,0 1821 031314 120 04 0 00 040265 0,,XX] 1822 DFAD AC,[577400,,0 1823 031315 110 04 0 00 040061 0,,0] 1824 031316 312 04 0 00 040267 CAME AC,[ZZ,,0] 1825 031317 003 04 0 00 000155 ER3 AC,T 1826 031320 312 05 0 00 040060 CAME AC+1,[0,,0] 1827 031321 004 05 0 00 000155 ER4 AC+1,T 1828 031322 321 10 0 00 031314 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1829 1830 000156 T=T+1 1831 200000 XX=XX/2 1832 123400 ZZ=ZZ-1000 1833 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1834 DMOVE AC,[200400,,0 1835 031323 120 04 0 00 040270 0,,XX] 1836 DFAD AC,[577400,,0 1837 031324 110 04 0 00 040061 0,,0] 1838 031325 312 04 0 00 040272 CAME AC,[ZZ,,0] 1839 031326 003 04 0 00 000156 ER3 AC,T 1840 031327 312 05 0 00 040060 CAME AC+1,[0,,0] 1841 031330 004 05 0 00 000156 ER4 AC+1,T 1842 031331 321 10 0 00 031323 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1843 1844 000157 T=T+1 1845 100000 XX=XX/2 1846 122400 ZZ=ZZ-1000 1847 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1848 DMOVE AC,[200400,,0 1849 031332 120 04 0 00 040273 0,,XX] 1850 DFAD AC,[577400,,0 1851 031333 110 04 0 00 040061 0,,0] 1852 031334 312 04 0 00 040275 CAME AC,[ZZ,,0] 1853 031335 003 04 0 00 000157 ER3 AC,T 1854 031336 312 05 0 00 040060 CAME AC+1,[0,,0] 1855 031337 004 05 0 00 000157 ER4 AC+1,T 1856 031340 321 10 0 00 031332 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1857 1858 000160 T=T+1 1859 040000 XX=XX/2 1860 121400 ZZ=ZZ-1000 1861 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1862 DMOVE AC,[200400,,0 1863 031341 120 04 0 00 040276 0,,XX] 1864 DFAD AC,[577400,,0 1865 031342 110 04 0 00 040061 0,,0] 1866 031343 312 04 0 00 040300 CAME AC,[ZZ,,0] 1867 031344 003 04 0 00 000160 ER3 AC,T 1868 031345 312 05 0 00 040060 CAME AC+1,[0,,0] 1869 031346 004 05 0 00 000160 ER4 AC+1,T 1870 031347 321 10 0 00 031341 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-13 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0054 1871 1872 000161 T=T+1 1873 020000 XX=XX/2 1874 120400 ZZ=ZZ-1000 1875 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1876 DMOVE AC,[200400,,0 1877 031350 120 04 0 00 040301 0,,XX] 1878 DFAD AC,[577400,,0 1879 031351 110 04 0 00 040061 0,,0] 1880 031352 312 04 0 00 040303 CAME AC,[ZZ,,0] 1881 031353 003 04 0 00 000161 ER3 AC,T 1882 031354 312 05 0 00 040060 CAME AC+1,[0,,0] 1883 031355 004 05 0 00 000161 ER4 AC+1,T 1884 031356 321 10 0 00 031350 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1885 1886 000162 T=T+1 1887 010000 XX=XX/2 1888 117400 ZZ=ZZ-1000 1889 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1890 DMOVE AC,[200400,,0 1891 031357 120 04 0 00 040304 0,,XX] 1892 DFAD AC,[577400,,0 1893 031360 110 04 0 00 040061 0,,0] 1894 031361 312 04 0 00 040306 CAME AC,[ZZ,,0] 1895 031362 003 04 0 00 000162 ER3 AC,T 1896 031363 312 05 0 00 040060 CAME AC+1,[0,,0] 1897 031364 004 05 0 00 000162 ER4 AC+1,T 1898 031365 321 10 0 00 031357 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1899 1900 000163 T=T+1 1901 004000 XX=XX/2 1902 116400 ZZ=ZZ-1000 1903 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1904 DMOVE AC,[200400,,0 1905 031366 120 04 0 00 040307 0,,XX] 1906 DFAD AC,[577400,,0 1907 031367 110 04 0 00 040061 0,,0] 1908 031370 312 04 0 00 040311 CAME AC,[ZZ,,0] 1909 031371 003 04 0 00 000163 ER3 AC,T 1910 031372 312 05 0 00 040060 CAME AC+1,[0,,0] 1911 031373 004 05 0 00 000163 ER4 AC+1,T 1912 031374 321 10 0 00 031366 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1913 1914 000164 T=T+1 1915 002000 XX=XX/2 1916 115400 ZZ=ZZ-1000 1917 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1918 DMOVE AC,[200400,,0 1919 031375 120 04 0 00 040312 0,,XX] 1920 DFAD AC,[577400,,0 1921 031376 110 04 0 00 040061 0,,0] 1922 031377 312 04 0 00 040314 CAME AC,[ZZ,,0] 1923 031400 003 04 0 00 000164 ER3 AC,T 1924 031401 312 05 0 00 040060 CAME AC+1,[0,,0] 1925 031402 004 05 0 00 000164 ER4 AC+1,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-14 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0055 1926 031403 321 10 0 00 031375 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1927 1928 000165 T=T+1 1929 001000 XX=XX/2 1930 114400 ZZ=ZZ-1000 1931 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1932 DMOVE AC,[200400,,0 1933 031404 120 04 0 00 040315 0,,XX] 1934 DFAD AC,[577400,,0 1935 031405 110 04 0 00 040061 0,,0] 1936 031406 312 04 0 00 040317 CAME AC,[ZZ,,0] 1937 031407 003 04 0 00 000165 ER3 AC,T 1938 031410 312 05 0 00 040060 CAME AC+1,[0,,0] 1939 031411 004 05 0 00 000165 ER4 AC+1,T 1940 031412 321 10 0 00 031404 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1941 1942 000166 T=T+1 1943 000400 XX=XX/2 1944 113400 ZZ=ZZ-1000 1945 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1946 DMOVE AC,[200400,,0 1947 031413 120 04 0 00 040320 0,,XX] 1948 DFAD AC,[577400,,0 1949 031414 110 04 0 00 040061 0,,0] 1950 031415 312 04 0 00 040322 CAME AC,[ZZ,,0] 1951 031416 003 04 0 00 000166 ER3 AC,T 1952 031417 312 05 0 00 040060 CAME AC+1,[0,,0] 1953 031420 004 05 0 00 000166 ER4 AC+1,T 1954 031421 321 10 0 00 031413 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1955 1956 000167 T=T+1 1957 000200 XX=XX/2 1958 112400 ZZ=ZZ-1000 1959 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1960 DMOVE AC,[200400,,0 1961 031422 120 04 0 00 040323 0,,XX] 1962 DFAD AC,[577400,,0 1963 031423 110 04 0 00 040061 0,,0] 1964 031424 312 04 0 00 040325 CAME AC,[ZZ,,0] 1965 031425 003 04 0 00 000167 ER3 AC,T 1966 031426 312 05 0 00 040060 CAME AC+1,[0,,0] 1967 031427 004 05 0 00 000167 ER4 AC+1,T 1968 031430 321 10 0 00 031422 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1969 1970 000170 T=T+1 1971 000100 XX=XX/2 1972 111400 ZZ=ZZ-1000 1973 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1974 DMOVE AC,[200400,,0 1975 031431 120 04 0 00 040326 0,,XX] 1976 DFAD AC,[577400,,0 1977 031432 110 04 0 00 040061 0,,0] 1978 031433 312 04 0 00 040330 CAME AC,[ZZ,,0] 1979 031434 003 04 0 00 000170 ER3 AC,T 1980 031435 312 05 0 00 040060 CAME AC+1,[0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-15 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0056 1981 031436 004 05 0 00 000170 ER4 AC+1,T 1982 031437 321 10 0 00 031431 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1983 1984 000171 T=T+1 1985 000040 XX=XX/2 1986 110400 ZZ=ZZ-1000 1987 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 1988 DMOVE AC,[200400,,0 1989 031440 120 04 0 00 040331 0,,XX] 1990 DFAD AC,[577400,,0 1991 031441 110 04 0 00 040061 0,,0] 1992 031442 312 04 0 00 040333 CAME AC,[ZZ,,0] 1993 031443 003 04 0 00 000171 ER3 AC,T 1994 031444 312 05 0 00 040060 CAME AC+1,[0,,0] 1995 031445 004 05 0 00 000171 ER4 AC+1,T 1996 031446 321 10 0 00 031440 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 1997 1998 000172 T=T+1 1999 000020 XX=XX/2 2000 107400 ZZ=ZZ-1000 2001 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 2002 DMOVE AC,[200400,,0 2003 031447 120 04 0 00 040334 0,,XX] 2004 DFAD AC,[577400,,0 2005 031450 110 04 0 00 040061 0,,0] 2006 031451 312 04 0 00 040336 CAME AC,[ZZ,,0] 2007 031452 003 04 0 00 000172 ER3 AC,T 2008 031453 312 05 0 00 040060 CAME AC+1,[0,,0] 2009 031454 004 05 0 00 000172 ER4 AC+1,T 2010 031455 321 10 0 00 031447 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2011 2012 000173 T=T+1 2013 000010 XX=XX/2 2014 106400 ZZ=ZZ-1000 2015 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 2016 DMOVE AC,[200400,,0 2017 031456 120 04 0 00 040337 0,,XX] 2018 DFAD AC,[577400,,0 2019 031457 110 04 0 00 040061 0,,0] 2020 031460 312 04 0 00 040341 CAME AC,[ZZ,,0] 2021 031461 003 04 0 00 000173 ER3 AC,T 2022 031462 312 05 0 00 040060 CAME AC+1,[0,,0] 2023 031463 004 05 0 00 000173 ER4 AC+1,T 2024 031464 321 10 0 00 031456 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2025 2026 000174 T=T+1 2027 000004 XX=XX/2 2028 105400 ZZ=ZZ-1000 2029 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 2030 DMOVE AC,[200400,,0 2031 031465 120 04 0 00 040342 0,,XX] 2032 DFAD AC,[577400,,0 2033 031466 110 04 0 00 040061 0,,0] 2034 031467 312 04 0 00 040344 CAME AC,[ZZ,,0] 2035 031470 003 04 0 00 000174 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 2-16 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0057 2036 031471 312 05 0 00 040060 CAME AC+1,[0,,0] 2037 031472 004 05 0 00 000174 ER4 AC+1,T 2038 031473 321 10 0 00 031465 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2039 2040 000175 T=T+1 2041 000002 XX=XX/2 2042 104400 ZZ=ZZ-1000 2043 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 2044 DMOVE AC,[200400,,0 2045 031474 120 04 0 00 040345 0,,XX] 2046 DFAD AC,[577400,,0 2047 031475 110 04 0 00 040061 0,,0] 2048 031476 312 04 0 00 040347 CAME AC,[ZZ,,0] 2049 031477 003 04 0 00 000175 ER3 AC,T 2050 031500 312 05 0 00 040060 CAME AC+1,[0,,0] 2051 031501 004 05 0 00 000175 ER4 AC+1,T 2052 031502 321 10 0 00 031474 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2053 2054 000176 T=T+1 2055 000001 XX=XX/2 2056 103400 ZZ=ZZ-1000 2057 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^ 2058 DMOVE AC,[200400,,0 2059 031503 120 04 0 00 040350 0,,XX] 2060 DFAD AC,[577400,,0 2061 031504 110 04 0 00 040061 0,,0] 2062 031505 312 04 0 00 040352 CAME AC,[ZZ,,0] 2063 031506 003 04 0 00 000176 ER3 AC,T 2064 031507 312 05 0 00 040060 CAME AC+1,[0,,0] 2065 031510 004 05 0 00 000176 ER4 AC+1,T 2066 031511 321 10 0 00 031503 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2067 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0058 2068 000200 T=200 2069 776777 XX=776777 2070 577377 YY=577377 2071 000000 ZZ=0 2072 2073 S200: REPEAT ^D9, 2074 /2 2076 YY=YY+1000 2077 ZZ=ZZ+ZZ 2078 IFE ZZ, 2079 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ 2080 > 2081 000201 T=T+1 2082 377377 XX=/2 2083 600377 YY=YY+1000 2084 000000 ZZ=ZZ+ZZ 2085 777777 777777 IFE ZZ, 2086 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2087 DMOVE AC,[600000+XX&777,,-1 2088 031512 120 04 0 00 040353 -1,,-1] 2089 DFAD AC,[0,,0 2090 031513 110 04 0 00 040355 0,,0] 2091 031514 312 04 0 00 040353 CAME AC,[YY,,-1] 2092 031515 003 04 0 00 000201 ER3 AC,T 2093 031516 312 05 0 00 040357 CAME AC+1,[377777,,ZZ] 2094 031517 004 05 0 00 000201 ER4 AC+1,T 2095 031520 321 10 0 00 031512 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2096 2097 000202 T=T+1 2098 177577 XX=/2 2099 601377 YY=YY+1000 2100 777777 777776 ZZ=ZZ+ZZ 2101 IFE ZZ, 2102 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2103 DMOVE AC,[600000+XX&777,,-1 2104 031521 120 04 0 00 040360 -1,,-1] 2105 DFAD AC,[0,,0 2106 031522 110 04 0 00 040355 0,,0] 2107 031523 312 04 0 00 040362 CAME AC,[YY,,-1] 2108 031524 003 04 0 00 000202 ER3 AC,T 2109 031525 312 05 0 00 040363 CAME AC+1,[377777,,ZZ] 2110 031526 004 05 0 00 000202 ER4 AC+1,T 2111 031527 321 10 0 00 031521 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2112 2113 000203 T=T+1 2114 077677 XX=/2 2115 602377 YY=YY+1000 2116 777777 777774 ZZ=ZZ+ZZ 2117 IFE ZZ, 2118 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2119 DMOVE AC,[600000+XX&777,,-1 2120 031530 120 04 0 00 040364 -1,,-1] 2121 DFAD AC,[0,,0 2122 031531 110 04 0 00 040355 0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-1 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0059 2123 031532 312 04 0 00 040366 CAME AC,[YY,,-1] 2124 031533 003 04 0 00 000203 ER3 AC,T 2125 031534 312 05 0 00 040367 CAME AC+1,[377777,,ZZ] 2126 031535 004 05 0 00 000203 ER4 AC+1,T 2127 031536 321 10 0 00 031530 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2128 2129 000204 T=T+1 2130 037737 XX=/2 2131 603377 YY=YY+1000 2132 777777 777770 ZZ=ZZ+ZZ 2133 IFE ZZ, 2134 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2135 DMOVE AC,[600000+XX&777,,-1 2136 031537 120 04 0 00 040370 -1,,-1] 2137 DFAD AC,[0,,0 2138 031540 110 04 0 00 040355 0,,0] 2139 031541 312 04 0 00 040372 CAME AC,[YY,,-1] 2140 031542 003 04 0 00 000204 ER3 AC,T 2141 031543 312 05 0 00 040373 CAME AC+1,[377777,,ZZ] 2142 031544 004 05 0 00 000204 ER4 AC+1,T 2143 031545 321 10 0 00 031537 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2144 2145 000205 T=T+1 2146 017757 XX=/2 2147 604377 YY=YY+1000 2148 777777 777760 ZZ=ZZ+ZZ 2149 IFE ZZ, 2150 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2151 DMOVE AC,[600000+XX&777,,-1 2152 031546 120 04 0 00 040374 -1,,-1] 2153 DFAD AC,[0,,0 2154 031547 110 04 0 00 040355 0,,0] 2155 031550 312 04 0 00 040376 CAME AC,[YY,,-1] 2156 031551 003 04 0 00 000205 ER3 AC,T 2157 031552 312 05 0 00 040377 CAME AC+1,[377777,,ZZ] 2158 031553 004 05 0 00 000205 ER4 AC+1,T 2159 031554 321 10 0 00 031546 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2160 2161 000206 T=T+1 2162 007767 XX=/2 2163 605377 YY=YY+1000 2164 777777 777740 ZZ=ZZ+ZZ 2165 IFE ZZ, 2166 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2167 DMOVE AC,[600000+XX&777,,-1 2168 031555 120 04 0 00 040400 -1,,-1] 2169 DFAD AC,[0,,0 2170 031556 110 04 0 00 040355 0,,0] 2171 031557 312 04 0 00 040402 CAME AC,[YY,,-1] 2172 031560 003 04 0 00 000206 ER3 AC,T 2173 031561 312 05 0 00 040403 CAME AC+1,[377777,,ZZ] 2174 031562 004 05 0 00 000206 ER4 AC+1,T 2175 031563 321 10 0 00 031555 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2176 2177 000207 T=T+1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-2 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0060 2178 003773 XX=/2 2179 606377 YY=YY+1000 2180 777777 777700 ZZ=ZZ+ZZ 2181 IFE ZZ, 2182 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2183 DMOVE AC,[600000+XX&777,,-1 2184 031564 120 04 0 00 040404 -1,,-1] 2185 DFAD AC,[0,,0 2186 031565 110 04 0 00 040355 0,,0] 2187 031566 312 04 0 00 040406 CAME AC,[YY,,-1] 2188 031567 003 04 0 00 000207 ER3 AC,T 2189 031570 312 05 0 00 040407 CAME AC+1,[377777,,ZZ] 2190 031571 004 05 0 00 000207 ER4 AC+1,T 2191 031572 321 10 0 00 031564 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2192 2193 000210 T=T+1 2194 001775 XX=/2 2195 607377 YY=YY+1000 2196 777777 777600 ZZ=ZZ+ZZ 2197 IFE ZZ, 2198 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2199 DMOVE AC,[600000+XX&777,,-1 2200 031573 120 04 0 00 040410 -1,,-1] 2201 DFAD AC,[0,,0 2202 031574 110 04 0 00 040355 0,,0] 2203 031575 312 04 0 00 040412 CAME AC,[YY,,-1] 2204 031576 003 04 0 00 000210 ER3 AC,T 2205 031577 312 05 0 00 040413 CAME AC+1,[377777,,ZZ] 2206 031600 004 05 0 00 000210 ER4 AC+1,T 2207 031601 321 10 0 00 031573 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2208 2209 000211 T=T+1 2210 000776 XX=/2 2211 610377 YY=YY+1000 2212 777777 777400 ZZ=ZZ+ZZ 2213 IFE ZZ, 2214 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2215 DMOVE AC,[600000+XX&777,,-1 2216 031602 120 04 0 00 040414 -1,,-1] 2217 DFAD AC,[0,,0 2218 031603 110 04 0 00 040355 0,,0] 2219 031604 312 04 0 00 040416 CAME AC,[YY,,-1] 2220 031605 003 04 0 00 000211 ER3 AC,T 2221 031606 312 05 0 00 040417 CAME AC+1,[377777,,ZZ] 2222 031607 004 05 0 00 000211 ER4 AC+1,T 2223 031610 321 10 0 00 031602 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2224 2225 2226 777776 777777 XX=777776777777 2227 2228 REPEAT ^D10, 2229 /2 2231 YY=YY+1000 2232 ZZ=ZZ+ZZ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-3 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0061 2233 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ 2234 > 2235 000212 T=T+1 2236 777777 377777 XX=/2 2237 611377 YY=YY+1000 2238 777777 777000 ZZ=ZZ+ZZ 2239 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2240 DMOVE AC,[600777,,XX&777777 2241 031611 120 04 0 00 040420 -1,,-1] 2242 DFAD AC,[0,,0 2243 031612 110 04 0 00 040355 0,,0] 2244 031613 312 04 0 00 040422 CAME AC,[YY,,-1] 2245 031614 003 04 0 00 000212 ER3 AC,T 2246 031615 312 05 0 00 040423 CAME AC+1,[377777,,ZZ] 2247 031616 004 05 0 00 000212 ER4 AC+1,T 2248 031617 321 10 0 00 031611 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2249 2250 000213 T=T+1 2251 777777 577777 XX=/2 2252 612377 YY=YY+1000 2253 777777 776000 ZZ=ZZ+ZZ 2254 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2255 DMOVE AC,[600777,,XX&777777 2256 031620 120 04 0 00 040424 -1,,-1] 2257 DFAD AC,[0,,0 2258 031621 110 04 0 00 040355 0,,0] 2259 031622 312 04 0 00 040426 CAME AC,[YY,,-1] 2260 031623 003 04 0 00 000213 ER3 AC,T 2261 031624 312 05 0 00 040427 CAME AC+1,[377777,,ZZ] 2262 031625 004 05 0 00 000213 ER4 AC+1,T 2263 031626 321 10 0 00 031620 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2264 2265 000214 T=T+1 2266 777777 677777 XX=/2 2267 613377 YY=YY+1000 2268 777777 774000 ZZ=ZZ+ZZ 2269 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2270 DMOVE AC,[600777,,XX&777777 2271 031627 120 04 0 00 040430 -1,,-1] 2272 DFAD AC,[0,,0 2273 031630 110 04 0 00 040355 0,,0] 2274 031631 312 04 0 00 040432 CAME AC,[YY,,-1] 2275 031632 003 04 0 00 000214 ER3 AC,T 2276 031633 312 05 0 00 040433 CAME AC+1,[377777,,ZZ] 2277 031634 004 05 0 00 000214 ER4 AC+1,T 2278 031635 321 10 0 00 031627 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2279 2280 000215 T=T+1 2281 777777 737777 XX=/2 2282 614377 YY=YY+1000 2283 777777 770000 ZZ=ZZ+ZZ 2284 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2285 DMOVE AC,[600777,,XX&777777 2286 031636 120 04 0 00 040434 -1,,-1] 2287 DFAD AC,[0,,0 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-4 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0062 2288 031637 110 04 0 00 040355 0,,0] 2289 031640 312 04 0 00 040436 CAME AC,[YY,,-1] 2290 031641 003 04 0 00 000215 ER3 AC,T 2291 031642 312 05 0 00 040437 CAME AC+1,[377777,,ZZ] 2292 031643 004 05 0 00 000215 ER4 AC+1,T 2293 031644 321 10 0 00 031636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2294 2295 000216 T=T+1 2296 777777 757777 XX=/2 2297 615377 YY=YY+1000 2298 777777 760000 ZZ=ZZ+ZZ 2299 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2300 DMOVE AC,[600777,,XX&777777 2301 031645 120 04 0 00 040440 -1,,-1] 2302 DFAD AC,[0,,0 2303 031646 110 04 0 00 040355 0,,0] 2304 031647 312 04 0 00 040442 CAME AC,[YY,,-1] 2305 031650 003 04 0 00 000216 ER3 AC,T 2306 031651 312 05 0 00 040443 CAME AC+1,[377777,,ZZ] 2307 031652 004 05 0 00 000216 ER4 AC+1,T 2308 031653 321 10 0 00 031645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2309 2310 000217 T=T+1 2311 777777 767777 XX=/2 2312 616377 YY=YY+1000 2313 777777 740000 ZZ=ZZ+ZZ 2314 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2315 DMOVE AC,[600777,,XX&777777 2316 031654 120 04 0 00 040444 -1,,-1] 2317 DFAD AC,[0,,0 2318 031655 110 04 0 00 040355 0,,0] 2319 031656 312 04 0 00 040446 CAME AC,[YY,,-1] 2320 031657 003 04 0 00 000217 ER3 AC,T 2321 031660 312 05 0 00 040447 CAME AC+1,[377777,,ZZ] 2322 031661 004 05 0 00 000217 ER4 AC+1,T 2323 031662 321 10 0 00 031654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2324 2325 000220 T=T+1 2326 777777 773777 XX=/2 2327 617377 YY=YY+1000 2328 777777 700000 ZZ=ZZ+ZZ 2329 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2330 DMOVE AC,[600777,,XX&777777 2331 031663 120 04 0 00 040450 -1,,-1] 2332 DFAD AC,[0,,0 2333 031664 110 04 0 00 040355 0,,0] 2334 031665 312 04 0 00 040452 CAME AC,[YY,,-1] 2335 031666 003 04 0 00 000220 ER3 AC,T 2336 031667 312 05 0 00 040453 CAME AC+1,[377777,,ZZ] 2337 031670 004 05 0 00 000220 ER4 AC+1,T 2338 031671 321 10 0 00 031663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2339 2340 000221 T=T+1 2341 777777 775777 XX=/2 2342 620377 YY=YY+1000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-5 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0063 2343 777777 600000 ZZ=ZZ+ZZ 2344 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2345 DMOVE AC,[600777,,XX&777777 2346 031672 120 04 0 00 040454 -1,,-1] 2347 DFAD AC,[0,,0 2348 031673 110 04 0 00 040355 0,,0] 2349 031674 312 04 0 00 040456 CAME AC,[YY,,-1] 2350 031675 003 04 0 00 000221 ER3 AC,T 2351 031676 312 05 0 00 040457 CAME AC+1,[377777,,ZZ] 2352 031677 004 05 0 00 000221 ER4 AC+1,T 2353 031700 321 10 0 00 031672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2354 2355 000222 T=T+1 2356 777777 776777 XX=/2 2357 621377 YY=YY+1000 2358 777777 400000 ZZ=ZZ+ZZ 2359 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2360 DMOVE AC,[600777,,XX&777777 2361 031701 120 04 0 00 040460 -1,,-1] 2362 DFAD AC,[0,,0 2363 031702 110 04 0 00 040355 0,,0] 2364 031703 312 04 0 00 040462 CAME AC,[YY,,-1] 2365 031704 003 04 0 00 000222 ER3 AC,T 2366 031705 312 05 0 00 040463 CAME AC+1,[377777,,ZZ] 2367 031706 004 05 0 00 000222 ER4 AC+1,T 2368 031707 321 10 0 00 031701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2369 2370 000223 T=T+1 2371 777777 777377 XX=/2 2372 622377 YY=YY+1000 2373 777777 000000 ZZ=ZZ+ZZ 2374 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^ 2375 DMOVE AC,[600777,,XX&777777 2376 031710 120 04 0 00 040464 -1,,-1] 2377 DFAD AC,[0,,0 2378 031711 110 04 0 00 040355 0,,0] 2379 031712 312 04 0 00 040466 CAME AC,[YY,,-1] 2380 031713 003 04 0 00 000223 ER3 AC,T 2381 031714 312 05 0 00 040467 CAME AC+1,[377777,,ZZ] 2382 031715 004 05 0 00 000223 ER4 AC+1,T 2383 031716 321 10 0 00 031710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2384 2385 2386 777777 777777 ZZ=-1 2387 2388 REPEAT ^D8, 2389 /2 2391 YY=YY+1000 2392 ZZ=ZZ+ZZ 2393 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0 2394 > 2395 000224 T=T+1 2396 777777 777577 XX=/2 2397 623377 YY=YY+1000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-6 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0064 2398 777777 777776 ZZ=ZZ+ZZ 2399 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2400 DMOVE AC,[600777,,XX 2401 031717 120 04 0 00 040470 -1,,-1] 2402 DFAD AC,[0,,0 2403 031720 110 04 0 00 040355 0,,0] 2404 031721 312 04 0 00 040472 CAME AC,[YY,,-1] 2405 031722 003 04 0 00 000224 ER3 AC,T 2406 031723 312 05 0 00 040473 CAME AC+1,[ZZ&377777,,0] 2407 031724 004 05 0 00 000224 ER4 AC+1,T 2408 031725 321 10 0 00 031717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2409 2410 000225 T=T+1 2411 777777 777677 XX=/2 2412 624377 YY=YY+1000 2413 777777 777774 ZZ=ZZ+ZZ 2414 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2415 DMOVE AC,[600777,,XX 2416 031726 120 04 0 00 040474 -1,,-1] 2417 DFAD AC,[0,,0 2418 031727 110 04 0 00 040355 0,,0] 2419 031730 312 04 0 00 040476 CAME AC,[YY,,-1] 2420 031731 003 04 0 00 000225 ER3 AC,T 2421 031732 312 05 0 00 040477 CAME AC+1,[ZZ&377777,,0] 2422 031733 004 05 0 00 000225 ER4 AC+1,T 2423 031734 321 10 0 00 031726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2424 2425 000226 T=T+1 2426 777777 777737 XX=/2 2427 625377 YY=YY+1000 2428 777777 777770 ZZ=ZZ+ZZ 2429 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2430 DMOVE AC,[600777,,XX 2431 031735 120 04 0 00 040500 -1,,-1] 2432 DFAD AC,[0,,0 2433 031736 110 04 0 00 040355 0,,0] 2434 031737 312 04 0 00 040502 CAME AC,[YY,,-1] 2435 031740 003 04 0 00 000226 ER3 AC,T 2436 031741 312 05 0 00 040503 CAME AC+1,[ZZ&377777,,0] 2437 031742 004 05 0 00 000226 ER4 AC+1,T 2438 031743 321 10 0 00 031735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2439 2440 000227 T=T+1 2441 777777 777757 XX=/2 2442 626377 YY=YY+1000 2443 777777 777760 ZZ=ZZ+ZZ 2444 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2445 DMOVE AC,[600777,,XX 2446 031744 120 04 0 00 040504 -1,,-1] 2447 DFAD AC,[0,,0 2448 031745 110 04 0 00 040355 0,,0] 2449 031746 312 04 0 00 040506 CAME AC,[YY,,-1] 2450 031747 003 04 0 00 000227 ER3 AC,T 2451 031750 312 05 0 00 040507 CAME AC+1,[ZZ&377777,,0] 2452 031751 004 05 0 00 000227 ER4 AC+1,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-7 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0065 2453 031752 321 10 0 00 031744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2454 2455 000230 T=T+1 2456 777777 777767 XX=/2 2457 627377 YY=YY+1000 2458 777777 777740 ZZ=ZZ+ZZ 2459 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2460 DMOVE AC,[600777,,XX 2461 031753 120 04 0 00 040510 -1,,-1] 2462 DFAD AC,[0,,0 2463 031754 110 04 0 00 040355 0,,0] 2464 031755 312 04 0 00 040512 CAME AC,[YY,,-1] 2465 031756 003 04 0 00 000230 ER3 AC,T 2466 031757 312 05 0 00 040513 CAME AC+1,[ZZ&377777,,0] 2467 031760 004 05 0 00 000230 ER4 AC+1,T 2468 031761 321 10 0 00 031753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2469 2470 000231 T=T+1 2471 777777 777773 XX=/2 2472 630377 YY=YY+1000 2473 777777 777700 ZZ=ZZ+ZZ 2474 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2475 DMOVE AC,[600777,,XX 2476 031762 120 04 0 00 040514 -1,,-1] 2477 DFAD AC,[0,,0 2478 031763 110 04 0 00 040355 0,,0] 2479 031764 312 04 0 00 040516 CAME AC,[YY,,-1] 2480 031765 003 04 0 00 000231 ER3 AC,T 2481 031766 312 05 0 00 040517 CAME AC+1,[ZZ&377777,,0] 2482 031767 004 05 0 00 000231 ER4 AC+1,T 2483 031770 321 10 0 00 031762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2484 2485 000232 T=T+1 2486 777777 777775 XX=/2 2487 631377 YY=YY+1000 2488 777777 777600 ZZ=ZZ+ZZ 2489 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2490 DMOVE AC,[600777,,XX 2491 031771 120 04 0 00 040520 -1,,-1] 2492 DFAD AC,[0,,0 2493 031772 110 04 0 00 040355 0,,0] 2494 031773 312 04 0 00 040522 CAME AC,[YY,,-1] 2495 031774 003 04 0 00 000232 ER3 AC,T 2496 031775 312 05 0 00 040523 CAME AC+1,[ZZ&377777,,0] 2497 031776 004 05 0 00 000232 ER4 AC+1,T 2498 031777 321 10 0 00 031771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2499 2500 000233 T=T+1 2501 777777 777776 XX=/2 2502 632377 YY=YY+1000 2503 777777 777400 ZZ=ZZ+ZZ 2504 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2505 DMOVE AC,[600777,,XX 2506 032000 120 04 0 00 040524 -1,,-1] 2507 DFAD AC,[0,,0 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3-8 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0066 2508 032001 110 04 0 00 040355 0,,0] 2509 032002 312 04 0 00 040526 CAME AC,[YY,,-1] 2510 032003 003 04 0 00 000233 ER3 AC,T 2511 032004 312 05 0 00 040527 CAME AC+1,[ZZ&377777,,0] 2512 032005 004 05 0 00 000233 ER4 AC+1,T 2513 032006 321 10 0 00 032000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2514 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0067 2515 777777 377777 XX=777777377777 2516 2517 REPEAT ^D9, 2518 /2 2520 YY=YY+1000 2521 ZZ=ZZ+ZZ 2522 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0 2523 > 2524 000234 T=T+1 2525 777777 577777 XX=/2 2526 633377 YY=YY+1000 2527 777777 777000 ZZ=ZZ+ZZ 2528 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2529 DMOVE AC,[600777,,-1 2530 032007 120 04 0 00 040530 XX,,-1] 2531 DFAD AC,[0,,0 2532 032010 110 04 0 00 040355 0,,0] 2533 032011 312 04 0 00 040532 CAME AC,[YY,,-1] 2534 032012 003 04 0 00 000234 ER3 AC,T 2535 032013 312 05 0 00 040533 CAME AC+1,[ZZ&377777,,0] 2536 032014 004 05 0 00 000234 ER4 AC+1,T 2537 032015 321 10 0 00 032007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2538 2539 000235 T=T+1 2540 777777 677777 XX=/2 2541 634377 YY=YY+1000 2542 777777 776000 ZZ=ZZ+ZZ 2543 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2544 DMOVE AC,[600777,,-1 2545 032016 120 04 0 00 040534 XX,,-1] 2546 DFAD AC,[0,,0 2547 032017 110 04 0 00 040355 0,,0] 2548 032020 312 04 0 00 040536 CAME AC,[YY,,-1] 2549 032021 003 04 0 00 000235 ER3 AC,T 2550 032022 312 05 0 00 040537 CAME AC+1,[ZZ&377777,,0] 2551 032023 004 05 0 00 000235 ER4 AC+1,T 2552 032024 321 10 0 00 032016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2553 2554 000236 T=T+1 2555 777777 737777 XX=/2 2556 635377 YY=YY+1000 2557 777777 774000 ZZ=ZZ+ZZ 2558 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2559 DMOVE AC,[600777,,-1 2560 032025 120 04 0 00 040540 XX,,-1] 2561 DFAD AC,[0,,0 2562 032026 110 04 0 00 040355 0,,0] 2563 032027 312 04 0 00 040542 CAME AC,[YY,,-1] 2564 032030 003 04 0 00 000236 ER3 AC,T 2565 032031 312 05 0 00 040543 CAME AC+1,[ZZ&377777,,0] 2566 032032 004 05 0 00 000236 ER4 AC+1,T 2567 032033 321 10 0 00 032025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2568 2569 000237 T=T+1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-1 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0068 2570 777777 757777 XX=/2 2571 636377 YY=YY+1000 2572 777777 770000 ZZ=ZZ+ZZ 2573 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2574 DMOVE AC,[600777,,-1 2575 032034 120 04 0 00 040544 XX,,-1] 2576 DFAD AC,[0,,0 2577 032035 110 04 0 00 040355 0,,0] 2578 032036 312 04 0 00 040546 CAME AC,[YY,,-1] 2579 032037 003 04 0 00 000237 ER3 AC,T 2580 032040 312 05 0 00 040547 CAME AC+1,[ZZ&377777,,0] 2581 032041 004 05 0 00 000237 ER4 AC+1,T 2582 032042 321 10 0 00 032034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2583 2584 000240 T=T+1 2585 777777 767777 XX=/2 2586 637377 YY=YY+1000 2587 777777 760000 ZZ=ZZ+ZZ 2588 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2589 DMOVE AC,[600777,,-1 2590 032043 120 04 0 00 040550 XX,,-1] 2591 DFAD AC,[0,,0 2592 032044 110 04 0 00 040355 0,,0] 2593 032045 312 04 0 00 040552 CAME AC,[YY,,-1] 2594 032046 003 04 0 00 000240 ER3 AC,T 2595 032047 312 05 0 00 040553 CAME AC+1,[ZZ&377777,,0] 2596 032050 004 05 0 00 000240 ER4 AC+1,T 2597 032051 321 10 0 00 032043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2598 2599 000241 T=T+1 2600 777777 773777 XX=/2 2601 640377 YY=YY+1000 2602 777777 740000 ZZ=ZZ+ZZ 2603 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2604 DMOVE AC,[600777,,-1 2605 032052 120 04 0 00 040554 XX,,-1] 2606 DFAD AC,[0,,0 2607 032053 110 04 0 00 040355 0,,0] 2608 032054 312 04 0 00 040556 CAME AC,[YY,,-1] 2609 032055 003 04 0 00 000241 ER3 AC,T 2610 032056 312 05 0 00 040557 CAME AC+1,[ZZ&377777,,0] 2611 032057 004 05 0 00 000241 ER4 AC+1,T 2612 032060 321 10 0 00 032052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2613 2614 000242 T=T+1 2615 777777 775777 XX=/2 2616 641377 YY=YY+1000 2617 777777 700000 ZZ=ZZ+ZZ 2618 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2619 DMOVE AC,[600777,,-1 2620 032061 120 04 0 00 040560 XX,,-1] 2621 DFAD AC,[0,,0 2622 032062 110 04 0 00 040355 0,,0] 2623 032063 312 04 0 00 040562 CAME AC,[YY,,-1] 2624 032064 003 04 0 00 000242 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-2 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0069 2625 032065 312 05 0 00 040563 CAME AC+1,[ZZ&377777,,0] 2626 032066 004 05 0 00 000242 ER4 AC+1,T 2627 032067 321 10 0 00 032061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2628 2629 000243 T=T+1 2630 777777 776777 XX=/2 2631 642377 YY=YY+1000 2632 777777 600000 ZZ=ZZ+ZZ 2633 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2634 DMOVE AC,[600777,,-1 2635 032070 120 04 0 00 040564 XX,,-1] 2636 DFAD AC,[0,,0 2637 032071 110 04 0 00 040355 0,,0] 2638 032072 312 04 0 00 040566 CAME AC,[YY,,-1] 2639 032073 003 04 0 00 000243 ER3 AC,T 2640 032074 312 05 0 00 040203 CAME AC+1,[ZZ&377777,,0] 2641 032075 004 05 0 00 000243 ER4 AC+1,T 2642 032076 321 10 0 00 032070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2643 2644 000244 T=T+1 2645 777777 777377 XX=/2 2646 643377 YY=YY+1000 2647 777777 400000 ZZ=ZZ+ZZ 2648 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^ 2649 DMOVE AC,[600777,,-1 2650 032077 120 04 0 00 040567 XX,,-1] 2651 DFAD AC,[0,,0 2652 032100 110 04 0 00 040355 0,,0] 2653 032101 312 04 0 00 040571 CAME AC,[YY,,-1] 2654 032102 003 04 0 00 000244 ER3 AC,T 2655 032103 312 05 0 00 040060 CAME AC+1,[ZZ&377777,,0] 2656 032104 004 05 0 00 000244 ER4 AC+1,T 2657 032105 321 10 0 00 032077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2658 2659 2660 777777 777777 ZZ=-1 2661 2662 REPEAT ^D8, 2663 /2 2665 YY=YY+1000 2666 ZZ=ZZ+ZZ 2667 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0 2668 > 2669 000245 T=T+1 2670 777777 777577 XX=/2 2671 644377 YY=YY+1000 2672 777777 777776 ZZ=ZZ+ZZ 2673 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2674 DMOVE AC,[600777,,-1 2675 032106 120 04 0 00 040572 XX,,-1] 2676 DFAD AC,[0,,0 2677 032107 110 04 0 00 040355 0,,0] 2678 032110 312 04 0 00 040574 CAME AC,[YY,,ZZ] 2679 032111 003 04 0 00 000245 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-3 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0070 2680 032112 312 05 0 00 040060 CAME AC+1,[0,,0] 2681 032113 004 05 0 00 000245 ER4 AC+1,T 2682 032114 321 10 0 00 032106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2683 2684 000246 T=T+1 2685 777777 777677 XX=/2 2686 645377 YY=YY+1000 2687 777777 777774 ZZ=ZZ+ZZ 2688 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2689 DMOVE AC,[600777,,-1 2690 032115 120 04 0 00 040575 XX,,-1] 2691 DFAD AC,[0,,0 2692 032116 110 04 0 00 040355 0,,0] 2693 032117 312 04 0 00 040577 CAME AC,[YY,,ZZ] 2694 032120 003 04 0 00 000246 ER3 AC,T 2695 032121 312 05 0 00 040060 CAME AC+1,[0,,0] 2696 032122 004 05 0 00 000246 ER4 AC+1,T 2697 032123 321 10 0 00 032115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2698 2699 000247 T=T+1 2700 777777 777737 XX=/2 2701 646377 YY=YY+1000 2702 777777 777770 ZZ=ZZ+ZZ 2703 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2704 DMOVE AC,[600777,,-1 2705 032124 120 04 0 00 040600 XX,,-1] 2706 DFAD AC,[0,,0 2707 032125 110 04 0 00 040355 0,,0] 2708 032126 312 04 0 00 040602 CAME AC,[YY,,ZZ] 2709 032127 003 04 0 00 000247 ER3 AC,T 2710 032130 312 05 0 00 040060 CAME AC+1,[0,,0] 2711 032131 004 05 0 00 000247 ER4 AC+1,T 2712 032132 321 10 0 00 032124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2713 2714 000250 T=T+1 2715 777777 777757 XX=/2 2716 647377 YY=YY+1000 2717 777777 777760 ZZ=ZZ+ZZ 2718 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2719 DMOVE AC,[600777,,-1 2720 032133 120 04 0 00 040603 XX,,-1] 2721 DFAD AC,[0,,0 2722 032134 110 04 0 00 040355 0,,0] 2723 032135 312 04 0 00 040605 CAME AC,[YY,,ZZ] 2724 032136 003 04 0 00 000250 ER3 AC,T 2725 032137 312 05 0 00 040060 CAME AC+1,[0,,0] 2726 032140 004 05 0 00 000250 ER4 AC+1,T 2727 032141 321 10 0 00 032133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2728 2729 000251 T=T+1 2730 777777 777767 XX=/2 2731 650377 YY=YY+1000 2732 777777 777740 ZZ=ZZ+ZZ 2733 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2734 DMOVE AC,[600777,,-1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-4 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0071 2735 032142 120 04 0 00 040606 XX,,-1] 2736 DFAD AC,[0,,0 2737 032143 110 04 0 00 040355 0,,0] 2738 032144 312 04 0 00 040610 CAME AC,[YY,,ZZ] 2739 032145 003 04 0 00 000251 ER3 AC,T 2740 032146 312 05 0 00 040060 CAME AC+1,[0,,0] 2741 032147 004 05 0 00 000251 ER4 AC+1,T 2742 032150 321 10 0 00 032142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2743 2744 000252 T=T+1 2745 777777 777773 XX=/2 2746 651377 YY=YY+1000 2747 777777 777700 ZZ=ZZ+ZZ 2748 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2749 DMOVE AC,[600777,,-1 2750 032151 120 04 0 00 040611 XX,,-1] 2751 DFAD AC,[0,,0 2752 032152 110 04 0 00 040355 0,,0] 2753 032153 312 04 0 00 040613 CAME AC,[YY,,ZZ] 2754 032154 003 04 0 00 000252 ER3 AC,T 2755 032155 312 05 0 00 040060 CAME AC+1,[0,,0] 2756 032156 004 05 0 00 000252 ER4 AC+1,T 2757 032157 321 10 0 00 032151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2758 2759 000253 T=T+1 2760 777777 777775 XX=/2 2761 652377 YY=YY+1000 2762 777777 777600 ZZ=ZZ+ZZ 2763 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2764 DMOVE AC,[600777,,-1 2765 032160 120 04 0 00 040614 XX,,-1] 2766 DFAD AC,[0,,0 2767 032161 110 04 0 00 040355 0,,0] 2768 032162 312 04 0 00 040616 CAME AC,[YY,,ZZ] 2769 032163 003 04 0 00 000253 ER3 AC,T 2770 032164 312 05 0 00 040060 CAME AC+1,[0,,0] 2771 032165 004 05 0 00 000253 ER4 AC+1,T 2772 032166 321 10 0 00 032160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2773 2774 000254 T=T+1 2775 777777 777776 XX=/2 2776 653377 YY=YY+1000 2777 777777 777400 ZZ=ZZ+ZZ 2778 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^ 2779 DMOVE AC,[600777,,-1 2780 032167 120 04 0 00 040617 XX,,-1] 2781 DFAD AC,[0,,0 2782 032170 110 04 0 00 040355 0,,0] 2783 032171 312 04 0 00 040621 CAME AC,[YY,,ZZ] 2784 032172 003 04 0 00 000254 ER3 AC,T 2785 032173 312 05 0 00 040060 CAME AC+1,[0,,0] 2786 032174 004 05 0 00 000254 ER4 AC+1,T 2787 032175 321 10 0 00 032167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2788 2789 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-5 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0072 2790 777776 777777 XX=777776777777 2791 2792 REPEAT ^D10, 2793 /2 2795 YY=YY+1000 2796 ZZ=ZZ+ZZ 2797 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0 2798 > 2799 000255 T=T+1 2800 777777 377777 XX=/2 2801 654377 YY=YY+1000 2802 777777 777000 ZZ=ZZ+ZZ 2803 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2804 DMOVE AC,[600777,,-1 2805 032176 120 04 0 00 040622 -1,,XX] 2806 DFAD AC,[0,,0 2807 032177 110 04 0 00 040355 0,,0] 2808 032200 312 04 0 00 040624 CAME AC,[YY,,ZZ] 2809 032201 003 04 0 00 000255 ER3 AC,T 2810 032202 312 05 0 00 040060 CAME AC+1,[0,,0] 2811 032203 004 05 0 00 000255 ER4 AC+1,T 2812 032204 321 10 0 00 032176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2813 2814 000256 T=T+1 2815 777777 577777 XX=/2 2816 655377 YY=YY+1000 2817 777777 776000 ZZ=ZZ+ZZ 2818 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2819 DMOVE AC,[600777,,-1 2820 032205 120 04 0 00 040625 -1,,XX] 2821 DFAD AC,[0,,0 2822 032206 110 04 0 00 040355 0,,0] 2823 032207 312 04 0 00 040627 CAME AC,[YY,,ZZ] 2824 032210 003 04 0 00 000256 ER3 AC,T 2825 032211 312 05 0 00 040060 CAME AC+1,[0,,0] 2826 032212 004 05 0 00 000256 ER4 AC+1,T 2827 032213 321 10 0 00 032205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2828 2829 000257 T=T+1 2830 777777 677777 XX=/2 2831 656377 YY=YY+1000 2832 777777 774000 ZZ=ZZ+ZZ 2833 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2834 DMOVE AC,[600777,,-1 2835 032214 120 04 0 00 040630 -1,,XX] 2836 DFAD AC,[0,,0 2837 032215 110 04 0 00 040355 0,,0] 2838 032216 312 04 0 00 040632 CAME AC,[YY,,ZZ] 2839 032217 003 04 0 00 000257 ER3 AC,T 2840 032220 312 05 0 00 040060 CAME AC+1,[0,,0] 2841 032221 004 05 0 00 000257 ER4 AC+1,T 2842 032222 321 10 0 00 032214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2843 2844 000260 T=T+1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-6 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0073 2845 777777 737777 XX=/2 2846 657377 YY=YY+1000 2847 777777 770000 ZZ=ZZ+ZZ 2848 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2849 DMOVE AC,[600777,,-1 2850 032223 120 04 0 00 040633 -1,,XX] 2851 DFAD AC,[0,,0 2852 032224 110 04 0 00 040355 0,,0] 2853 032225 312 04 0 00 040635 CAME AC,[YY,,ZZ] 2854 032226 003 04 0 00 000260 ER3 AC,T 2855 032227 312 05 0 00 040060 CAME AC+1,[0,,0] 2856 032230 004 05 0 00 000260 ER4 AC+1,T 2857 032231 321 10 0 00 032223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2858 2859 000261 T=T+1 2860 777777 757777 XX=/2 2861 660377 YY=YY+1000 2862 777777 760000 ZZ=ZZ+ZZ 2863 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2864 DMOVE AC,[600777,,-1 2865 032232 120 04 0 00 040636 -1,,XX] 2866 DFAD AC,[0,,0 2867 032233 110 04 0 00 040355 0,,0] 2868 032234 312 04 0 00 040640 CAME AC,[YY,,ZZ] 2869 032235 003 04 0 00 000261 ER3 AC,T 2870 032236 312 05 0 00 040060 CAME AC+1,[0,,0] 2871 032237 004 05 0 00 000261 ER4 AC+1,T 2872 032240 321 10 0 00 032232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2873 2874 000262 T=T+1 2875 777777 767777 XX=/2 2876 661377 YY=YY+1000 2877 777777 740000 ZZ=ZZ+ZZ 2878 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2879 DMOVE AC,[600777,,-1 2880 032241 120 04 0 00 040641 -1,,XX] 2881 DFAD AC,[0,,0 2882 032242 110 04 0 00 040355 0,,0] 2883 032243 312 04 0 00 040643 CAME AC,[YY,,ZZ] 2884 032244 003 04 0 00 000262 ER3 AC,T 2885 032245 312 05 0 00 040060 CAME AC+1,[0,,0] 2886 032246 004 05 0 00 000262 ER4 AC+1,T 2887 032247 321 10 0 00 032241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2888 2889 000263 T=T+1 2890 777777 773777 XX=/2 2891 662377 YY=YY+1000 2892 777777 700000 ZZ=ZZ+ZZ 2893 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2894 DMOVE AC,[600777,,-1 2895 032250 120 04 0 00 040644 -1,,XX] 2896 DFAD AC,[0,,0 2897 032251 110 04 0 00 040355 0,,0] 2898 032252 312 04 0 00 040646 CAME AC,[YY,,ZZ] 2899 032253 003 04 0 00 000263 ER3 AC,T DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-7 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0074 2900 032254 312 05 0 00 040060 CAME AC+1,[0,,0] 2901 032255 004 05 0 00 000263 ER4 AC+1,T 2902 032256 321 10 0 00 032250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2903 2904 000264 T=T+1 2905 777777 775777 XX=/2 2906 663377 YY=YY+1000 2907 777777 600000 ZZ=ZZ+ZZ 2908 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2909 DMOVE AC,[600777,,-1 2910 032257 120 04 0 00 040647 -1,,XX] 2911 DFAD AC,[0,,0 2912 032260 110 04 0 00 040355 0,,0] 2913 032261 312 04 0 00 040651 CAME AC,[YY,,ZZ] 2914 032262 003 04 0 00 000264 ER3 AC,T 2915 032263 312 05 0 00 040060 CAME AC+1,[0,,0] 2916 032264 004 05 0 00 000264 ER4 AC+1,T 2917 032265 321 10 0 00 032257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2918 2919 000265 T=T+1 2920 777777 776777 XX=/2 2921 664377 YY=YY+1000 2922 777777 400000 ZZ=ZZ+ZZ 2923 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2924 DMOVE AC,[600777,,-1 2925 032266 120 04 0 00 040652 -1,,XX] 2926 DFAD AC,[0,,0 2927 032267 110 04 0 00 040355 0,,0] 2928 032270 312 04 0 00 040654 CAME AC,[YY,,ZZ] 2929 032271 003 04 0 00 000265 ER3 AC,T 2930 032272 312 05 0 00 040060 CAME AC+1,[0,,0] 2931 032273 004 05 0 00 000265 ER4 AC+1,T 2932 032274 321 10 0 00 032266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2933 2934 000266 T=T+1 2935 777777 777377 XX=/2 2936 665377 YY=YY+1000 2937 777777 000000 ZZ=ZZ+ZZ 2938 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^ 2939 DMOVE AC,[600777,,-1 2940 032275 120 04 0 00 040655 -1,,XX] 2941 DFAD AC,[0,,0 2942 032276 110 04 0 00 040355 0,,0] 2943 032277 312 04 0 00 040657 CAME AC,[YY,,ZZ] 2944 032300 003 04 0 00 000266 ER3 AC,T 2945 032301 312 05 0 00 040060 CAME AC+1,[0,,0] 2946 032302 004 05 0 00 000266 ER4 AC+1,T 2947 032303 321 10 0 00 032275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2948 2949 2950 665000 YY=YY-377 2951 777777 777777 ZZ=-1 2952 2953 REPEAT ^D7, 2954 /2 2956 YY=YY+1000 2957 ZZ=ZZ+ZZ 2958 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0 2959 > 2960 000267 T=T+1 2961 777777 777577 XX=/2 2962 666000 YY=YY+1000 2963 777777 777776 ZZ=ZZ+ZZ 2964 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ 2965 DMOVE AC,[600777,,-1 2966 032304 120 04 0 00 040660 -1,,XX] 2967 DFAD AC,[0,,0 2968 032305 110 04 0 00 040355 0,,0] 2969 032306 312 04 0 00 040662 CAME AC,[YY+ZZ&377,,0] 2970 032307 003 04 0 00 000267 ER3 AC,T 2971 032310 312 05 0 00 040060 CAME AC+1,[0,,0] 2972 032311 004 05 0 00 000267 ER4 AC+1,T 2973 032312 321 10 0 00 032304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2974 2975 000270 T=T+1 2976 777777 777677 XX=/2 2977 667000 YY=YY+1000 2978 777777 777774 ZZ=ZZ+ZZ 2979 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ 2980 DMOVE AC,[600777,,-1 2981 032313 120 04 0 00 040663 -1,,XX] 2982 DFAD AC,[0,,0 2983 032314 110 04 0 00 040355 0,,0] 2984 032315 312 04 0 00 040665 CAME AC,[YY+ZZ&377,,0] 2985 032316 003 04 0 00 000270 ER3 AC,T 2986 032317 312 05 0 00 040060 CAME AC+1,[0,,0] 2987 032320 004 05 0 00 000270 ER4 AC+1,T 2988 032321 321 10 0 00 032313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 2989 2990 000271 T=T+1 2991 777777 777737 XX=/2 2992 670000 YY=YY+1000 2993 777777 777770 ZZ=ZZ+ZZ 2994 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ 2995 DMOVE AC,[600777,,-1 2996 032322 120 04 0 00 040666 -1,,XX] 2997 DFAD AC,[0,,0 2998 032323 110 04 0 00 040355 0,,0] 2999 032324 312 04 0 00 040670 CAME AC,[YY+ZZ&377,,0] 3000 032325 003 04 0 00 000271 ER3 AC,T 3001 032326 312 05 0 00 040060 CAME AC+1,[0,,0] 3002 032327 004 05 0 00 000271 ER4 AC+1,T 3003 032330 321 10 0 00 032322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3004 3005 000272 T=T+1 3006 777777 777757 XX=/2 3007 671000 YY=YY+1000 3008 777777 777760 ZZ=ZZ+ZZ 3009 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-9 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0076 3010 DMOVE AC,[600777,,-1 3011 032331 120 04 0 00 040671 -1,,XX] 3012 DFAD AC,[0,,0 3013 032332 110 04 0 00 040355 0,,0] 3014 032333 312 04 0 00 040673 CAME AC,[YY+ZZ&377,,0] 3015 032334 003 04 0 00 000272 ER3 AC,T 3016 032335 312 05 0 00 040060 CAME AC+1,[0,,0] 3017 032336 004 05 0 00 000272 ER4 AC+1,T 3018 032337 321 10 0 00 032331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3019 3020 000273 T=T+1 3021 777777 777767 XX=/2 3022 672000 YY=YY+1000 3023 777777 777740 ZZ=ZZ+ZZ 3024 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ 3025 DMOVE AC,[600777,,-1 3026 032340 120 04 0 00 040674 -1,,XX] 3027 DFAD AC,[0,,0 3028 032341 110 04 0 00 040355 0,,0] 3029 032342 312 04 0 00 040676 CAME AC,[YY+ZZ&377,,0] 3030 032343 003 04 0 00 000273 ER3 AC,T 3031 032344 312 05 0 00 040060 CAME AC+1,[0,,0] 3032 032345 004 05 0 00 000273 ER4 AC+1,T 3033 032346 321 10 0 00 032340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3034 3035 000274 T=T+1 3036 777777 777773 XX=/2 3037 673000 YY=YY+1000 3038 777777 777700 ZZ=ZZ+ZZ 3039 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ 3040 DMOVE AC,[600777,,-1 3041 032347 120 04 0 00 040677 -1,,XX] 3042 DFAD AC,[0,,0 3043 032350 110 04 0 00 040355 0,,0] 3044 032351 312 04 0 00 040701 CAME AC,[YY+ZZ&377,,0] 3045 032352 003 04 0 00 000274 ER3 AC,T 3046 032353 312 05 0 00 040060 CAME AC+1,[0,,0] 3047 032354 004 05 0 00 000274 ER4 AC+1,T 3048 032355 321 10 0 00 032347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3049 3050 000275 T=T+1 3051 777777 777775 XX=/2 3052 674000 YY=YY+1000 3053 777777 777600 ZZ=ZZ+ZZ 3054 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^ 3055 DMOVE AC,[600777,,-1 3056 032356 120 04 0 00 040702 -1,,XX] 3057 DFAD AC,[0,,0 3058 032357 110 04 0 00 040355 0,,0] 3059 032360 312 04 0 00 040704 CAME AC,[YY+ZZ&377,,0] 3060 032361 003 04 0 00 000275 ER3 AC,T 3061 032362 312 05 0 00 040060 CAME AC+1,[0,,0] 3062 032363 004 05 0 00 000275 ER4 AC+1,T 3063 032364 321 10 0 00 032356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ 3064 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 4-10 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0077 3065 3066 000276 T=T+1 3067 777777 777776 XX=/2 3068 777777 777400 ZZ=ZZ+ZZ 3069 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&777,0,0,0^ 3070 DMOVE AC,[600777,,-1 3071 032365 120 04 0 00 040705 -1,,XX] 3072 DFAD AC,[0,,0 3073 032366 110 04 0 00 040355 0,,0] 3074 032367 312 04 0 00 040707 CAME AC,[YY+ZZ&777,,0] 3075 032370 003 04 0 00 000276 ER3 AC,T 3076 032371 312 05 0 00 040060 CAME AC+1,[0,,0] 3077 032372 004 05 0 00 000276 ER4 AC+1,T 3078 032373 321 10 0 00 032365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5 DSKCE1 MAC 21-Jun-78 10:46 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0078 3079 3080 SUBTTL DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND 3081 3082 ;CHECK THAT DFAD AC,E DOES NOT ALTER C(E) OR C(E+1) 3083 3084 S10100: DMOVE AC,[200777,,-1 3085 032374 120 04 0 00 040710 -1,,-1] 3086 DMOVE AC+2,[200000,,0 3087 032375 120 06 0 00 040712 400000,,-1] 3088 032376 110 04 0 00 000006 DFAD AC,AC+2 3089 032377 312 06 0 00 040203 CAME AC+2,[200000,,0] 3090 032400 005 06 0 00 010101 ER5 AC+2,10101 ;C(E) WAS ALTERED 3091 032401 312 07 0 00 040713 CAME AC+3,[400000,,-1] 3092 032402 006 07 0 00 010101 ER6 AC+3,10101 ;C(E+1) WAS ALTERED 3093 032403 321 10 0 00 032374 JUMPL AC+4,S10100 ;LOOP ON ERROR SWITCH 3094 3095 SDFA 102,600,0,0,0,400,0,0,0,1500,0,0,0^ 3096 S10200: DMOVE AC,[600,,0 3097 032404 120 04 0 00 040714 0,,0] 3098 DFAD AC,[400,,0 3099 032405 110 04 0 00 040716 0,,0] 3100 032406 312 04 0 00 040720 CAME AC,[1500,,0] 3101 032407 003 04 0 00 010201 ER3 AC,10201 3102 032410 312 05 0 00 040060 CAME AC+1,[0,,0] 3103 032411 004 05 0 00 010201 ER4 AC+1,10201 3104 032412 321 10 0 00 032404 JUMPL AC+4,S10200 ;LOOP ON ERROR SWITCH^ 3105 3106 SDFA 103,377000,0,0,0,377600,0,0,0,377600,0,0,0^ 3107 S10300: DMOVE AC,[377000,,0 3108 032413 120 04 0 00 040721 0,,0] 3109 DFAD AC,[377600,,0 3110 032414 110 04 0 00 040723 0,,0] 3111 032415 312 04 0 00 040523 CAME AC,[377600,,0] 3112 032416 003 04 0 00 010301 ER3 AC,10301 3113 032417 312 05 0 00 040060 CAME AC+1,[0,,0] 3114 032420 004 05 0 00 010301 ER4 AC+1,10301 3115 032421 321 10 0 00 032413 JUMPL AC+4,S10300 ;LOOP ON ERROR SWITCH^ 3116 3117 SDFA 104,600400,0,0,0,177400,0,0,0,0,0,0,0^ 3118 S10400: DMOVE AC,[600400,,0 3119 032422 120 04 0 00 040725 0,,0] 3120 DFAD AC,[177400,,0 3121 032423 110 04 0 00 040727 0,,0] 3122 032424 312 04 0 00 040060 CAME AC,[0,,0] 3123 032425 003 04 0 00 010401 ER3 AC,10401 3124 032426 312 05 0 00 040060 CAME AC+1,[0,,0] 3125 032427 004 05 0 00 010401 ER4 AC+1,10401 3126 032430 321 10 0 00 032422 JUMPL AC+4,S10400 ;LOOP ON ERROR SWITCH^ 3127 3128 SDFA 105,200400,0,0,0,205400,0,0,0,205410,0,0,0^ 3129 S10500: DMOVE AC,[200400,,0 3130 032431 120 04 0 00 040731 0,,0] 3131 DFAD AC,[205400,,0 3132 032432 110 04 0 00 040733 0,,0] 3133 032433 312 04 0 00 040735 CAME AC,[205410,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0079 3134 032434 003 04 0 00 010501 ER3 AC,10501 3135 032435 312 05 0 00 040060 CAME AC+1,[0,,0] 3136 032436 004 05 0 00 010501 ER4 AC+1,10501 3137 032437 321 10 0 00 032431 JUMPL AC+4,S10500 ;LOOP ON ERROR SWITCH^ 3138 3139 SDFA 106,200400,0,0,0,205600,0,0,0,205610,0,0,0^ 3140 S10600: DMOVE AC,[200400,,0 3141 032440 120 04 0 00 040731 0,,0] 3142 DFAD AC,[205600,,0 3143 032441 110 04 0 00 040736 0,,0] 3144 032442 312 04 0 00 040740 CAME AC,[205610,,0] 3145 032443 003 04 0 00 010601 ER3 AC,10601 3146 032444 312 05 0 00 040060 CAME AC+1,[0,,0] 3147 032445 004 05 0 00 010601 ER4 AC+1,10601 3148 032446 321 10 0 00 032440 JUMPL AC+4,S10600 ;LOOP ON ERROR SWITCH^ 3149 3150 SDFA 107,600,0,0,0,200400,0,0,0,200400,0,0,0^ 3151 S10700: DMOVE AC,[600,,0 3152 032447 120 04 0 00 040714 0,,0] 3153 DFAD AC,[200400,,0 3154 032450 110 04 0 00 040731 0,,0] 3155 032451 312 04 0 00 040063 CAME AC,[200400,,0] 3156 032452 003 04 0 00 010701 ER3 AC,10701 3157 032453 312 05 0 00 040060 CAME AC+1,[0,,0] 3158 032454 004 05 0 00 010701 ER4 AC+1,10701 3159 032455 321 10 0 00 032447 JUMPL AC+4,S10700 ;LOOP ON ERROR SWITCH^ 3160 3161 SDFA 110,200700,0,0,0,0,0,0,0,200700,0,0,0^ 3162 S11000: DMOVE AC,[200700,,0 3163 032456 120 04 0 00 040741 0,,0] 3164 DFAD AC,[0,,0 3165 032457 110 04 0 00 040355 0,,0] 3166 032460 312 04 0 00 040741 CAME AC,[200700,,0] 3167 032461 003 04 0 00 011001 ER3 AC,11001 3168 032462 312 05 0 00 040060 CAME AC+1,[0,,0] 3169 032463 004 05 0 00 011001 ER4 AC+1,11001 3170 032464 321 10 0 00 032456 JUMPL AC+4,S11000 ;LOOP ON ERROR SWITCH^ 3171 3172 SDFA 111,201400,0,0,0,200400,0,0,0,201600,0,0,0^ 3173 S11100: DMOVE AC,[201400,,0 3174 032465 120 04 0 00 040057 0,,0] 3175 DFAD AC,[200400,,0 3176 032466 110 04 0 00 040731 0,,0] 3177 032467 312 04 0 00 040743 CAME AC,[201600,,0] 3178 032470 003 04 0 00 011101 ER3 AC,11101 3179 032471 312 05 0 00 040060 CAME AC+1,[0,,0] 3180 032472 004 05 0 00 011101 ER4 AC+1,11101 3181 032473 321 10 0 00 032465 JUMPL AC+4,S11100 ;LOOP ON ERROR SWITCH^ 3182 3183 SDFA 112,202400,0,0,0,200400,0,0,0,202500,0,0,0^ 3184 S11200: DMOVE AC,[202400,,0 3185 032474 120 04 0 00 040744 0,,0] 3186 DFAD AC,[200400,,0 3187 032475 110 04 0 00 040731 0,,0] 3188 032476 312 04 0 00 040746 CAME AC,[202500,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5-2 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0080 3189 032477 003 04 0 00 011201 ER3 AC,11201 3190 032500 312 05 0 00 040060 CAME AC+1,[0,,0] 3191 032501 004 05 0 00 011201 ER4 AC+1,11201 3192 032502 321 10 0 00 032474 JUMPL AC+4,S11200 ;LOOP ON ERROR SWITCH^ 3193 3194 SDFA 113,204400,0,0,0,200400,0,0,0,204420,0,0,0^ 3195 S11300: DMOVE AC,[204400,,0 3196 032503 120 04 0 00 040747 0,,0] 3197 DFAD AC,[200400,,0 3198 032504 110 04 0 00 040731 0,,0] 3199 032505 312 04 0 00 040751 CAME AC,[204420,,0] 3200 032506 003 04 0 00 011301 ER3 AC,11301 3201 032507 312 05 0 00 040060 CAME AC+1,[0,,0] 3202 032510 004 05 0 00 011301 ER4 AC+1,11301 3203 032511 321 10 0 00 032503 JUMPL AC+4,S11300 ;LOOP ON ERROR SWITCH^ 3204 3205 SDFA 114,210400,0,0,0,200400,0,0,0,210401,0,0,0^ 3206 S11400: DMOVE AC,[210400,,0 3207 032512 120 04 0 00 040752 0,,0] 3208 DFAD AC,[200400,,0 3209 032513 110 04 0 00 040731 0,,0] 3210 032514 312 04 0 00 040754 CAME AC,[210401,,0] 3211 032515 003 04 0 00 011401 ER3 AC,11401 3212 032516 312 05 0 00 040060 CAME AC+1,[0,,0] 3213 032517 004 05 0 00 011401 ER4 AC+1,11401 3214 032520 321 10 0 00 032512 JUMPL AC+4,S11400 ;LOOP ON ERROR SWITCH^ 3215 3216 SDFA 115,220400,0,0,0,200400,0,0,0,220400,2000,0,0^ 3217 S11500: DMOVE AC,[220400,,0 3218 032521 120 04 0 00 040755 0,,0] 3219 DFAD AC,[200400,,0 3220 032522 110 04 0 00 040731 0,,0] 3221 032523 312 04 0 00 040757 CAME AC,[220400,,2000] 3222 032524 003 04 0 00 011501 ER3 AC,11501 3223 032525 312 05 0 00 040060 CAME AC+1,[0,,0] 3224 032526 004 05 0 00 011501 ER4 AC+1,11501 3225 032527 321 10 0 00 032521 JUMPL AC+4,S11500 ;LOOP ON ERROR SWITCH^ 3226 3227 SDFA 116,240400,0,0,0,200400,0,0,0,240400,0,4000,0^ 3228 S11600: DMOVE AC,[240400,,0 3229 032530 120 04 0 00 040760 0,,0] 3230 DFAD AC,[200400,,0 3231 032531 110 04 0 00 040731 0,,0] 3232 032532 312 04 0 00 040760 CAME AC,[240400,,0] 3233 032533 003 04 0 00 011601 ER3 AC,11601 3234 032534 312 05 0 00 040222 CAME AC+1,[4000,,0] 3235 032535 004 05 0 00 011601 ER4 AC+1,11601 3236 032536 321 10 0 00 032530 JUMPL AC+4,S11600 ;LOOP ON ERROR SWITCH^ 3237 3238 SDFA 117,300400,0,0,0,200400,0,0,0,300400,0,0,0^ 3239 S11700: DMOVE AC,[300400,,0 3240 032537 120 04 0 00 040762 0,,0] 3241 DFAD AC,[200400,,0 3242 032540 110 04 0 00 040731 0,,0] 3243 032541 312 04 0 00 040762 CAME AC,[300400,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5-3 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0081 3244 032542 003 04 0 00 011701 ER3 AC,11701 3245 032543 312 05 0 00 040060 CAME AC+1,[0,,0] 3246 032544 004 05 0 00 011701 ER4 AC+1,11701 3247 032545 321 10 0 00 032537 JUMPL AC+4,S11700 ;LOOP ON ERROR SWITCH^ 3248 3249 SDFA 120,600400,0,0,0,600400,0,0,0,577400,0,0,0^ 3250 S12000: DMOVE AC,[600400,,0 3251 032546 120 04 0 00 040725 0,,0] 3252 DFAD AC,[600400,,0 3253 032547 110 04 0 00 040725 0,,0] 3254 032550 312 04 0 00 040061 CAME AC,[577400,,0] 3255 032551 003 04 0 00 012001 ER3 AC,12001 3256 032552 312 05 0 00 040060 CAME AC+1,[0,,0] 3257 032553 004 05 0 00 012001 ER4 AC+1,12001 3258 032554 321 10 0 00 032546 JUMPL AC+4,S12000 ;LOOP ON ERROR SWITCH^ 3259 3260 SDFA 121,0,0,0,0,205400,0,0,0,205400,0,0,0^ 3261 S12100: DMOVE AC,[0,,0 3262 032555 120 04 0 00 040355 0,,0] 3263 DFAD AC,[205400,,0 3264 032556 110 04 0 00 040733 0,,0] 3265 032557 312 04 0 00 040733 CAME AC,[205400,,0] 3266 032560 003 04 0 00 012101 ER3 AC,12101 3267 032561 312 05 0 00 040060 CAME AC+1,[0,,0] 3268 032562 004 05 0 00 012101 ER4 AC+1,12101 3269 032563 321 10 0 00 032555 JUMPL AC+4,S12100 ;LOOP ON ERROR SWITCH^ 3270 3271 SDFA 122,200400,0,0,0,200400,0,0,0,201400,0,0,0^ 3272 S12200: DMOVE AC,[200400,,0 3273 032564 120 04 0 00 040731 0,,0] 3274 DFAD AC,[200400,,0 3275 032565 110 04 0 00 040731 0,,0] 3276 032566 312 04 0 00 040057 CAME AC,[201400,,0] 3277 032567 003 04 0 00 012201 ER3 AC,12201 3278 032570 312 05 0 00 040060 CAME AC+1,[0,,0] 3279 032571 004 05 0 00 012201 ER4 AC+1,12201 3280 032572 321 10 0 00 032564 JUMPL AC+4,S12200 ;LOOP ON ERROR SWITCH^ 3281 3282 SDFA 123,577400,0,0,0,577400,0,0,0,576400,0,0,0^ 3283 S12300: DMOVE AC,[577400,,0 3284 032573 120 04 0 00 040061 0,,0] 3285 DFAD AC,[577400,,0 3286 032574 110 04 0 00 040061 0,,0] 3287 032575 312 04 0 00 040764 CAME AC,[576400,,0] 3288 032576 003 04 0 00 012301 ER3 AC,12301 3289 032577 312 05 0 00 040060 CAME AC+1,[0,,0] 3290 032600 004 05 0 00 012301 ER4 AC+1,12301 3291 032601 321 10 0 00 032573 JUMPL AC+4,S12300 ;LOOP ON ERROR SWITCH^ 3292 3293 SDFA 124,205600,0,0,0,177400,0,0,0,205604,0,0,0^ 3294 S12400: DMOVE AC,[205600,,0 3295 032602 120 04 0 00 040736 0,,0] 3296 DFAD AC,[177400,,0 3297 032603 110 04 0 00 040727 0,,0] 3298 032604 312 04 0 00 040765 CAME AC,[205604,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 5-4 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0082 3299 032605 003 04 0 00 012401 ER3 AC,12401 3300 032606 312 05 0 00 040060 CAME AC+1,[0,,0] 3301 032607 004 05 0 00 012401 ER4 AC+1,12401 3302 032610 321 10 0 00 032602 JUMPL AC+4,S12400 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0083 3303 3304 SDFA 125,201000,0,0,0,202000,0,0,0,0,0,0,0^ 3305 S12500: DMOVE AC,[201000,,0 3306 032611 120 04 0 00 040766 0,,0] 3307 DFAD AC,[202000,,0 3308 032612 110 04 0 00 040770 0,,0] 3309 032613 312 04 0 00 040060 CAME AC,[0,,0] 3310 032614 003 04 0 00 012501 ER3 AC,12501 3311 032615 312 05 0 00 040060 CAME AC+1,[0,,0] 3312 032616 004 05 0 00 012501 ER4 AC+1,12501 3313 032617 321 10 0 00 032611 JUMPL AC+4,S12500 ;LOOP ON ERROR SWITCH^ 3314 3315 SDFA 126,202000,0,0,0,204000,0,0,0,0,0,0,0^ 3316 S12600: DMOVE AC,[202000,,0 3317 032620 120 04 0 00 040770 0,,0] 3318 DFAD AC,[204000,,0 3319 032621 110 04 0 00 040772 0,,0] 3320 032622 312 04 0 00 040060 CAME AC,[0,,0] 3321 032623 003 04 0 00 012601 ER3 AC,12601 3322 032624 312 05 0 00 040060 CAME AC+1,[0,,0] 3323 032625 004 05 0 00 012601 ER4 AC+1,12601 3324 032626 321 10 0 00 032620 JUMPL AC+4,S12600 ;LOOP ON ERROR SWITCH^ 3325 3326 SDFA 127,204000,0,0,0,207000,0,0,0,0,0,0,0^ 3327 S12700: DMOVE AC,[204000,,0 3328 032627 120 04 0 00 040772 0,,0] 3329 DFAD AC,[207000,,0 3330 032630 110 04 0 00 040774 0,,0] 3331 032631 312 04 0 00 040060 CAME AC,[0,,0] 3332 032632 003 04 0 00 012701 ER3 AC,12701 3333 032633 312 05 0 00 040060 CAME AC+1,[0,,0] 3334 032634 004 05 0 00 012701 ER4 AC+1,12701 3335 032635 321 10 0 00 032627 JUMPL AC+4,S12700 ;LOOP ON ERROR SWITCH^ 3336 3337 SDFA 130,210000,0,0,0,214000,0,0,0,0,0,0,0^ 3338 S13000: DMOVE AC,[210000,,0 3339 032636 120 04 0 00 040776 0,,0] 3340 DFAD AC,[214000,,0 3341 032637 110 04 0 00 041000 0,,0] 3342 032640 312 04 0 00 040060 CAME AC,[0,,0] 3343 032641 003 04 0 00 013001 ER3 AC,13001 3344 032642 312 05 0 00 040060 CAME AC+1,[0,,0] 3345 032643 004 05 0 00 013001 ER4 AC+1,13001 3346 032644 321 10 0 00 032636 JUMPL AC+4,S13000 ;LOOP ON ERROR SWITCH^ 3347 3348 SDFA 131,220000,0,0,0,225000,0,0,0,0,0,0,0^ 3349 S13100: DMOVE AC,[220000,,0 3350 032645 120 04 0 00 041002 0,,0] 3351 DFAD AC,[225000,,0 3352 032646 110 04 0 00 041004 0,,0] 3353 032647 312 04 0 00 040060 CAME AC,[0,,0] 3354 032650 003 04 0 00 013101 ER3 AC,13101 3355 032651 312 05 0 00 040060 CAME AC+1,[0,,0] 3356 032652 004 05 0 00 013101 ER4 AC+1,13101 3357 032653 321 10 0 00 032645 JUMPL AC+4,S13100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0084 3358 3359 SDFA 132,240000,0,0,0,246000,0,0,0,0,0,0,0^ 3360 S13200: DMOVE AC,[240000,,0 3361 032654 120 04 0 00 041006 0,,0] 3362 DFAD AC,[246000,,0 3363 032655 110 04 0 00 041010 0,,0] 3364 032656 312 04 0 00 040060 CAME AC,[0,,0] 3365 032657 003 04 0 00 013201 ER3 AC,13201 3366 032660 312 05 0 00 040060 CAME AC+1,[0,,0] 3367 032661 004 05 0 00 013201 ER4 AC+1,13201 3368 032662 321 10 0 00 032654 JUMPL AC+4,S13200 ;LOOP ON ERROR SWITCH^ 3369 3370 SDFA 133,300000,0,0,0,307000,0,0,0,0,0,0,0^ 3371 S13300: DMOVE AC,[300000,,0 3372 032663 120 04 0 00 041012 0,,0] 3373 DFAD AC,[307000,,0 3374 032664 110 04 0 00 041014 0,,0] 3375 032665 312 04 0 00 040060 CAME AC,[0,,0] 3376 032666 003 04 0 00 013301 ER3 AC,13301 3377 032667 312 05 0 00 040060 CAME AC+1,[0,,0] 3378 032670 004 05 0 00 013301 ER4 AC+1,13301 3379 032671 321 10 0 00 032663 JUMPL AC+4,S13300 ;LOOP ON ERROR SWITCH^ 3380 3381 SDFA 134,200000,0,0,0,600400,0,0,0,600400,0,0,0^ 3382 S13400: DMOVE AC,[200000,,0 3383 032672 120 04 0 00 041016 0,,0] 3384 DFAD AC,[600400,,0 3385 032673 110 04 0 00 040725 0,,0] 3386 032674 312 04 0 00 040725 CAME AC,[600400,,0] 3387 032675 003 04 0 00 013401 ER3 AC,13401 3388 032676 312 05 0 00 040060 CAME AC+1,[0,,0] 3389 032677 004 05 0 00 013401 ER4 AC+1,13401 3390 032700 321 10 0 00 032672 JUMPL AC+4,S13400 ;LOOP ON ERROR SWITCH^ 3391 3392 SDFA 135,201000,0,0,0,600400,0,0,0,600400,0,0,0^ 3393 S13500: DMOVE AC,[201000,,0 3394 032701 120 04 0 00 040766 0,,0] 3395 DFAD AC,[600400,,0 3396 032702 110 04 0 00 040725 0,,0] 3397 032703 312 04 0 00 040725 CAME AC,[600400,,0] 3398 032704 003 04 0 00 013501 ER3 AC,13501 3399 032705 312 05 0 00 040060 CAME AC+1,[0,,0] 3400 032706 004 05 0 00 013501 ER4 AC+1,13501 3401 032707 321 10 0 00 032701 JUMPL AC+4,S13500 ;LOOP ON ERROR SWITCH^ 3402 3403 SDFA 136,202000,0,0,0,600400,0,0,0,600400,0,0,0^ 3404 S13600: DMOVE AC,[202000,,0 3405 032710 120 04 0 00 040770 0,,0] 3406 DFAD AC,[600400,,0 3407 032711 110 04 0 00 040725 0,,0] 3408 032712 312 04 0 00 040725 CAME AC,[600400,,0] 3409 032713 003 04 0 00 013601 ER3 AC,13601 3410 032714 312 05 0 00 040060 CAME AC+1,[0,,0] 3411 032715 004 05 0 00 013601 ER4 AC+1,13601 3412 032716 321 10 0 00 032710 JUMPL AC+4,S13600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6-2 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0085 3413 3414 SDFA 137,203000,0,0,0,600400,0,0,0,600400,0,0,0^ 3415 S13700: DMOVE AC,[203000,,0 3416 032717 120 04 0 00 041020 0,,0] 3417 DFAD AC,[600400,,0 3418 032720 110 04 0 00 040725 0,,0] 3419 032721 312 04 0 00 040725 CAME AC,[600400,,0] 3420 032722 003 04 0 00 013701 ER3 AC,13701 3421 032723 312 05 0 00 040060 CAME AC+1,[0,,0] 3422 032724 004 05 0 00 013701 ER4 AC+1,13701 3423 032725 321 10 0 00 032717 JUMPL AC+4,S13700 ;LOOP ON ERROR SWITCH^ 3424 3425 SDFA 140,204000,0,0,0,600400,0,0,0,600400,0,0,0^ 3426 S14000: DMOVE AC,[204000,,0 3427 032726 120 04 0 00 040772 0,,0] 3428 DFAD AC,[600400,,0 3429 032727 110 04 0 00 040725 0,,0] 3430 032730 312 04 0 00 040725 CAME AC,[600400,,0] 3431 032731 003 04 0 00 014001 ER3 AC,14001 3432 032732 312 05 0 00 040060 CAME AC+1,[0,,0] 3433 032733 004 05 0 00 014001 ER4 AC+1,14001 3434 032734 321 10 0 00 032726 JUMPL AC+4,S14000 ;LOOP ON ERROR SWITCH^ 3435 3436 SDFA 141,206000,0,0,0,600400,0,0,0,600400,0,0,0^ 3437 S14100: DMOVE AC,[206000,,0 3438 032735 120 04 0 00 041022 0,,0] 3439 DFAD AC,[600400,,0 3440 032736 110 04 0 00 040725 0,,0] 3441 032737 312 04 0 00 040725 CAME AC,[600400,,0] 3442 032740 003 04 0 00 014101 ER3 AC,14101 3443 032741 312 05 0 00 040060 CAME AC+1,[0,,0] 3444 032742 004 05 0 00 014101 ER4 AC+1,14101 3445 032743 321 10 0 00 032735 JUMPL AC+4,S14100 ;LOOP ON ERROR SWITCH^ 3446 3447 SDFA 142,207000,0,0,0,600400,0,0,0,600400,0,0,0^ 3448 S14200: DMOVE AC,[207000,,0 3449 032744 120 04 0 00 040774 0,,0] 3450 DFAD AC,[600400,,0 3451 032745 110 04 0 00 040725 0,,0] 3452 032746 312 04 0 00 040725 CAME AC,[600400,,0] 3453 032747 003 04 0 00 014201 ER3 AC,14201 3454 032750 312 05 0 00 040060 CAME AC+1,[0,,0] 3455 032751 004 05 0 00 014201 ER4 AC+1,14201 3456 032752 321 10 0 00 032744 JUMPL AC+4,S14200 ;LOOP ON ERROR SWITCH^ 3457 3458 SDFA 143,400200,0,0,0,377400,0,0,0,401400,0,0,0^ 3459 S14300: DMOVE AC,[400200,,0 3460 032753 120 04 0 00 041024 0,,0] 3461 DFAD AC,[377400,,0 3462 032754 110 04 0 00 041026 0,,0] 3463 032755 312 04 0 00 041030 CAME AC,[401400,,0] 3464 032756 003 04 0 00 014301 ER3 AC,14301 3465 032757 312 05 0 00 040060 CAME AC+1,[0,,0] 3466 032760 004 05 0 00 014301 ER4 AC+1,14301 3467 032761 321 10 0 00 032753 JUMPL AC+4,S14300 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6-3 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0086 3468 3469 SDFA 144,377400,0,0,0,400200,0,0,0,401400,0,0,0^ 3470 S14400: DMOVE AC,[377400,,0 3471 032762 120 04 0 00 041026 0,,0] 3472 DFAD AC,[400200,,0 3473 032763 110 04 0 00 041024 0,,0] 3474 032764 312 04 0 00 041030 CAME AC,[401400,,0] 3475 032765 003 04 0 00 014401 ER3 AC,14401 3476 032766 312 05 0 00 040060 CAME AC+1,[0,,0] 3477 032767 004 05 0 00 014401 ER4 AC+1,14401 3478 032770 321 10 0 00 032762 JUMPL AC+4,S14400 ;LOOP ON ERROR SWITCH^ 3479 3480 SDFA 145,200400,0,0,0,600400,0,0,0,177400,0,0,0^ 3481 S14500: DMOVE AC,[200400,,0 3482 032771 120 04 0 00 040731 0,,0] 3483 DFAD AC,[600400,,0 3484 032772 110 04 0 00 040725 0,,0] 3485 032773 312 04 0 00 040066 CAME AC,[177400,,0] 3486 032774 003 04 0 00 014501 ER3 AC,14501 3487 032775 312 05 0 00 040060 CAME AC+1,[0,,0] 3488 032776 004 05 0 00 014501 ER4 AC+1,14501 3489 032777 321 10 0 00 032771 JUMPL AC+4,S14500 ;LOOP ON ERROR SWITCH^ 3490 3491 SDFA 146,200600,0,0,0,201400,0,0,0,201700,0,0,0^ 3492 S14600: DMOVE AC,[200600,,0 3493 033000 120 04 0 00 040064 0,,0] 3494 DFAD AC,[201400,,0 3495 033001 110 04 0 00 040057 0,,0] 3496 033002 312 04 0 00 041031 CAME AC,[201700,,0] 3497 033003 003 04 0 00 014601 ER3 AC,14601 3498 033004 312 05 0 00 040060 CAME AC+1,[0,,0] 3499 033005 004 05 0 00 014601 ER4 AC+1,14601 3500 033006 321 10 0 00 033000 JUMPL AC+4,S14600 ;LOOP ON ERROR SWITCH^ 3501 3502 SDFA 147,577600,0,0,0,200400,0,0,0,177400,0,0,0^ 3503 S14700: DMOVE AC,[577600,,0 3504 033007 120 04 0 00 041032 0,,0] 3505 DFAD AC,[200400,,0 3506 033010 110 04 0 00 040731 0,,0] 3507 033011 312 04 0 00 040066 CAME AC,[177400,,0] 3508 033012 003 04 0 00 014701 ER3 AC,14701 3509 033013 312 05 0 00 040060 CAME AC+1,[0,,0] 3510 033014 004 05 0 00 014701 ER4 AC+1,14701 3511 033015 321 10 0 00 033007 JUMPL AC+4,S14700 ;LOOP ON ERROR SWITCH^ 3512 3513 SDFA 150,600400,0,0,0,577200,0,0,0,576400,0,0,0^ 3514 S15000: DMOVE AC,[600400,,0 3515 033016 120 04 0 00 040725 0,,0] 3516 DFAD AC,[577200,,0 3517 033017 110 04 0 00 041034 0,,0] 3518 033020 312 04 0 00 040764 CAME AC,[576400,,0] 3519 033021 003 04 0 00 015001 ER3 AC,15001 3520 033022 312 05 0 00 040060 CAME AC+1,[0,,0] 3521 033023 004 05 0 00 015001 ER4 AC+1,15001 3522 033024 321 10 0 00 033016 JUMPL AC+4,S15000 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6-4 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0087 3523 3524 SDFA 151,576400,0,0,0,200400,0,0,0,577400,0,0,0^ 3525 S15100: DMOVE AC,[576400,,0 3526 033025 120 04 0 00 041036 0,,0] 3527 DFAD AC,[200400,,0 3528 033026 110 04 0 00 040731 0,,0] 3529 033027 312 04 0 00 040061 CAME AC,[577400,,0] 3530 033030 003 04 0 00 015101 ER3 AC,15101 3531 033031 312 05 0 00 040060 CAME AC+1,[0,,0] 3532 033032 004 05 0 00 015101 ER4 AC+1,15101 3533 033033 321 10 0 00 033025 JUMPL AC+4,S15100 ;LOOP ON ERROR SWITCH^ 3534 3535 SDFA 152,200440,0,0,0,200400,0,0,0,201420,0,0,0^ 3536 S15200: DMOVE AC,[200440,,0 3537 033034 120 04 0 00 040072 0,,0] 3538 DFAD AC,[200400,,0 3539 033035 110 04 0 00 040731 0,,0] 3540 033036 312 04 0 00 041040 CAME AC,[201420,,0] 3541 033037 003 04 0 00 015201 ER3 AC,15201 3542 033040 312 05 0 00 040060 CAME AC+1,[0,,0] 3543 033041 004 05 0 00 015201 ER4 AC+1,15201 3544 033042 321 10 0 00 033034 JUMPL AC+4,S15200 ;LOOP ON ERROR SWITCH^ 3545 3546 SDFA 153,577400,0,0,0,577400,0,0,0,576400,0,0,0^ 3547 S15300: DMOVE AC,[577400,,0 3548 033043 120 04 0 00 040061 0,,0] 3549 DFAD AC,[577400,,0 3550 033044 110 04 0 00 040061 0,,0] 3551 033045 312 04 0 00 040764 CAME AC,[576400,,0] 3552 033046 003 04 0 00 015301 ER3 AC,15301 3553 033047 312 05 0 00 040060 CAME AC+1,[0,,0] 3554 033050 004 05 0 00 015301 ER4 AC+1,15301 3555 033051 321 10 0 00 033043 JUMPL AC+4,S15300 ;LOOP ON ERROR SWITCH^ 3556 3557 SDFA 154,200400,77,0,0,206400,0,0,0,206404,0,374000,0^ 3558 S15400: DMOVE AC,[200400,,77 3559 033052 120 04 0 00 041041 0,,0] 3560 DFAD AC,[206400,,0 3561 033053 110 04 0 00 041043 0,,0] 3562 033054 312 04 0 00 041045 CAME AC,[206404,,0] 3563 033055 003 04 0 00 015401 ER3 AC,15401 3564 033056 312 05 0 00 040543 CAME AC+1,[374000,,0] 3565 033057 004 05 0 00 015401 ER4 AC+1,15401 3566 033060 321 10 0 00 033052 JUMPL AC+4,S15400 ;LOOP ON ERROR SWITCH^ 3567 3568 SDFA 155,30400,3,0,0,32400,0,0,0,32500,0,300000,0^ 3569 S15500: DMOVE AC,[30400,,3 3570 033061 120 04 0 00 041046 0,,0] 3571 DFAD AC,[32400,,0 3572 033062 110 04 0 00 041050 0,,0] 3573 033063 312 04 0 00 041052 CAME AC,[32500,,0] 3574 033064 003 04 0 00 015501 ER3 AC,15501 3575 033065 312 05 0 00 040563 CAME AC+1,[300000,,0] 3576 033066 004 05 0 00 015501 ER4 AC+1,15501 3577 033067 321 10 0 00 033061 JUMPL AC+4,S15500 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 6-5 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0088 3578 3579 SDFA 156,200400,1,0,0,201600,0,0,0,202400,0,100000,0^ 3580 S15600: DMOVE AC,[200400,,1 3581 033070 120 04 0 00 040177 0,,0] 3582 DFAD AC,[201600,,0 3583 033071 110 04 0 00 041053 0,,0] 3584 033072 312 04 0 00 040744 CAME AC,[202400,,0] 3585 033073 003 04 0 00 015601 ER3 AC,15601 3586 033074 312 05 0 00 040206 CAME AC+1,[100000,,0] 3587 033075 004 05 0 00 015601 ER4 AC+1,15601 3588 033076 321 10 0 00 033070 JUMPL AC+4,S15600 ;LOOP ON ERROR SWITCH^ 3589 3590 SDFA 157,577400,3,0,0,202400,0,0,0,201600,1,200000,0^ 3591 S15700: DMOVE AC,[577400,,3 3592 033077 120 04 0 00 041055 0,,0] 3593 DFAD AC,[202400,,0 3594 033100 110 04 0 00 040744 0,,0] 3595 033101 312 04 0 00 041057 CAME AC,[201600,,1] 3596 033102 003 04 0 00 015701 ER3 AC,15701 3597 033103 312 05 0 00 040203 CAME AC+1,[200000,,0] 3598 033104 004 05 0 00 015701 ER4 AC+1,15701 3599 033105 321 10 0 00 033077 JUMPL AC+4,S15700 ;LOOP ON ERROR SWITCH^ 3600 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0089 3601 3602 SDFA 160,200400,3,0,0,202400,0,0,0,202500,0,300000,0^ 3603 S16000: DMOVE AC,[200400,,3 3604 033106 120 04 0 00 041060 0,,0] 3605 DFAD AC,[202400,,0 3606 033107 110 04 0 00 040744 0,,0] 3607 033110 312 04 0 00 040746 CAME AC,[202500,,0] 3608 033111 003 04 0 00 016001 ER3 AC,16001 3609 033112 312 05 0 00 040563 CAME AC+1,[300000,,0] 3610 033113 004 05 0 00 016001 ER4 AC+1,16001 3611 033114 321 10 0 00 033106 JUMPL AC+4,S16000 ;LOOP ON ERROR SWITCH^ 3612 3613 SDFA 161,200400,-1,0,0,202400,0,0,0,202500,177777,300000,0^ 3614 S16100: DMOVE AC,[200400,,-1 3615 033115 120 04 0 00 041062 0,,0] 3616 DFAD AC,[202400,,0 3617 033116 110 04 0 00 040744 0,,0] 3618 033117 312 04 0 00 041064 CAME AC,[202500,,177777] 3619 033120 003 04 0 00 016101 ER3 AC,16101 3620 033121 312 05 0 00 040563 CAME AC+1,[300000,,0] 3621 033122 004 05 0 00 016101 ER4 AC+1,16101 3622 033123 321 10 0 00 033115 JUMPL AC+4,S16100 ;LOOP ON ERROR SWITCH^ 3623 3624 SDFA 162,200200,1,0,0,200200,1,0,0,200400,2,0,0^ 3625 S16200: DMOVE AC,[200200,,1 3626 033124 120 04 0 00 041065 0,,0] 3627 DFAD AC,[200200,,1 3628 033125 110 04 0 00 041065 0,,0] 3629 033126 312 04 0 00 040174 CAME AC,[200400,,2] 3630 033127 003 04 0 00 016201 ER3 AC,16201 3631 033130 312 05 0 00 040060 CAME AC+1,[0,,0] 3632 033131 004 05 0 00 016201 ER4 AC+1,16201 3633 033132 321 10 0 00 033124 JUMPL AC+4,S16200 ;LOOP ON ERROR SWITCH^ 3634 3635 SDFA 163,200200,2,0,0,200200,2,0,0,200400,4,0,0^ 3636 S16300: DMOVE AC,[200200,,2 3637 033133 120 04 0 00 041067 0,,0] 3638 DFAD AC,[200200,,2 3639 033134 110 04 0 00 041067 0,,0] 3640 033135 312 04 0 00 040171 CAME AC,[200400,,4] 3641 033136 003 04 0 00 016301 ER3 AC,16301 3642 033137 312 05 0 00 040060 CAME AC+1,[0,,0] 3643 033140 004 05 0 00 016301 ER4 AC+1,16301 3644 033141 321 10 0 00 033133 JUMPL AC+4,S16300 ;LOOP ON ERROR SWITCH^ 3645 3646 SDFA 164,200200,4,0,0,200200,4,0,0,200400,10,0,0^ 3647 S16400: DMOVE AC,[200200,,4 3648 033142 120 04 0 00 041071 0,,0] 3649 DFAD AC,[200200,,4 3650 033143 110 04 0 00 041071 0,,0] 3651 033144 312 04 0 00 040166 CAME AC,[200400,,10] 3652 033145 003 04 0 00 016401 ER3 AC,16401 3653 033146 312 05 0 00 040060 CAME AC+1,[0,,0] 3654 033147 004 05 0 00 016401 ER4 AC+1,16401 3655 033150 321 10 0 00 033142 JUMPL AC+4,S16400 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0090 3656 3657 SDFA 165,200200,10,0,0,200200,10,0,0,200400,20,0,0^ 3658 S16500: DMOVE AC,[200200,,10 3659 033151 120 04 0 00 041073 0,,0] 3660 DFAD AC,[200200,,10 3661 033152 110 04 0 00 041073 0,,0] 3662 033153 312 04 0 00 040163 CAME AC,[200400,,20] 3663 033154 003 04 0 00 016501 ER3 AC,16501 3664 033155 312 05 0 00 040060 CAME AC+1,[0,,0] 3665 033156 004 05 0 00 016501 ER4 AC+1,16501 3666 033157 321 10 0 00 033151 JUMPL AC+4,S16500 ;LOOP ON ERROR SWITCH^ 3667 3668 SDFA 166,200200,20,0,0,200200,20,0,0,200400,40,0,0^ 3669 S16600: DMOVE AC,[200200,,20 3670 033160 120 04 0 00 041075 0,,0] 3671 DFAD AC,[200200,,20 3672 033161 110 04 0 00 041075 0,,0] 3673 033162 312 04 0 00 040160 CAME AC,[200400,,40] 3674 033163 003 04 0 00 016601 ER3 AC,16601 3675 033164 312 05 0 00 040060 CAME AC+1,[0,,0] 3676 033165 004 05 0 00 016601 ER4 AC+1,16601 3677 033166 321 10 0 00 033160 JUMPL AC+4,S16600 ;LOOP ON ERROR SWITCH^ 3678 3679 SDFA 167,200200,40,0,0,200200,40,0,0,200400,100,0,0^ 3680 S16700: DMOVE AC,[200200,,40 3681 033167 120 04 0 00 041077 0,,0] 3682 DFAD AC,[200200,,40 3683 033170 110 04 0 00 041077 0,,0] 3684 033171 312 04 0 00 040155 CAME AC,[200400,,100] 3685 033172 003 04 0 00 016701 ER3 AC,16701 3686 033173 312 05 0 00 040060 CAME AC+1,[0,,0] 3687 033174 004 05 0 00 016701 ER4 AC+1,16701 3688 033175 321 10 0 00 033167 JUMPL AC+4,S16700 ;LOOP ON ERROR SWITCH^ 3689 3690 SDFA 170,200200,100,0,0,200200,100,0,0,200400,200,0,0^ 3691 S17000: DMOVE AC,[200200,,100 3692 033176 120 04 0 00 041101 0,,0] 3693 DFAD AC,[200200,,100 3694 033177 110 04 0 00 041101 0,,0] 3695 033200 312 04 0 00 040152 CAME AC,[200400,,200] 3696 033201 003 04 0 00 017001 ER3 AC,17001 3697 033202 312 05 0 00 040060 CAME AC+1,[0,,0] 3698 033203 004 05 0 00 017001 ER4 AC+1,17001 3699 033204 321 10 0 00 033176 JUMPL AC+4,S17000 ;LOOP ON ERROR SWITCH^ 3700 3701 SDFA 171,200200,200,0,0,200200,200,0,0,200400,400,0,0^ 3702 S17100: DMOVE AC,[200200,,200 3703 033205 120 04 0 00 041103 0,,0] 3704 DFAD AC,[200200,,200 3705 033206 110 04 0 00 041103 0,,0] 3706 033207 312 04 0 00 040147 CAME AC,[200400,,400] 3707 033210 003 04 0 00 017101 ER3 AC,17101 3708 033211 312 05 0 00 040060 CAME AC+1,[0,,0] 3709 033212 004 05 0 00 017101 ER4 AC+1,17101 3710 033213 321 10 0 00 033205 JUMPL AC+4,S17100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7-2 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0091 3711 3712 SDFA 172,200200,400,0,0,200200,400,0,0,200400,1000,0,0^ 3713 S17200: DMOVE AC,[200200,,400 3714 033214 120 04 0 00 041105 0,,0] 3715 DFAD AC,[200200,,400 3716 033215 110 04 0 00 041105 0,,0] 3717 033216 312 04 0 00 040144 CAME AC,[200400,,1000] 3718 033217 003 04 0 00 017201 ER3 AC,17201 3719 033220 312 05 0 00 040060 CAME AC+1,[0,,0] 3720 033221 004 05 0 00 017201 ER4 AC+1,17201 3721 033222 321 10 0 00 033214 JUMPL AC+4,S17200 ;LOOP ON ERROR SWITCH^ 3722 3723 SDFA 173,200200,1000,0,0,200200,1000,0,0,200400,2000,0,0^ 3724 S17300: DMOVE AC,[200200,,1000 3725 033223 120 04 0 00 041107 0,,0] 3726 DFAD AC,[200200,,1000 3727 033224 110 04 0 00 041107 0,,0] 3728 033225 312 04 0 00 040141 CAME AC,[200400,,2000] 3729 033226 003 04 0 00 017301 ER3 AC,17301 3730 033227 312 05 0 00 040060 CAME AC+1,[0,,0] 3731 033230 004 05 0 00 017301 ER4 AC+1,17301 3732 033231 321 10 0 00 033223 JUMPL AC+4,S17300 ;LOOP ON ERROR SWITCH^ 3733 3734 SDFA 174,172400,0,0,0,201400,0,0,0,201402,0,0,0^ 3735 S17400: DMOVE AC,[172400,,0 3736 033232 120 04 0 00 041111 0,,0] 3737 DFAD AC,[201400,,0 3738 033233 110 04 0 00 040057 0,,0] 3739 033234 312 04 0 00 041113 CAME AC,[201402,,0] 3740 033235 003 04 0 00 017401 ER3 AC,17401 3741 033236 312 05 0 00 040060 CAME AC+1,[0,,0] 3742 033237 004 05 0 00 017401 ER4 AC+1,17401 3743 033240 321 10 0 00 033232 JUMPL AC+4,S17400 ;LOOP ON ERROR SWITCH^ 3744 3745 SDFA 175,173400,0,0,0,201400,0,0,0,201404,0,0,0^ 3746 S17500: DMOVE AC,[173400,,0 3747 033241 120 04 0 00 041114 0,,0] 3748 DFAD AC,[201400,,0 3749 033242 110 04 0 00 040057 0,,0] 3750 033243 312 04 0 00 041116 CAME AC,[201404,,0] 3751 033244 003 04 0 00 017501 ER3 AC,17501 3752 033245 312 05 0 00 040060 CAME AC+1,[0,,0] 3753 033246 004 05 0 00 017501 ER4 AC+1,17501 3754 033247 321 10 0 00 033241 JUMPL AC+4,S17500 ;LOOP ON ERROR SWITCH^ 3755 3756 SDFA 176,174400,0,0,0,201400,0,0,0,201410,0,0,0^ 3757 S17600: DMOVE AC,[174400,,0 3758 033250 120 04 0 00 041117 0,,0] 3759 DFAD AC,[201400,,0 3760 033251 110 04 0 00 040057 0,,0] 3761 033252 312 04 0 00 041121 CAME AC,[201410,,0] 3762 033253 003 04 0 00 017601 ER3 AC,17601 3763 033254 312 05 0 00 040060 CAME AC+1,[0,,0] 3764 033255 004 05 0 00 017601 ER4 AC+1,17601 3765 033256 321 10 0 00 033250 JUMPL AC+4,S17600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7-3 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0092 3766 3767 SDFA 177,175400,0,0,0,201400,0,0,0,201420,0,0,0^ 3768 S17700: DMOVE AC,[175400,,0 3769 033257 120 04 0 00 041122 0,,0] 3770 DFAD AC,[201400,,0 3771 033260 110 04 0 00 040057 0,,0] 3772 033261 312 04 0 00 041040 CAME AC,[201420,,0] 3773 033262 003 04 0 00 017701 ER3 AC,17701 3774 033263 312 05 0 00 040060 CAME AC+1,[0,,0] 3775 033264 004 05 0 00 017701 ER4 AC+1,17701 3776 033265 321 10 0 00 033257 JUMPL AC+4,S17700 ;LOOP ON ERROR SWITCH^ 3777 3778 SDFA 200,176400,0,0,0,201400,0,0,0,201440,0,0,0^ 3779 S20000: DMOVE AC,[176400,,0 3780 033266 120 04 0 00 041124 0,,0] 3781 DFAD AC,[201400,,0 3782 033267 110 04 0 00 040057 0,,0] 3783 033270 312 04 0 00 041126 CAME AC,[201440,,0] 3784 033271 003 04 0 00 020001 ER3 AC,20001 3785 033272 312 05 0 00 040060 CAME AC+1,[0,,0] 3786 033273 004 05 0 00 020001 ER4 AC+1,20001 3787 033274 321 10 0 00 033266 JUMPL AC+4,S20000 ;LOOP ON ERROR SWITCH^ 3788 3789 SDFA 201,177400,0,0,0,201400,0,0,0,201500,0,0,0^ 3790 S20100: DMOVE AC,[177400,,0 3791 033275 120 04 0 00 040727 0,,0] 3792 DFAD AC,[201400,,0 3793 033276 110 04 0 00 040057 0,,0] 3794 033277 312 04 0 00 041127 CAME AC,[201500,,0] 3795 033300 003 04 0 00 020101 ER3 AC,20101 3796 033301 312 05 0 00 040060 CAME AC+1,[0,,0] 3797 033302 004 05 0 00 020101 ER4 AC+1,20101 3798 033303 321 10 0 00 033275 JUMPL AC+4,S20100 ;LOOP ON ERROR SWITCH^ 3799 3800 SDFA 202,202600,0,0,0,200400,0,0,0,202700,0,0,0^ 3801 S20200: DMOVE AC,[202600,,0 3802 033304 120 04 0 00 041130 0,,0] 3803 DFAD AC,[200400,,0 3804 033305 110 04 0 00 040731 0,,0] 3805 033306 312 04 0 00 041132 CAME AC,[202700,,0] 3806 033307 003 04 0 00 020201 ER3 AC,20201 3807 033310 312 05 0 00 040060 CAME AC+1,[0,,0] 3808 033311 004 05 0 00 020201 ER4 AC+1,20201 3809 033312 321 10 0 00 033304 JUMPL AC+4,S20200 ;LOOP ON ERROR SWITCH^ 3810 3811 SDFA 203,400,0,0,0,200400,0,0,0,200400,0,0,0^ 3812 S20300: DMOVE AC,[400,,0 3813 033313 120 04 0 00 040716 0,,0] 3814 DFAD AC,[200400,,0 3815 033314 110 04 0 00 040731 0,,0] 3816 033315 312 04 0 00 040063 CAME AC,[200400,,0] 3817 033316 003 04 0 00 020301 ER3 AC,20301 3818 033317 312 05 0 00 040060 CAME AC+1,[0,,0] 3819 033320 004 05 0 00 020301 ER4 AC+1,20301 3820 033321 321 10 0 00 033313 JUMPL AC+4,S20300 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7-4 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0093 3821 3822 SDFA 204,400,0,0,0,201400,0,0,0,201400,0,0,0^ 3823 S20400: DMOVE AC,[400,,0 3824 033322 120 04 0 00 040716 0,,0] 3825 DFAD AC,[201400,,0 3826 033323 110 04 0 00 040057 0,,0] 3827 033324 312 04 0 00 040057 CAME AC,[201400,,0] 3828 033325 003 04 0 00 020401 ER3 AC,20401 3829 033326 312 05 0 00 040060 CAME AC+1,[0,,0] 3830 033327 004 05 0 00 020401 ER4 AC+1,20401 3831 033330 321 10 0 00 033322 JUMPL AC+4,S20400 ;LOOP ON ERROR SWITCH^ 3832 3833 SDFA 205,400,0,0,0,202400,0,0,0,202400,0,0,0^ 3834 S20500: DMOVE AC,[400,,0 3835 033331 120 04 0 00 040716 0,,0] 3836 DFAD AC,[202400,,0 3837 033332 110 04 0 00 040744 0,,0] 3838 033333 312 04 0 00 040744 CAME AC,[202400,,0] 3839 033334 003 04 0 00 020501 ER3 AC,20501 3840 033335 312 05 0 00 040060 CAME AC+1,[0,,0] 3841 033336 004 05 0 00 020501 ER4 AC+1,20501 3842 033337 321 10 0 00 033331 JUMPL AC+4,S20500 ;LOOP ON ERROR SWITCH^ 3843 3844 SDFA 206,200000,0,0,0,201000,0,0,0,0,0,0,0^ 3845 S20600: DMOVE AC,[200000,,0 3846 033340 120 04 0 00 041016 0,,0] 3847 DFAD AC,[201000,,0 3848 033341 110 04 0 00 040766 0,,0] 3849 033342 312 04 0 00 040060 CAME AC,[0,,0] 3850 033343 003 04 0 00 020601 ER3 AC,20601 3851 033344 312 05 0 00 040060 CAME AC+1,[0,,0] 3852 033345 004 05 0 00 020601 ER4 AC+1,20601 3853 033346 321 10 0 00 033340 JUMPL AC+4,S20600 ;LOOP ON ERROR SWITCH^ 3854 3855 SDFA 207,200000,0,0,0,202000,0,0,0,0,0,0,0^ 3856 S20700: DMOVE AC,[200000,,0 3857 033347 120 04 0 00 041016 0,,0] 3858 DFAD AC,[202000,,0 3859 033350 110 04 0 00 040770 0,,0] 3860 033351 312 04 0 00 040060 CAME AC,[0,,0] 3861 033352 003 04 0 00 020701 ER3 AC,20701 3862 033353 312 05 0 00 040060 CAME AC+1,[0,,0] 3863 033354 004 05 0 00 020701 ER4 AC+1,20701 3864 033355 321 10 0 00 033347 JUMPL AC+4,S20700 ;LOOP ON ERROR SWITCH^ 3865 3866 SDFA 210,200000,0,0,0,203000,0,0,0,0,0,0,0^ 3867 S21000: DMOVE AC,[200000,,0 3868 033356 120 04 0 00 041016 0,,0] 3869 DFAD AC,[203000,,0 3870 033357 110 04 0 00 041020 0,,0] 3871 033360 312 04 0 00 040060 CAME AC,[0,,0] 3872 033361 003 04 0 00 021001 ER3 AC,21001 3873 033362 312 05 0 00 040060 CAME AC+1,[0,,0] 3874 033363 004 05 0 00 021001 ER4 AC+1,21001 3875 033364 321 10 0 00 033356 JUMPL AC+4,S21000 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 7-5 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0094 3876 3877 SDFA 211,200400,0,0,0,200400,0,0,0,201400,0,0,0^ 3878 S21100: DMOVE AC,[200400,,0 3879 033365 120 04 0 00 040731 0,,0] 3880 DFAD AC,[200400,,0 3881 033366 110 04 0 00 040731 0,,0] 3882 033367 312 04 0 00 040057 CAME AC,[201400,,0] 3883 033370 003 04 0 00 021101 ER3 AC,21101 3884 033371 312 05 0 00 040060 CAME AC+1,[0,,0] 3885 033372 004 05 0 00 021101 ER4 AC+1,21101 3886 033373 321 10 0 00 033365 JUMPL AC+4,S21100 ;LOOP ON ERROR SWITCH^ 3887 3888 SDFA 212,201400,0,0,0,201400,0,0,0,202400,0,0,0^ 3889 S21200: DMOVE AC,[201400,,0 3890 033374 120 04 0 00 040057 0,,0] 3891 DFAD AC,[201400,,0 3892 033375 110 04 0 00 040057 0,,0] 3893 033376 312 04 0 00 040744 CAME AC,[202400,,0] 3894 033377 003 04 0 00 021201 ER3 AC,21201 3895 033400 312 05 0 00 040060 CAME AC+1,[0,,0] 3896 033401 004 05 0 00 021201 ER4 AC+1,21201 3897 033402 321 10 0 00 033374 JUMPL AC+4,S21200 ;LOOP ON ERROR SWITCH^ 3898 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0095 3899 3900 SDFA 213,202400,0,0,0,202400,0,0,0,203400,0,0,0^ 3901 S21300: DMOVE AC,[202400,,0 3902 033403 120 04 0 00 040744 0,,0] 3903 DFAD AC,[202400,,0 3904 033404 110 04 0 00 040744 0,,0] 3905 033405 312 04 0 00 041133 CAME AC,[203400,,0] 3906 033406 003 04 0 00 021301 ER3 AC,21301 3907 033407 312 05 0 00 040060 CAME AC+1,[0,,0] 3908 033410 004 05 0 00 021301 ER4 AC+1,21301 3909 033411 321 10 0 00 033403 JUMPL AC+4,S21300 ;LOOP ON ERROR SWITCH^ 3910 3911 SDFA 214,200100,0,0,0,200100,0,0,0,177400,0,0,0^ 3912 S21400: DMOVE AC,[200100,,0 3913 033412 120 04 0 00 041134 0,,0] 3914 DFAD AC,[200100,,0 3915 033413 110 04 0 00 041134 0,,0] 3916 033414 312 04 0 00 040066 CAME AC,[177400,,0] 3917 033415 003 04 0 00 021401 ER3 AC,21401 3918 033416 312 05 0 00 040060 CAME AC+1,[0,,0] 3919 033417 004 05 0 00 021401 ER4 AC+1,21401 3920 033420 321 10 0 00 033412 JUMPL AC+4,S21400 ;LOOP ON ERROR SWITCH^ 3921 3922 SDFA 215,200040,0,0,0,200040,0,0,0,176400,0,0,0^ 3923 S21500: DMOVE AC,[200040,,0 3924 033421 120 04 0 00 041136 0,,0] 3925 DFAD AC,[200040,,0 3926 033422 110 04 0 00 041136 0,,0] 3927 033423 312 04 0 00 040071 CAME AC,[176400,,0] 3928 033424 003 04 0 00 021501 ER3 AC,21501 3929 033425 312 05 0 00 040060 CAME AC+1,[0,,0] 3930 033426 004 05 0 00 021501 ER4 AC+1,21501 3931 033427 321 10 0 00 033421 JUMPL AC+4,S21500 ;LOOP ON ERROR SWITCH^ 3932 3933 SDFA 216,200020,0,0,0,200020,0,0,0,175400,0,0,0^ 3934 S21600: DMOVE AC,[200020,,0 3935 033430 120 04 0 00 041140 0,,0] 3936 DFAD AC,[200020,,0 3937 033431 110 04 0 00 041140 0,,0] 3938 033432 312 04 0 00 040074 CAME AC,[175400,,0] 3939 033433 003 04 0 00 021601 ER3 AC,21601 3940 033434 312 05 0 00 040060 CAME AC+1,[0,,0] 3941 033435 004 05 0 00 021601 ER4 AC+1,21601 3942 033436 321 10 0 00 033430 JUMPL AC+4,S21600 ;LOOP ON ERROR SWITCH^ 3943 3944 SDFA 217,577400,0,0,0,576400,0,0,0,576200,0,0,0^ 3945 S21700: DMOVE AC,[577400,,0 3946 033437 120 04 0 00 040061 0,,0] 3947 DFAD AC,[576400,,0 3948 033440 110 04 0 00 041036 0,,0] 3949 033441 312 04 0 00 041142 CAME AC,[576200,,0] 3950 033442 003 04 0 00 021701 ER3 AC,21701 3951 033443 312 05 0 00 040060 CAME AC+1,[0,,0] 3952 033444 004 05 0 00 021701 ER4 AC+1,21701 3953 033445 321 10 0 00 033437 JUMPL AC+4,S21700 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0096 3954 3955 SDFA 220,600400,0,0,0,576400,0,0,0,576300,0,0,0^ 3956 S22000: DMOVE AC,[600400,,0 3957 033446 120 04 0 00 040725 0,,0] 3958 DFAD AC,[576400,,0 3959 033447 110 04 0 00 041036 0,,0] 3960 033450 312 04 0 00 041143 CAME AC,[576300,,0] 3961 033451 003 04 0 00 022001 ER3 AC,22001 3962 033452 312 05 0 00 040060 CAME AC+1,[0,,0] 3963 033453 004 05 0 00 022001 ER4 AC+1,22001 3964 033454 321 10 0 00 033446 JUMPL AC+4,S22000 ;LOOP ON ERROR SWITCH^ 3965 3966 SDFA 221,601400,0,0,0,576400,0,0,0,576340,0,0,0^ 3967 S22100: DMOVE AC,[601400,,0 3968 033455 120 04 0 00 041144 0,,0] 3969 DFAD AC,[576400,,0 3970 033456 110 04 0 00 041036 0,,0] 3971 033457 312 04 0 00 041146 CAME AC,[576340,,0] 3972 033460 003 04 0 00 022101 ER3 AC,22101 3973 033461 312 05 0 00 040060 CAME AC+1,[0,,0] 3974 033462 004 05 0 00 022101 ER4 AC+1,22101 3975 033463 321 10 0 00 033455 JUMPL AC+4,S22100 ;LOOP ON ERROR SWITCH^ 3976 3977 SDFA 222,576400,0,0,0,577400,0,0,0,576200,0,0,0^ 3978 S22200: DMOVE AC,[576400,,0 3979 033464 120 04 0 00 041036 0,,0] 3980 DFAD AC,[577400,,0 3981 033465 110 04 0 00 040061 0,,0] 3982 033466 312 04 0 00 041142 CAME AC,[576200,,0] 3983 033467 003 04 0 00 022201 ER3 AC,22201 3984 033470 312 05 0 00 040060 CAME AC+1,[0,,0] 3985 033471 004 05 0 00 022201 ER4 AC+1,22201 3986 033472 321 10 0 00 033464 JUMPL AC+4,S22200 ;LOOP ON ERROR SWITCH^ 3987 3988 SDFA 223,576400,0,0,0,600400,0,0,0,576300,0,0,0^ 3989 S22300: DMOVE AC,[576400,,0 3990 033473 120 04 0 00 041036 0,,0] 3991 DFAD AC,[600400,,0 3992 033474 110 04 0 00 040725 0,,0] 3993 033475 312 04 0 00 041143 CAME AC,[576300,,0] 3994 033476 003 04 0 00 022301 ER3 AC,22301 3995 033477 312 05 0 00 040060 CAME AC+1,[0,,0] 3996 033500 004 05 0 00 022301 ER4 AC+1,22301 3997 033501 321 10 0 00 033473 JUMPL AC+4,S22300 ;LOOP ON ERROR SWITCH^ 3998 3999 SDFA 224,576400,0,0,0,601400,0,0,0,576340,0,0,0^ 4000 S22400: DMOVE AC,[576400,,0 4001 033502 120 04 0 00 041036 0,,0] 4002 DFAD AC,[601400,,0 4003 033503 110 04 0 00 041144 0,,0] 4004 033504 312 04 0 00 041146 CAME AC,[576340,,0] 4005 033505 003 04 0 00 022401 ER3 AC,22401 4006 033506 312 05 0 00 040060 CAME AC+1,[0,,0] 4007 033507 004 05 0 00 022401 ER4 AC+1,22401 4008 033510 321 10 0 00 033502 JUMPL AC+4,S22400 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8-2 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0097 4009 4010 SDFA 225,577400,0,0,0,577400,0,0,0,576400,0,0,0^ 4011 S22500: DMOVE AC,[577400,,0 4012 033511 120 04 0 00 040061 0,,0] 4013 DFAD AC,[577400,,0 4014 033512 110 04 0 00 040061 0,,0] 4015 033513 312 04 0 00 040764 CAME AC,[576400,,0] 4016 033514 003 04 0 00 022501 ER3 AC,22501 4017 033515 312 05 0 00 040060 CAME AC+1,[0,,0] 4018 033516 004 05 0 00 022501 ER4 AC+1,22501 4019 033517 321 10 0 00 033511 JUMPL AC+4,S22500 ;LOOP ON ERROR SWITCH^ 4020 4021 SDFA 226,601400,0,0,0,601400,0,0,0,600400,0,0,0^ 4022 S22600: DMOVE AC,[601400,,0 4023 033520 120 04 0 00 041144 0,,0] 4024 DFAD AC,[601400,,0 4025 033521 110 04 0 00 041144 0,,0] 4026 033522 312 04 0 00 040725 CAME AC,[600400,,0] 4027 033523 003 04 0 00 022601 ER3 AC,22601 4028 033524 312 05 0 00 040060 CAME AC+1,[0,,0] 4029 033525 004 05 0 00 022601 ER4 AC+1,22601 4030 033526 321 10 0 00 033520 JUMPL AC+4,S22600 ;LOOP ON ERROR SWITCH^ 4031 4032 SDFA 227,201400,0,0,0,577400,0,0,0,200400,0,0,0^ 4033 S22700: DMOVE AC,[201400,,0 4034 033527 120 04 0 00 040057 0,,0] 4035 DFAD AC,[577400,,0 4036 033530 110 04 0 00 040061 0,,0] 4037 033531 312 04 0 00 040063 CAME AC,[200400,,0] 4038 033532 003 04 0 00 022701 ER3 AC,22701 4039 033533 312 05 0 00 040060 CAME AC+1,[0,,0] 4040 033534 004 05 0 00 022701 ER4 AC+1,22701 4041 033535 321 10 0 00 033527 JUMPL AC+4,S22700 ;LOOP ON ERROR SWITCH^ 4042 4043 SDFA 230,201400,0,0,0,600400,0,0,0,200600,0,0,0^ 4044 S23000: DMOVE AC,[201400,,0 4045 033536 120 04 0 00 040057 0,,0] 4046 DFAD AC,[600400,,0 4047 033537 110 04 0 00 040725 0,,0] 4048 033540 312 04 0 00 040064 CAME AC,[200600,,0] 4049 033541 003 04 0 00 023001 ER3 AC,23001 4050 033542 312 05 0 00 040060 CAME AC+1,[0,,0] 4051 033543 004 05 0 00 023001 ER4 AC+1,23001 4052 033544 321 10 0 00 033536 JUMPL AC+4,S23000 ;LOOP ON ERROR SWITCH^ 4053 4054 SDFA 231,201400,0,0,0,601400,0,0,0,200700,0,0,0^ 4055 S23100: DMOVE AC,[201400,,0 4056 033545 120 04 0 00 040057 0,,0] 4057 DFAD AC,[601400,,0 4058 033546 110 04 0 00 041144 0,,0] 4059 033547 312 04 0 00 040741 CAME AC,[200700,,0] 4060 033550 003 04 0 00 023101 ER3 AC,23101 4061 033551 312 05 0 00 040060 CAME AC+1,[0,,0] 4062 033552 004 05 0 00 023101 ER4 AC+1,23101 4063 033553 321 10 0 00 033545 JUMPL AC+4,S23100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8-3 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0098 4064 4065 SDFA 232,200000,0,0,0,200000,1,0,0,146400,0,0,0^ 4066 S23200: DMOVE AC,[200000,,0 4067 033554 120 04 0 00 041016 0,,0] 4068 DFAD AC,[200000,,1 4069 033555 110 04 0 00 041147 0,,0] 4070 033556 312 04 0 00 040201 CAME AC,[146400,,0] 4071 033557 003 04 0 00 023201 ER3 AC,23201 4072 033560 312 05 0 00 040060 CAME AC+1,[0,,0] 4073 033561 004 05 0 00 023201 ER4 AC+1,23201 4074 033562 321 10 0 00 033554 JUMPL AC+4,S23200 ;LOOP ON ERROR SWITCH^ 4075 4076 SDFA 233,200000,0,0,0,200000,2,0,0,147400,0,0,0^ 4077 S23300: DMOVE AC,[200000,,0 4078 033563 120 04 0 00 041016 0,,0] 4079 DFAD AC,[200000,,2 4080 033564 110 04 0 00 041151 0,,0] 4081 033565 312 04 0 00 040176 CAME AC,[147400,,0] 4082 033566 003 04 0 00 023301 ER3 AC,23301 4083 033567 312 05 0 00 040060 CAME AC+1,[0,,0] 4084 033570 004 05 0 00 023301 ER4 AC+1,23301 4085 033571 321 10 0 00 033563 JUMPL AC+4,S23300 ;LOOP ON ERROR SWITCH^ 4086 4087 SDFA 234,200000,0,0,0,200000,4,0,0,150400,0,0,0^ 4088 S23400: DMOVE AC,[200000,,0 4089 033572 120 04 0 00 041016 0,,0] 4090 DFAD AC,[200000,,4 4091 033573 110 04 0 00 041153 0,,0] 4092 033574 312 04 0 00 040173 CAME AC,[150400,,0] 4093 033575 003 04 0 00 023401 ER3 AC,23401 4094 033576 312 05 0 00 040060 CAME AC+1,[0,,0] 4095 033577 004 05 0 00 023401 ER4 AC+1,23401 4096 033600 321 10 0 00 033572 JUMPL AC+4,S23400 ;LOOP ON ERROR SWITCH^ 4097 4098 SDFA 235,200000,0,0,0,200000,10,0,0,151400,0,0,0^ 4099 S23500: DMOVE AC,[200000,,0 4100 033601 120 04 0 00 041016 0,,0] 4101 DFAD AC,[200000,,10 4102 033602 110 04 0 00 041155 0,,0] 4103 033603 312 04 0 00 040170 CAME AC,[151400,,0] 4104 033604 003 04 0 00 023501 ER3 AC,23501 4105 033605 312 05 0 00 040060 CAME AC+1,[0,,0] 4106 033606 004 05 0 00 023501 ER4 AC+1,23501 4107 033607 321 10 0 00 033601 JUMPL AC+4,S23500 ;LOOP ON ERROR SWITCH^ 4108 4109 SDFA 236,200000,0,0,0,200000,20,0,0,152400,0,0,0^ 4110 S23600: DMOVE AC,[200000,,0 4111 033610 120 04 0 00 041016 0,,0] 4112 DFAD AC,[200000,,20 4113 033611 110 04 0 00 041157 0,,0] 4114 033612 312 04 0 00 040165 CAME AC,[152400,,0] 4115 033613 003 04 0 00 023601 ER3 AC,23601 4116 033614 312 05 0 00 040060 CAME AC+1,[0,,0] 4117 033615 004 05 0 00 023601 ER4 AC+1,23601 4118 033616 321 10 0 00 033610 JUMPL AC+4,S23600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8-4 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0099 4119 4120 SDFA 237,200000,0,0,0,200000,40,0,0,153400,0,0,0^ 4121 S23700: DMOVE AC,[200000,,0 4122 033617 120 04 0 00 041016 0,,0] 4123 DFAD AC,[200000,,40 4124 033620 110 04 0 00 041161 0,,0] 4125 033621 312 04 0 00 040162 CAME AC,[153400,,0] 4126 033622 003 04 0 00 023701 ER3 AC,23701 4127 033623 312 05 0 00 040060 CAME AC+1,[0,,0] 4128 033624 004 05 0 00 023701 ER4 AC+1,23701 4129 033625 321 10 0 00 033617 JUMPL AC+4,S23700 ;LOOP ON ERROR SWITCH^ 4130 4131 SDFA 240,200000,0,0,0,200000,100,0,0,154400,0,0,0^ 4132 S24000: DMOVE AC,[200000,,0 4133 033626 120 04 0 00 041016 0,,0] 4134 DFAD AC,[200000,,100 4135 033627 110 04 0 00 041163 0,,0] 4136 033630 312 04 0 00 040157 CAME AC,[154400,,0] 4137 033631 003 04 0 00 024001 ER3 AC,24001 4138 033632 312 05 0 00 040060 CAME AC+1,[0,,0] 4139 033633 004 05 0 00 024001 ER4 AC+1,24001 4140 033634 321 10 0 00 033626 JUMPL AC+4,S24000 ;LOOP ON ERROR SWITCH^ 4141 4142 SDFA 241,200000,0,0,0,200000,200,0,0,155400,0,0,0^ 4143 S24100: DMOVE AC,[200000,,0 4144 033635 120 04 0 00 041016 0,,0] 4145 DFAD AC,[200000,,200 4146 033636 110 04 0 00 041165 0,,0] 4147 033637 312 04 0 00 040154 CAME AC,[155400,,0] 4148 033640 003 04 0 00 024101 ER3 AC,24101 4149 033641 312 05 0 00 040060 CAME AC+1,[0,,0] 4150 033642 004 05 0 00 024101 ER4 AC+1,24101 4151 033643 321 10 0 00 033635 JUMPL AC+4,S24100 ;LOOP ON ERROR SWITCH^ 4152 4153 SDFA 242,200000,0,0,0,200000,400,0,0,156400,0,0,0^ 4154 S24200: DMOVE AC,[200000,,0 4155 033644 120 04 0 00 041016 0,,0] 4156 DFAD AC,[200000,,400 4157 033645 110 04 0 00 041167 0,,0] 4158 033646 312 04 0 00 040151 CAME AC,[156400,,0] 4159 033647 003 04 0 00 024201 ER3 AC,24201 4160 033650 312 05 0 00 040060 CAME AC+1,[0,,0] 4161 033651 004 05 0 00 024201 ER4 AC+1,24201 4162 033652 321 10 0 00 033644 JUMPL AC+4,S24200 ;LOOP ON ERROR SWITCH^ 4163 4164 SDFA 243,200000,0,0,0,200000,1000,0,0,157400,0,0,0^ 4165 S24300: DMOVE AC,[200000,,0 4166 033653 120 04 0 00 041016 0,,0] 4167 DFAD AC,[200000,,1000 4168 033654 110 04 0 00 041171 0,,0] 4169 033655 312 04 0 00 040146 CAME AC,[157400,,0] 4170 033656 003 04 0 00 024301 ER3 AC,24301 4171 033657 312 05 0 00 040060 CAME AC+1,[0,,0] 4172 033660 004 05 0 00 024301 ER4 AC+1,24301 4173 033661 321 10 0 00 033653 JUMPL AC+4,S24300 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8-5 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0100 4174 4175 SDFA 244,200000,0,0,0,200000,2000,0,0,160400,0,0,0^ 4176 S24400: DMOVE AC,[200000,,0 4177 033662 120 04 0 00 041016 0,,0] 4178 DFAD AC,[200000,,2000 4179 033663 110 04 0 00 041173 0,,0] 4180 033664 312 04 0 00 040143 CAME AC,[160400,,0] 4181 033665 003 04 0 00 024401 ER3 AC,24401 4182 033666 312 05 0 00 040060 CAME AC+1,[0,,0] 4183 033667 004 05 0 00 024401 ER4 AC+1,24401 4184 033670 321 10 0 00 033662 JUMPL AC+4,S24400 ;LOOP ON ERROR SWITCH^ 4185 4186 SDFA 245,200000,0,0,0,200000,4000,0,0,161400,0,0,0^ 4187 S24500: DMOVE AC,[200000,,0 4188 033671 120 04 0 00 041016 0,,0] 4189 DFAD AC,[200000,,4000 4190 033672 110 04 0 00 041175 0,,0] 4191 033673 312 04 0 00 040140 CAME AC,[161400,,0] 4192 033674 003 04 0 00 024501 ER3 AC,24501 4193 033675 312 05 0 00 040060 CAME AC+1,[0,,0] 4194 033676 004 05 0 00 024501 ER4 AC+1,24501 4195 033677 321 10 0 00 033671 JUMPL AC+4,S24500 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0101 4196 4197 SDFA 246,200000,0,0,0,200000,10000,0,0,162400,0,0,0^ 4198 S24600: DMOVE AC,[200000,,0 4199 033700 120 04 0 00 041016 0,,0] 4200 DFAD AC,[200000,,10000 4201 033701 110 04 0 00 041177 0,,0] 4202 033702 312 04 0 00 040135 CAME AC,[162400,,0] 4203 033703 003 04 0 00 024601 ER3 AC,24601 4204 033704 312 05 0 00 040060 CAME AC+1,[0,,0] 4205 033705 004 05 0 00 024601 ER4 AC+1,24601 4206 033706 321 10 0 00 033700 JUMPL AC+4,S24600 ;LOOP ON ERROR SWITCH^ 4207 4208 SDFA 247,200000,0,0,0,200000,20000,0,0,163400,0,0,0^ 4209 S24700: DMOVE AC,[200000,,0 4210 033707 120 04 0 00 041016 0,,0] 4211 DFAD AC,[200000,,20000 4212 033710 110 04 0 00 041201 0,,0] 4213 033711 312 04 0 00 040132 CAME AC,[163400,,0] 4214 033712 003 04 0 00 024701 ER3 AC,24701 4215 033713 312 05 0 00 040060 CAME AC+1,[0,,0] 4216 033714 004 05 0 00 024701 ER4 AC+1,24701 4217 033715 321 10 0 00 033707 JUMPL AC+4,S24700 ;LOOP ON ERROR SWITCH^ 4218 4219 SDFA 250,200000,0,0,0,200000,40000,0,0,164400,0,0,0^ 4220 S25000: DMOVE AC,[200000,,0 4221 033716 120 04 0 00 041016 0,,0] 4222 DFAD AC,[200000,,40000 4223 033717 110 04 0 00 041203 0,,0] 4224 033720 312 04 0 00 040127 CAME AC,[164400,,0] 4225 033721 003 04 0 00 025001 ER3 AC,25001 4226 033722 312 05 0 00 040060 CAME AC+1,[0,,0] 4227 033723 004 05 0 00 025001 ER4 AC+1,25001 4228 033724 321 10 0 00 033716 JUMPL AC+4,S25000 ;LOOP ON ERROR SWITCH^ 4229 4230 SDFA 251,200000,0,0,0,200000,100000,0,0,165400,0,0,0^ 4231 S25100: DMOVE AC,[200000,,0 4232 033725 120 04 0 00 041016 0,,0] 4233 DFAD AC,[200000,,100000 4234 033726 110 04 0 00 041205 0,,0] 4235 033727 312 04 0 00 040124 CAME AC,[165400,,0] 4236 033730 003 04 0 00 025101 ER3 AC,25101 4237 033731 312 05 0 00 040060 CAME AC+1,[0,,0] 4238 033732 004 05 0 00 025101 ER4 AC+1,25101 4239 033733 321 10 0 00 033725 JUMPL AC+4,S25100 ;LOOP ON ERROR SWITCH^ 4240 4241 SDFA 252,200000,0,0,0,200000,200000,0,0,166400,0,0,0^ 4242 S25200: DMOVE AC,[200000,,0 4243 033734 120 04 0 00 041016 0,,0] 4244 DFAD AC,[200000,,200000 4245 033735 110 04 0 00 041207 0,,0] 4246 033736 312 04 0 00 040121 CAME AC,[166400,,0] 4247 033737 003 04 0 00 025201 ER3 AC,25201 4248 033740 312 05 0 00 040060 CAME AC+1,[0,,0] 4249 033741 004 05 0 00 025201 ER4 AC+1,25201 4250 033742 321 10 0 00 033734 JUMPL AC+4,S25200 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0102 4251 4252 SDFA 253,200000,0,0,0,200000,400000,0,0,167400,0,0,0^ 4253 S25300: DMOVE AC,[200000,,0 4254 033743 120 04 0 00 041016 0,,0] 4255 DFAD AC,[200000,,400000 4256 033744 110 04 0 00 041211 0,,0] 4257 033745 312 04 0 00 040116 CAME AC,[167400,,0] 4258 033746 003 04 0 00 025301 ER3 AC,25301 4259 033747 312 05 0 00 040060 CAME AC+1,[0,,0] 4260 033750 004 05 0 00 025301 ER4 AC+1,25301 4261 033751 321 10 0 00 033743 JUMPL AC+4,S25300 ;LOOP ON ERROR SWITCH^ 4262 4263 SDFA 254,200000,0,0,0,200001,0,0,0,170400,0,0,0^ 4264 S25400: DMOVE AC,[200000,,0 4265 033752 120 04 0 00 041016 0,,0] 4266 DFAD AC,[200001,,0 4267 033753 110 04 0 00 041213 0,,0] 4268 033754 312 04 0 00 040113 CAME AC,[170400,,0] 4269 033755 003 04 0 00 025401 ER3 AC,25401 4270 033756 312 05 0 00 040060 CAME AC+1,[0,,0] 4271 033757 004 05 0 00 025401 ER4 AC+1,25401 4272 033760 321 10 0 00 033752 JUMPL AC+4,S25400 ;LOOP ON ERROR SWITCH^ 4273 4274 SDFA 255,200000,0,0,0,200002,0,0,0,171400,0,0,0^ 4275 S25500: DMOVE AC,[200000,,0 4276 033761 120 04 0 00 041016 0,,0] 4277 DFAD AC,[200002,,0 4278 033762 110 04 0 00 041215 0,,0] 4279 033763 312 04 0 00 040110 CAME AC,[171400,,0] 4280 033764 003 04 0 00 025501 ER3 AC,25501 4281 033765 312 05 0 00 040060 CAME AC+1,[0,,0] 4282 033766 004 05 0 00 025501 ER4 AC+1,25501 4283 033767 321 10 0 00 033761 JUMPL AC+4,S25500 ;LOOP ON ERROR SWITCH^ 4284 4285 SDFA 256,200000,0,0,0,200004,0,0,0,172400,0,0,0^ 4286 S25600: DMOVE AC,[200000,,0 4287 033770 120 04 0 00 041016 0,,0] 4288 DFAD AC,[200004,,0 4289 033771 110 04 0 00 041217 0,,0] 4290 033772 312 04 0 00 040105 CAME AC,[172400,,0] 4291 033773 003 04 0 00 025601 ER3 AC,25601 4292 033774 312 05 0 00 040060 CAME AC+1,[0,,0] 4293 033775 004 05 0 00 025601 ER4 AC+1,25601 4294 033776 321 10 0 00 033770 JUMPL AC+4,S25600 ;LOOP ON ERROR SWITCH^ 4295 4296 SDFA 257,200000,0,0,0,200010,0,0,0,173400,0,0,0^ 4297 S25700: DMOVE AC,[200000,,0 4298 033777 120 04 0 00 041016 0,,0] 4299 DFAD AC,[200010,,0 4300 034000 110 04 0 00 041221 0,,0] 4301 034001 312 04 0 00 040102 CAME AC,[173400,,0] 4302 034002 003 04 0 00 025701 ER3 AC,25701 4303 034003 312 05 0 00 040060 CAME AC+1,[0,,0] 4304 034004 004 05 0 00 025701 ER4 AC+1,25701 4305 034005 321 10 0 00 033777 JUMPL AC+4,S25700 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9-2 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0103 4306 4307 SDFA 260,200000,0,0,0,200020,0,0,0,174400,0,0,0^ 4308 S26000: DMOVE AC,[200000,,0 4309 034006 120 04 0 00 041016 0,,0] 4310 DFAD AC,[200020,,0 4311 034007 110 04 0 00 041140 0,,0] 4312 034010 312 04 0 00 040077 CAME AC,[174400,,0] 4313 034011 003 04 0 00 026001 ER3 AC,26001 4314 034012 312 05 0 00 040060 CAME AC+1,[0,,0] 4315 034013 004 05 0 00 026001 ER4 AC+1,26001 4316 034014 321 10 0 00 034006 JUMPL AC+4,S26000 ;LOOP ON ERROR SWITCH^ 4317 4318 SDFA 261,200000,0,0,0,200040,0,0,0,175400,0,0,0^ 4319 S26100: DMOVE AC,[200000,,0 4320 034015 120 04 0 00 041016 0,,0] 4321 DFAD AC,[200040,,0 4322 034016 110 04 0 00 041136 0,,0] 4323 034017 312 04 0 00 040074 CAME AC,[175400,,0] 4324 034020 003 04 0 00 026101 ER3 AC,26101 4325 034021 312 05 0 00 040060 CAME AC+1,[0,,0] 4326 034022 004 05 0 00 026101 ER4 AC+1,26101 4327 034023 321 10 0 00 034015 JUMPL AC+4,S26100 ;LOOP ON ERROR SWITCH^ 4328 4329 SDFA 262,200000,0,0,0,200100,0,0,0,176400,0,0,0^ 4330 S26200: DMOVE AC,[200000,,0 4331 034024 120 04 0 00 041016 0,,0] 4332 DFAD AC,[200100,,0 4333 034025 110 04 0 00 041134 0,,0] 4334 034026 312 04 0 00 040071 CAME AC,[176400,,0] 4335 034027 003 04 0 00 026201 ER3 AC,26201 4336 034030 312 05 0 00 040060 CAME AC+1,[0,,0] 4337 034031 004 05 0 00 026201 ER4 AC+1,26201 4338 034032 321 10 0 00 034024 JUMPL AC+4,S26200 ;LOOP ON ERROR SWITCH^ 4339 4340 SDFA 263,377400,0,0,0,377400,0,0,0,400,0,0,0^ 4341 S26300: DMOVE AC,[377400,,0 4342 034033 120 04 0 00 041026 0,,0] 4343 DFAD AC,[377400,,0 4344 034034 110 04 0 00 041026 0,,0] 4345 034035 312 04 0 00 040233 CAME AC,[400,,0] 4346 034036 003 04 0 00 026301 ER3 AC,26301 4347 034037 312 05 0 00 040060 CAME AC+1,[0,,0] 4348 034040 004 05 0 00 026301 ER4 AC+1,26301 4349 034041 321 10 0 00 034033 JUMPL AC+4,S26300 ;LOOP ON ERROR SWITCH^ 4350 4351 SDFA 264,777700,0,0,0,777700,0,0,0,400400,0,0,0^ 4352 S26400: DMOVE AC,[777700,,0 4353 034042 120 04 0 00 041223 0,,0] 4354 DFAD AC,[777700,,0 4355 034043 110 04 0 00 041223 0,,0] 4356 034044 312 04 0 00 041225 CAME AC,[400400,,0] 4357 034045 003 04 0 00 026401 ER3 AC,26401 4358 034046 312 05 0 00 040060 CAME AC+1,[0,,0] 4359 034047 004 05 0 00 026401 ER4 AC+1,26401 4360 034050 321 10 0 00 034042 JUMPL AC+4,S26400 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9-3 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0104 4361 4362 SDFA 265,200000,0,0,0,200777,-1,0,0,200777,-1,0,0^ 4363 S26500: DMOVE AC,[200000,,0 4364 034051 120 04 0 00 041016 0,,0] 4365 DFAD AC,[200777,,-1 4366 034052 110 04 0 00 041226 0,,0] 4367 034053 312 04 0 00 040710 CAME AC,[200777,,-1] 4368 034054 003 04 0 00 026501 ER3 AC,26501 4369 034055 312 05 0 00 040060 CAME AC+1,[0,,0] 4370 034056 004 05 0 00 026501 ER4 AC+1,26501 4371 034057 321 10 0 00 034051 JUMPL AC+4,S26500 ;LOOP ON ERROR SWITCH^ 4372 4373 SDFA 266,200000,1,0,0,201400,0,0,0,201400,0,200000,0^ 4374 S26600: DMOVE AC,[200000,,1 4375 034060 120 04 0 00 041147 0,,0] 4376 DFAD AC,[201400,,0 4377 034061 110 04 0 00 040057 0,,0] 4378 034062 312 04 0 00 040057 CAME AC,[201400,,0] 4379 034063 003 04 0 00 026601 ER3 AC,26601 4380 034064 312 05 0 00 040203 CAME AC+1,[200000,,0] 4381 034065 004 05 0 00 026601 ER4 AC+1,26601 4382 034066 321 10 0 00 034060 JUMPL AC+4,S26600 ;LOOP ON ERROR SWITCH^ 4383 4384 SDFA 267,200000,2,0,0,202400,0,0,0,202400,0,200000,0^ 4385 S26700: DMOVE AC,[200000,,2 4386 034067 120 04 0 00 041151 0,,0] 4387 DFAD AC,[202400,,0 4388 034070 110 04 0 00 040744 0,,0] 4389 034071 312 04 0 00 040744 CAME AC,[202400,,0] 4390 034072 003 04 0 00 026701 ER3 AC,26701 4391 034073 312 05 0 00 040203 CAME AC+1,[200000,,0] 4392 034074 004 05 0 00 026701 ER4 AC+1,26701 4393 034075 321 10 0 00 034067 JUMPL AC+4,S26700 ;LOOP ON ERROR SWITCH^ 4394 4395 SDFA 270,200000,4,0,0,203400,0,0,0,203400,0,200000,0^ 4396 S27000: DMOVE AC,[200000,,4 4397 034076 120 04 0 00 041153 0,,0] 4398 DFAD AC,[203400,,0 4399 034077 110 04 0 00 041230 0,,0] 4400 034100 312 04 0 00 041133 CAME AC,[203400,,0] 4401 034101 003 04 0 00 027001 ER3 AC,27001 4402 034102 312 05 0 00 040203 CAME AC+1,[200000,,0] 4403 034103 004 05 0 00 027001 ER4 AC+1,27001 4404 034104 321 10 0 00 034076 JUMPL AC+4,S27000 ;LOOP ON ERROR SWITCH^ 4405 4406 SDFA 271,200000,10,0,0,204400,0,0,0,204400,0,200000,0^ 4407 S27100: DMOVE AC,[200000,,10 4408 034105 120 04 0 00 041155 0,,0] 4409 DFAD AC,[204400,,0 4410 034106 110 04 0 00 040747 0,,0] 4411 034107 312 04 0 00 040747 CAME AC,[204400,,0] 4412 034110 003 04 0 00 027101 ER3 AC,27101 4413 034111 312 05 0 00 040203 CAME AC+1,[200000,,0] 4414 034112 004 05 0 00 027101 ER4 AC+1,27101 4415 034113 321 10 0 00 034105 JUMPL AC+4,S27100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9-4 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0105 4416 4417 SDFA 272,200000,20,0,0,205400,0,0,0,205400,0,200000,0^ 4418 S27200: DMOVE AC,[200000,,20 4419 034114 120 04 0 00 041157 0,,0] 4420 DFAD AC,[205400,,0 4421 034115 110 04 0 00 040733 0,,0] 4422 034116 312 04 0 00 040733 CAME AC,[205400,,0] 4423 034117 003 04 0 00 027201 ER3 AC,27201 4424 034120 312 05 0 00 040203 CAME AC+1,[200000,,0] 4425 034121 004 05 0 00 027201 ER4 AC+1,27201 4426 034122 321 10 0 00 034114 JUMPL AC+4,S27200 ;LOOP ON ERROR SWITCH^ 4427 4428 SDFA 273,200000,40,0,0,206400,0,0,0,206400,0,200000,0^ 4429 S27300: DMOVE AC,[200000,,40 4430 034123 120 04 0 00 041161 0,,0] 4431 DFAD AC,[206400,,0 4432 034124 110 04 0 00 041043 0,,0] 4433 034125 312 04 0 00 041043 CAME AC,[206400,,0] 4434 034126 003 04 0 00 027301 ER3 AC,27301 4435 034127 312 05 0 00 040203 CAME AC+1,[200000,,0] 4436 034130 004 05 0 00 027301 ER4 AC+1,27301 4437 034131 321 10 0 00 034123 JUMPL AC+4,S27300 ;LOOP ON ERROR SWITCH^ 4438 4439 SDFA 274,200000,100,0,0,207400,0,0,0,207400,0,200000,0^ 4440 S27400: DMOVE AC,[200000,,100 4441 034132 120 04 0 00 041163 0,,0] 4442 DFAD AC,[207400,,0 4443 034133 110 04 0 00 041232 0,,0] 4444 034134 312 04 0 00 041232 CAME AC,[207400,,0] 4445 034135 003 04 0 00 027401 ER3 AC,27401 4446 034136 312 05 0 00 040203 CAME AC+1,[200000,,0] 4447 034137 004 05 0 00 027401 ER4 AC+1,27401 4448 034140 321 10 0 00 034132 JUMPL AC+4,S27400 ;LOOP ON ERROR SWITCH^ 4449 4450 SDFA 275,200000,200,0,0,210400,0,0,0,210400,0,200000,0^ 4451 S27500: DMOVE AC,[200000,,200 4452 034141 120 04 0 00 041165 0,,0] 4453 DFAD AC,[210400,,0 4454 034142 110 04 0 00 040752 0,,0] 4455 034143 312 04 0 00 040752 CAME AC,[210400,,0] 4456 034144 003 04 0 00 027501 ER3 AC,27501 4457 034145 312 05 0 00 040203 CAME AC+1,[200000,,0] 4458 034146 004 05 0 00 027501 ER4 AC+1,27501 4459 034147 321 10 0 00 034141 JUMPL AC+4,S27500 ;LOOP ON ERROR SWITCH^ 4460 4461 SDFA 276,200000,400,0,0,211400,0,0,0,211400,0,200000,0^ 4462 S27600: DMOVE AC,[200000,,400 4463 034150 120 04 0 00 041167 0,,0] 4464 DFAD AC,[211400,,0 4465 034151 110 04 0 00 041234 0,,0] 4466 034152 312 04 0 00 041234 CAME AC,[211400,,0] 4467 034153 003 04 0 00 027601 ER3 AC,27601 4468 034154 312 05 0 00 040203 CAME AC+1,[200000,,0] 4469 034155 004 05 0 00 027601 ER4 AC+1,27601 4470 034156 321 10 0 00 034150 JUMPL AC+4,S27600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 9-5 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0106 4471 4472 SDFA 277,200000,1000,0,0,212400,0,0,0,212400,0,200000,0^ 4473 S27700: DMOVE AC,[200000,,1000 4474 034157 120 04 0 00 041171 0,,0] 4475 DFAD AC,[212400,,0 4476 034160 110 04 0 00 041236 0,,0] 4477 034161 312 04 0 00 041236 CAME AC,[212400,,0] 4478 034162 003 04 0 00 027701 ER3 AC,27701 4479 034163 312 05 0 00 040203 CAME AC+1,[200000,,0] 4480 034164 004 05 0 00 027701 ER4 AC+1,27701 4481 034165 321 10 0 00 034157 JUMPL AC+4,S27700 ;LOOP ON ERROR SWITCH^ 4482 4483 SDFA 300,200000,2000,0,0,213400,0,0,0,213400,0,200000,0^ 4484 S30000: DMOVE AC,[200000,,2000 4485 034166 120 04 0 00 041173 0,,0] 4486 DFAD AC,[213400,,0 4487 034167 110 04 0 00 041240 0,,0] 4488 034170 312 04 0 00 041240 CAME AC,[213400,,0] 4489 034171 003 04 0 00 030001 ER3 AC,30001 4490 034172 312 05 0 00 040203 CAME AC+1,[200000,,0] 4491 034173 004 05 0 00 030001 ER4 AC+1,30001 4492 034174 321 10 0 00 034166 JUMPL AC+4,S30000 ;LOOP ON ERROR SWITCH^ 4493 4494 SDFA 301,200000,4000,0,0,214400,0,0,0,214400,0,200000,0^ 4495 S30100: DMOVE AC,[200000,,4000 4496 034175 120 04 0 00 041175 0,,0] 4497 DFAD AC,[214400,,0 4498 034176 110 04 0 00 041242 0,,0] 4499 034177 312 04 0 00 041242 CAME AC,[214400,,0] 4500 034200 003 04 0 00 030101 ER3 AC,30101 4501 034201 312 05 0 00 040203 CAME AC+1,[200000,,0] 4502 034202 004 05 0 00 030101 ER4 AC+1,30101 4503 034203 321 10 0 00 034175 JUMPL AC+4,S30100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0107 4504 4505 SDFA 302,200000,10000,0,0,215400,0,0,0,215400,0,200000,0^ 4506 S30200: DMOVE AC,[200000,,10000 4507 034204 120 04 0 00 041177 0,,0] 4508 DFAD AC,[215400,,0 4509 034205 110 04 0 00 041244 0,,0] 4510 034206 312 04 0 00 041244 CAME AC,[215400,,0] 4511 034207 003 04 0 00 030201 ER3 AC,30201 4512 034210 312 05 0 00 040203 CAME AC+1,[200000,,0] 4513 034211 004 05 0 00 030201 ER4 AC+1,30201 4514 034212 321 10 0 00 034204 JUMPL AC+4,S30200 ;LOOP ON ERROR SWITCH^ 4515 4516 SDFA 303,200000,20000,0,0,216400,0,0,0,216400,0,200000,0^ 4517 S30300: DMOVE AC,[200000,,20000 4518 034213 120 04 0 00 041201 0,,0] 4519 DFAD AC,[216400,,0 4520 034214 110 04 0 00 041246 0,,0] 4521 034215 312 04 0 00 041246 CAME AC,[216400,,0] 4522 034216 003 04 0 00 030301 ER3 AC,30301 4523 034217 312 05 0 00 040203 CAME AC+1,[200000,,0] 4524 034220 004 05 0 00 030301 ER4 AC+1,30301 4525 034221 321 10 0 00 034213 JUMPL AC+4,S30300 ;LOOP ON ERROR SWITCH^ 4526 4527 SDFA 304,200000,40000,0,0,217400,0,0,0,217400,0,200000,0^ 4528 S30400: DMOVE AC,[200000,,40000 4529 034222 120 04 0 00 041203 0,,0] 4530 DFAD AC,[217400,,0 4531 034223 110 04 0 00 041250 0,,0] 4532 034224 312 04 0 00 041250 CAME AC,[217400,,0] 4533 034225 003 04 0 00 030401 ER3 AC,30401 4534 034226 312 05 0 00 040203 CAME AC+1,[200000,,0] 4535 034227 004 05 0 00 030401 ER4 AC+1,30401 4536 034230 321 10 0 00 034222 JUMPL AC+4,S30400 ;LOOP ON ERROR SWITCH^ 4537 4538 SDFA 305,200000,100000,0,0,220400,0,0,0,220400,0,200000,0^ 4539 S30500: DMOVE AC,[200000,,100000 4540 034231 120 04 0 00 041205 0,,0] 4541 DFAD AC,[220400,,0 4542 034232 110 04 0 00 040755 0,,0] 4543 034233 312 04 0 00 040755 CAME AC,[220400,,0] 4544 034234 003 04 0 00 030501 ER3 AC,30501 4545 034235 312 05 0 00 040203 CAME AC+1,[200000,,0] 4546 034236 004 05 0 00 030501 ER4 AC+1,30501 4547 034237 321 10 0 00 034231 JUMPL AC+4,S30500 ;LOOP ON ERROR SWITCH^ 4548 4549 SDFA 306,200000,200000,0,0,221400,0,0,0,221400,0,200000,0^ 4550 S30600: DMOVE AC,[200000,,200000 4551 034240 120 04 0 00 041207 0,,0] 4552 DFAD AC,[221400,,0 4553 034241 110 04 0 00 041252 0,,0] 4554 034242 312 04 0 00 041252 CAME AC,[221400,,0] 4555 034243 003 04 0 00 030601 ER3 AC,30601 4556 034244 312 05 0 00 040203 CAME AC+1,[200000,,0] 4557 034245 004 05 0 00 030601 ER4 AC+1,30601 4558 034246 321 10 0 00 034240 JUMPL AC+4,S30600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0108 4559 4560 SDFA 307,200000,400000,0,0,222400,0,0,0,222400,0,200000,0^ 4561 S30700: DMOVE AC,[200000,,400000 4562 034247 120 04 0 00 041211 0,,0] 4563 DFAD AC,[222400,,0 4564 034250 110 04 0 00 041254 0,,0] 4565 034251 312 04 0 00 041254 CAME AC,[222400,,0] 4566 034252 003 04 0 00 030701 ER3 AC,30701 4567 034253 312 05 0 00 040203 CAME AC+1,[200000,,0] 4568 034254 004 05 0 00 030701 ER4 AC+1,30701 4569 034255 321 10 0 00 034247 JUMPL AC+4,S30700 ;LOOP ON ERROR SWITCH^ 4570 4571 SDFA 310,200001,0,0,0,223400,0,0,0,223400,0,200000,0^ 4572 S31000: DMOVE AC,[200001,,0 4573 034256 120 04 0 00 041213 0,,0] 4574 DFAD AC,[223400,,0 4575 034257 110 04 0 00 041256 0,,0] 4576 034260 312 04 0 00 041256 CAME AC,[223400,,0] 4577 034261 003 04 0 00 031001 ER3 AC,31001 4578 034262 312 05 0 00 040203 CAME AC+1,[200000,,0] 4579 034263 004 05 0 00 031001 ER4 AC+1,31001 4580 034264 321 10 0 00 034256 JUMPL AC+4,S31000 ;LOOP ON ERROR SWITCH^ 4581 4582 SDFA 311,200002,0,0,0,224400,0,0,0,224400,0,200000,0^ 4583 S31100: DMOVE AC,[200002,,0 4584 034265 120 04 0 00 041215 0,,0] 4585 DFAD AC,[224400,,0 4586 034266 110 04 0 00 041260 0,,0] 4587 034267 312 04 0 00 041260 CAME AC,[224400,,0] 4588 034270 003 04 0 00 031101 ER3 AC,31101 4589 034271 312 05 0 00 040203 CAME AC+1,[200000,,0] 4590 034272 004 05 0 00 031101 ER4 AC+1,31101 4591 034273 321 10 0 00 034265 JUMPL AC+4,S31100 ;LOOP ON ERROR SWITCH^ 4592 4593 SDFA 312,200004,0,0,0,225400,0,0,0,225400,0,200000,0^ 4594 S31200: DMOVE AC,[200004,,0 4595 034274 120 04 0 00 041217 0,,0] 4596 DFAD AC,[225400,,0 4597 034275 110 04 0 00 041262 0,,0] 4598 034276 312 04 0 00 041262 CAME AC,[225400,,0] 4599 034277 003 04 0 00 031201 ER3 AC,31201 4600 034300 312 05 0 00 040203 CAME AC+1,[200000,,0] 4601 034301 004 05 0 00 031201 ER4 AC+1,31201 4602 034302 321 10 0 00 034274 JUMPL AC+4,S31200 ;LOOP ON ERROR SWITCH^ 4603 4604 SDFA 313,200010,0,0,0,226400,0,0,0,226400,0,200000,0^ 4605 S31300: DMOVE AC,[200010,,0 4606 034303 120 04 0 00 041221 0,,0] 4607 DFAD AC,[226400,,0 4608 034304 110 04 0 00 041264 0,,0] 4609 034305 312 04 0 00 041264 CAME AC,[226400,,0] 4610 034306 003 04 0 00 031301 ER3 AC,31301 4611 034307 312 05 0 00 040203 CAME AC+1,[200000,,0] 4612 034310 004 05 0 00 031301 ER4 AC+1,31301 4613 034311 321 10 0 00 034303 JUMPL AC+4,S31300 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10-2 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0109 4614 4615 SDFA 314,200020,0,0,0,227400,0,0,0,227400,0,200000,0^ 4616 S31400: DMOVE AC,[200020,,0 4617 034312 120 04 0 00 041140 0,,0] 4618 DFAD AC,[227400,,0 4619 034313 110 04 0 00 041266 0,,0] 4620 034314 312 04 0 00 041266 CAME AC,[227400,,0] 4621 034315 003 04 0 00 031401 ER3 AC,31401 4622 034316 312 05 0 00 040203 CAME AC+1,[200000,,0] 4623 034317 004 05 0 00 031401 ER4 AC+1,31401 4624 034320 321 10 0 00 034312 JUMPL AC+4,S31400 ;LOOP ON ERROR SWITCH^ 4625 4626 SDFA 315,200040,0,0,0,230400,0,0,0,230400,0,200000,0^ 4627 S31500: DMOVE AC,[200040,,0 4628 034321 120 04 0 00 041136 0,,0] 4629 DFAD AC,[230400,,0 4630 034322 110 04 0 00 041270 0,,0] 4631 034323 312 04 0 00 041270 CAME AC,[230400,,0] 4632 034324 003 04 0 00 031501 ER3 AC,31501 4633 034325 312 05 0 00 040203 CAME AC+1,[200000,,0] 4634 034326 004 05 0 00 031501 ER4 AC+1,31501 4635 034327 321 10 0 00 034321 JUMPL AC+4,S31500 ;LOOP ON ERROR SWITCH^ 4636 4637 SDFA 316,200100,0,0,0,231400,0,0,0,231400,0,200000,0^ 4638 S31600: DMOVE AC,[200100,,0 4639 034330 120 04 0 00 041134 0,,0] 4640 DFAD AC,[231400,,0 4641 034331 110 04 0 00 041272 0,,0] 4642 034332 312 04 0 00 041272 CAME AC,[231400,,0] 4643 034333 003 04 0 00 031601 ER3 AC,31601 4644 034334 312 05 0 00 040203 CAME AC+1,[200000,,0] 4645 034335 004 05 0 00 031601 ER4 AC+1,31601 4646 034336 321 10 0 00 034330 JUMPL AC+4,S31600 ;LOOP ON ERROR SWITCH^ 4647 4648 SDFA 317,200200,0,0,0,232400,0,0,0,232400,0,200000,0^ 4649 S31700: DMOVE AC,[200200,,0 4650 034337 120 04 0 00 041274 0,,0] 4651 DFAD AC,[232400,,0 4652 034340 110 04 0 00 041276 0,,0] 4653 034341 312 04 0 00 041276 CAME AC,[232400,,0] 4654 034342 003 04 0 00 031701 ER3 AC,31701 4655 034343 312 05 0 00 040203 CAME AC+1,[200000,,0] 4656 034344 004 05 0 00 031701 ER4 AC+1,31701 4657 034345 321 10 0 00 034337 JUMPL AC+4,S31700 ;LOOP ON ERROR SWITCH^ 4658 4659 SDFA 320,200400,0,0,0,233400,0,0,0,233400,0,200000,0^ 4660 S32000: DMOVE AC,[200400,,0 4661 034346 120 04 0 00 040731 0,,0] 4662 DFAD AC,[233400,,0 4663 034347 110 04 0 00 041300 0,,0] 4664 034350 312 04 0 00 041300 CAME AC,[233400,,0] 4665 034351 003 04 0 00 032001 ER3 AC,32001 4666 034352 312 05 0 00 040203 CAME AC+1,[200000,,0] 4667 034353 004 05 0 00 032001 ER4 AC+1,32001 4668 034354 321 10 0 00 034346 JUMPL AC+4,S32000 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10-3 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0110 4669 4670 SDFA 321,200400,0,0,0,200400,1,0,0,201400,0,200000,0^ 4671 S32100: DMOVE AC,[200400,,0 4672 034355 120 04 0 00 040731 0,,0] 4673 DFAD AC,[200400,,1 4674 034356 110 04 0 00 040177 0,,0] 4675 034357 312 04 0 00 040057 CAME AC,[201400,,0] 4676 034360 003 04 0 00 032101 ER3 AC,32101 4677 034361 312 05 0 00 040203 CAME AC+1,[200000,,0] 4678 034362 004 05 0 00 032101 ER4 AC+1,32101 4679 034363 321 10 0 00 034355 JUMPL AC+4,S32100 ;LOOP ON ERROR SWITCH^ 4680 4681 SDFA 322,200400,0,0,0,201400,0,0,0,201600,0,0,0^ 4682 S32200: DMOVE AC,[200400,,0 4683 034364 120 04 0 00 040731 0,,0] 4684 DFAD AC,[201400,,0 4685 034365 110 04 0 00 040057 0,,0] 4686 034366 312 04 0 00 040743 CAME AC,[201600,,0] 4687 034367 003 04 0 00 032201 ER3 AC,32201 4688 034370 312 05 0 00 040060 CAME AC+1,[0,,0] 4689 034371 004 05 0 00 032201 ER4 AC+1,32201 4690 034372 321 10 0 00 034364 JUMPL AC+4,S32200 ;LOOP ON ERROR SWITCH^ 4691 4692 SDFA 323,200000,3,0,0,202400,0,0,0,202400,0,300000,0^ 4693 S32300: DMOVE AC,[200000,,3 4694 034373 120 04 0 00 041302 0,,0] 4695 DFAD AC,[202400,,0 4696 034374 110 04 0 00 040744 0,,0] 4697 034375 312 04 0 00 040744 CAME AC,[202400,,0] 4698 034376 003 04 0 00 032301 ER3 AC,32301 4699 034377 312 05 0 00 040563 CAME AC+1,[300000,,0] 4700 034400 004 05 0 00 032301 ER4 AC+1,32301 4701 034401 321 10 0 00 034373 JUMPL AC+4,S32300 ;LOOP ON ERROR SWITCH^ 4702 4703 SDFA 324,200000,5,0,0,203400,0,0,0,203400,0,240000,0^ 4704 S32400: DMOVE AC,[200000,,5 4705 034402 120 04 0 00 041304 0,,0] 4706 DFAD AC,[203400,,0 4707 034403 110 04 0 00 041230 0,,0] 4708 034404 312 04 0 00 041133 CAME AC,[203400,,0] 4709 034405 003 04 0 00 032401 ER3 AC,32401 4710 034406 312 05 0 00 041006 CAME AC+1,[240000,,0] 4711 034407 004 05 0 00 032401 ER4 AC+1,32401 4712 034410 321 10 0 00 034402 JUMPL AC+4,S32400 ;LOOP ON ERROR SWITCH^ 4713 4714 SDFA 325,200000,11,0,0,204400,0,0,0,204400,0,220000,0^ 4715 S32500: DMOVE AC,[200000,,11 4716 034411 120 04 0 00 041306 0,,0] 4717 DFAD AC,[204400,,0 4718 034412 110 04 0 00 040747 0,,0] 4719 034413 312 04 0 00 040747 CAME AC,[204400,,0] 4720 034414 003 04 0 00 032501 ER3 AC,32501 4721 034415 312 05 0 00 041002 CAME AC+1,[220000,,0] 4722 034416 004 05 0 00 032501 ER4 AC+1,32501 4723 034417 321 10 0 00 034411 JUMPL AC+4,S32500 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10-4 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0111 4724 4725 SDFA 326,200000,21,0,0,205400,0,0,0,205400,0,210000,0^ 4726 S32600: DMOVE AC,[200000,,21 4727 034420 120 04 0 00 041310 0,,0] 4728 DFAD AC,[205400,,0 4729 034421 110 04 0 00 040733 0,,0] 4730 034422 312 04 0 00 040733 CAME AC,[205400,,0] 4731 034423 003 04 0 00 032601 ER3 AC,32601 4732 034424 312 05 0 00 040776 CAME AC+1,[210000,,0] 4733 034425 004 05 0 00 032601 ER4 AC+1,32601 4734 034426 321 10 0 00 034420 JUMPL AC+4,S32600 ;LOOP ON ERROR SWITCH^ 4735 4736 SDFA 327,200000,41,0,0,206400,0,0,0,206400,0,204000,0^ 4737 S32700: DMOVE AC,[200000,,41 4738 034427 120 04 0 00 041312 0,,0] 4739 DFAD AC,[206400,,0 4740 034430 110 04 0 00 041043 0,,0] 4741 034431 312 04 0 00 041043 CAME AC,[206400,,0] 4742 034432 003 04 0 00 032701 ER3 AC,32701 4743 034433 312 05 0 00 040772 CAME AC+1,[204000,,0] 4744 034434 004 05 0 00 032701 ER4 AC+1,32701 4745 034435 321 10 0 00 034427 JUMPL AC+4,S32700 ;LOOP ON ERROR SWITCH^ 4746 4747 SDFA 330,200000,101,0,0,207400,0,0,0,207400,0,202000,0^ 4748 S33000: DMOVE AC,[200000,,101 4749 034436 120 04 0 00 041314 0,,0] 4750 DFAD AC,[207400,,0 4751 034437 110 04 0 00 041232 0,,0] 4752 034440 312 04 0 00 041232 CAME AC,[207400,,0] 4753 034441 003 04 0 00 033001 ER3 AC,33001 4754 034442 312 05 0 00 040770 CAME AC+1,[202000,,0] 4755 034443 004 05 0 00 033001 ER4 AC+1,33001 4756 034444 321 10 0 00 034436 JUMPL AC+4,S33000 ;LOOP ON ERROR SWITCH^ 4757 4758 SDFA 331,200000,201,0,0,210400,0,0,0,210400,0,201000,0^ 4759 S33100: DMOVE AC,[200000,,201 4760 034445 120 04 0 00 041316 0,,0] 4761 DFAD AC,[210400,,0 4762 034446 110 04 0 00 040752 0,,0] 4763 034447 312 04 0 00 040752 CAME AC,[210400,,0] 4764 034450 003 04 0 00 033101 ER3 AC,33101 4765 034451 312 05 0 00 040766 CAME AC+1,[201000,,0] 4766 034452 004 05 0 00 033101 ER4 AC+1,33101 4767 034453 321 10 0 00 034445 JUMPL AC+4,S33100 ;LOOP ON ERROR SWITCH^ 4768 4769 SDFA 332,200000,401,0,0,211400,0,0,0,211400,0,200400,0^ 4770 S33200: DMOVE AC,[200000,,401 4771 034454 120 04 0 00 041320 0,,0] 4772 DFAD AC,[211400,,0 4773 034455 110 04 0 00 041234 0,,0] 4774 034456 312 04 0 00 041234 CAME AC,[211400,,0] 4775 034457 003 04 0 00 033201 ER3 AC,33201 4776 034460 312 05 0 00 040063 CAME AC+1,[200400,,0] 4777 034461 004 05 0 00 033201 ER4 AC+1,33201 4778 034462 321 10 0 00 034454 JUMPL AC+4,S33200 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 10-5 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0112 4779 4780 SDFA 333,200000,1001,0,0,212400,0,0,0,212400,0,200200,0^ 4781 S33300: DMOVE AC,[200000,,1001 4782 034463 120 04 0 00 041322 0,,0] 4783 DFAD AC,[212400,,0 4784 034464 110 04 0 00 041236 0,,0] 4785 034465 312 04 0 00 041236 CAME AC,[212400,,0] 4786 034466 003 04 0 00 033301 ER3 AC,33301 4787 034467 312 05 0 00 041274 CAME AC+1,[200200,,0] 4788 034470 004 05 0 00 033301 ER4 AC+1,33301 4789 034471 321 10 0 00 034463 JUMPL AC+4,S33300 ;LOOP ON ERROR SWITCH^ 4790 4791 SDFA 334,200000,2001,0,0,213400,0,0,0,213400,0,200100,0^ 4792 S33400: DMOVE AC,[200000,,2001 4793 034472 120 04 0 00 041324 0,,0] 4794 DFAD AC,[213400,,0 4795 034473 110 04 0 00 041240 0,,0] 4796 034474 312 04 0 00 041240 CAME AC,[213400,,0] 4797 034475 003 04 0 00 033401 ER3 AC,33401 4798 034476 312 05 0 00 041134 CAME AC+1,[200100,,0] 4799 034477 004 05 0 00 033401 ER4 AC+1,33401 4800 034500 321 10 0 00 034472 JUMPL AC+4,S33400 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 11 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0113 4801 4802 SDFA 335,200000,4001,0,0,214400,0,0,0,214400,0,200040,0^ 4803 S33500: DMOVE AC,[200000,,4001 4804 034501 120 04 0 00 041326 0,,0] 4805 DFAD AC,[214400,,0 4806 034502 110 04 0 00 041242 0,,0] 4807 034503 312 04 0 00 041242 CAME AC,[214400,,0] 4808 034504 003 04 0 00 033501 ER3 AC,33501 4809 034505 312 05 0 00 041136 CAME AC+1,[200040,,0] 4810 034506 004 05 0 00 033501 ER4 AC+1,33501 4811 034507 321 10 0 00 034501 JUMPL AC+4,S33500 ;LOOP ON ERROR SWITCH^ 4812 4813 SDFA 336,200000,10001,0,0,215400,0,0,0,215400,0,200020,0^ 4814 S33600: DMOVE AC,[200000,,10001 4815 034510 120 04 0 00 041330 0,,0] 4816 DFAD AC,[215400,,0 4817 034511 110 04 0 00 041244 0,,0] 4818 034512 312 04 0 00 041244 CAME AC,[215400,,0] 4819 034513 003 04 0 00 033601 ER3 AC,33601 4820 034514 312 05 0 00 041140 CAME AC+1,[200020,,0] 4821 034515 004 05 0 00 033601 ER4 AC+1,33601 4822 034516 321 10 0 00 034510 JUMPL AC+4,S33600 ;LOOP ON ERROR SWITCH^ 4823 4824 SDFA 337,200000,20001,0,0,216400,0,0,0,216400,0,200010,0^ 4825 S33700: DMOVE AC,[200000,,20001 4826 034517 120 04 0 00 041332 0,,0] 4827 DFAD AC,[216400,,0 4828 034520 110 04 0 00 041246 0,,0] 4829 034521 312 04 0 00 041246 CAME AC,[216400,,0] 4830 034522 003 04 0 00 033701 ER3 AC,33701 4831 034523 312 05 0 00 041221 CAME AC+1,[200010,,0] 4832 034524 004 05 0 00 033701 ER4 AC+1,33701 4833 034525 321 10 0 00 034517 JUMPL AC+4,S33700 ;LOOP ON ERROR SWITCH^ 4834 4835 SDFA 340,200000,40001,0,0,217400,0,0,0,217400,0,200004,0^ 4836 S34000: DMOVE AC,[200000,,40001 4837 034526 120 04 0 00 041334 0,,0] 4838 DFAD AC,[217400,,0 4839 034527 110 04 0 00 041250 0,,0] 4840 034530 312 04 0 00 041250 CAME AC,[217400,,0] 4841 034531 003 04 0 00 034001 ER3 AC,34001 4842 034532 312 05 0 00 041217 CAME AC+1,[200004,,0] 4843 034533 004 05 0 00 034001 ER4 AC+1,34001 4844 034534 321 10 0 00 034526 JUMPL AC+4,S34000 ;LOOP ON ERROR SWITCH^ 4845 4846 SDFA 341,200000,100001,0,0,220400,0,0,0,220400,0,200002,0^ 4847 S34100: DMOVE AC,[200000,,100001 4848 034535 120 04 0 00 041336 0,,0] 4849 DFAD AC,[220400,,0 4850 034536 110 04 0 00 040755 0,,0] 4851 034537 312 04 0 00 040755 CAME AC,[220400,,0] 4852 034540 003 04 0 00 034101 ER3 AC,34101 4853 034541 312 05 0 00 041215 CAME AC+1,[200002,,0] 4854 034542 004 05 0 00 034101 ER4 AC+1,34101 4855 034543 321 10 0 00 034535 JUMPL AC+4,S34100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 11-1 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0114 4856 4857 SDFA 342,200000,200001,0,0,221400,0,0,0,221400,0,200001,0^ 4858 S34200: DMOVE AC,[200000,,200001 4859 034544 120 04 0 00 041340 0,,0] 4860 DFAD AC,[221400,,0 4861 034545 110 04 0 00 041252 0,,0] 4862 034546 312 04 0 00 041252 CAME AC,[221400,,0] 4863 034547 003 04 0 00 034201 ER3 AC,34201 4864 034550 312 05 0 00 041213 CAME AC+1,[200001,,0] 4865 034551 004 05 0 00 034201 ER4 AC+1,34201 4866 034552 321 10 0 00 034544 JUMPL AC+4,S34200 ;LOOP ON ERROR SWITCH^ 4867 4868 SDFA 343,200000,400001,0,0,222400,0,0,0,222400,0,200000,400000^ 4869 S34300: DMOVE AC,[200000,,400001 4870 034553 120 04 0 00 041342 0,,0] 4871 DFAD AC,[222400,,0 4872 034554 110 04 0 00 041254 0,,0] 4873 034555 312 04 0 00 041254 CAME AC,[222400,,0] 4874 034556 003 04 0 00 034301 ER3 AC,34301 4875 034557 312 05 0 00 041211 CAME AC+1,[200000,,400000] 4876 034560 004 05 0 00 034301 ER4 AC+1,34301 4877 034561 321 10 0 00 034553 JUMPL AC+4,S34300 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 12 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0115 4878 ;TEST AROV, FOV AND FXU FLAGS - DFAD 4879 4880 000004 AC=4 4881 SAVEAC (1,1)^ 4882 034562 201 06 0 00 034562 MOVEI AC+2,. 4883 034563 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 4884 034564 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 4885 034565 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 4886 4887 034566 254 02 1 00 041344 S34400: JRSTF @[.+1] ;CLEAR ALL FLAGS 4888 DMOVE AC,[377400,,0 4889 034567 120 04 0 00 041026 0,,0] 4890 DFAD AC,[376777,,-1 4891 034570 110 04 0 00 041345 -1,,-2] ;EXPECT AROV, FOV, FXU=0,0,0 4892 034571 265 03 0 00 034572 JSP AC-1,.+1 ;SAVE FLAGS 4893 034572 312 04 0 00 040357 CAME AC,[377777,,-1] 4894 034573 003 04 0 00 034401 ER3 AC,34401 ;C(AC) FAILED 4895 034574 312 05 0 00 040357 CAME AC+1,[377777,,-1] 4896 034575 004 05 0 00 034401 ER4 AC+1,34401 ;C(AC+1) FAILED 4897 034576 255 10 0 00 034600 JOV .+2 4898 034577 254 00 0 00 034601 JRST .+2 4899 034600 013 03 0 00 034401 ER13 AC-1,34401 ;AROV WAS SET 4900 034601 255 01 0 00 034603 JFOV .+2 4901 034602 254 00 0 00 034604 JRST .+2 4902 034603 013 03 0 00 034401 ER13 AC-1,34401 ;FOV WAS SET 4903 034604 603 03 0 00 000100 TLNE AC-1,FXU 4904 034605 013 03 0 00 034401 ER13 AC-1,34401 ;FXU WAS SET 4905 034606 321 10 0 00 034566 JUMPL AC+4,S34400 ;LOOP ON ERROR SWITCH 4906 4907 034607 254 02 1 00 041347 S34500: JRSTF @[.+1] ;CLEAR ALL FLAGS 4908 DMOVE AC,[377400,,0 4909 034610 120 04 0 00 041026 0,,0] 4910 DFAD AC,[377400,,0 4911 034611 110 04 0 00 041026 0,,0] ;EXPECT AROV, FOV, FXU=1,1,0 4912 034612 265 03 0 00 034613 JSP AC-1,.+1 ;SAVE FLAGS 4913 034613 312 04 0 00 040233 CAME AC,[400,,0] 4914 034614 003 04 0 00 034501 ER3 AC,34501 ;C(AC) FAILED 4915 034615 312 05 0 00 040060 CAME AC+1,[0,,0] 4916 034616 004 05 0 00 034501 ER4 AC+1,34501 ;C(AC+1) FAILED 4917 034617 255 10 0 00 034621 JOV .+2 4918 034620 013 03 0 00 034501 ER13 AC-1,34501 ;AROV WAS CLEAR 4919 034621 255 01 0 00 034623 JFOV .+2 4920 034622 013 03 0 00 034501 ER13 AC-1,34501 ;FOV WAS CLEAR 4921 034623 603 03 0 00 000100 TLNE AC-1,FXU 4922 034624 013 03 0 00 034501 ER13 AC-1,34501 ;FXU WAS SET 4923 034625 321 10 0 00 034607 JUMPL AC+4,S34500 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 13 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0116 4924 034626 254 02 1 00 041350 S34600: JRSTF @[.+1] ;CLEAR ALL FLAGS 4925 DMOVE AC,[200,,0 4926 034627 120 04 0 00 041351 0,,0] 4927 DFAD AC,[200,,0 4928 034630 110 04 0 00 041351 0,,0] ;EXPECT AROV, FOV, FXU=0,0,0 4929 034631 265 03 0 00 034632 JSP AC-1,.+1 ;SAVE FLAGS 4930 034632 312 04 0 00 040233 CAME AC,[400,,0] 4931 034633 003 04 0 00 034601 ER3 AC,34601 ;C(AC) FAILED 4932 034634 312 05 0 00 040060 CAME AC+1,[0,,0] 4933 034635 004 05 0 00 034601 ER4 AC+1,34601 ;C(AC+1) FAILED 4934 034636 255 10 0 00 034640 JOV .+2 4935 034637 254 00 0 00 034641 JRST .+2 4936 034640 013 03 0 00 034601 ER13 AC-1,34601 ;AROV WAS SET 4937 034641 255 01 0 00 034643 JFOV .+2 4938 034642 254 00 0 00 034644 JRST .+2 4939 034643 013 03 0 00 034601 ER13 AC-1,34601 ;FOV WAS SET 4940 034644 603 03 0 00 000100 TLNE AC-1,FXU 4941 034645 013 03 0 00 034601 ER13 AC-1,34601 ;FXU WAS SET 4942 034646 321 10 0 00 034626 JUMPL AC+4,S34600 ;LOOP ON ERROR SWITCH 4943 4944 034647 254 02 1 00 041353 S34700: JRSTF @[.+1] ;CLEAR ALL FLAGS 4945 DMOVE AC,[200,,0 4946 034650 120 04 0 00 041351 0,,0] 4947 DFAD AC,[177,,-1 4948 034651 110 04 0 00 041354 -1,,-1] ;EXPECT AROV,FOV,FXU=1,1,1 4949 034652 265 03 0 00 034653 JSP AC-1,.+1 ;SAVE FLAGS 4950 034653 312 04 0 00 040357 CAME AC,[377777,,-1] 4951 034654 003 04 0 00 034701 ER3 AC,34701 ;C(AC) FAILED 4952 034655 312 05 0 00 040363 CAME AC+1,[377777,,-2] 4953 034656 004 05 0 00 034701 ER4 AC+1,34701 ;C(AC+1) FAILED 4954 034657 255 10 0 00 034661 JOV .+2 4955 034660 013 03 0 00 034701 ER13 AC-1,34701 ;AROV WAS CLEAR 4956 034661 255 01 0 00 034663 JFOV .+2 4957 034662 013 03 0 00 034701 ER13 AC-1,34701 ;FOV WAS CLEAR 4958 034663 607 03 0 00 000100 TLNN AC-1,FXU 4959 034664 013 03 0 00 034701 ER13 AC-1,34701 ;FXU WAS CLEAR 4960 034665 321 10 0 00 034647 JUMPL AC+4,S34700 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 14 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0117 4961 034666 254 02 1 00 041356 S35000: JRSTF @[.+1] ;CLEAR ALL FLAGS 4962 DMOVE AC,[400400,,0 4963 034667 120 04 0 00 041357 0,,0] 4964 DFAD AC,[401000,,0 4965 034670 110 04 0 00 041361 0,,2] ;EXPECT AROV, FOV, FXU = 0,0,0 4966 034671 265 03 0 00 034672 JSP AC-1,.+1 ;SAVE FLAGS 4967 034672 312 04 0 00 041363 CAME AC,[400000,,0] 4968 034673 003 04 0 00 035001 ER3 AC,35001 ;C(AC) FAILED 4969 034674 312 05 0 00 040351 CAME AC+1,[0,,1] 4970 034675 004 05 0 00 035001 ER4 AC+1,35001 ;C(AC+1) FAILED 4971 034676 255 10 0 00 034700 JOV .+2 4972 034677 254 00 0 00 034701 JRST .+2 4973 034700 013 03 0 00 035001 ER13 AC-1,35001 ;AROV WAS SET 4974 034701 255 01 0 00 034703 JFOV .+2 4975 034702 254 00 0 00 034704 JRST .+2 4976 034703 013 03 0 00 035001 ER13 AC-1,35001 ;FOV WAS SET 4977 034704 603 03 0 00 000100 TLNE AC-1,FXU 4978 034705 013 03 0 00 035001 ER13 AC-1,35001 ;FXU WAS SET 4979 034706 321 10 0 00 034666 JUMPL AC+4,S35000 ;LOOP ON ERROR SWITCH 4980 4981 034707 254 02 1 00 041364 S35100: JRSTF @[.+1] ;CLEAR ALL FLAGS 4982 DMOVE AC,[400400,,0 4983 034710 120 04 0 00 041357 0,,0] 4984 DFAD AC,[400400,,0 4985 034711 110 04 0 00 041357 0,,0] ;EXPECT AROV, FOV, FXU=1,1,0 4986 034712 265 03 0 00 034713 JSP AC-1,.+1 ;SAVE FLAGS 4987 034713 312 04 0 00 041365 CAME AC,[777400,,0] 4988 034714 003 04 0 00 035101 ER3 AC,35101 ;C(AC) FAILED 4989 034715 312 05 0 00 040060 CAME AC+1,[0,,0] 4990 034716 004 05 0 00 035101 ER4 AC+1,35101 ;C(AC+1) FAILED 4991 034717 255 10 0 00 034721 JOV .+2 4992 034720 013 03 0 00 035101 ER13 AC-1,35101 ;AROV WAS CLEAR 4993 034721 255 01 0 00 034723 JFOV .+2 4994 034722 013 03 0 00 035101 ER13 AC-1,35101 ;FOV WAS CLEAR 4995 034723 603 03 0 00 000100 TLNE AC-1,FXU 4996 034724 013 03 0 00 035101 ER13 AC-1,35101 ;FXU WAS SET 4997 034725 321 10 0 00 034707 JUMPL AC+4,S35100 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 15 DSKCE1 MAC 21-Jun-78 10:46 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0118 4998 034726 254 02 1 00 041366 S35200: JRSTF @[.+1] ;CLEAR ALL FLAGS 4999 DMOVE AC,[777600,,0 5000 034727 120 04 0 00 041367 0,,0] 5001 DFAD AC,[777600,,0 5002 034730 110 04 0 00 041367 0,,0] ;EXPECT AROV,FOV,FXV=0,0,0 5003 034731 265 03 0 00 034732 JSP AC-1,.+1 ;SAVE FLAGS 5004 034732 312 04 0 00 041365 CAME AC,[777400,,0] 5005 034733 003 04 0 00 035201 ER3 AC,35201 ;C(AC) FAILED 5006 034734 312 05 0 00 040060 CAME AC+1,[0,,0] 5007 034735 004 05 0 00 035201 ER4 AC+1,35201 ;C(AC+1) FAILED 5008 034736 255 10 0 00 034740 JOV .+2 5009 034737 254 00 0 00 034741 JRST .+2 5010 034740 013 03 0 00 035201 ER13 AC-1,35201 ;AROV WAS SET 5011 034741 255 01 0 00 034743 JFOV .+2 5012 034742 254 00 0 00 034744 JRST .+2 5013 034743 013 03 0 00 035201 ER13 AC-1,35201 ;FOV WAS SET 5014 034744 603 03 0 00 000100 TLNE AC-1,FXU 5015 034745 013 03 0 00 035201 ER13 AC-1,35201 ;FXU WAS SET 5016 034746 321 10 0 00 034726 JUMPL AC+4,S35200 ;LOOP ON ERROR SWITCH 5017 5018 034747 254 02 1 00 041371 S35300: JRSTF @[.+1] ;CLEAR ALL FLAGS 5019 DMOVE AC,[777600,,0 5020 034750 120 04 0 00 041367 0,,0] 5021 DFAD AC,[777600,,0 5022 034751 110 04 0 00 041372 0,,1] ;EXPECT AROV,FOV,FXU=1,1,1 5023 034752 265 03 0 00 034753 JSP AC-1,.+1 ;SAVE FLAGS 5024 034753 312 04 0 00 041363 CAME AC,[400000,,0] 5025 034754 003 04 0 00 035301 ER3 AC,35301 ;C(AC) FAILED 5026 034755 312 05 0 00 040346 CAME AC+1,[0,,2] 5027 034756 004 05 0 00 035301 ER4 AC+1,35301 ;C(AC+1) FAILED 5028 034757 255 10 0 00 034761 JOV .+2 5029 034760 013 03 0 00 035301 ER13 AC-1,35301 ;AROV WAS CLEAR 5030 034761 255 01 0 00 034763 JFOV .+2 5031 034762 013 03 0 00 035301 ER13 AC-1,35301 ;FOV WAS CLEAR 5032 034763 607 03 0 00 000100 TLNN AC-1,FXU 5033 034764 013 03 0 00 035301 ER13 AC-1,35301 ;FXU WAS CLEAR 5034 034765 321 10 0 00 034747 JUMPL AC+4,S35300 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 16 DSKCE1 MAC 21-Jun-78 10:46 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0119 5035 SUBTTL DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND 5036 5037 000004 AC=4 5038 SAVEAC (1,1)^ 5039 034766 201 06 0 00 034766 MOVEI AC+2,. 5040 034767 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 5041 034770 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5042 034771 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5043 034772 254 02 1 00 041374 JRSTF @[.+1] ;CLEAR ALL FLAGS 5044 5045 ;CHECK THAT DFSB AC,E DOES NOT ALTER C(E) OR C(E+1) 5046 S40100: DMOVE AC,[200777,,-1 5047 034773 120 04 0 00 040710 -1,,-1] 5048 DMOVE AC+2,[200000,,0 5049 034774 120 06 0 00 040712 400000,,-1] 5050 034775 111 04 0 00 000006 DFSB AC,AC+2 5051 034776 312 06 0 00 040203 CAME AC+2,[200000,,0] 5052 034777 005 06 0 00 040101 ER5 AC+2,40101 ;C(E) WAS ALTERED 5053 035000 312 07 0 00 040713 CAME AC+3,[400000,,-1] 5054 035001 006 07 0 00 040101 ER6 AC+3,40101 ;C(E+1) WAS ALTERED 5055 035002 321 10 0 00 034773 JUMPL AC+4,S40100 ;LOOP ON ERROR SWITCH 5056 5057 SDFS 402,205400,0,0,0,177400,0,0,0,204770,0,0,0^ 5058 S40200: DMOVE AC,[205400,,0 5059 035003 120 04 0 00 040733 0,,0] 5060 DFSB AC,[177400,,0 5061 035004 111 04 0 00 040727 0,,0] 5062 035005 312 04 0 00 041375 CAME AC,[204770,,0] 5063 035006 003 04 0 00 040201 ER3 AC,40201 5064 035007 312 05 0 00 040060 CAME AC+1,[0,,0] 5065 035010 004 05 0 00 040201 ER4 AC+1,40201 5066 035011 321 10 0 00 035003 JUMPL AC+4,S40200 ;LOOP ON ERROR SWITCH^ 5067 5068 SDFS 403,200400,0,0,0,177400,0,0,0,177400,0,0,0^ 5069 S40300: DMOVE AC,[200400,,0 5070 035012 120 04 0 00 040731 0,,0] 5071 DFSB AC,[177400,,0 5072 035013 111 04 0 00 040727 0,,0] 5073 035014 312 04 0 00 040066 CAME AC,[177400,,0] 5074 035015 003 04 0 00 040301 ER3 AC,40301 5075 035016 312 05 0 00 040060 CAME AC+1,[0,,0] 5076 035017 004 05 0 00 040301 ER4 AC+1,40301 5077 035020 321 10 0 00 035012 JUMPL AC+4,S40300 ;LOOP ON ERROR SWITCH^ 5078 5079 SDFS 404,200400,0,0,0,200400,0,0,0,0,0,0,0^ 5080 S40400: DMOVE AC,[200400,,0 5081 035021 120 04 0 00 040731 0,,0] 5082 DFSB AC,[200400,,0 5083 035022 111 04 0 00 040731 0,,0] 5084 035023 312 04 0 00 040060 CAME AC,[0,,0] 5085 035024 003 04 0 00 040401 ER3 AC,40401 5086 035025 312 05 0 00 040060 CAME AC+1,[0,,0] 5087 035026 004 05 0 00 040401 ER4 AC+1,40401 5088 035027 321 10 0 00 035021 JUMPL AC+4,S40400 ;LOOP ON ERROR SWITCH^ 5089 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 16-1 DSKCE1 MAC 21-Jun-78 10:46 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0120 5090 SDFS 405,201400,0,0,0,177400,0,0,0,200600,0,0,0^ 5091 S40500: DMOVE AC,[201400,,0 5092 035030 120 04 0 00 040057 0,,0] 5093 DFSB AC,[177400,,0 5094 035031 111 04 0 00 040727 0,,0] 5095 035032 312 04 0 00 040064 CAME AC,[200600,,0] 5096 035033 003 04 0 00 040501 ER3 AC,40501 5097 035034 312 05 0 00 040060 CAME AC+1,[0,,0] 5098 035035 004 05 0 00 040501 ER4 AC+1,40501 5099 035036 321 10 0 00 035030 JUMPL AC+4,S40500 ;LOOP ON ERROR SWITCH^ 5100 5101 SDFS 406,576400,0,0,0,600400,0,0,0,577200,0,0,0^ 5102 S40600: DMOVE AC,[576400,,0 5103 035037 120 04 0 00 041036 0,,0] 5104 DFSB AC,[600400,,0 5105 035040 111 04 0 00 040725 0,,0] 5106 035041 312 04 0 00 041034 CAME AC,[577200,,0] 5107 035042 003 04 0 00 040601 ER3 AC,40601 5108 035043 312 05 0 00 040060 CAME AC+1,[0,,0] 5109 035044 004 05 0 00 040601 ER4 AC+1,40601 5110 035045 321 10 0 00 035037 JUMPL AC+4,S40600 ;LOOP ON ERROR SWITCH^ 5111 5112 SDFS 407,201400,0,0,0,577400,0,0,0,201600,0,0,0^ 5113 S40700: DMOVE AC,[201400,,0 5114 035046 120 04 0 00 040057 0,,0] 5115 DFSB AC,[577400,,0 5116 035047 111 04 0 00 040061 0,,0] 5117 035050 312 04 0 00 040743 CAME AC,[201600,,0] 5118 035051 003 04 0 00 040701 ER3 AC,40701 5119 035052 312 05 0 00 040060 CAME AC+1,[0,,0] 5120 035053 004 05 0 00 040701 ER4 AC+1,40701 5121 035054 321 10 0 00 035046 JUMPL AC+4,S40700 ;LOOP ON ERROR SWITCH^ 5122 5123 SDFS 410,203400,0,0,0,200477,777775,0,0,202660,0,300000,0^ 5124 S41000: DMOVE AC,[203400,,0 5125 035055 120 04 0 00 041230 0,,0] 5126 DFSB AC,[200477,,777775 5127 035056 111 04 0 00 041376 0,,0] 5128 035057 312 04 0 00 041400 CAME AC,[202660,,0] 5129 035060 003 04 0 00 041001 ER3 AC,41001 5130 035061 312 05 0 00 040563 CAME AC+1,[300000,,0] 5131 035062 004 05 0 00 041001 ER4 AC+1,41001 5132 035063 321 10 0 00 035055 JUMPL AC+4,S41000 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 17 DSKCE1 MAC 21-Jun-78 10:46 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0121 5133 ;TEST AROV, FOV AND FXU FLAGS - DFSB 5134 5135 000004 AC=4 5136 SAVEAC (1,1)^ 5137 035064 201 06 0 00 035064 MOVEI AC+2,. 5138 035065 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 5139 035066 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5140 035067 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5141 5142 035070 254 02 1 00 041401 S41100: JRSTF @[.+1] ;CLEAR ALL FLAGS 5143 DMOVE AC,[377400,,0 5144 035071 120 04 0 00 041026 0,,0] 5145 DFSB AC,[400400,,0 5146 035072 111 04 0 00 041402 0,,1] ;EXPECT AROV,FOV,FXU=0,0,0 5147 035073 265 03 0 00 035074 JSP AC-1,.+1 ;SAVE FLAGS 5148 035074 312 04 0 00 040357 CAME AC,[377777,,-1] 5149 035075 003 04 0 00 041101 ER3 AC,41101 ;C(AC) FAILED 5150 035076 312 05 0 00 040357 CAME AC+1,[377777,,-1] 5151 035077 004 05 0 00 041101 ER4 AC+1,41101 ;C(AC+1) FAILED 5152 035100 255 10 0 00 035102 JOV .+2 5153 035101 254 00 0 00 035103 JRST .+2 5154 035102 013 03 0 00 041101 ER13 AC-1,41101 ;AROV WAS SET 5155 035103 255 01 0 00 035105 JFOV .+2 5156 035104 254 00 0 00 035106 JRST .+2 5157 035105 013 03 0 00 041101 ER13 AC-1,41101 ;FOV WAS SET 5158 035106 603 03 0 00 000100 TLNE AC-1,FXU 5159 035107 013 03 0 00 041101 ER13 AC-1,41101 ;FXU WAS SET 5160 035110 321 10 0 00 035070 JUMPL AC+4,S41100 ;LOOP ON ERROR SWITCH 5161 5162 035111 254 02 1 00 041404 S41200: JRSTF @[.+1] ;CLEAR ALL FLAGS 5163 DMOVE AC,[377400,,0 5164 035112 120 04 0 00 041026 0,,0] 5165 DFSB AC,[400400,,0 5166 035113 111 04 0 00 041357 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0 5167 035114 265 03 0 00 035115 JSP AC-1,.+1 ;SAVE FLAGS 5168 035115 312 04 0 00 040233 CAME AC,[400,,0] 5169 035116 003 04 0 00 041201 ER3 AC,41201 ;C(AC) FAILED 5170 035117 312 05 0 00 040060 CAME AC+1,[0,,0] 5171 035120 004 05 0 00 041201 ER4 AC+1,41201 ;C(AC+1)FAILED 5172 035121 255 10 0 00 035123 JOV .+2 5173 035122 013 03 0 00 041201 ER13 AC-1,41201 ;AROV WAS CLEAR 5174 035123 255 01 0 00 035125 JFOV .+2 5175 035124 013 03 0 00 041201 ER13 AC-1,41201 ;FOV WAS CLEAR 5176 035125 603 03 0 00 000100 TLNE AC-1,FXU 5177 035126 013 03 0 00 041201 ER13 AC-1,41201 ;FXU WAS SET 5178 035127 321 10 0 00 035111 JUMPL AC+4,S41200 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 18 DSKCE1 MAC 21-Jun-78 10:46 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0122 5179 035130 254 02 1 00 041405 S41300: JRSTF @[.+1] ;CLEAR ALL FLAGS 5180 DMOVE AC,[777,,-1 5181 035131 120 04 0 00 041406 -1,,-1] 5182 DFSB AC,[377,,-1 5183 035132 111 04 0 00 041410 -1,,-1] ;EXPECT AROV,FOV,FXU=0,0,0 5184 035133 265 03 0 00 035134 JSP AC-1,.+1 ;SAVE FLAGS 5185 035134 312 04 0 00 040233 CAME AC,[400,,0] 5186 035135 003 04 0 00 041301 ER3 AC,41301 ;C(AC) FAILED 5187 035136 312 05 0 00 040060 CAME AC+1,[0,,0] 5188 035137 004 05 0 00 041301 ER4 AC+1,41301 ;C(AC+1) FAILED 5189 035140 255 10 0 00 035142 JOV .+2 5190 035141 254 00 0 00 035143 JRST .+2 5191 035142 013 03 0 00 041301 ER13 AC-1,41301 ;AROV WAS SET 5192 035143 255 01 0 00 035145 JFOV .+2 5193 035144 254 00 0 00 035146 JRST .+2 5194 035145 013 03 0 00 041301 ER13 AC-1,41301 ;FOV WAS SET 5195 035146 603 03 0 00 000100 TLNE AC-1,FXU 5196 035147 013 03 0 00 041301 ER13 AC-1,41301 ;FXU WAS SET 5197 035150 321 10 0 00 035130 JUMPL AC+4,S41300 ;LOOP ON ERROR SWITCH 5198 5199 035151 254 02 1 00 041412 S41400: JRSTF @[.+1] ;CLEAR ALL FLAGS 5200 DMOVE AC,[777,,-1 5201 035152 120 04 0 00 041406 -1,,-1] 5202 DFSB AC,[400,,0 5203 035153 111 04 0 00 040716 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1 5204 035154 265 03 0 00 035155 JSP AC-1,.+1 ;SAVE FLAGS 5205 035155 312 04 0 00 040357 CAME AC,[377777,,-1] 5206 035156 003 04 0 00 041401 ER3 AC,41401 ;C(AC) FAILED 5207 035157 312 05 0 00 040363 CAME AC+1,[377777,,-2] 5208 035160 004 05 0 00 041401 ER4 AC+1,41401 ;C(AC+1) FAILED 5209 035161 255 10 0 00 035163 JOV .+2 5210 035162 013 03 0 00 041401 ER13 AC-1,41401 ;AROV WAS CLEAR 5211 035163 255 01 0 00 035165 JFOV .+2 5212 035164 013 03 0 00 041401 ER13 AC-1,41401 ;FOV WAS CLEAR 5213 035165 607 03 0 00 000100 TLNN AC-1,FXU 5214 035166 013 03 0 00 041401 ER13 AC-1,41401 ;FXU WAS CLEAR 5215 035167 321 10 0 00 035151 JUMPL AC+4,S41400 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 19 DSKCE1 MAC 21-Jun-78 10:46 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0123 5216 035170 254 02 1 00 041413 S41500: JRSTF @[.+1] ;CLEAR ALL FLAGS 5217 DMOVE AC,[400400,,0 5218 035171 120 04 0 00 041357 0,,0] 5219 DFSB AC,[377377,,-1 5220 035172 111 04 0 00 041414 -1,,-1] ;EXPECT AROV,FOV,FXU=0,0,0 5221 035173 265 03 0 00 035174 JSP AC-1,.+1 ;SAVE FLAGS 5222 035174 312 04 0 00 041363 CAME AC,[400000,,0] 5223 035175 003 04 0 00 041501 ER3 AC,41501 ;C(AC) FAILED 5224 035176 312 05 0 00 040351 CAME AC+1,[0,,1] 5225 035177 004 05 0 00 041501 ER4 AC+1,41501 ;C(AC+1) FAILED 5226 035200 255 10 0 00 035202 JOV .+2 5227 035201 254 00 0 00 035203 JRST .+2 5228 035202 013 03 0 00 041501 ER13 AC-1,41501 ;AROV WAS SET 5229 035203 255 01 0 00 035205 JFOV .+2 5230 035204 254 00 0 00 035206 JRST .+2 5231 035205 013 03 0 00 041501 ER13 AC-1,41501 ;FOV WAS SET 5232 035206 603 03 0 00 000100 TLNE AC-1,FXU 5233 035207 013 03 0 00 041501 ER13 AC-1,41501 ;FXU WAS SET 5234 035210 321 10 0 00 035170 JUMPL AC+4,S41500 ;LOOP ON ERROR SWITCH 5235 5236 035211 254 02 1 00 041416 S41600: JRSTF @[.+1] ;CLEAR ALL FLAGS 5237 DMOVE AC,[400400,,0 5238 035212 120 04 0 00 041357 0,,0] 5239 DFSB AC,[377400,,0 5240 035213 111 04 0 00 041026 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0 5241 035214 265 03 0 00 035215 JSP AC-1,.+1 ;SAVE FLAGS 5242 035215 312 04 0 00 041365 CAME AC,[777400,,0] 5243 035216 003 04 0 00 041601 ER3 AC,41601 ;C(AC) FAILED 5244 035217 312 05 0 00 040060 CAME AC+1,[0,,0] 5245 035220 004 05 0 00 041601 ER4 AC+1,41601 ;C(AC+1) FAILED 5246 035221 255 10 0 00 035223 JOV .+2 5247 035222 013 03 0 00 041601 ER13 AC-1,41601 ;AROV WAS CLEAR 5248 035223 255 01 0 00 035225 JFOV .+2 5249 035224 013 03 0 00 041601 ER13 AC-1,41601 ;FOV WAS CLEAR 5250 035225 603 03 0 00 000100 TLNE AC-1,FXU 5251 035226 013 03 0 00 041601 ER13 AC-1,41601 ;FXU WAS SET 5252 035227 321 10 0 00 035211 JUMPL AC+4,S41600 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 20 DSKCE1 MAC 21-Jun-78 10:46 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0124 5253 035230 254 02 1 00 041417 S41700: JRSTF @[.+1] ;CLEAR ALL FLAGS 5254 DMOVE AC,[777000,,0 5255 035231 120 04 0 00 041420 0,,0] 5256 DFSB AC,[777400,,0 5257 035232 111 04 0 00 041422 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 5258 035233 265 03 0 00 035234 JSP AC-1,.+1 ;SAVE FLAGS 5259 035234 312 04 0 00 041365 CAME AC,[777400,,0] 5260 035235 003 04 0 00 041701 ER3 AC,41701 ;C(AC) FAILED 5261 035236 312 05 0 00 040060 CAME AC+1,[0,,0] 5262 035237 004 05 0 00 041701 ER4 AC+1,41701 ;C(AC+1) FAILED 5263 035240 255 10 0 00 035242 JOV .+2 5264 035241 254 00 0 00 035243 JRST .+2 5265 035242 013 03 0 00 041701 ER13 AC-1,41701 ;AROV WAS SET 5266 035243 255 01 0 00 035245 JFOV .+2 5267 035244 254 00 0 00 035246 JRST .+2 5268 035245 013 03 0 00 041701 ER13 AC-1,41701 ;FOV WAS SET 5269 035246 603 03 0 00 000100 TLNE AC-1,FXU 5270 035247 013 03 0 00 041701 ER13 AC-1,41701 ;FXU WAS SET 5271 035250 321 10 0 00 035230 JUMPL AC+4,S41700 ;LOOP ON ERROR SWITCH 5272 5273 035251 254 02 1 00 041424 S42000: JRSTF @[.+1] ;CLEAR ALL FLAGS 5274 DMOVE AC,[777000,,0 5275 035252 120 04 0 00 041425 0,,1] 5276 DFSB AC,[777400,,0 5277 035253 111 04 0 00 041422 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1 5278 035254 265 03 0 00 035255 JSP AC-1,.+1 ;SAVE FLAGS 5279 035255 312 04 0 00 041363 CAME AC,[400000,,0] 5280 035256 003 04 0 00 042001 ER3 AC,42001 ;C(AC) FAILED 5281 035257 312 05 0 00 040346 CAME AC+1,[0,,2] 5282 035260 004 05 0 00 042001 ER4 AC+1,42001 ;C(AC+1) FAILED 5283 035261 255 10 0 00 035263 JOV .+2 5284 035262 013 03 0 00 042001 ER13 AC-1,42001 ;AROV WAS CLEAR 5285 035263 255 01 0 00 035265 JFOV .+2 5286 035264 013 03 0 00 042001 ER13 AC-1,42001 ;FOV WAS CLEAR 5287 035265 607 03 0 00 000100 TLNN AC-1,FXU 5288 035266 013 03 0 00 042001 ER13 AC-1,42001 ;FXU WAS CLEAR 5289 035267 321 10 0 00 035251 JUMPL AC+4,S42000 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 21 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0125 5290 SUBTTL DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND 5291 5292 000004 AC=4 5293 SAVEAC (1,1)^ 5294 035270 201 06 0 00 035270 MOVEI AC+2,. 5295 035271 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 5296 035272 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 5297 035273 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 5298 035274 254 02 1 00 041427 JRSTF @[.+1] ;CLEAR ALL FLAGS 5299 5300 ;CHECK THAT DFMP AC,E DOES NOT ALTER C(E) OR C(E+1) 5301 S50100: DMOVE AC,[200777,,-1 5302 035275 120 04 0 00 040710 -1,,-1] 5303 DMOVE AC+2,[201400,,0 5304 035276 120 06 0 00 041430 400000,,-1] 5305 035277 112 04 0 00 000006 DFMP AC,AC+2 5306 035300 312 06 0 00 040057 CAME AC+2,[201400,,0] 5307 035301 005 06 0 00 050101 ER5 AC+2,50101 ;C(E) WAS ALTERED 5308 035302 312 07 0 00 040713 CAME AC+3,[400000,,-1] 5309 035303 006 07 0 00 050101 ER6 AC+3,50101 ;C(E+1) WAS ALTERED 5310 035304 321 10 0 00 035275 JUMPL AC+4,S50100 ;LOOP ON ERROR SWITCH 5311 5312 SDFM 502,200400,0,0,0,0,0,0,0,0,0,0,0^ 5313 S50200: DMOVE AC,[200400,,0 5314 035305 120 04 0 00 040731 0,,0] 5315 DFMP AC,[0,,0 5316 035306 112 04 0 00 040355 0,,0] 5317 035307 312 04 0 00 040060 CAME AC,[0,,0] 5318 035310 003 04 0 00 050201 ER3 AC,50201 5319 035311 312 05 0 00 040060 CAME AC+1,[0,,0] 5320 035312 004 05 0 00 050201 ER4 AC+1,50201 5321 035313 321 10 0 00 035305 JUMPL AC+4,S50200 ;LOOP ON ERROR SWITCH^ 5322 5323 SDFM 503,200400,0,0,0,200400,0,0,0,177400,0,0,0^ 5324 S50300: DMOVE AC,[200400,,0 5325 035314 120 04 0 00 040731 0,,0] 5326 DFMP AC,[200400,,0 5327 035315 112 04 0 00 040731 0,,0] 5328 035316 312 04 0 00 040066 CAME AC,[177400,,0] 5329 035317 003 04 0 00 050301 ER3 AC,50301 5330 035320 312 05 0 00 040060 CAME AC+1,[0,,0] 5331 035321 004 05 0 00 050301 ER4 AC+1,50301 5332 035322 321 10 0 00 035314 JUMPL AC+4,S50300 ;LOOP ON ERROR SWITCH^ 5333 5334 SDFM 504,400,0,0,0,400,0,0,0,177400,0,0,0^ 5335 S50400: DMOVE AC,[400,,0 5336 035323 120 04 0 00 040716 0,,0] 5337 DFMP AC,[400,,0 5338 035324 112 04 0 00 040716 0,,0] 5339 035325 312 04 0 00 040066 CAME AC,[177400,,0] 5340 035326 003 04 0 00 050401 ER3 AC,50401 5341 035327 312 05 0 00 040060 CAME AC+1,[0,,0] 5342 035330 004 05 0 00 050401 ER4 AC+1,50401 5343 035331 321 10 0 00 035323 JUMPL AC+4,S50400 ;LOOP ON ERROR SWITCH^ 5344 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 21-1 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0126 5345 SDFM 505,200400,0,0,0,400,0,0,0,377400,0,0,0^ 5346 S50500: DMOVE AC,[200400,,0 5347 035332 120 04 0 00 040731 0,,0] 5348 DFMP AC,[400,,0 5349 035333 112 04 0 00 040716 0,,0] 5350 035334 312 04 0 00 040527 CAME AC,[377400,,0] 5351 035335 003 04 0 00 050501 ER3 AC,50501 5352 035336 312 05 0 00 040060 CAME AC+1,[0,,0] 5353 035337 004 05 0 00 050501 ER4 AC+1,50501 5354 035340 321 10 0 00 035332 JUMPL AC+4,S50500 ;LOOP ON ERROR SWITCH^ 5355 5356 SDFM 506,177400,0,0,0,400,0,0,0,376400,0,0,0^ 5357 S50600: DMOVE AC,[177400,,0 5358 035341 120 04 0 00 040727 0,,0] 5359 DFMP AC,[400,,0 5360 035342 112 04 0 00 040716 0,,0] 5361 035343 312 04 0 00 041432 CAME AC,[376400,,0] 5362 035344 003 04 0 00 050601 ER3 AC,50601 5363 035345 312 05 0 00 040060 CAME AC+1,[0,,0] 5364 035346 004 05 0 00 050601 ER4 AC+1,50601 5365 035347 321 10 0 00 035341 JUMPL AC+4,S50600 ;LOOP ON ERROR SWITCH^ 5366 5367 SDFM 507,377400,0,0,0,400,0,0,0,176400,0,0,0^ 5368 S50700: DMOVE AC,[377400,,0 5369 035350 120 04 0 00 041026 0,,0] 5370 DFMP AC,[400,,0 5371 035351 112 04 0 00 040716 0,,0] 5372 035352 312 04 0 00 040071 CAME AC,[176400,,0] 5373 035353 003 04 0 00 050701 ER3 AC,50701 5374 035354 312 05 0 00 040060 CAME AC+1,[0,,0] 5375 035355 004 05 0 00 050701 ER4 AC+1,50701 5376 035356 321 10 0 00 035350 JUMPL AC+4,S50700 ;LOOP ON ERROR SWITCH^ 5377 5378 SDFM 510,577400,0,0,0,400,0,0,0,400400,0,0,0^ 5379 S51000: DMOVE AC,[577400,,0 5380 035357 120 04 0 00 040061 0,,0] 5381 DFMP AC,[400,,0 5382 035360 112 04 0 00 040716 0,,0] 5383 035361 312 04 0 00 041225 CAME AC,[400400,,0] 5384 035362 003 04 0 00 051001 ER3 AC,51001 5385 035363 312 05 0 00 040060 CAME AC+1,[0,,0] 5386 035364 004 05 0 00 051001 ER4 AC+1,51001 5387 035365 321 10 0 00 035357 JUMPL AC+4,S51000 ;LOOP ON ERROR SWITCH^ 5388 5389 SDFM 511,400,0,0,0,200400,0,0,0,377400,0,0,0^ 5390 S51100: DMOVE AC,[400,,0 5391 035366 120 04 0 00 040716 0,,0] 5392 DFMP AC,[200400,,0 5393 035367 112 04 0 00 040731 0,,0] 5394 035370 312 04 0 00 040527 CAME AC,[377400,,0] 5395 035371 003 04 0 00 051101 ER3 AC,51101 5396 035372 312 05 0 00 040060 CAME AC+1,[0,,0] 5397 035373 004 05 0 00 051101 ER4 AC+1,51101 5398 035374 321 10 0 00 035366 JUMPL AC+4,S51100 ;LOOP ON ERROR SWITCH^ 5399 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 21-2 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0127 5400 SDFM 512,200400,0,0,0,577400,0,0,0,600400,0,0,0^ 5401 S51200: DMOVE AC,[200400,,0 5402 035375 120 04 0 00 040731 0,,0] 5403 DFMP AC,[577400,,0 5404 035376 112 04 0 00 040061 0,,0] 5405 035377 312 04 0 00 040725 CAME AC,[600400,,0] 5406 035400 003 04 0 00 051201 ER3 AC,51201 5407 035401 312 05 0 00 040060 CAME AC+1,[0,,0] 5408 035402 004 05 0 00 051201 ER4 AC+1,51201 5409 035403 321 10 0 00 035375 JUMPL AC+4,S51200 ;LOOP ON ERROR SWITCH^ 5410 5411 SDFM 513,200400,0,0,0,205400,0,0,0,204400,0,0,0^ 5412 S51300: DMOVE AC,[200400,,0 5413 035404 120 04 0 00 040731 0,,0] 5414 DFMP AC,[205400,,0 5415 035405 112 04 0 00 040733 0,,0] 5416 035406 312 04 0 00 040747 CAME AC,[204400,,0] 5417 035407 003 04 0 00 051301 ER3 AC,51301 5418 035410 312 05 0 00 040060 CAME AC+1,[0,,0] 5419 035411 004 05 0 00 051301 ER4 AC+1,51301 5420 035412 321 10 0 00 035404 JUMPL AC+4,S51300 ;LOOP ON ERROR SWITCH^ 5421 5422 SDFM 514,0,0,0,0,577400,0,0,0,0,0,0,0^ 5423 S51400: DMOVE AC,[0,,0 5424 035413 120 04 0 00 040355 0,,0] 5425 DFMP AC,[577400,,0 5426 035414 112 04 0 00 040061 0,,0] 5427 035415 312 04 0 00 040060 CAME AC,[0,,0] 5428 035416 003 04 0 00 051401 ER3 AC,51401 5429 035417 312 05 0 00 040060 CAME AC+1,[0,,0] 5430 035420 004 05 0 00 051401 ER4 AC+1,51401 5431 035421 321 10 0 00 035413 JUMPL AC+4,S51400 ;LOOP ON ERROR SWITCH^ 5432 5433 SDFM 515,200400,0,0,0,201400,0,0,0,200400,0,0,0^ 5434 S51500: DMOVE AC,[200400,,0 5435 035422 120 04 0 00 040731 0,,0] 5436 DFMP AC,[201400,,0 5437 035423 112 04 0 00 040057 0,,0] 5438 035424 312 04 0 00 040063 CAME AC,[200400,,0] 5439 035425 003 04 0 00 051501 ER3 AC,51501 5440 035426 312 05 0 00 040060 CAME AC+1,[0,,0] 5441 035427 004 05 0 00 051501 ER4 AC+1,51501 5442 035430 321 10 0 00 035422 JUMPL AC+4,S51500 ;LOOP ON ERROR SWITCH^ 5443 5444 SDFM 516,200400,0,0,0,202400,0,0,0,201400,0,0,0^ 5445 S51600: DMOVE AC,[200400,,0 5446 035431 120 04 0 00 040731 0,,0] 5447 DFMP AC,[202400,,0 5448 035432 112 04 0 00 040744 0,,0] 5449 035433 312 04 0 00 040057 CAME AC,[201400,,0] 5450 035434 003 04 0 00 051601 ER3 AC,51601 5451 035435 312 05 0 00 040060 CAME AC+1,[0,,0] 5452 035436 004 05 0 00 051601 ER4 AC+1,51601 5453 035437 321 10 0 00 035431 JUMPL AC+4,S51600 ;LOOP ON ERROR SWITCH^ 5454 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 21-3 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0128 5455 SDFM 517,200400,0,0,0,204400,0,0,0,203400,0,0,0^ 5456 S51700: DMOVE AC,[200400,,0 5457 035440 120 04 0 00 040731 0,,0] 5458 DFMP AC,[204400,,0 5459 035441 112 04 0 00 040747 0,,0] 5460 035442 312 04 0 00 041133 CAME AC,[203400,,0] 5461 035443 003 04 0 00 051701 ER3 AC,51701 5462 035444 312 05 0 00 040060 CAME AC+1,[0,,0] 5463 035445 004 05 0 00 051701 ER4 AC+1,51701 5464 035446 321 10 0 00 035440 JUMPL AC+4,S51700 ;LOOP ON ERROR SWITCH^ 5465 5466 SDFM 520,200400,0,0,0,210400,0,0,0,207400,0,0,0^ 5467 S52000: DMOVE AC,[200400,,0 5468 035447 120 04 0 00 040731 0,,0] 5469 DFMP AC,[210400,,0 5470 035450 112 04 0 00 040752 0,,0] 5471 035451 312 04 0 00 041232 CAME AC,[207400,,0] 5472 035452 003 04 0 00 052001 ER3 AC,52001 5473 035453 312 05 0 00 040060 CAME AC+1,[0,,0] 5474 035454 004 05 0 00 052001 ER4 AC+1,52001 5475 035455 321 10 0 00 035447 JUMPL AC+4,S52000 ;LOOP ON ERROR SWITCH^ 5476 5477 SDFM 521,200400,0,0,0,220400,0,0,0,217400,0,0,0^ 5478 S52100: DMOVE AC,[200400,,0 5479 035456 120 04 0 00 040731 0,,0] 5480 DFMP AC,[220400,,0 5481 035457 112 04 0 00 040755 0,,0] 5482 035460 312 04 0 00 041250 CAME AC,[217400,,0] 5483 035461 003 04 0 00 052101 ER3 AC,52101 5484 035462 312 05 0 00 040060 CAME AC+1,[0,,0] 5485 035463 004 05 0 00 052101 ER4 AC+1,52101 5486 035464 321 10 0 00 035456 JUMPL AC+4,S52100 ;LOOP ON ERROR SWITCH^ 5487 5488 SDFM 522,200400,0,0,0,240400,0,0,0,237400,0,0,0^ 5489 S52200: DMOVE AC,[200400,,0 5490 035465 120 04 0 00 040731 0,,0] 5491 DFMP AC,[240400,,0 5492 035466 112 04 0 00 040760 0,,0] 5493 035467 312 04 0 00 041433 CAME AC,[237400,,0] 5494 035470 003 04 0 00 052201 ER3 AC,52201 5495 035471 312 05 0 00 040060 CAME AC+1,[0,,0] 5496 035472 004 05 0 00 052201 ER4 AC+1,52201 5497 035473 321 10 0 00 035465 JUMPL AC+4,S52200 ;LOOP ON ERROR SWITCH^ 5498 5499 SDFM 523,200400,0,0,0,300400,0,0,0,277400,0,0,0^ 5500 S52300: DMOVE AC,[200400,,0 5501 035474 120 04 0 00 040731 0,,0] 5502 DFMP AC,[300400,,0 5503 035475 112 04 0 00 040762 0,,0] 5504 035476 312 04 0 00 041434 CAME AC,[277400,,0] 5505 035477 003 04 0 00 052301 ER3 AC,52301 5506 035500 312 05 0 00 040060 CAME AC+1,[0,,0] 5507 035501 004 05 0 00 052301 ER4 AC+1,52301 5508 035502 321 10 0 00 035474 JUMPL AC+4,S52300 ;LOOP ON ERROR SWITCH^ 5509 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 21-4 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0129 5510 SDFM 524,201400,0,0,0,200400,0,0,0,200400,0,0,0^ 5511 S52400: DMOVE AC,[201400,,0 5512 035503 120 04 0 00 040057 0,,0] 5513 DFMP AC,[200400,,0 5514 035504 112 04 0 00 040731 0,,0] 5515 035505 312 04 0 00 040063 CAME AC,[200400,,0] 5516 035506 003 04 0 00 052401 ER3 AC,52401 5517 035507 312 05 0 00 040060 CAME AC+1,[0,,0] 5518 035510 004 05 0 00 052401 ER4 AC+1,52401 5519 035511 321 10 0 00 035503 JUMPL AC+4,S52400 ;LOOP ON ERROR SWITCH^ 5520 5521 SDFM 525,202400,0,0,0,200400,0,0,0,201400,0,0,0^ 5522 S52500: DMOVE AC,[202400,,0 5523 035512 120 04 0 00 040744 0,,0] 5524 DFMP AC,[200400,,0 5525 035513 112 04 0 00 040731 0,,0] 5526 035514 312 04 0 00 040057 CAME AC,[201400,,0] 5527 035515 003 04 0 00 052501 ER3 AC,52501 5528 035516 312 05 0 00 040060 CAME AC+1,[0,,0] 5529 035517 004 05 0 00 052501 ER4 AC+1,52501 5530 035520 321 10 0 00 035512 JUMPL AC+4,S52500 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0130 5531 5532 5533 SDFM 526,204400,0,0,0,200400,0,0,0,203400,0,0,0^ 5534 S52600: DMOVE AC,[204400,,0 5535 035521 120 04 0 00 040747 0,,0] 5536 DFMP AC,[200400,,0 5537 035522 112 04 0 00 040731 0,,0] 5538 035523 312 04 0 00 041133 CAME AC,[203400,,0] 5539 035524 003 04 0 00 052601 ER3 AC,52601 5540 035525 312 05 0 00 040060 CAME AC+1,[0,,0] 5541 035526 004 05 0 00 052601 ER4 AC+1,52601 5542 035527 321 10 0 00 035521 JUMPL AC+4,S52600 ;LOOP ON ERROR SWITCH^ 5543 5544 SDFM 527,210400,0,0,0,200400,0,0,0,207400,0,0,0^ 5545 S52700: DMOVE AC,[210400,,0 5546 035530 120 04 0 00 040752 0,,0] 5547 DFMP AC,[200400,,0 5548 035531 112 04 0 00 040731 0,,0] 5549 035532 312 04 0 00 041232 CAME AC,[207400,,0] 5550 035533 003 04 0 00 052701 ER3 AC,52701 5551 035534 312 05 0 00 040060 CAME AC+1,[0,,0] 5552 035535 004 05 0 00 052701 ER4 AC+1,52701 5553 035536 321 10 0 00 035530 JUMPL AC+4,S52700 ;LOOP ON ERROR SWITCH^ 5554 5555 SDFM 530,220400,0,0,0,200400,0,0,0,217400,0,0,0^ 5556 S53000: DMOVE AC,[220400,,0 5557 035537 120 04 0 00 040755 0,,0] 5558 DFMP AC,[200400,,0 5559 035540 112 04 0 00 040731 0,,0] 5560 035541 312 04 0 00 041250 CAME AC,[217400,,0] 5561 035542 003 04 0 00 053001 ER3 AC,53001 5562 035543 312 05 0 00 040060 CAME AC+1,[0,,0] 5563 035544 004 05 0 00 053001 ER4 AC+1,53001 5564 035545 321 10 0 00 035537 JUMPL AC+4,S53000 ;LOOP ON ERROR SWITCH^ 5565 5566 SDFM 531,240400,0,0,0,200400,0,0,0,237400,0,0,0^ 5567 S53100: DMOVE AC,[240400,,0 5568 035546 120 04 0 00 040760 0,,0] 5569 DFMP AC,[200400,,0 5570 035547 112 04 0 00 040731 0,,0] 5571 035550 312 04 0 00 041433 CAME AC,[237400,,0] 5572 035551 003 04 0 00 053101 ER3 AC,53101 5573 035552 312 05 0 00 040060 CAME AC+1,[0,,0] 5574 035553 004 05 0 00 053101 ER4 AC+1,53101 5575 035554 321 10 0 00 035546 JUMPL AC+4,S53100 ;LOOP ON ERROR SWITCH^ 5576 5577 SDFM 532,300400,0,0,0,200400,0,0,0,277400,0,0,0^ 5578 S53200: DMOVE AC,[300400,,0 5579 035555 120 04 0 00 040762 0,,0] 5580 DFMP AC,[200400,,0 5581 035556 112 04 0 00 040731 0,,0] 5582 035557 312 04 0 00 041434 CAME AC,[277400,,0] 5583 035560 003 04 0 00 053201 ER3 AC,53201 5584 035561 312 05 0 00 040060 CAME AC+1,[0,,0] 5585 035562 004 05 0 00 053201 ER4 AC+1,53201 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-1 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0131 5586 035563 321 10 0 00 035555 JUMPL AC+4,S53200 ;LOOP ON ERROR SWITCH^ 5587 5588 SDFM 533,200400,0,0,0,576400,0,0,0,577400,0,0,0^ 5589 S53300: DMOVE AC,[200400,,0 5590 035564 120 04 0 00 040731 0,,0] 5591 DFMP AC,[576400,,0 5592 035565 112 04 0 00 041036 0,,0] 5593 035566 312 04 0 00 040061 CAME AC,[577400,,0] 5594 035567 003 04 0 00 053301 ER3 AC,53301 5595 035570 312 05 0 00 040060 CAME AC+1,[0,,0] 5596 035571 004 05 0 00 053301 ER4 AC+1,53301 5597 035572 321 10 0 00 035564 JUMPL AC+4,S53300 ;LOOP ON ERROR SWITCH^ 5598 5599 SDFM 534,200400,0,0,0,575400,0,0,0,576400,0,0,0^ 5600 S53400: DMOVE AC,[200400,,0 5601 035573 120 04 0 00 040731 0,,0] 5602 DFMP AC,[575400,,0 5603 035574 112 04 0 00 041435 0,,0] 5604 035575 312 04 0 00 040764 CAME AC,[576400,,0] 5605 035576 003 04 0 00 053401 ER3 AC,53401 5606 035577 312 05 0 00 040060 CAME AC+1,[0,,0] 5607 035600 004 05 0 00 053401 ER4 AC+1,53401 5608 035601 321 10 0 00 035573 JUMPL AC+4,S53400 ;LOOP ON ERROR SWITCH^ 5609 5610 SDFM 535,200777,-1,0,0,200400,0,0,0,177777,-1,0,0^ 5611 S53500: DMOVE AC,[200777,,-1 5612 035602 120 04 0 00 041226 0,,0] 5613 DFMP AC,[200400,,0 5614 035603 112 04 0 00 040731 0,,0] 5615 035604 312 04 0 00 041437 CAME AC,[177777,,-1] 5616 035605 003 04 0 00 053501 ER3 AC,53501 5617 035606 312 05 0 00 040060 CAME AC+1,[0,,0] 5618 035607 004 05 0 00 053501 ER4 AC+1,53501 5619 035610 321 10 0 00 035602 JUMPL AC+4,S53500 ;LOOP ON ERROR SWITCH^ 5620 5621 SDFM 536,200777,-2,0,0,200400,0,0,0,177777,-2,0,0^ 5622 S53600: DMOVE AC,[200777,,-2 5623 035611 120 04 0 00 041440 0,,0] 5624 DFMP AC,[200400,,0 5625 035612 112 04 0 00 040731 0,,0] 5626 035613 312 04 0 00 041442 CAME AC,[177777,,-2] 5627 035614 003 04 0 00 053601 ER3 AC,53601 5628 035615 312 05 0 00 040060 CAME AC+1,[0,,0] 5629 035616 004 05 0 00 053601 ER4 AC+1,53601 5630 035617 321 10 0 00 035611 JUMPL AC+4,S53600 ;LOOP ON ERROR SWITCH^ 5631 5632 SDFM 537,200777,-3,0,0,200400,0,0,0,177777,-3,0,0^ 5633 S53700: DMOVE AC,[200777,,-3 5634 035620 120 04 0 00 041443 0,,0] 5635 DFMP AC,[200400,,0 5636 035621 112 04 0 00 040731 0,,0] 5637 035622 312 04 0 00 041445 CAME AC,[177777,,-3] 5638 035623 003 04 0 00 053701 ER3 AC,53701 5639 035624 312 05 0 00 040060 CAME AC+1,[0,,0] 5640 035625 004 05 0 00 053701 ER4 AC+1,53701 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-2 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0132 5641 035626 321 10 0 00 035620 JUMPL AC+4,S53700 ;LOOP ON ERROR SWITCH^ 5642 5643 SDFM 540,200777,-4,0,0,200400,0,0,0,177777,-4,0,0^ 5644 S54000: DMOVE AC,[200777,,-4 5645 035627 120 04 0 00 041446 0,,0] 5646 DFMP AC,[200400,,0 5647 035630 112 04 0 00 040731 0,,0] 5648 035631 312 04 0 00 041450 CAME AC,[177777,,-4] 5649 035632 003 04 0 00 054001 ER3 AC,54001 5650 035633 312 05 0 00 040060 CAME AC+1,[0,,0] 5651 035634 004 05 0 00 054001 ER4 AC+1,54001 5652 035635 321 10 0 00 035627 JUMPL AC+4,S54000 ;LOOP ON ERROR SWITCH^ 5653 5654 SDFM 541,0,0,0,0,200400,0,0,0,0,0,0,0^ 5655 S54100: DMOVE AC,[0,,0 5656 035636 120 04 0 00 040355 0,,0] 5657 DFMP AC,[200400,,0 5658 035637 112 04 0 00 040731 0,,0] 5659 035640 312 04 0 00 040060 CAME AC,[0,,0] 5660 035641 003 04 0 00 054101 ER3 AC,54101 5661 035642 312 05 0 00 040060 CAME AC+1,[0,,0] 5662 035643 004 05 0 00 054101 ER4 AC+1,54101 5663 035644 321 10 0 00 035636 JUMPL AC+4,S54100 ;LOOP ON ERROR SWITCH^ 5664 5665 SDFM 542,577400,0,0,0,200400,0,0,0,600400,0,0,0^ 5666 S54200: DMOVE AC,[577400,,0 5667 035645 120 04 0 00 040061 0,,0] 5668 DFMP AC,[200400,,0 5669 035646 112 04 0 00 040731 0,,0] 5670 035647 312 04 0 00 040725 CAME AC,[600400,,0] 5671 035650 003 04 0 00 054201 ER3 AC,54201 5672 035651 312 05 0 00 040060 CAME AC+1,[0,,0] 5673 035652 004 05 0 00 054201 ER4 AC+1,54201 5674 035653 321 10 0 00 035645 JUMPL AC+4,S54200 ;LOOP ON ERROR SWITCH^ 5675 5676 SDFMKL 543,501700,0,0,0,500400,0,0,0,374100,0,0,0,372400,0,0,0^ 5677 S54300: DMOVE AC,[501700,,0 5678 035654 120 04 0 00 041451 0,,0] 5679 DFMP AC,[500400,,0 5680 035655 112 04 0 00 041453 0,,0] 5681 035656 332 00 0 00 030041 SKIPE KLFLG 5682 035657 254 00 0 00 035666 JRST S54305 5683 035660 312 04 0 00 041455 CAME AC,[374100,,0] 5684 035661 003 04 0 00 054301 ER3 AC,54301 5685 035662 312 05 0 00 040060 CAME AC+1,[0,,0] 5686 035663 004 05 0 00 054301 ER4 AC+1,54301 5687 035664 321 10 0 00 035654 S54306: JUMPL AC+4,S54300 ;LOOP ON ERROR SWITCH 5688 035665 254 00 0 00 035673 JRST S54307 5689 035666 312 04 0 00 041456 S54305: CAME AC,[372400,,0] 5690 035667 003 04 0 00 054301 ER3 AC,54301 5691 035670 312 05 0 00 040060 CAME AC+1,[0,,0] 5692 035671 004 05 0 00 054301 ER4 AC+1,54301 5693 035672 254 00 0 00 035664 JRST S54306 5694 035673 254 00 0 00 035674 S54307: JRST .+1 ^ 5695 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-3 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0133 5696 SDFMKL 544,502700,0,0,0,500400,0,0,0,373100,0,0,0,371400,0,0,0^ 5697 S54400: DMOVE AC,[502700,,0 5698 035674 120 04 0 00 041457 0,,0] 5699 DFMP AC,[500400,,0 5700 035675 112 04 0 00 041453 0,,0] 5701 035676 332 00 0 00 030041 SKIPE KLFLG 5702 035677 254 00 0 00 035706 JRST S54405 5703 035700 312 04 0 00 041461 CAME AC,[373100,,0] 5704 035701 003 04 0 00 054401 ER3 AC,54401 5705 035702 312 05 0 00 040060 CAME AC+1,[0,,0] 5706 035703 004 05 0 00 054401 ER4 AC+1,54401 5707 035704 321 10 0 00 035674 S54406: JUMPL AC+4,S54400 ;LOOP ON ERROR SWITCH 5708 035705 254 00 0 00 035713 JRST S54407 5709 035706 312 04 0 00 041462 S54405: CAME AC,[371400,,0] 5710 035707 003 04 0 00 054401 ER3 AC,54401 5711 035710 312 05 0 00 040060 CAME AC+1,[0,,0] 5712 035711 004 05 0 00 054401 ER4 AC+1,54401 5713 035712 254 00 0 00 035704 JRST S54406 5714 035713 254 00 0 00 035714 S54407: JRST .+1 ^ 5715 5716 SDFMKL 545,503700,0,0,0,500400,0,0,0,372100,0,0,0,370400,0,0,0^ 5717 S54500: DMOVE AC,[503700,,0 5718 035714 120 04 0 00 041463 0,,0] 5719 DFMP AC,[500400,,0 5720 035715 112 04 0 00 041453 0,,0] 5721 035716 332 00 0 00 030041 SKIPE KLFLG 5722 035717 254 00 0 00 035726 JRST S54505 5723 035720 312 04 0 00 041465 CAME AC,[372100,,0] 5724 035721 003 04 0 00 054501 ER3 AC,54501 5725 035722 312 05 0 00 040060 CAME AC+1,[0,,0] 5726 035723 004 05 0 00 054501 ER4 AC+1,54501 5727 035724 321 10 0 00 035714 S54506: JUMPL AC+4,S54500 ;LOOP ON ERROR SWITCH 5728 035725 254 00 0 00 035733 JRST S54507 5729 035726 312 04 0 00 041466 S54505: CAME AC,[370400,,0] 5730 035727 003 04 0 00 054501 ER3 AC,54501 5731 035730 312 05 0 00 040060 CAME AC+1,[0,,0] 5732 035731 004 05 0 00 054501 ER4 AC+1,54501 5733 035732 254 00 0 00 035724 JRST S54506 5734 035733 254 00 0 00 035734 S54507: JRST .+1 ^ 5735 5736 SDFMKL 546,504700,0,0,0,500400,0,0,0,371100,0,0,0,367400,0,0,0^ 5737 S54600: DMOVE AC,[504700,,0 5738 035734 120 04 0 00 041467 0,,0] 5739 DFMP AC,[500400,,0 5740 035735 112 04 0 00 041453 0,,0] 5741 035736 332 00 0 00 030041 SKIPE KLFLG 5742 035737 254 00 0 00 035746 JRST S54605 5743 035740 312 04 0 00 041471 CAME AC,[371100,,0] 5744 035741 003 04 0 00 054601 ER3 AC,54601 5745 035742 312 05 0 00 040060 CAME AC+1,[0,,0] 5746 035743 004 05 0 00 054601 ER4 AC+1,54601 5747 035744 321 10 0 00 035734 S54606: JUMPL AC+4,S54600 ;LOOP ON ERROR SWITCH 5748 035745 254 00 0 00 035753 JRST S54607 5749 035746 312 04 0 00 041472 S54605: CAME AC,[367400,,0] 5750 035747 003 04 0 00 054601 ER3 AC,54601 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-4 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0134 5751 035750 312 05 0 00 040060 CAME AC+1,[0,,0] 5752 035751 004 05 0 00 054601 ER4 AC+1,54601 5753 035752 254 00 0 00 035744 JRST S54606 5754 035753 254 00 0 00 035754 S54607: JRST .+1 ^ 5755 5756 SDFMKL 547,505700,0,0,0,500400,0,0,0,370100,0,0,0,366400,0,0,0^ 5757 S54700: DMOVE AC,[505700,,0 5758 035754 120 04 0 00 041473 0,,0] 5759 DFMP AC,[500400,,0 5760 035755 112 04 0 00 041453 0,,0] 5761 035756 332 00 0 00 030041 SKIPE KLFLG 5762 035757 254 00 0 00 035766 JRST S54705 5763 035760 312 04 0 00 041475 CAME AC,[370100,,0] 5764 035761 003 04 0 00 054701 ER3 AC,54701 5765 035762 312 05 0 00 040060 CAME AC+1,[0,,0] 5766 035763 004 05 0 00 054701 ER4 AC+1,54701 5767 035764 321 10 0 00 035754 S54706: JUMPL AC+4,S54700 ;LOOP ON ERROR SWITCH 5768 035765 254 00 0 00 035773 JRST S54707 5769 035766 312 04 0 00 041476 S54705: CAME AC,[366400,,0] 5770 035767 003 04 0 00 054701 ER3 AC,54701 5771 035770 312 05 0 00 040060 CAME AC+1,[0,,0] 5772 035771 004 05 0 00 054701 ER4 AC+1,54701 5773 035772 254 00 0 00 035764 JRST S54706 5774 035773 254 00 0 00 035774 S54707: JRST .+1 ^ 5775 5776 SDFMKL 550,200200,0,0,0,200400,0,0,0,177200,0,0,0,176400,0,0,0^ 5777 S55000: DMOVE AC,[200200,,0 5778 035774 120 04 0 00 041274 0,,0] 5779 DFMP AC,[200400,,0 5780 035775 112 04 0 00 040731 0,,0] 5781 035776 332 00 0 00 030041 SKIPE KLFLG 5782 035777 254 00 0 00 036006 JRST S55005 5783 036000 312 04 0 00 041477 CAME AC,[177200,,0] 5784 036001 003 04 0 00 055001 ER3 AC,55001 5785 036002 312 05 0 00 040060 CAME AC+1,[0,,0] 5786 036003 004 05 0 00 055001 ER4 AC+1,55001 5787 036004 321 10 0 00 035774 S55006: JUMPL AC+4,S55000 ;LOOP ON ERROR SWITCH 5788 036005 254 00 0 00 036013 JRST S55007 5789 036006 312 04 0 00 040071 S55005: CAME AC,[176400,,0] 5790 036007 003 04 0 00 055001 ER3 AC,55001 5791 036010 312 05 0 00 040060 CAME AC+1,[0,,0] 5792 036011 004 05 0 00 055001 ER4 AC+1,55001 5793 036012 254 00 0 00 036004 JRST S55006 5794 036013 254 00 0 00 036014 S55007: JRST .+1 ^ 5795 5796 SDFMKL 551,200100,0,0,0,200400,0,0,0,177100,0,0,0,175400,0,0,0^ 5797 S55100: DMOVE AC,[200100,,0 5798 036014 120 04 0 00 041134 0,,0] 5799 DFMP AC,[200400,,0 5800 036015 112 04 0 00 040731 0,,0] 5801 036016 332 00 0 00 030041 SKIPE KLFLG 5802 036017 254 00 0 00 036026 JRST S55105 5803 036020 312 04 0 00 041500 CAME AC,[177100,,0] 5804 036021 003 04 0 00 055101 ER3 AC,55101 5805 036022 312 05 0 00 040060 CAME AC+1,[0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-5 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0135 5806 036023 004 05 0 00 055101 ER4 AC+1,55101 5807 036024 321 10 0 00 036014 S55106: JUMPL AC+4,S55100 ;LOOP ON ERROR SWITCH 5808 036025 254 00 0 00 036033 JRST S55107 5809 036026 312 04 0 00 040074 S55105: CAME AC,[175400,,0] 5810 036027 003 04 0 00 055101 ER3 AC,55101 5811 036030 312 05 0 00 040060 CAME AC+1,[0,,0] 5812 036031 004 05 0 00 055101 ER4 AC+1,55101 5813 036032 254 00 0 00 036024 JRST S55106 5814 036033 254 00 0 00 036034 S55107: JRST .+1 ^ 5815 5816 SDFMKL 552,200040,0,0,0,200400,0,0,0,177040,0,0,0,174400,0,0,0^ 5817 S55200: DMOVE AC,[200040,,0 5818 036034 120 04 0 00 041136 0,,0] 5819 DFMP AC,[200400,,0 5820 036035 112 04 0 00 040731 0,,0] 5821 036036 332 00 0 00 030041 SKIPE KLFLG 5822 036037 254 00 0 00 036046 JRST S55205 5823 036040 312 04 0 00 041501 CAME AC,[177040,,0] 5824 036041 003 04 0 00 055201 ER3 AC,55201 5825 036042 312 05 0 00 040060 CAME AC+1,[0,,0] 5826 036043 004 05 0 00 055201 ER4 AC+1,55201 5827 036044 321 10 0 00 036034 S55206: JUMPL AC+4,S55200 ;LOOP ON ERROR SWITCH 5828 036045 254 00 0 00 036053 JRST S55207 5829 036046 312 04 0 00 040077 S55205: CAME AC,[174400,,0] 5830 036047 003 04 0 00 055201 ER3 AC,55201 5831 036050 312 05 0 00 040060 CAME AC+1,[0,,0] 5832 036051 004 05 0 00 055201 ER4 AC+1,55201 5833 036052 254 00 0 00 036044 JRST S55206 5834 036053 254 00 0 00 036054 S55207: JRST .+1 ^ 5835 5836 SDFMKL 553,200020,0,0,0,200400,0,0,0,177020,0,0,0,173400,0,0,0^ 5837 S55300: DMOVE AC,[200020,,0 5838 036054 120 04 0 00 041140 0,,0] 5839 DFMP AC,[200400,,0 5840 036055 112 04 0 00 040731 0,,0] 5841 036056 332 00 0 00 030041 SKIPE KLFLG 5842 036057 254 00 0 00 036066 JRST S55305 5843 036060 312 04 0 00 041502 CAME AC,[177020,,0] 5844 036061 003 04 0 00 055301 ER3 AC,55301 5845 036062 312 05 0 00 040060 CAME AC+1,[0,,0] 5846 036063 004 05 0 00 055301 ER4 AC+1,55301 5847 036064 321 10 0 00 036054 S55306: JUMPL AC+4,S55300 ;LOOP ON ERROR SWITCH 5848 036065 254 00 0 00 036073 JRST S55307 5849 036066 312 04 0 00 040102 S55305: CAME AC,[173400,,0] 5850 036067 003 04 0 00 055301 ER3 AC,55301 5851 036070 312 05 0 00 040060 CAME AC+1,[0,,0] 5852 036071 004 05 0 00 055301 ER4 AC+1,55301 5853 036072 254 00 0 00 036064 JRST S55306 5854 036073 254 00 0 00 036074 S55307: JRST .+1 ^ 5855 5856 SDFMKL 554,200010,0,0,0,200400,0,0,0,177010,0,0,0,172400,0,0,0^ 5857 S55400: DMOVE AC,[200010,,0 5858 036074 120 04 0 00 041221 0,,0] 5859 DFMP AC,[200400,,0 5860 036075 112 04 0 00 040731 0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-6 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0136 5861 036076 332 00 0 00 030041 SKIPE KLFLG 5862 036077 254 00 0 00 036106 JRST S55405 5863 036100 312 04 0 00 041503 CAME AC,[177010,,0] 5864 036101 003 04 0 00 055401 ER3 AC,55401 5865 036102 312 05 0 00 040060 CAME AC+1,[0,,0] 5866 036103 004 05 0 00 055401 ER4 AC+1,55401 5867 036104 321 10 0 00 036074 S55406: JUMPL AC+4,S55400 ;LOOP ON ERROR SWITCH 5868 036105 254 00 0 00 036113 JRST S55407 5869 036106 312 04 0 00 040105 S55405: CAME AC,[172400,,0] 5870 036107 003 04 0 00 055401 ER3 AC,55401 5871 036110 312 05 0 00 040060 CAME AC+1,[0,,0] 5872 036111 004 05 0 00 055401 ER4 AC+1,55401 5873 036112 254 00 0 00 036104 JRST S55406 5874 036113 254 00 0 00 036114 S55407: JRST .+1 ^ 5875 5876 SDFMKL 555,200004,0,0,0,200400,0,0,0,177004,0,0,0,171400,0,0,0^ 5877 S55500: DMOVE AC,[200004,,0 5878 036114 120 04 0 00 041217 0,,0] 5879 DFMP AC,[200400,,0 5880 036115 112 04 0 00 040731 0,,0] 5881 036116 332 00 0 00 030041 SKIPE KLFLG 5882 036117 254 00 0 00 036126 JRST S55505 5883 036120 312 04 0 00 041504 CAME AC,[177004,,0] 5884 036121 003 04 0 00 055501 ER3 AC,55501 5885 036122 312 05 0 00 040060 CAME AC+1,[0,,0] 5886 036123 004 05 0 00 055501 ER4 AC+1,55501 5887 036124 321 10 0 00 036114 S55506: JUMPL AC+4,S55500 ;LOOP ON ERROR SWITCH 5888 036125 254 00 0 00 036133 JRST S55507 5889 036126 312 04 0 00 040110 S55505: CAME AC,[171400,,0] 5890 036127 003 04 0 00 055501 ER3 AC,55501 5891 036130 312 05 0 00 040060 CAME AC+1,[0,,0] 5892 036131 004 05 0 00 055501 ER4 AC+1,55501 5893 036132 254 00 0 00 036124 JRST S55506 5894 036133 254 00 0 00 036134 S55507: JRST .+1 ^ 5895 5896 SDFMKL 556,200002,0,0,0,200400,0,0,0,177002,0,0,0,170400,0,0,0^ 5897 S55600: DMOVE AC,[200002,,0 5898 036134 120 04 0 00 041215 0,,0] 5899 DFMP AC,[200400,,0 5900 036135 112 04 0 00 040731 0,,0] 5901 036136 332 00 0 00 030041 SKIPE KLFLG 5902 036137 254 00 0 00 036146 JRST S55605 5903 036140 312 04 0 00 041505 CAME AC,[177002,,0] 5904 036141 003 04 0 00 055601 ER3 AC,55601 5905 036142 312 05 0 00 040060 CAME AC+1,[0,,0] 5906 036143 004 05 0 00 055601 ER4 AC+1,55601 5907 036144 321 10 0 00 036134 S55606: JUMPL AC+4,S55600 ;LOOP ON ERROR SWITCH 5908 036145 254 00 0 00 036153 JRST S55607 5909 036146 312 04 0 00 040113 S55605: CAME AC,[170400,,0] 5910 036147 003 04 0 00 055601 ER3 AC,55601 5911 036150 312 05 0 00 040060 CAME AC+1,[0,,0] 5912 036151 004 05 0 00 055601 ER4 AC+1,55601 5913 036152 254 00 0 00 036144 JRST S55606 5914 036153 254 00 0 00 036154 S55607: JRST .+1 ^ 5915 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 22-7 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0137 5916 SDFMKL 557,500700,0,0,0,200400,0,0,0,501700,0,0,0,503400,0,0,0^ 5917 S55700: DMOVE AC,[500700,,0 5918 036154 120 04 0 00 041506 0,,0] 5919 DFMP AC,[200400,,0 5920 036155 112 04 0 00 040731 0,,0] 5921 036156 332 00 0 00 030041 SKIPE KLFLG 5922 036157 254 00 0 00 036166 JRST S55705 5923 036160 312 04 0 00 041451 CAME AC,[501700,,0] 5924 036161 003 04 0 00 055701 ER3 AC,55701 5925 036162 312 05 0 00 040060 CAME AC+1,[0,,0] 5926 036163 004 05 0 00 055701 ER4 AC+1,55701 5927 036164 321 10 0 00 036154 S55706: JUMPL AC+4,S55700 ;LOOP ON ERROR SWITCH 5928 036165 254 00 0 00 036173 JRST S55707 5929 036166 312 04 0 00 041510 S55705: CAME AC,[503400,,0] 5930 036167 003 04 0 00 055701 ER3 AC,55701 5931 036170 312 05 0 00 040060 CAME AC+1,[0,,0] 5932 036171 004 05 0 00 055701 ER4 AC+1,55701 5933 036172 254 00 0 00 036164 JRST S55706 5934 036173 254 00 0 00 036174 S55707: JRST .+1 ^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 23 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0138 5935 5936 SDFMKL 560,500770,0,0,0,200400,0,0,0,501770,0,0,0,506400,0,0,0^ 5937 S56000: DMOVE AC,[500770,,0 5938 036174 120 04 0 00 041511 0,,0] 5939 DFMP AC,[200400,,0 5940 036175 112 04 0 00 040731 0,,0] 5941 036176 332 00 0 00 030041 SKIPE KLFLG 5942 036177 254 00 0 00 036206 JRST S56005 5943 036200 312 04 0 00 041513 CAME AC,[501770,,0] 5944 036201 003 04 0 00 056001 ER3 AC,56001 5945 036202 312 05 0 00 040060 CAME AC+1,[0,,0] 5946 036203 004 05 0 00 056001 ER4 AC+1,56001 5947 036204 321 10 0 00 036174 S56006: JUMPL AC+4,S56000 ;LOOP ON ERROR SWITCH 5948 036205 254 00 0 00 036213 JRST S56007 5949 036206 312 04 0 00 041514 S56005: CAME AC,[506400,,0] 5950 036207 003 04 0 00 056001 ER3 AC,56001 5951 036210 312 05 0 00 040060 CAME AC+1,[0,,0] 5952 036211 004 05 0 00 056001 ER4 AC+1,56001 5953 036212 254 00 0 00 036204 JRST S56006 5954 036213 254 00 0 00 036214 S56007: JRST .+1 ^ 5955 5956 SDFM 561,200775,0,0,0,200775,0,0,0,200772,11000,0,0^ 5957 S56100: DMOVE AC,[200775,,0 5958 036214 120 04 0 00 041515 0,,0] 5959 DFMP AC,[200775,,0 5960 036215 112 04 0 00 041515 0,,0] 5961 036216 312 04 0 00 041517 CAME AC,[200772,,11000] 5962 036217 003 04 0 00 056101 ER3 AC,56101 5963 036220 312 05 0 00 040060 CAME AC+1,[0,,0] 5964 036221 004 05 0 00 056101 ER4 AC+1,56101 5965 036222 321 10 0 00 036214 JUMPL AC+4,S56100 ;LOOP ON ERROR SWITCH^ 5966 5967 SDFM 562,200774,0,0,0,200774,0,0,0,200770,20000,0,0^ 5968 S56200: DMOVE AC,[200774,,0 5969 036223 120 04 0 00 041520 0,,0] 5970 DFMP AC,[200774,,0 5971 036224 112 04 0 00 041520 0,,0] 5972 036225 312 04 0 00 041522 CAME AC,[200770,,20000] 5973 036226 003 04 0 00 056201 ER3 AC,56201 5974 036227 312 05 0 00 040060 CAME AC+1,[0,,0] 5975 036230 004 05 0 00 056201 ER4 AC+1,56201 5976 036231 321 10 0 00 036223 JUMPL AC+4,S56200 ;LOOP ON ERROR SWITCH^ 5977 5978 SDFM 563,200773,0,0,0,200773,0,0,0,200766,31000,0,0^ 5979 S56300: DMOVE AC,[200773,,0 5980 036232 120 04 0 00 041523 0,,0] 5981 DFMP AC,[200773,,0 5982 036233 112 04 0 00 041523 0,,0] 5983 036234 312 04 0 00 041525 CAME AC,[200766,,31000] 5984 036235 003 04 0 00 056301 ER3 AC,56301 5985 036236 312 05 0 00 040060 CAME AC+1,[0,,0] 5986 036237 004 05 0 00 056301 ER4 AC+1,56301 5987 036240 321 10 0 00 036232 JUMPL AC+4,S56300 ;LOOP ON ERROR SWITCH^ 5988 5989 SDFM 564,177477,0,0,0,200700,0,0,0,177427,100000,0,0^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 23-1 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0139 5990 S56400: DMOVE AC,[177477,,0 5991 036241 120 04 0 00 041526 0,,0] 5992 DFMP AC,[200700,,0 5993 036242 112 04 0 00 040741 0,,0] 5994 036243 312 04 0 00 041530 CAME AC,[177427,,100000] 5995 036244 003 04 0 00 056401 ER3 AC,56401 5996 036245 312 05 0 00 040060 CAME AC+1,[0,,0] 5997 036246 004 05 0 00 056401 ER4 AC+1,56401 5998 036247 321 10 0 00 036241 JUMPL AC+4,S56400 ;LOOP ON ERROR SWITCH^ 5999 6000 SDFM 565,200777,-1,0,0,200777,-1,0,0,200777,-2,0,400^ 6001 S56500: DMOVE AC,[200777,,-1 6002 036250 120 04 0 00 041226 0,,0] 6003 DFMP AC,[200777,,-1 6004 036251 112 04 0 00 041226 0,,0] 6005 036252 312 04 0 00 041440 CAME AC,[200777,,-2] 6006 036253 003 04 0 00 056501 ER3 AC,56501 6007 036254 312 05 0 00 040321 CAME AC+1,[0,,400] 6008 036255 004 05 0 00 056501 ER4 AC+1,56501 6009 036256 321 10 0 00 036250 JUMPL AC+4,S56500 ;LOOP ON ERROR SWITCH^ 6010 6011 SDFM 566,200777,-2,0,0,200777,-1,0,0,200777,-3,0,1000^ 6012 S56600: DMOVE AC,[200777,,-2 6013 036257 120 04 0 00 041440 0,,0] 6014 DFMP AC,[200777,,-1 6015 036260 112 04 0 00 041226 0,,0] 6016 036261 312 04 0 00 041443 CAME AC,[200777,,-3] 6017 036262 003 04 0 00 056601 ER3 AC,56601 6018 036263 312 05 0 00 040316 CAME AC+1,[0,,1000] 6019 036264 004 05 0 00 056601 ER4 AC+1,56601 6020 036265 321 10 0 00 036257 JUMPL AC+4,S56600 ;LOOP ON ERROR SWITCH^ 6021 6022 SDFM 567,200777,-3,0,0,200777,-1,0,0,200777,-4,0,1400^ 6023 S56700: DMOVE AC,[200777,,-3 6024 036266 120 04 0 00 041443 0,,0] 6025 DFMP AC,[200777,,-1 6026 036267 112 04 0 00 041226 0,,0] 6027 036270 312 04 0 00 041446 CAME AC,[200777,,-4] 6028 036271 003 04 0 00 056701 ER3 AC,56701 6029 036272 312 05 0 00 041531 CAME AC+1,[0,,1400] 6030 036273 004 05 0 00 056701 ER4 AC+1,56701 6031 036274 321 10 0 00 036266 JUMPL AC+4,S56700 ;LOOP ON ERROR SWITCH^ 6032 6033 SDFM 570,200777,-4,0,0,200777,-1,0,0,200777,-5,0,2000^ 6034 S57000: DMOVE AC,[200777,,-4 6035 036275 120 04 0 00 041446 0,,0] 6036 DFMP AC,[200777,,-1 6037 036276 112 04 0 00 041226 0,,0] 6038 036277 312 04 0 00 041532 CAME AC,[200777,,-5] 6039 036300 003 04 0 00 057001 ER3 AC,57001 6040 036301 312 05 0 00 040313 CAME AC+1,[0,,2000] 6041 036302 004 05 0 00 057001 ER4 AC+1,57001 6042 036303 321 10 0 00 036275 JUMPL AC+4,S57000 ;LOOP ON ERROR SWITCH^ 6043 6044 SDFM 571,200777,-5,0,0,200777,-1,0,0,200777,-6,0,2400^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 23-2 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0140 6045 S57100: DMOVE AC,[200777,,-5 6046 036304 120 04 0 00 041532 0,,0] 6047 DFMP AC,[200777,,-1 6048 036305 112 04 0 00 041226 0,,0] 6049 036306 312 04 0 00 041534 CAME AC,[200777,,-6] 6050 036307 003 04 0 00 057101 ER3 AC,57101 6051 036310 312 05 0 00 041535 CAME AC+1,[0,,2400] 6052 036311 004 05 0 00 057101 ER4 AC+1,57101 6053 036312 321 10 0 00 036304 JUMPL AC+4,S57100 ;LOOP ON ERROR SWITCH^ 6054 6055 SDFM 572,500000,-1,0,0,200777,0,0,0,500001,776777,400,0^ 6056 S57200: DMOVE AC,[500000,,-1 6057 036313 120 04 0 00 041536 0,,0] 6058 DFMP AC,[200777,,0 6059 036314 112 04 0 00 041540 0,,0] 6060 036315 312 04 0 00 041542 CAME AC,[500001,,776777] 6061 036316 003 04 0 00 057201 ER3 AC,57201 6062 036317 312 05 0 00 040233 CAME AC+1,[400,,0] 6063 036320 004 05 0 00 057201 ER4 AC+1,57201 6064 036321 321 10 0 00 036313 JUMPL AC+4,S57200 ;LOOP ON ERROR SWITCH^ 6065 6066 SDFM 573,500000,777770,0,0,200777,0,0,0,500001,776770,4000,0^ 6067 S57300: DMOVE AC,[500000,,777770 6068 036322 120 04 0 00 041543 0,,0] 6069 DFMP AC,[200777,,0 6070 036323 112 04 0 00 041540 0,,0] 6071 036324 312 04 0 00 041545 CAME AC,[500001,,776770] 6072 036325 003 04 0 00 057301 ER3 AC,57301 6073 036326 312 05 0 00 040222 CAME AC+1,[4000,,0] 6074 036327 004 05 0 00 057301 ER4 AC+1,57301 6075 036330 321 10 0 00 036322 JUMPL AC+4,S57300 ;LOOP ON ERROR SWITCH^ 6076 6077 SDFM 574,500000,-1,0,0,500000,-1,0,0,376776,1001,377000,400^ 6078 S57400: DMOVE AC,[500000,,-1 6079 036331 120 04 0 00 041536 0,,0] 6080 DFMP AC,[500000,,-1 6081 036332 112 04 0 00 041536 0,,0] 6082 036333 312 04 0 00 041546 CAME AC,[376776,,1001] 6083 036334 003 04 0 00 057401 ER3 AC,57401 6084 036335 312 05 0 00 041547 CAME AC+1,[377000,,400] 6085 036336 004 05 0 00 057401 ER4 AC+1,57401 6086 036337 321 10 0 00 036331 JUMPL AC+4,S57400 ;LOOP ON ERROR SWITCH^ 6087 6088 SDFM 575,500000,-2,0,0,500000,-2,0,0,376776,1003,376000,2000^ 6089 S57500: DMOVE AC,[500000,,-2 6090 036340 120 04 0 00 041550 0,,0] 6091 DFMP AC,[500000,,-2 6092 036341 112 04 0 00 041550 0,,0] 6093 036342 312 04 0 00 041552 CAME AC,[376776,,1003] 6094 036343 003 04 0 00 057501 ER3 AC,57501 6095 036344 312 05 0 00 041553 CAME AC+1,[376000,,2000] 6096 036345 004 05 0 00 057501 ER4 AC+1,57501 6097 036346 321 10 0 00 036340 JUMPL AC+4,S57500 ;LOOP ON ERROR SWITCH^ 6098 6099 SDFMKL 576,200777,-1,0,0,200000,2,0,0,177000,3,377777,776000,146777,-1,0,0^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 23-3 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0141 6100 S57600: DMOVE AC,[200777,,-1 6101 036347 120 04 0 00 041226 0,,0] 6102 DFMP AC,[200000,,2 6103 036350 112 04 0 00 041151 0,,0] 6104 036351 332 00 0 00 030041 SKIPE KLFLG 6105 036352 254 00 0 00 036361 JRST S57605 6106 036353 312 04 0 00 041554 CAME AC,[177000,,3] 6107 036354 003 04 0 00 057601 ER3 AC,57601 6108 036355 312 05 0 00 040427 CAME AC+1,[377777,,776000] 6109 036356 004 05 0 00 057601 ER4 AC+1,57601 6110 036357 321 10 0 00 036347 S57606: JUMPL AC+4,S57600 ;LOOP ON ERROR SWITCH 6111 036360 254 00 0 00 036366 JRST S57607 6112 036361 312 04 0 00 041555 S57605: CAME AC,[146777,,-1] 6113 036362 003 04 0 00 057601 ER3 AC,57601 6114 036363 312 05 0 00 040060 CAME AC+1,[0,,0] 6115 036364 004 05 0 00 057601 ER4 AC+1,57601 6116 036365 254 00 0 00 036357 JRST S57606 6117 036366 254 00 0 00 036367 S57607: JRST .+1 ^ 6118 6119 SDFM 577,200700,0,0,0,200400,77,0,0,177700,156,100000,0^ 6120 S57700: DMOVE AC,[200700,,0 6121 036367 120 04 0 00 040741 0,,0] 6122 DFMP AC,[200400,,77 6123 036370 112 04 0 00 041041 0,,0] 6124 036371 312 04 0 00 041556 CAME AC,[177700,,156] 6125 036372 003 04 0 00 057701 ER3 AC,57701 6126 036373 312 05 0 00 040206 CAME AC+1,[100000,,0] 6127 036374 004 05 0 00 057701 ER4 AC+1,57701 6128 036375 321 10 0 00 036367 JUMPL AC+4,S57700 ;LOOP ON ERROR SWITCH^ 6129 6130 SDFM 600,200700,0,0,0,200400,76,0,0,177700,154,200000,0^ 6131 S60000: DMOVE AC,[200700,,0 6132 036376 120 04 0 00 040741 0,,0] 6133 DFMP AC,[200400,,76 6134 036377 112 04 0 00 041557 0,,0] 6135 036400 312 04 0 00 041561 CAME AC,[177700,,154] 6136 036401 003 04 0 00 060001 ER3 AC,60001 6137 036402 312 05 0 00 040203 CAME AC+1,[200000,,0] 6138 036403 004 05 0 00 060001 ER4 AC+1,60001 6139 036404 321 10 0 00 036376 JUMPL AC+4,S60000 ;LOOP ON ERROR SWITCH^ 6140 6141 SDFM 601,200700,0,0,0,200400,75,0,0,177700,152,300000,0^ 6142 S60100: DMOVE AC,[200700,,0 6143 036405 120 04 0 00 040741 0,,0] 6144 DFMP AC,[200400,,75 6145 036406 112 04 0 00 041562 0,,0] 6146 036407 312 04 0 00 041564 CAME AC,[177700,,152] 6147 036410 003 04 0 00 060101 ER3 AC,60101 6148 036411 312 05 0 00 040563 CAME AC+1,[300000,,0] 6149 036412 004 05 0 00 060101 ER4 AC+1,60101 6150 036413 321 10 0 00 036405 JUMPL AC+4,S60100 ;LOOP ON ERROR SWITCH^ 6151 6152 SDFM 602,577400,0,0,0,600400,0,0,0,176400,0,0,0^ 6153 S60200: DMOVE AC,[577400,,0 6154 036414 120 04 0 00 040061 0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 23-4 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0142 6155 DFMP AC,[600400,,0 6156 036415 112 04 0 00 040725 0,,0] 6157 036416 312 04 0 00 040071 CAME AC,[176400,,0] 6158 036417 003 04 0 00 060201 ER3 AC,60201 6159 036420 312 05 0 00 040060 CAME AC+1,[0,,0] 6160 036421 004 05 0 00 060201 ER4 AC+1,60201 6161 036422 321 10 0 00 036414 JUMPL AC+4,S60200 ;LOOP ON ERROR SWITCH^ 6162 6163 SDFM 603,600400,77,0,0,177660,0,0,0,602120,152,120000,0^ 6164 S60300: DMOVE AC,[600400,,77 6165 036423 120 04 0 00 041565 0,,0] 6166 DFMP AC,[177660,,0 6167 036424 112 04 0 00 041567 0,,0] 6168 036425 312 04 0 00 041571 CAME AC,[602120,,152] 6169 036426 003 04 0 00 060301 ER3 AC,60301 6170 036427 312 05 0 00 041572 CAME AC+1,[120000,,0] 6171 036430 004 05 0 00 060301 ER4 AC+1,60301 6172 036431 321 10 0 00 036423 JUMPL AC+4,S60300 ;LOOP ON ERROR SWITCH^ 6173 6174 SDFM 604,600400,76,0,0,177600,0,0,0,602200,135,0,0^ 6175 S60400: DMOVE AC,[600400,,76 6176 036432 120 04 0 00 041573 0,,0] 6177 DFMP AC,[177600,,0 6178 036433 112 04 0 00 041575 0,,0] 6179 036434 312 04 0 00 041577 CAME AC,[602200,,135] 6180 036435 003 04 0 00 060401 ER3 AC,60401 6181 036436 312 05 0 00 040060 CAME AC+1,[0,,0] 6182 036437 004 05 0 00 060401 ER4 AC+1,60401 6183 036440 321 10 0 00 036432 JUMPL AC+4,S60400 ;LOOP ON ERROR SWITCH^ 6184 6185 SDFM 605,600400,0,0,0,576400,0,0,0,177400,0,0,0^ 6186 S60500: DMOVE AC,[600400,,0 6187 036441 120 04 0 00 040725 0,,0] 6188 DFMP AC,[576400,,0 6189 036442 112 04 0 00 041036 0,,0] 6190 036443 312 04 0 00 040066 CAME AC,[177400,,0] 6191 036444 003 04 0 00 060501 ER3 AC,60501 6192 036445 312 05 0 00 040060 CAME AC+1,[0,,0] 6193 036446 004 05 0 00 060501 ER4 AC+1,60501 6194 036447 321 10 0 00 036441 JUMPL AC+4,S60500 ;LOOP ON ERROR SWITCH^ 6195 6196 SDFM 606,600400,0,0,0,575400,0,0,0,200400,0,0,0^ 6197 S60600: DMOVE AC,[600400,,0 6198 036450 120 04 0 00 040725 0,,0] 6199 DFMP AC,[575400,,0 6200 036451 112 04 0 00 041435 0,,0] 6201 036452 312 04 0 00 040063 CAME AC,[200400,,0] 6202 036453 003 04 0 00 060601 ER3 AC,60601 6203 036454 312 05 0 00 040060 CAME AC+1,[0,,0] 6204 036455 004 05 0 00 060601 ER4 AC+1,60601 6205 036456 321 10 0 00 036450 JUMPL AC+4,S60600 ;LOOP ON ERROR SWITCH^ 6206 6207 SDFM 607,400000,1,0,0,201400,0,0,0,400000,1,0,0^ 6208 S60700: DMOVE AC,[400000,,1 6209 036457 120 04 0 00 041600 0,,0] DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 23-5 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0143 6210 DFMP AC,[201400,,0 6211 036460 112 04 0 00 040057 0,,0] 6212 036461 312 04 0 00 041600 CAME AC,[400000,,1] 6213 036462 003 04 0 00 060701 ER3 AC,60701 6214 036463 312 05 0 00 040060 CAME AC+1,[0,,0] 6215 036464 004 05 0 00 060701 ER4 AC+1,60701 6216 036465 321 10 0 00 036457 JUMPL AC+4,S60700 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 24 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0144 6217 ;TEST AROV, FOV AND FXU FLAGS - DFMP 6218 6219 000004 AC=4 6220 SAVEAC (1,1)^ 6221 036466 201 06 0 00 036466 MOVEI AC+2,. 6222 036467 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 6223 036470 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6224 036471 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6225 6226 036472 254 02 1 00 041602 S61000: JRSTF @[.+1] ;CLEAR ALL FLAGS 6227 DMOVE AC,[377400,,0 6228 036473 120 04 0 00 041026 0,,0] 6229 DFMP AC,[201777,,-1 6230 036474 112 04 0 00 041603 -1,,-1] ;EXPECT AROV,FOV,FXU=0,0,0 6231 036475 265 03 0 00 036476 JSP AC-1,.+1 ;SAVE FLAGS 6232 036476 312 04 0 00 040357 CAME AC,[377777,,-1] 6233 036477 003 04 0 00 061001 ER3 AC,61001 ;C(AC) FAILED 6234 036500 312 05 0 00 040357 CAME AC+1,[377777,,-1] 6235 036501 004 05 0 00 061001 ER4 AC+1,61001 ;C(AC+1) FAILED 6236 036502 255 10 0 00 036504 JOV .+2 6237 036503 254 00 0 00 036505 JRST .+2 6238 036504 013 03 0 00 061001 ER13 AC-1,61001 ;AROV WAS SET 6239 036505 255 01 0 00 036507 JFOV .+2 6240 036506 254 00 0 00 036510 JRST .+2 6241 036507 013 03 0 00 061001 ER13 AC-1,61001 ;FOV WAS SET 6242 036510 603 03 0 00 000100 TLNE AC-1,FXU 6243 036511 013 03 0 00 061001 ER13 AC-1,61001 ;FXU WAS SET 6244 036512 321 10 0 00 036472 JUMPL AC+4,S61000 ;LOOP ON ERROR SWITCH 6245 6246 036513 254 02 1 00 041605 S61100: JRSTF @[.+1] ;CLEAR ALL FLAGS 6247 DMOVE AC,[377400,,0 6248 036514 120 04 0 00 041026 0,,0] 6249 DFMP AC,[202400,,0 6250 036515 112 04 0 00 040744 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0 6251 036516 265 03 0 00 036517 JSP AC-1,.+1 ;SAVE FLAGS 6252 036517 312 04 0 00 040233 CAME AC,[400,,0] 6253 036520 003 04 0 00 061101 ER3 AC,61101 ;C(AC) FAILED 6254 036521 312 05 0 00 040060 CAME AC+1,[0,,0] 6255 036522 004 05 0 00 061101 ER4 AC+1,61101 ;C(AC+1) FAILED 6256 036523 255 10 0 00 036525 JOV .+2 6257 036524 013 03 0 00 061101 ER13 AC-1,61101 ;AROV WAS CLEAR 6258 036525 255 01 0 00 036527 JFOV .+2 6259 036526 013 03 0 00 061101 ER13 AC-1,61101 ;FOV WAS CLEAR 6260 036527 603 03 0 00 000100 TLNE AC-1,FXU 6261 036530 013 03 0 00 061101 ER13 AC-1,61101 ;FXU WAS SET 6262 036531 321 10 0 00 036513 JUMPL AC+4,S61100 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 25 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0145 6263 036532 254 02 1 00 041606 S61200: JRSTF @[.+1] ;CLEAR ALL FLAGS 6264 DMOVE AC,[1400,,0 6265 036533 120 04 0 00 041607 0,,0] 6266 DFMP AC,[200400,,0 6267 036534 112 04 0 00 040731 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 6268 036535 265 03 0 00 036536 JSP AC-1,.+1 ;SAVE FLAGS 6269 036536 312 04 0 00 040233 CAME AC,[400,,0] 6270 036537 003 04 0 00 061201 ER3 AC,61201 ;C(AC) FAILED 6271 036540 312 05 0 00 040060 CAME AC+1,[0,,0] 6272 036541 004 05 0 00 061201 ER4 AC+1,61201 ;C(AC+1) FAILED 6273 036542 255 10 0 00 036544 JOV .+2 6274 036543 254 00 0 00 036545 JRST .+2 6275 036544 013 03 0 00 061201 ER13 AC-1,61201 ;AROV WAS SET 6276 036545 255 01 0 00 036547 JFOV .+2 6277 036546 254 00 0 00 036550 JRST .+2 6278 036547 013 03 0 00 061201 ER13 AC-1,61201 ;FOV WAS SET 6279 036550 603 03 0 00 000100 TLNE AC-1,FXU 6280 036551 013 03 0 00 061201 ER13 AC-1,61201 ;FXU WAS SET 6281 036552 321 10 0 00 036532 JUMPL AC+4,S61200 ;LOOP ON ERROR SWITCH 6282 6283 036553 254 02 1 00 041611 S61300: JRSTF @[.+1] ;CLEAR ALL FLAGS 6284 DMOVE AC,[777,,-1 6285 036554 120 04 0 00 041406 -1,,-1] 6286 DFMP AC,[200400,,0 6287 036555 112 04 0 00 040731 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1 6288 036556 265 03 0 00 036557 JSP AC-1,.+1 ;SAVE FLAGS 6289 036557 312 04 0 00 040357 CAME AC,[377777,,-1] 6290 036560 003 04 0 00 061301 ER3 AC,61301 ;C(AC) FAILED 6291 036561 312 05 0 00 040357 CAME AC+1,[377777,,-1] 6292 036562 004 05 0 00 061301 ER4 AC+1,61301 ;C(AC+1) FAILED 6293 036563 255 10 0 00 036565 JOV .+2 6294 036564 013 03 0 00 061301 ER13 AC-1,61301 ;AROV WAS CLEAR 6295 036565 255 01 0 00 036567 JFOV .+2 6296 036566 013 03 0 00 061301 ER13 AC-1,61301 ;FOV WAS CLEAR 6297 036567 607 03 0 00 000100 TLNN AC-1,FXU 6298 036570 013 03 0 00 061301 ER13 AC-1,61301 ;FXU WAS CLEAR 6299 036571 321 10 0 00 036553 JUMPL AC+4,S61300 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 26 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0146 6300 036572 254 02 1 00 041612 S61400: JRSTF @[.+1] ;CLEAR ALL FLAGS 6301 DMOVE AC,[400400,,0 6302 036573 120 04 0 00 041357 0,,0] 6303 DFMP AC,[576000,,00 6304 036574 112 04 0 00 041613 0,,1] ;EXPECT AROV,FOV,FXU=0,0,0 6305 036575 265 03 0 00 036576 JSP AC-1,.+1 ;SAVE FLAGS 6306 036576 312 04 0 00 040357 CAME AC,[377777,,-1] 6307 036577 003 04 0 00 061401 ER3 AC,61401 ;C(AC) FAILED 6308 036600 312 05 0 00 040357 CAME AC+1,[377777,,-1] 6309 036601 004 05 0 00 061401 ER4 AC+1,61401 ;C(AC+1) FAILED 6310 036602 255 10 0 00 036604 JOV .+2 6311 036603 254 00 0 00 036605 JRST .+2 6312 036604 013 03 0 00 061401 ER13 AC-1,61401 ;AROV WAS SET 6313 036605 255 01 0 00 036607 JFOV .+2 6314 036606 254 00 0 00 036610 JRST .+2 6315 036607 013 03 0 00 061401 ER13 AC-1,61401 ;FOV WAS SET 6316 036610 603 03 0 00 000100 TLNE AC-1,FXU 6317 036611 013 03 0 00 061401 ER13 AC-1,61401 ;FXU WAS SET 6318 036612 321 10 0 00 036572 JUMPL AC+4,S61400 ;LOOP ON ERROR SWITCH 6319 6320 036613 254 02 1 00 041615 S61500: JRSTF @[.+1] ;CLEAR ALL FLAGS 6321 DMOVE AC,[400400,,0 6322 036614 120 04 0 00 041357 0,,0] 6323 DFMP AC,[575400,,0 6324 036615 112 04 0 00 041435 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0 6325 036616 265 03 0 00 036617 JSP AC-1,.+1 ;SAVE FLAGS 6326 036617 312 04 0 00 040233 CAME AC,[400,,0] 6327 036620 003 04 0 00 061501 ER3 AC,61501 ;C(AC) FAILED 6328 036621 312 05 0 00 040060 CAME AC+1,[0,,0] 6329 036622 004 05 0 00 061501 ER4 AC+1,61501 ;C(AC+1) FAILED 6330 036623 255 10 0 00 036625 JOV .+2 6331 036624 013 03 0 00 061501 ER13 AC-1,61501 ;AROV WAS CLEAR 6332 036625 255 01 0 00 036627 JFOV .+2 6333 036626 013 03 0 00 061501 ER13 AC-1,61501 ;FOV WAS CLEAR 6334 036627 603 03 0 00 000100 TLNE AC-1,FXU 6335 036630 013 03 0 00 061501 ER13 AC-1,61501 ;FXU WAS SET 6336 036631 321 10 0 00 036613 JUMPL AC+4,S61500 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 27 DSKCE1 MAC 21-Jun-78 10:46 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0147 6337 036632 254 02 1 00 041616 S61600: JRSTF @[.+1] ;CLEAR ALL FLAGS 6338 DMOVE AC,[776400,,0 6339 036633 120 04 0 00 041617 0,,0] 6340 DFMP AC,[577400,,0 6341 036634 112 04 0 00 040061 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 6342 036635 265 03 0 00 036636 JSP AC-1,.+1 ;SAVE FLAGS 6343 036636 312 04 0 00 040233 CAME AC,[400,,0] 6344 036637 003 04 0 00 061601 ER3 AC,61601 ;C(AC) FAILED 6345 036640 312 05 0 00 040060 CAME AC+1,[0,,0] 6346 036641 004 05 0 00 061601 ER4 AC+1,61601 ;C(AC+1) FAILED 6347 036642 255 10 0 00 036644 JOV .+2 6348 036643 254 00 0 00 036645 JRST .+2 6349 036644 013 03 0 00 061601 ER13 AC-1,61601 ;AROV WAS SET 6350 036645 255 01 0 00 036647 JFOV .+2 6351 036646 254 00 0 00 036650 JRST .+2 6352 036647 013 03 0 00 061601 ER13 AC-1,61601 ;FOV WAS SET 6353 036650 603 03 0 00 000100 TLNE AC-1,FXU 6354 036651 013 03 0 00 061601 ER13 AC-1,61601 ;FXU WAS SET 6355 036652 321 10 0 00 036632 JUMPL AC+4,S61600 ;LOOP ON ERROR SWITCH 6356 6357 036653 254 02 1 00 041621 S61700: JRSTF @[.+1] ;CLEAR ALL FLAGS 6358 DMOVE AC,[777000,,0 6359 036654 120 04 0 00 041425 0,,1] 6360 DFMP AC,[577400,,0 6361 036655 112 04 0 00 040061 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1 6362 036656 265 03 0 00 036657 JSP AC-1,.+1 ;SAVE FLAGS 6363 036657 312 04 0 00 040357 CAME AC,[377777,,-1] 6364 036660 003 04 0 00 061701 ER3 AC,61701 ;C(AC) FAILED 6365 036661 312 05 0 00 040357 CAME AC+1,[377777,,-1] 6366 036662 004 05 0 00 061701 ER4 AC+1,61701 ;C(AC+1) FAILED 6367 036663 255 10 0 00 036665 JOV .+2 6368 036664 013 03 0 00 061701 ER13 AC-1,61701 ;AROV WAS CLEAR 6369 036665 255 01 0 00 036667 JFOV .+2 6370 036666 013 03 0 00 061701 ER13 AC-1,61701 ;FOV WAS CLEAR 6371 036667 607 03 0 00 000100 TLNN AC-1,FXU 6372 036670 013 03 0 00 061701 ER13 AC-1,61701 ;FXU WAS CLEAR 6373 036671 321 10 0 00 036653 JUMPL AC+4,S61700 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 28 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0148 6374 SUBTTL DFDV TEST-DOUBLE FLOATING POINT DIVIDE 6375 6376 000004 AC=4 6377 SAVEAC (1,1)^ 6378 036672 201 06 0 00 036672 MOVEI AC+2,. 6379 036673 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 6380 036674 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6381 036675 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6382 036676 254 02 1 00 041622 JRSTF @[.+1] ;CLEAR ALL FLAGS 6383 6384 ;CHECK THAT DFDV AC,E DOES NOT ALTER C(E) OR C(E+1) 6385 S70100: DMOVE AC,[200777,,-1 6386 036677 120 04 0 00 040710 -1,,-1] 6387 DMOVE AC+2,[200400,,0 6388 036700 120 06 0 00 041623 400000,,-1] 6389 036701 113 04 0 00 000006 DFDV AC,AC+2 6390 036702 312 06 0 00 040063 CAME AC+2,[200400,,0] 6391 036703 005 06 0 00 070101 ER5 AC+2,70101 ;C(E) WAS ALTERED 6392 036704 312 07 0 00 040713 CAME AC+3,[400000,,-1] 6393 036705 006 07 0 00 070101 ER6 AC+3,70101 ;C(E+1) WAS ALTERED 6394 036706 321 10 0 00 036677 JUMPL AC+4,S70100 ;LOOP ON ERROR SWITCH 6395 6396 SDFD 702,200400,0,0,0,200400,0,0,0,201400,0,0,0^ 6397 S70200: DMOVE AC,[200400,,0 6398 036707 120 04 0 00 040731 0,,0] 6399 DFDV AC,[200400,,0 6400 036710 113 04 0 00 040731 0,,0] 6401 036711 312 04 0 00 040057 CAME AC,[201400,,0] 6402 036712 003 04 0 00 070201 ER3 AC,70201 6403 036713 312 05 0 00 040060 CAME AC+1,[0,,0] 6404 036714 004 05 0 00 070201 ER4 AC+1,70201 6405 036715 321 10 0 00 036707 JUMPL AC+4,S70200 ;LOOP ON ERROR SWITCH^ 6406 6407 SDFD 703,201400,0,0,0,201400,0,0,0,201400,0,0,0^ 6408 S70300: DMOVE AC,[201400,,0 6409 036716 120 04 0 00 040057 0,,0] 6410 DFDV AC,[201400,,0 6411 036717 113 04 0 00 040057 0,,0] 6412 036720 312 04 0 00 040057 CAME AC,[201400,,0] 6413 036721 003 04 0 00 070301 ER3 AC,70301 6414 036722 312 05 0 00 040060 CAME AC+1,[0,,0] 6415 036723 004 05 0 00 070301 ER4 AC+1,70301 6416 036724 321 10 0 00 036716 JUMPL AC+4,S70300 ;LOOP ON ERROR SWITCH^ 6417 6418 SDFD 704,202400,0,0,0,202400,0,0,0,201400,0,0,0^ 6419 S70400: DMOVE AC,[202400,,0 6420 036725 120 04 0 00 040744 0,,0] 6421 DFDV AC,[202400,,0 6422 036726 113 04 0 00 040744 0,,0] 6423 036727 312 04 0 00 040057 CAME AC,[201400,,0] 6424 036730 003 04 0 00 070401 ER3 AC,70401 6425 036731 312 05 0 00 040060 CAME AC+1,[0,,0] 6426 036732 004 05 0 00 070401 ER4 AC+1,70401 6427 036733 321 10 0 00 036725 JUMPL AC+4,S70400 ;LOOP ON ERROR SWITCH^ 6428 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 28-1 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0149 6429 SDFD 705,201400,0,0,0,200400,0,0,0,202400,0,0,0^ 6430 S70500: DMOVE AC,[201400,,0 6431 036734 120 04 0 00 040057 0,,0] 6432 DFDV AC,[200400,,0 6433 036735 113 04 0 00 040731 0,,0] 6434 036736 312 04 0 00 040744 CAME AC,[202400,,0] 6435 036737 003 04 0 00 070501 ER3 AC,70501 6436 036740 312 05 0 00 040060 CAME AC+1,[0,,0] 6437 036741 004 05 0 00 070501 ER4 AC+1,70501 6438 036742 321 10 0 00 036734 JUMPL AC+4,S70500 ;LOOP ON ERROR SWITCH^ 6439 6440 SDFD 706,202400,0,0,0,202400,0,0,0,201400,0,0,0^ 6441 S70600: DMOVE AC,[202400,,0 6442 036743 120 04 0 00 040744 0,,0] 6443 DFDV AC,[202400,,0 6444 036744 113 04 0 00 040744 0,,0] 6445 036745 312 04 0 00 040057 CAME AC,[201400,,0] 6446 036746 003 04 0 00 070601 ER3 AC,70601 6447 036747 312 05 0 00 040060 CAME AC+1,[0,,0] 6448 036750 004 05 0 00 070601 ER4 AC+1,70601 6449 036751 321 10 0 00 036743 JUMPL AC+4,S70600 ;LOOP ON ERROR SWITCH^ 6450 6451 SDFD 707,203400,0,0,0,200400,0,0,0,204400,0,0,0^ 6452 S70700: DMOVE AC,[203400,,0 6453 036752 120 04 0 00 041230 0,,0] 6454 DFDV AC,[200400,,0 6455 036753 113 04 0 00 040731 0,,0] 6456 036754 312 04 0 00 040747 CAME AC,[204400,,0] 6457 036755 003 04 0 00 070701 ER3 AC,70701 6458 036756 312 05 0 00 040060 CAME AC+1,[0,,0] 6459 036757 004 05 0 00 070701 ER4 AC+1,70701 6460 036760 321 10 0 00 036752 JUMPL AC+4,S70700 ;LOOP ON ERROR SWITCH^ 6461 6462 SDFD 710,200600,0,0,0,200400,0,0,0,201600,0,0,0^ 6463 S71000: DMOVE AC,[200600,,0 6464 036761 120 04 0 00 040064 0,,0] 6465 DFDV AC,[200400,,0 6466 036762 113 04 0 00 040731 0,,0] 6467 036763 312 04 0 00 040743 CAME AC,[201600,,0] 6468 036764 003 04 0 00 071001 ER3 AC,71001 6469 036765 312 05 0 00 040060 CAME AC+1,[0,,0] 6470 036766 004 05 0 00 071001 ER4 AC+1,71001 6471 036767 321 10 0 00 036761 JUMPL AC+4,S71000 ;LOOP ON ERROR SWITCH^ 6472 6473 SDFD 711,200700,0,0,0,200400,0,0,0,201700,0,0,0^ 6474 S71100: DMOVE AC,[200700,,0 6475 036770 120 04 0 00 040741 0,,0] 6476 DFDV AC,[200400,,0 6477 036771 113 04 0 00 040731 0,,0] 6478 036772 312 04 0 00 041031 CAME AC,[201700,,0] 6479 036773 003 04 0 00 071101 ER3 AC,71101 6480 036774 312 05 0 00 040060 CAME AC+1,[0,,0] 6481 036775 004 05 0 00 071101 ER4 AC+1,71101 6482 036776 321 10 0 00 036770 JUMPL AC+4,S71100 ;LOOP ON ERROR SWITCH^ 6483 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 28-2 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0150 6484 SDFD 712,200740,0,0,0,200400,0,0,0,201740,0,0,0^ 6485 S71200: DMOVE AC,[200740,,0 6486 036777 120 04 0 00 041625 0,,0] 6487 DFDV AC,[200400,,0 6488 037000 113 04 0 00 040731 0,,0] 6489 037001 312 04 0 00 041627 CAME AC,[201740,,0] 6490 037002 003 04 0 00 071201 ER3 AC,71201 6491 037003 312 05 0 00 040060 CAME AC+1,[0,,0] 6492 037004 004 05 0 00 071201 ER4 AC+1,71201 6493 037005 321 10 0 00 036777 JUMPL AC+4,S71200 ;LOOP ON ERROR SWITCH^ 6494 6495 SDFD 713,200400,0,0,0,577400,0,0,0,576400,0,0,0^ 6496 S71300: DMOVE AC,[200400,,0 6497 037006 120 04 0 00 040731 0,,0] 6498 DFDV AC,[577400,,0 6499 037007 113 04 0 00 040061 0,,0] 6500 037010 312 04 0 00 040764 CAME AC,[576400,,0] 6501 037011 003 04 0 00 071301 ER3 AC,71301 6502 037012 312 05 0 00 040060 CAME AC+1,[0,,0] 6503 037013 004 05 0 00 071301 ER4 AC+1,71301 6504 037014 321 10 0 00 037006 JUMPL AC+4,S71300 ;LOOP ON ERROR SWITCH^ 6505 6506 SDFD 714,200600,0,0,0,577400,0,0,0,576200,0,0,0^ 6507 S71400: DMOVE AC,[200600,,0 6508 037015 120 04 0 00 040064 0,,0] 6509 DFDV AC,[577400,,0 6510 037016 113 04 0 00 040061 0,,0] 6511 037017 312 04 0 00 041142 CAME AC,[576200,,0] 6512 037020 003 04 0 00 071401 ER3 AC,71401 6513 037021 312 05 0 00 040060 CAME AC+1,[0,,0] 6514 037022 004 05 0 00 071401 ER4 AC+1,71401 6515 037023 321 10 0 00 037015 JUMPL AC+4,S71400 ;LOOP ON ERROR SWITCH^ 6516 6517 SDFD 715,177400,0,0,0,204400,0,0,0,174400,0,0,0^ 6518 S71500: DMOVE AC,[177400,,0 6519 037024 120 04 0 00 040727 0,,0] 6520 DFDV AC,[204400,,0 6521 037025 113 04 0 00 040747 0,,0] 6522 037026 312 04 0 00 040077 CAME AC,[174400,,0] 6523 037027 003 04 0 00 071501 ER3 AC,71501 6524 037030 312 05 0 00 040060 CAME AC+1,[0,,0] 6525 037031 004 05 0 00 071501 ER4 AC+1,71501 6526 037032 321 10 0 00 037024 JUMPL AC+4,S71500 ;LOOP ON ERROR SWITCH^ 6527 6528 SDFD 716,576400,0,0,0,200600,0,0,0,576252,525252,252525,252525^ 6529 S71600: DMOVE AC,[576400,,0 6530 037033 120 04 0 00 041036 0,,0] 6531 DFDV AC,[200600,,0 6532 037034 113 04 0 00 040064 0,,0] 6533 037035 312 04 0 00 041630 CAME AC,[576252,,525252] 6534 037036 003 04 0 00 071601 ER3 AC,71601 6535 037037 312 05 0 00 041631 CAME AC+1,[252525,,252525] 6536 037040 004 05 0 00 071601 ER4 AC+1,71601 6537 037041 321 10 0 00 037033 JUMPL AC+4,S71600 ;LOOP ON ERROR SWITCH^ 6538 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 28-3 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0151 6539 SDFD 717,600600,0,0,0,577400,0,0,0,177400,0,0,0^ 6540 S71700: DMOVE AC,[600600,,0 6541 037042 120 04 0 00 041632 0,,0] 6542 DFDV AC,[577400,,0 6543 037043 113 04 0 00 040061 0,,0] 6544 037044 312 04 0 00 040066 CAME AC,[177400,,0] 6545 037045 003 04 0 00 071701 ER3 AC,71701 6546 037046 312 05 0 00 040060 CAME AC+1,[0,,0] 6547 037047 004 05 0 00 071701 ER4 AC+1,71701 6548 037050 321 10 0 00 037042 JUMPL AC+4,S71700 ;LOOP ON ERROR SWITCH^ 6549 6550 SDFD 720,600400,0,0,0,577400,0,0,0,200400,0,0,0^ 6551 S72000: DMOVE AC,[600400,,0 6552 037051 120 04 0 00 040725 0,,0] 6553 DFDV AC,[577400,,0 6554 037052 113 04 0 00 040061 0,,0] 6555 037053 312 04 0 00 040063 CAME AC,[200400,,0] 6556 037054 003 04 0 00 072001 ER3 AC,72001 6557 037055 312 05 0 00 040060 CAME AC+1,[0,,0] 6558 037056 004 05 0 00 072001 ER4 AC+1,72001 6559 037057 321 10 0 00 037051 JUMPL AC+4,S72000 ;LOOP ON ERROR SWITCH^ 6560 6561 SDFD 721,377400,-1,0,0,577400,-1,0,0,777375,773771,373773,776004^ 6562 S72100: DMOVE AC,[377400,,-1 6563 037060 120 04 0 00 041634 0,,0] 6564 DFDV AC,[577400,,-1 6565 037061 113 04 0 00 041636 0,,0] 6566 037062 312 04 0 00 041640 CAME AC,[777375,,773771] 6567 037063 003 04 0 00 072101 ER3 AC,72101 6568 037064 312 05 0 00 041641 CAME AC+1,[373773,,776004] 6569 037065 004 05 0 00 072101 ER4 AC+1,72101 6570 037066 321 10 0 00 037060 JUMPL AC+4,S72100 ;LOOP ON ERROR SWITCH^ 6571 6572 SDFD 722,201400,0,0,0,0,0,0,0,201400,0,0,0^ 6573 S72200: DMOVE AC,[201400,,0 6574 037067 120 04 0 00 040057 0,,0] 6575 DFDV AC,[0,,0 6576 037070 113 04 0 00 040355 0,,0] 6577 037071 312 04 0 00 040057 CAME AC,[201400,,0] 6578 037072 003 04 0 00 072201 ER3 AC,72201 6579 037073 312 05 0 00 040060 CAME AC+1,[0,,0] 6580 037074 004 05 0 00 072201 ER4 AC+1,72201 6581 037075 321 10 0 00 037067 JUMPL AC+4,S72200 ;LOOP ON ERROR SWITCH^ 6582 6583 SDFD 723,377400,0,0,0,400,0,0,0,200400,0,0,0^ 6584 S72300: DMOVE AC,[377400,,0 6585 037076 120 04 0 00 041026 0,,0] 6586 DFDV AC,[400,,0 6587 037077 113 04 0 00 040716 0,,0] 6588 037100 312 04 0 00 040063 CAME AC,[200400,,0] 6589 037101 003 04 0 00 072301 ER3 AC,72301 6590 037102 312 05 0 00 040060 CAME AC+1,[0,,0] 6591 037103 004 05 0 00 072301 ER4 AC+1,72301 6592 037104 321 10 0 00 037076 JUMPL AC+4,S72300 ;LOOP ON ERROR SWITCH^ 6593 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 28-4 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0152 6594 SDFD 724,577775,0,0,0,577777,0,0,0,577775,0,0,0^ 6595 S72400: DMOVE AC,[577775,,0 6596 037105 120 04 0 00 041642 0,,0] 6597 DFDV AC,[577777,,0 6598 037106 113 04 0 00 041644 0,,0] 6599 037107 312 04 0 00 041642 CAME AC,[577775,,0] 6600 037110 003 04 0 00 072401 ER3 AC,72401 6601 037111 312 05 0 00 040060 CAME AC+1,[0,,0] 6602 037112 004 05 0 00 072401 ER4 AC+1,72401 6603 037113 321 10 0 00 037105 JUMPL AC+4,S72400 ;LOOP ON ERROR SWITCH^ 6604 6605 SDFD 725,577774,0,0,0,577777,0,0,0,577774,0,0,0^ 6606 S72500: DMOVE AC,[577774,,0 6607 037114 120 04 0 00 041646 0,,0] 6608 DFDV AC,[577777,,0 6609 037115 113 04 0 00 041644 0,,0] 6610 037116 312 04 0 00 041646 CAME AC,[577774,,0] 6611 037117 003 04 0 00 072501 ER3 AC,72501 6612 037120 312 05 0 00 040060 CAME AC+1,[0,,0] 6613 037121 004 05 0 00 072501 ER4 AC+1,72501 6614 037122 321 10 0 00 037114 JUMPL AC+4,S72500 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 29 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0153 6615 6616 SDFD 726,210777,-1,0,0,170750,0,0,0,221414,456123,150726,20623^ 6617 S72600: DMOVE AC,[210777,,-1 6618 037123 120 04 0 00 041650 0,,0] 6619 DFDV AC,[170750,,0 6620 037124 113 04 0 00 041652 0,,0] 6621 037125 312 04 0 00 041654 CAME AC,[221414,,456123] 6622 037126 003 04 0 00 072601 ER3 AC,72601 6623 037127 312 05 0 00 041655 CAME AC+1,[150726,,20623] 6624 037130 004 05 0 00 072601 ER4 AC+1,72601 6625 037131 321 10 0 00 037123 JUMPL AC+4,S72600 ;LOOP ON ERROR SWITCH^ 6626 6627 SDFD 727,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146^ 6628 S72700: DMOVE AC,[210777,,-1 6629 037132 120 04 0 00 041650 0,,0] 6630 DFDV AC,[170555,,0 6631 037133 113 04 0 00 041656 0,,0] 6632 037134 312 04 0 00 041660 CAME AC,[221547,,63714] 6633 037135 003 04 0 00 072701 ER3 AC,72701 6634 037136 312 05 0 00 041661 CAME AC+1,[314631,,463146] 6635 037137 004 05 0 00 072701 ER4 AC+1,72701 6636 037140 321 10 0 00 037132 JUMPL AC+4,S72700 ;LOOP ON ERROR SWITCH^ 6637 6638 SDFD 730,577000,555555,0,0,200400,0,0,0,576000,555555,0,0^ 6639 S73000: DMOVE AC,[577000,,555555 6640 037141 120 04 0 00 041662 0,,0] 6641 DFDV AC,[200400,,0 6642 037142 113 04 0 00 040731 0,,0] 6643 037143 312 04 0 00 041664 CAME AC,[576000,,555555] 6644 037144 003 04 0 00 073001 ER3 AC,73001 6645 037145 312 05 0 00 040060 CAME AC+1,[0,,0] 6646 037146 004 05 0 00 073001 ER4 AC+1,73001 6647 037147 321 10 0 00 037141 JUMPL AC+4,S73000 ;LOOP ON ERROR SWITCH^ 6648 6649 SDFD 731,210777,-1,-1,-1,170555,0,0,0,221547,63715,200263,431746^ 6650 S73100: DMOVE AC,[210777,,-1 6651 037150 120 04 0 00 041665 -1,,-1] 6652 DFDV AC,[170555,,0 6653 037151 113 04 0 00 041656 0,,0] 6654 037152 312 04 0 00 041667 CAME AC,[221547,,63715] 6655 037153 003 04 0 00 073101 ER3 AC,73101 6656 037154 312 05 0 00 041670 CAME AC+1,[200263,,431746] 6657 037155 004 05 0 00 073101 ER4 AC+1,73101 6658 037156 321 10 0 00 037150 JUMPL AC+4,S73100 ;LOOP ON ERROR SWITCH^ 6659 6660 SDFD 732,210777,-3,0,0,170555,0,0,0,221547,63713,145545,545546^ 6661 S73200: DMOVE AC,[210777,,-3 6662 037157 120 04 0 00 041671 0,,0] 6663 DFDV AC,[170555,,0 6664 037160 113 04 0 00 041656 0,,0] 6665 037161 312 04 0 00 041673 CAME AC,[221547,,63713] 6666 037162 003 04 0 00 073201 ER3 AC,73201 6667 037163 312 05 0 00 041674 CAME AC+1,[145545,,545546] 6668 037164 004 05 0 00 073201 ER4 AC+1,73201 6669 037165 321 10 0 00 037157 JUMPL AC+4,S73200 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 29-1 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0154 6670 6671 SDFD 733,377400,0,555000,0,100777,0,0,0,77400,400400,355355,355355^ 6672 S73300: DMOVE AC,[377400,,0 6673 037166 120 04 0 00 041675 555000,,0] 6674 DFDV AC,[100777,,0 6675 037167 113 04 0 00 041677 0,,0] 6676 037170 312 04 0 00 041701 CAME AC,[77400,,400400] 6677 037171 003 04 0 00 073301 ER3 AC,73301 6678 037172 312 05 0 00 041702 CAME AC+1,[355355,,355355] 6679 037173 004 05 0 00 073301 ER4 AC+1,73301 6680 037174 321 10 0 00 037166 JUMPL AC+4,S73300 ;LOOP ON ERROR SWITCH^ 6681 6682 SDFD 735,200777,-1,0,0,200777,-2,0,0,201400,0,200000,400^ 6683 S73500: DMOVE AC,[200777,,-1 6684 037175 120 04 0 00 041226 0,,0] 6685 DFDV AC,[200777,,-2 6686 037176 113 04 0 00 041440 0,,0] 6687 037177 312 04 0 00 040057 CAME AC,[201400,,0] 6688 037200 003 04 0 00 073501 ER3 AC,73501 6689 037201 312 05 0 00 041167 CAME AC+1,[200000,,400] 6690 037202 004 05 0 00 073501 ER4 AC+1,73501 6691 037203 321 10 0 00 037175 JUMPL AC+4,S73500 ;LOOP ON ERROR SWITCH^ 6692 6693 SDFD 736,200777,-1,0,0,200777,-4,0,0,201400,1,200000,3000^ 6694 S73600: DMOVE AC,[200777,,-1 6695 037204 120 04 0 00 041226 0,,0] 6696 DFDV AC,[200777,,-4 6697 037205 113 04 0 00 041446 0,,0] 6698 037206 312 04 0 00 041703 CAME AC,[201400,,1] 6699 037207 003 04 0 00 073601 ER3 AC,73601 6700 037210 312 05 0 00 041704 CAME AC+1,[200000,,3000] 6701 037211 004 05 0 00 073601 ER4 AC+1,73601 6702 037212 321 10 0 00 037204 JUMPL AC+4,S73600 ;LOOP ON ERROR SWITCH^ 6703 6704 SDFD 737,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146^ 6705 S73700: DMOVE AC,[210777,,-1 6706 037213 120 04 0 00 041650 0,,0] 6707 DFDV AC,[170555,,0 6708 037214 113 04 0 00 041656 0,,0] 6709 037215 312 04 0 00 041660 CAME AC,[221547,,63714] 6710 037216 003 04 0 00 073701 ER3 AC,73701 6711 037217 312 05 0 00 041661 CAME AC+1,[314631,,463146] 6712 037220 004 05 0 00 073701 ER4 AC+1,73701 6713 037221 321 10 0 00 037213 JUMPL AC+4,S73700 ;LOOP ON ERROR SWITCH^ 6714 6715 SDFD 741,210777,-1,0,0,170555,600000,0,0,221546,272702,301417,730634^ 6716 S74100: DMOVE AC,[210777,,-1 6717 037222 120 04 0 00 041650 0,,0] 6718 DFDV AC,[170555,,600000 6719 037223 113 04 0 00 041705 0,,0] 6720 037224 312 04 0 00 041707 CAME AC,[221546,,272702] 6721 037225 003 04 0 00 074101 ER3 AC,74101 6722 037226 312 05 0 00 041710 CAME AC+1,[301417,,730634] 6723 037227 004 05 0 00 074101 ER4 AC+1,74101 6724 037230 321 10 0 00 037222 JUMPL AC+4,S74100 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 29-2 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0155 6725 6726 SDFD 742,210777,-1,0,0,170557,0,0,0,221545,111740,234200,262445^ 6727 S74200: DMOVE AC,[210777,,-1 6728 037231 120 04 0 00 041650 0,,0] 6729 DFDV AC,[170557,,0 6730 037232 113 04 0 00 041711 0,,0] 6731 037233 312 04 0 00 041713 CAME AC,[221545,,111740] 6732 037234 003 04 0 00 074201 ER3 AC,74201 6733 037235 312 05 0 00 041714 CAME AC+1,[234200,,262445] 6734 037236 004 05 0 00 074201 ER4 AC+1,74201 6735 037237 321 10 0 00 037231 JUMPL AC+4,S74200 ;LOOP ON ERROR SWITCH^ 6736 6737 SDFD 743,210777,-1,0,0,170560,0,0,0,221544,131025,220544,131026^ 6738 S74300: DMOVE AC,[210777,,-1 6739 037240 120 04 0 00 041650 0,,0] 6740 DFDV AC,[170560,,0 6741 037241 113 04 0 00 041715 0,,0] 6742 037242 312 04 0 00 041717 CAME AC,[221544,,131025] 6743 037243 003 04 0 00 074301 ER3 AC,74301 6744 037244 312 05 0 00 041720 CAME AC+1,[220544,,131026] 6745 037245 004 05 0 00 074301 ER4 AC+1,74301 6746 037246 321 10 0 00 037240 JUMPL AC+4,S74300 ;LOOP ON ERROR SWITCH^ 6747 6748 SDFD 744,377400,0,0,0,100777,0,0,0,77400,400400,200200,200200^ 6749 S74400: DMOVE AC,[377400,,0 6750 037247 120 04 0 00 041026 0,,0] 6751 DFDV AC,[100777,,0 6752 037250 113 04 0 00 041677 0,,0] 6753 037251 312 04 0 00 041701 CAME AC,[77400,,400400] 6754 037252 003 04 0 00 074401 ER3 AC,74401 6755 037253 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6756 037254 004 05 0 00 074401 ER4 AC+1,74401 6757 037255 321 10 0 00 037247 JUMPL AC+4,S74400 ;LOOP ON ERROR SWITCH^ 6758 6759 SDFD 745,376400,0,0,0,100777,0,0,0,76400,400400,200200,200200^ 6760 S74500: DMOVE AC,[376400,,0 6761 037256 120 04 0 00 041722 0,,0] 6762 DFDV AC,[100777,,0 6763 037257 113 04 0 00 041677 0,,0] 6764 037260 312 04 0 00 041724 CAME AC,[76400,,400400] 6765 037261 003 04 0 00 074501 ER3 AC,74501 6766 037262 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6767 037263 004 05 0 00 074501 ER4 AC+1,74501 6768 037264 321 10 0 00 037256 JUMPL AC+4,S74500 ;LOOP ON ERROR SWITCH^ 6769 6770 SDFD 746,375400,0,0,0,100777,0,0,0,75400,400400,200200,200200^ 6771 S74600: DMOVE AC,[375400,,0 6772 037265 120 04 0 00 041725 0,,0] 6773 DFDV AC,[100777,,0 6774 037266 113 04 0 00 041677 0,,0] 6775 037267 312 04 0 00 041727 CAME AC,[75400,,400400] 6776 037270 003 04 0 00 074601 ER3 AC,74601 6777 037271 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6778 037272 004 05 0 00 074601 ER4 AC+1,74601 6779 037273 321 10 0 00 037265 JUMPL AC+4,S74600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 29-3 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0156 6780 6781 SDFD 747,374400,0,0,0,100777,0,0,0,74400,400400,200200,200200^ 6782 S74700: DMOVE AC,[374400,,0 6783 037274 120 04 0 00 041730 0,,0] 6784 DFDV AC,[100777,,0 6785 037275 113 04 0 00 041677 0,,0] 6786 037276 312 04 0 00 041732 CAME AC,[74400,,400400] 6787 037277 003 04 0 00 074701 ER3 AC,74701 6788 037300 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6789 037301 004 05 0 00 074701 ER4 AC+1,74701 6790 037302 321 10 0 00 037274 JUMPL AC+4,S74700 ;LOOP ON ERROR SWITCH^ 6791 6792 SDFD 750,373400,0,0,0,100777,0,0,0,73400,400400,200200,200200^ 6793 S75000: DMOVE AC,[373400,,0 6794 037303 120 04 0 00 041733 0,,0] 6795 DFDV AC,[100777,,0 6796 037304 113 04 0 00 041677 0,,0] 6797 037305 312 04 0 00 041735 CAME AC,[73400,,400400] 6798 037306 003 04 0 00 075001 ER3 AC,75001 6799 037307 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6800 037310 004 05 0 00 075001 ER4 AC+1,75001 6801 037311 321 10 0 00 037303 JUMPL AC+4,S75000 ;LOOP ON ERROR SWITCH^ 6802 6803 SDFD 751,372400,0,0,0,100777,0,0,0,72400,400400,200200,200200^ 6804 S75100: DMOVE AC,[372400,,0 6805 037312 120 04 0 00 041736 0,,0] 6806 DFDV AC,[100777,,0 6807 037313 113 04 0 00 041677 0,,0] 6808 037314 312 04 0 00 041740 CAME AC,[72400,,400400] 6809 037315 003 04 0 00 075101 ER3 AC,75101 6810 037316 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6811 037317 004 05 0 00 075101 ER4 AC+1,75101 6812 037320 321 10 0 00 037312 JUMPL AC+4,S75100 ;LOOP ON ERROR SWITCH^ 6813 6814 SDFD 752,210777,0,0,0,210777,0,0,0,201400,0,0,0^ 6815 S75200: DMOVE AC,[210777,,0 6816 037321 120 04 0 00 041741 0,,0] 6817 DFDV AC,[210777,,0 6818 037322 113 04 0 00 041741 0,,0] 6819 037323 312 04 0 00 040057 CAME AC,[201400,,0] 6820 037324 003 04 0 00 075201 ER3 AC,75201 6821 037325 312 05 0 00 040060 CAME AC+1,[0,,0] 6822 037326 004 05 0 00 075201 ER4 AC+1,75201 6823 037327 321 10 0 00 037321 JUMPL AC+4,S75200 ;LOOP ON ERROR SWITCH^ 6824 6825 SDFD 753,200400,0,0,0,210777,0,0,0,170400,400400,200200,200200^ 6826 S75300: DMOVE AC,[200400,,0 6827 037330 120 04 0 00 040731 0,,0] 6828 DFDV AC,[210777,,0 6829 037331 113 04 0 00 041741 0,,0] 6830 037332 312 04 0 00 041743 CAME AC,[170400,,400400] 6831 037333 003 04 0 00 075301 ER3 AC,75301 6832 037334 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6833 037335 004 05 0 00 075301 ER4 AC+1,75301 6834 037336 321 10 0 00 037330 JUMPL AC+4,S75300 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 29-4 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0157 6835 6836 SDFD 754,371400,0,0,0,100777,0,0,0,71400,400400,200200,200200^ 6837 S75400: DMOVE AC,[371400,,0 6838 037337 120 04 0 00 041744 0,,0] 6839 DFDV AC,[100777,,0 6840 037340 113 04 0 00 041677 0,,0] 6841 037341 312 04 0 00 041746 CAME AC,[71400,,400400] 6842 037342 003 04 0 00 075401 ER3 AC,75401 6843 037343 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6844 037344 004 05 0 00 075401 ER4 AC+1,75401 6845 037345 321 10 0 00 037337 JUMPL AC+4,S75400 ;LOOP ON ERROR SWITCH^ 6846 6847 SDFD 755,370400,0,0,0,100777,0,0,0,070400,400400,200200,200200^ 6848 S75500: DMOVE AC,[370400,,0 6849 037346 120 04 0 00 041747 0,,0] 6850 DFDV AC,[100777,,0 6851 037347 113 04 0 00 041677 0,,0] 6852 037350 312 04 0 00 041751 CAME AC,[070400,,400400] 6853 037351 003 04 0 00 075501 ER3 AC,75501 6854 037352 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6855 037353 004 05 0 00 075501 ER4 AC+1,75501 6856 037354 321 10 0 00 037346 JUMPL AC+4,S75500 ;LOOP ON ERROR SWITCH^ 6857 6858 SDFD 756,367400,0,0,0,100777,0,0,0,67400,400400,200200,200200^ 6859 S75600: DMOVE AC,[367400,,0 6860 037355 120 04 0 00 041752 0,,0] 6861 DFDV AC,[100777,,0 6862 037356 113 04 0 00 041677 0,,0] 6863 037357 312 04 0 00 041754 CAME AC,[67400,,400400] 6864 037360 003 04 0 00 075601 ER3 AC,75601 6865 037361 312 05 0 00 041721 CAME AC+1,[200200,,200200] 6866 037362 004 05 0 00 075601 ER4 AC+1,75601 6867 037363 321 10 0 00 037355 JUMPL AC+4,S75600 ;LOOP ON ERROR SWITCH^ DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 30 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0158 6868 ;TEST LEAST SIGNIFICANT BIT DIFFERENCE, GET A DIFFERENT ANSWER 6869 ;ON THE KS-10 WITH MICROCODE 104 AND GREATER. 6870 6871 S73400: DMOVE AC,[373400,,0 6872 037364 120 04 0 00 041755 200777,,0] 6873 DFDV AC,[100777,,0 6874 037365 113 04 0 00 041677 0,,0] 6875 037366 336 00 0 00 030524 SKIPN SM10 6876 037367 254 00 0 00 037405 JRST S73405 ;KL10 6877 6878 037370 312 04 0 00 041757 CAME AC,[73400,,400401] 6879 037371 003 04 0 00 073401 ER3 AC,73401 6880 6881 037372 332 00 0 00 030037 SKIPE USER ;USER MODE ? 6882 037373 254 00 0 00 037412 JRST S73408 ;YES, ALLOW EITHER ANSWER 6883 037374 7 000 00 0 00 000000 BLKI APR,0 ;NO, GET KS10 CPU ID INFO 6884 037375 207 00 0 00 000000 MOVSS ;ISOLATE MICROCODE VERSION 6885 037376 405 00 0 00 000777 ANDI 0,777 6886 037377 305 00 0 00 000104 CAIGE 0,104 ;104 OR GREATER ? 6887 037400 254 00 0 00 037417 JRST S73409 ;NO 6888 6889 037401 312 05 0 00 041760 CAME AC+1,[1400,,400401] 6890 037402 004 05 0 00 073401 ER4 AC+1,73401 6891 6892 037403 321 10 0 00 037364 S73406: JUMPL AC+4,S73400 ;LOOP ON ERROR SWITCH 6893 037404 254 00 0 00 037422 JRST S73407 6894 6895 037405 312 04 0 00 041757 S73405: CAME AC,[73400,,400401] ;CHECK KL10 ANSWER IF RUNNING ON KL10 6896 037406 003 04 0 00 073401 ER3 AC,73401 6897 037407 312 05 0 00 041760 CAME AC+1,[1400,,400401] 6898 037410 004 05 0 00 073401 ER4 AC+1,73401 6899 037411 254 00 0 00 037403 JRST S73406 6900 6901 037412 316 05 0 00 041761 S73408: CAMN AC+1,[1400,,400400] ;ALLOW EITHER ANSWER ON KS10 IN USER MODE 6902 037413 254 00 0 00 037403 JRST S73406 6903 037414 312 05 0 00 041760 CAME AC+1,[1400,,400401] 6904 037415 004 05 0 00 073401 ER4 AC+1,73401 6905 037416 254 00 0 00 037403 JRST S73406 6906 6907 037417 312 05 0 00 041761 S73409: CAME AC+1,[1400,,400400] ;KS10, EXEC, MICROCODE LESS THAN 104 6908 037420 004 05 0 00 073401 ER4 AC+1,73401 6909 037421 254 00 0 00 037403 JRST S73406 6910 6911 037422 254 00 0 00 037423 S73407: JRST .+1 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 31 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0159 6912 ;TEST AROV, FOV AND FXU FLAGS-DFDV 6913 6914 000004 AC=4 6915 SAVEAC (1,1)^ 6916 037423 201 06 0 00 037423 MOVEI AC+2,. 6917 037424 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 6918 037425 201 06 0 00 000006 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 6919 037426 202 06 0 00 042157 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^ 6920 6921 037427 254 02 1 00 041762 S75700: JRSTF @[.+1] ;CLEAR ALL FLAGS 6922 DMOVE AC,[376777,,-1 6923 037430 120 04 0 00 041763 -1,,-1] 6924 DFDV AC,[200400,,0 6925 037431 113 04 0 00 040731 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 6926 037432 265 03 0 00 037433 JSP AC-1,.+1 ;SAVE FLAGS 6927 037433 312 04 0 00 040357 CAME AC,[377777,,-1] 6928 037434 003 04 0 00 075701 ER3 AC,75701 ;C(AC) FAILED 6929 037435 312 05 0 00 040357 CAME AC+1,[377777,,-1] 6930 037436 004 05 0 00 075701 ER4 AC+1,75701 ;C(AC+1)FAILED 6931 037437 255 10 0 00 037441 JOV .+2 6932 037440 254 00 0 00 037442 JRST .+2 6933 037441 013 03 0 00 075701 ER13 AC-1,75701 ;AROV WAS SET 6934 037442 255 01 0 00 037444 JFOV .+2 6935 037443 254 00 0 00 037445 JRST .+2 6936 037444 013 03 0 00 075701 ER13 AC-1,75701 ;FOV WAS SET 6937 037445 603 03 0 00 000100 TLNE AC-1,FXU 6938 037446 013 03 0 00 075701 ER13 AC-1,75701 ;FXU WAS SET 6939 037447 321 10 0 00 037427 JUMPL AC+4,S75700 ;LOOP ON ERROR SWITCH 6940 6941 037450 254 02 1 00 041765 S76000: JRSTF @[.+1] ;CLEAR ALL FLAGS 6942 DMOVE AC,[377400,,0 6943 037451 120 04 0 00 041026 0,,0] 6944 DFDV AC,[200400,,0 6945 037452 113 04 0 00 040731 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0 6946 037453 265 03 0 00 037454 JSP AC-1,.+1 ;SAVE FLAGS 6947 037454 312 04 0 00 040233 CAME AC,[400,,0] 6948 037455 003 04 0 00 076001 ER3 AC,76001 ;C(AC) FAILED 6949 037456 312 05 0 00 040060 CAME AC+1,[0,,0] 6950 037457 004 05 0 00 076001 ER4 AC+1,76001 ;C(AC+1) FAILED 6951 037460 255 10 0 00 037462 JOV .+2 6952 037461 013 03 0 00 076001 ER13 AC-1,76001 ;AROV WAS CLEAR 6953 037462 255 01 0 00 037464 JFOV .+2 6954 037463 013 03 0 00 076001 ER13 AC-1,76001 ;FOV WAS CLEAR 6955 037464 603 03 0 00 000100 TLNE AC-1,FXU 6956 037465 013 03 0 00 076001 ER13 AC-1,76001 ;FXU WAS SET 6957 037466 321 10 0 00 037450 JUMPL AC+4,S76000 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 32 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0160 6958 037467 254 02 1 00 041766 S76100: JRSTF @[.+1] ;CLEAR ALL FLAGS 6959 DMOVE AC,[1400,,0 6960 037470 120 04 0 00 041607 0,,0] 6961 DFDV AC,[202400,,0 6962 037471 113 04 0 00 040744 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 6963 037472 265 03 0 00 037473 JSP AC-1,.+1 ;SAVE FLAGS 6964 037473 312 04 0 00 040233 CAME AC,[400,,0] 6965 037474 003 04 0 00 076101 ER3 AC,76101 ;C(AC) FAILED 6966 037475 312 05 0 00 040060 CAME AC+1,[0,,0] 6967 037476 004 05 0 00 076101 ER4 AC+1,76101 ;C(AC+1) FAILED 6968 037477 255 10 0 00 037501 JOV .+2 6969 037500 254 00 0 00 037502 JRST .+2 6970 037501 013 03 0 00 076101 ER13 AC-1,76101 ;AROV WAS SET 6971 037502 255 01 0 00 037504 JFOV .+2 6972 037503 254 00 0 00 037505 JRST .+2 6973 037504 013 03 0 00 076101 ER13 AC-1,76101 ;FOV WAS SET 6974 037505 603 03 0 00 000100 TLNE AC-1,FXU 6975 037506 013 03 0 00 076101 ER13 AC-1,76101 ;FXU WAS SET 6976 037507 321 10 0 00 037467 JUMPL AC+4,S76100 ;LOOP ON ERROR SWITCH 6977 6978 037510 254 02 1 00 041767 S76200:JRSTF @[.+1] ;CLEAR ALL FLAGS 6979 DMOVE AC,[777,,-1 6980 037511 120 04 0 00 041406 -1,,-1] 6981 DFDV AC,[202400,,0 6982 037512 113 04 0 00 040744 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1 6983 037513 265 03 0 00 037514 JSP AC-1,.+1 ;SAVE FLAGS 6984 037514 312 04 0 00 040357 CAME AC,[377777,,-1] 6985 037515 003 04 0 00 076201 ER3 AC,76201 ;C(AC) FAILED 6986 037516 312 05 0 00 040357 CAME AC+1,[377777,,-1] 6987 037517 004 05 0 00 076201 ER4 AC+1,76201 ;C(AC+1) FAILED 6988 037520 255 10 0 00 037522 JOV .+2 6989 037521 013 03 0 00 076201 ER13 AC-1,76201 ;AROV WAS CLEAR 6990 037522 255 01 0 00 037524 JFOV .+2 6991 037523 013 03 0 00 076201 ER13 AC-1,76201 ;FOV WAS CLEAR 6992 037524 607 03 0 00 000100 TLNN AC-1,FXU 6993 037525 013 03 0 00 076201 ER13 AC-1,76201 ;FXU WAS CLEAR 6994 037526 321 10 0 00 037510 JUMPL AC+4,S76200 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 33 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0161 6995 037527 254 02 1 00 041770 S76300: JRSTF @[.+1] ;CLEAR ALL FLAGS 6996 DMOVE AC,[376777,,-1 6997 037530 120 04 0 00 041763 -1,,-1] 6998 DFDV AC,[577400,,0 6999 037531 113 04 0 00 040061 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 7000 037532 265 03 0 00 037533 JSP AC-1,.+1 ;SAVE FLAGS 7001 037533 312 04 0 00 041363 CAME AC,[400000,,0] 7002 037534 003 04 0 00 076301 ER3 AC,76301 ;C(AC) FAILED 7003 037535 312 05 0 00 040351 CAME AC+1,[0,,1] 7004 037536 004 05 0 00 076301 ER4 AC+1,76301 ;C(AC+1) FAILED 7005 037537 255 10 0 00 037541 JOV .+2 7006 037540 254 00 0 00 037542 JRST .+2 7007 037541 013 03 0 00 076301 ER13 AC-1,76301 ;AROV WAS SET 7008 037542 255 01 0 00 037544 JFOV .+2 7009 037543 254 00 0 00 037545 JRST .+2 7010 037544 013 03 0 00 076301 ER13 AC-1,76301 ;FOV WAS SET 7011 037545 603 03 0 00 000100 TLNE AC-1,FXU 7012 037546 013 03 0 00 076301 ER13 AC-1,76301 ;FXU WAS SET 7013 037547 321 10 0 00 037527 JUMPL AC+4,S76300 ;LOOP ON ERROR SWITCH 7014 7015 037550 254 02 1 00 041771 S76400: JRSTF @[.+1] ;CLEAR ALL FLAGS 7016 DMOVE AC,[377400,,0 7017 037551 120 04 0 00 041026 0,,0] 7018 DFDV AC,[777400,,0 7019 037552 113 04 0 00 041422 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0 7020 037553 265 03 0 00 037554 JSP AC-1,.+1 ;SAVE FLAGS 7021 037554 312 04 0 00 040061 CAME AC,[577400,,0] 7022 037555 003 04 0 00 076401 ER3 AC,76401 ;C(AC) FAILED 7023 037556 312 05 0 00 040060 CAME AC+1,[0,,0] 7024 037557 004 05 0 00 076401 ER4 AC+1,76401 ;C(AC+1) FAILED 7025 037560 255 10 0 00 037562 JOV .+2 7026 037561 013 03 0 00 076401 ER13 AC-1,76401 ;AROV WAS CLEAR 7027 037562 255 01 0 00 037564 JFOV .+2 7028 037563 013 03 0 00 076401 ER13 AC-1,76401 ;FOV WAS CLEAR 7029 037564 603 03 0 00 000100 TLNE AC-1,FXU 7030 037565 013 03 0 00 076401 ER13 AC-1,76401 ;FXU WAS SET 7031 037566 321 10 0 00 037550 JUMPL AC+4,S76400 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 34 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0162 7032 037567 254 02 1 00 041772 S76500: JRSTF @[.+1] ;CLEAR ALL FLAGS 7033 DMOVE AC,[1400,,0 7034 037570 120 04 0 00 041607 0,,0] 7035 DFDV AC,[575400,,0 7036 037571 113 04 0 00 041435 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0 7037 037572 265 03 0 00 037573 JSP AC-1,.+1 ;SAVE FLAGS 7038 037573 312 04 0 00 041365 CAME AC,[777400,,0] 7039 037574 003 04 0 00 076501 ER3 AC,76501 ;C(AC) FAILED 7040 037575 312 05 0 00 040060 CAME AC+1,[0,,0] 7041 037576 004 05 0 00 076501 ER4 AC+1,76501 ;C(AC+1) FAILED 7042 037577 255 10 0 00 037601 JOV .+2 7043 037600 254 00 0 00 037602 JRST .+2 7044 037601 013 03 0 00 076501 ER13 AC-1,76501 ;AROV WAS SET 7045 037602 255 01 0 00 037604 JFOV .+2 7046 037603 254 00 0 00 037605 JRST .+2 7047 037604 013 03 0 00 076501 ER13 AC-1,76501 ;FOV WAS SET 7048 037605 603 03 0 00 000100 TLNE AC-1,FXU 7049 037606 013 03 0 00 076501 ER13 AC-1,76501 ;FXU WAS SET 7050 037607 321 10 0 00 037567 JUMPL AC+4,S76500 ;LOOP ON ERROR SWITCH 7051 7052 037610 254 02 1 00 041773 S76600: JRSTF @[.+1] ;CLEAR ALL FLAGS 7053 DMOVE AC,[777,,-1 7054 037611 120 04 0 00 041406 -1,,-1] 7055 DFDV AC,[575400,,0 7056 037612 113 04 0 00 041435 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1 7057 037613 265 03 0 00 037614 JSP AC-1,.+1 ;SAVE FLAGS 7058 037614 312 04 0 00 041363 CAME AC,[400000,,0] 7059 037615 003 04 0 00 076601 ER3 AC,76601 ;C(AC) FAILED 7060 037616 312 05 0 00 040351 CAME AC+1,[0,,1] 7061 037617 004 05 0 00 076601 ER4 AC+1,76601 ;C(AC+1) FAILED 7062 037620 255 10 0 00 037622 JOV .+2 7063 037621 013 03 0 00 076601 ER13 AC-1,76601 ;AROV WAS CLEAR 7064 037622 255 01 0 00 037624 JFOV .+2 7065 037623 013 03 0 00 076601 ER13 AC-1,76601 ;FOV WAS CLEAR 7066 037624 607 03 0 00 000100 TLNN AC-1,FXU 7067 037625 013 03 0 00 076601 ER13 AC-1,76601 ;FXU WAS CLEAR 7068 037626 321 10 0 00 037610 JUMPL AC+4,S76600 ;LOOP ON ERROR SWITCH DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 35 DSKCE1 MAC 21-Jun-78 10:46 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0163 7069 ;TEST AROV,FOV AND DCK FLAGS-DFDV 7070 7071 037627 254 02 1 00 041774 S76700: JRSTF @[.+1] ;CLEAR ALL FLAGS 7072 DMOVE AC,[201400,,0 7073 037630 120 04 0 00 040057 0,,0] 7074 DFDV AC,[0,,0 7075 037631 113 04 0 00 040355 0,,0] ;EXPECT AROV,FOV,DCK=1,1,1 7076 037632 265 03 0 00 037633 JSP AC-1,.+1 ;SAVE FLAGS 7077 037633 312 04 0 00 040057 CAME AC,[201400,,0] 7078 037634 003 04 0 00 076701 ER3 AC,76701 ;C(AC) FAILED 7079 037635 312 05 0 00 040060 CAME AC+1,[0,,0] 7080 037636 004 05 0 00 076701 ER4 AC+1,76701 ;C(AC+1) FAILED 7081 037637 255 10 0 00 037641 JOV .+2 7082 037640 013 03 0 00 076701 ER13 AC-1,76701 ;AROV WAS CLEAR 7083 037641 255 01 0 00 037643 JFOV .+2 7084 037642 013 03 0 00 076701 ER13 AC-1,76701 ;FOV WAS CLEAR 7085 037643 607 03 0 00 000040 TLNN AC-1,DCK 7086 037644 013 03 0 00 076701 ER13 AC-1,76701 ;DCK WAS CLEAR 7087 037645 321 10 0 00 037627 JUMPL AC+4,S76700 ;LOOP ON ERROR SWITCH 7088 7089 ;TEST AROV,FOV AND DCK FLAGS-DFDV 7090 7091 037646 254 02 1 00 041775 S77000: JRSTF @[.+1] ;CLEAR ALL FLAGS 7092 DMOVE AC,[201400,,0 7093 037647 120 04 0 00 040057 0,,0] 7094 DFDV AC,[201200,,0 7095 037650 113 04 0 00 041776 0,,0] ;EXPECT AROV,FOV,DCK=1,1,1 7096 037651 265 03 0 00 037652 JSP AC-1,.+1 ;SAVE FLAGS 7097 037652 312 04 0 00 040057 CAME AC,[201400,,0] 7098 037653 003 04 0 00 077001 ER3 AC,77001 ;C(AC) FAILED 7099 037654 312 05 0 00 040060 CAME AC+1,[0,,0] 7100 037655 004 05 0 00 077001 ER4 AC+1,77001 ;C(AC+1) FAILED 7101 037656 255 10 0 00 037660 JOV .+2 7102 037657 013 03 0 00 077001 ER13 AC-1,77001 ;AROV WAS CLEAR 7103 037660 255 01 0 00 037662 JFOV .+2 7104 037661 013 03 0 00 077001 ER13 AC-1,77001 ;FOV WAS CLEAR 7105 037662 607 03 0 00 000040 TLNN AC-1,DCK 7106 037663 013 03 0 00 077001 ER13 AC-1,77001 ;DCK WAS CLEAR 7107 037664 321 10 0 00 037646 JUMPL AC+4,S77000 ;LOOP ON ERROR SWITCH 7108 7109 037665 254 00 0 00 030057 JRST BEGEND DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1 UUOERR KSM 28-Mar-78 16:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0164 7110 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 7111 7112 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 7113 7114 037666 202 00 0 00 042163 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 7115 037667 202 01 0 00 042164 MOVEM 1,%ERAC1# ;SAVE AC1 7116 037670 202 02 0 00 042165 MOVEM 2,%ERAC2# ;SAVE AC2 7117 037671 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 7118 037672 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 7119 037673 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 7120 037674 350 00 0 00 042160 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 7121 037675 200 00 0 00 042160 MOVE 0,MICNT 7122 037676 504 00 0 00 030114 HRL 0,$SVUPC 7123 037677 402 00 0 00 042161 SETZM PROCED# ;CLEAR PROCEED FLAG 7124 037700 037 10 0 00 000002 SWITCH 7125 037701 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 7126 037702 254 00 0 00 040014 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 7127 037703 200 01 0 00 030113 MOVE 1,$SVUUO 7128 037704 242 01 0 00 777745 LSH 1,-^D27 7129 037705 202 01 0 00 042162 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 7130 037706 200 00 0 00 042163 MOVE 0,%ERAC0 7131 037707 200 01 0 00 042164 MOVE 1,%ERAC1 7132 037710 335 00 1 00 042157 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ? 7133 037711 254 00 0 00 040046 JRST %ERRS4 ;NO, SEE IF PRINT ALL 7134 037712 402 00 0 00 042160 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 7135 037713 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 7136 037714 254 00 0 00 037720 JRST .+4 ;NO, DON'T NEED TITLE 7137 037715 336 00 0 00 042166 SKIPN %ERFST# ;FIRST ERROR ? 7138 037716 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 7139 037717 476 00 0 00 042166 SETOM %ERFST 7140 037720 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 7141 037721 254 00 0 00 037725 JRST .+4 ;YES 7142 PMSG <^TEST PASS COUNT = >^ 7143 037722 037 02 0 00 042000 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 7144 037723 200 00 0 00 030047 MOVE PASCNT 7145 037724 037 15 0 00 000000 PNTDEC 7146 PMSG <^PC = >^ 7147 037725 037 02 0 00 042004 PSIXM [SIXBIT\^PC = _\]^ 7148 037726 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 7149 037727 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 7150 037730 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 7151 XLIST 7152 IFDEF ERDIAG,^ 7158 037731 037 02 0 00 042006 PSIXM [SIXBIT\^RESULT = _\]^ 7159 037732 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 7160 037733 242 01 0 00 777751 LSH 1,-27 7161 037734 405 01 0 00 000017 ANDI 1,17 7162 037735 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 7163 037736 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 7164 037737 200 00 0 01 042163 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 7165 037740 037 13 0 00 000000 PNTHW ;PRINT C(AC) 7166 7167 037741 200 00 0 00 030046 MOVE CONSW 7168 037742 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 7169 037743 254 00 0 00 040012 JRST %ERMORE ;NO, RESTORE AC'S ETC. 7170 7171 ;PRINT FAILURE DESCRIPTOR 7172 7173 037744 200 01 0 00 042162 MOVE 1,%ACS1A ;GET UUO NUMBER 7174 037745 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 7175 037746 254 00 0 00 037752 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 7176 037747 037 00 0 00 030242 PCRL 7177 037750 200 00 0 01 037776 MOVE %FLTTB(1) 7178 037751 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 7179 7180 ;PRINT FAULT NUMBER 7181 7182 037752 %ERMS3: PMSG <^FAULT NUMBER = >^ 7183 037752 037 02 0 00 042010 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 7184 037753 201 00 0 00 037775 MOVEI TLET 7185 037754 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 3 UUOERR KSM 28-Mar-78 16:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0166 7186 7187 037755 550 00 0 00 030113 HRRZ $SVUUO 7188 037756 602 00 0 00 700000 TRNE 700000 7189 037757 254 00 0 00 037773 JRST %ER6X 7190 037760 602 00 0 00 070000 TRNE 070000 7191 037761 254 00 0 00 037771 JRST %ER5X 7192 037762 602 00 0 00 007000 TRNE 007000 7193 037763 254 00 0 00 037767 JRST %ER4X 7194 037764 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 7195 037765 037 00 0 00 030242 %ER7X: PCRL 7196 037766 254 00 0 00 040012 JRST %ERMORE 7197 7198 037767 037 04 0 00 000000 %ER4X: PNT4 7199 037770 254 00 0 00 037765 JRST %ER7X 7200 037771 037 05 0 00 000000 %ER5X: PNT5 7201 037772 254 00 0 00 037765 JRST %ER7X 7202 037773 037 06 0 00 000000 %ER6X: PNT6 7203 037774 254 00 0 00 037765 JRST %ER7X 7204 7205 ;FAILURE DESCRIPTORS 7206 7207 037775 000000 000000 TLET: 0 ;TEST LETTER 7208 037776 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 7209 037777 000000 040060 %NODES: [0] ;NO DESCRIPTOR 7210 040000 000000 040060 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 7211 040001 000000 042013 $ACF: [ASCIZ/C(AC) FAILED/] 7212 040002 000000 042016 %AC1F: [ASCIZ/C(AC+1) FAILED/] 7213 040003 000000 042021 %EF: [ASCIZ/C(E) FAILED/] 7214 040004 000000 042024 %E1F: [ASCIZ/C(E+1) FAILED/] 7215 040005 000000 042027 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 7216 040006 000000 042033 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 7217 040007 000000 042037 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 7218 040010 000000 042043 %EEF: [ASCIZ/C(C(E)) FAILED/] 7219 040011 000000 042046 %FF: [ASCIZ/FLAG FAILED/] 7220 > 7221 XLIST 7222 LIST DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 8 UUOERR KSM 28-Mar-78 16:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0167 7223 ;RESTORE AC'S AND RETURN OR HALT 7224 7225 040012 256 00 0 00 030101 %ERMORE:XCT ERMORE 7226 040013 037 10 0 00 000002 SWITCH 7227 7228 040014 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 7229 040015 254 00 0 00 040021 JRST .+4 ;NONE 7230 040016 201 00 0 00 040021 MOVEI .+3 ;SAVE CONT ADDRESS 7231 040017 202 00 0 00 000130 MOVEM JOBOPC 7232 040020 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER 7233 040021 200 00 0 00 030046 MOVE CONSW 7234 040022 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 7235 040023 037 14 0 00 000004 ERRHLT ;YES 7236 040024 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 7237 040025 476 00 0 00 042161 SETOM PROCED ;NO, SET THE PROCEED FLAG 7238 040026 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 7239 040027 037 01 0 00 000007 PBELL ;YES, GO RING BELL 7240 7241 040030 200 02 0 00 042165 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 7242 040031 200 01 0 00 042164 MOVE 1,%ERAC1 7243 040032 476 00 1 00 042157 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1 7244 040033 336 00 0 00 042161 SKIPN PROCED ;LOOP ON ERROR ? 7245 040034 254 00 0 00 040044 JRST %ERRS5 ;YES 7246 040035 350 00 1 00 042157 AOS @ERRLOP ;NO, INC C(ERR LOOP AC) 7247 040036 350 00 1 00 042157 AOS @ERRLOP ;SO IT ='S 1 7248 040037 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 7249 040040 254 00 0 00 040044 JRST %ERRS5 ;NO, CONTINUE PROGRAM 7250 040041 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 7251 040042 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 7252 040043 254 00 0 00 040052 JRST %ERRS6 7253 7254 040044 200 00 0 00 042163 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 7255 040045 254 00 0 00 030065 JRST UUOEXT 7256 7257 040046 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 7258 040047 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 7259 040050 254 00 0 00 040014 JRST %ERRS1 ;NO 7260 040051 254 00 0 00 037712 JRST %ERMS1 ;YES 7261 7262 040052 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 7263 040052 037 04 0 00 042051 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 7264 040053 254 00 0 00 030061 JRST $BEND2 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0168 7265 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 7266 7267 ;PROGRAM LITERALS 7268 7269 XLIST 7270 IFNDEF $LPAPER, 7271 040054 LIT 7272 040054 45 70 51 64 00 00 7273 040055 103 105 000 000 000 7274 040056 000000 030630 7275 040057 201400 000000 7276 040060 000000 000000 7277 040061 577400 000000 7278 040062 000000 000000 7279 040063 200400 000000 7280 040064 200600 000000 7281 040065 000000 000000 7282 040066 177400 000000 7283 040067 200500 000000 7284 040070 000000 000000 7285 040071 176400 000000 7286 040072 200440 000000 7287 040073 000000 000000 7288 040074 175400 000000 7289 040075 200420 000000 7290 040076 000000 000000 7291 040077 174400 000000 7292 040100 200410 000000 7293 040101 000000 000000 7294 040102 173400 000000 7295 040103 200404 000000 7296 040104 000000 000000 7297 040105 172400 000000 7298 040106 200402 000000 7299 040107 000000 000000 7300 040110 171400 000000 7301 040111 200401 000000 7302 040112 000000 000000 7303 040113 170400 000000 7304 040114 200400 400000 7305 040115 000000 000000 7306 040116 167400 000000 7307 040117 200400 200000 7308 040120 000000 000000 7309 040121 166400 000000 7310 040122 200400 100000 7311 040123 000000 000000 7312 040124 165400 000000 7313 040125 200400 040000 7314 040126 000000 000000 7315 040127 164400 000000 7316 040130 200400 020000 7317 040131 000000 000000 7318 040132 163400 000000 7319 040133 200400 010000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-1 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0169 7320 040134 000000 000000 7321 040135 162400 000000 7322 040136 200400 004000 7323 040137 000000 000000 7324 040140 161400 000000 7325 040141 200400 002000 7326 040142 000000 000000 7327 040143 160400 000000 7328 040144 200400 001000 7329 040145 000000 000000 7330 040146 157400 000000 7331 040147 200400 000400 7332 040150 000000 000000 7333 040151 156400 000000 7334 040152 200400 000200 7335 040153 000000 000000 7336 040154 155400 000000 7337 040155 200400 000100 7338 040156 000000 000000 7339 040157 154400 000000 7340 040160 200400 000040 7341 040161 000000 000000 7342 040162 153400 000000 7343 040163 200400 000020 7344 040164 000000 000000 7345 040165 152400 000000 7346 040166 200400 000010 7347 040167 000000 000000 7348 040170 151400 000000 7349 040171 200400 000004 7350 040172 000000 000000 7351 040173 150400 000000 7352 040174 200400 000002 7353 040175 000000 000000 7354 040176 147400 000000 7355 040177 200400 000001 7356 040200 000000 000000 7357 040201 146400 000000 7358 040202 200400 000000 7359 040203 200000 000000 7360 040204 145400 000000 7361 040205 200400 000000 7362 040206 100000 000000 7363 040207 144400 000000 7364 040210 200400 000000 7365 040211 040000 000000 7366 040212 143400 000000 7367 040213 200400 000000 7368 040214 020000 000000 7369 040215 142400 000000 7370 040216 200400 000000 7371 040217 010000 000000 7372 040220 141400 000000 7373 040221 200400 000000 7374 040222 004000 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-2 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0170 7375 040223 140400 000000 7376 040224 200400 000000 7377 040225 002000 000000 7378 040226 137400 000000 7379 040227 200400 000000 7380 040230 001000 000000 7381 040231 136400 000000 7382 040232 200400 000000 7383 040233 000400 000000 7384 040234 135400 000000 7385 040235 200400 000000 7386 040236 000200 000000 7387 040237 134400 000000 7388 040240 200400 000000 7389 040241 000100 000000 7390 040242 133400 000000 7391 040243 200400 000000 7392 040244 000040 000000 7393 040245 132400 000000 7394 040246 200400 000000 7395 040247 000020 000000 7396 040250 131400 000000 7397 040251 200400 000000 7398 040252 000010 000000 7399 040253 130400 000000 7400 040254 200400 000000 7401 040255 000004 000000 7402 040256 127400 000000 7403 040257 200400 000000 7404 040260 000002 000000 7405 040261 126400 000000 7406 040262 200400 000000 7407 040263 000001 000000 7408 040264 125400 000000 7409 040265 200400 000000 7410 040266 000000 400000 7411 040267 124400 000000 7412 040270 200400 000000 7413 040271 000000 200000 7414 040272 123400 000000 7415 040273 200400 000000 7416 040274 000000 100000 7417 040275 122400 000000 7418 040276 200400 000000 7419 040277 000000 040000 7420 040300 121400 000000 7421 040301 200400 000000 7422 040302 000000 020000 7423 040303 120400 000000 7424 040304 200400 000000 7425 040305 000000 010000 7426 040306 117400 000000 7427 040307 200400 000000 7428 040310 000000 004000 7429 040311 116400 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-3 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0171 7430 040312 200400 000000 7431 040313 000000 002000 7432 040314 115400 000000 7433 040315 200400 000000 7434 040316 000000 001000 7435 040317 114400 000000 7436 040320 200400 000000 7437 040321 000000 000400 7438 040322 113400 000000 7439 040323 200400 000000 7440 040324 000000 000200 7441 040325 112400 000000 7442 040326 200400 000000 7443 040327 000000 000100 7444 040330 111400 000000 7445 040331 200400 000000 7446 040332 000000 000040 7447 040333 110400 000000 7448 040334 200400 000000 7449 040335 000000 000020 7450 040336 107400 000000 7451 040337 200400 000000 7452 040340 000000 000010 7453 040341 106400 000000 7454 040342 200400 000000 7455 040343 000000 000004 7456 040344 105400 000000 7457 040345 200400 000000 7458 040346 000000 000002 7459 040347 104400 000000 7460 040350 200400 000000 7461 040351 000000 000001 7462 040352 103400 000000 7463 040353 600377 777777 7464 040354 777777 777777 7465 040355 000000 000000 7466 040356 000000 000000 7467 040357 377777 777777 7468 040360 600577 777777 7469 040361 777777 777777 7470 040362 601377 777777 7471 040363 377777 777776 7472 040364 600677 777777 7473 040365 777777 777777 7474 040366 602377 777777 7475 040367 377777 777774 7476 040370 600737 777777 7477 040371 777777 777777 7478 040372 603377 777777 7479 040373 377777 777770 7480 040374 600757 777777 7481 040375 777777 777777 7482 040376 604377 777777 7483 040377 377777 777760 7484 040400 600767 777777 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-4 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0172 7485 040401 777777 777777 7486 040402 605377 777777 7487 040403 377777 777740 7488 040404 600773 777777 7489 040405 777777 777777 7490 040406 606377 777777 7491 040407 377777 777700 7492 040410 600775 777777 7493 040411 777777 777777 7494 040412 607377 777777 7495 040413 377777 777600 7496 040414 600776 777777 7497 040415 777777 777777 7498 040416 610377 777777 7499 040417 377777 777400 7500 040420 600777 377777 7501 040421 777777 777777 7502 040422 611377 777777 7503 040423 377777 777000 7504 040424 600777 577777 7505 040425 777777 777777 7506 040426 612377 777777 7507 040427 377777 776000 7508 040430 600777 677777 7509 040431 777777 777777 7510 040432 613377 777777 7511 040433 377777 774000 7512 040434 600777 737777 7513 040435 777777 777777 7514 040436 614377 777777 7515 040437 377777 770000 7516 040440 600777 757777 7517 040441 777777 777777 7518 040442 615377 777777 7519 040443 377777 760000 7520 040444 600777 767777 7521 040445 777777 777777 7522 040446 616377 777777 7523 040447 377777 740000 7524 040450 600777 773777 7525 040451 777777 777777 7526 040452 617377 777777 7527 040453 377777 700000 7528 040454 600777 775777 7529 040455 777777 777777 7530 040456 620377 777777 7531 040457 377777 600000 7532 040460 600777 776777 7533 040461 777777 777777 7534 040462 621377 777777 7535 040463 377777 400000 7536 040464 600777 777377 7537 040465 777777 777777 7538 040466 622377 777777 7539 040467 377777 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-5 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0173 7540 040470 600777 777577 7541 040471 777777 777777 7542 040472 623377 777777 7543 040473 377776 000000 7544 040474 600777 777677 7545 040475 777777 777777 7546 040476 624377 777777 7547 040477 377774 000000 7548 040500 600777 777737 7549 040501 777777 777777 7550 040502 625377 777777 7551 040503 377770 000000 7552 040504 600777 777757 7553 040505 777777 777777 7554 040506 626377 777777 7555 040507 377760 000000 7556 040510 600777 777767 7557 040511 777777 777777 7558 040512 627377 777777 7559 040513 377740 000000 7560 040514 600777 777773 7561 040515 777777 777777 7562 040516 630377 777777 7563 040517 377700 000000 7564 040520 600777 777775 7565 040521 777777 777777 7566 040522 631377 777777 7567 040523 377600 000000 7568 040524 600777 777776 7569 040525 777777 777777 7570 040526 632377 777777 7571 040527 377400 000000 7572 040530 600777 777777 7573 040531 577777 777777 7574 040532 633377 777777 7575 040533 377000 000000 7576 040534 600777 777777 7577 040535 677777 777777 7578 040536 634377 777777 7579 040537 376000 000000 7580 040540 600777 777777 7581 040541 737777 777777 7582 040542 635377 777777 7583 040543 374000 000000 7584 040544 600777 777777 7585 040545 757777 777777 7586 040546 636377 777777 7587 040547 370000 000000 7588 040550 600777 777777 7589 040551 767777 777777 7590 040552 637377 777777 7591 040553 360000 000000 7592 040554 600777 777777 7593 040555 773777 777777 7594 040556 640377 777777 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-6 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0174 7595 040557 340000 000000 7596 040560 600777 777777 7597 040561 775777 777777 7598 040562 641377 777777 7599 040563 300000 000000 7600 040564 600777 777777 7601 040565 776777 777777 7602 040566 642377 777777 7603 040567 600777 777777 7604 040570 777377 777777 7605 040571 643377 777777 7606 040572 600777 777777 7607 040573 777577 777777 7608 040574 644377 777776 7609 040575 600777 777777 7610 040576 777677 777777 7611 040577 645377 777774 7612 040600 600777 777777 7613 040601 777737 777777 7614 040602 646377 777770 7615 040603 600777 777777 7616 040604 777757 777777 7617 040605 647377 777760 7618 040606 600777 777777 7619 040607 777767 777777 7620 040610 650377 777740 7621 040611 600777 777777 7622 040612 777773 777777 7623 040613 651377 777700 7624 040614 600777 777777 7625 040615 777775 777777 7626 040616 652377 777600 7627 040617 600777 777777 7628 040620 777776 777777 7629 040621 653377 777400 7630 040622 600777 777777 7631 040623 777777 377777 7632 040624 654377 777000 7633 040625 600777 777777 7634 040626 777777 577777 7635 040627 655377 776000 7636 040630 600777 777777 7637 040631 777777 677777 7638 040632 656377 774000 7639 040633 600777 777777 7640 040634 777777 737777 7641 040635 657377 770000 7642 040636 600777 777777 7643 040637 777777 757777 7644 040640 660377 760000 7645 040641 600777 777777 7646 040642 777777 767777 7647 040643 661377 740000 7648 040644 600777 777777 7649 040645 777777 773777 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-7 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0175 7650 040646 662377 700000 7651 040647 600777 777777 7652 040650 777777 775777 7653 040651 663377 600000 7654 040652 600777 777777 7655 040653 777777 776777 7656 040654 664377 400000 7657 040655 600777 777777 7658 040656 777777 777377 7659 040657 665377 000000 7660 040660 600777 777777 7661 040661 777777 777577 7662 040662 666376 000000 7663 040663 600777 777777 7664 040664 777777 777677 7665 040665 667374 000000 7666 040666 600777 777777 7667 040667 777777 777737 7668 040670 670370 000000 7669 040671 600777 777777 7670 040672 777777 777757 7671 040673 671360 000000 7672 040674 600777 777777 7673 040675 777777 777767 7674 040676 672340 000000 7675 040677 600777 777777 7676 040700 777777 777773 7677 040701 673300 000000 7678 040702 600777 777777 7679 040703 777777 777775 7680 040704 674200 000000 7681 040705 600777 777777 7682 040706 777777 777776 7683 040707 674400 000000 7684 040710 200777 777777 7685 040711 777777 777777 7686 040712 200000 000000 7687 040713 400000 777777 7688 040714 000600 000000 7689 040715 000000 000000 7690 040716 000400 000000 7691 040717 000000 000000 7692 040720 001500 000000 7693 040721 377000 000000 7694 040722 000000 000000 7695 040723 377600 000000 7696 040724 000000 000000 7697 040725 600400 000000 7698 040726 000000 000000 7699 040727 177400 000000 7700 040730 000000 000000 7701 040731 200400 000000 7702 040732 000000 000000 7703 040733 205400 000000 7704 040734 000000 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-8 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0176 7705 040735 205410 000000 7706 040736 205600 000000 7707 040737 000000 000000 7708 040740 205610 000000 7709 040741 200700 000000 7710 040742 000000 000000 7711 040743 201600 000000 7712 040744 202400 000000 7713 040745 000000 000000 7714 040746 202500 000000 7715 040747 204400 000000 7716 040750 000000 000000 7717 040751 204420 000000 7718 040752 210400 000000 7719 040753 000000 000000 7720 040754 210401 000000 7721 040755 220400 000000 7722 040756 000000 000000 7723 040757 220400 002000 7724 040760 240400 000000 7725 040761 000000 000000 7726 040762 300400 000000 7727 040763 000000 000000 7728 040764 576400 000000 7729 040765 205604 000000 7730 040766 201000 000000 7731 040767 000000 000000 7732 040770 202000 000000 7733 040771 000000 000000 7734 040772 204000 000000 7735 040773 000000 000000 7736 040774 207000 000000 7737 040775 000000 000000 7738 040776 210000 000000 7739 040777 000000 000000 7740 041000 214000 000000 7741 041001 000000 000000 7742 041002 220000 000000 7743 041003 000000 000000 7744 041004 225000 000000 7745 041005 000000 000000 7746 041006 240000 000000 7747 041007 000000 000000 7748 041010 246000 000000 7749 041011 000000 000000 7750 041012 300000 000000 7751 041013 000000 000000 7752 041014 307000 000000 7753 041015 000000 000000 7754 041016 200000 000000 7755 041017 000000 000000 7756 041020 203000 000000 7757 041021 000000 000000 7758 041022 206000 000000 7759 041023 000000 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-9 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0177 7760 041024 400200 000000 7761 041025 000000 000000 7762 041026 377400 000000 7763 041027 000000 000000 7764 041030 401400 000000 7765 041031 201700 000000 7766 041032 577600 000000 7767 041033 000000 000000 7768 041034 577200 000000 7769 041035 000000 000000 7770 041036 576400 000000 7771 041037 000000 000000 7772 041040 201420 000000 7773 041041 200400 000077 7774 041042 000000 000000 7775 041043 206400 000000 7776 041044 000000 000000 7777 041045 206404 000000 7778 041046 030400 000003 7779 041047 000000 000000 7780 041050 032400 000000 7781 041051 000000 000000 7782 041052 032500 000000 7783 041053 201600 000000 7784 041054 000000 000000 7785 041055 577400 000003 7786 041056 000000 000000 7787 041057 201600 000001 7788 041060 200400 000003 7789 041061 000000 000000 7790 041062 200400 777777 7791 041063 000000 000000 7792 041064 202500 177777 7793 041065 200200 000001 7794 041066 000000 000000 7795 041067 200200 000002 7796 041070 000000 000000 7797 041071 200200 000004 7798 041072 000000 000000 7799 041073 200200 000010 7800 041074 000000 000000 7801 041075 200200 000020 7802 041076 000000 000000 7803 041077 200200 000040 7804 041100 000000 000000 7805 041101 200200 000100 7806 041102 000000 000000 7807 041103 200200 000200 7808 041104 000000 000000 7809 041105 200200 000400 7810 041106 000000 000000 7811 041107 200200 001000 7812 041110 000000 000000 7813 041111 172400 000000 7814 041112 000000 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-10 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0178 7815 041113 201402 000000 7816 041114 173400 000000 7817 041115 000000 000000 7818 041116 201404 000000 7819 041117 174400 000000 7820 041120 000000 000000 7821 041121 201410 000000 7822 041122 175400 000000 7823 041123 000000 000000 7824 041124 176400 000000 7825 041125 000000 000000 7826 041126 201440 000000 7827 041127 201500 000000 7828 041130 202600 000000 7829 041131 000000 000000 7830 041132 202700 000000 7831 041133 203400 000000 7832 041134 200100 000000 7833 041135 000000 000000 7834 041136 200040 000000 7835 041137 000000 000000 7836 041140 200020 000000 7837 041141 000000 000000 7838 041142 576200 000000 7839 041143 576300 000000 7840 041144 601400 000000 7841 041145 000000 000000 7842 041146 576340 000000 7843 041147 200000 000001 7844 041150 000000 000000 7845 041151 200000 000002 7846 041152 000000 000000 7847 041153 200000 000004 7848 041154 000000 000000 7849 041155 200000 000010 7850 041156 000000 000000 7851 041157 200000 000020 7852 041160 000000 000000 7853 041161 200000 000040 7854 041162 000000 000000 7855 041163 200000 000100 7856 041164 000000 000000 7857 041165 200000 000200 7858 041166 000000 000000 7859 041167 200000 000400 7860 041170 000000 000000 7861 041171 200000 001000 7862 041172 000000 000000 7863 041173 200000 002000 7864 041174 000000 000000 7865 041175 200000 004000 7866 041176 000000 000000 7867 041177 200000 010000 7868 041200 000000 000000 7869 041201 200000 020000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-11 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0179 7870 041202 000000 000000 7871 041203 200000 040000 7872 041204 000000 000000 7873 041205 200000 100000 7874 041206 000000 000000 7875 041207 200000 200000 7876 041210 000000 000000 7877 041211 200000 400000 7878 041212 000000 000000 7879 041213 200001 000000 7880 041214 000000 000000 7881 041215 200002 000000 7882 041216 000000 000000 7883 041217 200004 000000 7884 041220 000000 000000 7885 041221 200010 000000 7886 041222 000000 000000 7887 041223 777700 000000 7888 041224 000000 000000 7889 041225 400400 000000 7890 041226 200777 777777 7891 041227 000000 000000 7892 041230 203400 000000 7893 041231 000000 000000 7894 041232 207400 000000 7895 041233 000000 000000 7896 041234 211400 000000 7897 041235 000000 000000 7898 041236 212400 000000 7899 041237 000000 000000 7900 041240 213400 000000 7901 041241 000000 000000 7902 041242 214400 000000 7903 041243 000000 000000 7904 041244 215400 000000 7905 041245 000000 000000 7906 041246 216400 000000 7907 041247 000000 000000 7908 041250 217400 000000 7909 041251 000000 000000 7910 041252 221400 000000 7911 041253 000000 000000 7912 041254 222400 000000 7913 041255 000000 000000 7914 041256 223400 000000 7915 041257 000000 000000 7916 041260 224400 000000 7917 041261 000000 000000 7918 041262 225400 000000 7919 041263 000000 000000 7920 041264 226400 000000 7921 041265 000000 000000 7922 041266 227400 000000 7923 041267 000000 000000 7924 041270 230400 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-12 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0180 7925 041271 000000 000000 7926 041272 231400 000000 7927 041273 000000 000000 7928 041274 200200 000000 7929 041275 000000 000000 7930 041276 232400 000000 7931 041277 000000 000000 7932 041300 233400 000000 7933 041301 000000 000000 7934 041302 200000 000003 7935 041303 000000 000000 7936 041304 200000 000005 7937 041305 000000 000000 7938 041306 200000 000011 7939 041307 000000 000000 7940 041310 200000 000021 7941 041311 000000 000000 7942 041312 200000 000041 7943 041313 000000 000000 7944 041314 200000 000101 7945 041315 000000 000000 7946 041316 200000 000201 7947 041317 000000 000000 7948 041320 200000 000401 7949 041321 000000 000000 7950 041322 200000 001001 7951 041323 000000 000000 7952 041324 200000 002001 7953 041325 000000 000000 7954 041326 200000 004001 7955 041327 000000 000000 7956 041330 200000 010001 7957 041331 000000 000000 7958 041332 200000 020001 7959 041333 000000 000000 7960 041334 200000 040001 7961 041335 000000 000000 7962 041336 200000 100001 7963 041337 000000 000000 7964 041340 200000 200001 7965 041341 000000 000000 7966 041342 200000 400001 7967 041343 000000 000000 7968 041344 000000 034567 7969 041345 376777 777777 7970 041346 777777 777776 7971 041347 000000 034610 7972 041350 000000 034627 7973 041351 000200 000000 7974 041352 000000 000000 7975 041353 000000 034650 7976 041354 000177 777777 7977 041355 777777 777777 7978 041356 000000 034667 7979 041357 400400 000000 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-13 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0181 7980 041360 000000 000000 7981 041361 401000 000000 7982 041362 000000 000002 7983 041363 400000 000000 7984 041364 000000 034710 7985 041365 777400 000000 7986 041366 000000 034727 7987 041367 777600 000000 7988 041370 000000 000000 7989 041371 000000 034750 7990 041372 777600 000000 7991 041373 000000 000001 7992 041374 000000 034773 7993 041375 204770 000000 7994 041376 200477 777775 7995 041377 000000 000000 7996 041400 202660 000000 7997 041401 000000 035071 7998 041402 400400 000000 7999 041403 000000 000001 8000 041404 000000 035112 8001 041405 000000 035131 8002 041406 000777 777777 8003 041407 777777 777777 8004 041410 000377 777777 8005 041411 777777 777777 8006 041412 000000 035152 8007 041413 000000 035171 8008 041414 377377 777777 8009 041415 777777 777777 8010 041416 000000 035212 8011 041417 000000 035231 8012 041420 777000 000000 8013 041421 000000 000000 8014 041422 777400 000000 8015 041423 000000 000000 8016 041424 000000 035252 8017 041425 777000 000000 8018 041426 000000 000001 8019 041427 000000 035275 8020 041430 201400 000000 8021 041431 400000 777777 8022 041432 376400 000000 8023 041433 237400 000000 8024 041434 277400 000000 8025 041435 575400 000000 8026 041436 000000 000000 8027 041437 177777 777777 8028 041440 200777 777776 8029 041441 000000 000000 8030 041442 177777 777776 8031 041443 200777 777775 8032 041444 000000 000000 8033 041445 177777 777775 8034 041446 200777 777774 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-14 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0182 8035 041447 000000 000000 8036 041450 177777 777774 8037 041451 501700 000000 8038 041452 000000 000000 8039 041453 500400 000000 8040 041454 000000 000000 8041 041455 374100 000000 8042 041456 372400 000000 8043 041457 502700 000000 8044 041460 000000 000000 8045 041461 373100 000000 8046 041462 371400 000000 8047 041463 503700 000000 8048 041464 000000 000000 8049 041465 372100 000000 8050 041466 370400 000000 8051 041467 504700 000000 8052 041470 000000 000000 8053 041471 371100 000000 8054 041472 367400 000000 8055 041473 505700 000000 8056 041474 000000 000000 8057 041475 370100 000000 8058 041476 366400 000000 8059 041477 177200 000000 8060 041500 177100 000000 8061 041501 177040 000000 8062 041502 177020 000000 8063 041503 177010 000000 8064 041504 177004 000000 8065 041505 177002 000000 8066 041506 500700 000000 8067 041507 000000 000000 8068 041510 503400 000000 8069 041511 500770 000000 8070 041512 000000 000000 8071 041513 501770 000000 8072 041514 506400 000000 8073 041515 200775 000000 8074 041516 000000 000000 8075 041517 200772 011000 8076 041520 200774 000000 8077 041521 000000 000000 8078 041522 200770 020000 8079 041523 200773 000000 8080 041524 000000 000000 8081 041525 200766 031000 8082 041526 177477 000000 8083 041527 000000 000000 8084 041530 177427 100000 8085 041531 000000 001400 8086 041532 200777 777773 8087 041533 000000 000000 8088 041534 200777 777772 8089 041535 000000 002400 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-15 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0183 8090 041536 500000 777777 8091 041537 000000 000000 8092 041540 200777 000000 8093 041541 000000 000000 8094 041542 500001 776777 8095 041543 500000 777770 8096 041544 000000 000000 8097 041545 500001 776770 8098 041546 376776 001001 8099 041547 377000 000400 8100 041550 500000 777776 8101 041551 000000 000000 8102 041552 376776 001003 8103 041553 376000 002000 8104 041554 177000 000003 8105 041555 146777 777777 8106 041556 177700 000156 8107 041557 200400 000076 8108 041560 000000 000000 8109 041561 177700 000154 8110 041562 200400 000075 8111 041563 000000 000000 8112 041564 177700 000152 8113 041565 600400 000077 8114 041566 000000 000000 8115 041567 177660 000000 8116 041570 000000 000000 8117 041571 602120 000152 8118 041572 120000 000000 8119 041573 600400 000076 8120 041574 000000 000000 8121 041575 177600 000000 8122 041576 000000 000000 8123 041577 602200 000135 8124 041600 400000 000001 8125 041601 000000 000000 8126 041602 000000 036473 8127 041603 201777 777777 8128 041604 777777 777777 8129 041605 000000 036514 8130 041606 000000 036533 8131 041607 001400 000000 8132 041610 000000 000000 8133 041611 000000 036554 8134 041612 000000 036573 8135 041613 576000 000000 8136 041614 000000 000001 8137 041615 000000 036614 8138 041616 000000 036633 8139 041617 776400 000000 8140 041620 000000 000000 8141 041621 000000 036654 8142 041622 000000 036677 8143 041623 200400 000000 8144 041624 400000 777777 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-16 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0184 8145 041625 200740 000000 8146 041626 000000 000000 8147 041627 201740 000000 8148 041630 576252 525252 8149 041631 252525 252525 8150 041632 600600 000000 8151 041633 000000 000000 8152 041634 377400 777777 8153 041635 000000 000000 8154 041636 577400 777777 8155 041637 000000 000000 8156 041640 777375 773771 8157 041641 373773 776004 8158 041642 577775 000000 8159 041643 000000 000000 8160 041644 577777 000000 8161 041645 000000 000000 8162 041646 577774 000000 8163 041647 000000 000000 8164 041650 210777 777777 8165 041651 000000 000000 8166 041652 170750 000000 8167 041653 000000 000000 8168 041654 221414 456123 8169 041655 150726 020623 8170 041656 170555 000000 8171 041657 000000 000000 8172 041660 221547 063714 8173 041661 314631 463146 8174 041662 577000 555555 8175 041663 000000 000000 8176 041664 576000 555555 8177 041665 210777 777777 8178 041666 777777 777777 8179 041667 221547 063715 8180 041670 200263 431746 8181 041671 210777 777775 8182 041672 000000 000000 8183 041673 221547 063713 8184 041674 145545 545546 8185 041675 377400 000000 8186 041676 555000 000000 8187 041677 100777 000000 8188 041700 000000 000000 8189 041701 077400 400400 8190 041702 355355 355355 8191 041703 201400 000001 8192 041704 200000 003000 8193 041705 170555 600000 8194 041706 000000 000000 8195 041707 221546 272702 8196 041710 301417 730634 8197 041711 170557 000000 8198 041712 000000 000000 8199 041713 221545 111740 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-17 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0185 8200 041714 234200 262445 8201 041715 170560 000000 8202 041716 000000 000000 8203 041717 221544 131025 8204 041720 220544 131026 8205 041721 200200 200200 8206 041722 376400 000000 8207 041723 000000 000000 8208 041724 076400 400400 8209 041725 375400 000000 8210 041726 000000 000000 8211 041727 075400 400400 8212 041730 374400 000000 8213 041731 000000 000000 8214 041732 074400 400400 8215 041733 373400 000000 8216 041734 000000 000000 8217 041735 073400 400400 8218 041736 372400 000000 8219 041737 000000 000000 8220 041740 072400 400400 8221 041741 210777 000000 8222 041742 000000 000000 8223 041743 170400 400400 8224 041744 371400 000000 8225 041745 000000 000000 8226 041746 071400 400400 8227 041747 370400 000000 8228 041750 000000 000000 8229 041751 070400 400400 8230 041752 367400 000000 8231 041753 000000 000000 8232 041754 067400 400400 8233 041755 373400 000000 8234 041756 200777 000000 8235 041757 073400 400401 8236 041760 001400 400401 8237 041761 001400 400400 8238 041762 000000 037430 8239 041763 376777 777777 8240 041764 777777 777777 8241 041765 000000 037451 8242 041766 000000 037470 8243 041767 000000 037511 8244 041770 000000 037530 8245 041771 000000 037551 8246 041772 000000 037570 8247 041773 000000 037611 8248 041774 000000 037630 8249 041775 000000 037647 8250 041776 201200 000000 8251 041777 000000 000000 8252 042000 76 64 45 63 64 00 8253 042001 60 41 63 63 00 43 8254 042002 57 65 56 64 00 35 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-18 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0186 8255 042003 00 77 00 00 00 00 8256 042004 76 60 43 00 35 00 8257 042005 00 00 77 00 00 00 8258 042006 76 62 45 63 65 54 8259 042007 64 00 00 35 00 77 8260 042010 76 46 41 65 54 64 8261 042011 00 56 65 55 42 45 8262 042012 62 00 35 00 77 00 8263 042013 103 050 101 103 051 8264 042014 040 106 101 111 114 8265 042015 105 104 000 000 000 8266 042016 103 050 101 103 053 8267 042017 061 051 040 106 101 8268 042020 111 114 105 104 000 8269 042021 103 050 105 051 040 8270 042022 106 101 111 114 105 8271 042023 104 000 000 000 000 8272 042024 103 050 105 053 061 8273 042025 051 040 106 101 111 8274 042026 114 105 104 000 000 8275 042027 103 050 103 050 101 8276 042030 103 122 051 051 040 8277 042031 106 101 111 114 105 8278 042032 104 000 000 000 000 8279 042033 103 050 103 050 101 8280 042034 103 122 053 061 051 8281 042035 051 040 106 101 111 8282 042036 114 105 104 000 000 8283 042037 103 050 103 050 101 8284 042040 103 114 051 051 040 8285 042041 106 101 111 114 105 8286 042042 104 000 000 000 000 8287 042043 103 050 103 050 105 8288 042044 051 051 040 106 101 8289 042045 111 114 105 104 000 8290 042046 106 114 101 107 040 8291 042047 106 101 111 114 105 8292 042050 104 000 000 000 000 8293 042051 76 45 70 43 45 45 8294 042052 44 45 44 00 41 54 8295 042053 54 57 67 45 44 00 8296 042054 45 62 62 57 62 63 8297 042055 76 77 00 00 00 00 8298 LIST 8299 042056 000000 000000 ENDSLD: 0 8300 8301 IFDEF DEBUG,< 8302 042057 PATCH: BLOCK DEBUG ;PATCHING AREA 8303 > 8304 8305 ;PROGRAM VARIABLES 8306 042157 VAR 8307 8308 IFDEF PGMEND,< 8309 042167 000000 000000 END: 0 DSKCE DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #5, VER 0,1 MACRO %53(1020) 10:47 21-Jun-78 Page 1-19 STOR KSM 28-Mar-78 16:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0187 8310 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 042170 CPU TIME USED 00:38.443 38P CORE USED ABORT 577# AC 1158# 1160 1161 1162 1163 1168 1170 1172 1173 1174 1175 1176 1191 1193 SEQ 0188 1195 1196 1197 1198 1199 1205 1207 1209 1210 1211 1212 1213 1219 1221 1223 1224 1225 1226 1227 1233 1235 1237 1238 1239 1240 1241 1247 1249 1251 1252 1253 1254 1255 1261 1263 1265 1266 1267 1268 1269 1275 1277 1279 1280 1281 1282 1283 1289 1291 1293 1294 1295 1296 1297 1312 1314 1316 1317 1318 1319 1320 1326 1328 1330 1331 1332 1333 1334 1340 1342 1344 1345 1346 1347 1348 1354 1356 1358 1359 1360 1361 1362 1368 1370 1372 1373 1374 1375 1376 1382 1384 1386 1387 1388 1389 1390 1396 1398 1400 1401 1402 1403 1404 1410 1412 1414 1415 1416 1417 1418 1424 1426 1428 1429 1430 1431 1432 1438 1440 1442 1443 1444 1445 1446 1452 1454 1456 1457 1458 1459 1460 1466 1468 1470 1471 1472 1473 1474 1480 1482 1484 1485 1486 1487 1488 1494 1496 1498 1499 1500 1501 1502 1508 1510 1512 1513 1514 1515 1516 1522 1524 1526 1527 1528 1529 1530 1536 1538 1540 1541 1542 1543 1544 1550 1552 1554 1555 1556 1557 1558 1573 1575 1577 1578 1579 1580 1581 1587 1589 1591 1592 1593 1594 1595 1601 1603 1605 1606 1607 1608 1609 1615 1617 1619 1620 1621 1622 1623 1629 1631 1633 1634 1635 1636 1637 1643 1645 1647 1648 1649 1650 1651 1657 1659 1661 1662 1663 1664 1665 1671 1673 1675 1676 1677 1678 1679 1685 1687 1689 1690 1691 1692 1693 1699 1701 1703 1704 1705 1706 1707 1713 1715 1717 1718 1719 1720 1721 1727 1729 1731 1732 1733 1734 1735 1741 1743 1745 1746 1747 1748 1749 1755 1757 1759 1760 1761 1762 1763 1769 1771 1773 1774 1775 1776 1777 1783 1785 1787 1788 1789 1790 1791 1797 1799 1801 1802 1803 1804 1805 1820 1822 1824 1825 1826 1827 1828 1834 1836 1838 1839 1840 1841 1842 1848 1850 1852 1853 1854 1855 1856 1862 1864 1866 1867 1868 1869 1870 1876 1878 1880 1881 1882 1883 1884 1890 1892 1894 1895 1896 1897 1898 1904 1906 1908 1909 1910 1911 1912 1918 1920 1922 1923 1924 1925 1926 1932 1934 1936 1937 1938 1939 1940 1946 1948 1950 1951 1952 1953 1954 1960 1962 1964 1965 1966 1967 1968 1974 1976 1978 1979 1980 1981 1982 1988 1990 1992 1993 1994 1995 1996 2002 2004 2006 2007 2008 2009 2010 2016 2018 2020 2021 2022 2023 2024 2030 2032 2034 2035 2036 2037 2038 2044 2046 2048 2049 2050 2051 2052 2058 2060 2062 2063 2064 2065 2066 2087 2089 2091 2092 2093 2094 2095 2103 2105 2107 2108 2109 2110 2111 2119 2121 2123 2124 2125 2126 2127 2135 2137 2139 2140 2141 2142 2143 2151 2153 2155 2156 2157 2158 2159 2167 2169 2171 2172 2173 2174 2175 2183 2185 2187 2188 2189 2190 2191 2199 2201 2203 2204 2205 2206 2207 2215 2217 2219 2220 2221 2222 2223 2240 2242 2244 2245 2246 2247 2248 2255 2257 2259 2260 2261 2262 2263 2270 2272 2274 2275 2276 2277 2278 2285 2287 2289 2290 2291 2292 2293 2300 2302 2304 2305 2306 2307 2308 2315 2317 2319 2320 2321 2322 2323 2330 2332 2334 2335 2336 2337 2338 2345 2347 2349 2350 2351 2352 2353 2360 2362 2364 2365 2366 2367 2368 2375 2377 2379 2380 2381 2382 2383 2400 2402 2404 2405 2406 2407 2408 2415 2417 2419 2420 2421 2422 2423 2430 2432 2434 2435 2436 2437 2438 2445 2447 2449 2450 2451 2452 2453 2460 2462 2464 2465 2466 2467 2468 2475 2477 2479 2480 2481 2482 2483 2490 2492 2494 2495 2496 2497 2498 2505 2507 2509 2510 2511 2512 2513 2529 2531 2533 2534 2535 2536 2537 2544 2546 2548 2549 2550 2551 2552 2559 2561 2563 2564 2565 2566 2567 2574 2576 2578 2579 2580 2581 2582 2589 2591 2593 2594 2595 2596 2597 2604 2606 2608 2609 2610 2611 2612 2619 2621 2623 2624 2625 2626 2627 2634 2636 2638 2639 2640 2641 2642 2649 2651 2653 2654 2655 2656 2657 2674 2676 2678 2679 2680 2681 2682 2689 2691 2693 2694 2695 2696 2697 2704 2706 2708 2709 2710 2711 2712 2719 2721 2723 2724 2725 2726 2727 2734 2736 2738 2739 2740 2741 2742 2749 2751 2753 2754 2755 2756 2757 2764 2766 2768 2769 2770 2771 2772 2779 2781 2783 2784 2785 2786 2787 2804 2806 2808 2809 2810 2811 2812 2819 2821 SEQ 0189 2823 2824 2825 2826 2827 2834 2836 2838 2839 2840 2841 2842 2849 2851 2853 2854 2855 2856 2857 2864 2866 2868 2869 2870 2871 2872 2879 2881 2883 2884 2885 2886 2887 2894 2896 2898 2899 2900 2901 2902 2909 2911 2913 2914 2915 2916 2917 2924 2926 2928 2929 2930 2931 2932 2939 2941 2943 2944 2945 2946 2947 2965 2967 2969 2970 2971 2972 2973 2980 2982 2984 2985 2986 2987 2988 2995 2997 2999 3000 3001 3002 3003 3010 3012 3014 3015 3016 3017 3018 3025 3027 3029 3030 3031 3032 3033 3040 3042 3044 3045 3046 3047 3048 3055 3057 3059 3060 3061 3062 3063 3070 3072 3074 3075 3076 3077 3078 3084 3086 3088 3089 3090 3091 3092 3093 3096 3098 3100 3101 3102 3103 3104 3107 3109 3111 3112 3113 3114 3115 3118 3120 3122 3123 3124 3125 3126 3129 3131 3133 3134 3135 3136 3137 3140 3142 3144 3145 3146 3147 3148 3151 3153 3155 3156 3157 3158 3159 3162 3164 3166 3167 3168 3169 3170 3173 3175 3177 3178 3179 3180 3181 3184 3186 3188 3189 3190 3191 3192 3195 3197 3199 3200 3201 3202 3203 3206 3208 3210 3211 3212 3213 3214 3217 3219 3221 3222 3223 3224 3225 3228 3230 3232 3233 3234 3235 3236 3239 3241 3243 3244 3245 3246 3247 3250 3252 3254 3255 3256 3257 3258 3261 3263 3265 3266 3267 3268 3269 3272 3274 3276 3277 3278 3279 3280 3283 3285 3287 3288 3289 3290 3291 3294 3296 3298 3299 3300 3301 3302 3305 3307 3309 3310 3311 3312 3313 3316 3318 3320 3321 3322 3323 3324 3327 3329 3331 3332 3333 3334 3335 3338 3340 3342 3343 3344 3345 3346 3349 3351 3353 3354 3355 3356 3357 3360 3362 3364 3365 3366 3367 3368 3371 3373 3375 3376 3377 3378 3379 3382 3384 3386 3387 3388 3389 3390 3393 3395 3397 3398 3399 3400 3401 3404 3406 3408 3409 3410 3411 3412 3415 3417 3419 3420 3421 3422 3423 3426 3428 3430 3431 3432 3433 3434 3437 3439 3441 3442 3443 3444 3445 3448 3450 3452 3453 3454 3455 3456 3459 3461 3463 3464 3465 3466 3467 3470 3472 3474 3475 3476 3477 3478 3481 3483 3485 3486 3487 3488 3489 3492 3494 3496 3497 3498 3499 3500 3503 3505 3507 3508 3509 3510 3511 3514 3516 3518 3519 3520 3521 3522 3525 3527 3529 3530 3531 3532 3533 3536 3538 3540 3541 3542 3543 3544 3547 3549 3551 3552 3553 3554 3555 3558 3560 3562 3563 3564 3565 3566 3569 3571 3573 3574 3575 3576 3577 3580 3582 3584 3585 3586 3587 3588 3591 3593 3595 3596 3597 3598 3599 3603 3605 3607 3608 3609 3610 3611 3614 3616 3618 3619 3620 3621 3622 3625 3627 3629 3630 3631 3632 3633 3636 3638 3640 3641 3642 3643 3644 3647 3649 3651 3652 3653 3654 3655 3658 3660 3662 3663 3664 3665 3666 3669 3671 3673 3674 3675 3676 3677 3680 3682 3684 3685 3686 3687 3688 3691 3693 3695 3696 3697 3698 3699 3702 3704 3706 3707 3708 3709 3710 3713 3715 3717 3718 3719 3720 3721 3724 3726 3728 3729 3730 3731 3732 3735 3737 3739 3740 3741 3742 3743 3746 3748 3750 3751 3752 3753 3754 3757 3759 3761 3762 3763 3764 3765 3768 3770 3772 3773 3774 3775 3776 3779 3781 3783 3784 3785 3786 3787 3790 3792 3794 3795 3796 3797 3798 3801 3803 3805 3806 3807 3808 3809 3812 3814 3816 3817 3818 3819 3820 3823 3825 3827 3828 3829 3830 3831 3834 3836 3838 3839 3840 3841 3842 3845 3847 3849 3850 3851 3852 3853 3856 3858 3860 3861 3862 3863 3864 3867 3869 3871 3872 3873 3874 3875 3878 3880 3882 3883 3884 3885 3886 3889 3891 3893 3894 3895 3896 3897 3901 3903 3905 3906 3907 3908 3909 3912 3914 3916 3917 3918 3919 3920 3923 3925 3927 3928 3929 3930 3931 3934 3936 3938 3939 3940 3941 3942 3945 3947 3949 3950 3951 3952 3953 3956 3958 3960 3961 3962 3963 3964 3967 3969 3971 3972 3973 3974 3975 3978 3980 3982 3983 3984 3985 3986 3989 3991 3993 3994 3995 3996 3997 4000 4002 4004 4005 4006 4007 4008 4011 4013 4015 4016 4017 4018 4019 4022 4024 4026 4027 4028 4029 4030 4033 4035 4037 4038 4039 4040 4041 4044 4046 4048 4049 4050 4051 4052 4055 4057 4059 4060 4061 4062 4063 4066 SEQ 0190 4068 4070 4071 4072 4073 4074 4077 4079 4081 4082 4083 4084 4085 4088 4090 4092 4093 4094 4095 4096 4099 4101 4103 4104 4105 4106 4107 4110 4112 4114 4115 4116 4117 4118 4121 4123 4125 4126 4127 4128 4129 4132 4134 4136 4137 4138 4139 4140 4143 4145 4147 4148 4149 4150 4151 4154 4156 4158 4159 4160 4161 4162 4165 4167 4169 4170 4171 4172 4173 4176 4178 4180 4181 4182 4183 4184 4187 4189 4191 4192 4193 4194 4195 4198 4200 4202 4203 4204 4205 4206 4209 4211 4213 4214 4215 4216 4217 4220 4222 4224 4225 4226 4227 4228 4231 4233 4235 4236 4237 4238 4239 4242 4244 4246 4247 4248 4249 4250 4253 4255 4257 4258 4259 4260 4261 4264 4266 4268 4269 4270 4271 4272 4275 4277 4279 4280 4281 4282 4283 4286 4288 4290 4291 4292 4293 4294 4297 4299 4301 4302 4303 4304 4305 4308 4310 4312 4313 4314 4315 4316 4319 4321 4323 4324 4325 4326 4327 4330 4332 4334 4335 4336 4337 4338 4341 4343 4345 4346 4347 4348 4349 4352 4354 4356 4357 4358 4359 4360 4363 4365 4367 4368 4369 4370 4371 4374 4376 4378 4379 4380 4381 4382 4385 4387 4389 4390 4391 4392 4393 4396 4398 4400 4401 4402 4403 4404 4407 4409 4411 4412 4413 4414 4415 4418 4420 4422 4423 4424 4425 4426 4429 4431 4433 4434 4435 4436 4437 4440 4442 4444 4445 4446 4447 4448 4451 4453 4455 4456 4457 4458 4459 4462 4464 4466 4467 4468 4469 4470 4473 4475 4477 4478 4479 4480 4481 4484 4486 4488 4489 4490 4491 4492 4495 4497 4499 4500 4501 4502 4503 4506 4508 4510 4511 4512 4513 4514 4517 4519 4521 4522 4523 4524 4525 4528 4530 4532 4533 4534 4535 4536 4539 4541 4543 4544 4545 4546 4547 4550 4552 4554 4555 4556 4557 4558 4561 4563 4565 4566 4567 4568 4569 4572 4574 4576 4577 4578 4579 4580 4583 4585 4587 4588 4589 4590 4591 4594 4596 4598 4599 4600 4601 4602 4605 4607 4609 4610 4611 4612 4613 4616 4618 4620 4621 4622 4623 4624 4627 4629 4631 4632 4633 4634 4635 4638 4640 4642 4643 4644 4645 4646 4649 4651 4653 4654 4655 4656 4657 4660 4662 4664 4665 4666 4667 4668 4671 4673 4675 4676 4677 4678 4679 4682 4684 4686 4687 4688 4689 4690 4693 4695 4697 4698 4699 4700 4701 4704 4706 4708 4709 4710 4711 4712 4715 4717 4719 4720 4721 4722 4723 4726 4728 4730 4731 4732 4733 4734 4737 4739 4741 4742 4743 4744 4745 4748 4750 4752 4753 4754 4755 4756 4759 4761 4763 4764 4765 4766 4767 4770 4772 4774 4775 4776 4777 4778 4781 4783 4785 4786 4787 4788 4789 4792 4794 4796 4797 4798 4799 4800 4803 4805 4807 4808 4809 4810 4811 4814 4816 4818 4819 4820 4821 4822 4825 4827 4829 4830 4831 4832 4833 4836 4838 4840 4841 4842 4843 4844 4847 4849 4851 4852 4853 4854 4855 4858 4860 4862 4863 4864 4865 4866 4869 4871 4873 4874 4875 4876 4877 4880# 4882 4883 4884 4885 4888 4890 4892 4893 4894 4895 4896 4899 4902 4903 4904 4905 4908 4910 4912 4913 4914 4915 4916 4918 4920 4921 4922 4923 4925 4927 4929 4930 4931 4932 4933 4936 4939 4940 4941 4942 4945 4947 4949 4950 4951 4952 4953 4955 4957 4958 4959 4960 4962 4964 4966 4967 4968 4969 4970 4973 4976 4977 4978 4979 4982 4984 4986 4987 4988 4989 4990 4992 4994 4995 4996 4997 4999 5001 5003 5004 5005 5006 5007 5010 5013 5014 5015 5016 5019 5021 5023 5024 5025 5026 5027 5029 5031 5032 5033 5034 5037# 5039 5040 5041 5042 5046 5048 5050 5051 5052 5053 5054 5055 5058 5060 5062 5063 5064 5065 5066 5069 5071 5073 5074 5075 5076 5077 5080 5082 5084 5085 5086 5087 5088 5091 5093 5095 5096 5097 5098 5099 5102 5104 5106 5107 5108 5109 5110 5113 5115 5117 5118 5119 5120 5121 5124 5126 5128 5129 5130 5131 5132 5135# 5137 5138 5139 5140 5143 5145 5147 5148 5149 5150 5151 5154 5157 5158 5159 5160 5163 5165 5167 5168 5169 5170 5171 5173 5175 5176 5177 5178 5180 5182 5184 5185 5186 5187 5188 5191 5194 5195 5196 5197 5200 5202 5204 5205 5206 5207 5208 5210 5212 5213 5214 5215 5217 5219 5221 5222 5223 5224 5225 5228 5231 SEQ 0191 5232 5233 5234 5237 5239 5241 5242 5243 5244 5245 5247 5249 5250 5251 5252 5254 5256 5258 5259 5260 5261 5262 5265 5268 5269 5270 5271 5274 5276 5278 5279 5280 5281 5282 5284 5286 5287 5288 5289 5292# 5294 5295 5296 5297 5301 5303 5305 5306 5307 5308 5309 5310 5313 5315 5317 5318 5319 5320 5321 5324 5326 5328 5329 5330 5331 5332 5335 5337 5339 5340 5341 5342 5343 5346 5348 5350 5351 5352 5353 5354 5357 5359 5361 5362 5363 5364 5365 5368 5370 5372 5373 5374 5375 5376 5379 5381 5383 5384 5385 5386 5387 5390 5392 5394 5395 5396 5397 5398 5401 5403 5405 5406 5407 5408 5409 5412 5414 5416 5417 5418 5419 5420 5423 5425 5427 5428 5429 5430 5431 5434 5436 5438 5439 5440 5441 5442 5445 5447 5449 5450 5451 5452 5453 5456 5458 5460 5461 5462 5463 5464 5467 5469 5471 5472 5473 5474 5475 5478 5480 5482 5483 5484 5485 5486 5489 5491 5493 5494 5495 5496 5497 5500 5502 5504 5505 5506 5507 5508 5511 5513 5515 5516 5517 5518 5519 5522 5524 5526 5527 5528 5529 5530 5534 5536 5538 5539 5540 5541 5542 5545 5547 5549 5550 5551 5552 5553 5556 5558 5560 5561 5562 5563 5564 5567 5569 5571 5572 5573 5574 5575 5578 5580 5582 5583 5584 5585 5586 5589 5591 5593 5594 5595 5596 5597 5600 5602 5604 5605 5606 5607 5608 5611 5613 5615 5616 5617 5618 5619 5622 5624 5626 5627 5628 5629 5630 5633 5635 5637 5638 5639 5640 5641 5644 5646 5648 5649 5650 5651 5652 5655 5657 5659 5660 5661 5662 5663 5666 5668 5670 5671 5672 5673 5674 5677 5679 5683 5684 5685 5686 5687 5689 5690 5691 5692 5697 5699 5703 5704 5705 5706 5707 5709 5710 5711 5712 5717 5719 5723 5724 5725 5726 5727 5729 5730 5731 5732 5737 5739 5743 5744 5745 5746 5747 5749 5750 5751 5752 5757 5759 5763 5764 5765 5766 5767 5769 5770 5771 5772 5777 5779 5783 5784 5785 5786 5787 5789 5790 5791 5792 5797 5799 5803 5804 5805 5806 5807 5809 5810 5811 5812 5817 5819 5823 5824 5825 5826 5827 5829 5830 5831 5832 5837 5839 5843 5844 5845 5846 5847 5849 5850 5851 5852 5857 5859 5863 5864 5865 5866 5867 5869 5870 5871 5872 5877 5879 5883 5884 5885 5886 5887 5889 5890 5891 5892 5897 5899 5903 5904 5905 5906 5907 5909 5910 5911 5912 5917 5919 5923 5924 5925 5926 5927 5929 5930 5931 5932 5937 5939 5943 5944 5945 5946 5947 5949 5950 5951 5952 5957 5959 5961 5962 5963 5964 5965 5968 5970 5972 5973 5974 5975 5976 5979 5981 5983 5984 5985 5986 5987 5990 5992 5994 5995 5996 5997 5998 6001 6003 6005 6006 6007 6008 6009 6012 6014 6016 6017 6018 6019 6020 6023 6025 6027 6028 6029 6030 6031 6034 6036 6038 6039 6040 6041 6042 6045 6047 6049 6050 6051 6052 6053 6056 6058 6060 6061 6062 6063 6064 6067 6069 6071 6072 6073 6074 6075 6078 6080 6082 6083 6084 6085 6086 6089 6091 6093 6094 6095 6096 6097 6100 6102 6106 6107 6108 6109 6110 6112 6113 6114 6115 6120 6122 6124 6125 6126 6127 6128 6131 6133 6135 6136 6137 6138 6139 6142 6144 6146 6147 6148 6149 6150 6153 6155 6157 6158 6159 6160 6161 6164 6166 6168 6169 6170 6171 6172 6175 6177 6179 6180 6181 6182 6183 6186 6188 6190 6191 6192 6193 6194 6197 6199 6201 6202 6203 6204 6205 6208 6210 6212 6213 6214 6215 6216 6219# 6221 6222 6223 6224 6227 6229 6231 6232 6233 6234 6235 6238 6241 6242 6243 6244 6247 6249 6251 6252 6253 6254 6255 6257 6259 6260 6261 6262 6264 6266 6268 6269 6270 6271 6272 6275 6278 6279 6280 6281 6284 6286 6288 6289 6290 6291 6292 6294 6296 6297 6298 6299 6301 6303 6305 6306 6307 6308 6309 6312 6315 6316 6317 6318 6321 6323 6325 6326 6327 6328 6329 6331 6333 6334 6335 6336 6338 6340 6342 6343 6344 6345 6346 6349 6352 6353 6354 6355 6358 6360 6362 6363 6364 6365 6366 6368 6370 6371 6372 6373 6376# 6378 6379 6380 6381 6385 6387 6389 6390 6391 6392 6393 6394 6397 6399 6401 6402 6403 6404 6405 6408 6410 6412 6413 6414 6415 6416 6419 6421 6423 6424 6425 6426 6427 6430 6432 6434 6435 6436 SEQ 0192 6437 6438 6441 6443 6445 6446 6447 6448 6449 6452 6454 6456 6457 6458 6459 6460 6463 6465 6467 6468 6469 6470 6471 6474 6476 6478 6479 6480 6481 6482 6485 6487 6489 6490 6491 6492 6493 6496 6498 6500 6501 6502 6503 6504 6507 6509 6511 6512 6513 6514 6515 6518 6520 6522 6523 6524 6525 6526 6529 6531 6533 6534 6535 6536 6537 6540 6542 6544 6545 6546 6547 6548 6551 6553 6555 6556 6557 6558 6559 6562 6564 6566 6567 6568 6569 6570 6573 6575 6577 6578 6579 6580 6581 6584 6586 6588 6589 6590 6591 6592 6595 6597 6599 6600 6601 6602 6603 6606 6608 6610 6611 6612 6613 6614 6617 6619 6621 6622 6623 6624 6625 6628 6630 6632 6633 6634 6635 6636 6639 6641 6643 6644 6645 6646 6647 6650 6652 6654 6655 6656 6657 6658 6661 6663 6665 6666 6667 6668 6669 6672 6674 6676 6677 6678 6679 6680 6683 6685 6687 6688 6689 6690 6691 6694 6696 6698 6699 6700 6701 6702 6705 6707 6709 6710 6711 6712 6713 6716 6718 6720 6721 6722 6723 6724 6727 6729 6731 6732 6733 6734 6735 6738 6740 6742 6743 6744 6745 6746 6749 6751 6753 6754 6755 6756 6757 6760 6762 6764 6765 6766 6767 6768 6771 6773 6775 6776 6777 6778 6779 6782 6784 6786 6787 6788 6789 6790 6793 6795 6797 6798 6799 6800 6801 6804 6806 6808 6809 6810 6811 6812 6815 6817 6819 6820 6821 6822 6823 6826 6828 6830 6831 6832 6833 6834 6837 6839 6841 6842 6843 6844 6845 6848 6850 6852 6853 6854 6855 6856 6859 6861 6863 6864 6865 6866 6867 6871 6873 6878 6879 6889 6890 6892 6895 6896 6897 6898 6901 6903 6904 6907 6908 6914# 6916 6917 6918 6919 6922 6924 6926 6927 6928 6929 6930 6933 6936 6937 6938 6939 6942 6944 6946 6947 6948 6949 6950 6952 6954 6955 6956 6957 6959 6961 6963 6964 6965 6966 6967 6970 6973 6974 6975 6976 6979 6981 6983 6984 6985 6986 6987 6989 6991 6992 6993 6994 6996 6998 7000 7001 7002 7003 7004 7007 7010 7011 7012 7013 7016 7018 7020 7021 7022 7023 7024 7026 7028 7029 7030 7031 7033 7035 7037 7038 7039 7040 7041 7044 7047 7048 7049 7050 7053 7055 7057 7058 7059 7060 7061 7063 7065 7066 7067 7068 7072 7074 7076 7077 7078 7079 7080 7082 7084 7085 7086 7087 7092 7094 7096 7097 7098 7099 7100 7102 7104 7105 7106 7107 ALTMGO 889# 7232 APR 6883 AROV 803# AROVTP 803# AROVU 803# AST 1004# ATSIN 1005# BEGEND 885# 7109 BEGIN 71 76 77 78 79 80 81 792 793 816# 8310 BEGIN1 832# 886 BELL 1008# BIS 803# CCA 803# CE00 1159# CHAIN 597# CHNOFF 803# CHNON 803# CLKU 803# CLOCKF 871# CNTLC 888# CNTRP 803# COMMA 997# CONSW 872# 7167 7233 7257 SEQ 0193 CPOPJ 892# CPOPJ1 890# CRLF 727 728 992# CRLF2 731 732 994# CRY0 803# CRY1 803# CSHFLG 1051# CSHMEM 1052# CTRP 803# CYCL60 1045# DCK 803# 7085 7105 DDTLNK 611# 830 DDTSRT 830# DEBUG 55# 8301 8302 DECVER 4# 10 23 851 DF22F 956# DIAGMN 819# DING 583# 7238 DOLLAR 1011# DSKUPD 856 EBIT0 803# EBIT1 803# EBIT10 803# EBIT11 803# EBIT12 803# EBIT13 803# EBIT14 803# EBIT15 803# EBIT2 803# EBIT3 803# EBIT4 803# EBIT5 803# EBIT6 803# EBIT7 803# EBIT8 803# EBIT9 803# END 8309# ENDFIX 1131# ENDSLD 8299# ERDIAG 59# 7152 ERMORE 905# 7225 EROLD 60# 803 ERRELB 7222 ERRLOP 1163# 1163 4885# 4885 5042# 5042 5140# 5140 5297# 5297 6224# 6224 6381# 6381 6919# 6919 7132 7243 7246 7247 ERRMES 41 42 43 44 45 46 47 48 49 50 51 7114# ERRPC 876# 7119 7149 ERRTLS 877# 7117 7250 ERSTOP 586# 7234 EXCASB 56# 854 EXIOT 803# FOV 803# FOVU 803# SEQ 0194 FRDLNK 609# FSELNK 608# FXU 803# 4903 4921 4940 4958 4977 4995 5014 5032 5158 5176 5195 5213 5232 5250 5269 5287 6242 6260 6279 6297 6316 6334 6353 6371 6937 6955 6974 6992 7011 7029 7048 7066 HYPEN 1002# INHCSH 594# INHPAG 591# IOCLR 803# ITERAT 90# 849 ITRCH1 909# ITRCNT 849# JOB41 803# JOBAPR 803# JOBCNI 803# JOBDDT 803# JOBFF 803# JOBOPC 803# 7231 JOBREL 803# JOBREN 803# JOBSA 803# JOBSYM 803# JOBTPC 803# JOBUSY 803# JOBUUO 803# JOBVER 803# KAIFLG 866# KLFLG 867# 5681 5701 5721 5741 5761 5781 5801 5821 5841 5861 5881 5901 5921 5941 6104 KNTRP 803# KTRP 803# LACLK 803# LACLKE 803# LAPRAL 803# LAPRP1 803# LAPRP2 803# LAPRP3 803# LAPRP4 803# LAPRP5 803# LAPRP6 803# LAPRP7 803# LCHNOF 803# LCHNON 803# LCNTXT 803# LCNXER 803# LCPAER 803# LCPSFT 803# LCPWRF 803# LDATAF 803# LDLNK 610# 819 821 LDNXER 803# LDPAER 803# LDPSFT 803# SEQ 0195 LDPWRF 803# LEBXMH 803# LEBXML 803# LENXER 803# LEPAER 803# LEPSFT 803# LEPWRF 803# LEUPFW 803# LEXCMP 803# LFLGCL 803# LFLGDS 803# LFLGEN 803# LFLGST 803# LFP 1006# LINSTF 803# LINT 803# LIOCLR 803# LLACBL 803# LLDUSB 803# LMBXMH 803# LMBXML 803# LNXMEN 803# LNXMER 803# LOOPER 585# 7236 LPAREN 803# LPARER 803# LPFWPC 803# LPGFTR 803# LPICH1 803# LPICH2 803# LPICH3 803# LPICH4 803# LPICH5 803# LPICH6 803# LPICH7 803# LPICHA 803# LPICLR 803# LPIIP1 803# LPIIP2 803# LPIIP3 803# LPIIP4 803# LPIIP5 803# LPIIP6 803# LPIIP7 803# LPIOFF 803# LPION 803# LPRCH1 803# LPRCH2 803# LPRCH3 803# LPRCH4 803# LPRCH5 803# LPRCH6 803# LPRCH7 803# SEQ 0196 LPRFMH 803# LPRFML 803# LPSFT 803# LPSFTE 803# LPWRFE 803# LPWRFL 803# LREQSE 803# LRQCLR 803# LSECMO 803# LSMODE 803# LSNXER 803# LSPAER 803# LSPSFT 803# LSPWRF 803# LTBASH 803# LTBASL 803# LTRPAE 803# LTRPEN 803# LUSCMP 803# LUUO 803# LUUO1 41# 936 937 LUUO10 48# 936 941 LUUO11 49# 936 941 LUUO12 50# 936 942 LUUO13 51# 936 942 LUUO14 936 943 LUUO15 936 943 LUUO16 936 944 LUUO17 936 944 LUUO2 42# 936 938 LUUO20 936 945 LUUO21 936 945 LUUO22 936 946 LUUO23 936 946 LUUO24 936 947 LUUO25 936 947 LUUO26 936 948 LUUO27 936 948 LUUO3 43# 936 938 LUUO30 936 949 LUUO31 936 949 LUUO32 936 950 LUUO33 936 950 LUUO4 44# 936 939 LUUO5 45# 936 939 LUUO6 46# 936 940 LUUO7 47# 936 940 LUUOI 803# LWRITE 803# MAPNEW 957# MARGIN 879# MCNVER 3# 10 23 851 MEMLOW 959# SEQ 0197 MEMMAP 857 MEMSIZ 960# MEMTOT 958# MICNT 7120# 7120 7121 7134 MINUS 1001# MODDVC 593# MODDVL 792 792# 852 MODDVU 793 793# 853 MODLNK 612# 816 MONCTL 869# 7135 7248 MONFLG 868# MONTEN 870# MONTYP 1083# MPVU 803# MUUO 803# MUUOPC 803# NOPNT 581# 7125 NXMU 803# OPRSEL 595# OPTIME 971# P 638 639 640 641 803# 891 PAG 803# PALERS 587# 7258 PAREA1 83# 847 PAREA2 84# 848 PAREA3 85# 845 PAREA4 86# 846 PAREA5 87# 858 PAREA6 88# 859 PAREA7 858# PAREA8 859# PARU 803# PASCNT 873# 7140 7144 PATCH 8302# PDISF 968# PDLOVU 803# PDOVTP 803# PERIOD 998# PFSTRT 825# PGMEND 58# 8308 PGMNAM 850 1135# PICHN1 803# PICHN2 803# PICHN3 803# PICHN4 803# PICHN5 803# PICHN6 803# PICHN7 803# PICHNA 803# PICLR 803# PIOFF 803# PION 803# PLIST 1037# 1037 SEQ 0198 PLISTE 1037 1039# PLISTS 1038# PLUS 1003# PNTENB 967# PNTEXT 846# PNTFLG 966# PNTINH 969# PNTLPT 582# PNTNAM 845# PNTRP 803# PNTSPC 970# PROCED 7123# 7123 7237 7244 PTRP 803# PVPAGI 1064# QUEST 1009# RADIX 1012# RADLSC 1014# RADLSP 1013# RANDBS 847# REENTR 827# RELIAB 589# RENTR1 73 1132# REPT 803# REPT1 803# REPTU 925# REQSET 803# RESRT1 72 902# RESRT2 903# RETURN 834# RSTART 578# RTP 1007# RUNFLG 874# S100 1167# S10100 3084# 3093 S10200 3096# 3104 S10300 3107# 3115 S10400 3118# 3126 S10500 3129# 3137 S10600 3140# 3148 S10700 3151# 3159 S11000 3162# 3170 S11100 3173# 3181 S11200 3184# 3192 S11300 3195# 3203 S11400 3206# 3214 S11500 3217# 3225 S11600 3228# 3236 S11700 3239# 3247 S12000 3250# 3258 S12100 3261# 3269 S12200 3272# 3280 S12300 3283# 3291 S12400 3294# 3302 SEQ 0199 S12500 3305# 3313 S12600 3316# 3324 S12700 3327# 3335 S13000 3338# 3346 S13100 3349# 3357 S13200 3360# 3368 S13300 3371# 3379 S13400 3382# 3390 S13500 3393# 3401 S13600 3404# 3412 S13700 3415# 3423 S14000 3426# 3434 S14100 3437# 3445 S14200 3448# 3456 S14300 3459# 3467 S14400 3470# 3478 S14500 3481# 3489 S14600 3492# 3500 S14700 3503# 3511 S15000 3514# 3522 S15100 3525# 3533 S15200 3536# 3544 S15300 3547# 3555 S15400 3558# 3566 S15500 3569# 3577 S15600 3580# 3588 S15700 3591# 3599 S16000 3603# 3611 S16100 3614# 3622 S16200 3625# 3633 S16300 3636# 3644 S16400 3647# 3655 S16500 3658# 3666 S16600 3669# 3677 S16700 3680# 3688 S17000 3691# 3699 S17100 3702# 3710 S17200 3713# 3721 S17300 3724# 3732 S17400 3735# 3743 S17500 3746# 3754 S17600 3757# 3765 S17700 3768# 3776 S200 2073# S20000 3779# 3787 S20100 3790# 3798 S20200 3801# 3809 S20300 3812# 3820 S20400 3823# 3831 S20500 3834# 3842 S20600 3845# 3853 S20700 3856# 3864 S21000 3867# 3875 SEQ 0200 S21100 3878# 3886 S21200 3889# 3897 S21300 3901# 3909 S21400 3912# 3920 S21500 3923# 3931 S21600 3934# 3942 S21700 3945# 3953 S22000 3956# 3964 S22100 3967# 3975 S22200 3978# 3986 S22300 3989# 3997 S22400 4000# 4008 S22500 4011# 4019 S22600 4022# 4030 S22700 4033# 4041 S23000 4044# 4052 S23100 4055# 4063 S23200 4066# 4074 S23300 4077# 4085 S23400 4088# 4096 S23500 4099# 4107 S23600 4110# 4118 S23700 4121# 4129 S24000 4132# 4140 S24100 4143# 4151 S24200 4154# 4162 S24300 4165# 4173 S24400 4176# 4184 S24500 4187# 4195 S24600 4198# 4206 S24700 4209# 4217 S25000 4220# 4228 S25100 4231# 4239 S25200 4242# 4250 S25300 4253# 4261 S25400 4264# 4272 S25500 4275# 4283 S25600 4286# 4294 S25700 4297# 4305 S26000 4308# 4316 S26100 4319# 4327 S26200 4330# 4338 S26300 4341# 4349 S26400 4352# 4360 S26500 4363# 4371 S26600 4374# 4382 S26700 4385# 4393 S27000 4396# 4404 S27100 4407# 4415 S27200 4418# 4426 S27300 4429# 4437 S27400 4440# 4448 S27500 4451# 4459 SEQ 0201 S27600 4462# 4470 S27700 4473# 4481 S30000 4484# 4492 S30100 4495# 4503 S30200 4506# 4514 S30300 4517# 4525 S30400 4528# 4536 S30500 4539# 4547 S30600 4550# 4558 S30700 4561# 4569 S31000 4572# 4580 S31100 4583# 4591 S31200 4594# 4602 S31300 4605# 4613 S31400 4616# 4624 S31500 4627# 4635 S31600 4638# 4646 S31700 4649# 4657 S32000 4660# 4668 S32100 4671# 4679 S32200 4682# 4690 S32300 4693# 4701 S32400 4704# 4712 S32500 4715# 4723 S32600 4726# 4734 S32700 4737# 4745 S33000 4748# 4756 S33100 4759# 4767 S33200 4770# 4778 S33300 4781# 4789 S33400 4792# 4800 S33500 4803# 4811 S33600 4814# 4822 S33700 4825# 4833 S34000 4836# 4844 S34100 4847# 4855 S34200 4858# 4866 S34300 4869# 4877 S34400 4887# 4905 S34500 4907# 4923 S34600 4924# 4942 S34700 4944# 4960 S35000 4961# 4979 S35100 4981# 4997 S35200 4998# 5016 S35300 5018# 5034 S40100 5046# 5055 S40200 5058# 5066 S40300 5069# 5077 S40400 5080# 5088 S40500 5091# 5099 S40600 5102# 5110 S40700 5113# 5121 SEQ 0202 S41000 5124# 5132 S41100 5142# 5160 S41200 5162# 5178 S41300 5179# 5197 S41400 5199# 5215 S41500 5216# 5234 S41600 5236# 5252 S41700 5253# 5271 S42000 5273# 5289 S50100 5301# 5310 S50200 5313# 5321 S50300 5324# 5332 S50400 5335# 5343 S50500 5346# 5354 S50600 5357# 5365 S50700 5368# 5376 S51000 5379# 5387 S51100 5390# 5398 S51200 5401# 5409 S51300 5412# 5420 S51400 5423# 5431 S51500 5434# 5442 S51600 5445# 5453 S51700 5456# 5464 S52000 5467# 5475 S52100 5478# 5486 S52200 5489# 5497 S52300 5500# 5508 S52400 5511# 5519 S52500 5522# 5530 S52600 5534# 5542 S52700 5545# 5553 S53000 5556# 5564 S53100 5567# 5575 S53200 5578# 5586 S53300 5589# 5597 S53400 5600# 5608 S53500 5611# 5619 S53600 5622# 5630 S53700 5633# 5641 S54000 5644# 5652 S54100 5655# 5663 S54200 5666# 5674 S54300 5677# 5687 S54305 5682 5689# S54306 5687# 5693 S54307 5688 5694# S54400 5697# 5707 S54405 5702 5709# S54406 5707# 5713 S54407 5708 5714# S54500 5717# 5727 S54505 5722 5729# SEQ 0203 S54506 5727# 5733 S54507 5728 5734# S54600 5737# 5747 S54605 5742 5749# S54606 5747# 5753 S54607 5748 5754# S54700 5757# 5767 S54705 5762 5769# S54706 5767# 5773 S54707 5768 5774# S55000 5777# 5787 S55005 5782 5789# S55006 5787# 5793 S55007 5788 5794# S55100 5797# 5807 S55105 5802 5809# S55106 5807# 5813 S55107 5808 5814# S55200 5817# 5827 S55205 5822 5829# S55206 5827# 5833 S55207 5828 5834# S55300 5837# 5847 S55305 5842 5849# S55306 5847# 5853 S55307 5848 5854# S55400 5857# 5867 S55405 5862 5869# S55406 5867# 5873 S55407 5868 5874# S55500 5877# 5887 S55505 5882 5889# S55506 5887# 5893 S55507 5888 5894# S55600 5897# 5907 S55605 5902 5909# S55606 5907# 5913 S55607 5908 5914# S55700 5917# 5927 S55705 5922 5929# S55706 5927# 5933 S55707 5928 5934# S56000 5937# 5947 S56005 5942 5949# S56006 5947# 5953 S56007 5948 5954# S56100 5957# 5965 S56200 5968# 5976 S56300 5979# 5987 S56400 5990# 5998 S56500 6001# 6009 S56600 6012# 6020 S56700 6023# 6031 SEQ 0204 S57000 6034# 6042 S57100 6045# 6053 S57200 6056# 6064 S57300 6067# 6075 S57400 6078# 6086 S57500 6089# 6097 S57600 6100# 6110 S57605 6105 6112# S57606 6110# 6116 S57607 6111 6117# S57700 6120# 6128 S60000 6131# 6139 S60100 6142# 6150 S60200 6153# 6161 S60300 6164# 6172 S60400 6175# 6183 S60500 6186# 6194 S60600 6197# 6205 S60700 6208# 6216 S61000 6226# 6244 S61100 6246# 6262 S61200 6263# 6281 S61300 6283# 6299 S61400 6300# 6318 S61500 6320# 6336 S61600 6337# 6355 S61700 6357# 6373 S70100 6385# 6394 S70200 6397# 6405 S70300 6408# 6416 S70400 6419# 6427 S70500 6430# 6438 S70600 6441# 6449 S70700 6452# 6460 S71000 6463# 6471 S71100 6474# 6482 S71200 6485# 6493 S71300 6496# 6504 S71400 6507# 6515 S71500 6518# 6526 S71600 6529# 6537 S71700 6540# 6548 S72000 6551# 6559 S72100 6562# 6570 S72200 6573# 6581 S72300 6584# 6592 S72400 6595# 6603 S72500 6606# 6614 S72600 6617# 6625 S72700 6628# 6636 S73000 6639# 6647 S73100 6650# 6658 S73200 6661# 6669 SEQ 0205 S73300 6672# 6680 S73400 6871# 6892 S73405 6876 6895# S73406 6892# 6899 6902 6905 6909 S73407 6893 6911# S73408 6882 6901# S73409 6887 6907# S73500 6683# 6691 S73600 6694# 6702 S73700 6705# 6713 S74100 6716# 6724 S74200 6727# 6735 S74300 6738# 6746 S74400 6749# 6757 S74500 6760# 6768 S74600 6771# 6779 S74700 6782# 6790 S75000 6793# 6801 S75100 6804# 6812 S75200 6815# 6823 S75300 6826# 6834 S75400 6837# 6845 S75500 6848# 6856 S75600 6859# 6867 S75700 6921# 6939 S76000 6941# 6957 S76100 6958# 6976 S76200 6978# 6994 S76300 6995# 7013 S76400 7015# 7031 S76500 7032# 7050 S76600 7052# 7068 S76700 7071# 7087 S77000 7091# 7107 SADR1 71# 823 SADR10 80# 839 SADR11 81# 840 SADR2 72# 825 SADR3 73# 827 SADR4 74# SADR5 75# 888 SADR6 76# 889 SADR7 77# 836 SADR8 78# 837 SADR9 79# 838 SBINIT 651 833# SCOPE 926# SFSTRT 823# SLASH 1010# SM10 1114# 6875 SNTRP 803# SPACE 999# SPDES 7210# SEQ 0206 SRTDDT 74 829# START 817 1151# START1 836# START2 837# START3 838# START4 839# START5 840# STARTA 832 1155# STRP 803# SUBLNK 613# 833 SWPTAB 1120# SWTEXR 848# SYSEXR 821# T 1166# 1173 1175 1187 1187# 1196 1198 1201 1201# 1210 1212 1215 1215# 1224 1226 1229 1229# 1238 1240 1243 1243# 1252 1254 1257 1257# 1266 1268 1271 1271# 1280 1282 1285 1285# 1294 1296 1308 1308# 1317 1319 1322 1322# 1331 1333 1336 1336# 1345 1347 1350 1350# 1359 1361 1364 1364# 1373 1375 1378 1378# 1387 1389 1392 1392# 1401 1403 1406 1406# 1415 1417 1420 1420# 1429 1431 1434 1434# 1443 1445 1448 1448# 1457 1459 1462 1462# 1471 1473 1476 1476# 1485 1487 1490 1490# 1499 1501 1504 1504# 1513 1515 1518 1518# 1527 1529 1532 1532# 1541 1543 1546 1546# 1555 1557 1569 1569# 1578 1580 1583 1583# 1592 1594 1597 1597# 1606 1608 1611 1611# 1620 1622 1625 1625# 1634 1636 1639 1639# 1648 1650 1653 1653# 1662 1664 1667 1667# 1676 1678 1681 1681# 1690 1692 1695 1695# 1704 1706 1709 1709# 1718 1720 1723 1723# 1732 1734 1737 1737# 1746 1748 1751 1751# 1760 1762 1765 1765# 1774 1776 1779 1779# 1788 1790 1793 1793# 1802 1804 1816 1816# 1825 1827 1830 1830# 1839 1841 1844 1844# 1853 1855 1858 1858# 1867 1869 1872 1872# 1881 1883 1886 1886# 1895 1897 1900 1900# 1909 1911 1914 1914# 1923 1925 1928 1928# 1937 1939 1942 1942# 1951 1953 1956 1956# 1965 1967 1970 1970# 1979 1981 1984 1984# 1993 1995 1998 1998# 2007 2009 2012 2012# 2021 2023 2026 2026# 2035 2037 2040 2040# 2049 2051 2054 2054# 2063 2065 2068# 2081 2081# 2092 2094 2097 2097# 2108 2110 2113 2113# 2124 2126 2129 2129# 2140 2142 2145 2145# 2156 2158 2161 2161# 2172 2174 2177 2177# 2188 2190 2193 2193# 2204 2206 2209 2209# 2220 2222 2235 2235# 2245 2247 2250 2250# 2260 2262 2265 2265# 2275 2277 2280 2280# 2290 2292 2295 2295# 2305 2307 2310 2310# 2320 2322 2325 2325# 2335 2337 2340 2340# 2350 2352 2355 2355# 2365 2367 2370 2370# 2380 2382 2395 2395# 2405 2407 2410 2410# 2420 2422 2425 2425# 2435 2437 2440 2440# 2450 2452 2455 2455# 2465 2467 2470 2470# 2480 2482 2485 2485# 2495 2497 2500 2500# 2510 2512 2524 2524# 2534 2536 2539 2539# 2549 2551 2554 2554# 2564 2566 2569 2569# 2579 2581 2584 2584# 2594 2596 2599 2599# 2609 2611 2614 2614# 2624 2626 2629 2629# 2639 2641 2644 2644# 2654 2656 2669 2669# 2679 2681 2684 2684# 2694 2696 2699 2699# 2709 2711 2714 2714# 2724 2726 2729 2729# 2739 2741 2744 2744# 2754 2756 2759 2759# 2769 2771 2774 2774# 2784 2786 2799 2799# 2809 2811 2814 2814# 2824 2826 2829 2829# 2839 2841 2844 2844# 2854 2856 2859 2859# 2869 2871 2874 2874# 2884 2886 2889 2889# 2899 2901 2904 2904# 2914 2916 2919 2919# 2929 2931 2934 2934# 2944 2946 2960 2960# 2970 2972 2975 2975# 2985 2987 2990 2990# 3000 3002 3005 3005# 3015 3017 3020 3020# 3030 3032 3035 3035# 3045 3047 3050 3050# 3060 3062 3066 3066# 3075 3077 TAB 1000# TESTPC 875# 1161 4883 5040 5138 5295 6222 6379 6917 TICKS 878# TLET 1153 7184 7207# SEQ 0207 TN0 803# TN1 803# TOTALS 579# TRP3TP 803# TTNBRF 1058# TTYFIL 974# TTYSPD 975# TXTINH 590# 7168 UBAVEC 803# USER 865# 6881 USERF 803# USRASB 57# 855 USRCRF 984# USRLFF 983# UUODIS 937# UUOEXT 893# 7255 UUORTN 894# UUOSKP 891# XX 1178# 1188 1188# 1191 1202 1202# 1205 1216 1216# 1219 1230 1230# 1233 1244 1244# 1247 1258 1258# 1261 1272 1272# 1275 1286 1286# 1289 1300# 1309 1309# 1312 1323 1323# 1326 1337 1337# 1340 1351 1351# 1354 1365 1365# 1368 1379 1379# 1382 1393 1393# 1396 1407 1407# 1410 1421 1421# 1424 1435 1435# 1438 1449 1449# 1452 1463 1463# 1466 1477 1477# 1480 1491 1491# 1494 1505 1505# 1508 1519 1519# 1522 1533 1533# 1536 1547 1547# 1550 1561# 1570 1570# 1574 1584 1584# 1588 1598 1598# 1602 1612 1612# 1616 1626 1626# 1630 1640 1640# 1644 1654 1654# 1658 1668 1668# 1672 1682 1682# 1686 1696 1696# 1700 1710 1710# 1714 1724 1724# 1728 1738 1738# 1742 1752 1752# 1756 1766 1766# 1770 1780 1780# 1784 1794 1794# 1798 1808# 1817 1817# 1821 1831 1831# 1835 1845 1845# 1849 1859 1859# 1863 1873 1873# 1877 1887 1887# 1891 1901 1901# 1905 1915 1915# 1919 1929 1929# 1933 1943 1943# 1947 1957 1957# 1961 1971 1971# 1975 1985 1985# 1989 1999 1999# 2003 2013 2013# 2017 2027 2027# 2031 2041 2041# 2045 2055 2055# 2059 2069# 2082 2082# 2087 2098 2098# 2103 2114 2114# 2119 2130 2130# 2135 2146 2146# 2151 2162 2162# 2167 2178 2178# 2183 2194 2194# 2199 2210 2210# 2215 2226# 2236 2236# 2240 2251 2251# 2255 2266 2266# 2270 2281 2281# 2285 2296 2296# 2300 2311 2311# 2315 2326 2326# 2330 2341 2341# 2345 2356 2356# 2360 2371 2371# 2375 2396 2396# 2400 2411 2411# 2415 2426 2426# 2430 2441 2441# 2445 2456 2456# 2460 2471 2471# 2475 2486 2486# 2490 2501 2501# 2505 2515# 2525 2525# 2530 2540 2540# 2545 2555 2555# 2560 2570 2570# 2575 2585 2585# 2590 2600 2600# 2605 2615 2615# 2620 2630 2630# 2635 2645 2645# 2650 2670 2670# 2675 2685 2685# 2690 2700 2700# 2705 2715 2715# 2720 2730 2730# 2735 2745 2745# 2750 2760 2760# 2765 2775 2775# 2780 2790# 2800 2800# 2805 2815 2815# 2820 2830 2830# 2835 2845 2845# 2850 2860 2860# 2865 2875 2875# 2880 2890 2890# 2895 2905 2905# 2910 2920 2920# 2925 2935 2935# 2940 2961 2961# 2966 2976 2976# 2981 2991 2991# 2996 3006 3006# 3011 3021 3021# 3026 3036 3036# 3041 3051 3051# 3056 3067 3067# 3071 YY 2070# 2083 2083# 2091 2099 2099# 2107 2115 2115# 2123 2131 2131# 2139 2147 2147# 2155 2163 2163# 2171 2179 2179# 2187 2195 2195# 2203 2211 2211# 2219 2237 2237# 2244 2252 2252# 2259 2267 2267# 2274 2282 2282# 2289 2297 2297# 2304 2312 2312# 2319 2327 2327# 2334 2342 2342# 2349 2357 2357# 2364 2372 2372# 2379 2397 2397# 2404 2412 2412# 2419 2427 2427# 2434 2442 2442# 2449 2457 2457# 2464 2472 2472# 2479 2487 2487# 2494 2502 2502# 2509 2526 2526# 2533 2541 2541# 2548 2556 2556# 2563 2571 2571# 2578 2586 2586# 2593 2601 2601# 2608 2616 2616# 2623 2631 2631# 2638 2646 2646# 2653 2671 2671# 2678 SEQ 0208 2686 2686# 2693 2701 2701# 2708 2716 2716# 2723 2731 2731# 2738 2746 2746# 2753 2761 2761# 2768 2776 2776# 2783 2801 2801# 2808 2816 2816# 2823 2831 2831# 2838 2846 2846# 2853 2861 2861# 2868 2876 2876# 2883 2891 2891# 2898 2906 2906# 2913 2921 2921# 2928 2936 2936# 2943 2950 2950# 2962 2962# 2969 2977 2977# 2984 2992 2992# 2999 3007 3007# 3014 3022 3022# 3029 3037 3037# 3044 3052 3052# 3059 3074 ZZ 1179# 1189 1189# 1195 1203 1203# 1209 1217 1217# 1223 1231 1231# 1237 1245 1245# 1251 1259 1259# 1265 1273 1273# 1279 1287 1287# 1293 1310 1310# 1316 1324 1324# 1330 1338 1338# 1344 1352 1352# 1358 1366 1366# 1372 1380 1380# 1386 1394 1394# 1400 1408 1408# 1414 1422 1422# 1428 1436 1436# 1442 1450 1450# 1456 1464 1464# 1470 1478 1478# 1484 1492 1492# 1498 1506 1506# 1512 1520 1520# 1526 1534 1534# 1540 1548 1548# 1554 1571 1571# 1577 1585 1585# 1591 1599 1599# 1605 1613 1613# 1619 1627 1627# 1633 1641 1641# 1647 1655 1655# 1661 1669 1669# 1675 1683 1683# 1689 1697 1697# 1703 1711 1711# 1717 1725 1725# 1731 1739 1739# 1745 1753 1753# 1759 1767 1767# 1773 1781 1781# 1787 1795 1795# 1801 1818 1818# 1824 1832 1832# 1838 1846 1846# 1852 1860 1860# 1866 1874 1874# 1880 1888 1888# 1894 1902 1902# 1908 1916 1916# 1922 1930 1930# 1936 1944 1944# 1950 1958 1958# 1964 1972 1972# 1978 1986 1986# 1992 2000 2000# 2006 2014 2014# 2020 2028 2028# 2034 2042 2042# 2048 2056 2056# 2062 2071# 2084 2084# 2085 2085# 2093 2100 2100# 2101 2109 2116 2116# 2117 2125 2132 2132# 2133 2141 2148 2148# 2149 2157 2164 2164# 2165 2173 2180 2180# 2181 2189 2196 2196# 2197 2205 2212 2212# 2213 2221 2238 2238# 2246 2253 2253# 2261 2268 2268# 2276 2283 2283# 2291 2298 2298# 2306 2313 2313# 2321 2328 2328# 2336 2343 2343# 2351 2358 2358# 2366 2373 2373# 2381 2386# 2398 2398# 2406 2413 2413# 2421 2428 2428# 2436 2443 2443# 2451 2458 2458# 2466 2473 2473# 2481 2488 2488# 2496 2503 2503# 2511 2527 2527# 2535 2542 2542# 2550 2557 2557# 2565 2572 2572# 2580 2587 2587# 2595 2602 2602# 2610 2617 2617# 2625 2632 2632# 2640 2647 2647# 2655 2660# 2672 2672# 2678 2687 2687# 2693 2702 2702# 2708 2717 2717# 2723 2732 2732# 2738 2747 2747# 2753 2762 2762# 2768 2777 2777# 2783 2802 2802# 2808 2817 2817# 2823 2832 2832# 2838 2847 2847# 2853 2862 2862# 2868 2877 2877# 2883 2892 2892# 2898 2907 2907# 2913 2922 2922# 2928 2937 2937# 2943 2951# 2963 2963# 2969 2978 2978# 2984 2993 2993# 2999 3008 3008# 3014 3023 3023# 3029 3038 3038# 3044 3053 3053# 3059 3068 3068# 3074 $$MUUO 1089# $$OUTE 1095# $$TAX1 1107# $$TAX2 1108# $$TOGG 1101# $$UUO 1078# $ACC0 916# $ACF 7211# $BEND1 886# $BEND2 75 887# 7264 $CHRIN 977# $CRLF 979# $DEVCH 803# $DSKUP 856# $DVOFF 973# $EMODE 854# $FFF 981# $IBUF 1029# $INEXT 1031# SEQ 0209 $INNM 1030# $ITRHL 897# $ITRX1 898# $LPAPE 7270 $MMAP 857# $MODVL 852# $MODVU 853# $OBUF 1020# $ONETM 880# $OUTEX 1022# $OUTNM 1021# $PAPER 803 $PARER 904# $PNAME 850# $PSHER 908# $PVER 851# $RSRTX 900# $RSRTY 901# $SPAG1 920# $START 817# $SVAPR 918# $SVPAG 919# $SVPI 917# $SVUPC 923# 7118 7122 7148 $SVUUO 922# 7127 7159 7187 $TABF 980# $TTCHR 976# $TWCNT 972# $TYPNB 978# $UMODE 855# $UORTX 895# $USRHL 899# $UUOER 896# 937 $VTF 982# %AC1F 7212# %ACS1A 7129# 7129 7173 %ACTFL 929# %ACTUL 930# %ALF 7217# %AR1F 7216# %ARF 7215# %COREC 928# %CORFL 927# %DISCR 931# %E1F 7214# %EEF 7218# %EF 7213# %ER4X 7193 7198# %ER5X 7191 7200# %ER6X 7189 7202# %ER7X 7195# 7199 7201 7203 %ERAC0 7114# 7114 7130 7164 7254 %ERAC1 7115# 7115 7131 7242 SEQ 0210 %ERAC2 7116# 7116 7241 %ERFST 7137# 7137 7139 %ERHI1 1070# %ERHI2 1071# %ERHI3 1072# %ERMOR 7169 7196 7225# %ERMS1 7134# 7260 %ERMS2 7157# %ERMS3 7175 7182# %ERRS1 7126 7228# 7259 %ERRS2 7241# %ERRS4 7133 7257# %ERRS5 7245 7249 7254# %ERRS6 7252 7262# %FF 7219# %FLTTB 7177 7208# %NODES 7209# .JB41 803# .JBAPR 803# .JBCNI 803# .JBDDT 803# .JBFF 803# .JBOPC 803# .JBREL 803# .JBREN 803# .JBSA 803# .JBSYM 803# .JBTPC 803# .JBUSY 803# .JBUUO 803# .JBVER 803# APRID 803# BCIO 803# SEQ 0211 BCIOB 803# BSIO 803# BSIOB 803# CFLUSH 763# CINVAL 762# CLOKOP 757# CLRPT 803# CWRTBI 764# DFA 417# DFARP 460# DFD 450# DFM 439# DFS 428# DMVE 91# DMVE17 113# DMVM 253# DMVM17 305# DMVN 141# DMVN17 171# DMVNF 209# DMVNM 278# DMVNM1 337# DMVNMF 372# DROPDV 724# 1132 ENDUUO 770# 885 EOPUUO 771# 887 ER1 29# ER10 36# ER11 37# ER12 38# ER13 39# 4899 4902 4904 4918 4920 4922 4936 4939 4941 4955 4957 4959 4973 4976 4978 4992 4994 4996 5010 5013 5015 5029 5031 5033 5154 5157 5159 5173 5175 5177 5191 5194 5196 5210 5212 5214 5228 5231 5233 5247 5249 5251 5265 5268 5270 5284 5286 5288 6238 6241 6243 6257 6259 6261 6275 6278 6280 6294 6296 6298 6312 6315 6317 6331 6333 6335 6349 6352 6354 6368 6370 6372 6933 6936 6938 6952 6954 6956 6970 6973 6975 6989 6991 6993 7007 7010 7012 7026 7028 7030 7044 7047 7049 7063 7065 7067 7082 7084 7086 7102 7104 7106 ER2 30# ER3 31# 1173 1196 1210 1224 1238 1252 1266 1280 1294 1317 1331 1345 1359 1373 1387 1401 1415 1429 1443 1457 1471 1485 1499 1513 1527 1541 1555 1578 1592 1606 1620 1634 1648 1662 1676 1690 1704 1718 1732 1746 1760 1774 1788 1802 1825 1839 1853 1867 1881 1895 1909 1923 1937 1951 1965 1979 1993 2007 2021 2035 2049 2063 2092 2108 2124 2140 2156 2172 2188 2204 2220 2245 2260 2275 2290 2305 2320 2335 2350 2365 2380 2405 2420 2435 2450 2465 2480 2495 2510 2534 2549 2564 2579 2594 2609 2624 2639 2654 2679 2694 2709 2724 2739 2754 2769 2784 2809 2824 2839 2854 2869 2884 2899 2914 2929 2944 2970 2985 3000 3015 3030 3045 3060 3075 3101 3112 3123 3134 3145 3156 3167 3178 3189 3200 3211 3222 3233 3244 3255 3266 3277 3288 3299 3310 3321 3332 3343 3354 3365 3376 3387 3398 3409 3420 3431 3442 3453 3464 3475 3486 3497 3508 3519 3530 3541 3552 3563 3574 3585 3596 3608 3619 3630 3641 3652 3663 3674 3685 3696 3707 3718 3729 3740 3751 3762 3773 3784 3795 3806 3817 3828 3839 3850 3861 3872 SEQ 0212 3883 3894 3906 3917 3928 3939 3950 3961 3972 3983 3994 4005 4016 4027 4038 4049 4060 4071 4082 4093 4104 4115 4126 4137 4148 4159 4170 4181 4192 4203 4214 4225 4236 4247 4258 4269 4280 4291 4302 4313 4324 4335 4346 4357 4368 4379 4390 4401 4412 4423 4434 4445 4456 4467 4478 4489 4500 4511 4522 4533 4544 4555 4566 4577 4588 4599 4610 4621 4632 4643 4654 4665 4676 4687 4698 4709 4720 4731 4742 4753 4764 4775 4786 4797 4808 4819 4830 4841 4852 4863 4874 4894 4914 4931 4951 4968 4988 5005 5025 5063 5074 5085 5096 5107 5118 5129 5149 5169 5186 5206 5223 5243 5260 5280 5318 5329 5340 5351 5362 5373 5384 5395 5406 5417 5428 5439 5450 5461 5472 5483 5494 5505 5516 5527 5539 5550 5561 5572 5583 5594 5605 5616 5627 5638 5649 5660 5671 5684 5690 5704 5710 5724 5730 5744 5750 5764 5770 5784 5790 5804 5810 5824 5830 5844 5850 5864 5870 5884 5890 5904 5910 5924 5930 5944 5950 5962 5973 5984 5995 6006 6017 6028 6039 6050 6061 6072 6083 6094 6107 6113 6125 6136 6147 6158 6169 6180 6191 6202 6213 6233 6253 6270 6290 6307 6327 6344 6364 6402 6413 6424 6435 6446 6457 6468 6479 6490 6501 6512 6523 6534 6545 6556 6567 6578 6589 6600 6611 6622 6633 6644 6655 6666 6677 6688 6699 6710 6721 6732 6743 6754 6765 6776 6787 6798 6809 6820 6831 6842 6853 6864 6879 6896 6928 6948 6965 6985 7002 7022 7039 7059 7078 7098 ER4 32# 1175 1198 1212 1226 1240 1254 1268 1282 1296 1319 1333 1347 1361 1375 1389 1403 1417 1431 1445 1459 1473 1487 1501 1515 1529 1543 1557 1580 1594 1608 1622 1636 1650 1664 1678 1692 1706 1720 1734 1748 1762 1776 1790 1804 1827 1841 1855 1869 1883 1897 1911 1925 1939 1953 1967 1981 1995 2009 2023 2037 2051 2065 2094 2110 2126 2142 2158 2174 2190 2206 2222 2247 2262 2277 2292 2307 2322 2337 2352 2367 2382 2407 2422 2437 2452 2467 2482 2497 2512 2536 2551 2566 2581 2596 2611 2626 2641 2656 2681 2696 2711 2726 2741 2756 2771 2786 2811 2826 2841 2856 2871 2886 2901 2916 2931 2946 2972 2987 3002 3017 3032 3047 3062 3077 3103 3114 3125 3136 3147 3158 3169 3180 3191 3202 3213 3224 3235 3246 3257 3268 3279 3290 3301 3312 3323 3334 3345 3356 3367 3378 3389 3400 3411 3422 3433 3444 3455 3466 3477 3488 3499 3510 3521 3532 3543 3554 3565 3576 3587 3598 3610 3621 3632 3643 3654 3665 3676 3687 3698 3709 3720 3731 3742 3753 3764 3775 3786 3797 3808 3819 3830 3841 3852 3863 3874 3885 3896 3908 3919 3930 3941 3952 3963 3974 3985 3996 4007 4018 4029 4040 4051 4062 4073 4084 4095 4106 4117 4128 4139 4150 4161 4172 4183 4194 4205 4216 4227 4238 4249 4260 4271 4282 4293 4304 4315 4326 4337 4348 4359 4370 4381 4392 4403 4414 4425 4436 4447 4458 4469 4480 4491 4502 4513 4524 4535 4546 4557 4568 4579 4590 4601 4612 4623 4634 4645 4656 4667 4678 4689 4700 4711 4722 4733 4744 4755 4766 4777 4788 4799 4810 4821 4832 4843 4854 4865 4876 4896 4916 4933 4953 4970 4990 5007 5027 5065 5076 5087 5098 5109 5120 5131 5151 5171 5188 5208 5225 5245 5262 5282 5320 5331 5342 5353 5364 5375 5386 5397 5408 5419 5430 5441 5452 5463 5474 5485 5496 5507 5518 5529 5541 5552 5563 5574 5585 5596 5607 5618 5629 5640 5651 5662 5673 5686 5692 5706 5712 5726 5732 5746 5752 5766 5772 5786 5792 5806 5812 5826 5832 5846 5852 5866 5872 5886 5892 5906 5912 5926 5932 5946 5952 5964 5975 5986 5997 6008 6019 6030 6041 6052 6063 6074 6085 6096 6109 6115 6127 6138 6149 6160 6171 6182 6193 6204 6215 6235 6255 6272 6292 6309 6329 6346 6366 6404 6415 6426 6437 6448 6459 6470 6481 6492 6503 6514 6525 6536 6547 6558 6569 6580 6591 6602 6613 6624 6635 6646 6657 6668 6679 6690 6701 6712 6723 6734 6745 6756 6767 6778 6789 6800 6811 6822 6833 6844 6855 6866 6890 6898 6904 6908 6930 6950 6967 6987 7004 7024 7041 7061 7080 7100 ER5 33# 3090 5052 5307 6391 SEQ 0213 ER6 34# 3092 5054 5309 6393 ER7 35# ERRHLT 658# 7235 FATAL 657# FRD36 799# FRD8 800# FREAD 798# FSELEC 797# GET 641# GO 638# HALT 77 78 79 80 81 643# 906 JEN 645# JRSTF 644# 1164 4887 4907 4924 4944 4961 4981 4998 5018 5043 5142 5162 5179 5199 5216 5236 5253 5273 5298 6226 6246 6263 6283 6300 6320 6337 6357 6382 6921 6941 6958 6978 6995 7015 7032 7052 7071 7091 MAPADR 780# MAPCNK 781# MAPMEM 777# MAPPNT 783# MAPSET 782# MEMSEG 779# MEMZRO 778# MODPCP 790# MODPCU 789# MTROP 758# NAME 7# 10 PBELL 733# 7239 PCRL 727# 7176 7195 PCRL2 731# PCRL2F 732# PCRLF 728# PFORCE 735# PGMINT 651# 1151 PJRST 642# PMSG 737# 7142 7146 7157 7182 PMSGF 740# 7262 PNT1 693# PNT11 707# PNT11F 708# PNT1F 694# PNT2 695# PNT2F 696# PNT3 697# 7194 PNT3F 698# PNT4 699# 7198 PNT4F 700# PNT5 701# 7200 PNT5F 702# PNT6 703# 7150 7202 PNT6F 704# PNT7 705# PNT7F 706# PNTA 679# 7185 SEQ 0214 PNTADF 710# PNTADR 709# PNTAF 680# PNTAL 681# 7178 PNTALF 682# PNTCHF 692# PNTCHR 691# PNTCI 689# PNTCIF 690# PNTCW 725# PNTCWF 726# PNTDCF 718# PNTDEC 717# 7145 PNTDS 719# PNTDSF 720# PNTHW 713# 7165 PNTHWF 714# PNTMSF 686# PNTMSG 685# PNTNM 721# 7138 PNTOCF 716# PNTOCS 715# PNTOCT 711# PNTOTF 712# PNTSIX 722# PNTSXF 723# PSIXL 683# PSIXLF 684# PSIXM 687# 7143 7147 7158 7183 PSIXMF 688# 7263 PSP 729# PSPF 730# PUT 640# RDAPR 803# RDCSB 803# RDCSTM 803# RDEBR 803# RDHSB 803# RDINT 803# RDIO 803# RDIOB 803# RDPI 803# RDPUR 803# RDSPB 803# RDTIM 803# RDUBR 803# RTN 639# 893 S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655 660 664 803 808 814 841 843 861 863 881 883 912 914 932 934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041 1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085 1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126 1128 SEQ 0215 SAVEAC 63# 1159 4881 5038 5136 5293 6220 6377 6915 SDFA 471# 3095 3106 3117 3128 3139 3150 3161 3172 3183 3194 3205 3216 3227 3238 3249 3260 3271 3282 3293 3304 3315 3326 3337 3348 3359 3370 3381 3392 3403 3414 3425 3436 3447 3458 3469 3480 3491 3502 3513 3524 3535 3546 3557 3568 3579 3590 3602 3613 3624 3635 3646 3657 3668 3679 3690 3701 3712 3723 3734 3745 3756 3767 3778 3789 3800 3811 3822 3833 3844 3855 3866 3877 3888 3900 3911 3922 3933 3944 3955 3966 3977 3988 3999 4010 4021 4032 4043 4054 4065 4076 4087 4098 4109 4120 4131 4142 4153 4164 4175 4186 4197 4208 4219 4230 4241 4252 4263 4274 4285 4296 4307 4318 4329 4340 4351 4362 4373 4384 4395 4406 4417 4428 4439 4450 4461 4472 4483 4494 4505 4516 4527 4538 4549 4560 4571 4582 4593 4604 4615 4626 4637 4648 4659 4670 4681 4692 4703 4714 4725 4736 4747 4758 4769 4780 4791 4802 4813 4824 4835 4846 4857 4868 SDFARP 557# 1167 1190 1204 1218 1232 1246 1260 1274 1288 1311 1325 1339 1353 1367 1381 1395 1409 1423 1437 1451 1465 1479 1493 1507 1521 1535 1549 1572 1586 1600 1614 1628 1642 1656 1670 1684 1698 1712 1726 1740 1754 1768 1782 1796 1819 1833 1847 1861 1875 1889 1903 1917 1931 1945 1959 1973 1987 2001 2015 2029 2043 2057 2086 2102 2118 2134 2150 2166 2182 2198 2214 2239 2254 2269 2284 2299 2314 2329 2344 2359 2374 2399 2414 2429 2444 2459 2474 2489 2504 2528 2543 2558 2573 2588 2603 2618 2633 2648 2673 2688 2703 2718 2733 2748 2763 2778 2803 2818 2833 2848 2863 2878 2893 2908 2923 2938 2964 2979 2994 3009 3024 3039 3054 3069 SDFD 525# 6396 6407 6418 6429 6440 6451 6462 6473 6484 6495 6506 6517 6528 6539 6550 6561 6572 6583 6594 6605 6616 6627 6638 6649 6660 6671 6682 6693 6704 6715 6726 6737 6748 6759 6770 6781 6792 6803 6814 6825 6836 6847 6858 SDFDKL 535# SDFM 493# 5312 5323 5334 5345 5356 5367 5378 5389 5400 5411 5422 5433 5444 5455 5466 5477 5488 5499 5510 5521 5533 5544 5555 5566 5577 5588 5599 5610 5621 5632 5643 5654 5665 5956 5967 5978 5989 6000 6011 6022 6033 6044 6055 6066 6077 6088 6119 6130 6141 6152 6163 6174 6185 6196 6207 SDFMKL 503# 5676 5696 5716 5736 5756 5776 5796 5816 5836 5856 5876 5896 5916 5936 6099 SDFS 482# 5057 5068 5079 5090 5101 5112 5123 SIXBTZ 746# SWITCH 752# 7124 7226 TIOE 803# TIOEB 803# TION 803# TIONB 803# TTALTM 673# 7228 TTICHR 666# TTICLR 676# TTICNV 671# TTIDEC 670# TTINO 668# TTIOCT 669# TTIYES 667# TTLOOK 672# TTSIXB 674# TTYINP 675# WRAPR 803# WRCSB 803# SEQ 0216 WRCSTM 803# WREBR 803# WRHSB 803# WRINT 803# WRIO 803# WRIOB 803# WRPI 803# WRPUR 803# WRSPB 803# WRTIM 803# WRUBR 803# ANDI 6885 7161 AOS 891 7117 7120 7246 7247 SEQ 0217 ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010 1011 ASCIZ 1135 1152 7211 7212 7213 7214 7215 7216 7217 7218 7219 BLKI 6883 BLOCK 960 1020 1023 1029 1032 1038 8302 BYTE 1008 CAIG 7163 7174 CAIGE 6886 CAIL 7251 CALL 1133 CAME 1172 1174 1195 1197 1209 1211 1223 1225 1237 1239 1251 1253 1265 1267 1279 1281 1293 1295 1316 1318 1330 1332 1344 1346 1358 1360 1372 1374 1386 1388 1400 1402 1414 1416 1428 1430 1442 1444 1456 1458 1470 1472 1484 1486 1498 1500 1512 1514 1526 1528 1540 1542 1554 1556 1577 1579 1591 1593 1605 1607 1619 1621 1633 1635 1647 1649 1661 1663 1675 1677 1689 1691 1703 1705 1717 1719 1731 1733 1745 1747 1759 1761 1773 1775 1787 1789 1801 1803 1824 1826 1838 1840 1852 1854 1866 1868 1880 1882 1894 1896 1908 1910 1922 1924 1936 1938 1950 1952 1964 1966 1978 1980 1992 1994 2006 2008 2020 2022 2034 2036 2048 2050 2062 2064 2091 2093 2107 2109 2123 2125 2139 2141 2155 2157 2171 2173 2187 2189 2203 2205 2219 2221 2244 2246 2259 2261 2274 2276 2289 2291 2304 2306 2319 2321 2334 2336 2349 2351 2364 2366 2379 2381 2404 2406 2419 2421 2434 2436 2449 2451 2464 2466 2479 2481 2494 2496 2509 2511 2533 2535 2548 2550 2563 2565 2578 2580 2593 2595 2608 2610 2623 2625 2638 2640 2653 2655 2678 2680 2693 2695 2708 2710 2723 2725 2738 2740 2753 2755 2768 2770 2783 2785 2808 2810 2823 2825 2838 2840 2853 2855 2868 2870 2883 2885 2898 2900 2913 2915 2928 2930 2943 2945 2969 2971 2984 2986 2999 3001 3014 3016 3029 3031 3044 3046 3059 3061 3074 3076 3089 3091 3100 3102 3111 3113 3122 3124 3133 3135 3144 3146 3155 3157 3166 3168 3177 3179 3188 3190 3199 3201 3210 3212 3221 3223 3232 3234 3243 3245 3254 3256 3265 3267 3276 3278 3287 3289 3298 3300 3309 3311 3320 3322 3331 3333 3342 3344 3353 3355 3364 3366 3375 3377 3386 3388 3397 3399 3408 3410 3419 3421 3430 3432 3441 3443 3452 3454 3463 3465 3474 3476 3485 3487 3496 3498 3507 3509 3518 3520 3529 3531 3540 3542 3551 3553 3562 3564 3573 3575 3584 3586 3595 3597 3607 3609 3618 3620 3629 3631 3640 3642 3651 3653 3662 3664 3673 3675 3684 3686 3695 3697 3706 3708 3717 3719 3728 3730 3739 3741 3750 3752 3761 3763 3772 3774 3783 3785 3794 3796 3805 3807 3816 3818 3827 3829 3838 3840 3849 3851 3860 3862 3871 3873 3882 3884 3893 3895 3905 3907 3916 3918 3927 3929 3938 3940 3949 3951 3960 3962 3971 3973 3982 3984 3993 3995 4004 4006 4015 4017 4026 4028 4037 4039 4048 4050 4059 4061 4070 4072 4081 4083 4092 4094 4103 4105 4114 4116 4125 4127 4136 4138 4147 4149 4158 4160 4169 4171 4180 4182 4191 4193 4202 4204 4213 4215 4224 4226 4235 4237 4246 4248 4257 4259 4268 4270 4279 4281 4290 4292 4301 4303 4312 4314 4323 4325 4334 4336 4345 4347 4356 4358 4367 4369 4378 4380 4389 4391 4400 4402 4411 4413 4422 4424 4433 4435 4444 4446 4455 4457 4466 4468 4477 4479 4488 4490 4499 4501 4510 4512 4521 4523 4532 4534 4543 4545 4554 4556 4565 4567 4576 4578 4587 4589 4598 4600 4609 4611 4620 4622 4631 4633 4642 4644 4653 4655 4664 4666 4675 4677 4686 4688 4697 4699 4708 4710 4719 4721 4730 4732 4741 4743 4752 4754 4763 4765 4774 4776 4785 4787 4796 4798 4807 4809 4818 4820 4829 4831 4840 4842 4851 4853 4862 4864 4873 4875 4893 4895 4913 4915 4930 4932 4950 4952 4967 4969 4987 4989 5004 5006 5024 5026 5051 5053 5062 5064 5073 5075 5084 5086 5095 5097 5106 5108 SEQ 0218 5117 5119 5128 5130 5148 5150 5168 5170 5185 5187 5205 5207 5222 5224 5242 5244 5259 5261 5279 5281 5306 5308 5317 5319 5328 5330 5339 5341 5350 5352 5361 5363 5372 5374 5383 5385 5394 5396 5405 5407 5416 5418 5427 5429 5438 5440 5449 5451 5460 5462 5471 5473 5482 5484 5493 5495 5504 5506 5515 5517 5526 5528 5538 5540 5549 5551 5560 5562 5571 5573 5582 5584 5593 5595 5604 5606 5615 5617 5626 5628 5637 5639 5648 5650 5659 5661 5670 5672 5683 5685 5689 5691 5703 5705 5709 5711 5723 5725 5729 5731 5743 5745 5749 5751 5763 5765 5769 5771 5783 5785 5789 5791 5803 5805 5809 5811 5823 5825 5829 5831 5843 5845 5849 5851 5863 5865 5869 5871 5883 5885 5889 5891 5903 5905 5909 5911 5923 5925 5929 5931 5943 5945 5949 5951 5961 5963 5972 5974 5983 5985 5994 5996 6005 6007 6016 6018 6027 6029 6038 6040 6049 6051 6060 6062 6071 6073 6082 6084 6093 6095 6106 6108 6112 6114 6124 6126 6135 6137 6146 6148 6157 6159 6168 6170 6179 6181 6190 6192 6201 6203 6212 6214 6232 6234 6252 6254 6269 6271 6289 6291 6306 6308 6326 6328 6343 6345 6363 6365 6390 6392 6401 6403 6412 6414 6423 6425 6434 6436 6445 6447 6456 6458 6467 6469 6478 6480 6489 6491 6500 6502 6511 6513 6522 6524 6533 6535 6544 6546 6555 6557 6566 6568 6577 6579 6588 6590 6599 6601 6610 6612 6621 6623 6632 6634 6643 6645 6654 6656 6665 6667 6676 6678 6687 6689 6698 6700 6709 6711 6720 6722 6731 6733 6742 6744 6753 6755 6764 6766 6775 6777 6786 6788 6797 6799 6808 6810 6819 6821 6830 6832 6841 6843 6852 6854 6863 6865 6878 6889 6895 6897 6903 6907 6927 6929 6947 6949 6964 6966 6984 6986 7001 7003 7021 7023 7038 7040 7058 7060 7077 7079 7097 7099 CAMN 6901 7119 DEFINE 7 63 91 113 141 171 209 253 278 305 337 372 417 428 439 450 460 471 482 493 503 525 535 557 569 737 740 746 DFAD 1170 1193 1207 1221 1235 1249 1263 1277 1291 1314 1328 1342 1356 1370 1384 1398 1412 1426 1440 1454 1468 1482 1496 1510 1524 1538 1552 1575 1589 1603 1617 1631 1645 1659 1673 1687 1701 1715 1729 1743 1757 1771 1785 1799 1822 1836 1850 1864 1878 1892 1906 1920 1934 1948 1962 1976 1990 2004 2018 2032 2046 2060 2089 2105 2121 2137 2153 2169 2185 2201 2217 2242 2257 2272 2287 2302 2317 2332 2347 2362 2377 2402 2417 2432 2447 2462 2477 2492 2507 2531 2546 2561 2576 2591 2606 2621 2636 2651 2676 2691 2706 2721 2736 2751 2766 2781 2806 2821 2836 2851 2866 2881 2896 2911 2926 2941 2967 2982 2997 3012 3027 3042 3057 3072 3088 3098 3109 3120 3131 3142 3153 3164 3175 3186 3197 3208 3219 3230 3241 3252 3263 3274 3285 3296 3307 3318 3329 3340 3351 3362 3373 3384 3395 3406 3417 3428 3439 3450 3461 3472 3483 3494 3505 3516 3527 3538 3549 3560 3571 3582 3593 3605 3616 3627 3638 3649 3660 3671 3682 3693 3704 3715 3726 3737 3748 3759 3770 3781 3792 3803 3814 3825 3836 3847 3858 3869 3880 3891 3903 3914 3925 3936 3947 3958 3969 3980 3991 4002 4013 4024 4035 4046 4057 4068 4079 4090 4101 4112 4123 4134 4145 4156 4167 4178 4189 4200 4211 4222 4233 4244 4255 4266 4277 4288 4299 4310 4321 4332 4343 4354 4365 4376 4387 4398 4409 4420 4431 4442 4453 4464 4475 4486 4497 4508 4519 4530 4541 4552 4563 4574 4585 4596 4607 4618 4629 4640 4651 4662 4673 4684 4695 4706 4717 4728 4739 4750 4761 4772 4783 4794 4805 4816 4827 4838 4849 4860 4871 4890 4910 4927 4947 4964 4984 5001 5021 DFDV 6389 6399 6410 6421 6432 6443 6454 6465 6476 6487 6498 6509 6520 6531 6542 6553 6564 6575 6586 6597 6608 6619 6630 6641 6652 6663 6674 6685 6696 6707 6718 6729 6740 6751 6762 6773 6784 6795 6806 6817 6828 6839 6850 6861 6873 6924 6944 6961 6981 6998 7018 7035 7055 7074 7094 DFMP 5305 5315 5326 5337 5348 5359 5370 5381 5392 5403 5414 5425 5436 5447 SEQ 0219 5458 5469 5480 5491 5502 5513 5524 5536 5547 5558 5569 5580 5591 5602 5613 5624 5635 5646 5657 5668 5679 5699 5719 5739 5759 5779 5799 5819 5839 5859 5879 5899 5919 5939 5959 5970 5981 5992 6003 6014 6025 6036 6047 6058 6069 6080 6091 6102 6122 6133 6144 6155 6166 6177 6188 6199 6210 6229 6249 6266 6286 6303 6323 6340 6360 DFSB 5050 5060 5071 5082 5093 5104 5115 5126 5145 5165 5182 5202 5219 5239 5256 5276 DMOVE 1168 1191 1205 1219 1233 1247 1261 1275 1289 1312 1326 1340 1354 1368 1382 1396 1410 1424 1438 1452 1466 1480 1494 1508 1522 1536 1550 1573 1587 1601 1615 1629 1643 1657 1671 1685 1699 1713 1727 1741 1755 1769 1783 1797 1820 1834 1848 1862 1876 1890 1904 1918 1932 1946 1960 1974 1988 2002 2016 2030 2044 2058 2087 2103 2119 2135 2151 2167 2183 2199 2215 2240 2255 2270 2285 2300 2315 2330 2345 2360 2375 2400 2415 2430 2445 2460 2475 2490 2505 2529 2544 2559 2574 2589 2604 2619 2634 2649 2674 2689 2704 2719 2734 2749 2764 2779 2804 2819 2834 2849 2864 2879 2894 2909 2924 2939 2965 2980 2995 3010 3025 3040 3055 3070 3084 3086 3096 3107 3118 3129 3140 3151 3162 3173 3184 3195 3206 3217 3228 3239 3250 3261 3272 3283 3294 3305 3316 3327 3338 3349 3360 3371 3382 3393 3404 3415 3426 3437 3448 3459 3470 3481 3492 3503 3514 3525 3536 3547 3558 3569 3580 3591 3603 3614 3625 3636 3647 3658 3669 3680 3691 3702 3713 3724 3735 3746 3757 3768 3779 3790 3801 3812 3823 3834 3845 3856 3867 3878 3889 3901 3912 3923 3934 3945 3956 3967 3978 3989 4000 4011 4022 4033 4044 4055 4066 4077 4088 4099 4110 4121 4132 4143 4154 4165 4176 4187 4198 4209 4220 4231 4242 4253 4264 4275 4286 4297 4308 4319 4330 4341 4352 4363 4374 4385 4396 4407 4418 4429 4440 4451 4462 4473 4484 4495 4506 4517 4528 4539 4550 4561 4572 4583 4594 4605 4616 4627 4638 4649 4660 4671 4682 4693 4704 4715 4726 4737 4748 4759 4770 4781 4792 4803 4814 4825 4836 4847 4858 4869 4888 4908 4925 4945 4962 4982 4999 5019 5046 5048 5058 5069 5080 5091 5102 5113 5124 5143 5163 5180 5200 5217 5237 5254 5274 5301 5303 5313 5324 5335 5346 5357 5368 5379 5390 5401 5412 5423 5434 5445 5456 5467 5478 5489 5500 5511 5522 5534 5545 5556 5567 5578 5589 5600 5611 5622 5633 5644 5655 5666 5677 5697 5717 5737 5757 5777 5797 5817 5837 5857 5877 5897 5917 5937 5957 5968 5979 5990 6001 6012 6023 6034 6045 6056 6067 6078 6089 6100 6120 6131 6142 6153 6164 6175 6186 6197 6208 6227 6247 6264 6284 6301 6321 6338 6358 6385 6387 6397 6408 6419 6430 6441 6452 6463 6474 6485 6496 6507 6518 6529 6540 6551 6562 6573 6584 6595 6606 6617 6628 6639 6650 6661 6672 6683 6694 6705 6716 6727 6738 6749 6760 6771 6782 6793 6804 6815 6826 6837 6848 6859 6871 6922 6942 6959 6979 6996 7016 7033 7053 7072 7092 END 8310 HRL 7122 HRRZ 7118 7148 7187 IFDEF 803 854 855 856 857 7152 7222 8301 8308 IFE 2085 2101 2117 2133 2149 2165 2181 2197 2213 IFNDEF 792 793 803 854 855 856 857 936 7270 JFCL 894 895 896 897 898 899 900 901 902 903 904 905 JFOV 4900 4919 4937 4956 4974 4993 5011 5030 5155 5174 5192 5211 5229 5248 5266 5285 6239 6258 6276 6295 6313 6332 6350 6369 6934 6953 6971 6990 7008 7027 7045 7064 7083 7103 JOV 4897 4917 4934 4954 4971 4991 5008 5028 5152 5172 5189 5209 5226 5246 5263 5283 6236 6256 6273 6293 6310 6330 6347 6367 6931 6951 6968 6988 7005 7025 7042 7062 7081 7101 SEQ 0220 JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833 886 1155 4898 4901 4935 4938 4972 4975 5009 5012 5153 5156 5190 5193 5227 5230 5264 5267 5682 5688 5693 5694 5702 5708 5713 5714 5722 5728 5733 5734 5742 5748 5753 5754 5762 5768 5773 5774 5782 5788 5793 5794 5802 5808 5813 5814 5822 5828 5833 5834 5842 5848 5853 5854 5862 5868 5873 5874 5882 5888 5893 5894 5902 5908 5913 5914 5922 5928 5933 5934 5942 5948 5953 5954 6105 6111 6116 6117 6237 6240 6274 6277 6311 6314 6348 6351 6876 6882 6887 6893 6899 6902 6905 6909 6911 6932 6935 6969 6972 7006 7009 7043 7046 7109 7126 7133 7136 7141 7169 7175 7189 7191 7193 7196 7199 7201 7203 7229 7232 7245 7249 7252 7255 7259 7260 7264 JSP 651 4892 4912 4929 4949 4966 4986 5003 5023 5147 5167 5184 5204 5221 5241 5258 5278 6231 6251 6268 6288 6305 6325 6342 6362 6926 6946 6963 6983 7000 7020 7037 7057 7076 7096 JUMPL 1176 1199 1213 1227 1241 1255 1269 1283 1297 1320 1334 1348 1362 1376 1390 1404 1418 1432 1446 1460 1474 1488 1502 1516 1530 1544 1558 1581 1595 1609 1623 1637 1651 1665 1679 1693 1707 1721 1735 1749 1763 1777 1791 1805 1828 1842 1856 1870 1884 1898 1912 1926 1940 1954 1968 1982 1996 2010 2024 2038 2052 2066 2095 2111 2127 2143 2159 2175 2191 2207 2223 2248 2263 2278 2293 2308 2323 2338 2353 2368 2383 2408 2423 2438 2453 2468 2483 2498 2513 2537 2552 2567 2582 2597 2612 2627 2642 2657 2682 2697 2712 2727 2742 2757 2772 2787 2812 2827 2842 2857 2872 2887 2902 2917 2932 2947 2973 2988 3003 3018 3033 3048 3063 3078 3093 3104 3115 3126 3137 3148 3159 3170 3181 3192 3203 3214 3225 3236 3247 3258 3269 3280 3291 3302 3313 3324 3335 3346 3357 3368 3379 3390 3401 3412 3423 3434 3445 3456 3467 3478 3489 3500 3511 3522 3533 3544 3555 3566 3577 3588 3599 3611 3622 3633 3644 3655 3666 3677 3688 3699 3710 3721 3732 3743 3754 3765 3776 3787 3798 3809 3820 3831 3842 3853 3864 3875 3886 3897 3909 3920 3931 3942 3953 3964 3975 3986 3997 4008 4019 4030 4041 4052 4063 4074 4085 4096 4107 4118 4129 4140 4151 4162 4173 4184 4195 4206 4217 4228 4239 4250 4261 4272 4283 4294 4305 4316 4327 4338 4349 4360 4371 4382 4393 4404 4415 4426 4437 4448 4459 4470 4481 4492 4503 4514 4525 4536 4547 4558 4569 4580 4591 4602 4613 4624 4635 4646 4657 4668 4679 4690 4701 4712 4723 4734 4745 4756 4767 4778 4789 4800 4811 4822 4833 4844 4855 4866 4877 4905 4923 4942 4960 4979 4997 5016 5034 5055 5066 5077 5088 5099 5110 5121 5132 5160 5178 5197 5215 5234 5252 5271 5289 5310 5321 5332 5343 5354 5365 5376 5387 5398 5409 5420 5431 5442 5453 5464 5475 5486 5497 5508 5519 5530 5542 5553 5564 5575 5586 5597 5608 5619 5630 5641 5652 5663 5674 5687 5707 5727 5747 5767 5787 5807 5827 5847 5867 5887 5907 5927 5947 5965 5976 5987 5998 6009 6020 6031 6042 6053 6064 6075 6086 6097 6110 6128 6139 6150 6161 6172 6183 6194 6205 6216 6244 6262 6281 6299 6318 6336 6355 6373 6394 6405 6416 6427 6438 6449 6460 6471 6482 6493 6504 6515 6526 6537 6548 6559 6570 6581 6592 6603 6614 6625 6636 6647 6658 6669 6680 6691 6702 6713 6724 6735 6746 6757 6768 6779 6790 6801 6812 6823 6834 6845 6856 6867 6892 6939 6957 6976 6994 7013 7031 7050 7068 7087 7107 LALL 8 LIST 7 803 936 7152 7222 7270 8298 LIT 7271 LOC 22 806 1130 LSH 7128 7160 MOVE 1152 7121 7127 7130 7131 7144 7159 7162 7164 7167 7173 7177 7233 7241 7242 7250 7254 7257 MOVEI 1160 1162 4882 4884 5039 5041 5137 5139 5294 5296 6221 6223 6378 6380 SEQ 0221 6916 6918 7184 7230 MOVEM 1153 1161 1163 4883 4885 5040 5042 5138 5140 5295 5297 6222 6224 6379 6381 6917 6919 7114 7115 7116 7129 7149 7231 MOVSS 6884 NOSYM 24 OPDEF 29 30 31 32 33 34 35 36 37 38 39 638 639 640 641 642 643 644 645 651 657 658 666 667 668 669 670 671 672 673 674 675 676 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 735 752 757 758 762 763 764 770 771 777 778 779 780 781 782 783 789 790 797 798 799 800 803 POP 641 POPJ 639 PUSH 640 PUSHJ 638 REPEAT 1181 1302 1563 1810 2073 2228 2388 2517 2662 2792 2953 SETOM 7139 7237 7243 SETZM 7123 7134 SIXBIT 85 86 1021 1022 1030 1031 1133 7143 7147 7158 7183 7263 SKIPE 5681 5701 5721 5741 5761 5781 5801 5821 5841 5861 5881 5901 5921 5941 6104 6881 SKIPGE 7132 SKIPL 7135 7248 SKIPN 6875 7137 7140 7244 SUBTTL 25 567 602 803 804 1156 3080 5035 5290 6374 7110 7265 TITLE 12 TLNE 4903 4921 4940 4977 4995 5014 5158 5176 5195 5232 5250 5269 6242 6260 6279 6316 6334 6353 6937 6955 6974 7011 7029 7048 7125 7168 7234 7238 TLNN 4958 5032 5213 5287 6297 6371 6992 7066 7085 7105 7236 7258 TRNE 7188 7190 7192 VAR 8306 XALL 14 XCT 7225 XLIST 6 802 803 935 7151 7221 7269 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 1 SEQ 0222 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 *030631 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *030640 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200600 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *030647 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200500 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *030656 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200440 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 ---------- *030665 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200420 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 2 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0223 *030674 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200410 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 173400 000000 C(AC+1)= 000000 000000 ---------- *030703 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200404 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 172400 000000 C(AC+1)= 000000 000000 ---------- *030712 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200402 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 171400 000000 C(AC+1)= 000000 000000 ---------- *030721 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200401 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 170400 000000 C(AC+1)= 000000 000000 ---------- *030730 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 400000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 167400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 3 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0224 *030737 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 200000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 166400 000000 C(AC+1)= 000000 000000 ---------- *030746 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 100000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 165400 000000 C(AC+1)= 000000 000000 ---------- *030755 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 040000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 164400 000000 C(AC+1)= 000000 000000 ---------- *030764 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 020000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 163400 000000 C(AC+1)= 000000 000000 ---------- *030773 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 010000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 162400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 4 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0225 *031002 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 004000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 161400 000000 C(AC+1)= 000000 000000 ---------- *031011 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 002000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 160400 000000 C(AC+1)= 000000 000000 ---------- *031020 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 001000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 157400 000000 C(AC+1)= 000000 000000 ---------- *031027 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000400 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 156400 000000 C(AC+1)= 000000 000000 ---------- *031036 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000200 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 155400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 5 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0226 *031045 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000100 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 154400 000000 C(AC+1)= 000000 000000 ---------- *031054 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000040 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 153400 000000 C(AC+1)= 000000 000000 ---------- *031063 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000020 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 152400 000000 C(AC+1)= 000000 000000 ---------- *031072 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000010 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 151400 000000 C(AC+1)= 000000 000000 ---------- *031101 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000004 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 150400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 6 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0227 *031110 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000002 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 147400 000000 C(AC+1)= 000000 000000 ---------- *031117 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000001 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 146400 000000 C(AC+1)= 000000 000000 ---------- *031126 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 200000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 145400 000000 C(AC+1)= 000000 000000 ---------- *031135 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 100000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 144400 000000 C(AC+1)= 000000 000000 ---------- *031144 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 040000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 143400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 7 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0228 *031153 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 020000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 142400 000000 C(AC+1)= 000000 000000 ---------- *031162 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 010000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 141400 000000 C(AC+1)= 000000 000000 ---------- *031171 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 004000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 140400 000000 C(AC+1)= 000000 000000 ---------- *031200 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 002000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 137400 000000 C(AC+1)= 000000 000000 ---------- *031207 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 001000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 136400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 8 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0229 *031216 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000400 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 135400 000000 C(AC+1)= 000000 000000 ---------- *031225 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000200 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 134400 000000 C(AC+1)= 000000 000000 ---------- *031234 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000100 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 133400 000000 C(AC+1)= 000000 000000 ---------- *031243 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000040 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 132400 000000 C(AC+1)= 000000 000000 ---------- *031252 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000020 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 131400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 9 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0230 *031261 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000010 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 130400 000000 C(AC+1)= 000000 000000 ---------- *031270 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000004 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 127400 000000 C(AC+1)= 000000 000000 ---------- *031277 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000002 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 126400 000000 C(AC+1)= 000000 000000 ---------- *031306 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000001 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 125400 000000 C(AC+1)= 000000 000000 ---------- *031315 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 400000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 124400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 10 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0231 *031324 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 200000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 123400 000000 C(AC+1)= 000000 000000 ---------- *031333 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 100000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 122400 000000 C(AC+1)= 000000 000000 ---------- *031342 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 040000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 121400 000000 C(AC+1)= 000000 000000 ---------- *031351 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 020000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 120400 000000 C(AC+1)= 000000 000000 ---------- *031360 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 010000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 117400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 11 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0232 *031367 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 004000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 116400 000000 C(AC+1)= 000000 000000 ---------- *031376 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 002000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 115400 000000 C(AC+1)= 000000 000000 ---------- *031405 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 001000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 114400 000000 C(AC+1)= 000000 000000 ---------- *031414 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000400 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 113400 000000 C(AC+1)= 000000 000000 ---------- *031423 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000200 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 112400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 12 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0233 *031432 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000100 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 111400 000000 C(AC+1)= 000000 000000 ---------- *031441 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000040 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 110400 000000 C(AC+1)= 000000 000000 ---------- *031450 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000020 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 107400 000000 C(AC+1)= 000000 000000 ---------- *031457 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000010 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 106400 000000 C(AC+1)= 000000 000000 ---------- *031466 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000004 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 105400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 13 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0234 *031475 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000002 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 104400 000000 C(AC+1)= 000000 000000 ---------- *031504 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000001 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 103400 000000 C(AC+1)= 000000 000000 ---------- *031513 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600377 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600377 777777 C(AC+1)= 377777 777777 ---------- *031522 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600577 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 601377 777777 C(AC+1)= 377777 777776 ---------- *031531 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600677 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 602377 777777 C(AC+1)= 377777 777774 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 14 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0235 *031540 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600737 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 603377 777777 C(AC+1)= 377777 777770 ---------- *031547 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600757 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 604377 777777 C(AC+1)= 377777 777760 ---------- *031556 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600767 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 605377 777777 C(AC+1)= 377777 777740 ---------- *031565 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600773 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 606377 777777 C(AC+1)= 377777 777700 ---------- *031574 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600775 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 607377 777777 C(AC+1)= 377777 777600 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 15 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0236 *031603 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600776 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 610377 777777 C(AC+1)= 377777 777400 ---------- *031612 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 377777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 611377 777777 C(AC+1)= 377777 777000 ---------- *031621 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 577777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 612377 777777 C(AC+1)= 377777 776000 ---------- *031630 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 677777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 613377 777777 C(AC+1)= 377777 774000 ---------- *031637 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 737777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 614377 777777 C(AC+1)= 377777 770000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 16 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0237 *031646 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 757777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 615377 777777 C(AC+1)= 377777 760000 ---------- *031655 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 767777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 616377 777777 C(AC+1)= 377777 740000 ---------- *031664 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 773777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 617377 777777 C(AC+1)= 377777 700000 ---------- *031673 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 775777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 620377 777777 C(AC+1)= 377777 600000 ---------- *031702 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 776777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 621377 777777 C(AC+1)= 377777 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 17 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0238 *031711 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777377 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 622377 777777 C(AC+1)= 377777 000000 ---------- *031720 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777577 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 623377 777777 C(AC+1)= 377776 000000 ---------- *031727 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777677 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 624377 777777 C(AC+1)= 377774 000000 ---------- *031736 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777737 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 625377 777777 C(AC+1)= 377770 000000 ---------- *031745 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777757 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 626377 777777 C(AC+1)= 377760 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 18 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0239 *031754 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777767 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 627377 777777 C(AC+1)= 377740 000000 ---------- *031763 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777773 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 630377 777777 C(AC+1)= 377700 000000 ---------- *031772 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777775 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 631377 777777 C(AC+1)= 377600 000000 ---------- *032001 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 632377 777777 C(AC+1)= 377400 000000 ---------- *032010 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 577777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 633377 777777 C(AC+1)= 377000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 19 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0240 *032017 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 677777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 634377 777777 C(AC+1)= 376000 000000 ---------- *032026 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 737777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 635377 777777 C(AC+1)= 374000 000000 ---------- *032035 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 757777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 636377 777777 C(AC+1)= 370000 000000 ---------- *032044 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 767777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 637377 777777 C(AC+1)= 360000 000000 ---------- *032053 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 773777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 640377 777777 C(AC+1)= 340000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 20 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0241 *032062 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 775777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 641377 777777 C(AC+1)= 300000 000000 ---------- *032071 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 776777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 642377 777777 C(AC+1)= 200000 000000 ---------- *032100 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777377 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 643377 777777 C(AC+1)= 000000 000000 ---------- *032107 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777577 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 644377 777776 C(AC+1)= 000000 000000 ---------- *032116 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777677 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 645377 777774 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 21 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0242 *032125 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777737 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 646377 777770 C(AC+1)= 000000 000000 ---------- *032134 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777757 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 647377 777760 C(AC+1)= 000000 000000 ---------- *032143 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777767 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 650377 777740 C(AC+1)= 000000 000000 ---------- *032152 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777773 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 651377 777700 C(AC+1)= 000000 000000 ---------- *032161 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777775 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 652377 777600 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 22 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0243 *032170 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777776 777777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 653377 777400 C(AC+1)= 000000 000000 ---------- *032177 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 377777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 654377 777000 C(AC+1)= 000000 000000 ---------- *032206 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 577777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 655377 776000 C(AC+1)= 000000 000000 ---------- *032215 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 677777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 656377 774000 C(AC+1)= 000000 000000 ---------- *032224 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 737777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 657377 770000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 23 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0244 *032233 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 757777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 660377 760000 C(AC+1)= 000000 000000 ---------- *032242 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 767777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 661377 740000 C(AC+1)= 000000 000000 ---------- *032251 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 773777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 662377 700000 C(AC+1)= 000000 000000 ---------- *032260 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 775777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 663377 600000 C(AC+1)= 000000 000000 ---------- *032267 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 776777 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 664377 400000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 24 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0245 *032276 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777377 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 665377 000000 C(AC+1)= 000000 000000 ---------- *032305 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777577 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 666376 000000 C(AC+1)= 000000 000000 ---------- *032314 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777677 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 667374 000000 C(AC+1)= 000000 000000 ---------- *032323 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777737 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 670370 000000 C(AC+1)= 000000 000000 ---------- *032332 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777757 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 671360 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 25 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0246 *032341 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777767 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 672340 000000 C(AC+1)= 000000 000000 ---------- *032350 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777773 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 673300 000000 C(AC+1)= 000000 000000 ---------- *032357 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777775 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 674200 000000 C(AC+1)= 000000 000000 ---------- *032366 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600777 777777 C(AC+1)= 777777 777776 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 674400 000000 C(AC+1)= 000000 000000 ---------- *032376 DFAD 4,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 400000 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 377777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 26 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0247 *032405 DFAD 4,040716 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000600 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 001500 000000 C(AC+1)= 000000 000000 ---------- *032414 DFAD 4,040723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377000 000000 C(AC+1)= 000000 000000 C(E)= 377600 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377600 000000 C(AC+1)= 000000 000000 ---------- *032423 DFAD 4,040727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 177400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032432 DFAD 4,040733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 205400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 205410 000000 C(AC+1)= 000000 000000 ---------- *032441 DFAD 4,040736 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 205600 000000 C(E+1)= 000000 000000 FINAL C(AC)= 205610 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 27 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0248 *032450 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000600 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *032457 DFAD 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 ---------- *032466 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201600 000000 C(AC+1)= 000000 000000 ---------- *032475 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202500 000000 C(AC+1)= 000000 000000 ---------- *032504 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 204400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 204420 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 28 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0249 *032513 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 210400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 210401 000000 C(AC+1)= 000000 000000 ---------- *032522 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 220400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 220400 002000 C(AC+1)= 000000 000000 ---------- *032531 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 240400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 240400 000000 C(AC+1)= 004000 000000 ---------- *032540 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 300400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 300400 000000 C(AC+1)= 000000 000000 ---------- *032547 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 29 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0250 *032556 DFAD 4,040733 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 205400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 205400 000000 C(AC+1)= 000000 000000 ---------- *032565 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *032574 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 ---------- *032603 DFAD 4,040727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 205600 000000 C(AC+1)= 000000 000000 C(E)= 177400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 205604 000000 C(AC+1)= 000000 000000 ---------- *032612 DFAD 4,040770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201000 000000 C(AC+1)= 000000 000000 C(E)= 202000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 30 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0251 *032621 DFAD 4,040772 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202000 000000 C(AC+1)= 000000 000000 C(E)= 204000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032630 DFAD 4,040774 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 204000 000000 C(AC+1)= 000000 000000 C(E)= 207000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032637 DFAD 4,041000 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 210000 000000 C(AC+1)= 000000 000000 C(E)= 214000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032646 DFAD 4,041004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 220000 000000 C(AC+1)= 000000 000000 C(E)= 225000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032655 DFAD 4,041010 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 240000 000000 C(AC+1)= 000000 000000 C(E)= 246000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 31 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0252 *032664 DFAD 4,041014 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 300000 000000 C(AC+1)= 000000 000000 C(E)= 307000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *032673 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *032702 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *032711 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *032720 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 203000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 32 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0253 *032727 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 204000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *032736 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 206000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *032745 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 207000 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *032754 DFAD 4,041026 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400200 000000 C(AC+1)= 000000 000000 C(E)= 377400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 401400 000000 C(AC+1)= 000000 000000 ---------- *032763 DFAD 4,041024 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 400200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 401400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 33 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0254 *032772 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *033001 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200600 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201700 000000 C(AC+1)= 000000 000000 ---------- *033010 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577600 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *033017 DFAD 4,041034 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 577200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 ---------- *033026 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 34 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0255 *033035 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200440 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201420 000000 C(AC+1)= 000000 000000 ---------- *033044 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 ---------- *033053 DFAD 4,041043 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000077 C(AC+1)= 000000 000000 C(E)= 206400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 206404 000000 C(AC+1)= 374000 000000 ---------- *033062 DFAD 4,041050 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 030400 000003 C(AC+1)= 000000 000000 C(E)= 032400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 032500 000000 C(AC+1)= 300000 000000 ---------- *033071 DFAD 4,041053 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000001 C(AC+1)= 000000 000000 C(E)= 201600 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202400 000000 C(AC+1)= 100000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 35 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0256 *033100 DFAD 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577400 000003 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201600 000001 C(AC+1)= 200000 000000 ---------- *033107 DFAD 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000003 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202500 000000 C(AC+1)= 300000 000000 ---------- *033116 DFAD 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 777777 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202500 177777 C(AC+1)= 300000 000000 ---------- *033125 DFAD 4,041065 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000001 C(AC+1)= 000000 000000 C(E)= 200200 000001 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000002 C(AC+1)= 000000 000000 ---------- *033134 DFAD 4,041067 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000002 C(AC+1)= 000000 000000 C(E)= 200200 000002 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000004 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 36 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0257 *033143 DFAD 4,041071 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000004 C(AC+1)= 000000 000000 C(E)= 200200 000004 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000010 C(AC+1)= 000000 000000 ---------- *033152 DFAD 4,041073 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000010 C(AC+1)= 000000 000000 C(E)= 200200 000010 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000020 C(AC+1)= 000000 000000 ---------- *033161 DFAD 4,041075 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000020 C(AC+1)= 000000 000000 C(E)= 200200 000020 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000040 C(AC+1)= 000000 000000 ---------- *033170 DFAD 4,041077 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000040 C(AC+1)= 000000 000000 C(E)= 200200 000040 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000100 C(AC+1)= 000000 000000 ---------- *033177 DFAD 4,041101 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000100 C(AC+1)= 000000 000000 C(E)= 200200 000100 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000200 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 37 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0258 *033206 DFAD 4,041103 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000200 C(AC+1)= 000000 000000 C(E)= 200200 000200 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000400 C(AC+1)= 000000 000000 ---------- *033215 DFAD 4,041105 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 000400 C(AC+1)= 000000 000000 C(E)= 200200 000400 C(E+1)= 000000 000000 FINAL C(AC)= 200400 001000 C(AC+1)= 000000 000000 ---------- *033224 DFAD 4,041107 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200200 001000 C(AC+1)= 000000 000000 C(E)= 200200 001000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 002000 C(AC+1)= 000000 000000 ---------- *033233 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 172400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201402 000000 C(AC+1)= 000000 000000 ---------- *033242 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 173400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201404 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 38 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0259 *033251 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201410 000000 C(AC+1)= 000000 000000 ---------- *033260 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201420 000000 C(AC+1)= 000000 000000 ---------- *033267 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201440 000000 C(AC+1)= 000000 000000 ---------- *033276 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201500 000000 C(AC+1)= 000000 000000 ---------- *033305 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202600 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202700 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 39 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0260 *033314 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *033323 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *033332 DFAD 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 ---------- *033341 DFAD 4,040766 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 201000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033350 DFAD 4,040770 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 202000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 40 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0261 *033357 DFAD 4,041020 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 203000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *033366 DFAD 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *033375 DFAD 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 ---------- *033404 DFAD 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 203400 000000 C(AC+1)= 000000 000000 ---------- *033413 DFAD 4,041134 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200100 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 41 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0262 *033422 DFAD 4,041136 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200040 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *033431 DFAD 4,041140 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200020 000000 C(E+1)= 000000 000000 FINAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 ---------- *033440 DFAD 4,041036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 576400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576200 000000 C(AC+1)= 000000 000000 ---------- *033447 DFAD 4,041036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 576400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576300 000000 C(AC+1)= 000000 000000 ---------- *033456 DFAD 4,041036 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 601400 000000 C(AC+1)= 000000 000000 C(E)= 576400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576340 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 42 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0263 *033465 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576200 000000 C(AC+1)= 000000 000000 ---------- *033474 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576300 000000 C(AC+1)= 000000 000000 ---------- *033503 DFAD 4,041144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 C(E)= 601400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576340 000000 C(AC+1)= 000000 000000 ---------- *033512 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 ---------- *033521 DFAD 4,041144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 601400 000000 C(AC+1)= 000000 000000 C(E)= 601400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 43 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0264 *033530 DFAD 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *033537 DFAD 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200600 000000 C(AC+1)= 000000 000000 ---------- *033546 DFAD 4,041144 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 601400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 ---------- *033555 DFAD 4,041147 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 146400 000000 C(AC+1)= 000000 000000 ---------- *033564 DFAD 4,041151 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000002 C(E+1)= 000000 000000 FINAL C(AC)= 147400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 44 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0265 *033573 DFAD 4,041153 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000004 C(E+1)= 000000 000000 FINAL C(AC)= 150400 000000 C(AC+1)= 000000 000000 ---------- *033602 DFAD 4,041155 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000010 C(E+1)= 000000 000000 FINAL C(AC)= 151400 000000 C(AC+1)= 000000 000000 ---------- *033611 DFAD 4,041157 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000020 C(E+1)= 000000 000000 FINAL C(AC)= 152400 000000 C(AC+1)= 000000 000000 ---------- *033620 DFAD 4,041161 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000040 C(E+1)= 000000 000000 FINAL C(AC)= 153400 000000 C(AC+1)= 000000 000000 ---------- *033627 DFAD 4,041163 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000100 C(E+1)= 000000 000000 FINAL C(AC)= 154400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 45 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0266 *033636 DFAD 4,041165 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000200 C(E+1)= 000000 000000 FINAL C(AC)= 155400 000000 C(AC+1)= 000000 000000 ---------- *033645 DFAD 4,041167 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000400 C(E+1)= 000000 000000 FINAL C(AC)= 156400 000000 C(AC+1)= 000000 000000 ---------- *033654 DFAD 4,041171 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 001000 C(E+1)= 000000 000000 FINAL C(AC)= 157400 000000 C(AC+1)= 000000 000000 ---------- *033663 DFAD 4,041173 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 002000 C(E+1)= 000000 000000 FINAL C(AC)= 160400 000000 C(AC+1)= 000000 000000 ---------- *033672 DFAD 4,041175 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 004000 C(E+1)= 000000 000000 FINAL C(AC)= 161400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 46 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0267 *033701 DFAD 4,041177 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 010000 C(E+1)= 000000 000000 FINAL C(AC)= 162400 000000 C(AC+1)= 000000 000000 ---------- *033710 DFAD 4,041201 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 020000 C(E+1)= 000000 000000 FINAL C(AC)= 163400 000000 C(AC+1)= 000000 000000 ---------- *033717 DFAD 4,041203 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 040000 C(E+1)= 000000 000000 FINAL C(AC)= 164400 000000 C(AC+1)= 000000 000000 ---------- *033726 DFAD 4,041205 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 100000 C(E+1)= 000000 000000 FINAL C(AC)= 165400 000000 C(AC+1)= 000000 000000 ---------- *033735 DFAD 4,041207 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 200000 C(E+1)= 000000 000000 FINAL C(AC)= 166400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 47 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0268 *033744 DFAD 4,041211 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 400000 C(E+1)= 000000 000000 FINAL C(AC)= 167400 000000 C(AC+1)= 000000 000000 ---------- *033753 DFAD 4,041213 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200001 000000 C(E+1)= 000000 000000 FINAL C(AC)= 170400 000000 C(AC+1)= 000000 000000 ---------- *033762 DFAD 4,041215 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200002 000000 C(E+1)= 000000 000000 FINAL C(AC)= 171400 000000 C(AC+1)= 000000 000000 ---------- *033771 DFAD 4,041217 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200004 000000 C(E+1)= 000000 000000 FINAL C(AC)= 172400 000000 C(AC+1)= 000000 000000 ---------- *034000 DFAD 4,041221 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200010 000000 C(E+1)= 000000 000000 FINAL C(AC)= 173400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 48 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0269 *034007 DFAD 4,041140 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200020 000000 C(E+1)= 000000 000000 FINAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 ---------- *034016 DFAD 4,041136 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200040 000000 C(E+1)= 000000 000000 FINAL C(AC)= 175400 000000 C(AC+1)= 000000 000000 ---------- *034025 DFAD 4,041134 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200100 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *034034 DFAD 4,041026 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 377400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *034043 DFAD 4,041223 FLAGS - INT/FINAL 440200 440300 INITIAL C(AC)= 777700 000000 C(AC+1)= 000000 000000 C(E)= 777700 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 49 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0270 *034052 DFAD 4,041226 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 200777 777777 C(AC+1)= 000000 000000 ---------- *034061 DFAD 4,040057 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 200000 000000 ---------- *034070 DFAD 4,040744 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202400 000000 C(AC+1)= 200000 000000 ---------- *034077 DFAD 4,041230 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 203400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 203400 000000 C(AC+1)= 200000 000000 ---------- *034106 DFAD 4,040747 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 204400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 204400 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 50 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0271 *034115 DFAD 4,040733 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 205400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 205400 000000 C(AC+1)= 200000 000000 ---------- *034124 DFAD 4,041043 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 206400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 206400 000000 C(AC+1)= 200000 000000 ---------- *034133 DFAD 4,041232 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 207400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 207400 000000 C(AC+1)= 200000 000000 ---------- *034142 DFAD 4,040752 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 210400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 210400 000000 C(AC+1)= 200000 000000 ---------- *034151 DFAD 4,041234 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 211400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 211400 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 51 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0272 *034160 DFAD 4,041236 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 212400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 212400 000000 C(AC+1)= 200000 000000 ---------- *034167 DFAD 4,041240 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 213400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 213400 000000 C(AC+1)= 200000 000000 ---------- *034176 DFAD 4,041242 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 214400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 214400 000000 C(AC+1)= 200000 000000 ---------- *034205 DFAD 4,041244 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 215400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 215400 000000 C(AC+1)= 200000 000000 ---------- *034214 DFAD 4,041246 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 216400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 216400 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 52 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0273 *034223 DFAD 4,041250 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 217400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 217400 000000 C(AC+1)= 200000 000000 ---------- *034232 DFAD 4,040755 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 220400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 220400 000000 C(AC+1)= 200000 000000 ---------- *034241 DFAD 4,041252 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 221400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221400 000000 C(AC+1)= 200000 000000 ---------- *034250 DFAD 4,041254 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 222400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 222400 000000 C(AC+1)= 200000 000000 ---------- *034257 DFAD 4,041256 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 223400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 223400 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 53 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0274 *034266 DFAD 4,041260 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 224400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 224400 000000 C(AC+1)= 200000 000000 ---------- *034275 DFAD 4,041262 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 225400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 225400 000000 C(AC+1)= 200000 000000 ---------- *034304 DFAD 4,041264 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 226400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 226400 000000 C(AC+1)= 200000 000000 ---------- *034313 DFAD 4,041266 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 227400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 227400 000000 C(AC+1)= 200000 000000 ---------- *034322 DFAD 4,041270 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 230400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 230400 000000 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 54 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0275 *034331 DFAD 4,041272 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 231400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 231400 000000 C(AC+1)= 200000 000000 ---------- *034340 DFAD 4,041276 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 232400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 232400 000000 C(AC+1)= 200000 000000 ---------- *034347 DFAD 4,041300 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 233400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 233400 000000 C(AC+1)= 200000 000000 ---------- *034356 DFAD 4,040177 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000001 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 200000 000000 ---------- *034365 DFAD 4,040057 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201600 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 55 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0276 *034374 DFAD 4,040744 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000003 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202400 000000 C(AC+1)= 300000 000000 ---------- *034403 DFAD 4,041230 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000005 C(AC+1)= 000000 000000 C(E)= 203400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 203400 000000 C(AC+1)= 240000 000000 ---------- *034412 DFAD 4,040747 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000011 C(AC+1)= 000000 000000 C(E)= 204400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 204400 000000 C(AC+1)= 220000 000000 ---------- *034421 DFAD 4,040733 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000021 C(AC+1)= 000000 000000 C(E)= 205400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 205400 000000 C(AC+1)= 210000 000000 ---------- *034430 DFAD 4,041043 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000041 C(AC+1)= 000000 000000 C(E)= 206400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 206400 000000 C(AC+1)= 204000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 56 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0277 *034437 DFAD 4,041232 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000101 C(AC+1)= 000000 000000 C(E)= 207400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 207400 000000 C(AC+1)= 202000 000000 ---------- *034446 DFAD 4,040752 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000201 C(AC+1)= 000000 000000 C(E)= 210400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 210400 000000 C(AC+1)= 201000 000000 ---------- *034455 DFAD 4,041234 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 000401 C(AC+1)= 000000 000000 C(E)= 211400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 211400 000000 C(AC+1)= 200400 000000 ---------- *034464 DFAD 4,041236 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 001001 C(AC+1)= 000000 000000 C(E)= 212400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 212400 000000 C(AC+1)= 200200 000000 ---------- *034473 DFAD 4,041240 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 002001 C(AC+1)= 000000 000000 C(E)= 213400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 213400 000000 C(AC+1)= 200100 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 57 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0278 *034502 DFAD 4,041242 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 004001 C(AC+1)= 000000 000000 C(E)= 214400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 214400 000000 C(AC+1)= 200040 000000 ---------- *034511 DFAD 4,041244 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 010001 C(AC+1)= 000000 000000 C(E)= 215400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 215400 000000 C(AC+1)= 200020 000000 ---------- *034520 DFAD 4,041246 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 020001 C(AC+1)= 000000 000000 C(E)= 216400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 216400 000000 C(AC+1)= 200010 000000 ---------- *034527 DFAD 4,041250 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 040001 C(AC+1)= 000000 000000 C(E)= 217400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 217400 000000 C(AC+1)= 200004 000000 ---------- *034536 DFAD 4,040755 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 100001 C(AC+1)= 000000 000000 C(E)= 220400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 220400 000000 C(AC+1)= 200002 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 58 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0279 *034545 DFAD 4,041252 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 200001 C(AC+1)= 000000 000000 C(E)= 221400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221400 000000 C(AC+1)= 200001 000000 ---------- *034554 DFAD 4,041254 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200000 400001 C(AC+1)= 000000 000000 C(E)= 222400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 222400 000000 C(AC+1)= 200000 400000 ---------- *034570 DFAD 4,041345 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 376777 777777 C(E+1)= 777777 777776 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *034611 DFAD 4,041026 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 377400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *034630 DFAD 4,041351 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 000200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 59 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0280 *034651 DFAD 4,041354 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 000177 777777 C(E+1)= 777777 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777776 ---------- *034670 DFAD 4,041361 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 C(E)= 401000 000000 C(E+1)= 000000 000002 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000001 ---------- *034711 DFAD 4,041357 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 C(E)= 400400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 777400 000000 C(AC+1)= 000000 000000 ---------- *034730 DFAD 4,041367 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777600 000000 C(AC+1)= 000000 000000 C(E)= 777600 000000 C(E+1)= 000000 000000 FINAL C(AC)= 777400 000000 C(AC+1)= 000000 000000 ---------- *034751 DFAD 4,041372 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 777600 000000 C(AC+1)= 000000 000000 C(E)= 777600 000000 C(E+1)= 000000 000001 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 60 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0281 *034775 DFSB 4,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 400000 777777 FINAL C(AC)= 200777 777777 C(AC+1)= 377777 000000 ---------- *035004 DFSB 4,040727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 205400 000000 C(AC+1)= 000000 000000 C(E)= 177400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 204770 000000 C(AC+1)= 000000 000000 ---------- *035013 DFSB 4,040727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 177400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *035022 DFSB 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035031 DFSB 4,040727 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 177400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200600 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 61 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0282 *035040 DFSB 4,040725 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577200 000000 C(AC+1)= 000000 000000 ---------- *035047 DFSB 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201600 000000 C(AC+1)= 000000 000000 ---------- *035056 DFSB 4,041376 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 203400 000000 C(AC+1)= 000000 000000 C(E)= 200477 777775 C(E+1)= 000000 000000 FINAL C(AC)= 202660 000000 C(AC+1)= 300000 000000 ---------- *035072 DFSB 4,041402 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 400400 000000 C(E+1)= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *035113 DFSB 4,041357 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 400400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 62 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0283 *035132 DFSB 4,041410 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000377 777777 C(E+1)= 777777 777777 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *035153 DFSB 4,040716 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777776 ---------- *035172 DFSB 4,041414 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 C(E)= 377377 777777 C(E+1)= 777777 777777 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000001 ---------- *035213 DFSB 4,041026 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 C(E)= 377400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 777400 000000 C(AC+1)= 000000 000000 ---------- *035232 DFSB 4,041422 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777000 000000 C(AC+1)= 000000 000000 C(E)= 777400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 777400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 63 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0284 *035253 DFSB 4,041422 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 777000 000000 C(AC+1)= 000000 000001 C(E)= 777400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000002 ---------- *035277 DFMP 4,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 201400 000000 C(E+1)= 400000 777777 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 777776 ---------- *035306 DFMP 4,040355 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035315 DFMP 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- *035324 DFMP 4,040716 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 64 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0285 *035333 DFMP 4,040716 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 ---------- *035342 DFMP 4,040716 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 376400 000000 C(AC+1)= 000000 000000 ---------- *035351 DFMP 4,040716 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *035360 DFMP 4,040716 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 ---------- *035367 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 65 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0286 *035376 DFMP 4,040061 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- *035405 DFMP 4,040733 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 205400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 204400 000000 C(AC+1)= 000000 000000 ---------- *035414 DFMP 4,040061 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035423 DFMP 4,040057 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *035432 DFMP 4,040744 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 66 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0287 *035441 DFMP 4,040747 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 204400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 203400 000000 C(AC+1)= 000000 000000 ---------- *035450 DFMP 4,040752 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 210400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 207400 000000 C(AC+1)= 000000 000000 ---------- *035457 DFMP 4,040755 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 220400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 217400 000000 C(AC+1)= 000000 000000 ---------- *035466 DFMP 4,040760 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 240400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 237400 000000 C(AC+1)= 000000 000000 ---------- *035475 DFMP 4,040762 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 300400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 277400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 67 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0288 *035504 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *035513 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *035522 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 204400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 203400 000000 C(AC+1)= 000000 000000 ---------- *035531 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 210400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 207400 000000 C(AC+1)= 000000 000000 ---------- *035540 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 220400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 217400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 68 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0289 *035547 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 240400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 237400 000000 C(AC+1)= 000000 000000 ---------- *035556 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 300400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 277400 000000 C(AC+1)= 000000 000000 ---------- *035565 DFMP 4,041036 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 576400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 ---------- *035574 DFMP 4,041435 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 575400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 ---------- *035603 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777777 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177777 777777 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 69 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0290 *035612 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777776 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177777 777776 C(AC+1)= 000000 000000 ---------- *035621 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777775 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177777 777775 C(AC+1)= 000000 000000 ---------- *035630 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777774 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177777 777774 C(AC+1)= 000000 000000 ---------- *035637 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035646 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 70 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0291 *035655 DFMP 4,041453 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 501700 000000 C(AC+1)= 000000 000000 C(E)= 500400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 374100 000000 C(AC+1)= 000000 000000 ---------- *035675 DFMP 4,041453 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 502700 000000 C(AC+1)= 000000 000000 C(E)= 500400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 373100 000000 C(AC+1)= 000000 000000 ---------- *035715 DFMP 4,041453 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 503700 000000 C(AC+1)= 000000 000000 C(E)= 500400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 372100 000000 C(AC+1)= 000000 000000 ---------- *035735 DFMP 4,041453 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 504700 000000 C(AC+1)= 000000 000000 C(E)= 500400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 371100 000000 C(AC+1)= 000000 000000 ---------- *035755 DFMP 4,041453 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 505700 000000 C(AC+1)= 000000 000000 C(E)= 500400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 370100 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 71 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0292 *035775 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177200 000000 C(AC+1)= 000000 000000 ---------- *036015 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177100 000000 C(AC+1)= 000000 000000 ---------- *036035 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177040 000000 C(AC+1)= 000000 000000 ---------- *036055 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177020 000000 C(AC+1)= 000000 000000 ---------- *036075 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177010 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 72 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0293 *036115 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177004 000000 C(AC+1)= 000000 000000 ---------- *036135 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177002 000000 C(AC+1)= 000000 000000 ---------- *036155 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 500700 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 501700 000000 C(AC+1)= 000000 000000 ---------- *036175 DFMP 4,040731 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 500770 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 501770 000000 C(AC+1)= 000000 000000 ---------- *036215 DFMP 4,041515 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200775 000000 C(AC+1)= 000000 000000 C(E)= 200775 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200772 011000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 73 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0294 *036224 DFMP 4,041520 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200774 000000 C(AC+1)= 000000 000000 C(E)= 200774 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200770 020000 C(AC+1)= 000000 000000 ---------- *036233 DFMP 4,041523 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200773 000000 C(AC+1)= 000000 000000 C(E)= 200773 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200766 031000 C(AC+1)= 000000 000000 ---------- *036242 DFMP 4,040741 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 177477 000000 C(AC+1)= 000000 000000 C(E)= 200700 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177427 100000 C(AC+1)= 000000 000000 ---------- *036251 DFMP 4,041226 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777777 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 200777 777776 C(AC+1)= 000000 000400 ---------- *036260 DFMP 4,041226 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777776 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 200777 777775 C(AC+1)= 000000 001000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 74 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0295 *036267 DFMP 4,041226 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777775 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 200777 777774 C(AC+1)= 000000 001400 ---------- *036276 DFMP 4,041226 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777774 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 200777 777773 C(AC+1)= 000000 002000 ---------- *036305 DFMP 4,041226 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777773 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 200777 777772 C(AC+1)= 000000 002400 ---------- *036314 DFMP 4,041540 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 500000 777777 C(AC+1)= 000000 000000 C(E)= 200777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 500001 776777 C(AC+1)= 000400 000000 ---------- *036323 DFMP 4,041540 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 500000 777770 C(AC+1)= 000000 000000 C(E)= 200777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 500001 776770 C(AC+1)= 004000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 75 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0296 *036332 DFMP 4,041536 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 500000 777777 C(AC+1)= 000000 000000 C(E)= 500000 777777 C(E+1)= 000000 000000 FINAL C(AC)= 376776 001001 C(AC+1)= 377000 000400 ---------- *036341 DFMP 4,041550 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 500000 777776 C(AC+1)= 000000 000000 C(E)= 500000 777776 C(E+1)= 000000 000000 FINAL C(AC)= 376776 001003 C(AC+1)= 376000 002000 ---------- *036350 DFMP 4,041151 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200777 777777 C(AC+1)= 000000 000000 C(E)= 200000 000002 C(E+1)= 000000 000000 FINAL C(AC)= 177000 000003 C(AC+1)= 377777 776000 ---------- *036370 DFMP 4,041041 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 C(E)= 200400 000077 C(E+1)= 000000 000000 FINAL C(AC)= 177700 000156 C(AC+1)= 100000 000000 ---------- *036377 DFMP 4,041557 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 C(E)= 200400 000076 C(E+1)= 000000 000000 FINAL C(AC)= 177700 000154 C(AC+1)= 200000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 76 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0297 *036406 DFMP 4,041562 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 C(E)= 200400 000075 C(E+1)= 000000 000000 FINAL C(AC)= 177700 000152 C(AC+1)= 300000 000000 ---------- *036415 DFMP 4,040725 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 C(E)= 600400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 176400 000000 C(AC+1)= 000000 000000 ---------- *036424 DFMP 4,041567 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 600400 000077 C(AC+1)= 000000 000000 C(E)= 177660 000000 C(E+1)= 000000 000000 FINAL C(AC)= 602120 000152 C(AC+1)= 120000 000000 ---------- *036433 DFMP 4,041575 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 600400 000076 C(AC+1)= 000000 000000 C(E)= 177600 000000 C(E+1)= 000000 000000 FINAL C(AC)= 602200 000135 C(AC+1)= 000000 000000 ---------- *036442 DFMP 4,041036 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 576400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 77 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0298 *036451 DFMP 4,041435 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 575400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *036460 DFMP 4,040057 FLAGS - INT/FINAL 440300 440300 INITIAL C(AC)= 400000 000001 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000001 C(AC+1)= 000000 000000 ---------- *036474 DFMP 4,041603 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 201777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *036515 DFMP 4,040744 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *036534 DFMP 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 78 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0299 *036555 DFMP 4,040731 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *036574 DFMP 4,041613 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 C(E)= 576000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *036615 DFMP 4,041435 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 400400 000000 C(AC+1)= 000000 000000 C(E)= 575400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *036634 DFMP 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *036655 DFMP 4,040061 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 777000 000000 C(AC+1)= 000000 000001 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 79 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0300 *036701 DFDV 4,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200400 000000 C(E+1)= 400000 777777 FINAL C(AC)= 201777 777777 C(AC+1)= 377776 000001 ---------- *036710 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *036717 DFDV 4,040057 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 201400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *036726 DFDV 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *036735 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 80 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0301 *036744 DFDV 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 202400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *036753 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 203400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 204400 000000 C(AC+1)= 000000 000000 ---------- *036762 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200600 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201600 000000 C(AC+1)= 000000 000000 ---------- *036771 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200700 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201700 000000 C(AC+1)= 000000 000000 ---------- *037000 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200740 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201740 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 81 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0302 *037007 DFDV 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 ---------- *037016 DFDV 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200600 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576200 000000 C(AC+1)= 000000 000000 ---------- *037025 DFDV 4,040747 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 C(E)= 204400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 174400 000000 C(AC+1)= 000000 000000 ---------- *037034 DFDV 4,040064 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 576400 000000 C(AC+1)= 000000 000000 C(E)= 200600 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576252 525252 C(AC+1)= 252525 252526 ---------- *037043 DFDV 4,040061 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 600600 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 177400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 82 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0303 *037052 DFDV 4,040061 FLAGS - INT/FINAL 300000 300000 INITIAL C(AC)= 600400 000000 C(AC+1)= 000000 000000 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *037061 DFDV 4,041636 FLAGS - INT/FINAL 300000 740200 INITIAL C(AC)= 377400 777777 C(AC+1)= 000000 000000 C(E)= 577400 777777 C(E+1)= 000000 000000 FINAL C(AC)= 777375 773771 C(AC+1)= 373773 776005 ---------- *037070 DFDV 4,040355 FLAGS - INT/FINAL 740200 740040 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *037077 DFDV 4,040716 FLAGS - INT/FINAL 740040 740240 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 000400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 ---------- *037106 DFDV 4,041644 FLAGS - INT/FINAL 740240 740040 INITIAL C(AC)= 577775 000000 C(AC+1)= 000000 000000 C(E)= 577777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577775 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 83 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0304 *037115 DFDV 4,041644 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 577774 000000 C(AC+1)= 000000 000000 C(E)= 577777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577774 000000 C(AC+1)= 000000 000000 ---------- *037124 DFDV 4,041652 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 000000 000000 C(E)= 170750 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221414 456123 C(AC+1)= 150726 020622 ---------- *037133 DFDV 4,041656 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 000000 000000 C(E)= 170555 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221547 063714 C(AC+1)= 314631 463146 ---------- *037142 DFDV 4,040731 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 577000 555555 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 576000 555555 C(AC+1)= 000000 000000 ---------- *037151 DFDV 4,041656 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 777777 777777 C(E)= 170555 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221547 063715 C(AC+1)= 200263 431746 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 84 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0305 *037160 DFDV 4,041656 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777775 C(AC+1)= 000000 000000 C(E)= 170555 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221547 063713 C(AC+1)= 145545 545545 ---------- *037167 DFDV 4,041677 FLAGS - INT/FINAL 740040 740240 INITIAL C(AC)= 377400 000000 C(AC+1)= 555000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 077400 400400 C(AC+1)= 355355 355355 ---------- *037176 DFDV 4,041440 FLAGS - INT/FINAL 740240 740040 INITIAL C(AC)= 200777 777777 C(AC+1)= 000000 000000 C(E)= 200777 777776 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 200000 000400 ---------- *037205 DFDV 4,041446 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 200777 777777 C(AC+1)= 000000 000000 C(E)= 200777 777774 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000001 C(AC+1)= 200000 003000 ---------- *037214 DFDV 4,041656 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 000000 000000 C(E)= 170555 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221547 063714 C(AC+1)= 314631 463146 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 85 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0306 *037223 DFDV 4,041705 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 000000 000000 C(E)= 170555 600000 C(E+1)= 000000 000000 FINAL C(AC)= 221546 272702 C(AC+1)= 301417 730633 ---------- *037232 DFDV 4,041711 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 000000 000000 C(E)= 170557 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221545 111740 C(AC+1)= 234200 262444 ---------- *037241 DFDV 4,041715 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 210777 777777 C(AC+1)= 000000 000000 C(E)= 170560 000000 C(E+1)= 000000 000000 FINAL C(AC)= 221544 131025 C(AC+1)= 220544 131026 ---------- *037250 DFDV 4,041677 FLAGS - INT/FINAL 740040 740240 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 077400 400400 C(AC+1)= 200200 200200 ---------- *037257 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 376400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 076400 400400 C(AC+1)= 200200 200200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 86 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0307 *037266 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 375400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 075400 400400 C(AC+1)= 200200 200200 ---------- *037275 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 374400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 074400 400400 C(AC+1)= 200200 200200 ---------- *037304 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 373400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 073400 400400 C(AC+1)= 200200 200200 ---------- *037313 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 372400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 072400 400400 C(AC+1)= 200200 200200 ---------- *037322 DFDV 4,041741 FLAGS - INT/FINAL 740240 740040 INITIAL C(AC)= 210777 000000 C(AC+1)= 000000 000000 C(E)= 210777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 87 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0308 *037331 DFDV 4,041741 FLAGS - INT/FINAL 740040 740040 INITIAL C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 210777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 170400 400400 C(AC+1)= 200200 200200 ---------- *037340 DFDV 4,041677 FLAGS - INT/FINAL 740040 740240 INITIAL C(AC)= 371400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 071400 400400 C(AC+1)= 200200 200200 ---------- *037347 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 370400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 070400 400400 C(AC+1)= 200200 200200 ---------- *037356 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 367400 000000 C(AC+1)= 000000 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 067400 400400 C(AC+1)= 200200 200200 ---------- *037365 DFDV 4,041677 FLAGS - INT/FINAL 740240 740240 INITIAL C(AC)= 373400 000000 C(AC+1)= 200777 000000 C(E)= 100777 000000 C(E+1)= 000000 000000 FINAL C(AC)= 073400 400401 C(AC+1)= 001400 400400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 88 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0309 *037431 DFDV 4,040731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 376777 777777 C(AC+1)= 777777 777777 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *037452 DFDV 4,040731 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *037471 DFDV 4,040744 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001400 000000 C(AC+1)= 000000 000000 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000400 000000 C(AC+1)= 000000 000000 ---------- *037512 DFDV 4,040744 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 202400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 377777 777777 C(AC+1)= 377777 777777 ---------- *037531 DFDV 4,040061 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 376777 777777 C(AC+1)= 777777 777777 C(E)= 577400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 21-JUN-78 PAGE 89 DSKCE 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0310 *037552 DFDV 4,041422 FLAGS - INT/FINAL 000000 440200 INITIAL C(AC)= 377400 000000 C(AC+1)= 000000 000000 C(E)= 777400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 577400 000000 C(AC+1)= 000000 000000 ---------- *037571 DFDV 4,041435 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001400 000000 C(AC+1)= 000000 000000 C(E)= 575400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 777400 000000 C(AC+1)= 000000 000000 ---------- *037612 DFDV 4,041435 FLAGS - INT/FINAL 000000 440300 INITIAL C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 575400 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000001 ---------- *037631 DFDV 4,040355 FLAGS - INT/FINAL 000000 440040 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- *037650 DFDV 4,041776 FLAGS - INT/FINAL 000000 440040 INITIAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 C(E)= 201200 000000 C(E+1)= 000000 000000 FINAL C(AC)= 201400 000000 C(AC+1)= 000000 000000 ---------- rtl/MAINDEC-10-DSKCF.txt0000700000175100010010000320335012061447214 12717 0ustar RobNone;DSKCF SEQ 0001 IDENTIFICATION -------------- PRODUCT CODE: AH-F247C-DD DIAGNOSTIC CODE: DSKCF PRODUCT NAME: DSKCFC0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (6) VERSION: 0.3 DATE RELEASED: SEPTEMBER 1979 MAINTAINED BY: DIAGNOSTIC ENGINEERING AUTHOR: JOHN R. KIRCHOFF RICHARD E. STOCKDALE COPYRIGHT (C) 1978, 1979 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT CORPORATION. THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. MAINDEC-10-DSKCF.TXT PAGE 2 SEQ 0002 TABLE OF CONTENTS ----------------- 1.0 ABSTRACT 2.0 REQUIREMENTS 2.1 EQUIPMENT 2.2 STORAGE 2.3 PRELIMINARY PROGRAMS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE 3.2 STARTING PROCEDURE 3.3 OPERATING PROCEDURE 4.0 DATA SWITCH FUNCTIONS 5.0 ERRORS 6.0 ITERATION COUNTER 7.0 CYCLE TIME 8.0 OPERATIONAL VARIATIONS 9.0 MISCELLANEOUS 10.0 LISTING MAINDEC-10-DSKCF.TXT PAGE 3 SEQ 0003 1.0 ABSTRACT THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE SIXTH IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE DOUBLE PRECISION FIXED POINT INSTRUCTIONS: DADD, DSUB, DMUL, DDIV. 2.0 REQUIREMENTS 2.1 EQUIPMENT A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE LOAD DEVICE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS PREVIOUS PROCESSOR DIAGNOSTICS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE ****** NOTE ****** THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE PROGRAM BE RESIDENT IN THE DECSYSTEM 2020. FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES. MAINDEC-10-DSKCF.TXT PAGE 4 SEQ 0004 3.2 STARTING PROCEDURE A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO 4.0 DATA SWITCH FUNCTIONS). RUN UNDER "SMMON". THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE OPERATIONAL SWITCHES: TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) - IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS ARE ASKED AND THE OPERATOR RESPONDS BY TYPING THE ANSWER AS SIX OCTAL DIGITS REPRESENTING THE DESIRED SWITCH SETTINGS. SPECIFY LH SWITCHES IN OCTAL- SPECIFY RH SWITCHES IN OCTAL- IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR THE SWITCH SETTINGS. IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES ARE USED. THIS IS ONLY VALID UPON RESTARTING OF AN INTERRUPTED PROGRAM. MAINDEC-10-DSKCE.TXT PAGE 5 SEQ 0005 3.3 OPERATING PROCEDURE A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA SWITCHES SHOULD BE SET TO 0. B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING. THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT TO BE ISOLATED AND REPLACED AND/OR REPAIRED. C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'. THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH SETTINGS FOR DEBUGGING PURPOSES. D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING ERRORS ON THE LINE PRINTER. E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT BUT HALT THE PROGRAM POINTING TO THE ERROR. MAINDEC-10-DSKCF.TXT PAGE 6 SEQ 0006 4.0 DATA SWITCH FUNCTIONS SWITCH STATE FUNCTION ------ ----- -------- 0 ABORT 0 NORMAL OPERATION 1 ABORT AT END OF PASS 1 RSTART NOT USED 2 TOTALS NOT USED 3 NOPNT 0 NORMAL TYPEOUT 1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED) 4 PNTLPT 0 NORMAL OUTPUT TO TTY 1 PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 5 DING 0 NO FUNCTION 1 RING TTY BELL ON ERROR 6 LOOPER 0 PROCEED TO NEXT TEST 1 ENTER SCOPE LOOP ON TEST ERROR 7 ERSTOP 0 NO FUNCTION 1 HALT ON TEST ERROR 8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING 1 PRINT ALL ERRORS, EVEN IF SAME ERROR 9 RELIAB NOT USED 10 TXTINH 0 PRINT FULL ERROR MESSAGES. 1 INHIBIT COMMENT PORTION OF ERROR MESSAGES. 11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE 1 INHIBIT PAGING AND TRAPPING 12 MODDVC NOT USED 13 INHCSH 0 ALLOW CACHE USE 1 INHIBIT CACHE MAINDEC-10-DSKCF.TXT PAGE 7 SEQ 0007 5.0 ERRORS ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR NUMBER AND THE CONTENTS OF AN APPLICABLE AC. THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING. THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY BE MADE AT SOME FUTURE DATE. IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET. 6.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE CONSOLE PROCESSOR. 7.0 CYCLE TIME THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC. MAINDEC-10-DSKCF.TXT PAGE 8 SEQ 0008 8.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE PROGRAM IS USED IN THIS MANNER. THEY ARE: 1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR CONTROL WORD. LH = 0, STAND-ALONE OPERATION -1, RUNNING UNDER DIAGNOSTIC MONITOR RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER DIAGNOSTIC MONITOR CONTROL. B. USER MODE TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING OUTPUT FILE IS 'DSKCF.LPT' EXAMPLE DEVICE ASSIGNMENT: .ASSIGN DSK DEV IN USER MODE THE PROGRAM WILL MAKE 10(8) PASSES AND THEN RETURN TO SMMON COMMAND MODE. MAINDEC-10-DSKCF.TXT PAGE 9 SEQ 0009 8.0 OPERATIONAL VARIATIONS (CON'T) THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.). IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' COMMAND. C. SYSTEM EXERCISER START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN 'SWTEXR' LOC 30023. 9.0 MISCELLANEOUS THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET (0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE. 10.0 LISTING HISTORY FILE FOR DSKCF SEQ 0010 --------------------------------------------------------------- CODE: MAINDEC-10-DSKCF TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (6) VERSION: 0.3 DATE: SEPTEMBER 1979 AUTHOR: JOHN R. KIRCHOFF REASON: CLEANUP OF DOCUMENTATION PRIOR TO CONVERSION TO A KL10 PROGRAM. --------------------------------------------------------------- VERSION: 0.2 DATE: APRIL 1979 AUTHOR: RICHARD E. STOCKDALE REASON: ADDED ADDL CODE TO ALLOW IT TO RUN ON A KL10 AS WELL AS A KS10 (RE: DDIV AND HOW OVERFLOW CONDITION IS HANDLED). --------------------------------------------------------------- VERSION: 0.1 DATE: NOVEMBER 1978 AUTHOR: RICHARD E. STOCKDALE REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 1 SEQ 0011 DOCUMENT ************** DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 ************** COPYRIGHT 1979 DIGITAL EQUIPMENT CORPORATION MAYNARD, MASS. 01754 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 2 SEQ 0012 TABLE OF CONTENTS ******************* 29 ASSEMBLY TIME PARAMETERS 72 MACROS 280 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 315 PROGRAM/SUBROUTINE PARAMETERS 517 ERROR HANDLING UUO DEFINITIONS 555 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 883 INITIALIZATION SECTION 922 DADD - TEST A 1112 DADD - TEST B 1618 DADD - TEST C 1671 DADD - TEST D 1730 DADD - TEST E 2062 DADD - TEST F 3680 DADD - TEST G 4143 DSUB - TEST A 4307 DSUB - TEST B 4455 DSUB - TEST C 5533 DSUB - TEST D 6006 DMUL - TEST A 6269 DMUL - TEST B 6509 DMUL - TEST C 7076 DMUL - TEST D DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 3 SEQ 0013 TABLE OF CONTENTS ******************* 7647 DMUL - TEST E (OVERFLOW) 7698 DMUL - TEST F - TEST NEGATIVE OPERANDS 7819 DMUL - TEST G 8479 DDIV - TEST A 8531 DDIV - TEST B 8581 DDIV - TEST C 9075 DDIV - TEST D 9419 DDIV - TEST E 9882 DDIV - TEST F 10130 DDIV - TEST G 11106 TESTING SUBROUTINES 11281 ADDL ERROR PRINT ROUTINES 11453 *STOR* RESERVED STORAGE, SEPTEMBER 1979 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 4 SEQ 0014 1 MAINDEC-10-DSKCF 18 COPYRIGHT 1979 DIGITAL EQUIPMENT CORPORATION MARLBORO, MASS. 22 JOHN R. KIRCHOFF RICHARD E. STOCKDALE ***************************************************************** 29 ASSEMBLY TIME PARAMETERS ***************************************************************** 32 ACCUMULATOR DEFINITIONS 46 BEGIN PARAMETERS ***************************************************************** 72 MACROS ***************************************************************** 75 PCSAVE - GET AND SAVE PC 85 TFLAG - TEST PC FLAGS SET BY THE PRIOR DADD/DSUB 98 MULT - PERFORM DMUL AND TEST RESULTS 115 MULTF - PERFORM DMUL AND TEST RESULTS & PC FLAGS 136 PDIV - PERFORM DDIV AND TEST RESULTS 154 PDIVF - PERFORM DDIV AND TEST RESULTS & PC FLAGS 176 ODIV - PERFORM DDIV AND TEST RESULTS & PC FLAGS (HANDLES OVERFLOW/NO DIVIDE CONDITIONS) 200 CHECKA - CHECK RESULTS OF A DADD & DO ERROR HANDLING (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF) 220 CHECKS - CHECK RESULTS OF A DSUB & DO ERROR HANDLING (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF) 241 CHECKB - CHECK RESULTS OF A DADD & DO ERROR HANDLING (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA) 261 CHECKT - CHECK RESULTS OF A DSUB & DO ERROR HANDLING (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 5 SEQ 0015 ***************************************************************** 280 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 ***************************************************************** 285 DATA SWITCHES LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS ***************************************************************** 315 PROGRAM/SUBROUTINE PARAMETERS ***************************************************************** 318 SPECIAL SUBPROGRAM LINKAGES 329 SPECIAL SUBROUTINE FATAL HALTS USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE ***************************************************************** 517 ERROR HANDLING UUO DEFINITIONS ***************************************************************** ***************************************************************** 555 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 ***************************************************************** ***************************************************************** 883 INITIALIZATION SECTION ***************************************************************** ***************************************************************** 922 DADD - TEST A ***************************************************************** 927 DADD - TEST A 0,# + 0,0 = 0,# SIMPLE TESTS TO SEE IF DADD #,0 + 0,0 = #,0 WORKS AT ALL. #,# + 0,0 = #,# 0,0 + 0,# = 0,# 0,0 + #,0 = #,0 0,0 + #,# = #,# 0,0 + 0,0 = 0,0 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 6 SEQ 0016 ***************************************************************** 1112 DADD - TEST B ***************************************************************** 1116 FLOATING 1 + 0 = FLOATING 1 THESE TESTS ARE DONE FOR A 1 OR 0 + FLOATING 1 = FLOATING 1 A 0 IN BITS 0,34,36,70 OF THE FLOATING 0 + 0 = FLOATING 0 DOUBLEWORD ADDEND OR AUGEND. 0 + FLOATING 0 = FLOATING 0 THIS WILL TEST THE WORD BOUND- ARY INTEGRITY OF THE DADD INSTRUCTION. 1126 REPEAT THE FOLLOWING BLOCK OF CODE 8 TIMES TO STEP DOWN A LIST OF TEST CASES. THE TEST CASES CONSIST OF 8 DOUBLEWORDS - THE FIRST 4 FLOAT A 1 ACROSS IN BITS 0,34,36,70; THE SECOND 4 FLOAT A 0 ACROSS IN BITS 0,34,36,70. THE RESULT SHOULD BE ACS WITH CONTENTS EQUAL TO THE FLOATING 1/0. ***************************************************************** 1618 DADD - TEST C ***************************************************************** 1622 FLOATING 1 + FLOATING 1 = FLOATING 1 SHIFTED LEFT ONE BIT AT A TIME ACROSS THE DOUBLEWORD EXCLUDING SIGN BITS AND THE MOST SIGNIFICANT BIT (WE'RE NOT TESTING OVERFLOW CONDITIONS). THIS TEST VERIFIES THE ABILITY OF THE DADD TO HANDLE A SINGLE CARRY PROPAGATED 1 BIT WHETHER IT CROSSES A WORD BOUNDARY OR NOT. ***************************************************************** 1671 DADD - TEST D ***************************************************************** 1674 DADD - TEST D 0,-1 + 0,1 = 1,0 ADDITIONAL TEST TO SEE THAT A 0,1 + 0,-1 = 1,0 CARRY IS PROPAGATED ACROSS WORD BOUNDARIES. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 7 SEQ 0017 ***************************************************************** 1730 DADD - TEST E ***************************************************************** 1733 DADD - TEST E FLOATING 0 + 1 = 11111000.. 1 + FLOATING 0 = 11111000.. 1740 THE NEXT 6 TESTS VERIFY THAT A CARRY IS PROPERLY PROPAGATED DOWN A WORD. A 1 IS ADDED TO A FLOATING 0 CAUSING THE CARRY TO RIPPLE DOWN THE WORD. THE RESULT IS VERIFIED AS 1111..110000.... THE FLOATING 0 IS LOCATED IN BITS 34,36, 71 FOR NEGATIVE NUMBERS AND BITS 33,36,70 FOR POSITIVE NUMBERS. CARRY FLAGS ARE VERIFIED IN ADDITION. ***************************************************************** 2062 DADD - TEST F ***************************************************************** 2065 DADD - TEST F THE FOLLOWING TESTS VERIFY THAT THE DADD INSTRUCTION HANDLES THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE TESTS ADD VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE ADDEND AND AUGEND AND VERIFY THAT THE SIGNS OF THE RESULT ARE CORRECT. THERE ARE 5 SETS OF TEST: (1) 0 + P/N = P/N (2) N + N = N (3) P + P = P (4) N + P = N (5) N + P = P WHERE N-NEGATIVE NUMBER P-POSITIVE NUMBER ***************************************************************** 3680 DADD - TEST G ***************************************************************** 3683 DADD - TEST G 2**N + (2**70 - 2**N) = 1000... (AROV & CARRY 1 SET) (2**70 - 2**N) + 2**N = 1000... (AROV & CARRY 1 SET) -2**N + (-2**70 + 2**N - 1) = 0111... (AROV & CARRY 0 SET) (-2**70 + 2**N - 1) + -2**N = 0111... (AROV & CARRY 0 SET) THEST TESTS CHECK THE SETTING OF AROV & CARRY 1 AND AROV & CARRY 0 FLAGS. CHECKED FOR BITS 0,34,36,70. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 8 SEQ 0018 3695 THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST 4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 0,35,36,71. THIS NUMBER IS THEN ADDED TO THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 0S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET. THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLEWORD IN BITS 1, 35,36,71 (A NEGATIVE NUMBER). THIS NUMBER IS ADDED TO THE SMALLEST NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET. THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST 'CONST2'. ***************************************************************** 4143 DSUB - TEST A ***************************************************************** 4148 DSUB - TEST A 0,# - 0,0 = 0,# GENERAL TESTING TO SEE THAT #,0 - 0,0 = #,0 DSUB CAN HANDLE DOUBLEWORDS #,# - 0,0 = #,# 0,0 - 0,# = -(0,#) 0,0 - #,0 = -(#,0) 0,0 - #,# = -(#,#) ***************************************************************** 4307 DSUB - TEST B ***************************************************************** 4310 DSUB - TEST B TEST ALL PERMUTATIONS OF 0,1,-1 IN THE MINUEND AND SUBTRAHEND -- TEST: 0,0 - 0,0 0,1 - 0,0 0,-1 - 0,0 .... 0,0 - 0,1 0,1 - 0,1 0,-1 - 0,1 .... 0,0 - 0,-1 0,1 - 0,-1 0,-1 - 0,-1 .... 0,0 - 1,0 .... .... .... 0,0 - 1,1 .... .... .... 0,0 - 1,-1 .... .... .... 0,0 - -1,0 .... .... .... 0,0 - -1,1 .... .... .... 0,0 - -1,-1 .... .... .... 4326 THESE COMBINATIONS TEST THE ABILITY OF THE DSUB TO HANDLE BORROWS FROM THE NEXT WORD AND SIGNS CHANGING. THE RESULT IS VERIFIED AND THE PC FLAGS ARE CHECKED TO SEE THAT THEY ARE SET PROPERLY. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 9 SEQ 0019 4333 PROCEDURE - (1) SET UP A POINTER 'MINU' TO SEQUENCE THE MINUEND (2) LOOP ON MINUEND (3) SET UP A POINTER 'SUBTR' TO SEQUENCE THE SUBTRAHEND (4) LOOP ON SUBTRAHEND (5) CALCULATE THE EXPECTED RESULT OF THE DSUB (6) DO DSUB (7) COMPARE RESULTS - ACTUAL VS. EXPECTED (8) TEST FLAGS (9) CONTINUE AT (4) ***************************************************************** 4455 DSUB - TEST C ***************************************************************** 4458 DSUB - TEST C THE FOLLOWING TESTS VERIFY THAT THE DSUB INSTRUCTION HANDLES THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE TESTS SUBTRACT VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE SUBTRAHEND AND MINUEND AND VERIFY THAT THE SIGNS OF THE RESULT ARE CORRECT. THERE ARE 5 SETS OF TEST: (1) 0 - P/N = N/P (2) N - N = P/N (3) P - P = N/P (4) N - P = N/P (5) N - P = N/P WHERE N-NEGATIVE NUMBER P-POSITIVE NUMBER ***************************************************************** 5533 DSUB - TEST D ***************************************************************** 5536 DSUB - TEST D 2**N - (-2**70 + 2**N) = 1000... (AROV & CARRY 1 SET) (-2**70 + 2**N) - 2**N = 1000... (AROV & CARRY 1 SET) -2**N - (2**70 - 2**N + 1) = 0111... (AROV & CARRY 0 SET) (2**70 - 2**N + 1) - -2**N = 0111... (AROV & CARRY 0 SET) 5545 THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST 4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 1,35,37,71. FROM THIS NUMBER IS SUBTRACTED THE SMALLEST (MAGNITUDE) NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 0'S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET. THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLE- WORD IN BITS 1,35,37,71 (A NEG NUMBER). FROM THIS NUMBER IS SUBTRACTED THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET. THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST 'SCOND'. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 10 SEQ 0020 ***************************************************************** 6006 DMUL - TEST A ***************************************************************** 6011 DMUL - TEST A 0,# * 0 = 0 0 * 0,# = 0 THESE ARE GENERAL TESTS TO #,0 * 0 = 0 0 * #,0 = 0 ASCERTAIN THAT THE DMUL CAN #,# * 0 = 0 0 * #,# = 0 HANDLE DOUBLEWORDS. THE ACS -1,-# * 0 = 0 0 * -1,-# = 0 WILL CONTAIN THE RESULT ARE -#,0 * 0 = 0 0 * -#,0 = 0 FILLED WITH GARBAGE AND THE -#,-# * 0 = 0 0 * -#,-# = 0 RESULT IS CHECKED TO SEE THAT 0,0 * 0 = 0 DMUL PRODUCES A 4-WORD LONG RESULT IN THE ACS. ***************************************************************** 6269 DMUL - TEST B ***************************************************************** 6272 DMUL - TEST B 0,# * 1 = 0,# THESE TEST THE DMUL ON A SLIGHTLY #,0 * 1 = #,0 STEEPER GRADIENT. THIS WILL VERIFY #,# * 1 = #,# THAT THE DMUL HANDLES DOUBLEWORDS AND -1,-# * 1 = -1,-# A NON-ZERO MULTIPLIER. THESE TESTS ARE -#,-1 * 1 = -#,-1 REPEATED WITH THE MULTIPLICAND AND THE -#,-# * 1 = -#,-# MULTIPLIER REVERSED. ***************************************************************** 6509 DMUL - TEST C ***************************************************************** 6512 DMUL - TEST C 0,1777.. * 2 THESE TESTS VERIFY THAT BITS ARE 0,3777.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD 1777..,3777.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1 3777..,3777.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD 0,3777.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES 1,3777.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR 3777..,3777.. * 1,0 BOUNDARY CONDITIONS. 0,1777.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED 0,3777.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS 3777..,3777.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE 0 (NO AROV). THESE TESTS ARE REPEATED WITH MULT- PLICAND AND MULTIPLIER REVERSED. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 11 SEQ 0021 ***************************************************************** 7076 DMUL - TEST D ***************************************************************** 7079 DMUL - TEST D 7777..,6000.. * 2 THESE TESTS VERIFY THAT BITS ARE 7777..,4000.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD 6000..,4000.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1 4000..,4000.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD 777..,400.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES ..776,400.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR 400..,400.. * 1,0 BOUNDARY CONDITIONS. 777..,600.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED 777..,400.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS 400..,400.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE 0 (NO AROV). THESE TESTS ARE REPEATED WITH MULT- PLICAND AND MULTIPLIER REVERSED. ***************************************************************** 7647 DMUL - TEST E (OVERFLOW) ***************************************************************** 7650 DMUL - TEST E -2^70 * -2^70 THIS IS THE ONLY CASE THAT CAN SET THE AROV FLAG. THIS TEST VERIFIES THE RESULT AND CHECKS THE SETTING OF THE AROV FLAG. ------- MULTIPLICAND = (4000...,4000...) ------- MULTIPLIER === (4000...,4000...) ------- RESULT ======= (4000...,4000...,4000...,4000...) ***************************************************************** 7698 DMUL - TEST F - TEST NEGATIVE OPERANDS ***************************************************************** 7701 DMUL - TEST F -2 * -3 THESE TESTS VERIFY THAT THE DMUL HANDLES -2,0 * -3 THE SIGNS PROPERLY WHEN MULTIPLYING -2 * -3,0 OPERANDS WHICH ARE BOTH NEGATIVE. TESTS -2,0 * -3,0 B,C,D TESTED THE COMBINATIONS POS*POS, POS*NEG AND NEG*POS BUT NOT NEG*NEG. THE AROV FLAG IS ALSO TESTED TO ASCERTAIN THAT IT WAS NOT SET. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 12 SEQ 0022 ***************************************************************** 7819 DMUL - TEST G ***************************************************************** 7822 DMUL - TEST G 2 * 3 2,0 * 3,0 THESE TESTS MULTIPLY NUMBERS WHICH HAVE 2 * -3 2,0 * -3,0 INCONSISTENT SIGNS AMONGST THE WORDS OF -2 * 3 -2,-1 * 3,0 EACH OPERAND. THE FLAGS IS ALSO TESTED -2 * -3 -2,-1 * -3,0 TO VERIFY THAT IT IS NOT SET. ***************************************************************** 8479 DDIV - TEST A ***************************************************************** 8484 DDIV - TEST A (0,0,0,#) / 1 THESE BASIC TESTS VERIFY THAT THE DDIV (0,0,#,0) / 1 HANDLES A QUADRUPLE WORD DIVIDEND. FOR EACH TEST ALL PERMUTATIONS OF POSITIVE AND NEGATIVE OPERANDS ARE TESTED. ***************************************************************** 8531 DDIV - TEST B ***************************************************************** 8534 DDIV - TEST B (0,0,0,#) / # THESE TESTS PERFORM SOME CASES MORE (0,0,#,0) / (#,0) DIFFICULT THAN (A). PERMUTATIONS OF POSITIVE AND NEGATIVE OPERANDS ARE TESTED. ***************************************************************** 8581 DDIV - TEST C ***************************************************************** 8584 DDIV - TEST C (0,0,0,1) (0,0,1,0) (0,0,1,0) (0,1,0,0) (0,1,0,0) (1,0,0,0) ------- ------- ------- ------- ------- ------- 2 2 2,0 2 2,0 2,0 THESE TESTS PERFORM DIVISIONS WHICH RESULT IN A SHIFT OF THE THE DIVIDEND ACROSS WORD BOUNDARIES. THESE TESTS ARE REPEATED FOR THE VARIOUS PERMUTATIONS OF POSITIVE AND NEGATIVE OPERANDS. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 13 SEQ 0023 ***************************************************************** 9075 DDIV - TEST D ***************************************************************** 9078 DDIV - TEST D MISCELLANEOUS TESTING. THESE TESTS DIVIDE 2 NUMBERS AND JUST CHECK TO SEE THAT THE DDIV GETS THE CORRECT ANSWERS. ***************************************************************** 9419 DDIV - TEST E ***************************************************************** 9422 DDIV - TEST E -4/-2 -4/2 4/-2 4/2 (-3,0,0,0)/(-6,0) (-3,0,0,0)/(6,0) 3/-6 3/6 THESE TESTS VERIFY THAT THE DDIV HANDLES THE SIGN OF ITS OPERANDS PROPERLY. THE SIGN BITS OF THE LOW ORDER WORDS ARE INITIALLY DIFFERENT FROM THE HIGH ORDER WORD. THE SIGN SHOULD BE FORMED CORRECTLY IN SPITE OF THAT. ***************************************************************** 9882 DDIV - TEST F ***************************************************************** 9885 DDIV - TEST F 1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1 ------- -------- ---------- -------- 1,1 1,1 1,0 1,0 1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1 ------- -------- ---------- -------- -2,-1 -2,-1 -1,0 -1,0 THESE TESTS VERIFY THAT THE DDIV WILL NOT GENERATE AN OVERFLOW AND NO DIVIDE CONDITION WHEN THE DIVISOR IS JUST LARGE ENOUGH TO NOT CAUSE ONE. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 14 SEQ 0024 ***************************************************************** 10130 DDIV - TEST G ***************************************************************** 10133 DDIV - TEST G 1 1,0 1,0,0 1,0,0,0 -1 - --- ----- ------- - 0 0 0 0 0 1,0,0 1,0,0 1,0,0,0 1,0,0,0 ----- ----- ------- ------- 1 -1 1 -1 -1,0,0 -1,0,0 -1,0,0,0 -1,0,0,0 ------ ------ -------- -------- 1 -1 1 -1 1,0,0,0 1,0,0,0 -1,0,0,0 -1,0,0,0 ------- ------- -------- -------- 1,0 -1,0 1,0 -1,0 0,-1,-1,-1 0,-1,-1,-1 -1,0,0,1 -1,0,0,1 ---------- ---------- -------- -------- 0,-1 -1,1 0,-1 -1,1 1,0,-1,-1 1,0,-1,-1 -2,-1,0,1 -2,-1,0,1 --------- --------- --------- --------- 0,-1 -1,1 0,-1 -1,1 -2^140 2^140-1 2^140-1 -2^70+1,-2^70 ------ ------- ------- ------------- -2^70 2^70-1 -2^70+1 2^70-1 THESE TESTS ATTEMPT TO PERFORM VARIOUS DIVISIONS THAT SHOULD RESULT IN OVERFLOW. THE SETTING OF AROV AND NO DIVIDE FLAGS IS VERIFIED AND THE DIVIDEND IS CHECKED TO SEE THAT IT DID NOT CHANGE. ALSO TRY A FEW WITH INCONSISTENT SIGNS IN THE LEAST SIGNIFICANT WORDS OF THE DIVIDEND AND DIVISOR JUST TO MAKE SURE THAT THE DIVIDEND DOES NOT CHANGE ON ANY CONDITION. DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 15 SEQ 0025 ***************************************************************** 11106 TESTING SUBROUTINES ***************************************************************** 11109 MSUBR - SUBROUTINE TO DO MULTIPLICATION CALCULATIONS ARGUMENTS: MCAND - CONTAINS MULTIPLICAND MPLIER - CONTAINS MULTIPLIER MRES - CONTAINS THE EXPECTED RESULT 11157 PSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS ARGUMENTS: PDEND - CONTAINS DIVIDEND PISOR - CONTAINS DIVISOR PRES - CONTAINS THE EXPECTED RESULT 11205 OSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS ARGUMENTS: ODEND - CONTAINS DIVIDEND OISOR - CONTAINS DIVISOR NOTE: WHEN ENCOUNTERING A OVERFLOW/NO DIVIDE SITUATION THE PROCESSOR ENSURES THAT THE OPERANDS DO NOT CHANGE. THE KL10 ENSURES THAT NEITHER THE MAGNITUDE PORTION NOR THE SIGN BITS CHANGE. THE KS10 ENSURES THAT THE MAGNITUDE PORTION OF EITHER WORD DOES NOT CHANGE - HOWEVER, IT ONLY PROTECTS THE SIGN BIT OF THE MOST SIGNIFICANT WORD. THE SIGN BIT OF THE OTHER WORD IS INDETERMINATE. THIS TEST CHECKS TO FIND OUT WHAT TYPE OF PROCESSOR WE HAVE AND WILL MODIFY THE TEST FOR A KS10. THE ABOVE WAS NOTICED WHEN RUNNING THE DIAGNOSTIC ON THE KS10 AFTER DEBUGGING ON A KL10. ACCORDING TO DON LEWINE, THIS WAS DONE TO SAVE SPACE IN THE KS10 MICROCODE. ***************************************************************** 11281 ADDL ERROR PRINT ROUTINES ***************************************************************** 11284 APRINT - ADDITION ERROR PRINTER 11321 SPRINT - SUBTRACTION ERROR PRINTER 11358 MPRINT - MULTIPLICATION ERROR PRINTER 11401 DPRINT - DIVIDE ERROR PRINTER DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 DECDOC VER 00.24 26-SEP-79 15:52:49 PAGE 16 SEQ 0026 ***************************************************************** 11453 *STOR* RESERVED STORAGE, SEPTEMBER 1979 ***************************************************************** DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1 DSKCFT MAC 26-Sep-79 15:41 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 SEQ 0027 1 ;*MAINDEC-10-DSKCF 2 3 000000 MCNVER=0 4 000003 DECVER=3 5 6 XLIST 7 LIST 8 LALL 9 10 NAME \MCNVER,\DECVER^ 11 12 TITLE DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 13 ^ 14 15 000137 LOC 137 16 000137 000000 000003 MCNVER,,DECVER 17 18 ;*COPYRIGHT 1979 19 ;*DIGITAL EQUIPMENT CORPORATION 20 ;*MARLBORO, MASS. 21 22 ;*JOHN R. KIRCHOFF 23 ;*RICHARD E. STOCKDALE 24 25 SEARCH MONSYM 26 NOSYM 27 28 IF2, DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2 DSKCFT MAC 26-Sep-79 15:41 ASSEMBLY TIME PARAMETERS SEQ 0028 29 SUBTTL ASSEMBLY TIME PARAMETERS 30 31 ; ********************************************************************** 32 ;*ACCUMULATOR DEFINITIONS 33 ; ********************************************************************** 34 35 000001 AC1=1 ;AC,AC+1,AC+2,AC+3 - CONTAIN OPERANDS USED 36 ; BY DADD,DSUB,DMUL,DDIV 37 38 000011 CNT=11 ;COUNT AC 39 40 000012 SCR0=12 ;SCRATCH ACS USED IN THE ADDL ERROR PRINT 41 000013 SCR1=SCR0+1 ; ROUTINE 42 000014 SCR2=SCR0+2 43 000015 SCR3=SCR0+3 44 45 ; ********************************************************************** 46 ;*BEGIN PARAMETERS 47 ; ********************************************************************** 48 49 030624 SADR1=STARTA 50 030624 SADR2=STARTA 51 030623 SADR3=START 52 030007 SADR4=SRTDDT 53 030624 SADR5=STARTA 54 040450 SADR6=PHALT 55 254200 030000 SADR7=HALT BEGIN 56 254200 030000 SADR8=HALT BEGIN 57 254200 030000 SADR9=HALT BEGIN 58 254200 030000 SADR10=HALT BEGIN 59 254200 030000 SADR11=HALT BEGIN 60 000010 ITERAT=10 61 000000 PAREA1=0 62 000000 PAREA2=0 63 446353 434600 PAREA3=SIXBIT/DSKCF/ 64 546364 000000 PAREA4=SIXBIT/LST/ 65 000000 PAREA5=0 66 000000 PAREA6=0 67 68 000001 PGMEND==1 69 000001 EXCASB==1 70 000001 USRASB==1 71 000030 DEBUG==30 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3 DSKCFT MAC 26-Sep-79 15:41 MACROS SEQ 0029 72 SUBTTL MACROS 73 74 ; ********************************************************************** 75 ;*PCSAVE - GET AND SAVE PC 76 ; ********************************************************************** 77 78 DEFINE PCSAVE< 79 JSR .+1 ;STORE PC 80 FLAGL=. ;LOCATION OF PC 81 0 ;PC 82 > 83 84 ; ********************************************************************** 85 ;*TFLAG - TEST PC FLAGS SET BY THE PRIOR DADD/DSUB 86 ; ********************************************************************** 87 88 DEFINE TFLAG (FLGGS,TT,ADDR,LOC)< 89 90 MOVE SCR1,FLAGL ;GET FLAGS 91 MOVE SCR2,FLGGS ;SCR2 - CORRECT FLAGS 92 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 93 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 94 ERROR (LOC,13,SCR2,FLAGL,,^_ 95 TEST 'TT' - PC FLAGS INCORRECT (LEFT 4 BITS),ADDR) 96 > 97 ; ********************************************************************** 98 ;*MULT - PERFORM DMUL AND TEST RESULTS 99 ; ********************************************************************** 100 101 DEFINE MULT (T,A1<0>,A2<0>,E1<0>,E2<0>,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN)< 102 103 ; --- MULTIPLICAND = (A1,A2) 104 ; --- MULTIPLIER === (E1,E2) 105 ; --- RESULT ======= (R1,R2,R3,R4) 106 107 %BEGIN: MOVE AC1,[[EXP A1,A2,E1,E2,R1,R2,R3,R4],,MCAND] 108 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 109 GO MSUBR ;GO DO TEST 110 ERROR (%BEGIN,14,SCR1,SCR2,,^_ 111 TEST 'T' - RESULT CALCULATED INCORRECTLY,MPRINT) 112 > DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 4 DSKCFT MAC 26-Sep-79 15:41 MACROS SEQ 0030 113 114 ; ********************************************************************** 115 ;*MULTF - PERFORM DMUL AND TEST RESULTS & PC FLAGS 116 ; ********************************************************************** 117 118 DEFINE MULTF (T,A1<0>,A2<0>,E1<0>,E2<0>,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN,%TSTPC)< 119 120 ; --- MULTIPLICAND = (A1,A2) 121 ; --- MULTIPLIER === (E1,E2) 122 ; --- RESULT ======= (R1,R2,R3,R4) 123 124 %BEGIN: MOVE AC1,[[EXP A1,A2,E1,E2,R1,R2,R3,R4],,MCAND] 125 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 126 GO MSUBR ;GO DO TEST 127 ERROR (%BEGIN,14,SCR1,SCR2,,^_ 128 TEST 'T' - RESULT CALCULATED INCORRECTLY,MPRINT) 129 130 %TSTPC: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 131 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 132 ERROR (%BEGIN,13,SCR2,MFLOC,,^_ 133 TEST 'T' - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT) 134 > 135 ; ********************************************************************** 136 ;*PDIV - PERFORM DDIV AND TEST RESULTS 137 ; ********************************************************************** 138 139 DEFINE PDIV (T,A1,A2,A3,A4,E1,E2,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN)< 140 141 ; --- DIVIDEND == (A1,A2,A3,A4) 142 ; --- DIVISOR === (E1,E2) 143 ; --- QUOTIENT == (R1,R2) 144 ; --- REMAINDER = (R3,R4) 145 146 %BEGIN: MOVE AC1,[[EXP A1,A2,A3,A4,E1,E2,R1,R2,R3,R4],,PDEND] 147 BLT AC1,PRES+3 ;SET UP OPERANDS 148 GO PSUBR ;GO DO TEST 149 ERROR (%BEGIN,14,SCR1,SCR2,,^_ 150 TEST 'T' - QUOTIENT/REMAINDER INCORRECT,DPRINT) 151 > DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 5 DSKCFT MAC 26-Sep-79 15:41 MACROS SEQ 0031 152 153 ; ********************************************************************** 154 ;*PDIVF - PERFORM DDIV AND TEST RESULTS & PC FLAGS 155 ; ********************************************************************** 156 157 DEFINE PDIVF (T,A1,A2,A3,A4,E1,E2,R1<0>,R2<0>,R3<0>,R4<0>,%BEGIN,%TSTPC)< 158 159 ; --- DIVIDEND == (A1,A2,A3,A4) 160 ; --- DIVISOR === (E1,E2) 161 ; --- QUOTIENT == (R1,R2) 162 ; --- REMAINDER = (R3,R4) 163 164 %BEGIN: MOVE AC1,[[EXP A1,A2,A3,A4,E1,E2,R1,R2,R3,R4],,PDEND] 165 BLT AC1,PRES+3 ;SET UP OPERANDS 166 GO PSUBR ;GO DO TEST 167 ERROR (%BEGIN,14,SCR1,SCR2,,^_ 168 TEST 'T' - QUOTIENT/REMAINDER INCORRECT,DPRINT) 169 170 %TSTPC: MOVE SCR2,PFLOC ;GET PC 171 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 172 ERROR (%BEGIN,13,SCR2,PFLOC,,^_ 173 TEST 'T' - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT) 174 > 175 ; ********************************************************************** 176 ;*ODIV - PERFORM DDIV AND TEST RESULTS & PC FLAGS 177 ;* (HANDLES OVERFLOW/NO DIVIDE CONDITIONS) 178 ; ********************************************************************** 179 180 DEFINE ODIV (A1,A2,A3,A4,E1,E2,%BEGIN,%TSTPC)< 181 182 ; --- DIVIDEND == (A1,A2,A3,A4) 183 ; --- DIVISOR === (E1,E2) 184 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 185 186 %BEGIN: MOVE AC1,[[EXP A1,A2,A3,A4,E1,E2],,ODEND] 187 BLT AC1,ORES-1 ;SET UP OPERANDS 188 GO OSUBR ;GO DO TEST 189 ERROR (%BEGIN,14,SCR1,SCR2,,^_ 190 TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT) 191 192 %TSTPC: MOVE SCR2,OFLOC ;GET PC 193 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 194 CAME SCR2,OFLOC ;PC CORRECT? 195 ERROR (%BEGIN,13,SCR2,OFLOC,,^_ 196 TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT) 197 > DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6 DSKCFT MAC 26-Sep-79 15:41 MACROS SEQ 0032 198 199 ; ********************************************************************** 200 ;*CHECKA - CHECK RESULTS OF A DADD & DO ERROR HANDLING 201 ;* (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF) 202 ; ********************************************************************** 203 204 DEFINE CHECKA (LOC,T,R1< 0>,R2< 0>,%ERROR,%END)< 205 206 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 207 CAME AC1,[R1] ;IS LEFT HALF OF RESULT CORRECT? 208 JRST %ERROR ;NO - GO TO ERROR HANDLING 209 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 210 CAMN AC1+1,[R2] ;IS RIGHT HALF CORRECT? 211 JRST %END+1 ;YES - DONT DO ERROR HANDLING 212 ; EXCEPT FOR ERLOOP 213 214 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 215 MOVE SCR1,[EXP R1,R2](SCR1) ;GET CORRECT RESULT 216 %END: ERROR (LOC,14,SCR1,SCR2,,^_ 217 TEST 'T' - RESULT IS INCORRECT,APRINT) 218 > 219 ; ********************************************************************** 220 ;*CHECKS - CHECK RESULTS OF A DSUB & DO ERROR HANDLING 221 ;* (RESULT 'R1' IS PASSED AS THE OCTAL DATA ITSELF) 222 ; ********************************************************************** 223 224 DEFINE CHECKS (LOC,T,R1< 0>,R2< 0>,%ERROR,%END)< 225 226 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 227 CAME AC1,[R1] ;IS LEFT HALF OF RESULT CORRECT? 228 JRST %ERROR ;NO - GO TO ERROR HANDLING 229 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 230 CAMN AC1+1,[R2] ;IS RIGHT HALF CORRECT? 231 JRST %END+1 ;YES - DONT DO ERROR HANDLING 232 ; EXCEPT FOR ERLOOP 233 234 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 235 MOVE SCR1,[EXP R1,R2](SCR1) ;GET CORRECT RESULT 236 %END: ERROR (LOC,14,SCR1,SCR2,,^_ 237 TEST 'T' - RESULT IS INCORRECT,SPRINT) 238 > DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 7 DSKCFT MAC 26-Sep-79 15:41 MACROS SEQ 0033 239 240 ; ********************************************************************** 241 ;*CHECKB - CHECK RESULTS OF A DADD & DO ERROR HANDLING 242 ;* (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA) 243 ; ********************************************************************** 244 245 DEFINE CHECKB (LOC,T,R1,%ERROR,%END)< 246 247 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 248 CAME AC1,R1 ;IS LEFT HALF OF RESULT CORRECT? 249 JRST %ERROR ;NO - GO TO ERROR HANDLING 250 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 251 CAMN AC1+1,R1+1 ;IS RIGHT HALF CORRECT? 252 JRST %END+1 ;YES - DONT DO ERROR HANDLING 253 ; EXCEPT FOR ERLOOP 254 255 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 256 MOVE SCR1,R1(SCR1) ;GET CORRECT WORD OF RESULT 257 %END: ERROR (LOC,14,SCR1,SCR2,,^_ 258 TEST 'T' - RESULT IS INCORRECT,APRINT) 259 > 260 ; ********************************************************************** 261 ;*CHECKT - CHECK RESULTS OF A DSUB & DO ERROR HANDLING 262 ;* (RESULT 'R1' IS PASSED AS THE ADDRESS OF THE DATA) 263 ; ********************************************************************** 264 265 DEFINE CHECKT (LOC,T,R1,%ERROR,%END)< 266 267 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 268 CAME AC1,R1 ;IS LEFT HALF OF RESULT CORRECT? 269 JRST %ERROR ;NO - GO TO ERROR HANDLING 270 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 271 CAMN AC1+1,R1+1 ;IS RIGHT HALF CORRECT? 272 JRST %END+1 ;YES - DONT DO ERROR HANDLING 273 ; EXCEPT FOR ERLOOP 274 275 %ERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 276 MOVE SCR1,R1(SCR1) ;GET CORRECT WORD OF RESULT 277 %END: ERROR (LOC,14,SCR1,SCR2,,^_ 278 TEST 'T' - RESULT IS INCORRECT,SPRINT) 279 > DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1 PARAM KSM 18-Sep-79 17:18 CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 SEQ 0034 280 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, SEPTEMBER 1979 281 282 DEFINE S,<; *********************************************************************> 283 284 ; ********************************************************************** 285 ;*DATA SWITCHES 286 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 287 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 288 ; ********************************************************************** 289 290 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 291 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 292 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 293 294 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 295 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 296 010000 DING== 010000 ;RING BELL ON ERROR 297 298 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 299 002000 ERSTOP==002000 ;HALT ON TEST ERROR 300 001000 PALERS==001000 ;PRINT ALL ERRORS 301 302 000400 RELIAB==000400 ;RELIABILITY MODE 303 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 304 000100 INHPAG==000100 ;INHIBIT PAGING 305 306 000040 MODDVC==000040 ;MODIFY DEVICE CODE 307 000020 INHCSH==000020 ;INHIBIT CACHE 308 000010 OPRSEL==000010 ;OPERATOR SELECTION 309 310 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 311 312 ;SWITCH 16 RESERVED 313 314 ;SWITCH 17 RESERVED !!! DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2 PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0035 315 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 316 317 ; ********************************************************************** 318 ;*SPECIAL SUBPROGRAM LINKAGES 319 ; ********************************************************************** 320 321 027772 FSELNK= 27772 ;FILE SELECT LINK 322 027773 FRDLNK= 27773 ;FILE READ LINK 323 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 324 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 325 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 326 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 327 328 ; ********************************************************************** 329 ;*SPECIAL SUBROUTINE FATAL HALTS 330 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 331 ; ********************************************************************** 332 333 ;ADDRESS TAG REASON 334 ;--------------------- 335 336 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 337 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 338 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 339 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 340 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 341 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 342 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 343 ; 1017 EOPERR ;END OF PROGRAM ERROR 344 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 345 346 ; ********************************************************************** DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3 PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0036 347 ; ********************************************************************** 348 ;OPERATOR DEFINITIONS (NON-UUO'S) 349 ; ********************************************************************** 350 351 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 352 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 353 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 354 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 355 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 356 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 357 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 358 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 359 360 ; ********************************************************************** 361 ;SUBROUTINE INITIALIZATION CALL 362 ; ********************************************************************** 363 364 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 365 366 ; ********************************************************************** 367 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 368 ; ********************************************************************** 369 370 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 371 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 372 373 ; ********************************************************************** 374 ;TERMINAL INPUT UUO'S 375 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 376 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 377 ; ********************************************************************** 378 379 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 380 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 381 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 382 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 383 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 384 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 385 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 386 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 387 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 388 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 389 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 4 PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0037 390 ;TERMINAL OUTPUT UUO'S. 391 392 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 393 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 394 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 395 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 396 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 397 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 398 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 399 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 400 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 401 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 402 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 403 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 404 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 405 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 406 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 407 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 408 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 409 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 410 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 411 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 412 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 413 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 414 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 415 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 416 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 417 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 418 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 419 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 420 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 421 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 422 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 423 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 424 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 425 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 426 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 427 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 428 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 429 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 430 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 431 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 432 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 433 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 5 PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0038 434 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 435 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 436 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 437 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 438 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 439 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 440 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 441 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 442 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 443 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 444 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 445 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 446 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 447 448 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 449 450 DEFINE PMSG (ARG),< 451 PSIXM [SIXBIT\ARG'_\]> 452 453 DEFINE PMSGF (ARG),< 454 PSIXMF [SIXBIT\ARG'_\]> 455 456 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 457 ; CONSERVES CORE OVER ASCIZ 458 459 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 460 461 ;CONSOLE SWITCH INPUT UUO. 462 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 463 ; USER MODE. 464 465 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 466 467 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 468 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 469 470 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 471 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 472 473 ;KS-10 CACHE OPERATION UUO'S 474 475 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 476 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 477 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6 PARAM KSM 18-Sep-79 17:18 PROGRAM/SUBROUTINE PARAMETERS SEQ 0039 478 ;END OF PASS/PROGRAM UUOS 479 480 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 481 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 482 483 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 484 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 485 486 ;MEMORY MANAGEMENT UUO'S 487 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 488 ;ADDRESS CONVERSION, ETC... 489 490 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 491 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 492 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 493 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 494 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 495 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 496 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 497 498 ;DEVICE CODE MODIFICATION UUO 499 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 500 ;IOT'S TO A DIFFERENT DEVICE CODE. 501 502 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 503 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 504 505 030000 IFNDEF MODDVL, 506 030000 IFNDEF MODDVU, 507 508 ;"DIAMON" FILE SELECTION AND READ UUOS 509 510 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 511 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 512 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 513 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 514 515 XLIST 516 IFNDEF EROLD, 541 542 ;A MACRO TO REPORT AN ERROR AND NOT LOOP 543 544 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 545 SALL 546 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 547 CORECT,,ACTUAL 548 [SIXBIT\D'_\],,ERR] 549 XALL> 550 551 >;END OF EROLD CONDITIONAL 552 553 XLIST 554 LIST DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0041 555 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 556 557 030000 LOC 30000 558 559 ; ********************************************************************** 560 ;PROGRAM STARTING ADDRESSES 561 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 562 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 563 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 564 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 565 ; ********************************************************************** 566 567 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 568 030001 254 00 0 00 030623 $START: JRST START ;MODE CHECK STARTING ADDRESS 569 570 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 571 572 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 573 574 030004 254 00 0 00 030624 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 575 576 030005 254 00 0 00 030624 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 577 578 030006 254 00 0 00 030623 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 579 580 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 581 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 582 583 030010 254 00 0 00 030624 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 584 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 585 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 586 587 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 588 030014 254200 030000 START2: SADR8 ; " 589 030015 254200 030000 START3: SADR9 ; " 590 030016 254200 030000 START4: SADR10 ; " 591 030017 254200 030000 START5: SADR11 ; " DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0042 592 ; ********************************************************************** 593 ;PROGRAM FIXED PARAMETER AREA 594 ; ********************************************************************** 595 596 030020 446353 434600 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 597 030021 546364 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 598 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 599 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 600 030024 000000 000010 ITRCNT: ITERAT ;PROGRAM ITERATIONS 601 030025 000000 030600 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 602 030026 000000 000003 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 603 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 604 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 605 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 606 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 607 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 608 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 609 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 610 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 611 612 ; ********************************************************************** 613 ;PROGRAM VARIABLE PARAMETER AREA 614 ; ********************************************************************** 615 616 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 617 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 618 030041 777777 777777 KLFLG: -1 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 619 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 620 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 621 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 622 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 623 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 624 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 625 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 626 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 627 030052 000000 000000 ERRPC: 0 ;ERROR PC 628 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 629 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 630 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 631 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0043 632 ; ********************************************************************** 633 ;SPECIAL PROGRAM DISPATCH ADDRESSES 634 ; ********************************************************************** 635 636 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 637 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 638 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 639 030062 000000 030624 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 640 030063 000000 040450 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 641 030064 CPOPJ1: ;SKIP RETURN 642 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 643 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 644 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 645 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 646 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 647 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 648 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 649 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 650 030073 255 00 0 00 000000 $USRHL: JFCL ; " 651 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 652 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 653 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 654 030077 255 00 0 00 000000 RESRT2: JFCL ; " 655 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 656 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 657 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 658 659 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 660 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 661 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 662 663 ; ********************************************************************** 664 ;PROCESSOR CONTROL STORAGE 665 ; ********************************************************************** 666 667 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 668 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 669 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 670 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 671 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 672 673 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 674 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 675 676 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 677 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 678 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 679 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 680 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 681 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 682 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 4 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0044 683 ; ********************************************************************** 684 ;UUO DISPATCH TABLE 685 ; ********************************************************************** 686 XLIST 687 LIST 688 030124 030070 030070 UUODIS: LUUO1,,$UUOER 689 030125 030070 030070 LUUO3,,LUUO2 690 030126 030070 030070 LUUO5,,LUUO4 691 030127 030070 030070 LUUO7,,LUUO6 692 030130 030070 030070 LUUO11,,LUUO10 693 030131 030070 030070 LUUO13,,LUUO12 694 030132 030070 030070 LUUO15,,LUUO14 695 030133 030070 030070 LUUO17,,LUUO16 696 030134 030070 030070 LUUO21,,LUUO20 697 030135 030070 030070 LUUO23,,LUUO22 698 030136 030070 030070 LUUO25,,LUUO24 699 030137 030070 030070 LUUO27,,LUUO26 700 030140 030070 030070 LUUO31,,LUUO30 701 030141 030070 030070 LUUO33,,LUUO32 702 703 ; ********************************************************************** 704 ;MEMORY MANAGMENT STORAGE 705 ; ********************************************************************** 706 707 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 708 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 709 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 710 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 711 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 712 713 ; ********************************************************************** 714 ;PRINT CONTROL STORAGE 715 ; ********************************************************************** 716 717 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 718 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 719 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 720 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 721 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 722 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 723 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 724 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 725 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 726 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 727 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 728 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 729 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 730 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 731 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 732 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 733 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 734 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 735 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 5 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0045 736 ; ********************************************************************** 737 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 738 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 739 ; MOVEI NAME 740 ; PNTA ;OR PNTAF 741 ; ********************************************************************** 742 743 030242 CRLF: ASCII/ 744 030242 015 012 000 000 000 / 745 030243 CRLF2: ASCII/ 746 747 030243 015 012 015 012 000 / 748 030244 054 000 000 000 000 COMMA: ASCII/,/ 749 030245 056 000 000 000 000 PERIOD: ASCII/./ 750 030246 040 000 000 000 000 SPACE: ASCII/ / 751 030247 011 000 000 000 000 TAB: ASCII/ / 752 030250 MINUS: 753 030250 055 000 000 000 000 HYPEN: ASCII/-/ 754 030251 053 000 000 000 000 PLUS: ASCII/+/ 755 030252 052 000 000 000 000 AST: ASCII/*/ 756 030253 100 000 000 000 000 ATSIN: ASCII/@/ 757 030254 050 000 000 000 000 LFP: ASCII/(/ 758 030255 051 000 000 000 000 RTP: ASCII/)/ 759 030256 007 0000000000 BELL: BYTE (7) 007 760 030257 077 000 000 000 000 QUEST: ASCII/?/ 761 030260 057 000 000 000 000 SLASH: ASCII!/! 762 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 763 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 764 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 765 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 766 767 ; ********************************************************************** 768 ;USER MODE OUTPUT FILE INFORMATION 769 ; ********************************************************************** 770 771 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 772 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 773 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 774 030272 BLOCK 2 775 776 ; ********************************************************************** 777 ;DISK UPDATE MODE FILE INFORMATION 778 ; ********************************************************************** 779 780 030274 $IBUF: BLOCK 3 781 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 782 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 783 030301 BLOCK 2 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0046 784 ; ********************************************************************** 785 ;PUSHDOWN LIST CONTROL INFORMATION 786 ; ********************************************************************** 787 788 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 789 030304 PLISTS: BLOCK 200 790 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 791 792 ; ********************************************************************** 793 ;POWER LINE CLOCK FREQUENCY FLAG 794 ; ********************************************************************** 795 796 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 797 798 ; ********************************************************************** 799 ;KL10 CACHE CONTROL FLAGS 800 ; ********************************************************************** 801 802 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 803 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 804 805 ; ********************************************************************** 806 ;NUMBER INPUT DIGIT FLAG 807 ; ********************************************************************** 808 809 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 810 811 ; ********************************************************************** 812 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 813 ; ********************************************************************** 814 815 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 816 817 ; ********************************************************************** 818 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 819 ; ********************************************************************** 820 821 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 822 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 823 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 824 825 ; ********************************************************************** 826 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION 827 ; ********************************************************************** 828 829 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 7 FIXED KSM 18-Sep-79 17:08 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPTEMBER 1979 SEQ 0047 830 ; ********************************************************************** 831 ;USER MODE MONITOR TYPE FLAG 832 ; ********************************************************************** 833 834 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 835 836 ; ********************************************************************** 837 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION 838 ; ********************************************************************** 839 840 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 841 842 ; ********************************************************************** 843 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 844 ; ********************************************************************** 845 846 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 847 848 ; ********************************************************************** 849 ;"SWITCH" CALL USAGE CONTROL 850 ; ********************************************************************** 851 852 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 853 854 ; ********************************************************************** 855 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 856 ; ********************************************************************** 857 858 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 859 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 860 861 ; ********************************************************************** 862 ;SM10 (KS-10) PROCESSOR TYPE FLAG 863 ; ********************************************************************** 864 865 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 866 867 ; ********************************************************************** 868 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 869 ; ********************************************************************** 870 871 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 872 873 ; ********************************************************************** 874 ;SPECIAL FUTURE EXPANSION ROOM 875 ; ********************************************************************** 876 877 ; ********************************************************************** 878 ;END OF FIXED STORAGE 879 ; ********************************************************************** 880 881 030577 LOC 30577 882 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1 DSKCFM MAC 26-Sep-79 15:49 INITIALIZATION SECTION SEQ 0048 883 SUBTTL INITIALIZATION SECTION 884 885 LALL ;EXPAND MACROS 886 887 030600 PGMNAM: ASCIZ/ 888 030600 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6 [DSKCF] 889 030601 123 131 123 124 105 890 030602 115 040 062 060 062 891 030603 060 040 101 104 126 892 030604 101 116 103 105 104 893 030605 040 111 116 123 124 894 030606 122 125 103 124 111 895 030607 117 116 040 104 111 896 030610 101 107 116 117 123 897 030611 124 111 103 040 043 898 030612 066 040 133 104 123 899 030613 113 103 106 135 015 900 030614 012 104 117 125 102 DOUBLE PRECISION INSTRUCTIONS 901 030615 114 105 040 120 122 902 030616 105 103 111 123 111 903 030617 117 116 040 111 116 904 030620 123 124 122 125 103 905 030621 124 111 117 116 123 906 030622 015 012 000 000 000 / 907 123456 765432 NUM=123456765432 908 909 ; A MACRO TO REPORT AN ERROR AND LOOP 910 ; THIS IS REDEFINED HERE TO CHANGE THE LISTING CONTROL STATEMENTS 911 912 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR) 919 920 030623 265 00 0 00 030011 START: PGMINT ;INITIALIZE PROGRAM 921 030624 STARTA: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST A SEQ 0049 922 SUBTTL DADD - TEST A 923 SALL 924 041016 T=SIXBTZ 925 LALL 926 ; ********************************************************************** 927 ;*DADD - TEST A 928 ;* 929 ;* 0,# + 0,0 = 0,# SIMPLE TESTS TO SEE IF DADD 930 ;* #,0 + 0,0 = #,0 WORKS AT ALL. 931 ;* #,# + 0,0 = #,# 932 ;* 0,0 + 0,# = 0,# 933 ;* 0,0 + #,0 = #,0 934 ;* 0,0 + #,# = #,# 935 ;* 0,0 + 0,0 = 0,0 936 ; ********************************************************************** 937 938 ; ********************************************************************** 939 ; ---------- DADD (0,#) + (0,0) = (0,#) ---------- 940 ; ********************************************************************** 941 942 030624 200 15 0 00 041024 ATEST1: MOVE SCR3,[[EXP 0,NUM],,[EXP 0,0]] ;ADDR FOR APRINT 943 030625 120 01 0 00 041020 DMOVE AC1,[EXP 0,NUM] ;INIT AUGEND TO (0,#) 944 030626 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD (0,#)+(0,0) 945 CHECKA (ATEST1,A1,0,NUM)^ 946 947 030627 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 948 030630 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 949 030631 254 00 0 00 030635 JRST ..0001 ;NO - GO TO ERROR HANDLING 950 030632 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 951 030633 316 02 0 00 041021 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT? 952 030634 254 00 0 00 030640 JRST ..0002+1 ;YES - DONT DO ERROR HANDLING 953 ; EXCEPT FOR ERLOOP 954 955 030635 200 14 0 13 000001 ..0001: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 956 030636 200 13 0 13 041020 MOVE SCR1,[EXP 0,NUM](SCR1) ;GET CORRECT RESULT 957 030637 ..0002: ERROR (ATEST1,14,SCR1,SCR2,,TEST A1 - RESULT IS INCORRECT,APRINT)^SALL 958 030637 036 14 0 00 041033 959 030640 035 00 0 00 030624 ERLOOP ATEST1 ;IF ERROR, LOOP TO ATEST1 960 ^ 961 ^ 962 963 ; ********************************************************************** 964 ; ---------- DADD (#,0) + (0,0) = (#,0) ---------- 965 ; ********************************************************************** 966 967 030641 200 15 0 00 041036 ATEST2: MOVE SCR3,[[EXP NUM,0],,[EXP 0,0]] ;ADDR FOR APRINT 968 030642 120 01 0 00 041021 DMOVE AC1,[EXP NUM,0] ;INIT AUGEND TO (#,0) 969 030643 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD (#,0)+(0,0) 970 CHECKA (ATEST2,A2,NUM,0)^ 971 972 030644 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 973 030645 312 01 0 00 041021 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT? 974 030646 254 00 0 00 030652 JRST ..0003 ;NO - GO TO ERROR HANDLING 975 030647 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 976 030650 316 02 0 00 041020 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT? DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2-1 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST A SEQ 0050 977 030651 254 00 0 00 030655 JRST ..0004+1 ;YES - DONT DO ERROR HANDLING 978 ; EXCEPT FOR ERLOOP 979 980 030652 200 14 0 13 000001 ..0003: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 981 030653 200 13 0 13 041021 MOVE SCR1,[EXP NUM,0](SCR1) ;GET CORRECT RESULT 982 030654 ..0004: ERROR (ATEST2,14,SCR1,SCR2,,TEST A2 - RESULT IS INCORRECT,APRINT)^SALL 983 030654 036 14 0 00 041044 984 030655 035 00 0 00 030641 ERLOOP ATEST2 ;IF ERROR, LOOP TO ATEST2 985 ^ 986 ^ 987 988 ; ********************************************************************** 989 ; ---------- DADD (#,#) + (0,0) = (#,#) ---------- 990 ; ********************************************************************** 991 992 030656 200 15 0 00 041051 ATEST3: MOVE SCR3,[[EXP NUM,NUM],,[EXP 0,0]] ;ADDR FOR APRINT 993 030657 120 01 0 00 041047 DMOVE AC1,[EXP NUM,NUM] ;INIT AUGEND TO (#,#) 994 030660 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD (#,#)+(0,0) 995 CHECKA (ATEST3,A3,NUM,NUM)^ 996 997 030661 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 998 030662 312 01 0 00 041021 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT? 999 030663 254 00 0 00 030667 JRST ..0005 ;NO - GO TO ERROR HANDLING 1000 030664 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1001 030665 316 02 0 00 041021 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT? 1002 030666 254 00 0 00 030672 JRST ..0006+1 ;YES - DONT DO ERROR HANDLING 1003 ; EXCEPT FOR ERLOOP 1004 1005 030667 200 14 0 13 000001 ..0005: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1006 030670 200 13 0 13 041047 MOVE SCR1,[EXP NUM,NUM](SCR1) ;GET CORRECT RESULT 1007 030671 ..0006: ERROR (ATEST3,14,SCR1,SCR2,,TEST A3 - RESULT IS INCORRECT,APRINT)^SALL 1008 030671 036 14 0 00 041057 1009 030672 035 00 0 00 030656 ERLOOP ATEST3 ;IF ERROR, LOOP TO ATEST3 1010 ^ 1011 ^ 1012 1013 ; ********************************************************************** 1014 ; ---------- DADD (0,0) + (0,#) = (0,#) ---------- 1015 ; ********************************************************************** 1016 1017 030673 200 15 0 00 041062 ATEST4: MOVE SCR3,[[EXP 0,0],,[EXP 0,NUM]] ;ADDR FOR APRINT 1018 030674 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1019 030675 114 01 0 00 041020 DADD AC1,[EXP 0,NUM] ;ADD (0,0) + (0,#) 1020 CHECKA (ATEST4,A4,0,NUM)^ 1021 1022 030676 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1023 030677 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 1024 030700 254 00 0 00 030704 JRST ..0007 ;NO - GO TO ERROR HANDLING 1025 030701 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1026 030702 316 02 0 00 041021 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT? 1027 030703 254 00 0 00 030707 JRST ..0010+1 ;YES - DONT DO ERROR HANDLING 1028 ; EXCEPT FOR ERLOOP 1029 1030 030704 200 14 0 13 000001 ..0007: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1031 030705 200 13 0 13 041020 MOVE SCR1,[EXP 0,NUM](SCR1) ;GET CORRECT RESULT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2-2 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST A SEQ 0051 1032 030706 ..0010: ERROR (ATEST4,14,SCR1,SCR2,,TEST A4 - RESULT IS INCORRECT,APRINT)^SALL 1033 030706 036 14 0 00 041070 1034 030707 035 00 0 00 030673 ERLOOP ATEST4 ;IF ERROR, LOOP TO ATEST4 1035 ^ 1036 ^ 1037 1038 ; ********************************************************************** 1039 ; ---------- DADD (0,0) + (#,0) = (#,0) ---------- 1040 ; ********************************************************************** 1041 1042 030710 200 15 0 00 041073 ATEST5: MOVE SCR3,[[EXP 0,0],,[EXP NUM,0]] ;ADDR FOR APRINT 1043 030711 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1044 030712 114 01 0 00 041021 DADD AC1,[EXP NUM,0] ;ADD (0,0) + (#,0) 1045 CHECKA (ATEST5,A5,NUM,0)^ 1046 1047 030713 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1048 030714 312 01 0 00 041021 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT? 1049 030715 254 00 0 00 030721 JRST ..0011 ;NO - GO TO ERROR HANDLING 1050 030716 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1051 030717 316 02 0 00 041020 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT? 1052 030720 254 00 0 00 030724 JRST ..0012+1 ;YES - DONT DO ERROR HANDLING 1053 ; EXCEPT FOR ERLOOP 1054 1055 030721 200 14 0 13 000001 ..0011: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1056 030722 200 13 0 13 041021 MOVE SCR1,[EXP NUM,0](SCR1) ;GET CORRECT RESULT 1057 030723 ..0012: ERROR (ATEST5,14,SCR1,SCR2,,TEST A5 - RESULT IS INCORRECT,APRINT)^SALL 1058 030723 036 14 0 00 041101 1059 030724 035 00 0 00 030710 ERLOOP ATEST5 ;IF ERROR, LOOP TO ATEST5 1060 ^ 1061 ^ 1062 1063 ; ********************************************************************** 1064 ; ---------- DADD (0,0) + (#,#) = (#,#) ---------- 1065 ; ********************************************************************** 1066 1067 030725 200 15 0 00 041104 ATEST6: MOVE SCR3,[[EXP 0,0],,[EXP NUM,NUM]] ;ADDR FOR APRINT 1068 030726 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1069 030727 114 01 0 00 041047 DADD AC1,[EXP NUM,NUM] ;ADD (0,0)+(#,#) 1070 CHECKA (ATEST6,A6,NUM,NUM)^ 1071 1072 030730 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1073 030731 312 01 0 00 041021 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT? 1074 030732 254 00 0 00 030736 JRST ..0013 ;NO - GO TO ERROR HANDLING 1075 030733 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1076 030734 316 02 0 00 041021 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT? 1077 030735 254 00 0 00 030741 JRST ..0014+1 ;YES - DONT DO ERROR HANDLING 1078 ; EXCEPT FOR ERLOOP 1079 1080 030736 200 14 0 13 000001 ..0013: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1081 030737 200 13 0 13 041047 MOVE SCR1,[EXP NUM,NUM](SCR1) ;GET CORRECT RESULT 1082 030740 ..0014: ERROR (ATEST6,14,SCR1,SCR2,,TEST A6 - RESULT IS INCORRECT,APRINT)^SALL 1083 030740 036 14 0 00 041112 1084 030741 035 00 0 00 030725 ERLOOP ATEST6 ;IF ERROR, LOOP TO ATEST6 1085 ^ 1086 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 2-3 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST A SEQ 0052 1087 1088 ; ********************************************************************** 1089 ; ---------- DADD (0,0) + (0,0) = (0,0) ---------- 1090 ; ********************************************************************** 1091 1092 030742 200 15 0 00 041115 ATEST7: MOVE SCR3,[[EXP 0,0],,[EXP 0,0]] ;ADDR FOR APRINT 1093 030743 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1094 030744 114 01 0 00 000001 DADD AC1,AC1 ;ADD (0,0) + (0,0) 1095 CHECKA (ATEST7,A7,0,0)^ 1096 1097 030745 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1098 030746 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 1099 030747 254 00 0 00 030753 JRST ..0015 ;NO - GO TO ERROR HANDLING 1100 030750 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1101 030751 316 02 0 00 041020 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT? 1102 030752 254 00 0 00 030756 JRST ..0016+1 ;YES - DONT DO ERROR HANDLING 1103 ; EXCEPT FOR ERLOOP 1104 1105 030753 200 14 0 13 000001 ..0015: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1106 030754 200 13 0 13 041022 MOVE SCR1,[EXP 0,0](SCR1) ;GET CORRECT RESULT 1107 030755 ..0016: ERROR (ATEST7,14,SCR1,SCR2,,TEST A7 - RESULT IS INCORRECT,APRINT)^SALL 1108 030755 036 14 0 00 041123 1109 030756 035 00 0 00 030742 ERLOOP ATEST7 ;IF ERROR, LOOP TO ATEST7 1110 ^ 1111 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0053 1112 SUBTTL DADD - TEST B 1113 1114 ; ********************************************************************** 1115 ;DADD - TEST B 1116 ;* 1117 ;* FLOATING 1 + 0 = FLOATING 1 THESE TESTS ARE DONE FOR A 1 OR 1118 ;* 0 + FLOATING 1 = FLOATING 1 A 0 IN BITS 0,34,36,70 OF THE 1119 ;* FLOATING 0 + 0 = FLOATING 0 DOUBLEWORD ADDEND OR AUGEND. 1120 ;* 0 + FLOATING 0 = FLOATING 0 THIS WILL TEST THE WORD BOUND- 1121 ;* ARY INTEGRITY OF THE DADD 1122 ;* INSTRUCTION. 1123 ; ********************************************************************** 1124 1125 ; ********************************************************************** 1126 ;* REPEAT THE FOLLOWING BLOCK OF CODE 8 TIMES TO STEP DOWN A LIST 1127 ;* OF TEST CASES. THE TEST CASES CONSIST OF 8 DOUBLEWORDS - THE 1128 ;* FIRST 4 FLOAT A 1 ACROSS IN BITS 0,34,36,70; THE SECOND 4 FLOAT 1129 ;* A 0 ACROSS IN BITS 0,34,36,70. THE RESULT SHOULD BE ACS WITH 1130 ;* CONTENTS EQUAL TO THE FLOATING 1/0. 1131 ; ********************************************************************** 1132 1133 000000 REP=0 1134 000000 REPP=0 1135 1136 REPEAT ^D8,< 1137 ; ************************************************ 1138 1139 REP=REP+1 1140 LOC=. ;ERROR LOOP RETURN ADDRESS 1141 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1142 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1143 IFE REPP-1, 1145 1146 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1147 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1148 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1149 CHECKA (LOC,B1,ALEFT,ARIGHT) 1150 1151 LOC=. ;ERROR LOOP RETURN ADDRESS 1152 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1153 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1154 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1155 CHECKA (LOC,B2,ALEFT,ARIGHT) 1156 1157 IFE REP-4, 1159 ; ************************************************ 1160 > 1161 1162 ; ************************************************ 1163 1164 000001 REP=REP+1 1165 030757 LOC=. ;ERROR LOOP RETURN ADDRESS 1166 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-1 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0054 1167 000001 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1168 IFE REPP-1, 1170 1171 030757 200 15 0 00 041130 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1172 030760 120 01 0 00 041126 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1173 030761 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1174 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1175 1176 030762 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1177 030763 312 01 0 00 041020 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1178 030764 254 00 0 00 030770 JRST ..0017 ;NO - GO TO ERROR HANDLING 1179 030765 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1180 030766 316 02 0 00 041127 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1181 030767 254 00 0 00 030773 JRST ..0020+1 ;YES - DONT DO ERROR HANDLING 1182 ; EXCEPT FOR ERLOOP 1183 1184 030770 200 14 0 13 000001 ..0017: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1185 030771 200 13 0 13 041126 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1186 030772 ..0020: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1187 030772 036 14 0 00 041136 1188 030773 035 00 0 00 030757 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1189 ^ 1190 ^ 1191 1192 030774 LOC=. ;ERROR LOOP RETURN ADDRESS 1193 030774 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1194 030775 200 15 0 00 041141 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1195 030776 114 01 0 00 041126 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1196 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1197 1198 030777 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1199 031000 312 01 0 00 041020 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1200 031001 254 00 0 00 031005 JRST ..0021 ;NO - GO TO ERROR HANDLING 1201 031002 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1202 031003 316 02 0 00 041127 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1203 031004 254 00 0 00 031010 JRST ..0022+1 ;YES - DONT DO ERROR HANDLING 1204 ; EXCEPT FOR ERLOOP 1205 1206 031005 200 14 0 13 000001 ..0021: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1207 031006 200 13 0 13 041126 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1208 031007 ..0022: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1209 031007 036 14 0 00 041147 1210 031010 035 00 0 00 030774 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1211 ^ 1212 ^ 1213 1214 IFE REP-4, 1216 ; ************************************************ 1217 1218 1219 ; ************************************************ 1220 1221 000002 REP=REP+1 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-2 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0055 1222 031011 LOC=. ;ERROR LOOP RETURN ADDRESS 1223 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1224 200000 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1225 IFE REPP-1, 1227 1228 031011 200 15 0 00 041154 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1229 031012 120 01 0 00 041152 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1230 031013 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1231 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1232 1233 031014 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1234 031015 312 01 0 00 041020 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1235 031016 254 00 0 00 031022 JRST ..0023 ;NO - GO TO ERROR HANDLING 1236 031017 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1237 031020 316 02 0 00 041153 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1238 031021 254 00 0 00 031025 JRST ..0024+1 ;YES - DONT DO ERROR HANDLING 1239 ; EXCEPT FOR ERLOOP 1240 1241 031022 200 14 0 13 000001 ..0023: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1242 031023 200 13 0 13 041152 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1243 031024 ..0024: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1244 031024 036 14 0 00 041136 1245 031025 035 00 0 00 031011 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1246 ^ 1247 ^ 1248 1249 031026 LOC=. ;ERROR LOOP RETURN ADDRESS 1250 031026 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1251 031027 200 15 0 00 041155 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1252 031030 114 01 0 00 041152 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1253 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1254 1255 031031 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1256 031032 312 01 0 00 041020 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1257 031033 254 00 0 00 031037 JRST ..0025 ;NO - GO TO ERROR HANDLING 1258 031034 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1259 031035 316 02 0 00 041153 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1260 031036 254 00 0 00 031042 JRST ..0026+1 ;YES - DONT DO ERROR HANDLING 1261 ; EXCEPT FOR ERLOOP 1262 1263 031037 200 14 0 13 000001 ..0025: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1264 031040 200 13 0 13 041152 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1265 031041 ..0026: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1266 031041 036 14 0 00 041147 1267 031042 035 00 0 00 031026 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1268 ^ 1269 ^ 1270 1271 IFE REP-4, 1273 ; ************************************************ 1274 1275 1276 ; ************************************************ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-3 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0056 1277 1278 000003 REP=REP+1 1279 031043 LOC=. ;ERROR LOOP RETURN ADDRESS 1280 000001 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1281 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1282 IFE REPP-1, 1284 1285 031043 200 15 0 00 041160 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1286 031044 120 01 0 00 041156 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1287 031045 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1288 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1289 1290 031046 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1291 031047 312 01 0 00 041127 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1292 031050 254 00 0 00 031054 JRST ..0027 ;NO - GO TO ERROR HANDLING 1293 031051 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1294 031052 316 02 0 00 041020 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1295 031053 254 00 0 00 031057 JRST ..0030+1 ;YES - DONT DO ERROR HANDLING 1296 ; EXCEPT FOR ERLOOP 1297 1298 031054 200 14 0 13 000001 ..0027: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1299 031055 200 13 0 13 041156 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1300 031056 ..0030: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1301 031056 036 14 0 00 041136 1302 031057 035 00 0 00 031043 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1303 ^ 1304 ^ 1305 1306 031060 LOC=. ;ERROR LOOP RETURN ADDRESS 1307 031060 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1308 031061 200 15 0 00 041161 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1309 031062 114 01 0 00 041156 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1310 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1311 1312 031063 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1313 031064 312 01 0 00 041127 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1314 031065 254 00 0 00 031071 JRST ..0031 ;NO - GO TO ERROR HANDLING 1315 031066 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1316 031067 316 02 0 00 041020 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1317 031070 254 00 0 00 031074 JRST ..0032+1 ;YES - DONT DO ERROR HANDLING 1318 ; EXCEPT FOR ERLOOP 1319 1320 031071 200 14 0 13 000001 ..0031: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1321 031072 200 13 0 13 041156 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1322 031073 ..0032: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1323 031073 036 14 0 00 041147 1324 031074 035 00 0 00 031060 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1325 ^ 1326 ^ 1327 1328 IFE REP-4, 1330 ; ************************************************ 1331 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-4 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0057 1332 1333 ; ************************************************ 1334 1335 000004 REP=REP+1 1336 031075 LOC=. ;ERROR LOOP RETURN ADDRESS 1337 200000 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1338 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1339 IFE REPP-1, 1341 1342 031075 200 15 0 00 041164 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1343 031076 120 01 0 00 041162 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1344 031077 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1345 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1346 1347 031100 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1348 031101 312 01 0 00 041153 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1349 031102 254 00 0 00 031106 JRST ..0033 ;NO - GO TO ERROR HANDLING 1350 031103 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1351 031104 316 02 0 00 041020 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1352 031105 254 00 0 00 031111 JRST ..0034+1 ;YES - DONT DO ERROR HANDLING 1353 ; EXCEPT FOR ERLOOP 1354 1355 031106 200 14 0 13 000001 ..0033: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1356 031107 200 13 0 13 041162 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1357 031110 ..0034: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1358 031110 036 14 0 00 041136 1359 031111 035 00 0 00 031075 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1360 ^ 1361 ^ 1362 1363 031112 LOC=. ;ERROR LOOP RETURN ADDRESS 1364 031112 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1365 031113 200 15 0 00 041165 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1366 031114 114 01 0 00 041162 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1367 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1368 1369 031115 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1370 031116 312 01 0 00 041153 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1371 031117 254 00 0 00 031123 JRST ..0035 ;NO - GO TO ERROR HANDLING 1372 031120 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1373 031121 316 02 0 00 041020 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1374 031122 254 00 0 00 031126 JRST ..0036+1 ;YES - DONT DO ERROR HANDLING 1375 ; EXCEPT FOR ERLOOP 1376 1377 031123 200 14 0 13 000001 ..0035: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1378 031124 200 13 0 13 041162 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1379 031125 ..0036: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1380 031125 036 14 0 00 041147 1381 031126 035 00 0 00 031112 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1382 ^ 1383 ^ 1384 1385 000001 IFE REP-4, DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-5 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0058 1387 ; ************************************************ 1388 1389 1390 ; ************************************************ 1391 1392 000001 REP=REP+1 1393 031127 LOC=. ;ERROR LOOP RETURN ADDRESS 1394 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1395 000001 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1396 777777 777777 IFE REPP-1, 1398 1399 031127 200 15 0 00 041170 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1400 031130 120 01 0 00 041166 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1401 031131 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1402 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1403 1404 031132 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1405 031133 312 01 0 00 041166 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1406 031134 254 00 0 00 031140 JRST ..0037 ;NO - GO TO ERROR HANDLING 1407 031135 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1408 031136 316 02 0 00 041167 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1409 031137 254 00 0 00 031143 JRST ..0040+1 ;YES - DONT DO ERROR HANDLING 1410 ; EXCEPT FOR ERLOOP 1411 1412 031140 200 14 0 13 000001 ..0037: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1413 031141 200 13 0 13 041166 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1414 031142 ..0040: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1415 031142 036 14 0 00 041136 1416 031143 035 00 0 00 031127 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1417 ^ 1418 ^ 1419 1420 031144 LOC=. ;ERROR LOOP RETURN ADDRESS 1421 031144 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1422 031145 200 15 0 00 041171 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1423 031146 114 01 0 00 041166 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1424 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1425 1426 031147 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1427 031150 312 01 0 00 041166 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1428 031151 254 00 0 00 031155 JRST ..0041 ;NO - GO TO ERROR HANDLING 1429 031152 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1430 031153 316 02 0 00 041167 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1431 031154 254 00 0 00 031160 JRST ..0042+1 ;YES - DONT DO ERROR HANDLING 1432 ; EXCEPT FOR ERLOOP 1433 1434 031155 200 14 0 13 000001 ..0041: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1435 031156 200 13 0 13 041166 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1436 031157 ..0042: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1437 031157 036 14 0 00 041147 1438 031160 035 00 0 00 031144 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1439 ^ 1440 ^ 1441 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-6 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0059 1442 IFE REP-4, 1444 ; ************************************************ 1445 1446 1447 ; ************************************************ 1448 1449 000002 REP=REP+1 1450 031161 LOC=. ;ERROR LOOP RETURN ADDRESS 1451 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1452 200000 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1453 777777 777777 IFE REPP-1, 1455 1456 031161 200 15 0 00 041174 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1457 031162 120 01 0 00 041172 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1458 031163 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1459 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1460 1461 031164 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1462 031165 312 01 0 00 041166 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1463 031166 254 00 0 00 031172 JRST ..0043 ;NO - GO TO ERROR HANDLING 1464 031167 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1465 031170 316 02 0 00 041173 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1466 031171 254 00 0 00 031175 JRST ..0044+1 ;YES - DONT DO ERROR HANDLING 1467 ; EXCEPT FOR ERLOOP 1468 1469 031172 200 14 0 13 000001 ..0043: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1470 031173 200 13 0 13 041172 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1471 031174 ..0044: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1472 031174 036 14 0 00 041136 1473 031175 035 00 0 00 031161 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1474 ^ 1475 ^ 1476 1477 031176 LOC=. ;ERROR LOOP RETURN ADDRESS 1478 031176 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1479 031177 200 15 0 00 041175 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1480 031200 114 01 0 00 041172 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1481 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1482 1483 031201 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1484 031202 312 01 0 00 041166 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1485 031203 254 00 0 00 031207 JRST ..0045 ;NO - GO TO ERROR HANDLING 1486 031204 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1487 031205 316 02 0 00 041173 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1488 031206 254 00 0 00 031212 JRST ..0046+1 ;YES - DONT DO ERROR HANDLING 1489 ; EXCEPT FOR ERLOOP 1490 1491 031207 200 14 0 13 000001 ..0045: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1492 031210 200 13 0 13 041172 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1493 031211 ..0046: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1494 031211 036 14 0 00 041147 1495 031212 035 00 0 00 031176 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1496 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-7 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0060 1497 ^ 1498 1499 IFE REP-4, 1501 ; ************************************************ 1502 1503 1504 ; ************************************************ 1505 1506 000003 REP=REP+1 1507 031213 LOC=. ;ERROR LOOP RETURN ADDRESS 1508 000001 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1509 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1510 777777 777776 IFE REPP-1, 1512 1513 031213 200 15 0 00 041200 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1514 031214 120 01 0 00 041176 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1515 031215 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1516 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1517 1518 031216 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1519 031217 312 01 0 00 041167 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1520 031220 254 00 0 00 031224 JRST ..0047 ;NO - GO TO ERROR HANDLING 1521 031221 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1522 031222 316 02 0 00 041166 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1523 031223 254 00 0 00 031227 JRST ..0050+1 ;YES - DONT DO ERROR HANDLING 1524 ; EXCEPT FOR ERLOOP 1525 1526 031224 200 14 0 13 000001 ..0047: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1527 031225 200 13 0 13 041176 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1528 031226 ..0050: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1529 031226 036 14 0 00 041136 1530 031227 035 00 0 00 031213 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1531 ^ 1532 ^ 1533 1534 031230 LOC=. ;ERROR LOOP RETURN ADDRESS 1535 031230 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1536 031231 200 15 0 00 041201 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1537 031232 114 01 0 00 041176 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1538 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1539 1540 031233 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1541 031234 312 01 0 00 041167 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1542 031235 254 00 0 00 031241 JRST ..0051 ;NO - GO TO ERROR HANDLING 1543 031236 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1544 031237 316 02 0 00 041166 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1545 031240 254 00 0 00 031244 JRST ..0052+1 ;YES - DONT DO ERROR HANDLING 1546 ; EXCEPT FOR ERLOOP 1547 1548 031241 200 14 0 13 000001 ..0051: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1549 031242 200 13 0 13 041176 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1550 031243 ..0052: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1551 031243 036 14 0 00 041147 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-8 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0061 1552 031244 035 00 0 00 031230 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1553 ^ 1554 ^ 1555 1556 IFE REP-4, 1558 ; ************************************************ 1559 1560 1561 ; ************************************************ 1562 1563 000004 REP=REP+1 1564 031245 LOC=. ;ERROR LOOP RETURN ADDRESS 1565 200000 000000 ALEFT=0+IFE REP-3,<1>+IFE REP-4,<1B1> 1566 000000 ARIGHT=0+IFE REP-1,<1>+IFE REP-2,<1B1> 1567 577777 777777 IFE REPP-1, 1569 1570 031245 200 15 0 00 041204 MOVE SCR3,[[EXP ALEFT,ARIGHT],,[EXP 0,0]] ;ADDR FOR APRINT 1571 031246 120 01 0 00 041202 DMOVE AC1,[EXP ALEFT,ARIGHT] ;INIT AUGEND TO FLOATING 1/0 1572 031247 114 01 0 00 041022 DADD AC1,[EXP 0,0] ;ADD FLOATING 1/0 + (0,0) 1573 CHECKA (LOC,B1,ALEFT,ARIGHT)^ 1574 1575 031250 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1576 031251 312 01 0 00 041173 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1577 031252 254 00 0 00 031256 JRST ..0053 ;NO - GO TO ERROR HANDLING 1578 031253 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1579 031254 316 02 0 00 041166 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1580 031255 254 00 0 00 031261 JRST ..0054+1 ;YES - DONT DO ERROR HANDLING 1581 ; EXCEPT FOR ERLOOP 1582 1583 031256 200 14 0 13 000001 ..0053: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1584 031257 200 13 0 13 041202 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT 1585 031260 ..0054: ERROR (LOC,14,SCR1,SCR2,,TEST B1 - RESULT IS INCORRECT,APRINT)^SALL 1586 031260 036 14 0 00 041136 1587 031261 035 00 0 00 031245 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1588 ^ 1589 ^ 1590 1591 031262 LOC=. ;ERROR LOOP RETURN ADDRESS 1592 031262 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT AUGEND TO (0,0) 1593 031263 200 15 0 00 041205 MOVE SCR3,[[EXP 0,0],,[EXP ALEFT,ARIGHT]] ;ADDR FOR APRINT 1594 031264 114 01 0 00 041202 DADD AC1,[EXP ALEFT,ARIGHT] ;ADD (0,0) + FLOATING 1/0 1595 CHECKA (LOC,B2,ALEFT,ARIGHT)^ 1596 1597 031265 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1598 031266 312 01 0 00 041173 CAME AC1,[ALEFT] ;IS LEFT HALF OF RESULT CORRECT? 1599 031267 254 00 0 00 031273 JRST ..0055 ;NO - GO TO ERROR HANDLING 1600 031270 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1601 031271 316 02 0 00 041166 CAMN AC1+1,[ARIGHT] ;IS RIGHT HALF CORRECT? 1602 031272 254 00 0 00 031276 JRST ..0056+1 ;YES - DONT DO ERROR HANDLING 1603 ; EXCEPT FOR ERLOOP 1604 1605 031273 200 14 0 13 000001 ..0055: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1606 031274 200 13 0 13 041202 MOVE SCR1,[EXP ALEFT,ARIGHT](SCR1) ;GET CORRECT RESULT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 3-9 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST B SEQ 0062 1607 031275 ..0056: ERROR (LOC,14,SCR1,SCR2,,TEST B2 - RESULT IS INCORRECT,APRINT)^SALL 1608 031275 036 14 0 00 041147 1609 031276 035 00 0 00 031262 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1610 ^ 1611 ^ 1612 1613 000001 IFE REP-4, 1615 ; ************************************************ 1616 1617 031277 AENDB: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 4 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST C SEQ 0063 1618 SUBTTL DADD - TEST C 1619 1620 ; ********************************************************************** 1621 ;DADD - TEST C 1622 ;* 1623 ;* FLOATING 1 + FLOATING 1 = FLOATING 1 SHIFTED LEFT ONE BIT AT 1624 ;* A TIME ACROSS THE DOUBLEWORD EXCLUDING SIGN BITS AND THE MOST 1625 ;* SIGNIFICANT BIT (WE'RE NOT TESTING OVERFLOW CONDITIONS). THIS 1626 ;* TEST VERIFIES THE ABILITY OF THE DADD TO HANDLE A SINGLE CARRY 1627 ;* PROPAGATED 1 BIT WHETHER IT CROSSES A WORD BOUNDARY OR NOT. 1628 ; ********************************************************************** 1629 1630 ; ********************************************************************** 1631 ;DADD FLOATING 1 + FLOATING 1 = FLOATING 1 * 2 1632 ; ********************************************************************** 1633 1634 031277 400 11 0 00 000000 SETZ CNT, ;COUNT FROM 0 TO 68 1635 031300 120 01 0 00 041126 DMOVE AC1,[EXP 0,1] ;SET UP OPERANDS - AUGEND,ADDEND - EACH 1636 ; WILL BE THE DOUBLEWORD - AC1,AC1+1 1637 031301 137 11 0 00 031333 ALOOP: DPB CNT,ASHIFT ;SET UP ASHC TO CALCULATE OPERANDS 1638 031302 256 00 0 00 031333 XCT ASHIFT ;DO THE SHIFT - RESULT IS A DOUBLEWORD 1639 ; FLOATING 1 IN AC1,AC1+1 1640 031303 124 01 0 00 031327 DMOVEM AC1,ADATA ;SAVE THE ARGUMENTS FOR ADDL PRINT 1641 031304 200 15 0 00 041206 MOVE SCR3,[ADATA,,ADATA] ; ROUTINE & PUT INTO SCR3 1642 031305 244 01 0 00 000001 ASHC AC1,1 ;CALCULATED EXPECTED RESULT 1643 031306 124 01 0 00 031331 DMOVEM AC1,TEMP ;SAVE RESULTS 1644 031307 120 01 0 00 031327 DMOVE AC1,ADATA ;GET BACK ORIGINAL AUGEND 1645 1646 031310 114 01 0 00 000001 DADD AC1,AC1 ;ADD FLOATING 1 + FLOATING 1 1647 1648 031311 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1649 031312 312 01 0 00 031331 CAME AC1,TEMP ;RESULT - AC1 SHOULD = TEMP 1650 031313 254 00 0 00 031317 JRST AERR ;NOT CORRECT - DO ERROR HANDLING 1651 031314 201 13 0 00 000001 MOVEI SCR1,1 ;POINTER ADJUSTED TO NEXT WORD 1652 031315 316 02 0 00 031332 CAMN AC1+1,TEMP+1 ;RESULT - AC1+1 SHOULD = TEMP+1 1653 031316 254 00 0 00 031322 JRST AERRC+1 ;NO ERRORS - DO ERLOOP ANYWAY 1654 1655 031317 200 14 0 13 031331 AERR: MOVE SCR2,TEMP(SCR1) ;GET CORRECT DATA 1656 031320 200 13 0 13 000001 MOVE SCR1,AC1(SCR1) ;GET ACTUAL DATA 1657 031321 AERRC: ERROR (LOC,14,SCR2,SCR1,,TEST C - RESULT INCORRECT,APRINT)^SALL 1658 031321 036 14 0 00 041214 1659 031322 035 00 0 00 031262 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1660 ^ 1661 1662 031323 350 00 0 00 000011 AOS CNT ;INCREMENT SHIFT COUNT 1663 031324 302 11 0 00 000105 CAIE CNT,^D69 ;ARE WE DONE WITH 69 ITERATIONS? 1664 031325 254 00 0 00 031301 JRST ALOOP ; NO - REPEAT THIS TEST 1665 031326 254 00 0 00 031335 JRST ADADDI+1 ; YES - GO ON TO NEXT TEST 1666 1667 031327 ADATA: BLOCK 2 ;DADD OPERANDS 1668 031331 TEMP: BLOCK 2 ;TEMPORARY STORAGE FOR RESULT 1669 031333 43 10 0 00 031334 ASHIFT: POINT 8,ADADDI,0 ;FOR CALCULATING OPERANDS 1670 031334 244 01 0 00 000000 ADADDI: ASHC AC1,0 ;CALCULATE DOUBLEWORD FLOATING 1 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 5 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST D SEQ 0064 1671 SUBTTL DADD - TEST D 1672 1673 ; ********************************************************************** 1674 ;*DADD - TEST D 1675 ;* 1676 ;* 0,-1 + 0,1 = 1,0 ADDITIONAL TEST TO SEE THAT A 1677 ;* 0,1 + 0,-1 = 1,0 CARRY IS PROPAGATED ACROSS WORD 1678 ;* BOUNDARIES. 1679 ; ********************************************************************** 1680 1681 ; ********************************************************************** 1682 ; ---------- DADD (0,-1) + (0,1) = (1,0) ---------- 1683 ; ********************************************************************** 1684 1685 031335 200 15 0 00 041221 ATSTD1: MOVE SCR3,[[EXP 0,-1],,[EXP 0,1]] ;ADDR FOR APRINT 1686 031336 120 01 0 00 041217 DMOVE AC1,[EXP 0,-1] ;INIT AUGEND TO (0,-1) 1687 031337 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD (0,-1) + (0,1) 1688 CHECKA (ATSTD1,D1,1,0)^ 1689 1690 031340 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1691 031341 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 1692 031342 254 00 0 00 031346 JRST ..0057 ;NO - GO TO ERROR HANDLING 1693 031343 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1694 031344 316 02 0 00 041020 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT? 1695 031345 254 00 0 00 031351 JRST ..0060+1 ;YES - DONT DO ERROR HANDLING 1696 ; EXCEPT FOR ERLOOP 1697 1698 031346 200 14 0 13 000001 ..0057: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1699 031347 200 13 0 13 041156 MOVE SCR1,[EXP 1,0](SCR1) ;GET CORRECT RESULT 1700 031350 ..0060: ERROR (ATSTD1,14,SCR1,SCR2,,TEST D1 - RESULT IS INCORRECT,APRINT)^SALL 1701 031350 036 14 0 00 041227 1702 031351 035 00 0 00 031335 ERLOOP ATSTD1 ;IF ERROR, LOOP TO ATSTD1 1703 ^ 1704 ^ 1705 1706 ; ********************************************************************** 1707 ; ---------- DADD (0,1) + (0,-1) = (1,0) ---------- 1708 ; ********************************************************************** 1709 1710 031352 200 15 0 00 041232 ATSTD2: MOVE SCR3,[[EXP 0,1],,[EXP 0,-1]] ;ADDR FOR APRINT 1711 031353 120 01 0 00 041126 DMOVE AC1,[EXP 0,1] ;INIT AUGEND TO (0,1) 1712 031354 114 01 0 00 041217 DADD AC1,[EXP 0,-1] ;ADD (0,1) + (0,-1) 1713 CHECKA (ATSTD2,D2,1,0)^ 1714 1715 031355 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1716 031356 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 1717 031357 254 00 0 00 031363 JRST ..0061 ;NO - GO TO ERROR HANDLING 1718 031360 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1719 031361 316 02 0 00 041020 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT? 1720 031362 254 00 0 00 031366 JRST ..0062+1 ;YES - DONT DO ERROR HANDLING 1721 ; EXCEPT FOR ERLOOP 1722 1723 031363 200 14 0 13 000001 ..0061: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1724 031364 200 13 0 13 041156 MOVE SCR1,[EXP 1,0](SCR1) ;GET CORRECT RESULT 1725 031365 ..0062: ERROR (ATSTD2,14,SCR1,SCR2,,TEST D2 - RESULT IS INCORRECT,APRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 5-1 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST D SEQ 0065 1726 031365 036 14 0 00 041240 1727 031366 035 00 0 00 031352 ERLOOP ATSTD2 ;IF ERROR, LOOP TO ATSTD2 1728 ^ 1729 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0066 1730 SUBTTL DADD - TEST E 1731 1732 ; ********************************************************************** 1733 ;*DADD - TEST E 1734 ;* 1735 ;* FLOATING 0 + 1 = 11111000.. 1736 ;* 1 + FLOATING 0 = 11111000.. 1737 ; ********************************************************************** 1738 1739 ; ********************************************************************** 1740 ;* THE NEXT 6 TESTS VERIFY THAT A CARRY IS PROPERLY PROPAGATED 1741 ;* DOWN A WORD. A 1 IS ADDED TO A FLOATING 0 CAUSING THE 1742 ;* CARRY TO RIPPLE DOWN THE WORD. THE RESULT IS VERIFIED AS 1743 ;* 1111..110000.... THE FLOATING 0 IS LOCATED IN BITS 34,36, 1744 ;* 71 FOR NEGATIVE NUMBERS AND BITS 33,36,70 FOR POSITIVE 1745 ;* NUMBERS. CARRY FLAGS ARE VERIFIED IN ADDITION. 1746 ; ********************************************************************** 1747 1748 031576 CNUM=ACONE-4 1749 1750 REPEAT 6,< 1751 ; ************************************************ 1752 1753 LOC=. 1754 CNUM=CNUM+4 1755 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1756 JFCL 17,.+1 ;CLEAR PC FLAGS 1757 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1758 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1759 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 1760 PCSAVE 1761 CHECKB (LOC,E,CNUM+2) 1762 TFLAG ([0],E) 1763 ; ************************************************ 1764 > 1765 1766 ; ************************************************ 1767 1768 031367 LOC=. 1769 031602 CNUM=CNUM+4 1770 031367 120 01 0 00 031602 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1771 031370 255 17 0 00 031371 JFCL 17,.+1 ;CLEAR PC FLAGS 1772 031371 505 15 0 00 031602 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1773 031372 541 15 0 00 041126 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1774 031373 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 1775 PCSAVE^ 1776 031374 264 00 0 00 031375 JSR .+1 ;STORE PC 1777 031375 FLAGL=. ;LOCATION OF PC 1778 031375 000000 000000 0 ;PC 1779 ^ 1780 CHECKB (LOC,E,CNUM+2)^ 1781 1782 031376 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1783 031377 312 01 0 00 031604 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT? 1784 031400 254 00 0 00 031404 JRST ..0063 ;NO - GO TO ERROR HANDLING DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6-1 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0067 1785 031401 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1786 031402 316 02 0 00 031605 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT? 1787 031403 254 00 0 00 031407 JRST ..0064+1 ;YES - DONT DO ERROR HANDLING 1788 ; EXCEPT FOR ERLOOP 1789 1790 031404 200 14 0 13 000001 ..0063: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1791 031405 200 13 0 13 031604 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT 1792 031406 ..0064: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL 1793 031406 036 14 0 00 041250 1794 031407 035 00 0 00 031367 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1795 ^ 1796 ^ 1797 TFLAG ([0],E)^ 1798 1799 031410 200 13 0 00 031375 MOVE SCR1,FLAGL ;GET FLAGS 1800 031411 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 1801 031412 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 1802 031413 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 1803 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 1804 031414 036 13 0 00 041262 1805 031415 035 00 0 00 031367 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1806 ^ 1807 ^ 1808 ; ************************************************ 1809 1810 1811 ; ************************************************ 1812 1813 031416 LOC=. 1814 031606 CNUM=CNUM+4 1815 031416 120 01 0 00 031606 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1816 031417 255 17 0 00 031420 JFCL 17,.+1 ;CLEAR PC FLAGS 1817 031420 505 15 0 00 031606 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1818 031421 541 15 0 00 041126 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1819 031422 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 1820 PCSAVE^ 1821 031423 264 00 0 00 031424 JSR .+1 ;STORE PC 1822 031424 FLAGL=. ;LOCATION OF PC 1823 031424 000000 000000 0 ;PC 1824 ^ 1825 CHECKB (LOC,E,CNUM+2)^ 1826 1827 031425 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1828 031426 312 01 0 00 031610 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT? 1829 031427 254 00 0 00 031433 JRST ..0065 ;NO - GO TO ERROR HANDLING 1830 031430 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1831 031431 316 02 0 00 031611 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT? 1832 031432 254 00 0 00 031436 JRST ..0066+1 ;YES - DONT DO ERROR HANDLING 1833 ; EXCEPT FOR ERLOOP 1834 1835 031433 200 14 0 13 000001 ..0065: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1836 031434 200 13 0 13 031610 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT 1837 031435 ..0066: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL 1838 031435 036 14 0 00 041250 1839 031436 035 00 0 00 031416 ERLOOP LOC ;IF ERROR, LOOP TO LOC DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6-2 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0068 1840 ^ 1841 ^ 1842 TFLAG ([0],E)^ 1843 1844 031437 200 13 0 00 031424 MOVE SCR1,FLAGL ;GET FLAGS 1845 031440 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 1846 031441 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 1847 031442 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 1848 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 1849 031443 036 13 0 00 041265 1850 031444 035 00 0 00 031416 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1851 ^ 1852 ^ 1853 ; ************************************************ 1854 1855 1856 ; ************************************************ 1857 1858 031445 LOC=. 1859 031612 CNUM=CNUM+4 1860 031445 120 01 0 00 031612 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1861 031446 255 17 0 00 031447 JFCL 17,.+1 ;CLEAR PC FLAGS 1862 031447 505 15 0 00 031612 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1863 031450 541 15 0 00 041126 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1864 031451 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 1865 PCSAVE^ 1866 031452 264 00 0 00 031453 JSR .+1 ;STORE PC 1867 031453 FLAGL=. ;LOCATION OF PC 1868 031453 000000 000000 0 ;PC 1869 ^ 1870 CHECKB (LOC,E,CNUM+2)^ 1871 1872 031454 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1873 031455 312 01 0 00 031614 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT? 1874 031456 254 00 0 00 031462 JRST ..0067 ;NO - GO TO ERROR HANDLING 1875 031457 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1876 031460 316 02 0 00 031615 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT? 1877 031461 254 00 0 00 031465 JRST ..0070+1 ;YES - DONT DO ERROR HANDLING 1878 ; EXCEPT FOR ERLOOP 1879 1880 031462 200 14 0 13 000001 ..0067: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1881 031463 200 13 0 13 031614 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT 1882 031464 ..0070: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL 1883 031464 036 14 0 00 041250 1884 031465 035 00 0 00 031445 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1885 ^ 1886 ^ 1887 TFLAG ([0],E)^ 1888 1889 031466 200 13 0 00 031453 MOVE SCR1,FLAGL ;GET FLAGS 1890 031467 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 1891 031470 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 1892 031471 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 1893 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 1894 031472 036 13 0 00 041270 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6-3 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0069 1895 031473 035 00 0 00 031445 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1896 ^ 1897 ^ 1898 ; ************************************************ 1899 1900 1901 ; ************************************************ 1902 1903 031474 LOC=. 1904 031616 CNUM=CNUM+4 1905 031474 120 01 0 00 031616 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1906 031475 255 17 0 00 031476 JFCL 17,.+1 ;CLEAR PC FLAGS 1907 031476 505 15 0 00 031616 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1908 031477 541 15 0 00 041126 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1909 031500 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 1910 PCSAVE^ 1911 031501 264 00 0 00 031502 JSR .+1 ;STORE PC 1912 031502 FLAGL=. ;LOCATION OF PC 1913 031502 000000 000000 0 ;PC 1914 ^ 1915 CHECKB (LOC,E,CNUM+2)^ 1916 1917 031503 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1918 031504 312 01 0 00 031620 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT? 1919 031505 254 00 0 00 031511 JRST ..0071 ;NO - GO TO ERROR HANDLING 1920 031506 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1921 031507 316 02 0 00 031621 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT? 1922 031510 254 00 0 00 031514 JRST ..0072+1 ;YES - DONT DO ERROR HANDLING 1923 ; EXCEPT FOR ERLOOP 1924 1925 031511 200 14 0 13 000001 ..0071: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1926 031512 200 13 0 13 031620 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT 1927 031513 ..0072: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL 1928 031513 036 14 0 00 041250 1929 031514 035 00 0 00 031474 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1930 ^ 1931 ^ 1932 TFLAG ([0],E)^ 1933 1934 031515 200 13 0 00 031502 MOVE SCR1,FLAGL ;GET FLAGS 1935 031516 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 1936 031517 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 1937 031520 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 1938 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 1939 031521 036 13 0 00 041273 1940 031522 035 00 0 00 031474 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1941 ^ 1942 ^ 1943 ; ************************************************ 1944 1945 1946 ; ************************************************ 1947 1948 031523 LOC=. 1949 031622 CNUM=CNUM+4 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6-4 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0070 1950 031523 120 01 0 00 031622 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1951 031524 255 17 0 00 031525 JFCL 17,.+1 ;CLEAR PC FLAGS 1952 031525 505 15 0 00 031622 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1953 031526 541 15 0 00 041126 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1954 031527 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 1955 PCSAVE^ 1956 031530 264 00 0 00 031531 JSR .+1 ;STORE PC 1957 031531 FLAGL=. ;LOCATION OF PC 1958 031531 000000 000000 0 ;PC 1959 ^ 1960 CHECKB (LOC,E,CNUM+2)^ 1961 1962 031532 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 1963 031533 312 01 0 00 031624 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT? 1964 031534 254 00 0 00 031540 JRST ..0073 ;NO - GO TO ERROR HANDLING 1965 031535 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 1966 031536 316 02 0 00 031625 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT? 1967 031537 254 00 0 00 031543 JRST ..0074+1 ;YES - DONT DO ERROR HANDLING 1968 ; EXCEPT FOR ERLOOP 1969 1970 031540 200 14 0 13 000001 ..0073: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 1971 031541 200 13 0 13 031624 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT 1972 031542 ..0074: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL 1973 031542 036 14 0 00 041250 1974 031543 035 00 0 00 031523 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1975 ^ 1976 ^ 1977 TFLAG ([0],E)^ 1978 1979 031544 200 13 0 00 031531 MOVE SCR1,FLAGL ;GET FLAGS 1980 031545 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 1981 031546 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 1982 031547 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 1983 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 1984 031550 036 13 0 00 041276 1985 031551 035 00 0 00 031523 ERLOOP LOC ;IF ERROR, LOOP TO LOC 1986 ^ 1987 ^ 1988 ; ************************************************ 1989 1990 1991 ; ************************************************ 1992 1993 031552 LOC=. 1994 031626 CNUM=CNUM+4 1995 031552 120 01 0 00 031626 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0 1996 031553 255 17 0 00 031554 JFCL 17,.+1 ;CLEAR PC FLAGS 1997 031554 505 15 0 00 031626 HRLI SCR3,CNUM ;SCR3 - ADDRESS OF OPERANDS FOR 1998 031555 541 15 0 00 041126 HRRI SCR3,[EXP 0,1] ; ADDL ERROR PRINT ROUTINE 1999 031556 114 01 0 00 041126 DADD AC1,[EXP 0,1] ;ADD - FLOATING 0 + 1 2000 PCSAVE^ 2001 031557 264 00 0 00 031560 JSR .+1 ;STORE PC 2002 031560 FLAGL=. ;LOCATION OF PC 2003 031560 000000 000000 0 ;PC 2004 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 6-5 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0071 2005 CHECKB (LOC,E,CNUM+2)^ 2006 2007 031561 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2008 031562 312 01 0 00 031630 CAME AC1,CNUM+2 ;IS LEFT HALF OF RESULT CORRECT? 2009 031563 254 00 0 00 031567 JRST ..0075 ;NO - GO TO ERROR HANDLING 2010 031564 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2011 031565 316 02 0 00 031631 CAMN AC1+1,CNUM+2+1 ;IS RIGHT HALF CORRECT? 2012 031566 254 00 0 00 031572 JRST ..0076+1 ;YES - DONT DO ERROR HANDLING 2013 ; EXCEPT FOR ERLOOP 2014 2015 031567 200 14 0 13 000001 ..0075: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2016 031570 200 13 0 13 031630 MOVE SCR1,CNUM+2(SCR1) ;GET CORRECT WORD OF RESULT 2017 031571 ..0076: ERROR (LOC,14,SCR1,SCR2,,TEST E - RESULT IS INCORRECT,APRINT)^SALL 2018 031571 036 14 0 00 041250 2019 031572 035 00 0 00 031552 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2020 ^ 2021 ^ 2022 TFLAG ([0],E)^ 2023 2024 031573 200 13 0 00 031560 MOVE SCR1,FLAGL ;GET FLAGS 2025 031574 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2026 031575 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2027 031576 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2028 ERROR (LOC,13,SCR2,FLAGL,,TEST E - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2029 031577 036 13 0 00 041301 2030 031600 035 00 0 00 031552 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2031 ^ 2032 ^ 2033 ; ************************************************ 2034 2035 031601 254 00 0 00 031632 JRST AENDD ;SKIP OVER DATA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 7 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST E SEQ 0072 2036 2037 031602 777777 777777 ACONE: EXP -1,577777777777,-1,^B11B1 2038 031603 577777 777777 2039 031604 777777 777777 2040 031605 600000 000000 2041 031606 777777 777776 EXP -2,-1,-1,1B0 2042 031607 777777 777777 2043 031610 777777 777777 2044 031611 400000 000000 2045 031612 577777 777777 EXP 577777777777,-1,^B11B1,1B0 2046 031613 777777 777777 2047 031614 600000 000000 2048 031615 400000 000000 2049 031616 377777 777777 EXP 377777777777,177777777777,377777777777,1B1 2050 031617 177777 777777 2051 031620 377777 777777 2052 031621 200000 000000 2053 031622 377777 777776 EXP 377777777776,377777777777,377777777777,0 2054 031623 377777 777777 2055 031624 377777 777777 2056 031625 000000 000000 2057 031626 177777 777777 EXP 177777777777,377777777777,1B1,0 2058 031627 377777 777777 2059 031630 200000 000000 2060 031631 000000 000000 2061 031632 AENDD: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0073 2062 SUBTTL DADD - TEST F 2063 2064 ; ********************************************************************** 2065 ;*DADD - TEST F 2066 ;* 2067 ;* THE FOLLOWING TESTS VERIFY THAT THE DADD INSTRUCTION HANDLES 2068 ;* THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE 2069 ;* HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE 2070 ;* TESTS ADD VARIOUS COMBINATIONS OF INCONSISTENT SIGNS IN THE 2071 ;* ADDEND AND AUGEND AND VERIFY THAT THE SIGNS OF THE RESULT 2072 ;* ARE CORRECT. 2073 ;* 2074 ;* THERE ARE 5 SETS OF TEST: (1) 0 + P/N = P/N 2075 ;* (2) N + N = N 2076 ;* (3) P + P = P 2077 ;* (4) N + P = N 2078 ;* (5) N + P = P 2079 ;* WHERE N-NEGATIVE NUMBER 2080 ;* P-POSITIVE NUMBER 2081 ; ********************************************************************** 2082 2083 ; ********************************************************************** 2084 ; ---------- DADD - TEST F-1: 0 + P/N = P/N ---------- 2085 ; ********************************************************************** 2086 2087 033053 CNUM=ACONF1-4 2088 000000 REP=0 ;RESULT FOR FIRST 3 TESTS 2089 2090 REPEAT 6,< 2091 ; ************************************************ 2092 2093 LOC=. ;ERROR RETURN ADDRESS 2094 REP=REP+1 ;REP - REPETITION COUNT 2095 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2096 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2097 DMOVE AC1,CNUM ;INIT AUGEND 2098 JFCL 17,.+1 ;CLEAR PC FLAGS 2099 DADD AC1,CNUM+2 ;ADD N + P = 0,1 2100 PCSAVE 2101 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2102 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT 2103 CHECKA (LOC,F1,RLEFT,RRIGHT) 2104 TFLAG ([0],F1) 2105 ; ************************************************ 2106 > 2107 2108 ; ************************************************ 2109 2110 031632 LOC=. ;ERROR RETURN ADDRESS 2111 000001 REP=REP+1 ;REP - REPETITION COUNT 2112 033057 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2113 031632 200 15 0 00 041304 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2114 031633 120 01 0 00 033057 DMOVE AC1,CNUM ;INIT AUGEND 2115 031634 255 17 0 00 031635 JFCL 17,.+1 ;CLEAR PC FLAGS 2116 031635 114 01 0 00 033061 DADD AC1,CNUM+2 ;ADD N + P = 0,1 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-1 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0074 2117 PCSAVE^ 2118 031636 264 00 0 00 031637 JSR .+1 ;STORE PC 2119 031637 FLAGL=. ;LOCATION OF PC 2120 031637 000000 000000 0 ;PC 2121 ^ 2122 000000 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2123 000001 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT 2124 CHECKA (LOC,F1,RLEFT,RRIGHT)^ 2125 2126 031640 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2127 031641 312 01 0 00 041020 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT? 2128 031642 254 00 0 00 031646 JRST ..0077 ;NO - GO TO ERROR HANDLING 2129 031643 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2130 031644 316 02 0 00 041127 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT? 2131 031645 254 00 0 00 031651 JRST ..0100+1 ;YES - DONT DO ERROR HANDLING 2132 ; EXCEPT FOR ERLOOP 2133 2134 031646 200 14 0 13 000001 ..0077: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2135 031647 200 13 0 13 041126 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT 2136 031650 ..0100: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL 2137 031650 036 14 0 00 041312 2138 031651 035 00 0 00 031632 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2139 ^ 2140 ^ 2141 TFLAG ([0],F1)^ 2142 2143 031652 200 13 0 00 031637 MOVE SCR1,FLAGL ;GET FLAGS 2144 031653 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2145 031654 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2146 031655 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2147 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2148 2149 031656 036 13 0 00 041325 2150 031657 035 00 0 00 031632 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2151 ^ 2152 ^ 2153 ; ************************************************ 2154 2155 2156 ; ************************************************ 2157 2158 031660 LOC=. ;ERROR RETURN ADDRESS 2159 000002 REP=REP+1 ;REP - REPETITION COUNT 2160 033063 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2161 031660 200 15 0 00 041330 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2162 031661 120 01 0 00 033063 DMOVE AC1,CNUM ;INIT AUGEND 2163 031662 255 17 0 00 031663 JFCL 17,.+1 ;CLEAR PC FLAGS 2164 031663 114 01 0 00 033065 DADD AC1,CNUM+2 ;ADD N + P = 0,1 2165 PCSAVE^ 2166 031664 264 00 0 00 031665 JSR .+1 ;STORE PC 2167 031665 FLAGL=. ;LOCATION OF PC 2168 031665 000000 000000 0 ;PC 2169 ^ 2170 000000 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2171 000001 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-2 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0075 2172 CHECKA (LOC,F1,RLEFT,RRIGHT)^ 2173 2174 031666 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2175 031667 312 01 0 00 041020 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT? 2176 031670 254 00 0 00 031674 JRST ..0101 ;NO - GO TO ERROR HANDLING 2177 031671 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2178 031672 316 02 0 00 041127 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT? 2179 031673 254 00 0 00 031677 JRST ..0102+1 ;YES - DONT DO ERROR HANDLING 2180 ; EXCEPT FOR ERLOOP 2181 2182 031674 200 14 0 13 000001 ..0101: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2183 031675 200 13 0 13 041126 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT 2184 031676 ..0102: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL 2185 031676 036 14 0 00 041312 2186 031677 035 00 0 00 031660 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2187 ^ 2188 ^ 2189 TFLAG ([0],F1)^ 2190 2191 031700 200 13 0 00 031665 MOVE SCR1,FLAGL ;GET FLAGS 2192 031701 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2193 031702 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2194 031703 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2195 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2196 2197 031704 036 13 0 00 041331 2198 031705 035 00 0 00 031660 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2199 ^ 2200 ^ 2201 ; ************************************************ 2202 2203 2204 ; ************************************************ 2205 2206 031706 LOC=. ;ERROR RETURN ADDRESS 2207 000003 REP=REP+1 ;REP - REPETITION COUNT 2208 033067 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2209 031706 200 15 0 00 041334 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2210 031707 120 01 0 00 033067 DMOVE AC1,CNUM ;INIT AUGEND 2211 031710 255 17 0 00 031711 JFCL 17,.+1 ;CLEAR PC FLAGS 2212 031711 114 01 0 00 033071 DADD AC1,CNUM+2 ;ADD N + P = 0,1 2213 PCSAVE^ 2214 031712 264 00 0 00 031713 JSR .+1 ;STORE PC 2215 031713 FLAGL=. ;LOCATION OF PC 2216 031713 000000 000000 0 ;PC 2217 ^ 2218 000000 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2219 000001 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT 2220 CHECKA (LOC,F1,RLEFT,RRIGHT)^ 2221 2222 031714 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2223 031715 312 01 0 00 041020 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT? 2224 031716 254 00 0 00 031722 JRST ..0103 ;NO - GO TO ERROR HANDLING 2225 031717 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2226 031720 316 02 0 00 041127 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT? DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-3 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0076 2227 031721 254 00 0 00 031725 JRST ..0104+1 ;YES - DONT DO ERROR HANDLING 2228 ; EXCEPT FOR ERLOOP 2229 2230 031722 200 14 0 13 000001 ..0103: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2231 031723 200 13 0 13 041126 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT 2232 031724 ..0104: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL 2233 031724 036 14 0 00 041312 2234 031725 035 00 0 00 031706 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2235 ^ 2236 ^ 2237 TFLAG ([0],F1)^ 2238 2239 031726 200 13 0 00 031713 MOVE SCR1,FLAGL ;GET FLAGS 2240 031727 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2241 031730 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2242 031731 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2243 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2244 2245 031732 036 13 0 00 041335 2246 031733 035 00 0 00 031706 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2247 ^ 2248 ^ 2249 ; ************************************************ 2250 2251 2252 ; ************************************************ 2253 2254 031734 LOC=. ;ERROR RETURN ADDRESS 2255 000004 REP=REP+1 ;REP - REPETITION COUNT 2256 033073 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2257 031734 200 15 0 00 041340 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2258 031735 120 01 0 00 033073 DMOVE AC1,CNUM ;INIT AUGEND 2259 031736 255 17 0 00 031737 JFCL 17,.+1 ;CLEAR PC FLAGS 2260 031737 114 01 0 00 033075 DADD AC1,CNUM+2 ;ADD N + P = 0,1 2261 PCSAVE^ 2262 031740 264 00 0 00 031741 JSR .+1 ;STORE PC 2263 031741 FLAGL=. ;LOCATION OF PC 2264 031741 000000 000000 0 ;PC 2265 ^ 2266 777777 777777 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2267 777777 777777 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT 2268 CHECKA (LOC,F1,RLEFT,RRIGHT)^ 2269 2270 031742 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2271 031743 312 01 0 00 041166 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT? 2272 031744 254 00 0 00 031750 JRST ..0105 ;NO - GO TO ERROR HANDLING 2273 031745 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2274 031746 316 02 0 00 041166 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT? 2275 031747 254 00 0 00 031753 JRST ..0106+1 ;YES - DONT DO ERROR HANDLING 2276 ; EXCEPT FOR ERLOOP 2277 2278 031750 200 14 0 13 000001 ..0105: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2279 031751 200 13 0 13 041341 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT 2280 031752 ..0106: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL 2281 031752 036 14 0 00 041312 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-4 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0077 2282 031753 035 00 0 00 031734 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2283 ^ 2284 ^ 2285 TFLAG ([0],F1)^ 2286 2287 031754 200 13 0 00 031741 MOVE SCR1,FLAGL ;GET FLAGS 2288 031755 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2289 031756 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2290 031757 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2291 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2292 2293 031760 036 13 0 00 041343 2294 031761 035 00 0 00 031734 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2295 ^ 2296 ^ 2297 ; ************************************************ 2298 2299 2300 ; ************************************************ 2301 2302 031762 LOC=. ;ERROR RETURN ADDRESS 2303 000005 REP=REP+1 ;REP - REPETITION COUNT 2304 033077 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2305 031762 200 15 0 00 041346 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2306 031763 120 01 0 00 033077 DMOVE AC1,CNUM ;INIT AUGEND 2307 031764 255 17 0 00 031765 JFCL 17,.+1 ;CLEAR PC FLAGS 2308 031765 114 01 0 00 033101 DADD AC1,CNUM+2 ;ADD N + P = 0,1 2309 PCSAVE^ 2310 031766 264 00 0 00 031767 JSR .+1 ;STORE PC 2311 031767 FLAGL=. ;LOCATION OF PC 2312 031767 000000 000000 0 ;PC 2313 ^ 2314 777777 777777 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2315 777777 777777 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT 2316 CHECKA (LOC,F1,RLEFT,RRIGHT)^ 2317 2318 031770 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2319 031771 312 01 0 00 041166 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT? 2320 031772 254 00 0 00 031776 JRST ..0107 ;NO - GO TO ERROR HANDLING 2321 031773 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2322 031774 316 02 0 00 041166 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT? 2323 031775 254 00 0 00 032001 JRST ..0110+1 ;YES - DONT DO ERROR HANDLING 2324 ; EXCEPT FOR ERLOOP 2325 2326 031776 200 14 0 13 000001 ..0107: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2327 031777 200 13 0 13 041341 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT 2328 032000 ..0110: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL 2329 032000 036 14 0 00 041312 2330 032001 035 00 0 00 031762 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2331 ^ 2332 ^ 2333 TFLAG ([0],F1)^ 2334 2335 032002 200 13 0 00 031767 MOVE SCR1,FLAGL ;GET FLAGS 2336 032003 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-5 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0078 2337 032004 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2338 032005 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2339 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2340 2341 032006 036 13 0 00 041347 2342 032007 035 00 0 00 031762 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2343 ^ 2344 ^ 2345 ; ************************************************ 2346 2347 2348 ; ************************************************ 2349 2350 032010 LOC=. ;ERROR RETURN ADDRESS 2351 000006 REP=REP+1 ;REP - REPETITION COUNT 2352 033103 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2353 032010 200 15 0 00 041352 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR FOR ADDL ERROR PRINT 2354 032011 120 01 0 00 033103 DMOVE AC1,CNUM ;INIT AUGEND 2355 032012 255 17 0 00 032013 JFCL 17,.+1 ;CLEAR PC FLAGS 2356 032013 114 01 0 00 033105 DADD AC1,CNUM+2 ;ADD N + P = 0,1 2357 PCSAVE^ 2358 032014 264 00 0 00 032015 JSR .+1 ;STORE PC 2359 032015 FLAGL=. ;LOCATION OF PC 2360 032015 000000 000000 0 ;PC 2361 ^ 2362 777777 777777 RLEFT=0-IFG REP-3,<1> ;LEFT WORD OF RESULT 2363 777777 777777 RRIGHT=1-IFG REP-3,<2> ;RIGHT WORD OF RESULT 2364 CHECKA (LOC,F1,RLEFT,RRIGHT)^ 2365 2366 032016 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2367 032017 312 01 0 00 041166 CAME AC1,[RLEFT] ;IS LEFT HALF OF RESULT CORRECT? 2368 032020 254 00 0 00 032024 JRST ..0111 ;NO - GO TO ERROR HANDLING 2369 032021 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2370 032022 316 02 0 00 041166 CAMN AC1+1,[RRIGHT] ;IS RIGHT HALF CORRECT? 2371 032023 254 00 0 00 032027 JRST ..0112+1 ;YES - DONT DO ERROR HANDLING 2372 ; EXCEPT FOR ERLOOP 2373 2374 032024 200 14 0 13 000001 ..0111: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2375 032025 200 13 0 13 041341 MOVE SCR1,[EXP RLEFT,RRIGHT](SCR1) ;GET CORRECT RESULT 2376 032026 ..0112: ERROR (LOC,14,SCR1,SCR2,,TEST F1 - RESULT IS INCORRECT,APRINT)^SALL 2377 032026 036 14 0 00 041312 2378 032027 035 00 0 00 032010 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2379 ^ 2380 ^ 2381 TFLAG ([0],F1)^ 2382 2383 032030 200 13 0 00 032015 MOVE SCR1,FLAGL ;GET FLAGS 2384 032031 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2385 032032 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2386 032033 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2387 ERROR (LOC,13,SCR2,FLAGL,,TEST F1 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2388 2389 032034 036 13 0 00 041353 2390 032035 035 00 0 00 032010 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2391 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-6 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0079 2392 ^ 2393 ; ************************************************ 2394 2395 ; ********************************************************************** 2396 ; ---------- DADD - TEST F-2: N + N = N ---------- 2397 ; ********************************************************************** 2398 2399 033103 CNUM=ACONF2-4 2400 2401 REPEAT 6,< 2402 ; ************************************************ 2403 2404 LOC=. ;ERROR RETURN ADDRESS 2405 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2406 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2407 DMOVE AC1,CNUM ;INIT AUGEND 2408 JFCL 17,.+1 ;CLEAR PC FLAGS 2409 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2410 PCSAVE 2411 CHECKA (LOC,F2,777777777776,777777777776) 2412 TFLAG ([^B0110B3],F2) 2413 ; ************************************************ 2414 > 2415 2416 ; ************************************************ 2417 2418 032036 LOC=. ;ERROR RETURN ADDRESS 2419 033107 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2420 032036 200 15 0 00 041356 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2421 032037 120 01 0 00 033107 DMOVE AC1,CNUM ;INIT AUGEND 2422 032040 255 17 0 00 032041 JFCL 17,.+1 ;CLEAR PC FLAGS 2423 032041 114 01 0 00 033111 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2424 PCSAVE^ 2425 032042 264 00 0 00 032043 JSR .+1 ;STORE PC 2426 032043 FLAGL=. ;LOCATION OF PC 2427 032043 000000 000000 0 ;PC 2428 ^ 2429 CHECKA (LOC,F2,777777777776,777777777776)^ 2430 2431 032044 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2432 032045 312 01 0 00 041167 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT? 2433 032046 254 00 0 00 032052 JRST ..0113 ;NO - GO TO ERROR HANDLING 2434 032047 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2435 032050 316 02 0 00 041167 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT? 2436 032051 254 00 0 00 032055 JRST ..0114+1 ;YES - DONT DO ERROR HANDLING 2437 ; EXCEPT FOR ERLOOP 2438 2439 032052 200 14 0 13 000001 ..0113: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2440 032053 200 13 0 13 041357 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT 2441 032054 ..0114: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL 2442 032054 036 14 0 00 041366 2443 032055 035 00 0 00 032036 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2444 ^ 2445 ^ 2446 TFLAG ([^B0110B3],F2)^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-7 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0080 2447 2448 032056 200 13 0 00 032043 MOVE SCR1,FLAGL ;GET FLAGS 2449 032057 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 2450 032060 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2451 032061 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2452 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2453 2454 032062 036 13 0 00 041402 2455 032063 035 00 0 00 032036 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2456 ^ 2457 ^ 2458 ; ************************************************ 2459 2460 2461 ; ************************************************ 2462 2463 032064 LOC=. ;ERROR RETURN ADDRESS 2464 033113 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2465 032064 200 15 0 00 041405 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2466 032065 120 01 0 00 033113 DMOVE AC1,CNUM ;INIT AUGEND 2467 032066 255 17 0 00 032067 JFCL 17,.+1 ;CLEAR PC FLAGS 2468 032067 114 01 0 00 033115 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2469 PCSAVE^ 2470 032070 264 00 0 00 032071 JSR .+1 ;STORE PC 2471 032071 FLAGL=. ;LOCATION OF PC 2472 032071 000000 000000 0 ;PC 2473 ^ 2474 CHECKA (LOC,F2,777777777776,777777777776)^ 2475 2476 032072 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2477 032073 312 01 0 00 041167 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT? 2478 032074 254 00 0 00 032100 JRST ..0115 ;NO - GO TO ERROR HANDLING 2479 032075 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2480 032076 316 02 0 00 041167 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT? 2481 032077 254 00 0 00 032103 JRST ..0116+1 ;YES - DONT DO ERROR HANDLING 2482 ; EXCEPT FOR ERLOOP 2483 2484 032100 200 14 0 13 000001 ..0115: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2485 032101 200 13 0 13 041357 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT 2486 032102 ..0116: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL 2487 032102 036 14 0 00 041366 2488 032103 035 00 0 00 032064 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2489 ^ 2490 ^ 2491 TFLAG ([^B0110B3],F2)^ 2492 2493 032104 200 13 0 00 032071 MOVE SCR1,FLAGL ;GET FLAGS 2494 032105 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 2495 032106 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2496 032107 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2497 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2498 2499 032110 036 13 0 00 041406 2500 032111 035 00 0 00 032064 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2501 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-8 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0081 2502 ^ 2503 ; ************************************************ 2504 2505 2506 ; ************************************************ 2507 2508 032112 LOC=. ;ERROR RETURN ADDRESS 2509 033117 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2510 032112 200 15 0 00 041411 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2511 032113 120 01 0 00 033117 DMOVE AC1,CNUM ;INIT AUGEND 2512 032114 255 17 0 00 032115 JFCL 17,.+1 ;CLEAR PC FLAGS 2513 032115 114 01 0 00 033121 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2514 PCSAVE^ 2515 032116 264 00 0 00 032117 JSR .+1 ;STORE PC 2516 032117 FLAGL=. ;LOCATION OF PC 2517 032117 000000 000000 0 ;PC 2518 ^ 2519 CHECKA (LOC,F2,777777777776,777777777776)^ 2520 2521 032120 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2522 032121 312 01 0 00 041167 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT? 2523 032122 254 00 0 00 032126 JRST ..0117 ;NO - GO TO ERROR HANDLING 2524 032123 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2525 032124 316 02 0 00 041167 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT? 2526 032125 254 00 0 00 032131 JRST ..0120+1 ;YES - DONT DO ERROR HANDLING 2527 ; EXCEPT FOR ERLOOP 2528 2529 032126 200 14 0 13 000001 ..0117: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2530 032127 200 13 0 13 041357 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT 2531 032130 ..0120: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL 2532 032130 036 14 0 00 041366 2533 032131 035 00 0 00 032112 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2534 ^ 2535 ^ 2536 TFLAG ([^B0110B3],F2)^ 2537 2538 032132 200 13 0 00 032117 MOVE SCR1,FLAGL ;GET FLAGS 2539 032133 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 2540 032134 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2541 032135 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2542 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2543 2544 032136 036 13 0 00 041412 2545 032137 035 00 0 00 032112 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2546 ^ 2547 ^ 2548 ; ************************************************ 2549 2550 2551 ; ************************************************ 2552 2553 032140 LOC=. ;ERROR RETURN ADDRESS 2554 033123 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2555 032140 200 15 0 00 041415 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2556 032141 120 01 0 00 033123 DMOVE AC1,CNUM ;INIT AUGEND DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-9 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0082 2557 032142 255 17 0 00 032143 JFCL 17,.+1 ;CLEAR PC FLAGS 2558 032143 114 01 0 00 033125 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2559 PCSAVE^ 2560 032144 264 00 0 00 032145 JSR .+1 ;STORE PC 2561 032145 FLAGL=. ;LOCATION OF PC 2562 032145 000000 000000 0 ;PC 2563 ^ 2564 CHECKA (LOC,F2,777777777776,777777777776)^ 2565 2566 032146 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2567 032147 312 01 0 00 041167 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT? 2568 032150 254 00 0 00 032154 JRST ..0121 ;NO - GO TO ERROR HANDLING 2569 032151 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2570 032152 316 02 0 00 041167 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT? 2571 032153 254 00 0 00 032157 JRST ..0122+1 ;YES - DONT DO ERROR HANDLING 2572 ; EXCEPT FOR ERLOOP 2573 2574 032154 200 14 0 13 000001 ..0121: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2575 032155 200 13 0 13 041357 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT 2576 032156 ..0122: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL 2577 032156 036 14 0 00 041366 2578 032157 035 00 0 00 032140 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2579 ^ 2580 ^ 2581 TFLAG ([^B0110B3],F2)^ 2582 2583 032160 200 13 0 00 032145 MOVE SCR1,FLAGL ;GET FLAGS 2584 032161 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 2585 032162 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2586 032163 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2587 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2588 2589 032164 036 13 0 00 041416 2590 032165 035 00 0 00 032140 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2591 ^ 2592 ^ 2593 ; ************************************************ 2594 2595 2596 ; ************************************************ 2597 2598 032166 LOC=. ;ERROR RETURN ADDRESS 2599 033127 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2600 032166 200 15 0 00 041421 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2601 032167 120 01 0 00 033127 DMOVE AC1,CNUM ;INIT AUGEND 2602 032170 255 17 0 00 032171 JFCL 17,.+1 ;CLEAR PC FLAGS 2603 032171 114 01 0 00 033131 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2604 PCSAVE^ 2605 032172 264 00 0 00 032173 JSR .+1 ;STORE PC 2606 032173 FLAGL=. ;LOCATION OF PC 2607 032173 000000 000000 0 ;PC 2608 ^ 2609 CHECKA (LOC,F2,777777777776,777777777776)^ 2610 2611 032174 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-10 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0083 2612 032175 312 01 0 00 041167 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT? 2613 032176 254 00 0 00 032202 JRST ..0123 ;NO - GO TO ERROR HANDLING 2614 032177 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2615 032200 316 02 0 00 041167 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT? 2616 032201 254 00 0 00 032205 JRST ..0124+1 ;YES - DONT DO ERROR HANDLING 2617 ; EXCEPT FOR ERLOOP 2618 2619 032202 200 14 0 13 000001 ..0123: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2620 032203 200 13 0 13 041357 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT 2621 032204 ..0124: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL 2622 032204 036 14 0 00 041366 2623 032205 035 00 0 00 032166 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2624 ^ 2625 ^ 2626 TFLAG ([^B0110B3],F2)^ 2627 2628 032206 200 13 0 00 032173 MOVE SCR1,FLAGL ;GET FLAGS 2629 032207 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 2630 032210 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2631 032211 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2632 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2633 2634 032212 036 13 0 00 041422 2635 032213 035 00 0 00 032166 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2636 ^ 2637 ^ 2638 ; ************************************************ 2639 2640 2641 ; ************************************************ 2642 2643 032214 LOC=. ;ERROR RETURN ADDRESS 2644 033133 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2645 032214 200 15 0 00 041425 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2646 032215 120 01 0 00 033133 DMOVE AC1,CNUM ;INIT AUGEND 2647 032216 255 17 0 00 032217 JFCL 17,.+1 ;CLEAR PC FLAGS 2648 032217 114 01 0 00 033135 DADD AC1,CNUM+2 ;ADD N + N = 77..76,77..76 2649 PCSAVE^ 2650 032220 264 00 0 00 032221 JSR .+1 ;STORE PC 2651 032221 FLAGL=. ;LOCATION OF PC 2652 032221 000000 000000 0 ;PC 2653 ^ 2654 CHECKA (LOC,F2,777777777776,777777777776)^ 2655 2656 032222 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2657 032223 312 01 0 00 041167 CAME AC1,[777777777776] ;IS LEFT HALF OF RESULT CORRECT? 2658 032224 254 00 0 00 032230 JRST ..0125 ;NO - GO TO ERROR HANDLING 2659 032225 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2660 032226 316 02 0 00 041167 CAMN AC1+1,[777777777776] ;IS RIGHT HALF CORRECT? 2661 032227 254 00 0 00 032233 JRST ..0126+1 ;YES - DONT DO ERROR HANDLING 2662 ; EXCEPT FOR ERLOOP 2663 2664 032230 200 14 0 13 000001 ..0125: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2665 032231 200 13 0 13 041357 MOVE SCR1,[EXP 777777777776,777777777776](SCR1) ;GET CORRECT RESULT 2666 032232 ..0126: ERROR (LOC,14,SCR1,SCR2,,TEST F2 - RESULT IS INCORRECT,APRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-11 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0084 2667 032232 036 14 0 00 041366 2668 032233 035 00 0 00 032214 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2669 ^ 2670 ^ 2671 TFLAG ([^B0110B3],F2)^ 2672 2673 032234 200 13 0 00 032221 MOVE SCR1,FLAGL ;GET FLAGS 2674 032235 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 2675 032236 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2676 032237 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2677 ERROR (LOC,13,SCR2,FLAGL,,TEST F2 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2678 2679 032240 036 13 0 00 041426 2680 032241 035 00 0 00 032214 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2681 ^ 2682 ^ 2683 ; ************************************************ 2684 2685 ; ********************************************************************** 2686 ; ---------- DADD - TEST F-3: P + P = P ---------- 2687 ; ********************************************************************** 2688 2689 033133 CNUM=ACONF3-4 2690 2691 REPEAT 6,< 2692 ; ************************************************ 2693 2694 LOC=. ;ERROR RETURN ADDRESS 2695 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2696 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2697 DMOVE AC1,CNUM ;INIT AUGEND 2698 JFCL 17,.+1 ;CLEAR PC FLAGS 2699 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2700 PCSAVE 2701 CHECKA (LOC,F3,1,1) 2702 TFLAG ([0],F3) 2703 ; ************************************************ 2704 > 2705 2706 ; ************************************************ 2707 2708 032242 LOC=. ;ERROR RETURN ADDRESS 2709 033137 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2710 032242 200 15 0 00 041431 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2711 032243 120 01 0 00 033137 DMOVE AC1,CNUM ;INIT AUGEND 2712 032244 255 17 0 00 032245 JFCL 17,.+1 ;CLEAR PC FLAGS 2713 032245 114 01 0 00 033141 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2714 PCSAVE^ 2715 032246 264 00 0 00 032247 JSR .+1 ;STORE PC 2716 032247 FLAGL=. ;LOCATION OF PC 2717 032247 000000 000000 0 ;PC 2718 ^ 2719 CHECKA (LOC,F3,1,1)^ 2720 2721 032250 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-12 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0085 2722 032251 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 2723 032252 254 00 0 00 032256 JRST ..0127 ;NO - GO TO ERROR HANDLING 2724 032253 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2725 032254 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 2726 032255 254 00 0 00 032261 JRST ..0130+1 ;YES - DONT DO ERROR HANDLING 2727 ; EXCEPT FOR ERLOOP 2728 2729 032256 200 14 0 13 000001 ..0127: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2730 032257 200 13 0 13 041432 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT 2731 032260 ..0130: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL 2732 032260 036 14 0 00 041441 2733 032261 035 00 0 00 032242 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2734 ^ 2735 ^ 2736 TFLAG ([0],F3)^ 2737 2738 032262 200 13 0 00 032247 MOVE SCR1,FLAGL ;GET FLAGS 2739 032263 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2740 032264 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2741 032265 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2742 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2743 2744 032266 036 13 0 00 041454 2745 032267 035 00 0 00 032242 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2746 ^ 2747 ^ 2748 ; ************************************************ 2749 2750 2751 ; ************************************************ 2752 2753 032270 LOC=. ;ERROR RETURN ADDRESS 2754 033143 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2755 032270 200 15 0 00 041457 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2756 032271 120 01 0 00 033143 DMOVE AC1,CNUM ;INIT AUGEND 2757 032272 255 17 0 00 032273 JFCL 17,.+1 ;CLEAR PC FLAGS 2758 032273 114 01 0 00 033145 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2759 PCSAVE^ 2760 032274 264 00 0 00 032275 JSR .+1 ;STORE PC 2761 032275 FLAGL=. ;LOCATION OF PC 2762 032275 000000 000000 0 ;PC 2763 ^ 2764 CHECKA (LOC,F3,1,1)^ 2765 2766 032276 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2767 032277 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 2768 032300 254 00 0 00 032304 JRST ..0131 ;NO - GO TO ERROR HANDLING 2769 032301 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2770 032302 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 2771 032303 254 00 0 00 032307 JRST ..0132+1 ;YES - DONT DO ERROR HANDLING 2772 ; EXCEPT FOR ERLOOP 2773 2774 032304 200 14 0 13 000001 ..0131: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2775 032305 200 13 0 13 041432 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT 2776 032306 ..0132: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-13 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0086 2777 032306 036 14 0 00 041441 2778 032307 035 00 0 00 032270 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2779 ^ 2780 ^ 2781 TFLAG ([0],F3)^ 2782 2783 032310 200 13 0 00 032275 MOVE SCR1,FLAGL ;GET FLAGS 2784 032311 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2785 032312 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2786 032313 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2787 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2788 2789 032314 036 13 0 00 041460 2790 032315 035 00 0 00 032270 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2791 ^ 2792 ^ 2793 ; ************************************************ 2794 2795 2796 ; ************************************************ 2797 2798 032316 LOC=. ;ERROR RETURN ADDRESS 2799 033147 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2800 032316 200 15 0 00 041463 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2801 032317 120 01 0 00 033147 DMOVE AC1,CNUM ;INIT AUGEND 2802 032320 255 17 0 00 032321 JFCL 17,.+1 ;CLEAR PC FLAGS 2803 032321 114 01 0 00 033151 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2804 PCSAVE^ 2805 032322 264 00 0 00 032323 JSR .+1 ;STORE PC 2806 032323 FLAGL=. ;LOCATION OF PC 2807 032323 000000 000000 0 ;PC 2808 ^ 2809 CHECKA (LOC,F3,1,1)^ 2810 2811 032324 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2812 032325 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 2813 032326 254 00 0 00 032332 JRST ..0133 ;NO - GO TO ERROR HANDLING 2814 032327 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2815 032330 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 2816 032331 254 00 0 00 032335 JRST ..0134+1 ;YES - DONT DO ERROR HANDLING 2817 ; EXCEPT FOR ERLOOP 2818 2819 032332 200 14 0 13 000001 ..0133: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2820 032333 200 13 0 13 041432 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT 2821 032334 ..0134: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL 2822 032334 036 14 0 00 041441 2823 032335 035 00 0 00 032316 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2824 ^ 2825 ^ 2826 TFLAG ([0],F3)^ 2827 2828 032336 200 13 0 00 032323 MOVE SCR1,FLAGL ;GET FLAGS 2829 032337 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2830 032340 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2831 032341 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-14 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0087 2832 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2833 2834 032342 036 13 0 00 041464 2835 032343 035 00 0 00 032316 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2836 ^ 2837 ^ 2838 ; ************************************************ 2839 2840 2841 ; ************************************************ 2842 2843 032344 LOC=. ;ERROR RETURN ADDRESS 2844 033153 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2845 032344 200 15 0 00 041467 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2846 032345 120 01 0 00 033153 DMOVE AC1,CNUM ;INIT AUGEND 2847 032346 255 17 0 00 032347 JFCL 17,.+1 ;CLEAR PC FLAGS 2848 032347 114 01 0 00 033155 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2849 PCSAVE^ 2850 032350 264 00 0 00 032351 JSR .+1 ;STORE PC 2851 032351 FLAGL=. ;LOCATION OF PC 2852 032351 000000 000000 0 ;PC 2853 ^ 2854 CHECKA (LOC,F3,1,1)^ 2855 2856 032352 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2857 032353 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 2858 032354 254 00 0 00 032360 JRST ..0135 ;NO - GO TO ERROR HANDLING 2859 032355 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2860 032356 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 2861 032357 254 00 0 00 032363 JRST ..0136+1 ;YES - DONT DO ERROR HANDLING 2862 ; EXCEPT FOR ERLOOP 2863 2864 032360 200 14 0 13 000001 ..0135: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2865 032361 200 13 0 13 041432 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT 2866 032362 ..0136: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL 2867 032362 036 14 0 00 041441 2868 032363 035 00 0 00 032344 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2869 ^ 2870 ^ 2871 TFLAG ([0],F3)^ 2872 2873 032364 200 13 0 00 032351 MOVE SCR1,FLAGL ;GET FLAGS 2874 032365 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2875 032366 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2876 032367 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2877 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2878 2879 032370 036 13 0 00 041470 2880 032371 035 00 0 00 032344 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2881 ^ 2882 ^ 2883 ; ************************************************ 2884 2885 2886 ; ************************************************ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-15 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0088 2887 2888 032372 LOC=. ;ERROR RETURN ADDRESS 2889 033157 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2890 032372 200 15 0 00 041473 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2891 032373 120 01 0 00 033157 DMOVE AC1,CNUM ;INIT AUGEND 2892 032374 255 17 0 00 032375 JFCL 17,.+1 ;CLEAR PC FLAGS 2893 032375 114 01 0 00 033161 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2894 PCSAVE^ 2895 032376 264 00 0 00 032377 JSR .+1 ;STORE PC 2896 032377 FLAGL=. ;LOCATION OF PC 2897 032377 000000 000000 0 ;PC 2898 ^ 2899 CHECKA (LOC,F3,1,1)^ 2900 2901 032400 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2902 032401 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 2903 032402 254 00 0 00 032406 JRST ..0137 ;NO - GO TO ERROR HANDLING 2904 032403 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2905 032404 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 2906 032405 254 00 0 00 032411 JRST ..0140+1 ;YES - DONT DO ERROR HANDLING 2907 ; EXCEPT FOR ERLOOP 2908 2909 032406 200 14 0 13 000001 ..0137: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2910 032407 200 13 0 13 041432 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT 2911 032410 ..0140: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL 2912 032410 036 14 0 00 041441 2913 032411 035 00 0 00 032372 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2914 ^ 2915 ^ 2916 TFLAG ([0],F3)^ 2917 2918 032412 200 13 0 00 032377 MOVE SCR1,FLAGL ;GET FLAGS 2919 032413 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2920 032414 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2921 032415 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2922 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2923 2924 032416 036 13 0 00 041474 2925 032417 035 00 0 00 032372 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2926 ^ 2927 ^ 2928 ; ************************************************ 2929 2930 2931 ; ************************************************ 2932 2933 032420 LOC=. ;ERROR RETURN ADDRESS 2934 033163 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2935 032420 200 15 0 00 041477 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2936 032421 120 01 0 00 033163 DMOVE AC1,CNUM ;INIT AUGEND 2937 032422 255 17 0 00 032423 JFCL 17,.+1 ;CLEAR PC FLAGS 2938 032423 114 01 0 00 033165 DADD AC1,CNUM+2 ;ADD N + P = 1,1 2939 PCSAVE^ 2940 032424 264 00 0 00 032425 JSR .+1 ;STORE PC 2941 032425 FLAGL=. ;LOCATION OF PC DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-16 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0089 2942 032425 000000 000000 0 ;PC 2943 ^ 2944 CHECKA (LOC,F3,1,1)^ 2945 2946 032426 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 2947 032427 312 01 0 00 041127 CAME AC1,[1] ;IS LEFT HALF OF RESULT CORRECT? 2948 032430 254 00 0 00 032434 JRST ..0141 ;NO - GO TO ERROR HANDLING 2949 032431 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 2950 032432 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 2951 032433 254 00 0 00 032437 JRST ..0142+1 ;YES - DONT DO ERROR HANDLING 2952 ; EXCEPT FOR ERLOOP 2953 2954 032434 200 14 0 13 000001 ..0141: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 2955 032435 200 13 0 13 041432 MOVE SCR1,[EXP 1,1](SCR1) ;GET CORRECT RESULT 2956 032436 ..0142: ERROR (LOC,14,SCR1,SCR2,,TEST F3 - RESULT IS INCORRECT,APRINT)^SALL 2957 032436 036 14 0 00 041441 2958 032437 035 00 0 00 032420 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2959 ^ 2960 ^ 2961 TFLAG ([0],F3)^ 2962 2963 032440 200 13 0 00 032425 MOVE SCR1,FLAGL ;GET FLAGS 2964 032441 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 2965 032442 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 2966 032443 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 2967 ERROR (LOC,13,SCR2,FLAGL,,TEST F3 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 2968 2969 032444 036 13 0 00 041500 2970 032445 035 00 0 00 032420 ERLOOP LOC ;IF ERROR, LOOP TO LOC 2971 ^ 2972 ^ 2973 ; ************************************************ 2974 2975 ; ********************************************************************** 2976 ; ---------- DADD - TEST F-4: N + P = -1,-1 ---------- 2977 ; ********************************************************************** 2978 2979 033163 CNUM=ACONF4-4 2980 2981 REPEAT 6,< 2982 ; ************************************************ 2983 2984 LOC=. ;ERROR RETURN ADDRESS 2985 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 2986 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 2987 DMOVE AC1,CNUM ;INIT AUGEND 2988 JFCL 17,.+1 ;CLEAR PC FLAGS 2989 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 2990 PCSAVE 2991 CHECKA (LOC,F4,-1,-1) 2992 TFLAG ([0],F4) 2993 ; ************************************************ 2994 > 2995 2996 ; ************************************************ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-17 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0090 2997 2998 032446 LOC=. ;ERROR RETURN ADDRESS 2999 033167 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3000 032446 200 15 0 00 041503 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3001 032447 120 01 0 00 033167 DMOVE AC1,CNUM ;INIT AUGEND 3002 032450 255 17 0 00 032451 JFCL 17,.+1 ;CLEAR PC FLAGS 3003 032451 114 01 0 00 033171 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 3004 PCSAVE^ 3005 032452 264 00 0 00 032453 JSR .+1 ;STORE PC 3006 032453 FLAGL=. ;LOCATION OF PC 3007 032453 000000 000000 0 ;PC 3008 ^ 3009 CHECKA (LOC,F4,-1,-1)^ 3010 3011 032454 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3012 032455 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 3013 032456 254 00 0 00 032462 JRST ..0143 ;NO - GO TO ERROR HANDLING 3014 032457 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3015 032460 316 02 0 00 041166 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT? 3016 032461 254 00 0 00 032465 JRST ..0144+1 ;YES - DONT DO ERROR HANDLING 3017 ; EXCEPT FOR ERLOOP 3018 3019 032462 200 14 0 13 000001 ..0143: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3020 032463 200 13 0 13 041341 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT 3021 032464 ..0144: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL 3022 032464 036 14 0 00 041511 3023 032465 035 00 0 00 032446 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3024 ^ 3025 ^ 3026 TFLAG ([0],F4)^ 3027 3028 032466 200 13 0 00 032453 MOVE SCR1,FLAGL ;GET FLAGS 3029 032467 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 3030 032470 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3031 032471 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3032 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3033 3034 032472 036 13 0 00 041524 3035 032473 035 00 0 00 032446 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3036 ^ 3037 ^ 3038 ; ************************************************ 3039 3040 3041 ; ************************************************ 3042 3043 032474 LOC=. ;ERROR RETURN ADDRESS 3044 033173 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3045 032474 200 15 0 00 041527 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3046 032475 120 01 0 00 033173 DMOVE AC1,CNUM ;INIT AUGEND 3047 032476 255 17 0 00 032477 JFCL 17,.+1 ;CLEAR PC FLAGS 3048 032477 114 01 0 00 033175 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 3049 PCSAVE^ 3050 032500 264 00 0 00 032501 JSR .+1 ;STORE PC 3051 032501 FLAGL=. ;LOCATION OF PC DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-18 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0091 3052 032501 000000 000000 0 ;PC 3053 ^ 3054 CHECKA (LOC,F4,-1,-1)^ 3055 3056 032502 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3057 032503 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 3058 032504 254 00 0 00 032510 JRST ..0145 ;NO - GO TO ERROR HANDLING 3059 032505 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3060 032506 316 02 0 00 041166 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT? 3061 032507 254 00 0 00 032513 JRST ..0146+1 ;YES - DONT DO ERROR HANDLING 3062 ; EXCEPT FOR ERLOOP 3063 3064 032510 200 14 0 13 000001 ..0145: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3065 032511 200 13 0 13 041341 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT 3066 032512 ..0146: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL 3067 032512 036 14 0 00 041511 3068 032513 035 00 0 00 032474 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3069 ^ 3070 ^ 3071 TFLAG ([0],F4)^ 3072 3073 032514 200 13 0 00 032501 MOVE SCR1,FLAGL ;GET FLAGS 3074 032515 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 3075 032516 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3076 032517 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3077 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3078 3079 032520 036 13 0 00 041530 3080 032521 035 00 0 00 032474 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3081 ^ 3082 ^ 3083 ; ************************************************ 3084 3085 3086 ; ************************************************ 3087 3088 032522 LOC=. ;ERROR RETURN ADDRESS 3089 033177 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3090 032522 200 15 0 00 041533 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3091 032523 120 01 0 00 033177 DMOVE AC1,CNUM ;INIT AUGEND 3092 032524 255 17 0 00 032525 JFCL 17,.+1 ;CLEAR PC FLAGS 3093 032525 114 01 0 00 033201 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 3094 PCSAVE^ 3095 032526 264 00 0 00 032527 JSR .+1 ;STORE PC 3096 032527 FLAGL=. ;LOCATION OF PC 3097 032527 000000 000000 0 ;PC 3098 ^ 3099 CHECKA (LOC,F4,-1,-1)^ 3100 3101 032530 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3102 032531 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 3103 032532 254 00 0 00 032536 JRST ..0147 ;NO - GO TO ERROR HANDLING 3104 032533 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3105 032534 316 02 0 00 041166 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT? 3106 032535 254 00 0 00 032541 JRST ..0150+1 ;YES - DONT DO ERROR HANDLING DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-19 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0092 3107 ; EXCEPT FOR ERLOOP 3108 3109 032536 200 14 0 13 000001 ..0147: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3110 032537 200 13 0 13 041341 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT 3111 032540 ..0150: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL 3112 032540 036 14 0 00 041511 3113 032541 035 00 0 00 032522 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3114 ^ 3115 ^ 3116 TFLAG ([0],F4)^ 3117 3118 032542 200 13 0 00 032527 MOVE SCR1,FLAGL ;GET FLAGS 3119 032543 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 3120 032544 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3121 032545 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3122 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3123 3124 032546 036 13 0 00 041534 3125 032547 035 00 0 00 032522 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3126 ^ 3127 ^ 3128 ; ************************************************ 3129 3130 3131 ; ************************************************ 3132 3133 032550 LOC=. ;ERROR RETURN ADDRESS 3134 033203 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3135 032550 200 15 0 00 041537 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3136 032551 120 01 0 00 033203 DMOVE AC1,CNUM ;INIT AUGEND 3137 032552 255 17 0 00 032553 JFCL 17,.+1 ;CLEAR PC FLAGS 3138 032553 114 01 0 00 033205 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 3139 PCSAVE^ 3140 032554 264 00 0 00 032555 JSR .+1 ;STORE PC 3141 032555 FLAGL=. ;LOCATION OF PC 3142 032555 000000 000000 0 ;PC 3143 ^ 3144 CHECKA (LOC,F4,-1,-1)^ 3145 3146 032556 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3147 032557 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 3148 032560 254 00 0 00 032564 JRST ..0151 ;NO - GO TO ERROR HANDLING 3149 032561 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3150 032562 316 02 0 00 041166 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT? 3151 032563 254 00 0 00 032567 JRST ..0152+1 ;YES - DONT DO ERROR HANDLING 3152 ; EXCEPT FOR ERLOOP 3153 3154 032564 200 14 0 13 000001 ..0151: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3155 032565 200 13 0 13 041341 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT 3156 032566 ..0152: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL 3157 032566 036 14 0 00 041511 3158 032567 035 00 0 00 032550 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3159 ^ 3160 ^ 3161 TFLAG ([0],F4)^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-20 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0093 3162 3163 032570 200 13 0 00 032555 MOVE SCR1,FLAGL ;GET FLAGS 3164 032571 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 3165 032572 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3166 032573 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3167 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3168 3169 032574 036 13 0 00 041540 3170 032575 035 00 0 00 032550 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3171 ^ 3172 ^ 3173 ; ************************************************ 3174 3175 3176 ; ************************************************ 3177 3178 032576 LOC=. ;ERROR RETURN ADDRESS 3179 033207 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3180 032576 200 15 0 00 041543 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3181 032577 120 01 0 00 033207 DMOVE AC1,CNUM ;INIT AUGEND 3182 032600 255 17 0 00 032601 JFCL 17,.+1 ;CLEAR PC FLAGS 3183 032601 114 01 0 00 033211 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 3184 PCSAVE^ 3185 032602 264 00 0 00 032603 JSR .+1 ;STORE PC 3186 032603 FLAGL=. ;LOCATION OF PC 3187 032603 000000 000000 0 ;PC 3188 ^ 3189 CHECKA (LOC,F4,-1,-1)^ 3190 3191 032604 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3192 032605 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 3193 032606 254 00 0 00 032612 JRST ..0153 ;NO - GO TO ERROR HANDLING 3194 032607 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3195 032610 316 02 0 00 041166 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT? 3196 032611 254 00 0 00 032615 JRST ..0154+1 ;YES - DONT DO ERROR HANDLING 3197 ; EXCEPT FOR ERLOOP 3198 3199 032612 200 14 0 13 000001 ..0153: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3200 032613 200 13 0 13 041341 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT 3201 032614 ..0154: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL 3202 032614 036 14 0 00 041511 3203 032615 035 00 0 00 032576 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3204 ^ 3205 ^ 3206 TFLAG ([0],F4)^ 3207 3208 032616 200 13 0 00 032603 MOVE SCR1,FLAGL ;GET FLAGS 3209 032617 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 3210 032620 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3211 032621 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3212 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3213 3214 032622 036 13 0 00 041544 3215 032623 035 00 0 00 032576 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3216 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-21 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0094 3217 ^ 3218 ; ************************************************ 3219 3220 3221 ; ************************************************ 3222 3223 032624 LOC=. ;ERROR RETURN ADDRESS 3224 033213 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3225 032624 200 15 0 00 041547 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3226 032625 120 01 0 00 033213 DMOVE AC1,CNUM ;INIT AUGEND 3227 032626 255 17 0 00 032627 JFCL 17,.+1 ;CLEAR PC FLAGS 3228 032627 114 01 0 00 033215 DADD AC1,CNUM+2 ;ADD N + P = -1,-1 3229 PCSAVE^ 3230 032630 264 00 0 00 032631 JSR .+1 ;STORE PC 3231 032631 FLAGL=. ;LOCATION OF PC 3232 032631 000000 000000 0 ;PC 3233 ^ 3234 CHECKA (LOC,F4,-1,-1)^ 3235 3236 032632 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3237 032633 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 3238 032634 254 00 0 00 032640 JRST ..0155 ;NO - GO TO ERROR HANDLING 3239 032635 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3240 032636 316 02 0 00 041166 CAMN AC1+1,[-1] ;IS RIGHT HALF CORRECT? 3241 032637 254 00 0 00 032643 JRST ..0156+1 ;YES - DONT DO ERROR HANDLING 3242 ; EXCEPT FOR ERLOOP 3243 3244 032640 200 14 0 13 000001 ..0155: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3245 032641 200 13 0 13 041341 MOVE SCR1,[EXP -1,-1](SCR1) ;GET CORRECT RESULT 3246 032642 ..0156: ERROR (LOC,14,SCR1,SCR2,,TEST F4 - RESULT IS INCORRECT,APRINT)^SALL 3247 032642 036 14 0 00 041511 3248 032643 035 00 0 00 032624 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3249 ^ 3250 ^ 3251 TFLAG ([0],F4)^ 3252 3253 032644 200 13 0 00 032631 MOVE SCR1,FLAGL ;GET FLAGS 3254 032645 200 14 0 00 041020 MOVE SCR2,[0] ;SCR2 - CORRECT FLAGS 3255 032646 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3256 032647 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3257 ERROR (LOC,13,SCR2,FLAGL,,TEST F4 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3258 3259 032650 036 13 0 00 041550 3260 032651 035 00 0 00 032624 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3261 ^ 3262 ^ 3263 ; ************************************************ 3264 3265 ; ********************************************************************** 3266 ; ---------- DADD - TEST F-5: N + P = 0,1 ---------- 3267 ; ********************************************************************** 3268 3269 033213 CNUM=ACONF5-4 3270 3271 REPEAT 6,< DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-22 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0095 3272 ; ************************************************ 3273 3274 LOC=. ;ERROR RETURN ADDRESS 3275 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3276 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3277 DMOVE AC1,CNUM ;INIT AUGEND 3278 JFCL 17,.+1 ;CLEAR PC FLAGS 3279 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3280 PCSAVE 3281 CHECKA (LOC,F5,0,1) 3282 TFLAG ([^B0110B3],F5) 3283 ; ************************************************ 3284 > 3285 3286 ; ************************************************ 3287 3288 032652 LOC=. ;ERROR RETURN ADDRESS 3289 033217 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3290 032652 200 15 0 00 041553 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3291 032653 120 01 0 00 033217 DMOVE AC1,CNUM ;INIT AUGEND 3292 032654 255 17 0 00 032655 JFCL 17,.+1 ;CLEAR PC FLAGS 3293 032655 114 01 0 00 033221 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3294 PCSAVE^ 3295 032656 264 00 0 00 032657 JSR .+1 ;STORE PC 3296 032657 FLAGL=. ;LOCATION OF PC 3297 032657 000000 000000 0 ;PC 3298 ^ 3299 CHECKA (LOC,F5,0,1)^ 3300 3301 032660 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3302 032661 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 3303 032662 254 00 0 00 032666 JRST ..0157 ;NO - GO TO ERROR HANDLING 3304 032663 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3305 032664 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 3306 032665 254 00 0 00 032671 JRST ..0160+1 ;YES - DONT DO ERROR HANDLING 3307 ; EXCEPT FOR ERLOOP 3308 3309 032666 200 14 0 13 000001 ..0157: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3310 032667 200 13 0 13 041126 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT 3311 032670 ..0160: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL 3312 032670 036 14 0 00 041561 3313 032671 035 00 0 00 032652 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3314 ^ 3315 ^ 3316 TFLAG ([^B0110B3],F5)^ 3317 3318 032672 200 13 0 00 032657 MOVE SCR1,FLAGL ;GET FLAGS 3319 032673 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 3320 032674 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3321 032675 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3322 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3323 3324 032676 036 13 0 00 041574 3325 032677 035 00 0 00 032652 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3326 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-23 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0096 3327 ^ 3328 ; ************************************************ 3329 3330 3331 ; ************************************************ 3332 3333 032700 LOC=. ;ERROR RETURN ADDRESS 3334 033223 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3335 032700 200 15 0 00 041577 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3336 032701 120 01 0 00 033223 DMOVE AC1,CNUM ;INIT AUGEND 3337 032702 255 17 0 00 032703 JFCL 17,.+1 ;CLEAR PC FLAGS 3338 032703 114 01 0 00 033225 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3339 PCSAVE^ 3340 032704 264 00 0 00 032705 JSR .+1 ;STORE PC 3341 032705 FLAGL=. ;LOCATION OF PC 3342 032705 000000 000000 0 ;PC 3343 ^ 3344 CHECKA (LOC,F5,0,1)^ 3345 3346 032706 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3347 032707 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 3348 032710 254 00 0 00 032714 JRST ..0161 ;NO - GO TO ERROR HANDLING 3349 032711 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3350 032712 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 3351 032713 254 00 0 00 032717 JRST ..0162+1 ;YES - DONT DO ERROR HANDLING 3352 ; EXCEPT FOR ERLOOP 3353 3354 032714 200 14 0 13 000001 ..0161: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3355 032715 200 13 0 13 041126 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT 3356 032716 ..0162: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL 3357 032716 036 14 0 00 041561 3358 032717 035 00 0 00 032700 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3359 ^ 3360 ^ 3361 TFLAG ([^B0110B3],F5)^ 3362 3363 032720 200 13 0 00 032705 MOVE SCR1,FLAGL ;GET FLAGS 3364 032721 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 3365 032722 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3366 032723 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3367 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3368 3369 032724 036 13 0 00 041600 3370 032725 035 00 0 00 032700 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3371 ^ 3372 ^ 3373 ; ************************************************ 3374 3375 3376 ; ************************************************ 3377 3378 032726 LOC=. ;ERROR RETURN ADDRESS 3379 033227 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3380 032726 200 15 0 00 041603 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3381 032727 120 01 0 00 033227 DMOVE AC1,CNUM ;INIT AUGEND DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-24 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0097 3382 032730 255 17 0 00 032731 JFCL 17,.+1 ;CLEAR PC FLAGS 3383 032731 114 01 0 00 033231 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3384 PCSAVE^ 3385 032732 264 00 0 00 032733 JSR .+1 ;STORE PC 3386 032733 FLAGL=. ;LOCATION OF PC 3387 032733 000000 000000 0 ;PC 3388 ^ 3389 CHECKA (LOC,F5,0,1)^ 3390 3391 032734 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3392 032735 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 3393 032736 254 00 0 00 032742 JRST ..0163 ;NO - GO TO ERROR HANDLING 3394 032737 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3395 032740 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 3396 032741 254 00 0 00 032745 JRST ..0164+1 ;YES - DONT DO ERROR HANDLING 3397 ; EXCEPT FOR ERLOOP 3398 3399 032742 200 14 0 13 000001 ..0163: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3400 032743 200 13 0 13 041126 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT 3401 032744 ..0164: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL 3402 032744 036 14 0 00 041561 3403 032745 035 00 0 00 032726 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3404 ^ 3405 ^ 3406 TFLAG ([^B0110B3],F5)^ 3407 3408 032746 200 13 0 00 032733 MOVE SCR1,FLAGL ;GET FLAGS 3409 032747 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 3410 032750 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3411 032751 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3412 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3413 3414 032752 036 13 0 00 041604 3415 032753 035 00 0 00 032726 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3416 ^ 3417 ^ 3418 ; ************************************************ 3419 3420 3421 ; ************************************************ 3422 3423 032754 LOC=. ;ERROR RETURN ADDRESS 3424 033233 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3425 032754 200 15 0 00 041607 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3426 032755 120 01 0 00 033233 DMOVE AC1,CNUM ;INIT AUGEND 3427 032756 255 17 0 00 032757 JFCL 17,.+1 ;CLEAR PC FLAGS 3428 032757 114 01 0 00 033235 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3429 PCSAVE^ 3430 032760 264 00 0 00 032761 JSR .+1 ;STORE PC 3431 032761 FLAGL=. ;LOCATION OF PC 3432 032761 000000 000000 0 ;PC 3433 ^ 3434 CHECKA (LOC,F5,0,1)^ 3435 3436 032762 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-25 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0098 3437 032763 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 3438 032764 254 00 0 00 032770 JRST ..0165 ;NO - GO TO ERROR HANDLING 3439 032765 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3440 032766 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 3441 032767 254 00 0 00 032773 JRST ..0166+1 ;YES - DONT DO ERROR HANDLING 3442 ; EXCEPT FOR ERLOOP 3443 3444 032770 200 14 0 13 000001 ..0165: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3445 032771 200 13 0 13 041126 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT 3446 032772 ..0166: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL 3447 032772 036 14 0 00 041561 3448 032773 035 00 0 00 032754 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3449 ^ 3450 ^ 3451 TFLAG ([^B0110B3],F5)^ 3452 3453 032774 200 13 0 00 032761 MOVE SCR1,FLAGL ;GET FLAGS 3454 032775 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 3455 032776 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3456 032777 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3457 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3458 3459 033000 036 13 0 00 041610 3460 033001 035 00 0 00 032754 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3461 ^ 3462 ^ 3463 ; ************************************************ 3464 3465 3466 ; ************************************************ 3467 3468 033002 LOC=. ;ERROR RETURN ADDRESS 3469 033237 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3470 033002 200 15 0 00 041613 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3471 033003 120 01 0 00 033237 DMOVE AC1,CNUM ;INIT AUGEND 3472 033004 255 17 0 00 033005 JFCL 17,.+1 ;CLEAR PC FLAGS 3473 033005 114 01 0 00 033241 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3474 PCSAVE^ 3475 033006 264 00 0 00 033007 JSR .+1 ;STORE PC 3476 033007 FLAGL=. ;LOCATION OF PC 3477 033007 000000 000000 0 ;PC 3478 ^ 3479 CHECKA (LOC,F5,0,1)^ 3480 3481 033010 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3482 033011 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 3483 033012 254 00 0 00 033016 JRST ..0167 ;NO - GO TO ERROR HANDLING 3484 033013 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3485 033014 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 3486 033015 254 00 0 00 033021 JRST ..0170+1 ;YES - DONT DO ERROR HANDLING 3487 ; EXCEPT FOR ERLOOP 3488 3489 033016 200 14 0 13 000001 ..0167: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3490 033017 200 13 0 13 041126 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT 3491 033020 ..0170: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-26 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0099 3492 033020 036 14 0 00 041561 3493 033021 035 00 0 00 033002 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3494 ^ 3495 ^ 3496 TFLAG ([^B0110B3],F5)^ 3497 3498 033022 200 13 0 00 033007 MOVE SCR1,FLAGL ;GET FLAGS 3499 033023 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 3500 033024 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3501 033025 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3502 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3503 3504 033026 036 13 0 00 041614 3505 033027 035 00 0 00 033002 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3506 ^ 3507 ^ 3508 ; ************************************************ 3509 3510 3511 ; ************************************************ 3512 3513 033030 LOC=. ;ERROR RETURN ADDRESS 3514 033243 CNUM=CNUM+4 ;ADDRESS OF TEST DATA 3515 033030 200 15 0 00 041617 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3516 033031 120 01 0 00 033243 DMOVE AC1,CNUM ;INIT AUGEND 3517 033032 255 17 0 00 033033 JFCL 17,.+1 ;CLEAR PC FLAGS 3518 033033 114 01 0 00 033245 DADD AC1,CNUM+2 ;ADD N + P = 0,1 3519 PCSAVE^ 3520 033034 264 00 0 00 033035 JSR .+1 ;STORE PC 3521 033035 FLAGL=. ;LOCATION OF PC 3522 033035 000000 000000 0 ;PC 3523 ^ 3524 CHECKA (LOC,F5,0,1)^ 3525 3526 033036 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3527 033037 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 3528 033040 254 00 0 00 033044 JRST ..0171 ;NO - GO TO ERROR HANDLING 3529 033041 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3530 033042 316 02 0 00 041127 CAMN AC1+1,[1] ;IS RIGHT HALF CORRECT? 3531 033043 254 00 0 00 033047 JRST ..0172+1 ;YES - DONT DO ERROR HANDLING 3532 ; EXCEPT FOR ERLOOP 3533 3534 033044 200 14 0 13 000001 ..0171: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3535 033045 200 13 0 13 041126 MOVE SCR1,[EXP 0,1](SCR1) ;GET CORRECT RESULT 3536 033046 ..0172: ERROR (LOC,14,SCR1,SCR2,,TEST F5 - RESULT IS INCORRECT,APRINT)^SALL 3537 033046 036 14 0 00 041561 3538 033047 035 00 0 00 033030 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3539 ^ 3540 ^ 3541 TFLAG ([^B0110B3],F5)^ 3542 3543 033050 200 13 0 00 033035 MOVE SCR1,FLAGL ;GET FLAGS 3544 033051 200 14 0 00 041371 MOVE SCR2,[^B0110B3] ;SCR2 - CORRECT FLAGS 3545 033052 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3546 033053 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 8-27 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0100 3547 ERROR (LOC,13,SCR2,FLAGL,,TEST F5 - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3548 3549 033054 036 13 0 00 041620 3550 033055 035 00 0 00 033030 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3551 ^ 3552 ^ 3553 ; ************************************************ 3554 3555 033056 254 00 0 00 033247 JRST AENDF ;SKIP OVER DATA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 9 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0101 3556 3557 033057 000000 000000 ACONF1: EXP 0,0,0,1B0+1 3558 033060 000000 000000 3559 033061 000000 000000 3560 033062 400000 000001 3561 033063 000000 000000 EXP 0,1B0,0,1 3562 033064 400000 000000 3563 033065 000000 000000 3564 033066 000000 000001 3565 033067 000000 000000 EXP 0,1B0,0,1B0+1 3566 033070 400000 000000 3567 033071 000000 000000 3568 033072 400000 000001 3569 033073 000000 000000 EXP 0,0,-1,377777777777 3570 033074 000000 000000 3571 033075 777777 777777 3572 033076 377777 777777 3573 033077 000000 000000 EXP 0,1B0,-1,377777777777 3574 033100 400000 000000 3575 033101 777777 777777 3576 033102 377777 777777 3577 033103 000000 000000 EXP 0,1B0,-1,-1 3578 033104 400000 000000 3579 033105 777777 777777 3580 033106 777777 777777 3581 033107 777777 777777 ACONF2: EXP -1,377777777777,-2,-1 3582 033110 377777 777777 3583 033111 777777 777776 3584 033112 777777 777777 3585 033113 777777 777777 EXP -1,377777777777,-2,377777777777 3586 033114 377777 777777 3587 033115 777777 777776 3588 033116 377777 777777 3589 033117 777777 777777 EXP -1,-1,-2,377777777777 3590 033120 777777 777777 3591 033121 777777 777776 3592 033122 377777 777777 3593 033123 777777 777776 EXP -2,-1,-1,377777777777 3594 033124 777777 777777 3595 033125 777777 777777 3596 033126 377777 777777 3597 033127 777777 777776 EXP -2,377777777777,-1,377777777777 3598 033130 377777 777777 3599 033131 777777 777777 3600 033132 377777 777777 3601 033133 777777 777776 EXP -2,377777777777,-1,-1 3602 033134 377777 777777 3603 033135 777777 777777 3604 033136 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 10 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0102 3605 3606 033137 000000 000000 ACONF3: EXP 0,1B0+1,1,0 3607 033140 400000 000001 3608 033141 000000 000001 3609 033142 000000 000000 3610 033143 000000 000000 EXP 0,1B0+1,1,1B0 3611 033144 400000 000001 3612 033145 000000 000001 3613 033146 400000 000000 3614 033147 000000 000000 EXP 0,1,1,1B0 3615 033150 000000 000001 3616 033151 000000 000001 3617 033152 400000 000000 3618 033153 000000 000001 EXP 1,0,0,1B0+1 3619 033154 000000 000000 3620 033155 000000 000000 3621 033156 400000 000001 3622 033157 000000 000001 EXP 1,1B0,0,1B0+1 3623 033160 400000 000000 3624 033161 000000 000000 3625 033162 400000 000001 3626 033163 000000 000001 EXP 1,1B0,0,1 3627 033164 400000 000000 3628 033165 000000 000000 3629 033166 000000 000001 3630 033167 777777 777777 ACONF4: EXP -1,377777777776,0,1 3631 033170 377777 777776 3632 033171 000000 000000 3633 033172 000000 000001 3634 033173 777777 777777 EXP -1,377777777776,0,1B0+1 3635 033174 377777 777776 3636 033175 000000 000000 3637 033176 400000 000001 3638 033177 777777 777777 EXP -1,-2,0,1B0+1 3639 033200 777777 777776 3640 033201 000000 000000 3641 033202 400000 000001 3642 033203 000000 000000 EXP 0,1,-1,377777777776 3643 033204 000000 000001 3644 033205 777777 777777 3645 033206 377777 777776 3646 033207 000000 000000 EXP 0,1B0+1,-1,377777777776 3647 033210 400000 000001 3648 033211 777777 777777 3649 033212 377777 777776 3650 033213 000000 000000 EXP 0,1B0+1,-1,-2 3651 033214 400000 000001 3652 033215 777777 777777 3653 033216 777777 777776 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 11 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST F SEQ 0103 3654 3655 033217 777777 777777 ACONF5: EXP -1,377777777777,0,2 3656 033220 377777 777777 3657 033221 000000 000000 3658 033222 000000 000002 3659 033223 777777 777777 EXP -1,377777777777,0,1B0+2 3660 033224 377777 777777 3661 033225 000000 000000 3662 033226 400000 000002 3663 033227 777777 777777 EXP -1,-1,0,1B0+2 3664 033230 777777 777777 3665 033231 000000 000000 3666 033232 400000 000002 3667 033233 000000 000000 EXP 0,2,-1,377777777777 3668 033234 000000 000002 3669 033235 777777 777777 3670 033236 377777 777777 3671 033237 000000 000000 EXP 0,1B0+2,-1,377777777777 3672 033240 400000 000002 3673 033241 777777 777777 3674 033242 377777 777777 3675 033243 000000 000000 EXP 0,1B0+2,-1,-1 3676 033244 400000 000002 3677 033245 777777 777777 3678 033246 777777 777777 3679 033247 AENDF: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0104 3680 SUBTTL DADD - TEST G 3681 3682 ; ********************************************************************** 3683 ;*DADD - TEST G 3684 ;* 3685 ;* 2**N + (2**70 - 2**N) = 1000... (AROV & CARRY 1 SET) 3686 ;* (2**70 - 2**N) + 2**N = 1000... (AROV & CARRY 1 SET) 3687 ;* -2**N + (-2**70 + 2**N - 1) = 0111... (AROV & CARRY 0 SET) 3688 ;* (-2**70 + 2**N - 1) + -2**N = 0111... (AROV & CARRY 0 SET) 3689 ;* 3690 ;* THEST TESTS CHECK THE SETTING OF AROV & CARRY 1 AND AROV & 3691 ;* CARRY 0 FLAGS. CHECKED FOR BITS 0,34,36,70. 3692 ; ********************************************************************** 3693 3694 ; ********************************************************************** 3695 ;* THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST 3696 ;* 4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 0,35,36,71. 3697 ;* THIS NUMBER IS THEN ADDED TO THE SMALLEST POSITIVE INTEGER 3698 ;* WHICH WILL PRODUCE AN OVERFLOW - THE RESULT IS A DOUBLEWORD 3699 ;* OF 0S WITH 1 IN THE SIGN BIT - WITH OVERFLOW & CARRY 1 SET. 3700 ;* THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLEWORD IN BITS 1, 3701 ;* 35,36,71 (A NEGATIVE NUMBER). THIS NUMBER IS ADDED TO THE 3702 ;* SMALLEST NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - 3703 ;* THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN THE SIGN BIT - 3704 ;* WITH OVERFLOW AND CARRY 0 SET. 3705 ;* THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST 3706 ;* 'CONST2'. 3707 ; ********************************************************************** 3708 3709 033522 CNUM=ACONG-6 ;POINTER TO THE DOUBLEWORDS IN 3710 ; THE RESULT 3711 500000 000000 FLAGS=^B1010B3 ;AROV,CRY0,CRY1,FOV 3712 3713 REPEAT ^D8,< 3714 ; ************************************************ 3715 3716 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3717 LOC=. ;ERROR LOOP RETURN ADDRESS 3718 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3719 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3720 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3721 JFCL 17,.+1 ;CLEAR PC FLAGS 3722 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3723 PCSAVE 3724 CHECKB (LOC,G,CNUM+4) 3725 TFLAG ([FLAGS],G) 3726 ; ************************************************ 3727 > 3728 3729 ; ************************************************ 3730 3731 033530 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3732 033247 LOC=. ;ERROR LOOP RETURN ADDRESS 3733 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3734 033247 200 15 0 00 041623 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-1 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0105 3735 033250 120 01 0 00 033530 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3736 033251 255 17 0 00 033252 JFCL 17,.+1 ;CLEAR PC FLAGS 3737 033252 114 01 0 00 033532 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3738 PCSAVE^ 3739 033253 264 00 0 00 033254 JSR .+1 ;STORE PC 3740 033254 FLAGL=. ;LOCATION OF PC 3741 033254 000000 000000 0 ;PC 3742 ^ 3743 CHECKB (LOC,G,CNUM+4)^ 3744 3745 033255 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3746 033256 312 01 0 00 033534 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 3747 033257 254 00 0 00 033263 JRST ..0173 ;NO - GO TO ERROR HANDLING 3748 033260 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3749 033261 316 02 0 00 033535 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 3750 033262 254 00 0 00 033266 JRST ..0174+1 ;YES - DONT DO ERROR HANDLING 3751 ; EXCEPT FOR ERLOOP 3752 3753 033263 200 14 0 13 000001 ..0173: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3754 033264 200 13 0 13 033534 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 3755 033265 ..0174: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 3756 033265 036 14 0 00 041631 3757 033266 035 00 0 00 033247 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3758 ^ 3759 ^ 3760 TFLAG ([FLAGS],G)^ 3761 3762 033267 200 13 0 00 033254 MOVE SCR1,FLAGL ;GET FLAGS 3763 033270 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 3764 033271 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3765 033272 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3766 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3767 033273 036 13 0 00 041644 3768 033274 035 00 0 00 033247 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3769 ^ 3770 ^ 3771 ; ************************************************ 3772 3773 3774 ; ************************************************ 3775 3776 033536 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3777 033275 LOC=. ;ERROR LOOP RETURN ADDRESS 3778 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3779 033275 200 15 0 00 041647 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3780 033276 120 01 0 00 033536 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3781 033277 255 17 0 00 033300 JFCL 17,.+1 ;CLEAR PC FLAGS 3782 033300 114 01 0 00 033540 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3783 PCSAVE^ 3784 033301 264 00 0 00 033302 JSR .+1 ;STORE PC 3785 033302 FLAGL=. ;LOCATION OF PC 3786 033302 000000 000000 0 ;PC 3787 ^ 3788 CHECKB (LOC,G,CNUM+4)^ 3789 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-2 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0106 3790 033303 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3791 033304 312 01 0 00 033542 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 3792 033305 254 00 0 00 033311 JRST ..0175 ;NO - GO TO ERROR HANDLING 3793 033306 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3794 033307 316 02 0 00 033543 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 3795 033310 254 00 0 00 033314 JRST ..0176+1 ;YES - DONT DO ERROR HANDLING 3796 ; EXCEPT FOR ERLOOP 3797 3798 033311 200 14 0 13 000001 ..0175: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3799 033312 200 13 0 13 033542 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 3800 033313 ..0176: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 3801 033313 036 14 0 00 041631 3802 033314 035 00 0 00 033275 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3803 ^ 3804 ^ 3805 TFLAG ([FLAGS],G)^ 3806 3807 033315 200 13 0 00 033302 MOVE SCR1,FLAGL ;GET FLAGS 3808 033316 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 3809 033317 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3810 033320 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3811 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3812 033321 036 13 0 00 041650 3813 033322 035 00 0 00 033275 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3814 ^ 3815 ^ 3816 ; ************************************************ 3817 3818 3819 ; ************************************************ 3820 3821 033544 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3822 033323 LOC=. ;ERROR LOOP RETURN ADDRESS 3823 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3824 033323 200 15 0 00 041653 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3825 033324 120 01 0 00 033544 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3826 033325 255 17 0 00 033326 JFCL 17,.+1 ;CLEAR PC FLAGS 3827 033326 114 01 0 00 033546 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3828 PCSAVE^ 3829 033327 264 00 0 00 033330 JSR .+1 ;STORE PC 3830 033330 FLAGL=. ;LOCATION OF PC 3831 033330 000000 000000 0 ;PC 3832 ^ 3833 CHECKB (LOC,G,CNUM+4)^ 3834 3835 033331 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3836 033332 312 01 0 00 033550 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 3837 033333 254 00 0 00 033337 JRST ..0177 ;NO - GO TO ERROR HANDLING 3838 033334 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3839 033335 316 02 0 00 033551 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 3840 033336 254 00 0 00 033342 JRST ..0200+1 ;YES - DONT DO ERROR HANDLING 3841 ; EXCEPT FOR ERLOOP 3842 3843 033337 200 14 0 13 000001 ..0177: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3844 033340 200 13 0 13 033550 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-3 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0107 3845 033341 ..0200: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 3846 033341 036 14 0 00 041631 3847 033342 035 00 0 00 033323 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3848 ^ 3849 ^ 3850 TFLAG ([FLAGS],G)^ 3851 3852 033343 200 13 0 00 033330 MOVE SCR1,FLAGL ;GET FLAGS 3853 033344 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 3854 033345 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3855 033346 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3856 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3857 033347 036 13 0 00 041654 3858 033350 035 00 0 00 033323 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3859 ^ 3860 ^ 3861 ; ************************************************ 3862 3863 3864 ; ************************************************ 3865 3866 033552 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3867 033351 LOC=. ;ERROR LOOP RETURN ADDRESS 3868 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3869 033351 200 15 0 00 041657 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3870 033352 120 01 0 00 033552 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3871 033353 255 17 0 00 033354 JFCL 17,.+1 ;CLEAR PC FLAGS 3872 033354 114 01 0 00 033554 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3873 PCSAVE^ 3874 033355 264 00 0 00 033356 JSR .+1 ;STORE PC 3875 033356 FLAGL=. ;LOCATION OF PC 3876 033356 000000 000000 0 ;PC 3877 ^ 3878 CHECKB (LOC,G,CNUM+4)^ 3879 3880 033357 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3881 033360 312 01 0 00 033556 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 3882 033361 254 00 0 00 033365 JRST ..0201 ;NO - GO TO ERROR HANDLING 3883 033362 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3884 033363 316 02 0 00 033557 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 3885 033364 254 00 0 00 033370 JRST ..0202+1 ;YES - DONT DO ERROR HANDLING 3886 ; EXCEPT FOR ERLOOP 3887 3888 033365 200 14 0 13 000001 ..0201: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3889 033366 200 13 0 13 033556 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 3890 033367 ..0202: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 3891 033367 036 14 0 00 041631 3892 033370 035 00 0 00 033351 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3893 ^ 3894 ^ 3895 TFLAG ([FLAGS],G)^ 3896 3897 033371 200 13 0 00 033356 MOVE SCR1,FLAGL ;GET FLAGS 3898 033372 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 3899 033373 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-4 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0108 3900 033374 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3901 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3902 033375 036 13 0 00 041660 3903 033376 035 00 0 00 033351 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3904 ^ 3905 ^ 3906 ; ************************************************ 3907 3908 3909 ; ************************************************ 3910 3911 033560 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3912 033377 LOC=. ;ERROR LOOP RETURN ADDRESS 3913 600000 000000 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3914 033377 200 15 0 00 041663 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3915 033400 120 01 0 00 033560 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3916 033401 255 17 0 00 033402 JFCL 17,.+1 ;CLEAR PC FLAGS 3917 033402 114 01 0 00 033562 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3918 PCSAVE^ 3919 033403 264 00 0 00 033404 JSR .+1 ;STORE PC 3920 033404 FLAGL=. ;LOCATION OF PC 3921 033404 000000 000000 0 ;PC 3922 ^ 3923 CHECKB (LOC,G,CNUM+4)^ 3924 3925 033405 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3926 033406 312 01 0 00 033564 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 3927 033407 254 00 0 00 033413 JRST ..0203 ;NO - GO TO ERROR HANDLING 3928 033410 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3929 033411 316 02 0 00 033565 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 3930 033412 254 00 0 00 033416 JRST ..0204+1 ;YES - DONT DO ERROR HANDLING 3931 ; EXCEPT FOR ERLOOP 3932 3933 033413 200 14 0 13 000001 ..0203: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3934 033414 200 13 0 13 033564 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 3935 033415 ..0204: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 3936 033415 036 14 0 00 041631 3937 033416 035 00 0 00 033377 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3938 ^ 3939 ^ 3940 TFLAG ([FLAGS],G)^ 3941 3942 033417 200 13 0 00 033404 MOVE SCR1,FLAGL ;GET FLAGS 3943 033420 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 3944 033421 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3945 033422 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3946 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3947 033423 036 13 0 00 041665 3948 033424 035 00 0 00 033377 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3949 ^ 3950 ^ 3951 ; ************************************************ 3952 3953 3954 ; ************************************************ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-5 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0109 3955 3956 033566 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 3957 033425 LOC=. ;ERROR LOOP RETURN ADDRESS 3958 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 3959 033425 200 15 0 00 041670 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 3960 033426 120 01 0 00 033566 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 3961 033427 255 17 0 00 033430 JFCL 17,.+1 ;CLEAR PC FLAGS 3962 033430 114 01 0 00 033570 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 3963 PCSAVE^ 3964 033431 264 00 0 00 033432 JSR .+1 ;STORE PC 3965 033432 FLAGL=. ;LOCATION OF PC 3966 033432 000000 000000 0 ;PC 3967 ^ 3968 CHECKB (LOC,G,CNUM+4)^ 3969 3970 033433 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 3971 033434 312 01 0 00 033572 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 3972 033435 254 00 0 00 033441 JRST ..0205 ;NO - GO TO ERROR HANDLING 3973 033436 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 3974 033437 316 02 0 00 033573 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 3975 033440 254 00 0 00 033444 JRST ..0206+1 ;YES - DONT DO ERROR HANDLING 3976 ; EXCEPT FOR ERLOOP 3977 3978 033441 200 14 0 13 000001 ..0205: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 3979 033442 200 13 0 13 033572 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 3980 033443 ..0206: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 3981 033443 036 14 0 00 041631 3982 033444 035 00 0 00 033425 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3983 ^ 3984 ^ 3985 TFLAG ([FLAGS],G)^ 3986 3987 033445 200 13 0 00 033432 MOVE SCR1,FLAGL ;GET FLAGS 3988 033446 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 3989 033447 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 3990 033450 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 3991 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 3992 033451 036 13 0 00 041671 3993 033452 035 00 0 00 033425 ERLOOP LOC ;IF ERROR, LOOP TO LOC 3994 ^ 3995 ^ 3996 ; ************************************************ 3997 3998 3999 ; ************************************************ 4000 4001 033574 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 4002 033453 LOC=. ;ERROR LOOP RETURN ADDRESS 4003 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 4004 033453 200 15 0 00 041674 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 4005 033454 120 01 0 00 033574 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 4006 033455 255 17 0 00 033456 JFCL 17,.+1 ;CLEAR PC FLAGS 4007 033456 114 01 0 00 033576 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 4008 PCSAVE^ 4009 033457 264 00 0 00 033460 JSR .+1 ;STORE PC DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-6 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0110 4010 033460 FLAGL=. ;LOCATION OF PC 4011 033460 000000 000000 0 ;PC 4012 ^ 4013 CHECKB (LOC,G,CNUM+4)^ 4014 4015 033461 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4016 033462 312 01 0 00 033600 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4017 033463 254 00 0 00 033467 JRST ..0207 ;NO - GO TO ERROR HANDLING 4018 033464 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4019 033465 316 02 0 00 033601 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4020 033466 254 00 0 00 033472 JRST ..0210+1 ;YES - DONT DO ERROR HANDLING 4021 ; EXCEPT FOR ERLOOP 4022 4023 033467 200 14 0 13 000001 ..0207: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4024 033470 200 13 0 13 033600 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4025 033471 ..0210: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 4026 033471 036 14 0 00 041631 4027 033472 035 00 0 00 033453 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4028 ^ 4029 ^ 4030 TFLAG ([FLAGS],G)^ 4031 4032 033473 200 13 0 00 033460 MOVE SCR1,FLAGL ;GET FLAGS 4033 033474 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 4034 033475 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 4035 033476 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 4036 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 4037 033477 036 13 0 00 041675 4038 033500 035 00 0 00 033453 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4039 ^ 4040 ^ 4041 ; ************************************************ 4042 4043 4044 ; ************************************************ 4045 4046 033602 CNUM=CNUM+6 ;CNUM POINTS TO THE TEST DATA 4047 033501 LOC=. ;ERROR LOOP RETURN ADDRESS 4048 IFE ACONG-CNUM+^D24, ;FLAGS FOR SECOND 4 CASES 4049 033501 200 15 0 00 041700 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 4050 033502 120 01 0 00 033602 DMOVE AC1,CNUM ;INIT AUGEND TO FLOATING 0/1 4051 033503 255 17 0 00 033504 JFCL 17,.+1 ;CLEAR PC FLAGS 4052 033504 114 01 0 00 033604 DADD AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 4053 PCSAVE^ 4054 033505 264 00 0 00 033506 JSR .+1 ;STORE PC 4055 033506 FLAGL=. ;LOCATION OF PC 4056 033506 000000 000000 0 ;PC 4057 ^ 4058 CHECKB (LOC,G,CNUM+4)^ 4059 4060 033507 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4061 033510 312 01 0 00 033606 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4062 033511 254 00 0 00 033515 JRST ..0211 ;NO - GO TO ERROR HANDLING 4063 033512 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4064 033513 316 02 0 00 033607 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 12-7 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0111 4065 033514 254 00 0 00 033520 JRST ..0212+1 ;YES - DONT DO ERROR HANDLING 4066 ; EXCEPT FOR ERLOOP 4067 4068 033515 200 14 0 13 000001 ..0211: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4069 033516 200 13 0 13 033606 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4070 033517 ..0212: ERROR (LOC,14,SCR1,SCR2,,TEST G - RESULT IS INCORRECT,APRINT)^SALL 4071 033517 036 14 0 00 041631 4072 033520 035 00 0 00 033501 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4073 ^ 4074 ^ 4075 TFLAG ([FLAGS],G)^ 4076 4077 033521 200 13 0 00 033506 MOVE SCR1,FLAGL ;GET FLAGS 4078 033522 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 4079 033523 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 4080 033524 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 4081 ERROR (LOC,13,SCR2,FLAGL,,TEST G - PC FLAGS INCORRECT (LEFT 4 BITS),APRINT)^SALL 4082 033525 036 13 0 00 041701 4083 033526 035 00 0 00 033501 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4084 ^ 4085 ^ 4086 ; ************************************************ 4087 4088 033527 254 00 0 00 033610 JRST AENDG ;SKIP OVER DATA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 13 DSKCFM MAC 26-Sep-79 15:49 DADD - TEST G SEQ 0112 4089 4090 ; ********************************************************************** 4091 ; 8 SETS OF 3 DOUBLEWORDS (AUDEND,ADDEND,RESULT) 4092 ; ********************************************************************** 4093 4094 033530 200000 000000 ACONG: EXP 1B1,0,1B1,0,1B0,1B0 4095 033531 000000 000000 4096 033532 200000 000000 4097 033533 000000 000000 4098 033534 400000 000000 4099 033535 400000 000000 4100 033536 000000 000001 EXP 1,0,377777777777,0,1B0,1B0 4101 033537 000000 000000 4102 033540 377777 777777 4103 033541 000000 000000 4104 033542 400000 000000 4105 033543 400000 000000 4106 033544 000000 000000 EXP 0,1B1,377777777777,1B1,1B0,1B0 4107 033545 200000 000000 4108 033546 377777 777777 4109 033547 200000 000000 4110 033550 400000 000000 4111 033551 400000 000000 4112 033552 000000 000000 EXP 0,1,377777777777,377777777777,1B0,1B0 4113 033553 000000 000001 4114 033554 377777 777777 4115 033555 377777 777777 4116 033556 400000 000000 4117 033557 400000 000000 4118 033560 400000 000000 EXP 1B0,1B0,-1,-1,377777777777,377777777777 4119 033561 400000 000000 4120 033562 777777 777777 4121 033563 777777 777777 4122 033564 377777 777777 4123 033565 377777 777777 4124 033566 400000 000000 EXP 1B0,-1,-1,1B0,377777777777,377777777777 4125 033567 777777 777777 4126 033570 777777 777777 4127 033571 400000 000000 4128 033572 377777 777777 4129 033573 377777 777777 4130 033574 400000 000001 EXP 1B0+1,1B0,-2,1B0,377777777777,0 4131 033575 400000 000000 4132 033576 777777 777776 4133 033577 400000 000000 4134 033600 377777 777777 4135 033601 000000 000000 4136 033602 777777 777777 EXP -1,-1,1B0,1B0,377777777777,377777777777 4137 033603 777777 777777 4138 033604 400000 000000 4139 033605 400000 000000 4140 033606 377777 777777 4141 033607 377777 777777 4142 033610 AENDG: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 14 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST A SEQ 0113 4143 SUBTTL DSUB - TEST A 4144 SALL 4145 041704 T=SIXBTZ 4146 LALL 4147 ; ********************************************************************** 4148 ;*DSUB - TEST A 4149 ;* 4150 ;* 0,# - 0,0 = 0,# GENERAL TESTING TO SEE THAT 4151 ;* #,0 - 0,0 = #,0 DSUB CAN HANDLE DOUBLEWORDS 4152 ;* #,# - 0,0 = #,# 4153 ;* 0,0 - 0,# = -(0,#) 4154 ;* 0,0 - #,0 = -(#,0) 4155 ;* 0,0 - #,# = -(#,#) 4156 ; ********************************************************************** 4157 4158 ; ********************************************************************** 4159 ; ---------- DSUB (0,#) - (0,0) = (0,#) ---------- 4160 ; ********************************************************************** 4161 4162 033610 200 15 0 00 041024 STEST1: MOVE SCR3,[[EXP 0,NUM],,[EXP 0,0]] ;ADDR FOR SPRINT 4163 033611 120 01 0 00 041020 DMOVE AC1,[EXP 0,NUM] ;INIT MINUEND TO (0,#) 4164 033612 115 01 0 00 041022 DSUB AC1,[EXP 0,0] ;SUB (0,#)-(0,0) 4165 CHECKS (STEST1,A1,0,NUM)^ 4166 4167 033613 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4168 033614 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 4169 033615 254 00 0 00 033621 JRST ..0213 ;NO - GO TO ERROR HANDLING 4170 033616 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4171 033617 316 02 0 00 041021 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT? 4172 033620 254 00 0 00 033624 JRST ..0214+1 ;YES - DONT DO ERROR HANDLING 4173 ; EXCEPT FOR ERLOOP 4174 4175 033621 200 14 0 13 000001 ..0213: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4176 033622 200 13 0 13 041020 MOVE SCR1,[EXP 0,NUM](SCR1) ;GET CORRECT RESULT 4177 033623 ..0214: ERROR (STEST1,14,SCR1,SCR2,,TEST A1 - RESULT IS INCORRECT,SPRINT)^SALL 4178 033623 036 14 0 00 041706 4179 033624 035 00 0 00 033610 ERLOOP STEST1 ;IF ERROR, LOOP TO STEST1 4180 ^ 4181 ^ 4182 4183 ; ********************************************************************** 4184 ; ---------- DSUB (#,0) - (0,0) = (#,0) ---------- 4185 ; ********************************************************************** 4186 4187 033625 200 15 0 00 041036 STEST2: MOVE SCR3,[[EXP NUM,0],,[EXP 0,0]] ;ADDR FOR SPRINT 4188 033626 120 01 0 00 041021 DMOVE AC1,[EXP NUM,0] ;INIT MINUEND TO (#,0) 4189 033627 115 01 0 00 041022 DSUB AC1,[EXP 0,0] ;SUB (#,0)-(0,0) 4190 CHECKS (STEST2,A2,NUM,0)^ 4191 4192 033630 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4193 033631 312 01 0 00 041021 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT? 4194 033632 254 00 0 00 033636 JRST ..0215 ;NO - GO TO ERROR HANDLING 4195 033633 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4196 033634 316 02 0 00 041020 CAMN AC1+1,[0] ;IS RIGHT HALF CORRECT? 4197 033635 254 00 0 00 033641 JRST ..0216+1 ;YES - DONT DO ERROR HANDLING DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 14-1 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST A SEQ 0114 4198 ; EXCEPT FOR ERLOOP 4199 4200 033636 200 14 0 13 000001 ..0215: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4201 033637 200 13 0 13 041021 MOVE SCR1,[EXP NUM,0](SCR1) ;GET CORRECT RESULT 4202 033640 ..0216: ERROR (STEST2,14,SCR1,SCR2,,TEST A2 - RESULT IS INCORRECT,SPRINT)^SALL 4203 033640 036 14 0 00 041711 4204 033641 035 00 0 00 033625 ERLOOP STEST2 ;IF ERROR, LOOP TO STEST2 4205 ^ 4206 ^ 4207 4208 ; ********************************************************************** 4209 ; ---------- DSUB (#,#) - (0,0) = (#,#) ---------- 4210 ; ********************************************************************** 4211 4212 033642 200 15 0 00 041051 STEST3: MOVE SCR3,[[EXP NUM,NUM],,[EXP 0,0]] ;ADDR FOR SPRINT 4213 033643 120 01 0 00 041047 DMOVE AC1,[EXP NUM,NUM] ;INIT MINUEND TO (#,#) 4214 033644 115 01 0 00 041022 DSUB AC1,[EXP 0,0] ;SUB (#,#)-(0,0) 4215 CHECKS (STEST3,A3,NUM,NUM)^ 4216 4217 033645 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4218 033646 312 01 0 00 041021 CAME AC1,[NUM] ;IS LEFT HALF OF RESULT CORRECT? 4219 033647 254 00 0 00 033653 JRST ..0217 ;NO - GO TO ERROR HANDLING 4220 033650 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4221 033651 316 02 0 00 041021 CAMN AC1+1,[NUM] ;IS RIGHT HALF CORRECT? 4222 033652 254 00 0 00 033656 JRST ..0220+1 ;YES - DONT DO ERROR HANDLING 4223 ; EXCEPT FOR ERLOOP 4224 4225 033653 200 14 0 13 000001 ..0217: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4226 033654 200 13 0 13 041047 MOVE SCR1,[EXP NUM,NUM](SCR1) ;GET CORRECT RESULT 4227 033655 ..0220: ERROR (STEST3,14,SCR1,SCR2,,TEST A3 - RESULT IS INCORRECT,SPRINT)^SALL 4228 033655 036 14 0 00 041714 4229 033656 035 00 0 00 033642 ERLOOP STEST3 ;IF ERROR, LOOP TO STEST3 4230 ^ 4231 ^ 4232 4233 ; ********************************************************************** 4234 ; ---------- DSUB (0,0) - (0,#) = (-1,-#) ---------- 4235 ; ********************************************************************** 4236 4237 033657 200 15 0 00 041062 STEST4: MOVE SCR3,[[EXP 0,0],,[EXP 0,NUM]] ;ADDR FOR SPRINT 4238 033660 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT MINUEND TO (0,0) 4239 033661 115 01 0 00 041020 DSUB AC1,[EXP 0,NUM] ;SUB (0,0) - (0,#) 4240 CHECKS (STEST4,A4,-1,-NUM)^ 4241 4242 033662 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4243 033663 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 4244 033664 254 00 0 00 033670 JRST ..0221 ;NO - GO TO ERROR HANDLING 4245 033665 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4246 033666 316 02 0 00 041717 CAMN AC1+1,[-NUM] ;IS RIGHT HALF CORRECT? 4247 033667 254 00 0 00 033673 JRST ..0222+1 ;YES - DONT DO ERROR HANDLING 4248 ; EXCEPT FOR ERLOOP 4249 4250 033670 200 14 0 13 000001 ..0221: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4251 033671 200 13 0 13 041720 MOVE SCR1,[EXP -1,-NUM](SCR1) ;GET CORRECT RESULT 4252 033672 ..0222: ERROR (STEST4,14,SCR1,SCR2,,TEST A4 - RESULT IS INCORRECT,SPRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 14-2 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST A SEQ 0115 4253 033672 036 14 0 00 041722 4254 033673 035 00 0 00 033657 ERLOOP STEST4 ;IF ERROR, LOOP TO STEST4 4255 ^ 4256 ^ 4257 4258 ; ********************************************************************** 4259 ; ---------- DSUB (0,0) - (#,0) = (-#,0) ---------- 4260 ; ********************************************************************** 4261 4262 033674 200 15 0 00 041073 STEST5: MOVE SCR3,[[EXP 0,0],,[EXP NUM,0]] ;ADDR FOR SPRINT 4263 033675 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT MINUEND TO (0,0) 4264 033676 115 01 0 00 041021 DSUB AC1,[EXP NUM,0] ;SUB (0,0) - (#,0) 4265 CHECKS (STEST5,A5,-NUM,400000000000)^ 4266 4267 033677 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4268 033700 312 01 0 00 041717 CAME AC1,[-NUM] ;IS LEFT HALF OF RESULT CORRECT? 4269 033701 254 00 0 00 033705 JRST ..0223 ;NO - GO TO ERROR HANDLING 4270 033702 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4271 033703 316 02 0 00 041725 CAMN AC1+1,[400000000000] ;IS RIGHT HALF CORRECT? 4272 033704 254 00 0 00 033710 JRST ..0224+1 ;YES - DONT DO ERROR HANDLING 4273 ; EXCEPT FOR ERLOOP 4274 4275 033705 200 14 0 13 000001 ..0223: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4276 033706 200 13 0 13 041726 MOVE SCR1,[EXP -NUM,400000000000](SCR1) ;GET CORRECT RESULT 4277 033707 ..0224: ERROR (STEST5,14,SCR1,SCR2,,TEST A5 - RESULT IS INCORRECT,SPRINT)^SALL 4278 033707 036 14 0 00 041730 4279 033710 035 00 0 00 033674 ERLOOP STEST5 ;IF ERROR, LOOP TO STEST5 4280 ^ 4281 ^ 4282 4283 ; ********************************************************************** 4284 ; ---------- DSUB (0,0) - (#,#) = -(#,#) ---------- 4285 ; ********************************************************************** 4286 4287 033711 200 15 0 00 041104 STEST6: MOVE SCR3,[[EXP 0,0],,[EXP NUM,NUM]] ;ADDR FOR SPRINT 4288 033712 403 01 0 00 000002 SETZB AC1,AC1+1 ;INIT MINUEND TO (0,0) 4289 033713 115 01 0 00 041047 DSUB AC1,[EXP NUM,NUM] ;SUB (0,0)-(#,#) 4290 CHECKS (STEST6,A6,-NUM-1,-NUM)^ 4291 4292 033714 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4293 033715 312 01 0 00 041733 CAME AC1,[-NUM-1] ;IS LEFT HALF OF RESULT CORRECT? 4294 033716 254 00 0 00 033722 JRST ..0225 ;NO - GO TO ERROR HANDLING 4295 033717 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4296 033720 316 02 0 00 041717 CAMN AC1+1,[-NUM] ;IS RIGHT HALF CORRECT? 4297 033721 254 00 0 00 033725 JRST ..0226+1 ;YES - DONT DO ERROR HANDLING 4298 ; EXCEPT FOR ERLOOP 4299 4300 033722 200 14 0 13 000001 ..0225: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4301 033723 200 13 0 13 041733 MOVE SCR1,[EXP -NUM-1,-NUM](SCR1) ;GET CORRECT RESULT 4302 033724 ..0226: ERROR (STEST6,14,SCR1,SCR2,,TEST A6 - RESULT IS INCORRECT,SPRINT)^SALL 4303 033724 036 14 0 00 041735 4304 033725 035 00 0 00 033711 ERLOOP STEST6 ;IF ERROR, LOOP TO STEST6 4305 ^ 4306 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 15 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST B SEQ 0116 4307 SUBTTL DSUB - TEST B 4308 4309 ; ********************************************************************** 4310 ;*DSUB - TEST B 4311 ;* 4312 ;* TEST ALL PERMUTATIONS OF 0,1,-1 IN THE MINUEND AND 4313 ;* SUBTRAHEND -- TEST: 4314 ;* 0,0 - 0,0 0,1 - 0,0 0,-1 - 0,0 .... 4315 ;* 0,0 - 0,1 0,1 - 0,1 0,-1 - 0,1 .... 4316 ;* 0,0 - 0,-1 0,1 - 0,-1 0,-1 - 0,-1 .... 4317 ;* 0,0 - 1,0 .... .... .... 4318 ;* 0,0 - 1,1 .... .... .... 4319 ;* 0,0 - 1,-1 .... .... .... 4320 ;* 0,0 - -1,0 .... .... .... 4321 ;* 0,0 - -1,1 .... .... .... 4322 ;* 0,0 - -1,-1 .... .... .... 4323 ; ********************************************************************** 4324 4325 ; ********************************************************************** 4326 ;* THESE COMBINATIONS TEST THE ABILITY OF THE DSUB TO HANDLE 4327 ;* BORROWS FROM THE NEXT WORD AND SIGNS CHANGING. THE RESULT 4328 ;* IS VERIFIED AND THE PC FLAGS ARE CHECKED TO SEE THAT THEY 4329 ;* ARE SET PROPERLY. 4330 ; ********************************************************************** 4331 4332 ; ********************************************************************** 4333 ;*PROCEDURE - (1) SET UP A POINTER 'MINU' TO SEQUENCE THE MINUEND 4334 ;* (2) LOOP ON MINUEND 4335 ;* (3) SET UP A POINTER 'SUBTR' TO SEQUENCE THE SUBTRAHEND 4336 ;* (4) LOOP ON SUBTRAHEND 4337 ;* (5) CALCULATE THE EXPECTED RESULT OF THE DSUB 4338 ;* (6) DO DSUB 4339 ;* (7) COMPARE RESULTS - ACTUAL VS. EXPECTED 4340 ;* (8) TEST FLAGS 4341 ;* (9) CONTINUE AT (4) 4342 ; ********************************************************************** 4343 4344 000003 MINU=AC1+2 ;MINU - POINTS TO MINUEND 4345 000004 SUBTR=MINU+1 ;SUBTR - POINTS TO SUBTRAHEND 4346 000012 SCR0=SCR0 ;SCR0 - SCRATCH ACS 4347 4348 ; ********************************************************************** 4349 ;INITIALIZE LOOPS - OUTERMOST ON MINUEND 4350 ; INNERMOST ON SUBTRAHEND 4351 ; ********************************************************************** 4352 4353 033726 200 03 0 00 041740 MOVE MINU,[-^D10,,SUBT-2] ;LEFT HALF - # WORDS IN LIST + 1 4354 ;RIGHT HALF - ADDRESS OF LIST 4355 033727 350 00 0 00 000003 OLOOP: AOS MINU ;ADD 2 TO ADDRESS (DOUBLEWORD) 4356 033730 252 03 0 00 034040 AOBJP MINU,BDONE ;ALL DONE WHEN COUNT = 0 4357 033731 552 03 0 00 034036 HRRZM MINU,IMINU ;SET UP MINU INDIRECT ADDR 4358 033732 200 04 0 00 041740 MOVE SUBTR,[-^D10,,SUBT-2] ;LEFT HALF - # WORDS IN LIST + 1 4359 ;RIGHT HALF - ADDRESS OF LIST 4360 033733 350 00 0 00 000004 ILOOP: AOS SUBTR ;ADD 2 TO ADDRESS (DOUBLEWORD) 4361 033734 252 04 0 00 033727 AOBJP SUBTR,OLOOP ;DONE WITH INNER LOOP WHEN COUNT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 15-1 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST B SEQ 0117 4362 ; REACHES 0 - BACK TO OUTER LOOP 4363 033735 552 04 0 00 034037 HRRZM SUBTR,ISUBTR ;SET UP SUBTR INDIRECT ADDR 4364 033736 514 15 0 00 000003 HRLZ SCR3,MINU ;SCR3 - ADDR FOR ADDL ERROR PRINT 4365 033737 540 15 0 00 000004 HRR SCR3,SUBTR ; (MINU,,SUBTR) 4366 4367 ; ********************************************************************** 4368 ;ACTUAL TEST SECTION (STEPS 1-7 OF ABOVE DESCRIPTION) 4369 ; ********************************************************************** 4370 4371 033740 120 01 1 00 034036 BTESTB: DMOVE AC1,@IMINU ;GET MINUEND 4372 033741 120 12 1 00 034037 DMOVE SCR0,@ISUBTR ;GET SUBTRAHEND TO CALC EXPECTED 4373 033742 450 12 0 00 000000 SETCA SCR0, ;1-S COMPLEMENT OF LEFT WORD 4374 033743 450 13 0 00 000000 SETCA SCR1, ;1-S COMPLEMENT OF RIGHT WORD 4375 033744 114 12 0 00 000001 DADD SCR0,AC1 ;RESULT-1 (USED 1'S COMPLEMENT) 4376 033745 114 12 0 00 041126 DADD SCR0,[EXP 0,1] ;GET RESULT 4377 033746 255 17 0 00 033747 JFCL 17,.+1 ;CLEAR PC FLAGS 4378 033747 400 14 0 00 000000 SETZ SCR2, ;POINTER TO INCORRECT WORD IN RESULT 4379 4380 033750 115 01 1 00 034037 DSUB AC1,@ISUBTR ;DO THE SUBTRACTION 4381 4382 PCSAVE^ 4383 033751 264 00 0 00 033752 JSR .+1 ;STORE PC 4384 033752 FLAGL=. ;LOCATION OF PC 4385 033752 000000 000000 0 ;PC 4386 ^ 4387 033753 312 01 0 00 000012 CAME AC1,SCR0 ;LEFT WORD CORRECT? 4388 033754 254 00 0 00 033760 JRST BERROR 4389 033755 201 14 0 00 000001 MOVEI SCR2,1 ;POINTER TO INCORRECT WORD IN RESULT 4390 033756 316 02 0 00 000013 CAMN AC1+1,SCR1 ;RIGHT WORD CORRECT? 4391 033757 254 00 0 00 033764 JRST BFLAG ;YES - NOW TEST PC FLAGS 4392 4393 033760 200 12 0 14 000012 BERROR: MOVE SCR0,SCR0(SCR2) ;GET CORRECT RESULT FOR ADDL PRINT 4394 033761 200 13 0 14 000001 MOVE SCR1,AC1(SCR2) ;GET ACTUAL (INCORRECT) RESULT 4395 ERROR (BTESTB ,14,SCR0,SCR1,,TEST B - RESULT INCORRECT,SPRINT)^SALL 4396 033762 036 14 0 00 041746 4397 033763 035 00 0 00 033740 ERLOOP BTESTB ;IF ERROR, LOOP TO BTESTB 4398 ^ 4399 4400 033764 550 14 0 00 033752 BFLAG: HRRZ SCR2,FLAGL ;SCR2 - PC WITH 0000 FLAGS 4401 033765 120 12 1 00 034037 DMOVE SCR0,@ISUBTR ;GET SUBTRAHEND 4402 033766 444 12 1 00 034036 EQV SCR0,@IMINU ;LEFT BIT IS 1 IF SIGNS SAME 4403 033767 603 12 0 00 400000 TLNE SCR0,400000 ;IS LEFT BIT A 1? (SIGNS SAME) 4404 033770 254 00 0 00 033775 JRST BSAME ;YES - GO COMPARE MINU VS. SUBTR 4405 033771 331 00 1 00 034036 SKIPL @IMINU ;NO - IS MINUEND < 0 4406 033772 254 00 0 00 034005 JRST BDONEI ;NO - CORRECT FLAGS ARE 0000 4407 4408 033773 505 14 0 00 300000 BFSET: HRLI SCR2,300000 ;YES - CORRECT FLAGS ARE 0110 4409 033774 254 00 0 00 034005 JRST BDONEI ;CORRECT FLAGS CALC IS DONE 4410 4411 033775 120 12 1 00 034036 BSAME: DMOVE SCR0,@IMINU ;SIGNS ARE SAME - GET MINUEND 4412 033776 315 12 1 00 034037 CAMGE SCR0,@ISUBTR ;MINUEND >= SUBTRA? (LEFT WORD) 4413 033777 254 00 0 00 034005 JRST BDONEI ;NO - FLAGS ARE 0000 4414 034000 312 12 1 00 034037 CAME SCR0,@ISUBTR ;MINUEND = SUBTRA? (LEFT WORD) 4415 034001 254 00 0 00 033773 JRST BFSET ;NO - MIN > SUBTR - FLAGS 0110 4416 034002 350 00 0 00 034037 AOS ISUBTR ;1ST WORDS ARE = SO LOOK AT 2ND DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 15-2 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST B SEQ 0118 4417 034003 311 13 1 00 034037 CAML SCR1,@ISUBTR ;MINUEND < SUBTRAHEND? 4418 034004 254 00 0 00 033773 JRST BFSET ;NO - FLAGS ARE 0110 4419 4420 034005 BDONEI: TFLAG (SCR2,B,SPRINT,BTESTB)^ 4421 4422 034005 200 13 0 00 033752 MOVE SCR1,FLAGL ;GET FLAGS 4423 034006 200 14 0 00 000014 MOVE SCR2,SCR2 ;SCR2 - CORRECT FLAGS 4424 034007 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 4425 034010 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 4426 ERROR (BTESTB,13,SCR2,FLAGL,,TEST B - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SA 4427 LL 4428 034011 036 13 0 00 041760 4429 034012 035 00 0 00 033740 ERLOOP BTESTB ;IF ERROR, LOOP TO BTESTB 4430 ^ 4431 ^ 4432 034013 254 00 0 00 033733 JRST ILOOP ;END OF TEST - GOTO NEXT ONE 4433 4434 034014 000000 000000 SUBT: EXP 0,0,0,1,0,377777777777 4435 034015 000000 000000 4436 034016 000000 000000 4437 034017 000000 000001 4438 034020 000000 000000 4439 034021 377777 777777 4440 034022 000000 000001 EXP 1,0,1,1,1,377777777777 4441 034023 000000 000000 4442 034024 000000 000001 4443 034025 000000 000001 4444 034026 000000 000001 4445 034027 377777 777777 4446 034030 777777 777777 EXP -1,1B0,-1,1B0+1,-1,-1 4447 034031 400000 000000 4448 034032 777777 777777 4449 034033 400000 000001 4450 034034 777777 777777 4451 034035 777777 777777 4452 034036 000000 000000 IMINU: 0 4453 034037 000000 000000 ISUBTR: 0 4454 034040 BDONE: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0119 4455 SUBTTL DSUB - TEST C 4456 4457 ; ********************************************************************** 4458 ;*DSUB - TEST C 4459 ;* 4460 ;* THE FOLLOWING TESTS VERIFY THAT THE DSUB INSTRUCTION HANDLES 4461 ;* THE SIGN OF THE RESULT PROPERLY (COPYING THE SIGN INTO THE 4462 ;* HIGH ORDER BIT OF EACH WORD OF THE DOUBLEWORD RESULT. THE 4463 ;* TESTS SUBTRACT VARIOUS COMBINATIONS OF INCONSISTENT SIGNS 4464 ;* IN THE SUBTRAHEND AND MINUEND AND VERIFY THAT THE SIGNS OF 4465 ;* THE RESULT ARE CORRECT. 4466 ;* 4467 ;* THERE ARE 5 SETS OF TEST: (1) 0 - P/N = N/P 4468 ;* (2) N - N = P/N 4469 ;* (3) P - P = N/P 4470 ;* (4) N - P = N/P 4471 ;* (5) N - P = N/P 4472 ;* WHERE N-NEGATIVE NUMBER 4473 ;* P-POSITIVE NUMBER 4474 ; ********************************************************************** 4475 4476 ; ********************************************************************** 4477 ; ---------- DSUB - TEST C-1: 0 - P/N = N/P ---------- 4478 ; ********************************************************************** 4479 4480 034641 CNUM=SCONC1-6 4481 4482 REPEAT 6,< 4483 ; ************************************************ 4484 4485 LOC=. ;ERROR RETURN ADDRESS 4486 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4487 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4488 DMOVE AC1,CNUM ;INIT MINUEND 4489 DSUB AC1,CNUM+2 ;SUB N - P 4490 CHECKT (LOC,C1,CNUM+4) 4491 ; ************************************************ 4492 > 4493 4494 ; ************************************************ 4495 4496 034040 LOC=. ;ERROR RETURN ADDRESS 4497 034647 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4498 034040 200 15 0 00 041763 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4499 034041 120 01 0 00 034647 DMOVE AC1,CNUM ;INIT MINUEND 4500 034042 115 01 0 00 034651 DSUB AC1,CNUM+2 ;SUB N - P 4501 CHECKT (LOC,C1,CNUM+4)^ 4502 4503 034043 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4504 034044 312 01 0 00 034653 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4505 034045 254 00 0 00 034051 JRST ..0227 ;NO - GO TO ERROR HANDLING 4506 034046 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4507 034047 316 02 0 00 034654 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4508 034050 254 00 0 00 034054 JRST ..0230+1 ;YES - DONT DO ERROR HANDLING 4509 ; EXCEPT FOR ERLOOP DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-1 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0120 4510 4511 034051 200 14 0 13 000001 ..0227: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4512 034052 200 13 0 13 034653 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4513 034053 ..0230: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL 4514 034053 036 14 0 00 041771 4515 034054 035 00 0 00 034040 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4516 ^ 4517 ^ 4518 ; ************************************************ 4519 4520 4521 ; ************************************************ 4522 4523 034055 LOC=. ;ERROR RETURN ADDRESS 4524 034655 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4525 034055 200 15 0 00 041774 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4526 034056 120 01 0 00 034655 DMOVE AC1,CNUM ;INIT MINUEND 4527 034057 115 01 0 00 034657 DSUB AC1,CNUM+2 ;SUB N - P 4528 CHECKT (LOC,C1,CNUM+4)^ 4529 4530 034060 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4531 034061 312 01 0 00 034661 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4532 034062 254 00 0 00 034066 JRST ..0231 ;NO - GO TO ERROR HANDLING 4533 034063 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4534 034064 316 02 0 00 034662 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4535 034065 254 00 0 00 034071 JRST ..0232+1 ;YES - DONT DO ERROR HANDLING 4536 ; EXCEPT FOR ERLOOP 4537 4538 034066 200 14 0 13 000001 ..0231: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4539 034067 200 13 0 13 034661 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4540 034070 ..0232: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL 4541 034070 036 14 0 00 041771 4542 034071 035 00 0 00 034055 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4543 ^ 4544 ^ 4545 ; ************************************************ 4546 4547 4548 ; ************************************************ 4549 4550 034072 LOC=. ;ERROR RETURN ADDRESS 4551 034663 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4552 034072 200 15 0 00 041775 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4553 034073 120 01 0 00 034663 DMOVE AC1,CNUM ;INIT MINUEND 4554 034074 115 01 0 00 034665 DSUB AC1,CNUM+2 ;SUB N - P 4555 CHECKT (LOC,C1,CNUM+4)^ 4556 4557 034075 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4558 034076 312 01 0 00 034667 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4559 034077 254 00 0 00 034103 JRST ..0233 ;NO - GO TO ERROR HANDLING 4560 034100 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4561 034101 316 02 0 00 034670 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4562 034102 254 00 0 00 034106 JRST ..0234+1 ;YES - DONT DO ERROR HANDLING 4563 ; EXCEPT FOR ERLOOP 4564 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-2 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0121 4565 034103 200 14 0 13 000001 ..0233: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4566 034104 200 13 0 13 034667 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4567 034105 ..0234: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL 4568 034105 036 14 0 00 041771 4569 034106 035 00 0 00 034072 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4570 ^ 4571 ^ 4572 ; ************************************************ 4573 4574 4575 ; ************************************************ 4576 4577 034107 LOC=. ;ERROR RETURN ADDRESS 4578 034671 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4579 034107 200 15 0 00 041776 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4580 034110 120 01 0 00 034671 DMOVE AC1,CNUM ;INIT MINUEND 4581 034111 115 01 0 00 034673 DSUB AC1,CNUM+2 ;SUB N - P 4582 CHECKT (LOC,C1,CNUM+4)^ 4583 4584 034112 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4585 034113 312 01 0 00 034675 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4586 034114 254 00 0 00 034120 JRST ..0235 ;NO - GO TO ERROR HANDLING 4587 034115 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4588 034116 316 02 0 00 034676 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4589 034117 254 00 0 00 034123 JRST ..0236+1 ;YES - DONT DO ERROR HANDLING 4590 ; EXCEPT FOR ERLOOP 4591 4592 034120 200 14 0 13 000001 ..0235: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4593 034121 200 13 0 13 034675 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4594 034122 ..0236: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL 4595 034122 036 14 0 00 041771 4596 034123 035 00 0 00 034107 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4597 ^ 4598 ^ 4599 ; ************************************************ 4600 4601 4602 ; ************************************************ 4603 4604 034124 LOC=. ;ERROR RETURN ADDRESS 4605 034677 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4606 034124 200 15 0 00 041777 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4607 034125 120 01 0 00 034677 DMOVE AC1,CNUM ;INIT MINUEND 4608 034126 115 01 0 00 034701 DSUB AC1,CNUM+2 ;SUB N - P 4609 CHECKT (LOC,C1,CNUM+4)^ 4610 4611 034127 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4612 034130 312 01 0 00 034703 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4613 034131 254 00 0 00 034135 JRST ..0237 ;NO - GO TO ERROR HANDLING 4614 034132 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4615 034133 316 02 0 00 034704 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4616 034134 254 00 0 00 034140 JRST ..0240+1 ;YES - DONT DO ERROR HANDLING 4617 ; EXCEPT FOR ERLOOP 4618 4619 034135 200 14 0 13 000001 ..0237: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-3 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0122 4620 034136 200 13 0 13 034703 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4621 034137 ..0240: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL 4622 034137 036 14 0 00 041771 4623 034140 035 00 0 00 034124 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4624 ^ 4625 ^ 4626 ; ************************************************ 4627 4628 4629 ; ************************************************ 4630 4631 034141 LOC=. ;ERROR RETURN ADDRESS 4632 034705 CNUM=CNUM+6 ;ADDRESS OF TEST DATA 4633 034141 200 15 0 00 042000 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4634 034142 120 01 0 00 034705 DMOVE AC1,CNUM ;INIT MINUEND 4635 034143 115 01 0 00 034707 DSUB AC1,CNUM+2 ;SUB N - P 4636 CHECKT (LOC,C1,CNUM+4)^ 4637 4638 034144 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4639 034145 312 01 0 00 034711 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4640 034146 254 00 0 00 034152 JRST ..0241 ;NO - GO TO ERROR HANDLING 4641 034147 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4642 034150 316 02 0 00 034712 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4643 034151 254 00 0 00 034155 JRST ..0242+1 ;YES - DONT DO ERROR HANDLING 4644 ; EXCEPT FOR ERLOOP 4645 4646 034152 200 14 0 13 000001 ..0241: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4647 034153 200 13 0 13 034711 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4648 034154 ..0242: ERROR (LOC,14,SCR1,SCR2,,TEST C1 - RESULT IS INCORRECT,SPRINT)^SALL 4649 034154 036 14 0 00 041771 4650 034155 035 00 0 00 034141 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4651 ^ 4652 ^ 4653 ; ************************************************ 4654 4655 ; ********************************************************************** 4656 ; ---------- DSUB - TEST C-2: N - N = P/N ---------- 4657 ; ********************************************************************** 4658 4659 034705 CNUM=SCONC2-6 4660 4661 REPEAT 6,< 4662 ; ************************************************ 4663 4664 LOC=. ;ERROR RETURN ADDRESS 4665 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4666 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4667 DMOVE AC1,CNUM ;INIT MINUEND 4668 DSUB AC1,CNUM+2 ;SUB N - N 4669 CHECKT (LOC,C2,CNUM+4) 4670 ; ************************************************ 4671 > 4672 4673 ; ************************************************ 4674 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-4 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0123 4675 034156 LOC=. ;ERROR RETURN ADDRESS 4676 034713 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4677 034156 200 15 0 00 042001 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4678 034157 120 01 0 00 034713 DMOVE AC1,CNUM ;INIT MINUEND 4679 034160 115 01 0 00 034715 DSUB AC1,CNUM+2 ;SUB N - N 4680 CHECKT (LOC,C2,CNUM+4)^ 4681 4682 034161 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4683 034162 312 01 0 00 034717 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4684 034163 254 00 0 00 034167 JRST ..0243 ;NO - GO TO ERROR HANDLING 4685 034164 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4686 034165 316 02 0 00 034720 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4687 034166 254 00 0 00 034172 JRST ..0244+1 ;YES - DONT DO ERROR HANDLING 4688 ; EXCEPT FOR ERLOOP 4689 4690 034167 200 14 0 13 000001 ..0243: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4691 034170 200 13 0 13 034717 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4692 034171 ..0244: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL 4693 034171 036 14 0 00 042007 4694 034172 035 00 0 00 034156 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4695 ^ 4696 ^ 4697 ; ************************************************ 4698 4699 4700 ; ************************************************ 4701 4702 034173 LOC=. ;ERROR RETURN ADDRESS 4703 034721 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4704 034173 200 15 0 00 042012 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4705 034174 120 01 0 00 034721 DMOVE AC1,CNUM ;INIT MINUEND 4706 034175 115 01 0 00 034723 DSUB AC1,CNUM+2 ;SUB N - N 4707 CHECKT (LOC,C2,CNUM+4)^ 4708 4709 034176 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4710 034177 312 01 0 00 034725 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4711 034200 254 00 0 00 034204 JRST ..0245 ;NO - GO TO ERROR HANDLING 4712 034201 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4713 034202 316 02 0 00 034726 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4714 034203 254 00 0 00 034207 JRST ..0246+1 ;YES - DONT DO ERROR HANDLING 4715 ; EXCEPT FOR ERLOOP 4716 4717 034204 200 14 0 13 000001 ..0245: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4718 034205 200 13 0 13 034725 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4719 034206 ..0246: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL 4720 034206 036 14 0 00 042007 4721 034207 035 00 0 00 034173 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4722 ^ 4723 ^ 4724 ; ************************************************ 4725 4726 4727 ; ************************************************ 4728 4729 034210 LOC=. ;ERROR RETURN ADDRESS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-5 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0124 4730 034727 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4731 034210 200 15 0 00 042013 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4732 034211 120 01 0 00 034727 DMOVE AC1,CNUM ;INIT MINUEND 4733 034212 115 01 0 00 034731 DSUB AC1,CNUM+2 ;SUB N - N 4734 CHECKT (LOC,C2,CNUM+4)^ 4735 4736 034213 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4737 034214 312 01 0 00 034733 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4738 034215 254 00 0 00 034221 JRST ..0247 ;NO - GO TO ERROR HANDLING 4739 034216 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4740 034217 316 02 0 00 034734 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4741 034220 254 00 0 00 034224 JRST ..0250+1 ;YES - DONT DO ERROR HANDLING 4742 ; EXCEPT FOR ERLOOP 4743 4744 034221 200 14 0 13 000001 ..0247: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4745 034222 200 13 0 13 034733 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4746 034223 ..0250: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL 4747 034223 036 14 0 00 042007 4748 034224 035 00 0 00 034210 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4749 ^ 4750 ^ 4751 ; ************************************************ 4752 4753 4754 ; ************************************************ 4755 4756 034225 LOC=. ;ERROR RETURN ADDRESS 4757 034735 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4758 034225 200 15 0 00 042014 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4759 034226 120 01 0 00 034735 DMOVE AC1,CNUM ;INIT MINUEND 4760 034227 115 01 0 00 034737 DSUB AC1,CNUM+2 ;SUB N - N 4761 CHECKT (LOC,C2,CNUM+4)^ 4762 4763 034230 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4764 034231 312 01 0 00 034741 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4765 034232 254 00 0 00 034236 JRST ..0251 ;NO - GO TO ERROR HANDLING 4766 034233 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4767 034234 316 02 0 00 034742 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4768 034235 254 00 0 00 034241 JRST ..0252+1 ;YES - DONT DO ERROR HANDLING 4769 ; EXCEPT FOR ERLOOP 4770 4771 034236 200 14 0 13 000001 ..0251: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4772 034237 200 13 0 13 034741 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4773 034240 ..0252: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL 4774 034240 036 14 0 00 042007 4775 034241 035 00 0 00 034225 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4776 ^ 4777 ^ 4778 ; ************************************************ 4779 4780 4781 ; ************************************************ 4782 4783 034242 LOC=. ;ERROR RETURN ADDRESS 4784 034743 CNUM=CNUM+6 ;SUBRESS OF TEST DATA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-6 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0125 4785 034242 200 15 0 00 042015 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4786 034243 120 01 0 00 034743 DMOVE AC1,CNUM ;INIT MINUEND 4787 034244 115 01 0 00 034745 DSUB AC1,CNUM+2 ;SUB N - N 4788 CHECKT (LOC,C2,CNUM+4)^ 4789 4790 034245 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4791 034246 312 01 0 00 034747 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4792 034247 254 00 0 00 034253 JRST ..0253 ;NO - GO TO ERROR HANDLING 4793 034250 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4794 034251 316 02 0 00 034750 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4795 034252 254 00 0 00 034256 JRST ..0254+1 ;YES - DONT DO ERROR HANDLING 4796 ; EXCEPT FOR ERLOOP 4797 4798 034253 200 14 0 13 000001 ..0253: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4799 034254 200 13 0 13 034747 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4800 034255 ..0254: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL 4801 034255 036 14 0 00 042007 4802 034256 035 00 0 00 034242 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4803 ^ 4804 ^ 4805 ; ************************************************ 4806 4807 4808 ; ************************************************ 4809 4810 034257 LOC=. ;ERROR RETURN ADDRESS 4811 034751 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4812 034257 200 15 0 00 042016 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4813 034260 120 01 0 00 034751 DMOVE AC1,CNUM ;INIT MINUEND 4814 034261 115 01 0 00 034753 DSUB AC1,CNUM+2 ;SUB N - N 4815 CHECKT (LOC,C2,CNUM+4)^ 4816 4817 034262 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4818 034263 312 01 0 00 034755 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4819 034264 254 00 0 00 034270 JRST ..0255 ;NO - GO TO ERROR HANDLING 4820 034265 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4821 034266 316 02 0 00 034756 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4822 034267 254 00 0 00 034273 JRST ..0256+1 ;YES - DONT DO ERROR HANDLING 4823 ; EXCEPT FOR ERLOOP 4824 4825 034270 200 14 0 13 000001 ..0255: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4826 034271 200 13 0 13 034755 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4827 034272 ..0256: ERROR (LOC,14,SCR1,SCR2,,TEST C2 - RESULT IS INCORRECT,SPRINT)^SALL 4828 034272 036 14 0 00 042007 4829 034273 035 00 0 00 034257 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4830 ^ 4831 ^ 4832 ; ************************************************ 4833 4834 ; ********************************************************************** 4835 ; ---------- DSUB - TEST C-3: P - P = N/P ---------- 4836 ; ********************************************************************** 4837 4838 034751 CNUM=SCONC3-6 4839 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-7 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0126 4840 REPEAT 6,< 4841 ; ************************************************ 4842 4843 LOC=. ;ERROR RETURN ADDRESS 4844 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4845 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4846 DMOVE AC1,CNUM ;INIT MINUEND 4847 DSUB AC1,CNUM+2 ;SUB N - P 4848 CHECKT (LOC,C3,CNUM+4) 4849 ; ************************************************ 4850 > 4851 4852 ; ************************************************ 4853 4854 034274 LOC=. ;ERROR RETURN ADDRESS 4855 034757 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4856 034274 200 15 0 00 042017 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4857 034275 120 01 0 00 034757 DMOVE AC1,CNUM ;INIT MINUEND 4858 034276 115 01 0 00 034761 DSUB AC1,CNUM+2 ;SUB N - P 4859 CHECKT (LOC,C3,CNUM+4)^ 4860 4861 034277 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4862 034300 312 01 0 00 034763 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4863 034301 254 00 0 00 034305 JRST ..0257 ;NO - GO TO ERROR HANDLING 4864 034302 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4865 034303 316 02 0 00 034764 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4866 034304 254 00 0 00 034310 JRST ..0260+1 ;YES - DONT DO ERROR HANDLING 4867 ; EXCEPT FOR ERLOOP 4868 4869 034305 200 14 0 13 000001 ..0257: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4870 034306 200 13 0 13 034763 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4871 034307 ..0260: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL 4872 034307 036 14 0 00 042025 4873 034310 035 00 0 00 034274 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4874 ^ 4875 ^ 4876 ; ************************************************ 4877 4878 4879 ; ************************************************ 4880 4881 034311 LOC=. ;ERROR RETURN ADDRESS 4882 034765 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4883 034311 200 15 0 00 042030 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4884 034312 120 01 0 00 034765 DMOVE AC1,CNUM ;INIT MINUEND 4885 034313 115 01 0 00 034767 DSUB AC1,CNUM+2 ;SUB N - P 4886 CHECKT (LOC,C3,CNUM+4)^ 4887 4888 034314 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4889 034315 312 01 0 00 034771 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4890 034316 254 00 0 00 034322 JRST ..0261 ;NO - GO TO ERROR HANDLING 4891 034317 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4892 034320 316 02 0 00 034772 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4893 034321 254 00 0 00 034325 JRST ..0262+1 ;YES - DONT DO ERROR HANDLING 4894 ; EXCEPT FOR ERLOOP DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-8 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0127 4895 4896 034322 200 14 0 13 000001 ..0261: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4897 034323 200 13 0 13 034771 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4898 034324 ..0262: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL 4899 034324 036 14 0 00 042025 4900 034325 035 00 0 00 034311 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4901 ^ 4902 ^ 4903 ; ************************************************ 4904 4905 4906 ; ************************************************ 4907 4908 034326 LOC=. ;ERROR RETURN ADDRESS 4909 034773 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4910 034326 200 15 0 00 042031 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4911 034327 120 01 0 00 034773 DMOVE AC1,CNUM ;INIT MINUEND 4912 034330 115 01 0 00 034775 DSUB AC1,CNUM+2 ;SUB N - P 4913 CHECKT (LOC,C3,CNUM+4)^ 4914 4915 034331 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4916 034332 312 01 0 00 034777 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4917 034333 254 00 0 00 034337 JRST ..0263 ;NO - GO TO ERROR HANDLING 4918 034334 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4919 034335 316 02 0 00 035000 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4920 034336 254 00 0 00 034342 JRST ..0264+1 ;YES - DONT DO ERROR HANDLING 4921 ; EXCEPT FOR ERLOOP 4922 4923 034337 200 14 0 13 000001 ..0263: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4924 034340 200 13 0 13 034777 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4925 034341 ..0264: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL 4926 034341 036 14 0 00 042025 4927 034342 035 00 0 00 034326 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4928 ^ 4929 ^ 4930 ; ************************************************ 4931 4932 4933 ; ************************************************ 4934 4935 034343 LOC=. ;ERROR RETURN ADDRESS 4936 035001 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4937 034343 200 15 0 00 042032 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4938 034344 120 01 0 00 035001 DMOVE AC1,CNUM ;INIT MINUEND 4939 034345 115 01 0 00 035003 DSUB AC1,CNUM+2 ;SUB N - P 4940 CHECKT (LOC,C3,CNUM+4)^ 4941 4942 034346 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4943 034347 312 01 0 00 035005 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4944 034350 254 00 0 00 034354 JRST ..0265 ;NO - GO TO ERROR HANDLING 4945 034351 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4946 034352 316 02 0 00 035006 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4947 034353 254 00 0 00 034357 JRST ..0266+1 ;YES - DONT DO ERROR HANDLING 4948 ; EXCEPT FOR ERLOOP 4949 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-9 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0128 4950 034354 200 14 0 13 000001 ..0265: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4951 034355 200 13 0 13 035005 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4952 034356 ..0266: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL 4953 034356 036 14 0 00 042025 4954 034357 035 00 0 00 034343 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4955 ^ 4956 ^ 4957 ; ************************************************ 4958 4959 4960 ; ************************************************ 4961 4962 034360 LOC=. ;ERROR RETURN ADDRESS 4963 035007 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4964 034360 200 15 0 00 042033 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4965 034361 120 01 0 00 035007 DMOVE AC1,CNUM ;INIT MINUEND 4966 034362 115 01 0 00 035011 DSUB AC1,CNUM+2 ;SUB N - P 4967 CHECKT (LOC,C3,CNUM+4)^ 4968 4969 034363 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4970 034364 312 01 0 00 035013 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4971 034365 254 00 0 00 034371 JRST ..0267 ;NO - GO TO ERROR HANDLING 4972 034366 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 4973 034367 316 02 0 00 035014 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 4974 034370 254 00 0 00 034374 JRST ..0270+1 ;YES - DONT DO ERROR HANDLING 4975 ; EXCEPT FOR ERLOOP 4976 4977 034371 200 14 0 13 000001 ..0267: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 4978 034372 200 13 0 13 035013 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 4979 034373 ..0270: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL 4980 034373 036 14 0 00 042025 4981 034374 035 00 0 00 034360 ERLOOP LOC ;IF ERROR, LOOP TO LOC 4982 ^ 4983 ^ 4984 ; ************************************************ 4985 4986 4987 ; ************************************************ 4988 4989 034375 LOC=. ;ERROR RETURN ADDRESS 4990 035015 CNUM=CNUM+6 ;SUBRESS OF TEST DATA 4991 034375 200 15 0 00 042034 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 4992 034376 120 01 0 00 035015 DMOVE AC1,CNUM ;INIT MINUEND 4993 034377 115 01 0 00 035017 DSUB AC1,CNUM+2 ;SUB N - P 4994 CHECKT (LOC,C3,CNUM+4)^ 4995 4996 034400 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 4997 034401 312 01 0 00 035021 CAME AC1,CNUM+4 ;IS LEFT HALF OF RESULT CORRECT? 4998 034402 254 00 0 00 034406 JRST ..0271 ;NO - GO TO ERROR HANDLING 4999 034403 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5000 034404 316 02 0 00 035022 CAMN AC1+1,CNUM+4+1 ;IS RIGHT HALF CORRECT? 5001 034405 254 00 0 00 034411 JRST ..0272+1 ;YES - DONT DO ERROR HANDLING 5002 ; EXCEPT FOR ERLOOP 5003 5004 034406 200 14 0 13 000001 ..0271: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-10 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0129 5005 034407 200 13 0 13 035021 MOVE SCR1,CNUM+4(SCR1) ;GET CORRECT WORD OF RESULT 5006 034410 ..0272: ERROR (LOC,14,SCR1,SCR2,,TEST C3 - RESULT IS INCORRECT,SPRINT)^SALL 5007 034410 036 14 0 00 042025 5008 034411 035 00 0 00 034375 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5009 ^ 5010 ^ 5011 ; ************************************************ 5012 5013 ; ********************************************************************** 5014 ; ---------- DSUB - TEST C-4: N - P = -3 ---------- 5015 ; ********************************************************************** 5016 5017 035017 CNUM=SCONC4-4 5018 5019 REPEAT 6,< 5020 ; ************************************************ 5021 5022 LOC=. ;ERROR RETURN ADDRESS 5023 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5024 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5025 DMOVE AC1,CNUM ;INIT MINUEND 5026 DSUB AC1,CNUM+2 ;SUB N - P = -3 5027 CHECKS (LOC,C4,-1,-3) 5028 ; ************************************************ 5029 > 5030 5031 ; ************************************************ 5032 5033 034412 LOC=. ;ERROR RETURN ADDRESS 5034 035023 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5035 034412 200 15 0 00 042035 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5036 034413 120 01 0 00 035023 DMOVE AC1,CNUM ;INIT MINUEND 5037 034414 115 01 0 00 035025 DSUB AC1,CNUM+2 ;SUB N - P = -3 5038 CHECKS (LOC,C4,-1,-3)^ 5039 5040 034415 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5041 034416 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 5042 034417 254 00 0 00 034423 JRST ..0273 ;NO - GO TO ERROR HANDLING 5043 034420 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5044 034421 316 02 0 00 042036 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT? 5045 034422 254 00 0 00 034426 JRST ..0274+1 ;YES - DONT DO ERROR HANDLING 5046 ; EXCEPT FOR ERLOOP 5047 5048 034423 200 14 0 13 000001 ..0273: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5049 034424 200 13 0 13 042037 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT 5050 034425 ..0274: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL 5051 034425 036 14 0 00 042046 5052 034426 035 00 0 00 034412 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5053 ^ 5054 ^ 5055 ; ************************************************ 5056 5057 5058 ; ************************************************ 5059 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-11 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0130 5060 034427 LOC=. ;ERROR RETURN ADDRESS 5061 035027 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5062 034427 200 15 0 00 042051 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5063 034430 120 01 0 00 035027 DMOVE AC1,CNUM ;INIT MINUEND 5064 034431 115 01 0 00 035031 DSUB AC1,CNUM+2 ;SUB N - P = -3 5065 CHECKS (LOC,C4,-1,-3)^ 5066 5067 034432 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5068 034433 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 5069 034434 254 00 0 00 034440 JRST ..0275 ;NO - GO TO ERROR HANDLING 5070 034435 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5071 034436 316 02 0 00 042036 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT? 5072 034437 254 00 0 00 034443 JRST ..0276+1 ;YES - DONT DO ERROR HANDLING 5073 ; EXCEPT FOR ERLOOP 5074 5075 034440 200 14 0 13 000001 ..0275: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5076 034441 200 13 0 13 042037 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT 5077 034442 ..0276: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL 5078 034442 036 14 0 00 042046 5079 034443 035 00 0 00 034427 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5080 ^ 5081 ^ 5082 ; ************************************************ 5083 5084 5085 ; ************************************************ 5086 5087 034444 LOC=. ;ERROR RETURN ADDRESS 5088 035033 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5089 034444 200 15 0 00 042052 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5090 034445 120 01 0 00 035033 DMOVE AC1,CNUM ;INIT MINUEND 5091 034446 115 01 0 00 035035 DSUB AC1,CNUM+2 ;SUB N - P = -3 5092 CHECKS (LOC,C4,-1,-3)^ 5093 5094 034447 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5095 034450 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 5096 034451 254 00 0 00 034455 JRST ..0277 ;NO - GO TO ERROR HANDLING 5097 034452 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5098 034453 316 02 0 00 042036 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT? 5099 034454 254 00 0 00 034460 JRST ..0300+1 ;YES - DONT DO ERROR HANDLING 5100 ; EXCEPT FOR ERLOOP 5101 5102 034455 200 14 0 13 000001 ..0277: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5103 034456 200 13 0 13 042037 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT 5104 034457 ..0300: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL 5105 034457 036 14 0 00 042046 5106 034460 035 00 0 00 034444 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5107 ^ 5108 ^ 5109 ; ************************************************ 5110 5111 5112 ; ************************************************ 5113 5114 034461 LOC=. ;ERROR RETURN ADDRESS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-12 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0131 5115 035037 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5116 034461 200 15 0 00 042053 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5117 034462 120 01 0 00 035037 DMOVE AC1,CNUM ;INIT MINUEND 5118 034463 115 01 0 00 035041 DSUB AC1,CNUM+2 ;SUB N - P = -3 5119 CHECKS (LOC,C4,-1,-3)^ 5120 5121 034464 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5122 034465 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 5123 034466 254 00 0 00 034472 JRST ..0301 ;NO - GO TO ERROR HANDLING 5124 034467 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5125 034470 316 02 0 00 042036 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT? 5126 034471 254 00 0 00 034475 JRST ..0302+1 ;YES - DONT DO ERROR HANDLING 5127 ; EXCEPT FOR ERLOOP 5128 5129 034472 200 14 0 13 000001 ..0301: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5130 034473 200 13 0 13 042037 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT 5131 034474 ..0302: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL 5132 034474 036 14 0 00 042046 5133 034475 035 00 0 00 034461 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5134 ^ 5135 ^ 5136 ; ************************************************ 5137 5138 5139 ; ************************************************ 5140 5141 034476 LOC=. ;ERROR RETURN ADDRESS 5142 035043 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5143 034476 200 15 0 00 042054 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5144 034477 120 01 0 00 035043 DMOVE AC1,CNUM ;INIT MINUEND 5145 034500 115 01 0 00 035045 DSUB AC1,CNUM+2 ;SUB N - P = -3 5146 CHECKS (LOC,C4,-1,-3)^ 5147 5148 034501 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5149 034502 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 5150 034503 254 00 0 00 034507 JRST ..0303 ;NO - GO TO ERROR HANDLING 5151 034504 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5152 034505 316 02 0 00 042036 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT? 5153 034506 254 00 0 00 034512 JRST ..0304+1 ;YES - DONT DO ERROR HANDLING 5154 ; EXCEPT FOR ERLOOP 5155 5156 034507 200 14 0 13 000001 ..0303: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5157 034510 200 13 0 13 042037 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT 5158 034511 ..0304: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL 5159 034511 036 14 0 00 042046 5160 034512 035 00 0 00 034476 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5161 ^ 5162 ^ 5163 ; ************************************************ 5164 5165 5166 ; ************************************************ 5167 5168 034513 LOC=. ;ERROR RETURN ADDRESS 5169 035047 CNUM=CNUM+4 ;SUBRESS OF TEST DATA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-13 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0132 5170 034513 200 15 0 00 042055 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5171 034514 120 01 0 00 035047 DMOVE AC1,CNUM ;INIT MINUEND 5172 034515 115 01 0 00 035051 DSUB AC1,CNUM+2 ;SUB N - P = -3 5173 CHECKS (LOC,C4,-1,-3)^ 5174 5175 034516 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5176 034517 312 01 0 00 041166 CAME AC1,[-1] ;IS LEFT HALF OF RESULT CORRECT? 5177 034520 254 00 0 00 034524 JRST ..0305 ;NO - GO TO ERROR HANDLING 5178 034521 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5179 034522 316 02 0 00 042036 CAMN AC1+1,[-3] ;IS RIGHT HALF CORRECT? 5180 034523 254 00 0 00 034527 JRST ..0306+1 ;YES - DONT DO ERROR HANDLING 5181 ; EXCEPT FOR ERLOOP 5182 5183 034524 200 14 0 13 000001 ..0305: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5184 034525 200 13 0 13 042037 MOVE SCR1,[EXP -1,-3](SCR1) ;GET CORRECT RESULT 5185 034526 ..0306: ERROR (LOC,14,SCR1,SCR2,,TEST C4 - RESULT IS INCORRECT,SPRINT)^SALL 5186 034526 036 14 0 00 042046 5187 034527 035 00 0 00 034513 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5188 ^ 5189 ^ 5190 ; ************************************************ 5191 5192 ; ********************************************************************** 5193 ; ---------- DSUB - TEST C-5: P - N = 3 ---------- 5194 ; ********************************************************************** 5195 5196 035047 CNUM=SCONC5-4 5197 5198 REPEAT 6,< 5199 ; ************************************************ 5200 5201 LOC=. ;ERROR RETURN ADDRESS 5202 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5203 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5204 DMOVE AC1,CNUM ;INIT MINUEND 5205 DSUB AC1,CNUM+2 ;SUB N - P = 3 5206 CHECKS (LOC,C5,0,3) 5207 ; ************************************************ 5208 > 5209 5210 ; ************************************************ 5211 5212 034530 LOC=. ;ERROR RETURN ADDRESS 5213 035053 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5214 034530 200 15 0 00 042056 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5215 034531 120 01 0 00 035053 DMOVE AC1,CNUM ;INIT MINUEND 5216 034532 115 01 0 00 035055 DSUB AC1,CNUM+2 ;SUB N - P = 3 5217 CHECKS (LOC,C5,0,3)^ 5218 5219 034533 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5220 034534 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 5221 034535 254 00 0 00 034541 JRST ..0307 ;NO - GO TO ERROR HANDLING 5222 034536 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5223 034537 316 02 0 00 042057 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT? 5224 034540 254 00 0 00 034544 JRST ..0310+1 ;YES - DONT DO ERROR HANDLING DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-14 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0133 5225 ; EXCEPT FOR ERLOOP 5226 5227 034541 200 14 0 13 000001 ..0307: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5228 034542 200 13 0 13 042060 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT 5229 034543 ..0310: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL 5230 034543 036 14 0 00 042067 5231 034544 035 00 0 00 034530 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5232 ^ 5233 ^ 5234 ; ************************************************ 5235 5236 5237 ; ************************************************ 5238 5239 034545 LOC=. ;ERROR RETURN ADDRESS 5240 035057 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5241 034545 200 15 0 00 042072 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5242 034546 120 01 0 00 035057 DMOVE AC1,CNUM ;INIT MINUEND 5243 034547 115 01 0 00 035061 DSUB AC1,CNUM+2 ;SUB N - P = 3 5244 CHECKS (LOC,C5,0,3)^ 5245 5246 034550 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5247 034551 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 5248 034552 254 00 0 00 034556 JRST ..0311 ;NO - GO TO ERROR HANDLING 5249 034553 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5250 034554 316 02 0 00 042057 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT? 5251 034555 254 00 0 00 034561 JRST ..0312+1 ;YES - DONT DO ERROR HANDLING 5252 ; EXCEPT FOR ERLOOP 5253 5254 034556 200 14 0 13 000001 ..0311: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5255 034557 200 13 0 13 042060 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT 5256 034560 ..0312: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL 5257 034560 036 14 0 00 042067 5258 034561 035 00 0 00 034545 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5259 ^ 5260 ^ 5261 ; ************************************************ 5262 5263 5264 ; ************************************************ 5265 5266 034562 LOC=. ;ERROR RETURN ADDRESS 5267 035063 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5268 034562 200 15 0 00 042073 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5269 034563 120 01 0 00 035063 DMOVE AC1,CNUM ;INIT MINUEND 5270 034564 115 01 0 00 035065 DSUB AC1,CNUM+2 ;SUB N - P = 3 5271 CHECKS (LOC,C5,0,3)^ 5272 5273 034565 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5274 034566 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 5275 034567 254 00 0 00 034573 JRST ..0313 ;NO - GO TO ERROR HANDLING 5276 034570 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5277 034571 316 02 0 00 042057 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT? 5278 034572 254 00 0 00 034576 JRST ..0314+1 ;YES - DONT DO ERROR HANDLING 5279 ; EXCEPT FOR ERLOOP DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-15 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0134 5280 5281 034573 200 14 0 13 000001 ..0313: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5282 034574 200 13 0 13 042060 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT 5283 034575 ..0314: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL 5284 034575 036 14 0 00 042067 5285 034576 035 00 0 00 034562 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5286 ^ 5287 ^ 5288 ; ************************************************ 5289 5290 5291 ; ************************************************ 5292 5293 034577 LOC=. ;ERROR RETURN ADDRESS 5294 035067 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5295 034577 200 15 0 00 042074 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5296 034600 120 01 0 00 035067 DMOVE AC1,CNUM ;INIT MINUEND 5297 034601 115 01 0 00 035071 DSUB AC1,CNUM+2 ;SUB N - P = 3 5298 CHECKS (LOC,C5,0,3)^ 5299 5300 034602 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5301 034603 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 5302 034604 254 00 0 00 034610 JRST ..0315 ;NO - GO TO ERROR HANDLING 5303 034605 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5304 034606 316 02 0 00 042057 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT? 5305 034607 254 00 0 00 034613 JRST ..0316+1 ;YES - DONT DO ERROR HANDLING 5306 ; EXCEPT FOR ERLOOP 5307 5308 034610 200 14 0 13 000001 ..0315: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5309 034611 200 13 0 13 042060 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT 5310 034612 ..0316: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL 5311 034612 036 14 0 00 042067 5312 034613 035 00 0 00 034577 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5313 ^ 5314 ^ 5315 ; ************************************************ 5316 5317 5318 ; ************************************************ 5319 5320 034614 LOC=. ;ERROR RETURN ADDRESS 5321 035073 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5322 034614 200 15 0 00 042075 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5323 034615 120 01 0 00 035073 DMOVE AC1,CNUM ;INIT MINUEND 5324 034616 115 01 0 00 035075 DSUB AC1,CNUM+2 ;SUB N - P = 3 5325 CHECKS (LOC,C5,0,3)^ 5326 5327 034617 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5328 034620 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 5329 034621 254 00 0 00 034625 JRST ..0317 ;NO - GO TO ERROR HANDLING 5330 034622 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5331 034623 316 02 0 00 042057 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT? 5332 034624 254 00 0 00 034630 JRST ..0320+1 ;YES - DONT DO ERROR HANDLING 5333 ; EXCEPT FOR ERLOOP 5334 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-16 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0135 5335 034625 200 14 0 13 000001 ..0317: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5336 034626 200 13 0 13 042060 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT 5337 034627 ..0320: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL 5338 034627 036 14 0 00 042067 5339 034630 035 00 0 00 034614 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5340 ^ 5341 ^ 5342 ; ************************************************ 5343 5344 5345 ; ************************************************ 5346 5347 034631 LOC=. ;ERROR RETURN ADDRESS 5348 035077 CNUM=CNUM+4 ;SUBRESS OF TEST DATA 5349 034631 200 15 0 00 042076 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5350 034632 120 01 0 00 035077 DMOVE AC1,CNUM ;INIT MINUEND 5351 034633 115 01 0 00 035101 DSUB AC1,CNUM+2 ;SUB N - P = 3 5352 CHECKS (LOC,C5,0,3)^ 5353 5354 034634 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5355 034635 312 01 0 00 041020 CAME AC1,[0] ;IS LEFT HALF OF RESULT CORRECT? 5356 034636 254 00 0 00 034642 JRST ..0321 ;NO - GO TO ERROR HANDLING 5357 034637 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5358 034640 316 02 0 00 042057 CAMN AC1+1,[3] ;IS RIGHT HALF CORRECT? 5359 034641 254 00 0 00 034645 JRST ..0322+1 ;YES - DONT DO ERROR HANDLING 5360 ; EXCEPT FOR ERLOOP 5361 5362 034642 200 14 0 13 000001 ..0321: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5363 034643 200 13 0 13 042060 MOVE SCR1,[EXP 0,3](SCR1) ;GET CORRECT RESULT 5364 034644 ..0322: ERROR (LOC,14,SCR1,SCR2,,TEST C5 - RESULT IS INCORRECT,SPRINT)^SALL 5365 034644 036 14 0 00 042067 5366 034645 035 00 0 00 034631 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5367 ^ 5368 ^ 5369 ; ************************************************ 5370 5371 034646 254 00 0 00 035103 JRST SENDC ;SKIP OVER DATA 5372 5373 034647 000000 000000 SCONC1: EXP 0,0,0,1B0,0,0 5374 034650 000000 000000 5375 034651 000000 000000 5376 034652 400000 000000 5377 034653 000000 000000 5378 034654 000000 000000 5379 034655 000000 000000 EXP 0,1B0,0,1,-1,-1 5380 034656 400000 000000 5381 034657 000000 000000 5382 034660 000000 000001 5383 034661 777777 777777 5384 034662 777777 777777 5385 034663 000000 000000 EXP 0,1B0,0,1B0+1,-1,-1 5386 034664 400000 000000 5387 034665 000000 000000 5388 034666 400000 000001 5389 034667 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-17 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0136 5390 034670 777777 777777 5391 034671 000000 000000 EXP 0,0,-1,377777777777,0,1 5392 034672 000000 000000 5393 034673 777777 777777 5394 034674 377777 777777 5395 034675 000000 000000 5396 034676 000000 000001 5397 034677 000000 000000 EXP 0,1B0,-1,377777777777,0,1 5398 034700 400000 000000 5399 034701 777777 777777 5400 034702 377777 777777 5401 034703 000000 000000 5402 034704 000000 000001 5403 034705 000000 000000 EXP 0,1B0,-1,-1,0,1 5404 034706 400000 000000 5405 034707 777777 777777 5406 034710 777777 777777 5407 034711 000000 000000 5408 034712 000000 000001 5409 5410 034713 777777 777777 SCONC2: EXP -1,377777777777,-2,-1,1,0 5411 034714 377777 777777 5412 034715 777777 777776 5413 034716 777777 777777 5414 034717 000000 000001 5415 034720 000000 000000 5416 034721 777777 777777 EXP -1,377777777777,-2,377777777777,1,0 5417 034722 377777 777777 5418 034723 777777 777776 5419 034724 377777 777777 5420 034725 000000 000001 5421 034726 000000 000000 5422 034727 777777 777777 EXP -1,-1,-2,377777777777,1,0 5423 034730 777777 777777 5424 034731 777777 777776 5425 034732 377777 777777 5426 034733 000000 000001 5427 034734 000000 000000 5428 034735 777777 777776 EXP -2,-1,-1,377777777777,-1,1B0 5429 034736 777777 777777 5430 034737 777777 777777 5431 034740 377777 777777 5432 034741 777777 777777 5433 034742 400000 000000 5434 034743 777777 777776 EXP -2,377777777777,-1,377777777777,-1,1B0 5435 034744 377777 777777 5436 034745 777777 777777 5437 034746 377777 777777 5438 034747 777777 777777 5439 034750 400000 000000 5440 034751 777777 777776 EXP -2,377777777777,-1,-1,-1,1B0 5441 034752 377777 777777 5442 034753 777777 777777 5443 034754 777777 777777 5444 034755 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-18 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0137 5445 034756 400000 000000 5446 5447 034757 000000 000000 SCONC3: EXP 0,1B0+1,1,0,-1,1B0+1 5448 034760 400000 000001 5449 034761 000000 000001 5450 034762 000000 000000 5451 034763 777777 777777 5452 034764 400000 000001 5453 034765 000000 000000 EXP 0,1B0+1,1,1B0,-1,1B0+1 5454 034766 400000 000001 5455 034767 000000 000001 5456 034770 400000 000000 5457 034771 777777 777777 5458 034772 400000 000001 5459 034773 000000 000000 EXP 0,1,1,1B0,-1,1B0+1 5460 034774 000000 000001 5461 034775 000000 000001 5462 034776 400000 000000 5463 034777 777777 777777 5464 035000 400000 000001 5465 035001 000000 000001 EXP 1,0,0,1B0+1,0,377777777777 5466 035002 000000 000000 5467 035003 000000 000000 5468 035004 400000 000001 5469 035005 000000 000000 5470 035006 377777 777777 5471 035007 000000 000001 EXP 1,1B0,0,1B0+1,0,377777777777 5472 035010 400000 000000 5473 035011 000000 000000 5474 035012 400000 000001 5475 035013 000000 000000 5476 035014 377777 777777 5477 035015 000000 000001 EXP 1,1B0,0,1,0,377777777777 5478 035016 400000 000000 5479 035017 000000 000000 5480 035020 000000 000001 5481 035021 000000 000000 5482 035022 377777 777777 5483 5484 035023 777777 777777 SCONC4: EXP -1,377777777776,0,1 5485 035024 377777 777776 5486 035025 000000 000000 5487 035026 000000 000001 5488 035027 777777 777777 EXP -1,377777777776,0,1B0+1 5489 035030 377777 777776 5490 035031 000000 000000 5491 035032 400000 000001 5492 035033 777777 777777 EXP -1,-2,0,1B0+1 5493 035034 777777 777776 5494 035035 000000 000000 5495 035036 400000 000001 5496 035037 777777 777777 EXP -1,377777777777,0,2 5497 035040 377777 777777 5498 035041 000000 000000 5499 035042 000000 000002 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 16-19 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST C SEQ 0138 5500 035043 777777 777777 EXP -1,377777777777,0,1B0+2 5501 035044 377777 777777 5502 035045 000000 000000 5503 035046 400000 000002 5504 035047 777777 777777 EXP -1,-1,0,1B0+2 5505 035050 777777 777777 5506 035051 000000 000000 5507 035052 400000 000002 5508 035053 000000 000000 SCONC5: EXP 0,1,-1,377777777776 5509 035054 000000 000001 5510 035055 777777 777777 5511 035056 377777 777776 5512 035057 000000 000000 EXP 0,1B0+1,-1,377777777776 5513 035060 400000 000001 5514 035061 777777 777777 5515 035062 377777 777776 5516 035063 000000 000000 EXP 0,1B0+1,-1,-2 5517 035064 400000 000001 5518 035065 777777 777777 5519 035066 777777 777776 5520 035067 000000 000000 EXP 0,2,-1,377777777777 5521 035070 000000 000002 5522 035071 777777 777777 5523 035072 377777 777777 5524 035073 000000 000000 EXP 0,1B0+2,-1,377777777777 5525 035074 400000 000002 5526 035075 777777 777777 5527 035076 377777 777777 5528 035077 000000 000000 EXP 0,1B0+2,-1,-1 5529 035100 400000 000002 5530 035101 777777 777777 5531 035102 777777 777777 5532 035103 SENDC: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0139 5533 SUBTTL DSUB - TEST D 5534 5535 ; ********************************************************************** 5536 ;*DSUB - TEST D 5537 ;* 5538 ;* 2**N - (-2**70 + 2**N) = 1000... (AROV & CARRY 1 SET) 5539 ;* (-2**70 + 2**N) - 2**N = 1000... (AROV & CARRY 1 SET) 5540 ;* -2**N - (2**70 - 2**N + 1) = 0111... (AROV & CARRY 0 SET) 5541 ;* (2**70 - 2**N + 1) - -2**N = 0111... (AROV & CARRY 0 SET) 5542 ; ********************************************************************** 5543 5544 ; ********************************************************************** 5545 ;* THE FOLLOWING SECTION OF CODE IS REPEATED 8 TIMES. THE FIRST 5546 ;* 4 TESTS FLOAT A 1 ACROSS A DOUBLEWORD IN BITS 1,35,37,71. 5547 ;* FROM THIS NUMBER IS SUBTRACTED THE SMALLEST (MAGNITUDE) 5548 ;* NEGATIVE INTEGER WHICH WILL PRODUCE AN OVERFLOW - THE RESULT 5549 ;* IS A DOUBLEWORD OF 0'S WITH 1 IN THE SIGN BIT - WITH OVERFLOW 5550 ;* & CARRY 1 SET. THE NEXT 4 TESTS FLOAT A 0 ACROSS A DOUBLE- 5551 ;* WORD IN BITS 1,35,37,71 (A NEG NUMBER). FROM THIS NUMBER IS 5552 ;* SUBTRACTED THE SMALLEST POSITIVE INTEGER WHICH WILL PRODUCE 5553 ;* AN OVERFLOW - THE RESULT IS A DOUBLEWORD OF 1S WITH A 0 IN 5554 ;* THE SIGN BIT - WITH OVERFLOW AND CARRY 0 SET. 5555 ;* THE DOUBLEWORDS USED IN THIS TEST ARE LOCATED IN THE LIST 5556 ;* 'SCOND'. 5557 ; ********************************************************************** 5558 5559 035370 CNUM=SCOND-4 ;POINTER TO THE DOUBLEWORDS TO 5560 ; BE SUBTRACTED 5561 000000 REP=0 ;REPETITION COUNT 5562 400000 000000 RESULT=1B0 ;1B0 FOR 1ST 4 / 377.. FOR 2ND 4 5563 500000 000000 FLAGS=^B1010B3 ;AROV,CRY0,CRY1,FOV 5564 5565 REPEAT ^D8,< 5566 ; ************************************************ 5567 5568 LOC=. ;ERROR LOOP RETURN ADDRESS 5569 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5570 REP=REP+1 ;REPETITION COUNT 5571 IFG REP-4, ;LARGEST POSITIVE NUMBER 5573 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5574 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5575 JFCL 17,.+1 ;CLEAR PC FLAGS 5576 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5577 PCSAVE 5578 CHECKS (LOC,D,RESULT,RESULT) 5579 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5580 TFLAG ([FLAGS],D,SPRINT) 5581 ; ************************************************ 5582 > 5583 5584 ; ************************************************ 5585 5586 035103 LOC=. ;ERROR LOOP RETURN ADDRESS 5587 035374 CNUM=CNUM+4 ;POINT TO THE TEST CASE DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-1 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0140 5588 000001 REP=REP+1 ;REPETITION COUNT 5589 IFG REP-4, ;LARGEST POSITIVE NUMBER 5591 035103 200 15 0 00 042077 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5592 035104 120 01 0 00 035374 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5593 035105 255 17 0 00 035106 JFCL 17,.+1 ;CLEAR PC FLAGS 5594 035106 115 01 0 00 035376 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5595 PCSAVE^ 5596 035107 264 00 0 00 035110 JSR .+1 ;STORE PC 5597 035110 FLAGL=. ;LOCATION OF PC 5598 035110 000000 000000 0 ;PC 5599 ^ 5600 CHECKS (LOC,D,RESULT,RESULT)^ 5601 5602 035111 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5603 035112 312 01 0 00 041725 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5604 035113 254 00 0 00 035117 JRST ..0323 ;NO - GO TO ERROR HANDLING 5605 035114 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5606 035115 316 02 0 00 041725 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5607 035116 254 00 0 00 035122 JRST ..0324+1 ;YES - DONT DO ERROR HANDLING 5608 ; EXCEPT FOR ERLOOP 5609 5610 035117 200 14 0 13 000001 ..0323: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5611 035120 200 13 0 13 042100 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5612 035121 ..0324: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5613 035121 036 14 0 00 042107 5614 035122 035 00 0 00 035103 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5615 ^ 5616 ^ 5617 035123 200 15 0 00 042077 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5618 TFLAG ([FLAGS],D,SPRINT)^ 5619 5620 035124 200 13 0 00 035110 MOVE SCR1,FLAGL ;GET FLAGS 5621 035125 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5622 035126 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5623 035127 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5624 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5625 035130 036 13 0 00 042121 5626 035131 035 00 0 00 035103 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5627 ^ 5628 ^ 5629 ; ************************************************ 5630 5631 5632 ; ************************************************ 5633 5634 035132 LOC=. ;ERROR LOOP RETURN ADDRESS 5635 035400 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5636 000002 REP=REP+1 ;REPETITION COUNT 5637 IFG REP-4, ;LARGEST POSITIVE NUMBER 5639 035132 200 15 0 00 042124 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5640 035133 120 01 0 00 035400 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5641 035134 255 17 0 00 035135 JFCL 17,.+1 ;CLEAR PC FLAGS 5642 035135 115 01 0 00 035402 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-2 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0141 5643 PCSAVE^ 5644 035136 264 00 0 00 035137 JSR .+1 ;STORE PC 5645 035137 FLAGL=. ;LOCATION OF PC 5646 035137 000000 000000 0 ;PC 5647 ^ 5648 CHECKS (LOC,D,RESULT,RESULT)^ 5649 5650 035140 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5651 035141 312 01 0 00 041725 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5652 035142 254 00 0 00 035146 JRST ..0325 ;NO - GO TO ERROR HANDLING 5653 035143 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5654 035144 316 02 0 00 041725 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5655 035145 254 00 0 00 035151 JRST ..0326+1 ;YES - DONT DO ERROR HANDLING 5656 ; EXCEPT FOR ERLOOP 5657 5658 035146 200 14 0 13 000001 ..0325: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5659 035147 200 13 0 13 042100 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5660 035150 ..0326: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5661 035150 036 14 0 00 042107 5662 035151 035 00 0 00 035132 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5663 ^ 5664 ^ 5665 035152 200 15 0 00 042124 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5666 TFLAG ([FLAGS],D,SPRINT)^ 5667 5668 035153 200 13 0 00 035137 MOVE SCR1,FLAGL ;GET FLAGS 5669 035154 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5670 035155 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5671 035156 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5672 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5673 035157 036 13 0 00 042125 5674 035160 035 00 0 00 035132 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5675 ^ 5676 ^ 5677 ; ************************************************ 5678 5679 5680 ; ************************************************ 5681 5682 035161 LOC=. ;ERROR LOOP RETURN ADDRESS 5683 035404 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5684 000003 REP=REP+1 ;REPETITION COUNT 5685 IFG REP-4, ;LARGEST POSITIVE NUMBER 5687 035161 200 15 0 00 042130 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5688 035162 120 01 0 00 035404 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5689 035163 255 17 0 00 035164 JFCL 17,.+1 ;CLEAR PC FLAGS 5690 035164 115 01 0 00 035406 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5691 PCSAVE^ 5692 035165 264 00 0 00 035166 JSR .+1 ;STORE PC 5693 035166 FLAGL=. ;LOCATION OF PC 5694 035166 000000 000000 0 ;PC 5695 ^ 5696 CHECKS (LOC,D,RESULT,RESULT)^ 5697 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-3 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0142 5698 035167 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5699 035170 312 01 0 00 041725 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5700 035171 254 00 0 00 035175 JRST ..0327 ;NO - GO TO ERROR HANDLING 5701 035172 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5702 035173 316 02 0 00 041725 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5703 035174 254 00 0 00 035200 JRST ..0330+1 ;YES - DONT DO ERROR HANDLING 5704 ; EXCEPT FOR ERLOOP 5705 5706 035175 200 14 0 13 000001 ..0327: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5707 035176 200 13 0 13 042100 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5708 035177 ..0330: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5709 035177 036 14 0 00 042107 5710 035200 035 00 0 00 035161 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5711 ^ 5712 ^ 5713 035201 200 15 0 00 042130 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5714 TFLAG ([FLAGS],D,SPRINT)^ 5715 5716 035202 200 13 0 00 035166 MOVE SCR1,FLAGL ;GET FLAGS 5717 035203 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5718 035204 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5719 035205 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5720 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5721 035206 036 13 0 00 042131 5722 035207 035 00 0 00 035161 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5723 ^ 5724 ^ 5725 ; ************************************************ 5726 5727 5728 ; ************************************************ 5729 5730 035210 LOC=. ;ERROR LOOP RETURN ADDRESS 5731 035410 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5732 000004 REP=REP+1 ;REPETITION COUNT 5733 IFG REP-4, ;LARGEST POSITIVE NUMBER 5735 035210 200 15 0 00 042134 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5736 035211 120 01 0 00 035410 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5737 035212 255 17 0 00 035213 JFCL 17,.+1 ;CLEAR PC FLAGS 5738 035213 115 01 0 00 035412 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5739 PCSAVE^ 5740 035214 264 00 0 00 035215 JSR .+1 ;STORE PC 5741 035215 FLAGL=. ;LOCATION OF PC 5742 035215 000000 000000 0 ;PC 5743 ^ 5744 CHECKS (LOC,D,RESULT,RESULT)^ 5745 5746 035216 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5747 035217 312 01 0 00 041725 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5748 035220 254 00 0 00 035224 JRST ..0331 ;NO - GO TO ERROR HANDLING 5749 035221 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5750 035222 316 02 0 00 041725 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5751 035223 254 00 0 00 035227 JRST ..0332+1 ;YES - DONT DO ERROR HANDLING 5752 ; EXCEPT FOR ERLOOP DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-4 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0143 5753 5754 035224 200 14 0 13 000001 ..0331: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5755 035225 200 13 0 13 042100 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5756 035226 ..0332: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5757 035226 036 14 0 00 042107 5758 035227 035 00 0 00 035210 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5759 ^ 5760 ^ 5761 035230 200 15 0 00 042134 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5762 TFLAG ([FLAGS],D,SPRINT)^ 5763 5764 035231 200 13 0 00 035215 MOVE SCR1,FLAGL ;GET FLAGS 5765 035232 200 14 0 00 041634 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5766 035233 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5767 035234 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5768 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5769 035235 036 13 0 00 042135 5770 035236 035 00 0 00 035210 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5771 ^ 5772 ^ 5773 ; ************************************************ 5774 5775 5776 ; ************************************************ 5777 5778 035237 LOC=. ;ERROR LOOP RETURN ADDRESS 5779 035414 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5780 000005 REP=REP+1 ;REPETITION COUNT 5781 600000 000000 IFG REP-4, ;LARGEST POSITIVE NUMBER 5783 035237 200 15 0 00 042140 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5784 035240 120 01 0 00 035414 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5785 035241 255 17 0 00 035242 JFCL 17,.+1 ;CLEAR PC FLAGS 5786 035242 115 01 0 00 035416 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5787 PCSAVE^ 5788 035243 264 00 0 00 035244 JSR .+1 ;STORE PC 5789 035244 FLAGL=. ;LOCATION OF PC 5790 035244 000000 000000 0 ;PC 5791 ^ 5792 CHECKS (LOC,D,RESULT,RESULT)^ 5793 5794 035245 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5795 035246 312 01 0 00 042141 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5796 035247 254 00 0 00 035253 JRST ..0333 ;NO - GO TO ERROR HANDLING 5797 035250 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5798 035251 316 02 0 00 042141 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5799 035252 254 00 0 00 035256 JRST ..0334+1 ;YES - DONT DO ERROR HANDLING 5800 ; EXCEPT FOR ERLOOP 5801 5802 035253 200 14 0 13 000001 ..0333: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5803 035254 200 13 0 13 042141 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5804 035255 ..0334: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5805 035255 036 14 0 00 042107 5806 035256 035 00 0 00 035237 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5807 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-5 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0144 5808 ^ 5809 035257 200 15 0 00 042140 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5810 TFLAG ([FLAGS],D,SPRINT)^ 5811 5812 035260 200 13 0 00 035244 MOVE SCR1,FLAGL ;GET FLAGS 5813 035261 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5814 035262 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5815 035263 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5816 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5817 035264 036 13 0 00 042143 5818 035265 035 00 0 00 035237 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5819 ^ 5820 ^ 5821 ; ************************************************ 5822 5823 5824 ; ************************************************ 5825 5826 035266 LOC=. ;ERROR LOOP RETURN ADDRESS 5827 035420 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5828 000006 REP=REP+1 ;REPETITION COUNT 5829 600000 000000 IFG REP-4, ;LARGEST POSITIVE NUMBER 5831 035266 200 15 0 00 042146 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5832 035267 120 01 0 00 035420 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5833 035270 255 17 0 00 035271 JFCL 17,.+1 ;CLEAR PC FLAGS 5834 035271 115 01 0 00 035422 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5835 PCSAVE^ 5836 035272 264 00 0 00 035273 JSR .+1 ;STORE PC 5837 035273 FLAGL=. ;LOCATION OF PC 5838 035273 000000 000000 0 ;PC 5839 ^ 5840 CHECKS (LOC,D,RESULT,RESULT)^ 5841 5842 035274 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5843 035275 312 01 0 00 042141 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5844 035276 254 00 0 00 035302 JRST ..0335 ;NO - GO TO ERROR HANDLING 5845 035277 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5846 035300 316 02 0 00 042141 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5847 035301 254 00 0 00 035305 JRST ..0336+1 ;YES - DONT DO ERROR HANDLING 5848 ; EXCEPT FOR ERLOOP 5849 5850 035302 200 14 0 13 000001 ..0335: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5851 035303 200 13 0 13 042141 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5852 035304 ..0336: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5853 035304 036 14 0 00 042107 5854 035305 035 00 0 00 035266 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5855 ^ 5856 ^ 5857 035306 200 15 0 00 042146 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5858 TFLAG ([FLAGS],D,SPRINT)^ 5859 5860 035307 200 13 0 00 035273 MOVE SCR1,FLAGL ;GET FLAGS 5861 035310 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5862 035311 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-6 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0145 5863 035312 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5864 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5865 035313 036 13 0 00 042147 5866 035314 035 00 0 00 035266 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5867 ^ 5868 ^ 5869 ; ************************************************ 5870 5871 5872 ; ************************************************ 5873 5874 035315 LOC=. ;ERROR LOOP RETURN ADDRESS 5875 035424 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5876 000007 REP=REP+1 ;REPETITION COUNT 5877 600000 000000 IFG REP-4, ;LARGEST POSITIVE NUMBER 5879 035315 200 15 0 00 042152 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5880 035316 120 01 0 00 035424 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5881 035317 255 17 0 00 035320 JFCL 17,.+1 ;CLEAR PC FLAGS 5882 035320 115 01 0 00 035426 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5883 PCSAVE^ 5884 035321 264 00 0 00 035322 JSR .+1 ;STORE PC 5885 035322 FLAGL=. ;LOCATION OF PC 5886 035322 000000 000000 0 ;PC 5887 ^ 5888 CHECKS (LOC,D,RESULT,RESULT)^ 5889 5890 035323 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5891 035324 312 01 0 00 042141 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5892 035325 254 00 0 00 035331 JRST ..0337 ;NO - GO TO ERROR HANDLING 5893 035326 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5894 035327 316 02 0 00 042141 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5895 035330 254 00 0 00 035334 JRST ..0340+1 ;YES - DONT DO ERROR HANDLING 5896 ; EXCEPT FOR ERLOOP 5897 5898 035331 200 14 0 13 000001 ..0337: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5899 035332 200 13 0 13 042141 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5900 035333 ..0340: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5901 035333 036 14 0 00 042107 5902 035334 035 00 0 00 035315 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5903 ^ 5904 ^ 5905 035335 200 15 0 00 042152 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5906 TFLAG ([FLAGS],D,SPRINT)^ 5907 5908 035336 200 13 0 00 035322 MOVE SCR1,FLAGL ;GET FLAGS 5909 035337 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5910 035340 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5911 035341 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5912 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5913 035342 036 13 0 00 042153 5914 035343 035 00 0 00 035315 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5915 ^ 5916 ^ 5917 ; ************************************************ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-7 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0146 5918 5919 5920 ; ************************************************ 5921 5922 035344 LOC=. ;ERROR LOOP RETURN ADDRESS 5923 035430 CNUM=CNUM+4 ;POINT TO THE TEST CASE 5924 000010 REP=REP+1 ;REPETITION COUNT 5925 600000 000000 IFG REP-4, ;LARGEST POSITIVE NUMBER 5927 035344 200 15 0 00 042156 MOVE SCR3,[CNUM,,CNUM+2] ;ADDRESS OF ADDL ERROR PRINT 5928 035345 120 01 0 00 035430 DMOVE AC1,CNUM ;INIT MINUEND TO FLOATING 0/1 5929 035346 255 17 0 00 035347 JFCL 17,.+1 ;CLEAR PC FLAGS 5930 035347 115 01 0 00 035432 DSUB AC1,CNUM+2 ;MAKE IT OVERFLOW (POS OR NEG) 5931 PCSAVE^ 5932 035350 264 00 0 00 035351 JSR .+1 ;STORE PC 5933 035351 FLAGL=. ;LOCATION OF PC 5934 035351 000000 000000 0 ;PC 5935 ^ 5936 CHECKS (LOC,D,RESULT,RESULT)^ 5937 5938 035352 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD IN ERROR 5939 035353 312 01 0 00 042141 CAME AC1,[RESULT] ;IS LEFT HALF OF RESULT CORRECT? 5940 035354 254 00 0 00 035360 JRST ..0341 ;NO - GO TO ERROR HANDLING 5941 035355 201 13 0 00 000001 MOVEI SCR1,1 ;YES, POINTER TO RIGHT HALF 5942 035356 316 02 0 00 042141 CAMN AC1+1,[RESULT] ;IS RIGHT HALF CORRECT? 5943 035357 254 00 0 00 035363 JRST ..0342+1 ;YES - DONT DO ERROR HANDLING 5944 ; EXCEPT FOR ERLOOP 5945 5946 035360 200 14 0 13 000001 ..0341: MOVE SCR2,AC1(SCR1) ;GET ACTUAL WORD OF RESULT 5947 035361 200 13 0 13 042141 MOVE SCR1,[EXP RESULT,RESULT](SCR1) ;GET CORRECT RESULT 5948 035362 ..0342: ERROR (LOC,14,SCR1,SCR2,,TEST D - RESULT IS INCORRECT,SPRINT)^SALL 5949 035362 036 14 0 00 042107 5950 035363 035 00 0 00 035344 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5951 ^ 5952 ^ 5953 035364 200 15 0 00 042156 MOVE SCR3,[CNUM,,CNUM+2] ;SCR3 - ADDR OF ADDL ERROR PRINT 5954 TFLAG ([FLAGS],D,SPRINT)^ 5955 5956 035365 200 13 0 00 035351 MOVE SCR1,FLAGL ;GET FLAGS 5957 035366 200 14 0 00 041664 MOVE SCR2,[FLAGS] ;SCR2 - CORRECT FLAGS 5958 035367 430 13 0 00 000014 XOR SCR1,SCR2 ;SET ALL MATCHING BITS TO 0 5959 035370 603 13 0 00 740000 TLNE SCR1,740000 ;TEST IF MATCH CORRECTLY 5960 ERROR (LOC,13,SCR2,FLAGL,,TEST D - PC FLAGS INCORRECT (LEFT 4 BITS),SPRINT)^SALL 5961 035371 036 13 0 00 042157 5962 035372 035 00 0 00 035344 ERLOOP LOC ;IF ERROR, LOOP TO LOC 5963 ^ 5964 ^ 5965 ; ************************************************ 5966 5967 035373 254 00 0 00 035434 JRST SENDD ;SKIP OVER DATA 5968 5969 ; ********************************************************************** 5970 ; 8 SETS OF 3 DOUBLEWORDS (MINUEND,SUBTRAHEND,RESULT) 5971 ; ********************************************************************** 5972 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 17-8 DSKCFM MAC 26-Sep-79 15:49 DSUB - TEST D SEQ 0147 5973 035374 200000 000000 SCOND: EXP 1B1,0,^B11B1,0 5974 035375 000000 000000 5975 035376 600000 000000 5976 035377 000000 000000 5977 035400 000000 000001 EXP 1,0,1B0+1,0 5978 035401 000000 000000 5979 035402 400000 000001 5980 035403 000000 000000 5981 035404 000000 000000 EXP 0,1B1,1B0,1B1 5982 035405 200000 000000 5983 035406 400000 000000 5984 035407 200000 000000 5985 035410 000000 000000 EXP 0,1,1B0,1 5986 035411 000000 000001 5987 035412 400000 000000 5988 035413 000000 000001 5989 035414 577777 777777 EXP 577777777777,-1,1B1,0 5990 035415 777777 777777 5991 035416 200000 000000 5992 035417 000000 000000 5993 035420 777777 777776 EXP 777777777776,-1,377777777777,0 5994 035421 777777 777777 5995 035422 377777 777777 5996 035423 000000 000000 5997 035424 777777 777777 EXP -1,577777777777,377777777777,^B11B1 5998 035425 577777 777777 5999 035426 377777 777777 6000 035427 600000 000000 6001 035430 777777 777777 EXP -1,-2,377777777777,-1 6002 035431 777777 777776 6003 035432 377777 777777 6004 035433 777777 777777 6005 035434 SENDD: DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 18 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST A SEQ 0148 6006 SUBTTL DMUL - TEST A 6007 SALL 6008 042162 T=SIXBTZ 6009 LALL 6010 ; ********************************************************************** 6011 ;*DMUL - TEST A 6012 ;* 6013 ;* 0,# * 0 = 0 0 * 0,# = 0 THESE ARE GENERAL TESTS TO 6014 ;* #,0 * 0 = 0 0 * #,0 = 0 ASCERTAIN THAT THE DMUL CAN 6015 ;* #,# * 0 = 0 0 * #,# = 0 HANDLE DOUBLEWORDS. THE ACS 6016 ;* -1,-# * 0 = 0 0 * -1,-# = 0 WILL CONTAIN THE RESULT ARE 6017 ;* -#,0 * 0 = 0 0 * -#,0 = 0 FILLED WITH GARBAGE AND THE 6018 ;* -#,-# * 0 = 0 0 * -#,-# = 0 RESULT IS CHECKED TO SEE THAT 6019 ;* 0,0 * 0 = 0 DMUL PRODUCES A 4-WORD LONG 6020 ;* RESULT IN THE ACS. 6021 ; ********************************************************************** 6022 6023 ; ********************************************************************** 6024 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6025 ; ********************************************************************** 6026 6027 MULT (A,0,NUM)^ 6028 6029 ; --- MULTIPLICAND = (0,NUM) 6030 ; --- MULTIPLIER === (0,0) 6031 ; --- RESULT ======= (0,0,0,0) 6032 6033 035434 200 01 0 00 042174 ..0343: MOVE AC1,[[EXP 0,NUM,0,0,0,0,0,0],,MCAND] 6034 035435 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6035 035436 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6036 ERROR (..0343,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6037 035437 036 14 0 00 042204 6038 035440 035 00 0 00 035434 ERLOOP ..0343 ;IF ERROR, LOOP TO ..0343 6039 ^ 6040 ^ 6041 6042 ; ********************************************************************** 6043 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6044 ; ********************************************************************** 6045 6046 MULT (A,NUM)^ 6047 6048 ; --- MULTIPLICAND = (NUM,0) 6049 ; --- MULTIPLIER === (0,0) 6050 ; --- RESULT ======= (0,0,0,0) 6051 6052 035441 200 01 0 00 042217 ..0344: MOVE AC1,[[EXP NUM,0,0,0,0,0,0,0],,MCAND] 6053 035442 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6054 035443 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6055 ERROR (..0344,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6056 035444 036 14 0 00 042204 6057 035445 035 00 0 00 035441 ERLOOP ..0344 ;IF ERROR, LOOP TO ..0344 6058 ^ 6059 ^ 6060 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 18-1 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST A SEQ 0149 6061 ; ********************************************************************** 6062 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6063 ; ********************************************************************** 6064 6065 MULT (A,NUM,NUM)^ 6066 6067 ; --- MULTIPLICAND = (NUM,NUM) 6068 ; --- MULTIPLIER === (0,0) 6069 ; --- RESULT ======= (0,0,0,0) 6070 6071 035446 200 01 0 00 042230 ..0345: MOVE AC1,[[EXP NUM,NUM,0,0,0,0,0,0],,MCAND] 6072 035447 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6073 035450 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6074 ERROR (..0345,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6075 035451 036 14 0 00 042204 6076 035452 035 00 0 00 035446 ERLOOP ..0345 ;IF ERROR, LOOP TO ..0345 6077 ^ 6078 ^ 6079 6080 ; ********************************************************************** 6081 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6082 ; ********************************************************************** 6083 6084 MULT (A,0,0,0,NUM)^ 6085 6086 ; --- MULTIPLICAND = (0,0) 6087 ; --- MULTIPLIER === (0,NUM) 6088 ; --- RESULT ======= (0,0,0,0) 6089 6090 035453 200 01 0 00 042241 ..0346: MOVE AC1,[[EXP 0,0,0,NUM,0,0,0,0],,MCAND] 6091 035454 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6092 035455 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6093 ERROR (..0346,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6094 035456 036 14 0 00 042204 6095 035457 035 00 0 00 035453 ERLOOP ..0346 ;IF ERROR, LOOP TO ..0346 6096 ^ 6097 ^ 6098 6099 ; ********************************************************************** 6100 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6101 ; ********************************************************************** 6102 6103 MULT (A,0,0,NUM)^ 6104 6105 ; --- MULTIPLICAND = (0,0) 6106 ; --- MULTIPLIER === (NUM,0) 6107 ; --- RESULT ======= (0,0,0,0) 6108 6109 035460 200 01 0 00 042252 ..0347: MOVE AC1,[[EXP 0,0,NUM,0,0,0,0,0],,MCAND] 6110 035461 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6111 035462 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6112 ERROR (..0347,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6113 035463 036 14 0 00 042204 6114 035464 035 00 0 00 035460 ERLOOP ..0347 ;IF ERROR, LOOP TO ..0347 6115 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 18-2 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST A SEQ 0150 6116 ^ 6117 6118 ; ********************************************************************** 6119 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6120 ; ********************************************************************** 6121 6122 MULT (A,0,0,NUM,NUM)^ 6123 6124 ; --- MULTIPLICAND = (0,0) 6125 ; --- MULTIPLIER === (NUM,NUM) 6126 ; --- RESULT ======= (0,0,0,0) 6127 6128 035465 200 01 0 00 042263 ..0350: MOVE AC1,[[EXP 0,0,NUM,NUM,0,0,0,0],,MCAND] 6129 035466 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6130 035467 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6131 ERROR (..0350,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6132 035470 036 14 0 00 042204 6133 035471 035 00 0 00 035465 ERLOOP ..0350 ;IF ERROR, LOOP TO ..0350 6134 ^ 6135 ^ 6136 6137 ; ********************************************************************** 6138 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6139 ; ********************************************************************** 6140 6141 MULT (A,-1,-NUM)^ 6142 6143 ; --- MULTIPLICAND = (-1,-NUM) 6144 ; --- MULTIPLIER === (0,0) 6145 ; --- RESULT ======= (0,0,0,0) 6146 6147 035472 200 01 0 00 042274 ..0351: MOVE AC1,[[EXP -1,-NUM,0,0,0,0,0,0],,MCAND] 6148 035473 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6149 035474 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6150 ERROR (..0351,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6151 035475 036 14 0 00 042204 6152 035476 035 00 0 00 035472 ERLOOP ..0351 ;IF ERROR, LOOP TO ..0351 6153 ^ 6154 ^ 6155 6156 ; ********************************************************************** 6157 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6158 ; ********************************************************************** 6159 6160 MULT (A,-NUM,-1)^ 6161 6162 ; --- MULTIPLICAND = (-NUM,-1) 6163 ; --- MULTIPLIER === (0,0) 6164 ; --- RESULT ======= (0,0,0,0) 6165 6166 035477 200 01 0 00 042305 ..0352: MOVE AC1,[[EXP -NUM,-1,0,0,0,0,0,0],,MCAND] 6167 035500 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6168 035501 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6169 ERROR (..0352,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6170 035502 036 14 0 00 042204 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 18-3 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST A SEQ 0151 6171 035503 035 00 0 00 035477 ERLOOP ..0352 ;IF ERROR, LOOP TO ..0352 6172 ^ 6173 ^ 6174 6175 ; ********************************************************************** 6176 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6177 ; ********************************************************************** 6178 6179 MULT (A,-NUM,-NUM)^ 6180 6181 ; --- MULTIPLICAND = (-NUM,-NUM) 6182 ; --- MULTIPLIER === (0,0) 6183 ; --- RESULT ======= (0,0,0,0) 6184 6185 035504 200 01 0 00 042316 ..0353: MOVE AC1,[[EXP -NUM,-NUM,0,0,0,0,0,0],,MCAND] 6186 035505 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6187 035506 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6188 ERROR (..0353,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6189 035507 036 14 0 00 042204 6190 035510 035 00 0 00 035504 ERLOOP ..0353 ;IF ERROR, LOOP TO ..0353 6191 ^ 6192 ^ 6193 6194 ; ********************************************************************** 6195 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6196 ; ********************************************************************** 6197 6198 MULT (A,0,0,-1,-NUM)^ 6199 6200 ; --- MULTIPLICAND = (0,0) 6201 ; --- MULTIPLIER === (-1,-NUM) 6202 ; --- RESULT ======= (0,0,0,0) 6203 6204 035511 200 01 0 00 042327 ..0354: MOVE AC1,[[EXP 0,0,-1,-NUM,0,0,0,0],,MCAND] 6205 035512 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6206 035513 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6207 ERROR (..0354,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6208 035514 036 14 0 00 042204 6209 035515 035 00 0 00 035511 ERLOOP ..0354 ;IF ERROR, LOOP TO ..0354 6210 ^ 6211 ^ 6212 6213 ; ********************************************************************** 6214 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6215 ; ********************************************************************** 6216 6217 MULT (A,0,0,-NUM,-1)^ 6218 6219 ; --- MULTIPLICAND = (0,0) 6220 ; --- MULTIPLIER === (-NUM,-1) 6221 ; --- RESULT ======= (0,0,0,0) 6222 6223 035516 200 01 0 00 042340 ..0355: MOVE AC1,[[EXP 0,0,-NUM,-1,0,0,0,0],,MCAND] 6224 035517 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6225 035520 260 17 0 00 040451 GO MSUBR ;GO DO TEST DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 18-4 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST A SEQ 0152 6226 ERROR (..0355,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6227 035521 036 14 0 00 042204 6228 035522 035 00 0 00 035516 ERLOOP ..0355 ;IF ERROR, LOOP TO ..0355 6229 ^ 6230 ^ 6231 6232 ; ********************************************************************** 6233 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6234 ; ********************************************************************** 6235 6236 MULT (A,0,0,-NUM,-NUM)^ 6237 6238 ; --- MULTIPLICAND = (0,0) 6239 ; --- MULTIPLIER === (-NUM,-NUM) 6240 ; --- RESULT ======= (0,0,0,0) 6241 6242 035523 200 01 0 00 042351 ..0356: MOVE AC1,[[EXP 0,0,-NUM,-NUM,0,0,0,0],,MCAND] 6243 035524 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6244 035525 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6245 ERROR (..0356,14,SCR1,SCR2,,TEST A - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6246 035526 036 14 0 00 042204 6247 035527 035 00 0 00 035523 ERLOOP ..0356 ;IF ERROR, LOOP TO ..0356 6248 ^ 6249 ^ 6250 6251 ; ********************************************************************** 6252 ; ---------- DMUL - TEST A - # * 0 = 0 ---------- 6253 ; ********************************************************************** 6254 6255 MULT^ 6256 6257 ; --- MULTIPLICAND = (0,0) 6258 ; --- MULTIPLIER === (0,0) 6259 ; --- RESULT ======= (0,0,0,0) 6260 6261 035530 200 01 0 00 042362 ..0357: MOVE AC1,[[EXP 0,0,0,0,0,0,0,0],,MCAND] 6262 035531 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6263 035532 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6264 ERROR (..0357,14,SCR1,SCR2,,TEST - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6265 035533 036 14 0 00 042372 6266 035534 035 00 0 00 035530 ERLOOP ..0357 ;IF ERROR, LOOP TO ..0357 6267 ^ 6268 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 19 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST B SEQ 0153 6269 SUBTTL DMUL - TEST B 6270 6271 ; ********************************************************************** 6272 ;*DMUL - TEST B 6273 ;* 6274 ;* 0,# * 1 = 0,# THESE TEST THE DMUL ON A SLIGHTLY 6275 ;* #,0 * 1 = #,0 STEEPER GRADIENT. THIS WILL VERIFY 6276 ;* #,# * 1 = #,# THAT THE DMUL HANDLES DOUBLEWORDS AND 6277 ;* -1,-# * 1 = -1,-# A NON-ZERO MULTIPLIER. THESE TESTS ARE 6278 ;* -#,-1 * 1 = -#,-1 REPEATED WITH THE MULTIPLICAND AND THE 6279 ;* -#,-# * 1 = -#,-# MULTIPLIER REVERSED. 6280 ; ********************************************************************** 6281 6282 ; ********************************************************************** 6283 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6284 ; ********************************************************************** 6285 6286 MULT (B,0,NUM,0,1,0,0,0,NUM)^ 6287 6288 ; --- MULTIPLICAND = (0,NUM) 6289 ; --- MULTIPLIER === (0,1) 6290 ; --- RESULT ======= (0,0,0,NUM) 6291 6292 035535 200 01 0 00 042405 ..0360: MOVE AC1,[[EXP 0,NUM,0,1,0,0,0,NUM],,MCAND] 6293 035536 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6294 035537 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6295 ERROR (..0360,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6296 035540 036 14 0 00 042415 6297 035541 035 00 0 00 035535 ERLOOP ..0360 ;IF ERROR, LOOP TO ..0360 6298 ^ 6299 ^ 6300 6301 ; ********************************************************************** 6302 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6303 ; ********************************************************************** 6304 6305 MULT (B,NUM,0,0,1,0,0,NUM)^ 6306 6307 ; --- MULTIPLICAND = (NUM,0) 6308 ; --- MULTIPLIER === (0,1) 6309 ; --- RESULT ======= (0,0,NUM,0) 6310 6311 035542 200 01 0 00 042430 ..0361: MOVE AC1,[[EXP NUM,0,0,1,0,0,NUM,0],,MCAND] 6312 035543 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6313 035544 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6314 ERROR (..0361,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6315 035545 036 14 0 00 042415 6316 035546 035 00 0 00 035542 ERLOOP ..0361 ;IF ERROR, LOOP TO ..0361 6317 ^ 6318 ^ 6319 6320 ; ********************************************************************** 6321 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6322 ; ********************************************************************** 6323 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 19-1 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST B SEQ 0154 6324 MULT (B,NUM,NUM,0,1,0,0,NUM,NUM)^ 6325 6326 ; --- MULTIPLICAND = (NUM,NUM) 6327 ; --- MULTIPLIER === (0,1) 6328 ; --- RESULT ======= (0,0,NUM,NUM) 6329 6330 035547 200 01 0 00 042441 ..0362: MOVE AC1,[[EXP NUM,NUM,0,1,0,0,NUM,NUM],,MCAND] 6331 035550 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6332 035551 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6333 ERROR (..0362,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6334 035552 036 14 0 00 042415 6335 035553 035 00 0 00 035547 ERLOOP ..0362 ;IF ERROR, LOOP TO ..0362 6336 ^ 6337 ^ 6338 6339 ; ********************************************************************** 6340 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6341 ; ********************************************************************** 6342 6343 MULT (B,0,1,0,NUM,0,0,0,NUM)^ 6344 6345 ; --- MULTIPLICAND = (0,1) 6346 ; --- MULTIPLIER === (0,NUM) 6347 ; --- RESULT ======= (0,0,0,NUM) 6348 6349 035554 200 01 0 00 042452 ..0363: MOVE AC1,[[EXP 0,1,0,NUM,0,0,0,NUM],,MCAND] 6350 035555 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6351 035556 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6352 ERROR (..0363,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6353 035557 036 14 0 00 042415 6354 035560 035 00 0 00 035554 ERLOOP ..0363 ;IF ERROR, LOOP TO ..0363 6355 ^ 6356 ^ 6357 6358 ; ********************************************************************** 6359 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6360 ; ********************************************************************** 6361 6362 MULT (B,0,1,NUM,0,0,0,NUM)^ 6363 6364 ; --- MULTIPLICAND = (0,1) 6365 ; --- MULTIPLIER === (NUM,0) 6366 ; --- RESULT ======= (0,0,NUM,0) 6367 6368 035561 200 01 0 00 042463 ..0364: MOVE AC1,[[EXP 0,1,NUM,0,0,0,NUM,0],,MCAND] 6369 035562 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6370 035563 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6371 ERROR (..0364,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6372 035564 036 14 0 00 042415 6373 035565 035 00 0 00 035561 ERLOOP ..0364 ;IF ERROR, LOOP TO ..0364 6374 ^ 6375 ^ 6376 6377 ; ********************************************************************** 6378 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 19-2 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST B SEQ 0155 6379 ; ********************************************************************** 6380 6381 MULT (B,0,1,NUM,NUM,0,0,NUM,NUM)^ 6382 6383 ; --- MULTIPLICAND = (0,1) 6384 ; --- MULTIPLIER === (NUM,NUM) 6385 ; --- RESULT ======= (0,0,NUM,NUM) 6386 6387 035566 200 01 0 00 042474 ..0365: MOVE AC1,[[EXP 0,1,NUM,NUM,0,0,NUM,NUM],,MCAND] 6388 035567 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6389 035570 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6390 ERROR (..0365,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6391 035571 036 14 0 00 042415 6392 035572 035 00 0 00 035566 ERLOOP ..0365 ;IF ERROR, LOOP TO ..0365 6393 ^ 6394 ^ 6395 6396 ; ********************************************************************** 6397 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6398 ; ********************************************************************** 6399 6400 MULT (B,-1,-NUM,0,1,-1,-1,-1,-NUM)^ 6401 6402 ; --- MULTIPLICAND = (-1,-NUM) 6403 ; --- MULTIPLIER === (0,1) 6404 ; --- RESULT ======= (-1,-1,-1,-NUM) 6405 6406 035573 200 01 0 00 042505 ..0366: MOVE AC1,[[EXP -1,-NUM,0,1,-1,-1,-1,-NUM],,MCAND] 6407 035574 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6408 035575 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6409 ERROR (..0366,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6410 035576 036 14 0 00 042415 6411 035577 035 00 0 00 035573 ERLOOP ..0366 ;IF ERROR, LOOP TO ..0366 6412 ^ 6413 ^ 6414 6415 ; ********************************************************************** 6416 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6417 ; ********************************************************************** 6418 6419 MULT (B,-NUM,-1,0,1,-1,-1,-NUM,-1)^ 6420 6421 ; --- MULTIPLICAND = (-NUM,-1) 6422 ; --- MULTIPLIER === (0,1) 6423 ; --- RESULT ======= (-1,-1,-NUM,-1) 6424 6425 035600 200 01 0 00 042516 ..0367: MOVE AC1,[[EXP -NUM,-1,0,1,-1,-1,-NUM,-1],,MCAND] 6426 035601 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6427 035602 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6428 ERROR (..0367,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6429 035603 036 14 0 00 042415 6430 035604 035 00 0 00 035600 ERLOOP ..0367 ;IF ERROR, LOOP TO ..0367 6431 ^ 6432 ^ 6433 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 19-3 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST B SEQ 0156 6434 ; ********************************************************************** 6435 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6436 ; ********************************************************************** 6437 6438 MULT (B,-NUM,-NUM,0,1,-1,-1,-NUM,-NUM)^ 6439 6440 ; --- MULTIPLICAND = (-NUM,-NUM) 6441 ; --- MULTIPLIER === (0,1) 6442 ; --- RESULT ======= (-1,-1,-NUM,-NUM) 6443 6444 035605 200 01 0 00 042527 ..0370: MOVE AC1,[[EXP -NUM,-NUM,0,1,-1,-1,-NUM,-NUM],,MCAND] 6445 035606 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6446 035607 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6447 ERROR (..0370,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6448 035610 036 14 0 00 042415 6449 035611 035 00 0 00 035605 ERLOOP ..0370 ;IF ERROR, LOOP TO ..0370 6450 ^ 6451 ^ 6452 6453 ; ********************************************************************** 6454 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6455 ; ********************************************************************** 6456 6457 MULT (B,0,1,-1,-NUM,-1,-1,-1,-NUM)^ 6458 6459 ; --- MULTIPLICAND = (0,1) 6460 ; --- MULTIPLIER === (-1,-NUM) 6461 ; --- RESULT ======= (-1,-1,-1,-NUM) 6462 6463 035612 200 01 0 00 042540 ..0371: MOVE AC1,[[EXP 0,1,-1,-NUM,-1,-1,-1,-NUM],,MCAND] 6464 035613 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6465 035614 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6466 ERROR (..0371,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6467 035615 036 14 0 00 042415 6468 035616 035 00 0 00 035612 ERLOOP ..0371 ;IF ERROR, LOOP TO ..0371 6469 ^ 6470 ^ 6471 6472 ; ********************************************************************** 6473 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6474 ; ********************************************************************** 6475 6476 MULT (B,0,1,-NUM,-1,-1,-1,-NUM,-1)^ 6477 6478 ; --- MULTIPLICAND = (0,1) 6479 ; --- MULTIPLIER === (-NUM,-1) 6480 ; --- RESULT ======= (-1,-1,-NUM,-1) 6481 6482 035617 200 01 0 00 042551 ..0372: MOVE AC1,[[EXP 0,1,-NUM,-1,-1,-1,-NUM,-1],,MCAND] 6483 035620 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6484 035621 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6485 ERROR (..0372,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6486 035622 036 14 0 00 042415 6487 035623 035 00 0 00 035617 ERLOOP ..0372 ;IF ERROR, LOOP TO ..0372 6488 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 19-4 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST B SEQ 0157 6489 ^ 6490 6491 ; ********************************************************************** 6492 ; ---------- DMUL - TEST B - # * 1 = 1 ---------- 6493 ; ********************************************************************** 6494 6495 MULT (B,0,1,-NUM,-NUM,-1,-1,-NUM,-NUM)^ 6496 6497 ; --- MULTIPLICAND = (0,1) 6498 ; --- MULTIPLIER === (-NUM,-NUM) 6499 ; --- RESULT ======= (-1,-1,-NUM,-NUM) 6500 6501 035624 200 01 0 00 042562 ..0373: MOVE AC1,[[EXP 0,1,-NUM,-NUM,-1,-1,-NUM,-NUM],,MCAND] 6502 035625 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6503 035626 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6504 ERROR (..0373,14,SCR1,SCR2,,TEST B - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6505 035627 036 14 0 00 042415 6506 035630 035 00 0 00 035624 ERLOOP ..0373 ;IF ERROR, LOOP TO ..0373 6507 ^ 6508 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0158 6509 SUBTTL DMUL - TEST C 6510 6511 ; ********************************************************************** 6512 ;*DMUL - TEST C 6513 ;* 6514 ;* 0,1777.. * 2 THESE TESTS VERIFY THAT BITS ARE 6515 ;* 0,3777.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD 6516 ;* 1777..,3777.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1 6517 ;* 3777..,3777.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD 6518 ;* 0,3777.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES 6519 ;* 1,3777.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR 6520 ;* 3777..,3777.. * 1,0 BOUNDARY CONDITIONS. 6521 ;* 0,1777.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED 6522 ;* 0,3777.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS 6523 ;* 3777..,3777.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE 6524 ;* 0 (NO AROV). 6525 ;* THESE TESTS ARE REPEATED WITH MULT- 6526 ;* PLICAND AND MULTIPLIER REVERSED. 6527 ; ********************************************************************** 6528 6529 ; ********************************************************************** 6530 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6531 ; ********************************************************************** 6532 6533 MULTF (C,0,177777777777,0,2,0,0,0,377777777776)^ 6534 6535 ; --- MULTIPLICAND = (0,177777777777) 6536 ; --- MULTIPLIER === (0,2) 6537 ; --- RESULT ======= (0,0,0,377777777776) 6538 6539 035631 200 01 0 00 042573 ..0374: MOVE AC1,[[EXP 0,177777777777,0,2,0,0,0,377777777776],,MCAND] 6540 035632 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6541 035633 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6542 ERROR (..0374,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6543 035634 036 14 0 00 042603 6544 035635 035 00 0 00 035631 ERLOOP ..0374 ;IF ERROR, LOOP TO ..0374 6545 ^ 6546 6547 035636 200 14 0 00 040457 ..0375: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6548 035637 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6549 ERROR (..0374,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6550 LL 6551 035640 036 13 0 00 042615 6552 035641 035 00 0 00 035631 ERLOOP ..0374 ;IF ERROR, LOOP TO ..0374 6553 ^ 6554 ^ 6555 6556 ; ********************************************************************** 6557 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6558 ; ********************************************************************** 6559 6560 MULTF (C,0,377777777777,0,2,0,0,1,377777777776)^ 6561 6562 ; --- MULTIPLICAND = (0,377777777777) 6563 ; --- MULTIPLIER === (0,2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-1 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0159 6564 ; --- RESULT ======= (0,0,1,377777777776) 6565 6566 035642 200 01 0 00 042630 ..0376: MOVE AC1,[[EXP 0,377777777777,0,2,0,0,1,377777777776],,MCAND] 6567 035643 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6568 035644 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6569 ERROR (..0376,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6570 035645 036 14 0 00 042603 6571 035646 035 00 0 00 035642 ERLOOP ..0376 ;IF ERROR, LOOP TO ..0376 6572 ^ 6573 6574 035647 200 14 0 00 040457 ..0377: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6575 035650 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6576 ERROR (..0376,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6577 LL 6578 035651 036 13 0 00 042615 6579 035652 035 00 0 00 035642 ERLOOP ..0376 ;IF ERROR, LOOP TO ..0376 6580 ^ 6581 ^ 6582 6583 ; ********************************************************************** 6584 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6585 ; ********************************************************************** 6586 6587 MULTF (C,177777777777,377777777777,0,2,0,0,377777777777,377777777776)^ 6588 6589 ; --- MULTIPLICAND = (177777777777,377777777777) 6590 ; --- MULTIPLIER === (0,2) 6591 ; --- RESULT ======= (0,0,377777777777,377777777776) 6592 6593 ..0400: MOVE AC1,[[EXP 177777777777,377777777777,0,2,0,0,377777777777,377777777776],,MCA 6594 035653 200 01 0 00 042641 ND] 6595 035654 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6596 035655 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6597 ERROR (..0400,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6598 035656 036 14 0 00 042603 6599 035657 035 00 0 00 035653 ERLOOP ..0400 ;IF ERROR, LOOP TO ..0400 6600 ^ 6601 6602 035660 200 14 0 00 040457 ..0401: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6603 035661 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6604 ERROR (..0400,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6605 LL 6606 035662 036 13 0 00 042615 6607 035663 035 00 0 00 035653 ERLOOP ..0400 ;IF ERROR, LOOP TO ..0400 6608 ^ 6609 ^ 6610 6611 ; ********************************************************************** 6612 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6613 ; ********************************************************************** 6614 6615 MULTF (C,377777777777,377777777777,0,2,0,1,377777777777,377777777776)^ 6616 6617 ; --- MULTIPLICAND = (377777777777,377777777777) 6618 ; --- MULTIPLIER === (0,2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-2 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0160 6619 ; --- RESULT ======= (0,1,377777777777,377777777776) 6620 6621 ..0402: MOVE AC1,[[EXP 377777777777,377777777777,0,2,0,1,377777777777,377777777776],,MCA 6622 035664 200 01 0 00 042652 ND] 6623 035665 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6624 035666 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6625 ERROR (..0402,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6626 035667 036 14 0 00 042603 6627 035670 035 00 0 00 035664 ERLOOP ..0402 ;IF ERROR, LOOP TO ..0402 6628 ^ 6629 6630 035671 200 14 0 00 040457 ..0403: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6631 035672 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6632 ERROR (..0402,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6633 LL 6634 035673 036 13 0 00 042615 6635 035674 035 00 0 00 035664 ERLOOP ..0402 ;IF ERROR, LOOP TO ..0402 6636 ^ 6637 ^ 6638 6639 ; ********************************************************************** 6640 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6641 ; ********************************************************************** 6642 6643 MULTF (C,0,377777777777,1,0,0,0,377777777777)^ 6644 6645 ; --- MULTIPLICAND = (0,377777777777) 6646 ; --- MULTIPLIER === (1,0) 6647 ; --- RESULT ======= (0,0,377777777777,0) 6648 6649 035675 200 01 0 00 042663 ..0404: MOVE AC1,[[EXP 0,377777777777,1,0,0,0,377777777777,0],,MCAND] 6650 035676 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6651 035677 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6652 ERROR (..0404,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6653 035700 036 14 0 00 042603 6654 035701 035 00 0 00 035675 ERLOOP ..0404 ;IF ERROR, LOOP TO ..0404 6655 ^ 6656 6657 035702 200 14 0 00 040457 ..0405: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6658 035703 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6659 ERROR (..0404,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6660 LL 6661 035704 036 13 0 00 042615 6662 035705 035 00 0 00 035675 ERLOOP ..0404 ;IF ERROR, LOOP TO ..0404 6663 ^ 6664 ^ 6665 6666 ; ********************************************************************** 6667 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6668 ; ********************************************************************** 6669 6670 MULTF (C,1,377777777777,1,0,0,1,377777777777)^ 6671 6672 ; --- MULTIPLICAND = (1,377777777777) 6673 ; --- MULTIPLIER === (1,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-3 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0161 6674 ; --- RESULT ======= (0,1,377777777777,0) 6675 6676 035706 200 01 0 00 042674 ..0406: MOVE AC1,[[EXP 1,377777777777,1,0,0,1,377777777777,0],,MCAND] 6677 035707 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6678 035710 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6679 ERROR (..0406,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6680 035711 036 14 0 00 042603 6681 035712 035 00 0 00 035706 ERLOOP ..0406 ;IF ERROR, LOOP TO ..0406 6682 ^ 6683 6684 035713 200 14 0 00 040457 ..0407: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6685 035714 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6686 ERROR (..0406,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6687 LL 6688 035715 036 13 0 00 042615 6689 035716 035 00 0 00 035706 ERLOOP ..0406 ;IF ERROR, LOOP TO ..0406 6690 ^ 6691 ^ 6692 6693 ; ********************************************************************** 6694 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6695 ; ********************************************************************** 6696 6697 MULTF (C,377777777777,377777777777,1,0,0,377777777777,377777777777)^ 6698 6699 ; --- MULTIPLICAND = (377777777777,377777777777) 6700 ; --- MULTIPLIER === (1,0) 6701 ; --- RESULT ======= (0,377777777777,377777777777,0) 6702 6703 ..0410: MOVE AC1,[[EXP 377777777777,377777777777,1,0,0,377777777777,377777777777,0],,MCA 6704 035717 200 01 0 00 042705 ND] 6705 035720 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6706 035721 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6707 ERROR (..0410,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6708 035722 036 14 0 00 042603 6709 035723 035 00 0 00 035717 ERLOOP ..0410 ;IF ERROR, LOOP TO ..0410 6710 ^ 6711 6712 035724 200 14 0 00 040457 ..0411: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6713 035725 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6714 ERROR (..0410,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6715 LL 6716 035726 036 13 0 00 042615 6717 035727 035 00 0 00 035717 ERLOOP ..0410 ;IF ERROR, LOOP TO ..0410 6718 ^ 6719 ^ 6720 6721 ; ********************************************************************** 6722 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6723 ; ********************************************************************** 6724 6725 MULTF (C,0,177777777777,2,0,0,0,377777777776)^ 6726 6727 ; --- MULTIPLICAND = (0,177777777777) 6728 ; --- MULTIPLIER === (2,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-4 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0162 6729 ; --- RESULT ======= (0,0,377777777776,0) 6730 6731 035730 200 01 0 00 042716 ..0412: MOVE AC1,[[EXP 0,177777777777,2,0,0,0,377777777776,0],,MCAND] 6732 035731 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6733 035732 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6734 ERROR (..0412,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6735 035733 036 14 0 00 042603 6736 035734 035 00 0 00 035730 ERLOOP ..0412 ;IF ERROR, LOOP TO ..0412 6737 ^ 6738 6739 035735 200 14 0 00 040457 ..0413: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6740 035736 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6741 ERROR (..0412,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6742 LL 6743 035737 036 13 0 00 042615 6744 035740 035 00 0 00 035730 ERLOOP ..0412 ;IF ERROR, LOOP TO ..0412 6745 ^ 6746 ^ 6747 6748 ; ********************************************************************** 6749 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6750 ; ********************************************************************** 6751 6752 MULTF (C,0,377777777777,2,0,0,1,377777777776)^ 6753 6754 ; --- MULTIPLICAND = (0,377777777777) 6755 ; --- MULTIPLIER === (2,0) 6756 ; --- RESULT ======= (0,1,377777777776,0) 6757 6758 035741 200 01 0 00 042727 ..0414: MOVE AC1,[[EXP 0,377777777777,2,0,0,1,377777777776,0],,MCAND] 6759 035742 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6760 035743 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6761 ERROR (..0414,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6762 035744 036 14 0 00 042603 6763 035745 035 00 0 00 035741 ERLOOP ..0414 ;IF ERROR, LOOP TO ..0414 6764 ^ 6765 6766 035746 200 14 0 00 040457 ..0415: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6767 035747 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6768 ERROR (..0414,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6769 LL 6770 035750 036 13 0 00 042615 6771 035751 035 00 0 00 035741 ERLOOP ..0414 ;IF ERROR, LOOP TO ..0414 6772 ^ 6773 ^ 6774 6775 ; ********************************************************************** 6776 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6777 ; ********************************************************************** 6778 6779 MULTF (C,377777777777,377777777777,2,0,1,377777777777,377777777776)^ 6780 6781 ; --- MULTIPLICAND = (377777777777,377777777777) 6782 ; --- MULTIPLIER === (2,0) 6783 ; --- RESULT ======= (1,377777777777,377777777776,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-5 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0163 6784 6785 ..0416: MOVE AC1,[[EXP 377777777777,377777777777,2,0,1,377777777777,377777777776,0],,MCA 6786 035752 200 01 0 00 042740 ND] 6787 035753 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6788 035754 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6789 ERROR (..0416,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6790 035755 036 14 0 00 042603 6791 035756 035 00 0 00 035752 ERLOOP ..0416 ;IF ERROR, LOOP TO ..0416 6792 ^ 6793 6794 035757 200 14 0 00 040457 ..0417: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6795 035760 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6796 ERROR (..0416,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6797 LL 6798 035761 036 13 0 00 042615 6799 035762 035 00 0 00 035752 ERLOOP ..0416 ;IF ERROR, LOOP TO ..0416 6800 ^ 6801 ^ 6802 6803 ; ********************************************************************** 6804 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6805 ; ********************************************************************** 6806 6807 MULTF (C,0,2,0,177777777777,0,0,0,377777777776)^ 6808 6809 ; --- MULTIPLICAND = (0,2) 6810 ; --- MULTIPLIER === (0,177777777777) 6811 ; --- RESULT ======= (0,0,0,377777777776) 6812 6813 035763 200 01 0 00 042751 ..0420: MOVE AC1,[[EXP 0,2,0,177777777777,0,0,0,377777777776],,MCAND] 6814 035764 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6815 035765 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6816 ERROR (..0420,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6817 035766 036 14 0 00 042603 6818 035767 035 00 0 00 035763 ERLOOP ..0420 ;IF ERROR, LOOP TO ..0420 6819 ^ 6820 6821 035770 200 14 0 00 040457 ..0421: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6822 035771 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6823 ERROR (..0420,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6824 LL 6825 035772 036 13 0 00 042615 6826 035773 035 00 0 00 035763 ERLOOP ..0420 ;IF ERROR, LOOP TO ..0420 6827 ^ 6828 ^ 6829 6830 ; ********************************************************************** 6831 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6832 ; ********************************************************************** 6833 6834 MULTF (C,0,2,0,377777777777,0,0,1,377777777776)^ 6835 6836 ; --- MULTIPLICAND = (0,2) 6837 ; --- MULTIPLIER === (0,377777777777) 6838 ; --- RESULT ======= (0,0,1,377777777776) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-6 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0164 6839 6840 035774 200 01 0 00 042762 ..0422: MOVE AC1,[[EXP 0,2,0,377777777777,0,0,1,377777777776],,MCAND] 6841 035775 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6842 035776 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6843 ERROR (..0422,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6844 035777 036 14 0 00 042603 6845 036000 035 00 0 00 035774 ERLOOP ..0422 ;IF ERROR, LOOP TO ..0422 6846 ^ 6847 6848 036001 200 14 0 00 040457 ..0423: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6849 036002 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6850 ERROR (..0422,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6851 LL 6852 036003 036 13 0 00 042615 6853 036004 035 00 0 00 035774 ERLOOP ..0422 ;IF ERROR, LOOP TO ..0422 6854 ^ 6855 ^ 6856 6857 ; ********************************************************************** 6858 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6859 ; ********************************************************************** 6860 6861 MULTF (C,0,2,177777777777,377777777777,0,0,377777777777,377777777776)^ 6862 6863 ; --- MULTIPLICAND = (0,2) 6864 ; --- MULTIPLIER === (177777777777,377777777777) 6865 ; --- RESULT ======= (0,0,377777777777,377777777776) 6866 6867 ..0424: MOVE AC1,[[EXP 0,2,177777777777,377777777777,0,0,377777777777,377777777776],,MCA 6868 036005 200 01 0 00 042773 ND] 6869 036006 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6870 036007 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6871 ERROR (..0424,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6872 036010 036 14 0 00 042603 6873 036011 035 00 0 00 036005 ERLOOP ..0424 ;IF ERROR, LOOP TO ..0424 6874 ^ 6875 6876 036012 200 14 0 00 040457 ..0425: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6877 036013 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6878 ERROR (..0424,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6879 LL 6880 036014 036 13 0 00 042615 6881 036015 035 00 0 00 036005 ERLOOP ..0424 ;IF ERROR, LOOP TO ..0424 6882 ^ 6883 ^ 6884 6885 ; ********************************************************************** 6886 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6887 ; ********************************************************************** 6888 6889 MULTF (C,0,2,377777777777,377777777777,0,1,377777777777,377777777776)^ 6890 6891 ; --- MULTIPLICAND = (0,2) 6892 ; --- MULTIPLIER === (377777777777,377777777777) 6893 ; --- RESULT ======= (0,1,377777777777,377777777776) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-7 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0165 6894 6895 ..0426: MOVE AC1,[[EXP 0,2,377777777777,377777777777,0,1,377777777777,377777777776],,MCA 6896 036016 200 01 0 00 043004 ND] 6897 036017 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6898 036020 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6899 ERROR (..0426,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6900 036021 036 14 0 00 042603 6901 036022 035 00 0 00 036016 ERLOOP ..0426 ;IF ERROR, LOOP TO ..0426 6902 ^ 6903 6904 036023 200 14 0 00 040457 ..0427: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6905 036024 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6906 ERROR (..0426,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6907 LL 6908 036025 036 13 0 00 042615 6909 036026 035 00 0 00 036016 ERLOOP ..0426 ;IF ERROR, LOOP TO ..0426 6910 ^ 6911 ^ 6912 6913 ; ********************************************************************** 6914 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6915 ; ********************************************************************** 6916 6917 MULTF (C,1,0,0,377777777777,0,0,377777777777)^ 6918 6919 ; --- MULTIPLICAND = (1,0) 6920 ; --- MULTIPLIER === (0,377777777777) 6921 ; --- RESULT ======= (0,0,377777777777,0) 6922 6923 036027 200 01 0 00 043015 ..0430: MOVE AC1,[[EXP 1,0,0,377777777777,0,0,377777777777,0],,MCAND] 6924 036030 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6925 036031 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6926 ERROR (..0430,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6927 036032 036 14 0 00 042603 6928 036033 035 00 0 00 036027 ERLOOP ..0430 ;IF ERROR, LOOP TO ..0430 6929 ^ 6930 6931 036034 200 14 0 00 040457 ..0431: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6932 036035 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6933 ERROR (..0430,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6934 LL 6935 036036 036 13 0 00 042615 6936 036037 035 00 0 00 036027 ERLOOP ..0430 ;IF ERROR, LOOP TO ..0430 6937 ^ 6938 ^ 6939 6940 ; ********************************************************************** 6941 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6942 ; ********************************************************************** 6943 6944 MULTF (C,1,0,1,377777777777,0,1,377777777777)^ 6945 6946 ; --- MULTIPLICAND = (1,0) 6947 ; --- MULTIPLIER === (1,377777777777) 6948 ; --- RESULT ======= (0,1,377777777777,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-8 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0166 6949 6950 036040 200 01 0 00 043026 ..0432: MOVE AC1,[[EXP 1,0,1,377777777777,0,1,377777777777,0],,MCAND] 6951 036041 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6952 036042 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6953 ERROR (..0432,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6954 036043 036 14 0 00 042603 6955 036044 035 00 0 00 036040 ERLOOP ..0432 ;IF ERROR, LOOP TO ..0432 6956 ^ 6957 6958 036045 200 14 0 00 040457 ..0433: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6959 036046 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6960 ERROR (..0432,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6961 LL 6962 036047 036 13 0 00 042615 6963 036050 035 00 0 00 036040 ERLOOP ..0432 ;IF ERROR, LOOP TO ..0432 6964 ^ 6965 ^ 6966 6967 ; ********************************************************************** 6968 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6969 ; ********************************************************************** 6970 6971 MULTF (C,1,0,377777777777,377777777777,0,377777777777,377777777777)^ 6972 6973 ; --- MULTIPLICAND = (1,0) 6974 ; --- MULTIPLIER === (377777777777,377777777777) 6975 ; --- RESULT ======= (0,377777777777,377777777777,0) 6976 6977 ..0434: MOVE AC1,[[EXP 1,0,377777777777,377777777777,0,377777777777,377777777777,0],,MCA 6978 036051 200 01 0 00 043037 ND] 6979 036052 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 6980 036053 260 17 0 00 040451 GO MSUBR ;GO DO TEST 6981 ERROR (..0434,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 6982 036054 036 14 0 00 042603 6983 036055 035 00 0 00 036051 ERLOOP ..0434 ;IF ERROR, LOOP TO ..0434 6984 ^ 6985 6986 036056 200 14 0 00 040457 ..0435: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 6987 036057 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 6988 ERROR (..0434,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 6989 LL 6990 036060 036 13 0 00 042615 6991 036061 035 00 0 00 036051 ERLOOP ..0434 ;IF ERROR, LOOP TO ..0434 6992 ^ 6993 ^ 6994 6995 ; ********************************************************************** 6996 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 6997 ; ********************************************************************** 6998 6999 MULTF (C,2,0,0,177777777777,0,0,377777777776)^ 7000 7001 ; --- MULTIPLICAND = (2,0) 7002 ; --- MULTIPLIER === (0,177777777777) 7003 ; --- RESULT ======= (0,0,377777777776,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-9 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0167 7004 7005 036062 200 01 0 00 043050 ..0436: MOVE AC1,[[EXP 2,0,0,177777777777,0,0,377777777776,0],,MCAND] 7006 036063 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7007 036064 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7008 ERROR (..0436,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7009 036065 036 14 0 00 042603 7010 036066 035 00 0 00 036062 ERLOOP ..0436 ;IF ERROR, LOOP TO ..0436 7011 ^ 7012 7013 036067 200 14 0 00 040457 ..0437: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7014 036070 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7015 ERROR (..0436,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7016 LL 7017 036071 036 13 0 00 042615 7018 036072 035 00 0 00 036062 ERLOOP ..0436 ;IF ERROR, LOOP TO ..0436 7019 ^ 7020 ^ 7021 7022 ; ********************************************************************** 7023 ; ---------- DMUL - TEST C - SHIFT 1'S ACROSS WORD BOUNDARIES ---------- 7024 ; ********************************************************************** 7025 7026 MULTF (C,2,0,0,377777777777,0,1,377777777776)^ 7027 7028 ; --- MULTIPLICAND = (2,0) 7029 ; --- MULTIPLIER === (0,377777777777) 7030 ; --- RESULT ======= (0,1,377777777776,0) 7031 7032 036073 200 01 0 00 043061 ..0440: MOVE AC1,[[EXP 2,0,0,377777777777,0,1,377777777776,0],,MCAND] 7033 036074 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7034 036075 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7035 ERROR (..0440,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7036 036076 036 14 0 00 042603 7037 036077 035 00 0 00 036073 ERLOOP ..0440 ;IF ERROR, LOOP TO ..0440 7038 ^ 7039 7040 036100 200 14 0 00 040457 ..0441: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7041 036101 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7042 ERROR (..0440,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7043 LL 7044 036102 036 13 0 00 042615 7045 036103 035 00 0 00 036073 ERLOOP ..0440 ;IF ERROR, LOOP TO ..0440 7046 ^ 7047 ^ 7048 7049 ; ********************************************************************** 7050 ; ---------- DMUL - TEST C - SHIFT ACROSS WORD BOUNDARIES ---------- 7051 ; ********************************************************************** 7052 7053 MULTF (C,2,0,377777777777,377777777777,1,377777777777,377777777776)^ 7054 7055 ; --- MULTIPLICAND = (2,0) 7056 ; --- MULTIPLIER === (377777777777,377777777777) 7057 ; --- RESULT ======= (1,377777777777,377777777776,0) 7058 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 20-10 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST C SEQ 0168 7059 ..0442: MOVE AC1,[[EXP 2,0,377777777777,377777777777,1,377777777777,377777777776,0],,MCA 7060 036104 200 01 0 00 043072 ND] 7061 036105 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7062 036106 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7063 ERROR (..0442,14,SCR1,SCR2,,TEST C - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7064 036107 036 14 0 00 042603 7065 036110 035 00 0 00 036104 ERLOOP ..0442 ;IF ERROR, LOOP TO ..0442 7066 ^ 7067 7068 036111 200 14 0 00 040457 ..0443: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7069 036112 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7070 ERROR (..0442,13,SCR2,MFLOC,,TEST C - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7071 LL 7072 036113 036 13 0 00 042615 7073 036114 035 00 0 00 036104 ERLOOP ..0442 ;IF ERROR, LOOP TO ..0442 7074 ^ 7075 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0169 7076 SUBTTL DMUL - TEST D 7077 7078 ; ********************************************************************** 7079 ;*DMUL - TEST D 7080 ;* 7081 ;* 7777..,6000.. * 2 THESE TESTS VERIFY THAT BITS ARE 7082 ;* 7777..,4000.. * 2 SHIFTED ACROSS WORD BOUNDARIES. A WORD 7083 ;* 6000..,4000.. * 2 OF ONES IS MULTIPLIED BY A FLOATING 1 7084 ;* 4000..,4000.. * 2 WHICH WILL CAUSE A SHIFT ACROSS WORD 7085 ;* 777..,400.. * 1,0 BOUNDARIES OR NOT. THE TEST VERIFIES 7086 ;* ..776,400.. * 1,0 THAT THE SHIFT IS DONE PROPERLY FOR 7087 ;* 400..,400.. * 1,0 BOUNDARY CONDITIONS. 7088 ;* 777..,600.. * 2,0 IN EACH TEST THE PC FLAGS ARE TESTED 7089 ;* 777..,400.. * 2,0 SINCE THERE ARE NO OVERFLOW CONDITIONS 7090 ;* 400..,400.. * 2,0 THE LEFTMOST BIT OF THE PC SHOULD BE 7091 ;* 0 (NO AROV). 7092 ;* THESE TESTS ARE REPEATED WITH MULT- 7093 ;* PLICAND AND MULTIPLIER REVERSED. 7094 ; ********************************************************************** 7095 7096 ; ********************************************************************** 7097 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7098 ; ********************************************************************** 7099 7100 MULTF (D,-1,600000000000,0,2,-1,-1,-1,400000000000)^ 7101 7102 ; --- MULTIPLICAND = (-1,600000000000) 7103 ; --- MULTIPLIER === (0,2) 7104 ; --- RESULT ======= (-1,-1,-1,400000000000) 7105 7106 036115 200 01 0 00 043103 ..0444: MOVE AC1,[[EXP -1,600000000000,0,2,-1,-1,-1,400000000000],,MCAND] 7107 036116 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7108 036117 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7109 ERROR (..0444,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7110 036120 036 14 0 00 043113 7111 036121 035 00 0 00 036115 ERLOOP ..0444 ;IF ERROR, LOOP TO ..0444 7112 ^ 7113 7114 036122 200 14 0 00 040457 ..0445: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7115 036123 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7116 ERROR (..0444,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7117 LL 7118 036124 036 13 0 00 043125 7119 036125 035 00 0 00 036115 ERLOOP ..0444 ;IF ERROR, LOOP TO ..0444 7120 ^ 7121 ^ 7122 7123 ; ********************************************************************** 7124 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7125 ; ********************************************************************** 7126 7127 MULTF (D,-1,400000000000,0,2,-1,-1,-2,400000000000)^ 7128 7129 ; --- MULTIPLICAND = (-1,400000000000) 7130 ; --- MULTIPLIER === (0,2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-1 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0170 7131 ; --- RESULT ======= (-1,-1,-2,400000000000) 7132 7133 036126 200 01 0 00 043140 ..0446: MOVE AC1,[[EXP -1,400000000000,0,2,-1,-1,-2,400000000000],,MCAND] 7134 036127 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7135 036130 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7136 ERROR (..0446,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7137 036131 036 14 0 00 043113 7138 036132 035 00 0 00 036126 ERLOOP ..0446 ;IF ERROR, LOOP TO ..0446 7139 ^ 7140 7141 036133 200 14 0 00 040457 ..0447: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7142 036134 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7143 ERROR (..0446,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7144 LL 7145 036135 036 13 0 00 043125 7146 036136 035 00 0 00 036126 ERLOOP ..0446 ;IF ERROR, LOOP TO ..0446 7147 ^ 7148 ^ 7149 7150 ; ********************************************************************** 7151 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7152 ; ********************************************************************** 7153 7154 MULTF (D,600000000000,400000000000,0,2,-1,-1,400000000000,400000000000)^ 7155 7156 ; --- MULTIPLICAND = (600000000000,400000000000) 7157 ; --- MULTIPLIER === (0,2) 7158 ; --- RESULT ======= (-1,-1,400000000000,400000000000) 7159 7160 ..0450: MOVE AC1,[[EXP 600000000000,400000000000,0,2,-1,-1,400000000000,400000000000],,M 7161 036137 200 01 0 00 043151 CAND] 7162 036140 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7163 036141 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7164 ERROR (..0450,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7165 036142 036 14 0 00 043113 7166 036143 035 00 0 00 036137 ERLOOP ..0450 ;IF ERROR, LOOP TO ..0450 7167 ^ 7168 7169 036144 200 14 0 00 040457 ..0451: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7170 036145 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7171 ERROR (..0450,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7172 LL 7173 036146 036 13 0 00 043125 7174 036147 035 00 0 00 036137 ERLOOP ..0450 ;IF ERROR, LOOP TO ..0450 7175 ^ 7176 ^ 7177 7178 ; ********************************************************************** 7179 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7180 ; ********************************************************************** 7181 7182 MULTF (D,400000000000,400000000000,0,2,-1,-2,400000000000,400000000000)^ 7183 7184 ; --- MULTIPLICAND = (400000000000,400000000000) 7185 ; --- MULTIPLIER === (0,2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-2 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0171 7186 ; --- RESULT ======= (-1,-2,400000000000,400000000000) 7187 7188 ..0452: MOVE AC1,[[EXP 400000000000,400000000000,0,2,-1,-2,400000000000,400000000000],,M 7189 036150 200 01 0 00 043162 CAND] 7190 036151 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7191 036152 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7192 ERROR (..0452,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7193 036153 036 14 0 00 043113 7194 036154 035 00 0 00 036150 ERLOOP ..0452 ;IF ERROR, LOOP TO ..0452 7195 ^ 7196 7197 036155 200 14 0 00 040457 ..0453: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7198 036156 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7199 ERROR (..0452,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7200 LL 7201 036157 036 13 0 00 043125 7202 036160 035 00 0 00 036150 ERLOOP ..0452 ;IF ERROR, LOOP TO ..0452 7203 ^ 7204 ^ 7205 7206 ; ********************************************************************** 7207 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7208 ; ********************************************************************** 7209 7210 MULTF (D,-1,400000000000,1,0,-1,-1,400000000000,400000000000)^ 7211 7212 ; --- MULTIPLICAND = (-1,400000000000) 7213 ; --- MULTIPLIER === (1,0) 7214 ; --- RESULT ======= (-1,-1,400000000000,400000000000) 7215 7216 036161 200 01 0 00 043173 ..0454: MOVE AC1,[[EXP -1,400000000000,1,0,-1,-1,400000000000,400000000000],,MCAND] 7217 036162 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7218 036163 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7219 ERROR (..0454,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7220 036164 036 14 0 00 043113 7221 036165 035 00 0 00 036161 ERLOOP ..0454 ;IF ERROR, LOOP TO ..0454 7222 ^ 7223 7224 036166 200 14 0 00 040457 ..0455: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7225 036167 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7226 ERROR (..0454,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7227 LL 7228 036170 036 13 0 00 043125 7229 036171 035 00 0 00 036161 ERLOOP ..0454 ;IF ERROR, LOOP TO ..0454 7230 ^ 7231 ^ 7232 7233 ; ********************************************************************** 7234 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7235 ; ********************************************************************** 7236 7237 MULTF (D,-2,400000000000,1,0,-1,-2,400000000000,400000000000)^ 7238 7239 ; --- MULTIPLICAND = (-2,400000000000) 7240 ; --- MULTIPLIER === (1,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-3 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0172 7241 ; --- RESULT ======= (-1,-2,400000000000,400000000000) 7242 7243 036172 200 01 0 00 043204 ..0456: MOVE AC1,[[EXP -2,400000000000,1,0,-1,-2,400000000000,400000000000],,MCAND] 7244 036173 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7245 036174 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7246 ERROR (..0456,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7247 036175 036 14 0 00 043113 7248 036176 035 00 0 00 036172 ERLOOP ..0456 ;IF ERROR, LOOP TO ..0456 7249 ^ 7250 7251 036177 200 14 0 00 040457 ..0457: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7252 036200 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7253 ERROR (..0456,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7254 LL 7255 036201 036 13 0 00 043125 7256 036202 035 00 0 00 036172 ERLOOP ..0456 ;IF ERROR, LOOP TO ..0456 7257 ^ 7258 ^ 7259 7260 ; ********************************************************************** 7261 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7262 ; ********************************************************************** 7263 7264 MULTF (D,400000000000,400000000000,1,0,-1,400000000000,400000000000,400000000000) 7265 ^ 7266 7267 ; --- MULTIPLICAND = (400000000000,400000000000) 7268 ; --- MULTIPLIER === (1,0) 7269 ; --- RESULT ======= (-1,400000000000,400000000000,400000000000) 7270 7271 ..0460: MOVE AC1,[[EXP 400000000000,400000000000,1,0,-1,400000000000,400000000000,400000 7272 036203 200 01 0 00 043215 000000],,MCAND] 7273 036204 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7274 036205 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7275 ERROR (..0460,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7276 036206 036 14 0 00 043113 7277 036207 035 00 0 00 036203 ERLOOP ..0460 ;IF ERROR, LOOP TO ..0460 7278 ^ 7279 7280 036210 200 14 0 00 040457 ..0461: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7281 036211 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7282 ERROR (..0460,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7283 LL 7284 036212 036 13 0 00 043125 7285 036213 035 00 0 00 036203 ERLOOP ..0460 ;IF ERROR, LOOP TO ..0460 7286 ^ 7287 ^ 7288 7289 ; ********************************************************************** 7290 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7291 ; ********************************************************************** 7292 7293 MULTF (D,-1,600000000000,2,0,-1,-1,400000000000,400000000000)^ 7294 7295 ; --- MULTIPLICAND = (-1,600000000000) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-4 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0173 7296 ; --- MULTIPLIER === (2,0) 7297 ; --- RESULT ======= (-1,-1,400000000000,400000000000) 7298 7299 036214 200 01 0 00 043226 ..0462: MOVE AC1,[[EXP -1,600000000000,2,0,-1,-1,400000000000,400000000000],,MCAND] 7300 036215 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7301 036216 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7302 ERROR (..0462,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7303 036217 036 14 0 00 043113 7304 036220 035 00 0 00 036214 ERLOOP ..0462 ;IF ERROR, LOOP TO ..0462 7305 ^ 7306 7307 036221 200 14 0 00 040457 ..0463: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7308 036222 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7309 ERROR (..0462,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7310 LL 7311 036223 036 13 0 00 043125 7312 036224 035 00 0 00 036214 ERLOOP ..0462 ;IF ERROR, LOOP TO ..0462 7313 ^ 7314 ^ 7315 7316 ; ********************************************************************** 7317 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7318 ; ********************************************************************** 7319 7320 MULTF (D,-1,400000000000,2,0,-1,-2,400000000000,400000000000)^ 7321 7322 ; --- MULTIPLICAND = (-1,400000000000) 7323 ; --- MULTIPLIER === (2,0) 7324 ; --- RESULT ======= (-1,-2,400000000000,400000000000) 7325 7326 036225 200 01 0 00 043237 ..0464: MOVE AC1,[[EXP -1,400000000000,2,0,-1,-2,400000000000,400000000000],,MCAND] 7327 036226 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7328 036227 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7329 ERROR (..0464,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7330 036230 036 14 0 00 043113 7331 036231 035 00 0 00 036225 ERLOOP ..0464 ;IF ERROR, LOOP TO ..0464 7332 ^ 7333 7334 036232 200 14 0 00 040457 ..0465: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7335 036233 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7336 ERROR (..0464,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7337 LL 7338 036234 036 13 0 00 043125 7339 036235 035 00 0 00 036225 ERLOOP ..0464 ;IF ERROR, LOOP TO ..0464 7340 ^ 7341 ^ 7342 7343 ; ********************************************************************** 7344 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7345 ; ********************************************************************** 7346 7347 MULTF (D,400000000000,400000000000,2,0,-2,400000000000,400000000000,400000000000) 7348 ^ 7349 7350 ; --- MULTIPLICAND = (400000000000,400000000000) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-5 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0174 7351 ; --- MULTIPLIER === (2,0) 7352 ; --- RESULT ======= (-2,400000000000,400000000000,400000000000) 7353 7354 ..0466: MOVE AC1,[[EXP 400000000000,400000000000,2,0,-2,400000000000,400000000000,400000 7355 036236 200 01 0 00 043250 000000],,MCAND] 7356 036237 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7357 036240 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7358 ERROR (..0466,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7359 036241 036 14 0 00 043113 7360 036242 035 00 0 00 036236 ERLOOP ..0466 ;IF ERROR, LOOP TO ..0466 7361 ^ 7362 7363 036243 200 14 0 00 040457 ..0467: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7364 036244 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7365 ERROR (..0466,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7366 LL 7367 036245 036 13 0 00 043125 7368 036246 035 00 0 00 036236 ERLOOP ..0466 ;IF ERROR, LOOP TO ..0466 7369 ^ 7370 ^ 7371 7372 ; ********************************************************************** 7373 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7374 ; ********************************************************************** 7375 7376 MULTF (D,0,2,-1,600000000000,-1,-1,-1,400000000000)^ 7377 7378 ; --- MULTIPLICAND = (0,2) 7379 ; --- MULTIPLIER === (-1,600000000000) 7380 ; --- RESULT ======= (-1,-1,-1,400000000000) 7381 7382 036247 200 01 0 00 043261 ..0470: MOVE AC1,[[EXP 0,2,-1,600000000000,-1,-1,-1,400000000000],,MCAND] 7383 036250 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7384 036251 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7385 ERROR (..0470,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7386 036252 036 14 0 00 043113 7387 036253 035 00 0 00 036247 ERLOOP ..0470 ;IF ERROR, LOOP TO ..0470 7388 ^ 7389 7390 036254 200 14 0 00 040457 ..0471: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7391 036255 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7392 ERROR (..0470,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7393 LL 7394 036256 036 13 0 00 043125 7395 036257 035 00 0 00 036247 ERLOOP ..0470 ;IF ERROR, LOOP TO ..0470 7396 ^ 7397 ^ 7398 7399 ; ********************************************************************** 7400 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7401 ; ********************************************************************** 7402 7403 MULTF (D,0,2,-1,400000000000,-1,-1,-2,400000000000)^ 7404 7405 ; --- MULTIPLICAND = (0,2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-6 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0175 7406 ; --- MULTIPLIER === (-1,400000000000) 7407 ; --- RESULT ======= (-1,-1,-2,400000000000) 7408 7409 036260 200 01 0 00 043272 ..0472: MOVE AC1,[[EXP 0,2,-1,400000000000,-1,-1,-2,400000000000],,MCAND] 7410 036261 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7411 036262 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7412 ERROR (..0472,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7413 036263 036 14 0 00 043113 7414 036264 035 00 0 00 036260 ERLOOP ..0472 ;IF ERROR, LOOP TO ..0472 7415 ^ 7416 7417 036265 200 14 0 00 040457 ..0473: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7418 036266 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7419 ERROR (..0472,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7420 LL 7421 036267 036 13 0 00 043125 7422 036270 035 00 0 00 036260 ERLOOP ..0472 ;IF ERROR, LOOP TO ..0472 7423 ^ 7424 ^ 7425 7426 ; ********************************************************************** 7427 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7428 ; ********************************************************************** 7429 7430 MULTF (D,0,2,600000000000,400000000000,-1,-1,400000000000,400000000000)^ 7431 7432 ; --- MULTIPLICAND = (0,2) 7433 ; --- MULTIPLIER === (600000000000,400000000000) 7434 ; --- RESULT ======= (-1,-1,400000000000,400000000000) 7435 7436 ..0474: MOVE AC1,[[EXP 0,2,600000000000,400000000000,-1,-1,400000000000,400000000000],,M 7437 036271 200 01 0 00 043303 CAND] 7438 036272 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7439 036273 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7440 ERROR (..0474,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7441 036274 036 14 0 00 043113 7442 036275 035 00 0 00 036271 ERLOOP ..0474 ;IF ERROR, LOOP TO ..0474 7443 ^ 7444 7445 036276 200 14 0 00 040457 ..0475: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7446 036277 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7447 ERROR (..0474,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7448 LL 7449 036300 036 13 0 00 043125 7450 036301 035 00 0 00 036271 ERLOOP ..0474 ;IF ERROR, LOOP TO ..0474 7451 ^ 7452 ^ 7453 7454 ; ********************************************************************** 7455 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7456 ; ********************************************************************** 7457 7458 MULTF (D,0,2,400000000000,400000000000,-1,-2,400000000000,400000000000)^ 7459 7460 ; --- MULTIPLICAND = (0,2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-7 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0176 7461 ; --- MULTIPLIER === (400000000000,400000000000) 7462 ; --- RESULT ======= (-1,-2,400000000000,400000000000) 7463 7464 ..0476: MOVE AC1,[[EXP 0,2,400000000000,400000000000,-1,-2,400000000000,400000000000],,M 7465 036302 200 01 0 00 043314 CAND] 7466 036303 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7467 036304 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7468 ERROR (..0476,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7469 036305 036 14 0 00 043113 7470 036306 035 00 0 00 036302 ERLOOP ..0476 ;IF ERROR, LOOP TO ..0476 7471 ^ 7472 7473 036307 200 14 0 00 040457 ..0477: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7474 036310 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7475 ERROR (..0476,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7476 LL 7477 036311 036 13 0 00 043125 7478 036312 035 00 0 00 036302 ERLOOP ..0476 ;IF ERROR, LOOP TO ..0476 7479 ^ 7480 ^ 7481 7482 ; ********************************************************************** 7483 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7484 ; ********************************************************************** 7485 7486 MULTF (D,1,0,-1,400000000000,-1,-1,400000000000,400000000000)^ 7487 7488 ; --- MULTIPLICAND = (1,0) 7489 ; --- MULTIPLIER === (-1,400000000000) 7490 ; --- RESULT ======= (-1,-1,400000000000,400000000000) 7491 7492 036313 200 01 0 00 043325 ..0500: MOVE AC1,[[EXP 1,0,-1,400000000000,-1,-1,400000000000,400000000000],,MCAND] 7493 036314 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7494 036315 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7495 ERROR (..0500,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7496 036316 036 14 0 00 043113 7497 036317 035 00 0 00 036313 ERLOOP ..0500 ;IF ERROR, LOOP TO ..0500 7498 ^ 7499 7500 036320 200 14 0 00 040457 ..0501: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7501 036321 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7502 ERROR (..0500,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7503 LL 7504 036322 036 13 0 00 043125 7505 036323 035 00 0 00 036313 ERLOOP ..0500 ;IF ERROR, LOOP TO ..0500 7506 ^ 7507 ^ 7508 7509 ; ********************************************************************** 7510 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7511 ; ********************************************************************** 7512 7513 MULTF (D,1,0,-2,400000000000,-1,-2,400000000000,400000000000)^ 7514 7515 ; --- MULTIPLICAND = (1,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-8 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0177 7516 ; --- MULTIPLIER === (-2,400000000000) 7517 ; --- RESULT ======= (-1,-2,400000000000,400000000000) 7518 7519 036324 200 01 0 00 043336 ..0502: MOVE AC1,[[EXP 1,0,-2,400000000000,-1,-2,400000000000,400000000000],,MCAND] 7520 036325 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7521 036326 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7522 ERROR (..0502,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7523 036327 036 14 0 00 043113 7524 036330 035 00 0 00 036324 ERLOOP ..0502 ;IF ERROR, LOOP TO ..0502 7525 ^ 7526 7527 036331 200 14 0 00 040457 ..0503: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7528 036332 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7529 ERROR (..0502,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7530 LL 7531 036333 036 13 0 00 043125 7532 036334 035 00 0 00 036324 ERLOOP ..0502 ;IF ERROR, LOOP TO ..0502 7533 ^ 7534 ^ 7535 7536 ; ********************************************************************** 7537 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7538 ; ********************************************************************** 7539 7540 MULTF (D,1,0,400000000000,400000000000,-1,400000000000,400000000000,400000000000) 7541 ^ 7542 7543 ; --- MULTIPLICAND = (1,0) 7544 ; --- MULTIPLIER === (400000000000,400000000000) 7545 ; --- RESULT ======= (-1,400000000000,400000000000,400000000000) 7546 7547 ..0504: MOVE AC1,[[EXP 1,0,400000000000,400000000000,-1,400000000000,400000000000,400000 7548 036335 200 01 0 00 043347 000000],,MCAND] 7549 036336 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7550 036337 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7551 ERROR (..0504,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7552 036340 036 14 0 00 043113 7553 036341 035 00 0 00 036335 ERLOOP ..0504 ;IF ERROR, LOOP TO ..0504 7554 ^ 7555 7556 036342 200 14 0 00 040457 ..0505: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7557 036343 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7558 ERROR (..0504,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7559 LL 7560 036344 036 13 0 00 043125 7561 036345 035 00 0 00 036335 ERLOOP ..0504 ;IF ERROR, LOOP TO ..0504 7562 ^ 7563 ^ 7564 7565 ; ********************************************************************** 7566 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7567 ; ********************************************************************** 7568 7569 MULTF (D,2,0,-1,600000000000,-1,-1,400000000000,400000000000)^ 7570 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-9 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0178 7571 ; --- MULTIPLICAND = (2,0) 7572 ; --- MULTIPLIER === (-1,600000000000) 7573 ; --- RESULT ======= (-1,-1,400000000000,400000000000) 7574 7575 036346 200 01 0 00 043360 ..0506: MOVE AC1,[[EXP 2,0,-1,600000000000,-1,-1,400000000000,400000000000],,MCAND] 7576 036347 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7577 036350 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7578 ERROR (..0506,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7579 036351 036 14 0 00 043113 7580 036352 035 00 0 00 036346 ERLOOP ..0506 ;IF ERROR, LOOP TO ..0506 7581 ^ 7582 7583 036353 200 14 0 00 040457 ..0507: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7584 036354 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7585 ERROR (..0506,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7586 LL 7587 036355 036 13 0 00 043125 7588 036356 035 00 0 00 036346 ERLOOP ..0506 ;IF ERROR, LOOP TO ..0506 7589 ^ 7590 ^ 7591 7592 ; ********************************************************************** 7593 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7594 ; ********************************************************************** 7595 7596 MULTF (D,2,0,-1,400000000000,-1,-2,400000000000,400000000000)^ 7597 7598 ; --- MULTIPLICAND = (2,0) 7599 ; --- MULTIPLIER === (-1,400000000000) 7600 ; --- RESULT ======= (-1,-2,400000000000,400000000000) 7601 7602 036357 200 01 0 00 043371 ..0510: MOVE AC1,[[EXP 2,0,-1,400000000000,-1,-2,400000000000,400000000000],,MCAND] 7603 036360 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7604 036361 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7605 ERROR (..0510,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7606 036362 036 14 0 00 043113 7607 036363 035 00 0 00 036357 ERLOOP ..0510 ;IF ERROR, LOOP TO ..0510 7608 ^ 7609 7610 036364 200 14 0 00 040457 ..0511: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7611 036365 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7612 ERROR (..0510,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7613 LL 7614 036366 036 13 0 00 043125 7615 036367 035 00 0 00 036357 ERLOOP ..0510 ;IF ERROR, LOOP TO ..0510 7616 ^ 7617 ^ 7618 7619 ; ********************************************************************** 7620 ; ---------- DMUL - TEST D - SHIFT 0'S ACROSS WORD BOUNDARIES ---------- 7621 ; ********************************************************************** 7622 7623 MULTF (D,2,0,400000000000,400000000000,-2,400000000000,400000000000,400000000000) 7624 ^ 7625 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 21-10 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST D SEQ 0179 7626 ; --- MULTIPLICAND = (2,0) 7627 ; --- MULTIPLIER === (400000000000,400000000000) 7628 ; --- RESULT ======= (-2,400000000000,400000000000,400000000000) 7629 7630 ..0512: MOVE AC1,[[EXP 2,0,400000000000,400000000000,-2,400000000000,400000000000,400000 7631 036370 200 01 0 00 043402 000000],,MCAND] 7632 036371 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7633 036372 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7634 ERROR (..0512,14,SCR1,SCR2,,TEST D - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7635 036373 036 14 0 00 043113 7636 036374 035 00 0 00 036370 ERLOOP ..0512 ;IF ERROR, LOOP TO ..0512 7637 ^ 7638 7639 036375 200 14 0 00 040457 ..0513: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7640 036376 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7641 ERROR (..0512,13,SCR2,MFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7642 LL 7643 036377 036 13 0 00 043125 7644 036400 035 00 0 00 036370 ERLOOP ..0512 ;IF ERROR, LOOP TO ..0512 7645 ^ 7646 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 22 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST E (OVERFLOW) SEQ 0180 7647 SUBTTL DMUL - TEST E (OVERFLOW) 7648 7649 ; ********************************************************************** 7650 ;*DMUL - TEST E 7651 ;* 7652 ;* -2^70 * -2^70 THIS IS THE ONLY CASE THAT CAN SET 7653 ;* THE AROV FLAG. THIS TEST VERIFIES THE 7654 ;* RESULT AND CHECKS THE SETTING OF THE 7655 ;* AROV FLAG. 7656 ;* 7657 ;* ------- MULTIPLICAND = (4000...,4000...) 7658 ;* ------- MULTIPLIER === (4000...,4000...) 7659 ;* ------- RESULT ======= (4000...,4000...,4000...,4000...) 7660 ; ********************************************************************** 7661 7662 036401 LOC=. 7663 7664 036401 120 01 0 00 042100 DMOVE AC1,[EXP 1B0,1B0] ;INIT MULTIPLICAND 7665 036402 120 03 0 00 043403 DMOVE AC1+2,[EXP 525252525252,252525252525] ;PUT GARBAGE IN 7666 ; RIGHT HALF OF RESULT 7667 036403 400 13 0 00 000000 SETZ SCR1, ;POINTER TO WHICH WORD INCORRECT 7668 036404 255 17 0 00 036405 JFCL 17,.+1 ;CLEAR FLAGS 7669 036405 116 01 0 00 000001 DMUL AC1,AC1 ;MULTIPLY 7670 PCSAVE^ 7671 036406 264 00 0 00 036407 JSR .+1 ;STORE PC 7672 036407 FLAGL=. ;LOCATION OF PC 7673 036407 000000 000000 0 ;PC 7674 ^ 7675 036410 312 01 0 00 041725 CAME AC1,[1B0] ;1ST WORD OF RESULT OK? 7676 036411 254 00 0 00 036423 JRST MOVERR ;NO - GO DO ERROR PRINTOUT 7677 036412 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD 7678 036413 312 02 0 00 041725 CAME AC1+1,[1B0] ;2ND WORD OF RESULT OK? 7679 036414 254 00 0 00 036423 JRST MOVERR ;NO - GO DO ERROR PRINTOUT 7680 036415 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD 7681 036416 312 03 0 00 041725 CAME AC1+2,[1B0] ;3RD WORD OF RESULT OK? 7682 036417 254 00 0 00 036423 JRST MOVERR ;NO - GO DO ERROR PRINTOUT 7683 036420 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD 7684 036421 316 04 0 00 041725 CAMN AC1+3,[1B0] ;4TH WORD OF RESULT OK? 7685 036422 254 00 0 00 036426 JRST MOVOK ;YES - GO CHECK AROV FLAGS 7686 036423 200 13 0 13 000001 MOVERR: MOVE SCR1,AC1(SCR1) ;GET INCORRECT WORD 7687 ERROR (LOC,13,[1B0],SCR1,,TEST E - RESULT INCORRECT,MPRINT)^SALL 7688 036424 036 13 0 00 043412 7689 036425 035 00 0 00 036401 ERLOOP LOC ;IF ERROR, LOOP TO LOC 7690 ^ 7691 036426 255 10 0 00 036432 MOVOK: JOV MOVRR+1 ;TEST OVERFLOW - SHOULD BE ON 7692 036427 201 15 0 00 042100 MOVEI SCR3,[EXP 1B0,1B0] ;ADDRESS OF OPERANDS FOR ADDL 7693 036430 504 15 0 00 000015 HRL SCR3,SCR3 ; ERROR PRINT ROUTINE 7694 036431 MOVRR: ERROR (LOC,13,AC1,FLAGL,,TEST E - PC FLAGS INCORRECT - LEFT 4 BITS,MPRINT)^SALL 7695 036431 036 13 0 00 043424 7696 036432 035 00 0 00 036401 ERLOOP LOC ;IF ERROR, LOOP TO LOC 7697 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 23 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST F - TEST NEGATIVE OPERANDS SEQ 0181 7698 SUBTTL DMUL - TEST F - TEST NEGATIVE OPERANDS 7699 7700 ; ********************************************************************** 7701 ;*DMUL - TEST F 7702 ;* 7703 ;* -2 * -3 THESE TESTS VERIFY THAT THE DMUL HANDLES 7704 ;* -2,0 * -3 THE SIGNS PROPERLY WHEN MULTIPLYING 7705 ;* -2 * -3,0 OPERANDS WHICH ARE BOTH NEGATIVE. TESTS 7706 ;* -2,0 * -3,0 B,C,D TESTED THE COMBINATIONS POS*POS, 7707 ;* POS*NEG AND NEG*POS BUT NOT NEG*NEG. THE 7708 ;* AROV FLAG IS ALSO TESTED TO ASCERTAIN 7709 ;* THAT IT WAS NOT SET. 7710 ; ********************************************************************** 7711 7712 ; ********************************************************************** 7713 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ---------- 7714 ; ********************************************************************** 7715 7716 MULTF (F,-1,-2,-1,-3,0,0,0,6)^ 7717 7718 ; --- MULTIPLICAND = (-1,-2) 7719 ; --- MULTIPLIER === (-1,-3) 7720 ; --- RESULT ======= (0,0,0,6) 7721 7722 036433 200 01 0 00 043437 ..0514: MOVE AC1,[[EXP -1,-2,-1,-3,0,0,0,6],,MCAND] 7723 036434 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7724 036435 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7725 ERROR (..0514,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7726 036436 036 14 0 00 043447 7727 036437 035 00 0 00 036433 ERLOOP ..0514 ;IF ERROR, LOOP TO ..0514 7728 ^ 7729 7730 036440 200 14 0 00 040457 ..0515: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7731 036441 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7732 ERROR (..0514,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7733 LL 7734 036442 036 13 0 00 043461 7735 036443 035 00 0 00 036433 ERLOOP ..0514 ;IF ERROR, LOOP TO ..0514 7736 ^ 7737 ^ 7738 7739 ; ********************************************************************** 7740 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ---------- 7741 ; ********************************************************************** 7742 7743 MULTF (F,-2,400000000000,-1,-3,0,0,6)^ 7744 7745 ; --- MULTIPLICAND = (-2,400000000000) 7746 ; --- MULTIPLIER === (-1,-3) 7747 ; --- RESULT ======= (0,0,6,0) 7748 7749 036444 200 01 0 00 043474 ..0516: MOVE AC1,[[EXP -2,400000000000,-1,-3,0,0,6,0],,MCAND] 7750 036445 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7751 036446 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7752 ERROR (..0516,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 23-1 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST F - TEST NEGATIVE OPERANDS SEQ 0182 7753 036447 036 14 0 00 043447 7754 036450 035 00 0 00 036444 ERLOOP ..0516 ;IF ERROR, LOOP TO ..0516 7755 ^ 7756 7757 036451 200 14 0 00 040457 ..0517: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7758 036452 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7759 ERROR (..0516,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7760 LL 7761 036453 036 13 0 00 043461 7762 036454 035 00 0 00 036444 ERLOOP ..0516 ;IF ERROR, LOOP TO ..0516 7763 ^ 7764 ^ 7765 7766 ; ********************************************************************** 7767 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ---------- 7768 ; ********************************************************************** 7769 7770 MULTF (F,-1,-2,-3,400000000000,0,0,6)^ 7771 7772 ; --- MULTIPLICAND = (-1,-2) 7773 ; --- MULTIPLIER === (-3,400000000000) 7774 ; --- RESULT ======= (0,0,6,0) 7775 7776 036455 200 01 0 00 043505 ..0520: MOVE AC1,[[EXP -1,-2,-3,400000000000,0,0,6,0],,MCAND] 7777 036456 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7778 036457 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7779 ERROR (..0520,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7780 036460 036 14 0 00 043447 7781 036461 035 00 0 00 036455 ERLOOP ..0520 ;IF ERROR, LOOP TO ..0520 7782 ^ 7783 7784 036462 200 14 0 00 040457 ..0521: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7785 036463 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7786 ERROR (..0520,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7787 LL 7788 036464 036 13 0 00 043461 7789 036465 035 00 0 00 036455 ERLOOP ..0520 ;IF ERROR, LOOP TO ..0520 7790 ^ 7791 ^ 7792 7793 ; ********************************************************************** 7794 ; ---------- DMUL TEST F - TEST NEGATIVE OPERANDS ---------- 7795 ; ********************************************************************** 7796 7797 MULTF (F,-2,400000000000,-3,400000000000,0,6)^ 7798 7799 ; --- MULTIPLICAND = (-2,400000000000) 7800 ; --- MULTIPLIER === (-3,400000000000) 7801 ; --- RESULT ======= (0,6,0,0) 7802 7803 036466 200 01 0 00 043516 ..0522: MOVE AC1,[[EXP -2,400000000000,-3,400000000000,0,6,0,0],,MCAND] 7804 036467 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7805 036470 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7806 ERROR (..0522,14,SCR1,SCR2,,TEST F - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7807 036471 036 14 0 00 043447 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 23-2 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST F - TEST NEGATIVE OPERANDS SEQ 0183 7808 036472 035 00 0 00 036466 ERLOOP ..0522 ;IF ERROR, LOOP TO ..0522 7809 ^ 7810 7811 036473 200 14 0 00 040457 ..0523: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7812 036474 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7813 ERROR (..0522,13,SCR2,MFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7814 LL 7815 036475 036 13 0 00 043461 7816 036476 035 00 0 00 036466 ERLOOP ..0522 ;IF ERROR, LOOP TO ..0522 7817 ^ 7818 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0184 7819 SUBTTL DMUL - TEST G 7820 7821 ; ********************************************************************** 7822 ;*DMUL - TEST G 7823 ;* 7824 ;* 2 * 3 2,0 * 3,0 THESE TESTS MULTIPLY NUMBERS WHICH HAVE 7825 ;* 2 * -3 2,0 * -3,0 INCONSISTENT SIGNS AMONGST THE WORDS OF 7826 ;* -2 * 3 -2,-1 * 3,0 EACH OPERAND. THE FLAGS IS ALSO TESTED 7827 ;* -2 * -3 -2,-1 * -3,0 TO VERIFY THAT IT IS NOT SET. 7828 ; ********************************************************************** 7829 7830 ; ********************************************************************** 7831 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7832 ; ********************************************************************** 7833 7834 MULTF (G,0,2,0,400000000003,0,0,0,6)^ 7835 7836 ; --- MULTIPLICAND = (0,2) 7837 ; --- MULTIPLIER === (0,400000000003) 7838 ; --- RESULT ======= (0,0,0,6) 7839 7840 036477 200 01 0 00 043527 ..0524: MOVE AC1,[[EXP 0,2,0,400000000003,0,0,0,6],,MCAND] 7841 036500 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7842 036501 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7843 ERROR (..0524,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7844 036502 036 14 0 00 043537 7845 036503 035 00 0 00 036477 ERLOOP ..0524 ;IF ERROR, LOOP TO ..0524 7846 ^ 7847 7848 036504 200 14 0 00 040457 ..0525: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7849 036505 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7850 ERROR (..0524,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7851 LL 7852 036506 036 13 0 00 043551 7853 036507 035 00 0 00 036477 ERLOOP ..0524 ;IF ERROR, LOOP TO ..0524 7854 ^ 7855 ^ 7856 7857 ; ********************************************************************** 7858 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7859 ; ********************************************************************** 7860 7861 MULTF (G,0,400000000002,0,400000000003,0,0,0,6)^ 7862 7863 ; --- MULTIPLICAND = (0,400000000002) 7864 ; --- MULTIPLIER === (0,400000000003) 7865 ; --- RESULT ======= (0,0,0,6) 7866 7867 036510 200 01 0 00 043564 ..0526: MOVE AC1,[[EXP 0,400000000002,0,400000000003,0,0,0,6],,MCAND] 7868 036511 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7869 036512 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7870 ERROR (..0526,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7871 036513 036 14 0 00 043537 7872 036514 035 00 0 00 036510 ERLOOP ..0526 ;IF ERROR, LOOP TO ..0526 7873 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-1 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0185 7874 7875 036515 200 14 0 00 040457 ..0527: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7876 036516 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7877 ERROR (..0526,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7878 LL 7879 036517 036 13 0 00 043551 7880 036520 035 00 0 00 036510 ERLOOP ..0526 ;IF ERROR, LOOP TO ..0526 7881 ^ 7882 ^ 7883 7884 ; ********************************************************************** 7885 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7886 ; ********************************************************************** 7887 7888 MULTF (G,0,400000000002,0,3,0,0,0,6)^ 7889 7890 ; --- MULTIPLICAND = (0,400000000002) 7891 ; --- MULTIPLIER === (0,3) 7892 ; --- RESULT ======= (0,0,0,6) 7893 7894 036521 200 01 0 00 043575 ..0530: MOVE AC1,[[EXP 0,400000000002,0,3,0,0,0,6],,MCAND] 7895 036522 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7896 036523 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7897 ERROR (..0530,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7898 036524 036 14 0 00 043537 7899 036525 035 00 0 00 036521 ERLOOP ..0530 ;IF ERROR, LOOP TO ..0530 7900 ^ 7901 7902 036526 200 14 0 00 040457 ..0531: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7903 036527 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7904 ERROR (..0530,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7905 LL 7906 036530 036 13 0 00 043551 7907 036531 035 00 0 00 036521 ERLOOP ..0530 ;IF ERROR, LOOP TO ..0530 7908 ^ 7909 ^ 7910 7911 ; ********************************************************************** 7912 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7913 ; ********************************************************************** 7914 7915 MULTF (G,0,2,-1,377777777775,-1,-1,-1,-6)^ 7916 7917 ; --- MULTIPLICAND = (0,2) 7918 ; --- MULTIPLIER === (-1,377777777775) 7919 ; --- RESULT ======= (-1,-1,-1,-6) 7920 7921 036532 200 01 0 00 043606 ..0532: MOVE AC1,[[EXP 0,2,-1,377777777775,-1,-1,-1,-6],,MCAND] 7922 036533 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7923 036534 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7924 ERROR (..0532,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7925 036535 036 14 0 00 043537 7926 036536 035 00 0 00 036532 ERLOOP ..0532 ;IF ERROR, LOOP TO ..0532 7927 ^ 7928 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-2 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0186 7929 036537 200 14 0 00 040457 ..0533: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7930 036540 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7931 ERROR (..0532,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7932 LL 7933 036541 036 13 0 00 043551 7934 036542 035 00 0 00 036532 ERLOOP ..0532 ;IF ERROR, LOOP TO ..0532 7935 ^ 7936 ^ 7937 7938 ; ********************************************************************** 7939 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7940 ; ********************************************************************** 7941 7942 MULTF (G,0,400000000002,-1,377777777775,-1,-1,-1,-6)^ 7943 7944 ; --- MULTIPLICAND = (0,400000000002) 7945 ; --- MULTIPLIER === (-1,377777777775) 7946 ; --- RESULT ======= (-1,-1,-1,-6) 7947 7948 036543 200 01 0 00 043617 ..0534: MOVE AC1,[[EXP 0,400000000002,-1,377777777775,-1,-1,-1,-6],,MCAND] 7949 036544 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7950 036545 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7951 ERROR (..0534,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7952 036546 036 14 0 00 043537 7953 036547 035 00 0 00 036543 ERLOOP ..0534 ;IF ERROR, LOOP TO ..0534 7954 ^ 7955 7956 036550 200 14 0 00 040457 ..0535: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 7957 036551 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7958 ERROR (..0534,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7959 LL 7960 036552 036 13 0 00 043551 7961 036553 035 00 0 00 036543 ERLOOP ..0534 ;IF ERROR, LOOP TO ..0534 7962 ^ 7963 ^ 7964 7965 ; ********************************************************************** 7966 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7967 ; ********************************************************************** 7968 7969 MULTF (G,0,400000000002,-1,-3,-1,-1,-1,-6)^ 7970 7971 ; --- MULTIPLICAND = (0,400000000002) 7972 ; --- MULTIPLIER === (-1,-3) 7973 ; --- RESULT ======= (-1,-1,-1,-6) 7974 7975 036554 200 01 0 00 043630 ..0536: MOVE AC1,[[EXP 0,400000000002,-1,-3,-1,-1,-1,-6],,MCAND] 7976 036555 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 7977 036556 260 17 0 00 040451 GO MSUBR ;GO DO TEST 7978 ERROR (..0536,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 7979 036557 036 14 0 00 043537 7980 036560 035 00 0 00 036554 ERLOOP ..0536 ;IF ERROR, LOOP TO ..0536 7981 ^ 7982 7983 036561 200 14 0 00 040457 ..0537: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-3 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0187 7984 036562 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 7985 ERROR (..0536,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 7986 LL 7987 036563 036 13 0 00 043551 7988 036564 035 00 0 00 036554 ERLOOP ..0536 ;IF ERROR, LOOP TO ..0536 7989 ^ 7990 ^ 7991 7992 ; ********************************************************************** 7993 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 7994 ; ********************************************************************** 7995 7996 MULTF (G,-1,-2,0,400000000003,-1,-1,-1,-6)^ 7997 7998 ; --- MULTIPLICAND = (-1,-2) 7999 ; --- MULTIPLIER === (0,400000000003) 8000 ; --- RESULT ======= (-1,-1,-1,-6) 8001 8002 036565 200 01 0 00 043641 ..0540: MOVE AC1,[[EXP -1,-2,0,400000000003,-1,-1,-1,-6],,MCAND] 8003 036566 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8004 036567 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8005 ERROR (..0540,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8006 036570 036 14 0 00 043537 8007 036571 035 00 0 00 036565 ERLOOP ..0540 ;IF ERROR, LOOP TO ..0540 8008 ^ 8009 8010 036572 200 14 0 00 040457 ..0541: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8011 036573 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8012 ERROR (..0540,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8013 LL 8014 036574 036 13 0 00 043551 8015 036575 035 00 0 00 036565 ERLOOP ..0540 ;IF ERROR, LOOP TO ..0540 8016 ^ 8017 ^ 8018 8019 ; ********************************************************************** 8020 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8021 ; ********************************************************************** 8022 8023 MULTF (G,-1,377777777776,0,400000000003,-1,-1,-1,-6)^ 8024 8025 ; --- MULTIPLICAND = (-1,377777777776) 8026 ; --- MULTIPLIER === (0,400000000003) 8027 ; --- RESULT ======= (-1,-1,-1,-6) 8028 8029 036576 200 01 0 00 043652 ..0542: MOVE AC1,[[EXP -1,377777777776,0,400000000003,-1,-1,-1,-6],,MCAND] 8030 036577 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8031 036600 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8032 ERROR (..0542,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8033 036601 036 14 0 00 043537 8034 036602 035 00 0 00 036576 ERLOOP ..0542 ;IF ERROR, LOOP TO ..0542 8035 ^ 8036 8037 036603 200 14 0 00 040457 ..0543: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8038 036604 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-4 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0188 8039 ERROR (..0542,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8040 LL 8041 036605 036 13 0 00 043551 8042 036606 035 00 0 00 036576 ERLOOP ..0542 ;IF ERROR, LOOP TO ..0542 8043 ^ 8044 ^ 8045 8046 ; ********************************************************************** 8047 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8048 ; ********************************************************************** 8049 8050 MULTF (G,-1,377777777776,0,3,-1,-1,-1,-6)^ 8051 8052 ; --- MULTIPLICAND = (-1,377777777776) 8053 ; --- MULTIPLIER === (0,3) 8054 ; --- RESULT ======= (-1,-1,-1,-6) 8055 8056 036607 200 01 0 00 043663 ..0544: MOVE AC1,[[EXP -1,377777777776,0,3,-1,-1,-1,-6],,MCAND] 8057 036610 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8058 036611 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8059 ERROR (..0544,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8060 036612 036 14 0 00 043537 8061 036613 035 00 0 00 036607 ERLOOP ..0544 ;IF ERROR, LOOP TO ..0544 8062 ^ 8063 8064 036614 200 14 0 00 040457 ..0545: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8065 036615 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8066 ERROR (..0544,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8067 LL 8068 036616 036 13 0 00 043551 8069 036617 035 00 0 00 036607 ERLOOP ..0544 ;IF ERROR, LOOP TO ..0544 8070 ^ 8071 ^ 8072 8073 ; ********************************************************************** 8074 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8075 ; ********************************************************************** 8076 8077 MULTF (G,-1,-2,-1,377777777775,0,0,0,6)^ 8078 8079 ; --- MULTIPLICAND = (-1,-2) 8080 ; --- MULTIPLIER === (-1,377777777775) 8081 ; --- RESULT ======= (0,0,0,6) 8082 8083 036620 200 01 0 00 043674 ..0546: MOVE AC1,[[EXP -1,-2,-1,377777777775,0,0,0,6],,MCAND] 8084 036621 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8085 036622 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8086 ERROR (..0546,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8087 036623 036 14 0 00 043537 8088 036624 035 00 0 00 036620 ERLOOP ..0546 ;IF ERROR, LOOP TO ..0546 8089 ^ 8090 8091 036625 200 14 0 00 040457 ..0547: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8092 036626 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8093 ERROR (..0546,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-5 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0189 8094 LL 8095 036627 036 13 0 00 043551 8096 036630 035 00 0 00 036620 ERLOOP ..0546 ;IF ERROR, LOOP TO ..0546 8097 ^ 8098 ^ 8099 8100 ; ********************************************************************** 8101 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8102 ; ********************************************************************** 8103 8104 MULTF (G,-1,377777777776,-1,377777777775,0,0,0,6)^ 8105 8106 ; --- MULTIPLICAND = (-1,377777777776) 8107 ; --- MULTIPLIER === (-1,377777777775) 8108 ; --- RESULT ======= (0,0,0,6) 8109 8110 036631 200 01 0 00 043705 ..0550: MOVE AC1,[[EXP -1,377777777776,-1,377777777775,0,0,0,6],,MCAND] 8111 036632 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8112 036633 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8113 ERROR (..0550,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8114 036634 036 14 0 00 043537 8115 036635 035 00 0 00 036631 ERLOOP ..0550 ;IF ERROR, LOOP TO ..0550 8116 ^ 8117 8118 036636 200 14 0 00 040457 ..0551: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8119 036637 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8120 ERROR (..0550,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8121 LL 8122 036640 036 13 0 00 043551 8123 036641 035 00 0 00 036631 ERLOOP ..0550 ;IF ERROR, LOOP TO ..0550 8124 ^ 8125 ^ 8126 8127 ; ********************************************************************** 8128 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8129 ; ********************************************************************** 8130 8131 MULTF (G,-1,377777777776,-1,-3,0,0,0,6)^ 8132 8133 ; --- MULTIPLICAND = (-1,377777777776) 8134 ; --- MULTIPLIER === (-1,-3) 8135 ; --- RESULT ======= (0,0,0,6) 8136 8137 036642 200 01 0 00 043716 ..0552: MOVE AC1,[[EXP -1,377777777776,-1,-3,0,0,0,6],,MCAND] 8138 036643 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8139 036644 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8140 ERROR (..0552,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8141 036645 036 14 0 00 043537 8142 036646 035 00 0 00 036642 ERLOOP ..0552 ;IF ERROR, LOOP TO ..0552 8143 ^ 8144 8145 036647 200 14 0 00 040457 ..0553: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8146 036650 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8147 ERROR (..0552,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8148 LL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-6 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0190 8149 036651 036 13 0 00 043551 8150 036652 035 00 0 00 036642 ERLOOP ..0552 ;IF ERROR, LOOP TO ..0552 8151 ^ 8152 ^ 8153 8154 ; ********************************************************************** 8155 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8156 ; ********************************************************************** 8157 8158 MULTF (G,2,0,3,400000000000,0,6)^ 8159 8160 ; --- MULTIPLICAND = (2,0) 8161 ; --- MULTIPLIER === (3,400000000000) 8162 ; --- RESULT ======= (0,6,0,0) 8163 8164 036653 200 01 0 00 043727 ..0554: MOVE AC1,[[EXP 2,0,3,400000000000,0,6,0,0],,MCAND] 8165 036654 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8166 036655 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8167 ERROR (..0554,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8168 036656 036 14 0 00 043537 8169 036657 035 00 0 00 036653 ERLOOP ..0554 ;IF ERROR, LOOP TO ..0554 8170 ^ 8171 8172 036660 200 14 0 00 040457 ..0555: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8173 036661 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8174 ERROR (..0554,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8175 LL 8176 036662 036 13 0 00 043551 8177 036663 035 00 0 00 036653 ERLOOP ..0554 ;IF ERROR, LOOP TO ..0554 8178 ^ 8179 ^ 8180 8181 ; ********************************************************************** 8182 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8183 ; ********************************************************************** 8184 8185 MULTF (G,2,400000000000,3,400000000000,0,6)^ 8186 8187 ; --- MULTIPLICAND = (2,400000000000) 8188 ; --- MULTIPLIER === (3,400000000000) 8189 ; --- RESULT ======= (0,6,0,0) 8190 8191 036664 200 01 0 00 043740 ..0556: MOVE AC1,[[EXP 2,400000000000,3,400000000000,0,6,0,0],,MCAND] 8192 036665 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8193 036666 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8194 ERROR (..0556,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8195 036667 036 14 0 00 043537 8196 036670 035 00 0 00 036664 ERLOOP ..0556 ;IF ERROR, LOOP TO ..0556 8197 ^ 8198 8199 036671 200 14 0 00 040457 ..0557: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8200 036672 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8201 ERROR (..0556,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8202 LL 8203 036673 036 13 0 00 043551 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-7 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0191 8204 036674 035 00 0 00 036664 ERLOOP ..0556 ;IF ERROR, LOOP TO ..0556 8205 ^ 8206 ^ 8207 8208 ; ********************************************************************** 8209 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8210 ; ********************************************************************** 8211 8212 MULTF (G,2,400000000000,3,0,0,6,0)^ 8213 8214 ; --- MULTIPLICAND = (2,400000000000) 8215 ; --- MULTIPLIER === (3,0) 8216 ; --- RESULT ======= (0,6,0,0) 8217 8218 036675 200 01 0 00 043751 ..0560: MOVE AC1,[[EXP 2,400000000000,3,0,0,6,0,0],,MCAND] 8219 036676 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8220 036677 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8221 ERROR (..0560,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8222 036700 036 14 0 00 043537 8223 036701 035 00 0 00 036675 ERLOOP ..0560 ;IF ERROR, LOOP TO ..0560 8224 ^ 8225 8226 036702 200 14 0 00 040457 ..0561: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8227 036703 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8228 ERROR (..0560,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8229 LL 8230 036704 036 13 0 00 043551 8231 036705 035 00 0 00 036675 ERLOOP ..0560 ;IF ERROR, LOOP TO ..0560 8232 ^ 8233 ^ 8234 8235 ; ********************************************************************** 8236 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8237 ; ********************************************************************** 8238 8239 MULTF (G,2,0,-3,0,-1,-6,400000000000,400000000000)^ 8240 8241 ; --- MULTIPLICAND = (2,0) 8242 ; --- MULTIPLIER === (-3,0) 8243 ; --- RESULT ======= (-1,-6,400000000000,400000000000) 8244 8245 036706 200 01 0 00 043762 ..0562: MOVE AC1,[[EXP 2,0,-3,0,-1,-6,400000000000,400000000000],,MCAND] 8246 036707 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8247 036710 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8248 ERROR (..0562,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8249 036711 036 14 0 00 043537 8250 036712 035 00 0 00 036706 ERLOOP ..0562 ;IF ERROR, LOOP TO ..0562 8251 ^ 8252 8253 036713 200 14 0 00 040457 ..0563: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8254 036714 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8255 ERROR (..0562,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8256 LL 8257 036715 036 13 0 00 043551 8258 036716 035 00 0 00 036706 ERLOOP ..0562 ;IF ERROR, LOOP TO ..0562 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-8 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0192 8259 ^ 8260 ^ 8261 8262 ; ********************************************************************** 8263 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8264 ; ********************************************************************** 8265 8266 MULTF (G,2,400000000000,-3,0,-1,-6,400000000000,400000000000)^ 8267 8268 ; --- MULTIPLICAND = (2,400000000000) 8269 ; --- MULTIPLIER === (-3,0) 8270 ; --- RESULT ======= (-1,-6,400000000000,400000000000) 8271 8272 036717 200 01 0 00 043773 ..0564: MOVE AC1,[[EXP 2,400000000000,-3,0,-1,-6,400000000000,400000000000],,MCAND] 8273 036720 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8274 036721 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8275 ERROR (..0564,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8276 036722 036 14 0 00 043537 8277 036723 035 00 0 00 036717 ERLOOP ..0564 ;IF ERROR, LOOP TO ..0564 8278 ^ 8279 8280 036724 200 14 0 00 040457 ..0565: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8281 036725 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8282 ERROR (..0564,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8283 LL 8284 036726 036 13 0 00 043551 8285 036727 035 00 0 00 036717 ERLOOP ..0564 ;IF ERROR, LOOP TO ..0564 8286 ^ 8287 ^ 8288 8289 ; ********************************************************************** 8290 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8291 ; ********************************************************************** 8292 8293 MULTF (G,2,400000000000,-3,400000000000,-1,-6,400000000000,400000000000)^ 8294 8295 ; --- MULTIPLICAND = (2,400000000000) 8296 ; --- MULTIPLIER === (-3,400000000000) 8297 ; --- RESULT ======= (-1,-6,400000000000,400000000000) 8298 8299 ..0566: MOVE AC1,[[EXP 2,400000000000,-3,400000000000,-1,-6,400000000000,400000000000],, 8300 036730 200 01 0 00 044004 MCAND] 8301 036731 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8302 036732 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8303 ERROR (..0566,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8304 036733 036 14 0 00 043537 8305 036734 035 00 0 00 036730 ERLOOP ..0566 ;IF ERROR, LOOP TO ..0566 8306 ^ 8307 8308 036735 200 14 0 00 040457 ..0567: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8309 036736 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8310 ERROR (..0566,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8311 LL 8312 036737 036 13 0 00 043551 8313 036740 035 00 0 00 036730 ERLOOP ..0566 ;IF ERROR, LOOP TO ..0566 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-9 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0193 8314 ^ 8315 ^ 8316 8317 ; ********************************************************************** 8318 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8319 ; ********************************************************************** 8320 8321 MULTF (G,-2,400000000000,3,400000000000,-1,-6,400000000000,400000000000)^ 8322 8323 ; --- MULTIPLICAND = (-2,400000000000) 8324 ; --- MULTIPLIER === (3,400000000000) 8325 ; --- RESULT ======= (-1,-6,400000000000,400000000000) 8326 8327 ..0570: MOVE AC1,[[EXP -2,400000000000,3,400000000000,-1,-6,400000000000,400000000000],, 8328 036741 200 01 0 00 044015 MCAND] 8329 036742 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8330 036743 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8331 ERROR (..0570,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8332 036744 036 14 0 00 043537 8333 036745 035 00 0 00 036741 ERLOOP ..0570 ;IF ERROR, LOOP TO ..0570 8334 ^ 8335 8336 036746 200 14 0 00 040457 ..0571: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8337 036747 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8338 ERROR (..0570,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8339 LL 8340 036750 036 13 0 00 043551 8341 036751 035 00 0 00 036741 ERLOOP ..0570 ;IF ERROR, LOOP TO ..0570 8342 ^ 8343 ^ 8344 8345 ; ********************************************************************** 8346 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8347 ; ********************************************************************** 8348 8349 MULTF (G,-2,0,3,400000000000,-1,-6,400000000000,400000000000)^ 8350 8351 ; --- MULTIPLICAND = (-2,0) 8352 ; --- MULTIPLIER === (3,400000000000) 8353 ; --- RESULT ======= (-1,-6,400000000000,400000000000) 8354 8355 036752 200 01 0 00 044026 ..0572: MOVE AC1,[[EXP -2,0,3,400000000000,-1,-6,400000000000,400000000000],,MCAND] 8356 036753 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8357 036754 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8358 ERROR (..0572,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8359 036755 036 14 0 00 043537 8360 036756 035 00 0 00 036752 ERLOOP ..0572 ;IF ERROR, LOOP TO ..0572 8361 ^ 8362 8363 036757 200 14 0 00 040457 ..0573: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8364 036760 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8365 ERROR (..0572,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8366 LL 8367 036761 036 13 0 00 043551 8368 036762 035 00 0 00 036752 ERLOOP ..0572 ;IF ERROR, LOOP TO ..0572 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-10 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0194 8369 ^ 8370 ^ 8371 8372 ; ********************************************************************** 8373 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8374 ; ********************************************************************** 8375 8376 MULTF (G,-2,0,3,0,-1,-6,400000000000,400000000000)^ 8377 8378 ; --- MULTIPLICAND = (-2,0) 8379 ; --- MULTIPLIER === (3,0) 8380 ; --- RESULT ======= (-1,-6,400000000000,400000000000) 8381 8382 036763 200 01 0 00 044037 ..0574: MOVE AC1,[[EXP -2,0,3,0,-1,-6,400000000000,400000000000],,MCAND] 8383 036764 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8384 036765 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8385 ERROR (..0574,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8386 036766 036 14 0 00 043537 8387 036767 035 00 0 00 036763 ERLOOP ..0574 ;IF ERROR, LOOP TO ..0574 8388 ^ 8389 8390 036770 200 14 0 00 040457 ..0575: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8391 036771 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8392 ERROR (..0574,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8393 LL 8394 036772 036 13 0 00 043551 8395 036773 035 00 0 00 036763 ERLOOP ..0574 ;IF ERROR, LOOP TO ..0574 8396 ^ 8397 ^ 8398 8399 ; ********************************************************************** 8400 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8401 ; ********************************************************************** 8402 8403 MULTF (G,-2,400000000000,-3,0,0,6)^ 8404 8405 ; --- MULTIPLICAND = (-2,400000000000) 8406 ; --- MULTIPLIER === (-3,0) 8407 ; --- RESULT ======= (0,6,0,0) 8408 8409 036774 200 01 0 00 044050 ..0576: MOVE AC1,[[EXP -2,400000000000,-3,0,0,6,0,0],,MCAND] 8410 036775 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8411 036776 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8412 ERROR (..0576,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8413 036777 036 14 0 00 043537 8414 037000 035 00 0 00 036774 ERLOOP ..0576 ;IF ERROR, LOOP TO ..0576 8415 ^ 8416 8417 037001 200 14 0 00 040457 ..0577: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8418 037002 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8419 ERROR (..0576,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8420 LL 8421 037003 036 13 0 00 043551 8422 037004 035 00 0 00 036774 ERLOOP ..0576 ;IF ERROR, LOOP TO ..0576 8423 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 24-11 DSKCFM MAC 26-Sep-79 15:49 DMUL - TEST G SEQ 0195 8424 ^ 8425 8426 ; ********************************************************************** 8427 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8428 ; ********************************************************************** 8429 8430 MULTF (G,-2,0,-3,0,0,6)^ 8431 8432 ; --- MULTIPLICAND = (-2,0) 8433 ; --- MULTIPLIER === (-3,0) 8434 ; --- RESULT ======= (0,6,0,0) 8435 8436 037005 200 01 0 00 044061 ..0600: MOVE AC1,[[EXP -2,0,-3,0,0,6,0,0],,MCAND] 8437 037006 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8438 037007 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8439 ERROR (..0600,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8440 037010 036 14 0 00 043537 8441 037011 035 00 0 00 037005 ERLOOP ..0600 ;IF ERROR, LOOP TO ..0600 8442 ^ 8443 8444 037012 200 14 0 00 040457 ..0601: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8445 037013 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8446 ERROR (..0600,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8447 LL 8448 037014 036 13 0 00 043551 8449 037015 035 00 0 00 037005 ERLOOP ..0600 ;IF ERROR, LOOP TO ..0600 8450 ^ 8451 ^ 8452 8453 ; ********************************************************************** 8454 ; ---------- DMUL - TEST G - INCONSISTENT SIGNS ---------- 8455 ; ********************************************************************** 8456 8457 MULTF (G,-2,0,-3,400000000000,0,6)^ 8458 8459 ; --- MULTIPLICAND = (-2,0) 8460 ; --- MULTIPLIER === (-3,400000000000) 8461 ; --- RESULT ======= (0,6,0,0) 8462 8463 037016 200 01 0 00 044072 ..0602: MOVE AC1,[[EXP -2,0,-3,400000000000,0,6,0,0],,MCAND] 8464 037017 251 01 0 00 040511 BLT AC1,MRES+3 ;SET UP OPERANDS FOR SUBROUTINE 8465 037020 260 17 0 00 040451 GO MSUBR ;GO DO TEST 8466 ERROR (..0602,14,SCR1,SCR2,,TEST G - RESULT CALCULATED INCORRECTLY,MPRINT)^SALL 8467 037021 036 14 0 00 043537 8468 037022 035 00 0 00 037016 ERLOOP ..0602 ;IF ERROR, LOOP TO ..0602 8469 ^ 8470 8471 037023 200 14 0 00 040457 ..0603: MOVE SCR2,MFLOC ;GET PC - TO TEST PC FLAGS 8472 037024 623 14 0 00 400000 TLZE SCR2,AROV ;CALC OK PC (NO - AROV) & TEST 8473 ERROR (..0602,13,SCR2,MFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0 TO 4,MPRINT)^SA 8474 LL 8475 037025 036 13 0 00 043551 8476 037026 035 00 0 00 037016 ERLOOP ..0602 ;IF ERROR, LOOP TO ..0602 8477 ^ 8478 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 25 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST A SEQ 0196 8479 SUBTTL DDIV - TEST A 8480 SALL 8481 044073 T=SIXBTZ 8482 LALL 8483 ; ********************************************************************** 8484 ;*DDIV - TEST A 8485 ;* 8486 ;* (0,0,0,#) / 1 THESE BASIC TESTS VERIFY THAT THE DDIV 8487 ;* (0,0,#,0) / 1 HANDLES A QUADRUPLE WORD DIVIDEND. FOR 8488 ;* EACH TEST ALL PERMUTATIONS OF POSITIVE 8489 ;* AND NEGATIVE OPERANDS ARE TESTED. 8490 ; ********************************************************************** 8491 8492 ; ********************************************************************** 8493 ; ---------- DDIV - TEST A - (0,0,0,#) / 1 ---------- 8494 ; ********************************************************************** 8495 8496 PDIV (A,0,0,0,NUM,0,1,0,NUM)^ 8497 8498 ; --- DIVIDEND == (0,0,0,NUM) 8499 ; --- DIVISOR === (0,1) 8500 ; --- QUOTIENT == (0,NUM) 8501 ; --- REMAINDER = (0,0) 8502 8503 037027 200 01 0 00 044107 ..0604: MOVE AC1,[[EXP 0,0,0,NUM,0,1,0,NUM,0,0],,PDEND] 8504 037030 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8505 037031 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8506 ERROR (..0604,14,SCR1,SCR2,,TEST A - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8507 037032 036 14 0 00 044117 8508 037033 035 00 0 00 037027 ERLOOP ..0604 ;IF ERROR, LOOP TO ..0604 8509 ^ 8510 ^ 8511 8512 ; ********************************************************************** 8513 ; ---------- DDIV - TEST A - (0,0,#,0) / 1 ---------- 8514 ; ********************************************************************** 8515 8516 PDIV (A,0,0,NUM,0,0,1,NUM,0)^ 8517 8518 ; --- DIVIDEND == (0,0,NUM,0) 8519 ; --- DIVISOR === (0,1) 8520 ; --- QUOTIENT == (NUM,0) 8521 ; --- REMAINDER = (0,0) 8522 8523 037034 200 01 0 00 044134 ..0605: MOVE AC1,[[EXP 0,0,NUM,0,0,1,NUM,0,0,0],,PDEND] 8524 037035 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8525 037036 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8526 ERROR (..0605,14,SCR1,SCR2,,TEST A - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8527 037037 036 14 0 00 044117 8528 037040 035 00 0 00 037034 ERLOOP ..0605 ;IF ERROR, LOOP TO ..0605 8529 ^ 8530 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 26 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST B SEQ 0197 8531 SUBTTL DDIV - TEST B 8532 8533 ; ********************************************************************** 8534 ;*DDIV - TEST B 8535 ;* 8536 ;* (0,0,0,#) / # THESE TESTS PERFORM SOME CASES MORE 8537 ;* (0,0,#,0) / (#,0) DIFFICULT THAN (A). PERMUTATIONS OF 8538 ;* POSITIVE AND NEGATIVE OPERANDS ARE 8539 ;* TESTED. 8540 ; ********************************************************************** 8541 8542 ; ********************************************************************** 8543 ; ---------- DDIV - TEST B - (0,0,0,#) / # ---------- 8544 ; ********************************************************************** 8545 8546 PDIV (B,0,0,0,NUM,0,NUM,0,1)^ 8547 8548 ; --- DIVIDEND == (0,0,0,NUM) 8549 ; --- DIVISOR === (0,NUM) 8550 ; --- QUOTIENT == (0,1) 8551 ; --- REMAINDER = (0,0) 8552 8553 037041 200 01 0 00 044147 ..0606: MOVE AC1,[[EXP 0,0,0,NUM,0,NUM,0,1,0,0],,PDEND] 8554 037042 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8555 037043 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8556 ERROR (..0606,14,SCR1,SCR2,,TEST B - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8557 037044 036 14 0 00 044157 8558 037045 035 00 0 00 037041 ERLOOP ..0606 ;IF ERROR, LOOP TO ..0606 8559 ^ 8560 ^ 8561 8562 ; ********************************************************************** 8563 ; ---------- DDIV - TEST B - (0,0,#,0) / #,0 ---------- 8564 ; ********************************************************************** 8565 8566 PDIV (B,0,0,NUM,0,NUM,0,0,1)^ 8567 8568 ; --- DIVIDEND == (0,0,NUM,0) 8569 ; --- DIVISOR === (NUM,0) 8570 ; --- QUOTIENT == (0,1) 8571 ; --- REMAINDER = (0,0) 8572 8573 037046 200 01 0 00 044174 ..0607: MOVE AC1,[[EXP 0,0,NUM,0,NUM,0,0,1,0,0],,PDEND] 8574 037047 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8575 037050 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8576 ERROR (..0607,14,SCR1,SCR2,,TEST B - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8577 037051 036 14 0 00 044157 8578 037052 035 00 0 00 037046 ERLOOP ..0607 ;IF ERROR, LOOP TO ..0607 8579 ^ 8580 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0198 8581 SUBTTL DDIV - TEST C 8582 8583 ; ********************************************************************** 8584 ;*DDIV - TEST C 8585 ;* 8586 ;* (0,0,0,1) (0,0,1,0) (0,0,1,0) (0,1,0,0) (0,1,0,0) (1,0,0,0) 8587 ;* ------- ------- ------- ------- ------- ------- 8588 ;* 2 2 2,0 2 2,0 2,0 8589 ;* 8590 ;* THESE TESTS PERFORM DIVISIONS WHICH RESULT IN A SHIFT OF THE 8591 ;* THE DIVIDEND ACROSS WORD BOUNDARIES. 8592 ;* THESE TESTS ARE REPEATED FOR THE VARIOUS PERMUTATIONS OF 8593 ;* POSITIVE AND NEGATIVE OPERANDS. 8594 ; ********************************************************************** 8595 8596 ; ********************************************************************** 8597 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8598 ; ********************************************************************** 8599 8600 PDIV (C,0,0,0,1,0,2,0,0,0,1)^ 8601 8602 ; --- DIVIDEND == (0,0,0,1) 8603 ; --- DIVISOR === (0,2) 8604 ; --- QUOTIENT == (0,0) 8605 ; --- REMAINDER = (0,1) 8606 8607 037053 200 01 0 00 044207 ..0610: MOVE AC1,[[EXP 0,0,0,1,0,2,0,0,0,1],,PDEND] 8608 037054 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8609 037055 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8610 ERROR (..0610,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8611 037056 036 14 0 00 044217 8612 037057 035 00 0 00 037053 ERLOOP ..0610 ;IF ERROR, LOOP TO ..0610 8613 ^ 8614 ^ 8615 8616 ; ********************************************************************** 8617 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8618 ; ********************************************************************** 8619 8620 PDIV (C,0,0,1,0,0,2,0,200000000000,0,0)^ 8621 8622 ; --- DIVIDEND == (0,0,1,0) 8623 ; --- DIVISOR === (0,2) 8624 ; --- QUOTIENT == (0,200000000000) 8625 ; --- REMAINDER = (0,0) 8626 8627 037060 200 01 0 00 044234 ..0611: MOVE AC1,[[EXP 0,0,1,0,0,2,0,200000000000,0,0],,PDEND] 8628 037061 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8629 037062 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8630 ERROR (..0611,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8631 037063 036 14 0 00 044217 8632 037064 035 00 0 00 037060 ERLOOP ..0611 ;IF ERROR, LOOP TO ..0611 8633 ^ 8634 ^ 8635 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-1 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0199 8636 ; ********************************************************************** 8637 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8638 ; ********************************************************************** 8639 8640 PDIV (C,0,0,1,0,2,0,0,0,1,0)^ 8641 8642 ; --- DIVIDEND == (0,0,1,0) 8643 ; --- DIVISOR === (2,0) 8644 ; --- QUOTIENT == (0,0) 8645 ; --- REMAINDER = (1,0) 8646 8647 037065 200 01 0 00 044247 ..0612: MOVE AC1,[[EXP 0,0,1,0,2,0,0,0,1,0],,PDEND] 8648 037066 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8649 037067 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8650 ERROR (..0612,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8651 037070 036 14 0 00 044217 8652 037071 035 00 0 00 037065 ERLOOP ..0612 ;IF ERROR, LOOP TO ..0612 8653 ^ 8654 ^ 8655 8656 ; ********************************************************************** 8657 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8658 ; ********************************************************************** 8659 8660 PDIV (C,0,1,0,0,0,2,200000000000,0,0,0)^ 8661 8662 ; --- DIVIDEND == (0,1,0,0) 8663 ; --- DIVISOR === (0,2) 8664 ; --- QUOTIENT == (200000000000,0) 8665 ; --- REMAINDER = (0,0) 8666 8667 037072 200 01 0 00 044262 ..0613: MOVE AC1,[[EXP 0,1,0,0,0,2,200000000000,0,0,0],,PDEND] 8668 037073 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8669 037074 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8670 ERROR (..0613,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8671 037075 036 14 0 00 044217 8672 037076 035 00 0 00 037072 ERLOOP ..0613 ;IF ERROR, LOOP TO ..0613 8673 ^ 8674 ^ 8675 8676 ; ********************************************************************** 8677 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8678 ; ********************************************************************** 8679 8680 PDIV (C,0,1,0,0,2,0,0,200000000000,0,0)^ 8681 8682 ; --- DIVIDEND == (0,1,0,0) 8683 ; --- DIVISOR === (2,0) 8684 ; --- QUOTIENT == (0,200000000000) 8685 ; --- REMAINDER = (0,0) 8686 8687 037077 200 01 0 00 044275 ..0614: MOVE AC1,[[EXP 0,1,0,0,2,0,0,200000000000,0,0],,PDEND] 8688 037100 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8689 037101 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8690 ERROR (..0614,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-2 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0200 8691 037102 036 14 0 00 044217 8692 037103 035 00 0 00 037077 ERLOOP ..0614 ;IF ERROR, LOOP TO ..0614 8693 ^ 8694 ^ 8695 8696 ; ********************************************************************** 8697 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8698 ; ********************************************************************** 8699 8700 PDIV (C,1,0,0,0,2,0,200000000000,0,0,0)^ 8701 8702 ; --- DIVIDEND == (1,0,0,0) 8703 ; --- DIVISOR === (2,0) 8704 ; --- QUOTIENT == (200000000000,0) 8705 ; --- REMAINDER = (0,0) 8706 8707 037104 200 01 0 00 044310 ..0615: MOVE AC1,[[EXP 1,0,0,0,2,0,200000000000,0,0,0],,PDEND] 8708 037105 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8709 037106 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8710 ERROR (..0615,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8711 037107 036 14 0 00 044217 8712 037110 035 00 0 00 037104 ERLOOP ..0615 ;IF ERROR, LOOP TO ..0615 8713 ^ 8714 ^ 8715 8716 ; ********************************************************************** 8717 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8718 ; ********************************************************************** 8719 8720 PDIV (C,-1,-1,-1,-1,0,2,0,0,-1,-1)^ 8721 8722 ; --- DIVIDEND == (-1,-1,-1,-1) 8723 ; --- DIVISOR === (0,2) 8724 ; --- QUOTIENT == (0,0) 8725 ; --- REMAINDER = (-1,-1) 8726 8727 037111 200 01 0 00 044323 ..0616: MOVE AC1,[[EXP -1,-1,-1,-1,0,2,0,0,-1,-1],,PDEND] 8728 037112 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8729 037113 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8730 ERROR (..0616,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8731 037114 036 14 0 00 044217 8732 037115 035 00 0 00 037111 ERLOOP ..0616 ;IF ERROR, LOOP TO ..0616 8733 ^ 8734 ^ 8735 8736 ; ********************************************************************** 8737 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8738 ; ********************************************************************** 8739 8740 PDIV (C,-1,-1,-1,1B0,0,2,-1,600000000000,0,0)^ 8741 8742 ; --- DIVIDEND == (-1,-1,-1,1B0) 8743 ; --- DIVISOR === (0,2) 8744 ; --- QUOTIENT == (-1,600000000000) 8745 ; --- REMAINDER = (0,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-3 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0201 8746 8747 037116 200 01 0 00 044336 ..0617: MOVE AC1,[[EXP -1,-1,-1,1B0,0,2,-1,600000000000,0,0],,PDEND] 8748 037117 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8749 037120 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8750 ERROR (..0617,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8751 037121 036 14 0 00 044217 8752 037122 035 00 0 00 037116 ERLOOP ..0617 ;IF ERROR, LOOP TO ..0617 8753 ^ 8754 ^ 8755 8756 ; ********************************************************************** 8757 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8758 ; ********************************************************************** 8759 8760 PDIV (C,-1,-1,-1,1B0,2,0,0,0,-1,1B0)^ 8761 8762 ; --- DIVIDEND == (-1,-1,-1,1B0) 8763 ; --- DIVISOR === (2,0) 8764 ; --- QUOTIENT == (0,0) 8765 ; --- REMAINDER = (-1,1B0) 8766 8767 037123 200 01 0 00 044351 ..0620: MOVE AC1,[[EXP -1,-1,-1,1B0,2,0,0,0,-1,1B0],,PDEND] 8768 037124 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8769 037125 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8770 ERROR (..0620,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8771 037126 036 14 0 00 044217 8772 037127 035 00 0 00 037123 ERLOOP ..0620 ;IF ERROR, LOOP TO ..0620 8773 ^ 8774 ^ 8775 8776 ; ********************************************************************** 8777 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8778 ; ********************************************************************** 8779 8780 PDIV (C,-1,-1,1B0,1B0,0,2,600000000000,1B0,0,0)^ 8781 8782 ; --- DIVIDEND == (-1,-1,1B0,1B0) 8783 ; --- DIVISOR === (0,2) 8784 ; --- QUOTIENT == (600000000000,1B0) 8785 ; --- REMAINDER = (0,0) 8786 8787 037130 200 01 0 00 044364 ..0621: MOVE AC1,[[EXP -1,-1,1B0,1B0,0,2,600000000000,1B0,0,0],,PDEND] 8788 037131 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8789 037132 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8790 ERROR (..0621,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8791 037133 036 14 0 00 044217 8792 037134 035 00 0 00 037130 ERLOOP ..0621 ;IF ERROR, LOOP TO ..0621 8793 ^ 8794 ^ 8795 8796 ; ********************************************************************** 8797 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8798 ; ********************************************************************** 8799 8800 PDIV (C,-1,-1,1B0,1B0,2,0,-1,600000000000,0,0)^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-4 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0202 8801 8802 ; --- DIVIDEND == (-1,-1,1B0,1B0) 8803 ; --- DIVISOR === (2,0) 8804 ; --- QUOTIENT == (-1,600000000000) 8805 ; --- REMAINDER = (0,0) 8806 8807 037135 200 01 0 00 044377 ..0622: MOVE AC1,[[EXP -1,-1,1B0,1B0,2,0,-1,600000000000,0,0],,PDEND] 8808 037136 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8809 037137 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8810 ERROR (..0622,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8811 037140 036 14 0 00 044217 8812 037141 035 00 0 00 037135 ERLOOP ..0622 ;IF ERROR, LOOP TO ..0622 8813 ^ 8814 ^ 8815 8816 ; ********************************************************************** 8817 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8818 ; ********************************************************************** 8819 8820 PDIV (C,-1,1B0,1B0,1B0,2,0,600000000000,1B0,0,0)^ 8821 8822 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 8823 ; --- DIVISOR === (2,0) 8824 ; --- QUOTIENT == (600000000000,1B0) 8825 ; --- REMAINDER = (0,0) 8826 8827 037142 200 01 0 00 044412 ..0623: MOVE AC1,[[EXP -1,1B0,1B0,1B0,2,0,600000000000,1B0,0,0],,PDEND] 8828 037143 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8829 037144 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8830 ERROR (..0623,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8831 037145 036 14 0 00 044217 8832 037146 035 00 0 00 037142 ERLOOP ..0623 ;IF ERROR, LOOP TO ..0623 8833 ^ 8834 ^ 8835 8836 ; ********************************************************************** 8837 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8838 ; ********************************************************************** 8839 8840 PDIV (C,0,0,0,1,-1,-2,0,0,0,1)^ 8841 8842 ; --- DIVIDEND == (0,0,0,1) 8843 ; --- DIVISOR === (-1,-2) 8844 ; --- QUOTIENT == (0,0) 8845 ; --- REMAINDER = (0,1) 8846 8847 037147 200 01 0 00 044425 ..0624: MOVE AC1,[[EXP 0,0,0,1,-1,-2,0,0,0,1],,PDEND] 8848 037150 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8849 037151 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8850 ERROR (..0624,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8851 037152 036 14 0 00 044217 8852 037153 035 00 0 00 037147 ERLOOP ..0624 ;IF ERROR, LOOP TO ..0624 8853 ^ 8854 ^ 8855 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-5 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0203 8856 ; ********************************************************************** 8857 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8858 ; ********************************************************************** 8859 8860 PDIV (C,0,0,1,0,-1,-2,-1,600000000000,0,0)^ 8861 8862 ; --- DIVIDEND == (0,0,1,0) 8863 ; --- DIVISOR === (-1,-2) 8864 ; --- QUOTIENT == (-1,600000000000) 8865 ; --- REMAINDER = (0,0) 8866 8867 037154 200 01 0 00 044440 ..0625: MOVE AC1,[[EXP 0,0,1,0,-1,-2,-1,600000000000,0,0],,PDEND] 8868 037155 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8869 037156 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8870 ERROR (..0625,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8871 037157 036 14 0 00 044217 8872 037160 035 00 0 00 037154 ERLOOP ..0625 ;IF ERROR, LOOP TO ..0625 8873 ^ 8874 ^ 8875 8876 ; ********************************************************************** 8877 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8878 ; ********************************************************************** 8879 8880 PDIV (C,0,0,1,0,-2,1B0,0,0,1,0)^ 8881 8882 ; --- DIVIDEND == (0,0,1,0) 8883 ; --- DIVISOR === (-2,1B0) 8884 ; --- QUOTIENT == (0,0) 8885 ; --- REMAINDER = (1,0) 8886 8887 037161 200 01 0 00 044453 ..0626: MOVE AC1,[[EXP 0,0,1,0,-2,1B0,0,0,1,0],,PDEND] 8888 037162 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8889 037163 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8890 ERROR (..0626,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8891 037164 036 14 0 00 044217 8892 037165 035 00 0 00 037161 ERLOOP ..0626 ;IF ERROR, LOOP TO ..0626 8893 ^ 8894 ^ 8895 8896 ; ********************************************************************** 8897 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8898 ; ********************************************************************** 8899 8900 PDIV (C,0,1,0,0,-1,-2,600000000000,1B0,0,0)^ 8901 8902 ; --- DIVIDEND == (0,1,0,0) 8903 ; --- DIVISOR === (-1,-2) 8904 ; --- QUOTIENT == (600000000000,1B0) 8905 ; --- REMAINDER = (0,0) 8906 8907 037166 200 01 0 00 044466 ..0627: MOVE AC1,[[EXP 0,1,0,0,-1,-2,600000000000,1B0,0,0],,PDEND] 8908 037167 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8909 037170 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8910 ERROR (..0627,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-6 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0204 8911 037171 036 14 0 00 044217 8912 037172 035 00 0 00 037166 ERLOOP ..0627 ;IF ERROR, LOOP TO ..0627 8913 ^ 8914 ^ 8915 8916 ; ********************************************************************** 8917 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8918 ; ********************************************************************** 8919 8920 PDIV (C,0,1,0,0,-2,1B0,-1,600000000000,0,0)^ 8921 8922 ; --- DIVIDEND == (0,1,0,0) 8923 ; --- DIVISOR === (-2,1B0) 8924 ; --- QUOTIENT == (-1,600000000000) 8925 ; --- REMAINDER = (0,0) 8926 8927 037173 200 01 0 00 044501 ..0630: MOVE AC1,[[EXP 0,1,0,0,-2,1B0,-1,600000000000,0,0],,PDEND] 8928 037174 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8929 037175 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8930 ERROR (..0630,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8931 037176 036 14 0 00 044217 8932 037177 035 00 0 00 037173 ERLOOP ..0630 ;IF ERROR, LOOP TO ..0630 8933 ^ 8934 ^ 8935 8936 ; ********************************************************************** 8937 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8938 ; ********************************************************************** 8939 8940 PDIV (C,1,0,0,0,-2,1B0,600000000000,1B0,0,0)^ 8941 8942 ; --- DIVIDEND == (1,0,0,0) 8943 ; --- DIVISOR === (-2,1B0) 8944 ; --- QUOTIENT == (600000000000,1B0) 8945 ; --- REMAINDER = (0,0) 8946 8947 037200 200 01 0 00 044514 ..0631: MOVE AC1,[[EXP 1,0,0,0,-2,1B0,600000000000,1B0,0,0],,PDEND] 8948 037201 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8949 037202 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8950 ERROR (..0631,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8951 037203 036 14 0 00 044217 8952 037204 035 00 0 00 037200 ERLOOP ..0631 ;IF ERROR, LOOP TO ..0631 8953 ^ 8954 ^ 8955 8956 ; ********************************************************************** 8957 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8958 ; ********************************************************************** 8959 8960 PDIV (C,-1,-1,-1,-1,-1,-2,0,0,-1,-1)^ 8961 8962 ; --- DIVIDEND == (-1,-1,-1,-1) 8963 ; --- DIVISOR === (-1,-2) 8964 ; --- QUOTIENT == (0,0) 8965 ; --- REMAINDER = (-1,-1) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-7 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0205 8966 8967 037205 200 01 0 00 044527 ..0632: MOVE AC1,[[EXP -1,-1,-1,-1,-1,-2,0,0,-1,-1],,PDEND] 8968 037206 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8969 037207 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8970 ERROR (..0632,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8971 037210 036 14 0 00 044217 8972 037211 035 00 0 00 037205 ERLOOP ..0632 ;IF ERROR, LOOP TO ..0632 8973 ^ 8974 ^ 8975 8976 ; ********************************************************************** 8977 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8978 ; ********************************************************************** 8979 8980 PDIV (C,-1,-1,-1,1B0,-1,-2,0,200000000000,0,0)^ 8981 8982 ; --- DIVIDEND == (-1,-1,-1,1B0) 8983 ; --- DIVISOR === (-1,-2) 8984 ; --- QUOTIENT == (0,200000000000) 8985 ; --- REMAINDER = (0,0) 8986 8987 037212 200 01 0 00 044542 ..0633: MOVE AC1,[[EXP -1,-1,-1,1B0,-1,-2,0,200000000000,0,0],,PDEND] 8988 037213 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 8989 037214 260 17 0 00 040513 GO PSUBR ;GO DO TEST 8990 ERROR (..0633,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 8991 037215 036 14 0 00 044217 8992 037216 035 00 0 00 037212 ERLOOP ..0633 ;IF ERROR, LOOP TO ..0633 8993 ^ 8994 ^ 8995 8996 ; ********************************************************************** 8997 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 8998 ; ********************************************************************** 8999 9000 PDIV (C,-1,-1,-1,1B0,-2,1B0,0,0,-1,1B0)^ 9001 9002 ; --- DIVIDEND == (-1,-1,-1,1B0) 9003 ; --- DIVISOR === (-2,1B0) 9004 ; --- QUOTIENT == (0,0) 9005 ; --- REMAINDER = (-1,1B0) 9006 9007 037217 200 01 0 00 044555 ..0634: MOVE AC1,[[EXP -1,-1,-1,1B0,-2,1B0,0,0,-1,1B0],,PDEND] 9008 037220 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9009 037221 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9010 ERROR (..0634,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9011 037222 036 14 0 00 044217 9012 037223 035 00 0 00 037217 ERLOOP ..0634 ;IF ERROR, LOOP TO ..0634 9013 ^ 9014 ^ 9015 9016 ; ********************************************************************** 9017 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 9018 ; ********************************************************************** 9019 9020 PDIV (C,-1,-1,1B0,1B0,-1,-2,200000000000,0,0,0)^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 27-8 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST C SEQ 0206 9021 9022 ; --- DIVIDEND == (-1,-1,1B0,1B0) 9023 ; --- DIVISOR === (-1,-2) 9024 ; --- QUOTIENT == (200000000000,0) 9025 ; --- REMAINDER = (0,0) 9026 9027 037224 200 01 0 00 044570 ..0635: MOVE AC1,[[EXP -1,-1,1B0,1B0,-1,-2,200000000000,0,0,0],,PDEND] 9028 037225 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9029 037226 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9030 ERROR (..0635,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9031 037227 036 14 0 00 044217 9032 037230 035 00 0 00 037224 ERLOOP ..0635 ;IF ERROR, LOOP TO ..0635 9033 ^ 9034 ^ 9035 9036 ; ********************************************************************** 9037 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 9038 ; ********************************************************************** 9039 9040 PDIV (C,-1,-1,1B0,1B0,-2,1B0,0,200000000000,0,0)^ 9041 9042 ; --- DIVIDEND == (-1,-1,1B0,1B0) 9043 ; --- DIVISOR === (-2,1B0) 9044 ; --- QUOTIENT == (0,200000000000) 9045 ; --- REMAINDER = (0,0) 9046 9047 037231 200 01 0 00 044603 ..0636: MOVE AC1,[[EXP -1,-1,1B0,1B0,-2,1B0,0,200000000000,0,0],,PDEND] 9048 037232 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9049 037233 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9050 ERROR (..0636,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9051 037234 036 14 0 00 044217 9052 037235 035 00 0 00 037231 ERLOOP ..0636 ;IF ERROR, LOOP TO ..0636 9053 ^ 9054 ^ 9055 9056 ; ********************************************************************** 9057 ; ---------- DDIV - TEST C (GENERAL TESTING) ---------- 9058 ; ********************************************************************** 9059 9060 PDIV (C,-1,1B0,1B0,1B0,-2,1B0,200000000000,0,0,0)^ 9061 9062 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 9063 ; --- DIVISOR === (-2,1B0) 9064 ; --- QUOTIENT == (200000000000,0) 9065 ; --- REMAINDER = (0,0) 9066 9067 037236 200 01 0 00 044616 ..0637: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-2,1B0,200000000000,0,0,0],,PDEND] 9068 037237 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9069 037240 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9070 ERROR (..0637,14,SCR1,SCR2,,TEST C - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9071 037241 036 14 0 00 044217 9072 037242 035 00 0 00 037236 ERLOOP ..0637 ;IF ERROR, LOOP TO ..0637 9073 ^ 9074 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0207 9075 SUBTTL DDIV - TEST D 9076 9077 ; ********************************************************************** 9078 ;*DDIV - TEST D 9079 ;* 9080 ;* MISCELLANEOUS TESTING. THESE TESTS DIVIDE 2 NUMBERS AND JUST 9081 ;* CHECK TO SEE THAT THE DDIV GETS THE CORRECT ANSWERS. 9082 ; ********************************************************************** 9083 9084 111111 111111 ONE=111111111111 9085 222222 222222 TWO=222222222222 9086 333333 333333 THREE=333333333333 9087 444444 444444 FOUR=444444444444 9088 555555 555555 FIVE=555555555555 9089 9090 ; ********************************************************************** 9091 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9092 ; ********************************************************************** 9093 9094 PDIVF (D,THREE,THREE,THREE,THREE,344444444444,FOUR,365605075342,070414545131,0556 9095 32516360,373564760527)^ 9096 9097 ; --- DIVIDEND == (THREE,THREE,THREE,THREE) 9098 ; --- DIVISOR === (344444444444,FOUR) 9099 ; --- QUOTIENT == (365605075342,070414545131) 9100 ; --- REMAINDER = (055632516360,373564760527) 9101 9102 ..0640: MOVE AC1,[[EXP THREE,THREE,THREE,THREE,344444444444,FOUR,365605075342,0704145451 9103 037243 200 01 0 00 044631 31,055632516360,373564760527],,PDEND] 9104 037244 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9105 037245 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9106 ERROR (..0640,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9107 037246 036 14 0 00 044641 9108 037247 035 00 0 00 037243 ERLOOP ..0640 ;IF ERROR, LOOP TO ..0640 9109 ^ 9110 9111 037250 200 14 0 00 040521 ..0641: MOVE SCR2,PFLOC ;GET PC 9112 037251 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9113 ERROR (..0640,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9114 LL 9115 037252 036 13 0 00 044653 9116 037253 035 00 0 00 037243 ERLOOP ..0640 ;IF ERROR, LOOP TO ..0640 9117 ^ 9118 ^ 9119 9120 ; ********************************************************************** 9121 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9122 ; ********************************************************************** 9123 9124 PDIVF (D,THREE,FOUR,THREE,FOUR,344444444444,THREE,365605075340,247073632327,21367 9125 2200375,376365035467)^ 9126 9127 ; --- DIVIDEND == (THREE,FOUR,THREE,FOUR) 9128 ; --- DIVISOR === (344444444444,THREE) 9129 ; --- QUOTIENT == (365605075340,247073632327) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28-1 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0208 9130 ; --- REMAINDER = (213672200375,376365035467) 9131 9132 ..0642: MOVE AC1,[[EXP THREE,FOUR,THREE,FOUR,344444444444,THREE,365605075340,24707363232 9133 037254 200 01 0 00 044670 7,213672200375,376365035467],,PDEND] 9134 037255 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9135 037256 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9136 ERROR (..0642,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9137 037257 036 14 0 00 044641 9138 037260 035 00 0 00 037254 ERLOOP ..0642 ;IF ERROR, LOOP TO ..0642 9139 ^ 9140 9141 037261 200 14 0 00 040521 ..0643: MOVE SCR2,PFLOC ;GET PC 9142 037262 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9143 ERROR (..0642,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9144 LL 9145 037263 036 13 0 00 044653 9146 037264 035 00 0 00 037254 ERLOOP ..0642 ;IF ERROR, LOOP TO ..0642 9147 ^ 9148 ^ 9149 9150 ; ********************************************************************** 9151 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9152 ; ********************************************************************** 9153 9154 PDIVF (D,TWO,TWO,TWO,TWO,THREE,THREE,252525252525,125252525253,ONE,ONE)^ 9155 9156 ; --- DIVIDEND == (TWO,TWO,TWO,TWO) 9157 ; --- DIVISOR === (THREE,THREE) 9158 ; --- QUOTIENT == (252525252525,125252525253) 9159 ; --- REMAINDER = (ONE,ONE) 9160 9161 ..0644: MOVE AC1,[[EXP TWO,TWO,TWO,TWO,THREE,THREE,252525252525,125252525253,ONE,ONE],,P 9162 037265 200 01 0 00 044703 DEND] 9163 037266 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9164 037267 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9165 ERROR (..0644,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9166 037270 036 14 0 00 044641 9167 037271 035 00 0 00 037265 ERLOOP ..0644 ;IF ERROR, LOOP TO ..0644 9168 ^ 9169 9170 037272 200 14 0 00 040521 ..0645: MOVE SCR2,PFLOC ;GET PC 9171 037273 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9172 ERROR (..0644,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9173 LL 9174 037274 036 13 0 00 044653 9175 037275 035 00 0 00 037265 ERLOOP ..0644 ;IF ERROR, LOOP TO ..0644 9176 ^ 9177 ^ 9178 9179 ; ********************************************************************** 9180 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9181 ; ********************************************************************** 9182 9183 PDIVF (D,TWO,THREE,TWO,THREE,THREE,FOUR,252525252526,070707070710,004040404041,32 9184 7272727273)^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28-2 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0209 9185 9186 ; --- DIVIDEND == (TWO,THREE,TWO,THREE) 9187 ; --- DIVISOR === (THREE,FOUR) 9188 ; --- QUOTIENT == (252525252526,070707070710) 9189 ; --- REMAINDER = (004040404041,327272727273) 9190 9191 ..0646: MOVE AC1,[[EXP TWO,THREE,TWO,THREE,THREE,FOUR,252525252526,070707070710,00404040 9192 037276 200 01 0 00 044716 4041,327272727273],,PDEND] 9193 037277 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9194 037300 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9195 ERROR (..0646,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9196 037301 036 14 0 00 044641 9197 037302 035 00 0 00 037276 ERLOOP ..0646 ;IF ERROR, LOOP TO ..0646 9198 ^ 9199 9200 037303 200 14 0 00 040521 ..0647: MOVE SCR2,PFLOC ;GET PC 9201 037304 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9202 ERROR (..0646,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9203 LL 9204 037305 036 13 0 00 044653 9205 037306 035 00 0 00 037276 ERLOOP ..0646 ;IF ERROR, LOOP TO ..0646 9206 ^ 9207 ^ 9208 9209 ; ********************************************************************** 9210 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9211 ; ********************************************************************** 9212 9213 PDIVF (D,255555555555,FIVE,FIVE,FIVE,311111111111,ONE,335056427213,035475265746,1 9214 44375704605,004166365327)^ 9215 9216 ; --- DIVIDEND == (255555555555,FIVE,FIVE,FIVE) 9217 ; --- DIVISOR === (311111111111,ONE) 9218 ; --- QUOTIENT == (335056427213,035475265746) 9219 ; --- REMAINDER = (144375704605,004166365327) 9220 9221 ..0650: MOVE AC1,[[EXP 255555555555,FIVE,FIVE,FIVE,311111111111,ONE,335056427213,0354752 9222 037307 200 01 0 00 044731 65746,144375704605,004166365327],,PDEND] 9223 037310 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9224 037311 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9225 ERROR (..0650,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9226 037312 036 14 0 00 044641 9227 037313 035 00 0 00 037307 ERLOOP ..0650 ;IF ERROR, LOOP TO ..0650 9228 ^ 9229 9230 037314 200 14 0 00 040521 ..0651: MOVE SCR2,PFLOC ;GET PC 9231 037315 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9232 ERROR (..0650,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9233 LL 9234 037316 036 13 0 00 044653 9235 037317 035 00 0 00 037307 ERLOOP ..0650 ;IF ERROR, LOOP TO ..0650 9236 ^ 9237 ^ 9238 9239 ; ********************************************************************** DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28-3 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0210 9240 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9241 ; ********************************************************************** 9242 9243 PDIVF (D,255555555555,TWO,FIVE,TWO,311111111111,666666666666,335056427212,3234437 9244 57047,240023257716,107503314730)^ 9245 9246 ; --- DIVIDEND == (255555555555,TWO,FIVE,TWO) 9247 ; --- DIVISOR === (311111111111,666666666666) 9248 ; --- QUOTIENT == (335056427212,323443757047) 9249 ; --- REMAINDER = (240023257716,107503314730) 9250 9251 ..0652: MOVE AC1,[[EXP 255555555555,TWO,FIVE,TWO,311111111111,666666666666,335056427212, 9252 037320 200 01 0 00 044744 323443757047,240023257716,107503314730],,PDEND] 9253 037321 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9254 037322 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9255 ERROR (..0652,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9256 037323 036 14 0 00 044641 9257 037324 035 00 0 00 037320 ERLOOP ..0652 ;IF ERROR, LOOP TO ..0652 9258 ^ 9259 9260 037325 200 14 0 00 040521 ..0653: MOVE SCR2,PFLOC ;GET PC 9261 037326 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9262 ERROR (..0652,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9263 LL 9264 037327 036 13 0 00 044653 9265 037330 035 00 0 00 037320 ERLOOP ..0652 ;IF ERROR, LOOP TO ..0652 9266 ^ 9267 ^ 9268 9269 ; ********************************************************************** 9270 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9271 ; ********************************************************************** 9272 9273 123456 123456 K=123456123456 9274 PDIVF (D,K,K,K,K,234567234567,234567234567,210420323476,136703233600,055256055256 9275 ,055256055256)^ 9276 9277 ; --- DIVIDEND == (K,K,K,K) 9278 ; --- DIVISOR === (234567234567,234567234567) 9279 ; --- QUOTIENT == (210420323476,136703233600) 9280 ; --- REMAINDER = (055256055256,055256055256) 9281 9282 ..0654: MOVE AC1,[[EXP K,K,K,K,234567234567,234567234567,210420323476,136703233600,05525 9283 037331 200 01 0 00 044757 6055256,055256055256],,PDEND] 9284 037332 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9285 037333 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9286 ERROR (..0654,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9287 037334 036 14 0 00 044641 9288 037335 035 00 0 00 037331 ERLOOP ..0654 ;IF ERROR, LOOP TO ..0654 9289 ^ 9290 9291 037336 200 14 0 00 040521 ..0655: MOVE SCR2,PFLOC ;GET PC 9292 037337 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9293 ERROR (..0654,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9294 LL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28-4 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0211 9295 037340 036 13 0 00 044653 9296 037341 035 00 0 00 037331 ERLOOP ..0654 ;IF ERROR, LOOP TO ..0654 9297 ^ 9298 ^ 9299 9300 ; ********************************************************************** 9301 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9302 ; ********************************************************************** 9303 9304 PDIVF (D,FOUR,FOUR,FOUR,FOUR,THREE,333333333334,1B0,400000000001,511111111110,511 9305 111111110)^ 9306 9307 ; --- DIVIDEND == (FOUR,FOUR,FOUR,FOUR) 9308 ; --- DIVISOR === (THREE,333333333334) 9309 ; --- QUOTIENT == (1B0,400000000001) 9310 ; --- REMAINDER = (511111111110,511111111110) 9311 9312 ..0656: MOVE AC1,[[EXP FOUR,FOUR,FOUR,FOUR,THREE,333333333334,1B0,400000000001,511111111 9313 037342 200 01 0 00 044772 110,511111111110],,PDEND] 9314 037343 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9315 037344 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9316 ERROR (..0656,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9317 037345 036 14 0 00 044641 9318 037346 035 00 0 00 037342 ERLOOP ..0656 ;IF ERROR, LOOP TO ..0656 9319 ^ 9320 9321 037347 200 14 0 00 040521 ..0657: MOVE SCR2,PFLOC ;GET PC 9322 037350 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9323 ERROR (..0656,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9324 LL 9325 037351 036 13 0 00 044653 9326 037352 035 00 0 00 037342 ERLOOP ..0656 ;IF ERROR, LOOP TO ..0656 9327 ^ 9328 ^ 9329 9330 ; ********************************************************************** 9331 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9332 ; ********************************************************************** 9333 9334 PDIVF (D,FIVE,FIVE,FIVE,FIVE,FOUR,FOUR,252525252525,125252525252,606060606060,460 9335 606060605)^ 9336 9337 ; --- DIVIDEND == (FIVE,FIVE,FIVE,FIVE) 9338 ; --- DIVISOR === (FOUR,FOUR) 9339 ; --- QUOTIENT == (252525252525,125252525252) 9340 ; --- REMAINDER = (606060606060,460606060605) 9341 9342 ..0660: MOVE AC1,[[EXP FIVE,FIVE,FIVE,FIVE,FOUR,FOUR,252525252525,125252525252,606060606 9343 037353 200 01 0 00 045005 060,460606060605],,PDEND] 9344 037354 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9345 037355 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9346 ERROR (..0660,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9347 037356 036 14 0 00 044641 9348 037357 035 00 0 00 037353 ERLOOP ..0660 ;IF ERROR, LOOP TO ..0660 9349 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28-5 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0212 9350 9351 037360 200 14 0 00 040521 ..0661: MOVE SCR2,PFLOC ;GET PC 9352 037361 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9353 ERROR (..0660,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9354 LL 9355 037362 036 13 0 00 044653 9356 037363 035 00 0 00 037353 ERLOOP ..0660 ;IF ERROR, LOOP TO ..0660 9357 ^ 9358 ^ 9359 9360 ; ********************************************************************** 9361 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9362 ; ********************************************************************** 9363 9364 PDIVF (D,FOUR,FIVE,FOUR,FIVE,432123456765,432123456765,364320315052,247020761620, 9365 473571652245,600514541235)^ 9366 9367 ; --- DIVIDEND == (FOUR,FIVE,FOUR,FIVE) 9368 ; --- DIVISOR === (432123456765,432123456765) 9369 ; --- QUOTIENT == (364320315052,247020761620) 9370 ; --- REMAINDER = (473571652245,600514541235) 9371 9372 ..0662: MOVE AC1,[[EXP FOUR,FIVE,FOUR,FIVE,432123456765,432123456765,364320315052,247020 9373 037364 200 01 0 00 045020 761620,473571652245,600514541235],,PDEND] 9374 037365 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9375 037366 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9376 ERROR (..0662,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9377 037367 036 14 0 00 044641 9378 037370 035 00 0 00 037364 ERLOOP ..0662 ;IF ERROR, LOOP TO ..0662 9379 ^ 9380 9381 037371 200 14 0 00 040521 ..0663: MOVE SCR2,PFLOC ;GET PC 9382 037372 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9383 ERROR (..0662,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9384 LL 9385 037373 036 13 0 00 044653 9386 037374 035 00 0 00 037364 ERLOOP ..0662 ;IF ERROR, LOOP TO ..0662 9387 ^ 9388 ^ 9389 9390 ; ********************************************************************** 9391 ; ---------- DDIV - TEST D (MISCELLANEOUS CASES) ---------- 9392 ; ********************************************************************** 9393 9394 PDIVF (D,FIVE,TWO,FIVE,TWO,543210123456,543210123456,356736272460,271326656374,76 9395 3153710465,406655405512)^ 9396 9397 ; --- DIVIDEND == (FIVE,TWO,FIVE,TWO) 9398 ; --- DIVISOR === (543210123456,543210123456) 9399 ; --- QUOTIENT == (356736272460,271326656374) 9400 ; --- REMAINDER = (763153710465,406655405512) 9401 9402 ..0664: MOVE AC1,[[EXP FIVE,TWO,FIVE,TWO,543210123456,543210123456,356736272460,27132665 9403 037375 200 01 0 00 045033 6374,763153710465,406655405512],,PDEND] 9404 037376 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 28-6 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST D SEQ 0213 9405 037377 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9406 ERROR (..0664,14,SCR1,SCR2,,TEST D - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9407 037400 036 14 0 00 044641 9408 037401 035 00 0 00 037375 ERLOOP ..0664 ;IF ERROR, LOOP TO ..0664 9409 ^ 9410 9411 037402 200 14 0 00 040521 ..0665: MOVE SCR2,PFLOC ;GET PC 9412 037403 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9413 ERROR (..0664,13,SCR2,PFLOC,,TEST D - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9414 LL 9415 037404 036 13 0 00 044653 9416 037405 035 00 0 00 037375 ERLOOP ..0664 ;IF ERROR, LOOP TO ..0664 9417 ^ 9418 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0214 9419 SUBTTL DDIV - TEST E 9420 9421 ; ********************************************************************** 9422 ;*DDIV - TEST E 9423 ;* 9424 ;* -4/-2 -4/2 4/-2 4/2 9425 ;* (-3,0,0,0)/(-6,0) (-3,0,0,0)/(6,0) 3/-6 3/6 9426 ;* 9427 ;* THESE TESTS VERIFY THAT THE DDIV HANDLES THE SIGN OF ITS 9428 ;* OPERANDS PROPERLY. THE SIGN BITS OF THE LOW ORDER WORDS ARE 9429 ;* INITIALLY DIFFERENT FROM THE HIGH ORDER WORD. THE SIGN SHOULD 9430 ;* BE FORMED CORRECTLY IN SPITE OF THAT. 9431 ; ********************************************************************** 9432 9433 ; ********************************************************************** 9434 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9435 ; ********************************************************************** 9436 9437 PDIVF (E,-1,377777777777,377777777777,377777777774,-1,377777777776,0,2)^ 9438 9439 ; --- DIVIDEND == (-1,377777777777,377777777777,377777777774) 9440 ; --- DIVISOR === (-1,377777777776) 9441 ; --- QUOTIENT == (0,2) 9442 ; --- REMAINDER = (0,0) 9443 9444 ..0666: MOVE AC1,[[EXP -1,377777777777,377777777777,377777777774,-1,377777777776,0,2,0,0 9445 037406 200 01 0 00 045046 ],,PDEND] 9446 037407 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9447 037410 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9448 ERROR (..0666,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9449 037411 036 14 0 00 045056 9450 037412 035 00 0 00 037406 ERLOOP ..0666 ;IF ERROR, LOOP TO ..0666 9451 ^ 9452 9453 037413 200 14 0 00 040521 ..0667: MOVE SCR2,PFLOC ;GET PC 9454 037414 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9455 ERROR (..0666,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9456 LL 9457 037415 036 13 0 00 045070 9458 037416 035 00 0 00 037406 ERLOOP ..0666 ;IF ERROR, LOOP TO ..0666 9459 ^ 9460 ^ 9461 9462 ; ********************************************************************** 9463 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9464 ; ********************************************************************** 9465 9466 PDIVF (E,-1,377777777777,377777777777,-4,-1,-2,0,2)^ 9467 9468 ; --- DIVIDEND == (-1,377777777777,377777777777,-4) 9469 ; --- DIVISOR === (-1,-2) 9470 ; --- QUOTIENT == (0,2) 9471 ; --- REMAINDER = (0,0) 9472 9473 037417 200 01 0 00 045105 ..0670: MOVE AC1,[[EXP -1,377777777777,377777777777,-4,-1,-2,0,2,0,0],,PDEND] DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-1 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0215 9474 037420 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9475 037421 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9476 ERROR (..0670,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9477 037422 036 14 0 00 045056 9478 037423 035 00 0 00 037417 ERLOOP ..0670 ;IF ERROR, LOOP TO ..0670 9479 ^ 9480 9481 037424 200 14 0 00 040521 ..0671: MOVE SCR2,PFLOC ;GET PC 9482 037425 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9483 ERROR (..0670,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9484 LL 9485 037426 036 13 0 00 045070 9486 037427 035 00 0 00 037417 ERLOOP ..0670 ;IF ERROR, LOOP TO ..0670 9487 ^ 9488 ^ 9489 9490 ; ********************************************************************** 9491 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9492 ; ********************************************************************** 9493 9494 PDIVF (E,-1,377777777777,377777777777,377777777774,0,400000000002,-1,-2)^ 9495 9496 ; --- DIVIDEND == (-1,377777777777,377777777777,377777777774) 9497 ; --- DIVISOR === (0,400000000002) 9498 ; --- QUOTIENT == (-1,-2) 9499 ; --- REMAINDER = (0,0) 9500 9501 ..0672: MOVE AC1,[[EXP -1,377777777777,377777777777,377777777774,0,400000000002,-1,-2,0, 9502 037430 200 01 0 00 045120 0],,PDEND] 9503 037431 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9504 037432 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9505 ERROR (..0672,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9506 037433 036 14 0 00 045056 9507 037434 035 00 0 00 037430 ERLOOP ..0672 ;IF ERROR, LOOP TO ..0672 9508 ^ 9509 9510 037435 200 14 0 00 040521 ..0673: MOVE SCR2,PFLOC ;GET PC 9511 037436 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9512 ERROR (..0672,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9513 LL 9514 037437 036 13 0 00 045070 9515 037440 035 00 0 00 037430 ERLOOP ..0672 ;IF ERROR, LOOP TO ..0672 9516 ^ 9517 ^ 9518 9519 ; ********************************************************************** 9520 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9521 ; ********************************************************************** 9522 9523 PDIVF (E,-1,-1,-1,-4,0,400000000002,-1,-2)^ 9524 9525 ; --- DIVIDEND == (-1,-1,-1,-4) 9526 ; --- DIVISOR === (0,400000000002) 9527 ; --- QUOTIENT == (-1,-2) 9528 ; --- REMAINDER = (0,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-2 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0216 9529 9530 037441 200 01 0 00 045133 ..0674: MOVE AC1,[[EXP -1,-1,-1,-4,0,400000000002,-1,-2,0,0],,PDEND] 9531 037442 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9532 037443 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9533 ERROR (..0674,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9534 037444 036 14 0 00 045056 9535 037445 035 00 0 00 037441 ERLOOP ..0674 ;IF ERROR, LOOP TO ..0674 9536 ^ 9537 9538 037446 200 14 0 00 040521 ..0675: MOVE SCR2,PFLOC ;GET PC 9539 037447 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9540 ERROR (..0674,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9541 LL 9542 037450 036 13 0 00 045070 9543 037451 035 00 0 00 037441 ERLOOP ..0674 ;IF ERROR, LOOP TO ..0674 9544 ^ 9545 ^ 9546 9547 ; ********************************************************************** 9548 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9549 ; ********************************************************************** 9550 9551 PDIVF (E,0,1B0,1B0,400000000004,-1,377777777776,-1,-2)^ 9552 9553 ; --- DIVIDEND == (0,1B0,1B0,400000000004) 9554 ; --- DIVISOR === (-1,377777777776) 9555 ; --- QUOTIENT == (-1,-2) 9556 ; --- REMAINDER = (0,0) 9557 9558 037452 200 01 0 00 045146 ..0676: MOVE AC1,[[EXP 0,1B0,1B0,400000000004,-1,377777777776,-1,-2,0,0],,PDEND] 9559 037453 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9560 037454 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9561 ERROR (..0676,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9562 037455 036 14 0 00 045056 9563 037456 035 00 0 00 037452 ERLOOP ..0676 ;IF ERROR, LOOP TO ..0676 9564 ^ 9565 9566 037457 200 14 0 00 040521 ..0677: MOVE SCR2,PFLOC ;GET PC 9567 037460 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9568 ERROR (..0676,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9569 LL 9570 037461 036 13 0 00 045070 9571 037462 035 00 0 00 037452 ERLOOP ..0676 ;IF ERROR, LOOP TO ..0676 9572 ^ 9573 ^ 9574 9575 ; ********************************************************************** 9576 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9577 ; ********************************************************************** 9578 9579 PDIVF (E,0,1B0,1B0,400000000004,-1,-2,-1,-2)^ 9580 9581 ; --- DIVIDEND == (0,1B0,1B0,400000000004) 9582 ; --- DIVISOR === (-1,-2) 9583 ; --- QUOTIENT == (-1,-2) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-3 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0217 9584 ; --- REMAINDER = (0,0) 9585 9586 037463 200 01 0 00 045161 ..0700: MOVE AC1,[[EXP 0,1B0,1B0,400000000004,-1,-2,-1,-2,0,0],,PDEND] 9587 037464 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9588 037465 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9589 ERROR (..0700,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9590 037466 036 14 0 00 045056 9591 037467 035 00 0 00 037463 ERLOOP ..0700 ;IF ERROR, LOOP TO ..0700 9592 ^ 9593 9594 037470 200 14 0 00 040521 ..0701: MOVE SCR2,PFLOC ;GET PC 9595 037471 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9596 ERROR (..0700,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9597 LL 9598 037472 036 13 0 00 045070 9599 037473 035 00 0 00 037463 ERLOOP ..0700 ;IF ERROR, LOOP TO ..0700 9600 ^ 9601 ^ 9602 9603 ; ********************************************************************** 9604 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9605 ; ********************************************************************** 9606 9607 PDIVF (E,0,0,0,400000000004,0,2,0,2)^ 9608 9609 ; --- DIVIDEND == (0,0,0,400000000004) 9610 ; --- DIVISOR === (0,2) 9611 ; --- QUOTIENT == (0,2) 9612 ; --- REMAINDER = (0,0) 9613 9614 037474 200 01 0 00 045174 ..0702: MOVE AC1,[[EXP 0,0,0,400000000004,0,2,0,2,0,0],,PDEND] 9615 037475 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9616 037476 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9617 ERROR (..0702,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9618 037477 036 14 0 00 045056 9619 037500 035 00 0 00 037474 ERLOOP ..0702 ;IF ERROR, LOOP TO ..0702 9620 ^ 9621 9622 037501 200 14 0 00 040521 ..0703: MOVE SCR2,PFLOC ;GET PC 9623 037502 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9624 ERROR (..0702,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9625 LL 9626 037503 036 13 0 00 045070 9627 037504 035 00 0 00 037474 ERLOOP ..0702 ;IF ERROR, LOOP TO ..0702 9628 ^ 9629 ^ 9630 9631 ; ********************************************************************** 9632 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9633 ; ********************************************************************** 9634 9635 PDIVF (E,0,0,0,400000000004,0,400000000002,0,2)^ 9636 9637 ; --- DIVIDEND == (0,0,0,400000000004) 9638 ; --- DIVISOR === (0,400000000002) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-4 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0218 9639 ; --- QUOTIENT == (0,2) 9640 ; --- REMAINDER = (0,0) 9641 9642 037505 200 01 0 00 045207 ..0704: MOVE AC1,[[EXP 0,0,0,400000000004,0,400000000002,0,2,0,0],,PDEND] 9643 037506 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9644 037507 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9645 ERROR (..0704,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9646 037510 036 14 0 00 045056 9647 037511 035 00 0 00 037505 ERLOOP ..0704 ;IF ERROR, LOOP TO ..0704 9648 ^ 9649 9650 037512 200 14 0 00 040521 ..0705: MOVE SCR2,PFLOC ;GET PC 9651 037513 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9652 ERROR (..0704,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9653 LL 9654 037514 036 13 0 00 045070 9655 037515 035 00 0 00 037505 ERLOOP ..0704 ;IF ERROR, LOOP TO ..0704 9656 ^ 9657 ^ 9658 9659 ; ********************************************************************** 9660 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9661 ; ********************************************************************** 9662 9663 PDIVF (E,-3,1B0,1B0,1B0,-6,1B0,200000000000,0)^ 9664 9665 ; --- DIVIDEND == (-3,1B0,1B0,1B0) 9666 ; --- DIVISOR === (-6,1B0) 9667 ; --- QUOTIENT == (200000000000,0) 9668 ; --- REMAINDER = (0,0) 9669 9670 037516 200 01 0 00 045222 ..0706: MOVE AC1,[[EXP -3,1B0,1B0,1B0,-6,1B0,200000000000,0,0,0],,PDEND] 9671 037517 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9672 037520 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9673 ERROR (..0706,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9674 037521 036 14 0 00 045056 9675 037522 035 00 0 00 037516 ERLOOP ..0706 ;IF ERROR, LOOP TO ..0706 9676 ^ 9677 9678 037523 200 14 0 00 040521 ..0707: MOVE SCR2,PFLOC ;GET PC 9679 037524 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9680 ERROR (..0706,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9681 LL 9682 037525 036 13 0 00 045070 9683 037526 035 00 0 00 037516 ERLOOP ..0706 ;IF ERROR, LOOP TO ..0706 9684 ^ 9685 ^ 9686 9687 ; ********************************************************************** 9688 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9689 ; ********************************************************************** 9690 9691 PDIVF (E,-3,1B0,1B0,0,-6,1B0,200000000000,0)^ 9692 9693 ; --- DIVIDEND == (-3,1B0,1B0,0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-5 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0219 9694 ; --- DIVISOR === (-6,1B0) 9695 ; --- QUOTIENT == (200000000000,0) 9696 ; --- REMAINDER = (0,0) 9697 9698 037527 200 01 0 00 045235 ..0710: MOVE AC1,[[EXP -3,1B0,1B0,0,-6,1B0,200000000000,0,0,0],,PDEND] 9699 037530 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9700 037531 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9701 ERROR (..0710,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9702 037532 036 14 0 00 045056 9703 037533 035 00 0 00 037527 ERLOOP ..0710 ;IF ERROR, LOOP TO ..0710 9704 ^ 9705 9706 037534 200 14 0 00 040521 ..0711: MOVE SCR2,PFLOC ;GET PC 9707 037535 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9708 ERROR (..0710,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9709 LL 9710 037536 036 13 0 00 045070 9711 037537 035 00 0 00 037527 ERLOOP ..0710 ;IF ERROR, LOOP TO ..0710 9712 ^ 9713 ^ 9714 9715 ; ********************************************************************** 9716 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9717 ; ********************************************************************** 9718 9719 PDIVF (E,-3,1B0,0,0,6,0,600000000000,1B0)^ 9720 9721 ; --- DIVIDEND == (-3,1B0,0,0) 9722 ; --- DIVISOR === (6,0) 9723 ; --- QUOTIENT == (600000000000,1B0) 9724 ; --- REMAINDER = (0,0) 9725 9726 037540 200 01 0 00 045250 ..0712: MOVE AC1,[[EXP -3,1B0,0,0,6,0,600000000000,1B0,0,0],,PDEND] 9727 037541 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9728 037542 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9729 ERROR (..0712,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9730 037543 036 14 0 00 045056 9731 037544 035 00 0 00 037540 ERLOOP ..0712 ;IF ERROR, LOOP TO ..0712 9732 ^ 9733 9734 037545 200 14 0 00 040521 ..0713: MOVE SCR2,PFLOC ;GET PC 9735 037546 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9736 ERROR (..0712,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9737 LL 9738 037547 036 13 0 00 045070 9739 037550 035 00 0 00 037540 ERLOOP ..0712 ;IF ERROR, LOOP TO ..0712 9740 ^ 9741 ^ 9742 9743 ; ********************************************************************** 9744 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9745 ; ********************************************************************** 9746 9747 PDIVF (E,-3,0,0,0,6,1B0,600000000000,1B0)^ 9748 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-6 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0220 9749 ; --- DIVIDEND == (-3,0,0,0) 9750 ; --- DIVISOR === (6,1B0) 9751 ; --- QUOTIENT == (600000000000,1B0) 9752 ; --- REMAINDER = (0,0) 9753 9754 037551 200 01 0 00 045263 ..0714: MOVE AC1,[[EXP -3,0,0,0,6,1B0,600000000000,1B0,0,0],,PDEND] 9755 037552 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9756 037553 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9757 ERROR (..0714,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9758 037554 036 14 0 00 045056 9759 037555 035 00 0 00 037551 ERLOOP ..0714 ;IF ERROR, LOOP TO ..0714 9760 ^ 9761 9762 037556 200 14 0 00 040521 ..0715: MOVE SCR2,PFLOC ;GET PC 9763 037557 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9764 ERROR (..0714,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9765 LL 9766 037560 036 13 0 00 045070 9767 037561 035 00 0 00 037551 ERLOOP ..0714 ;IF ERROR, LOOP TO ..0714 9768 ^ 9769 ^ 9770 9771 ; ********************************************************************** 9772 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9773 ; ********************************************************************** 9774 9775 PDIVF (E,3,1B0,1B0,0,-6,1B0,600000000000,1B0)^ 9776 9777 ; --- DIVIDEND == (3,1B0,1B0,0) 9778 ; --- DIVISOR === (-6,1B0) 9779 ; --- QUOTIENT == (600000000000,1B0) 9780 ; --- REMAINDER = (0,0) 9781 9782 037562 200 01 0 00 045276 ..0716: MOVE AC1,[[EXP 3,1B0,1B0,0,-6,1B0,600000000000,1B0,0,0],,PDEND] 9783 037563 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9784 037564 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9785 ERROR (..0716,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9786 037565 036 14 0 00 045056 9787 037566 035 00 0 00 037562 ERLOOP ..0716 ;IF ERROR, LOOP TO ..0716 9788 ^ 9789 9790 037567 200 14 0 00 040521 ..0717: MOVE SCR2,PFLOC ;GET PC 9791 037570 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9792 ERROR (..0716,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9793 LL 9794 037571 036 13 0 00 045070 9795 037572 035 00 0 00 037562 ERLOOP ..0716 ;IF ERROR, LOOP TO ..0716 9796 ^ 9797 ^ 9798 9799 ; ********************************************************************** 9800 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9801 ; ********************************************************************** 9802 9803 PDIVF (E,3,1B0,0,1B0,-6,1B0,600000000000,1B0)^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-7 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0221 9804 9805 ; --- DIVIDEND == (3,1B0,0,1B0) 9806 ; --- DIVISOR === (-6,1B0) 9807 ; --- QUOTIENT == (600000000000,1B0) 9808 ; --- REMAINDER = (0,0) 9809 9810 037573 200 01 0 00 045311 ..0720: MOVE AC1,[[EXP 3,1B0,0,1B0,-6,1B0,600000000000,1B0,0,0],,PDEND] 9811 037574 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9812 037575 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9813 ERROR (..0720,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9814 037576 036 14 0 00 045056 9815 037577 035 00 0 00 037573 ERLOOP ..0720 ;IF ERROR, LOOP TO ..0720 9816 ^ 9817 9818 037600 200 14 0 00 040521 ..0721: MOVE SCR2,PFLOC ;GET PC 9819 037601 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9820 ERROR (..0720,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9821 LL 9822 037602 036 13 0 00 045070 9823 037603 035 00 0 00 037573 ERLOOP ..0720 ;IF ERROR, LOOP TO ..0720 9824 ^ 9825 ^ 9826 9827 ; ********************************************************************** 9828 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9829 ; ********************************************************************** 9830 9831 PDIVF (E,3,0,1B0,1B0,6,1B0,200000000000,0)^ 9832 9833 ; --- DIVIDEND == (3,0,1B0,1B0) 9834 ; --- DIVISOR === (6,1B0) 9835 ; --- QUOTIENT == (200000000000,0) 9836 ; --- REMAINDER = (0,0) 9837 9838 037604 200 01 0 00 045324 ..0722: MOVE AC1,[[EXP 3,0,1B0,1B0,6,1B0,200000000000,0,0,0],,PDEND] 9839 037605 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9840 037606 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9841 ERROR (..0722,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9842 037607 036 14 0 00 045056 9843 037610 035 00 0 00 037604 ERLOOP ..0722 ;IF ERROR, LOOP TO ..0722 9844 ^ 9845 9846 037611 200 14 0 00 040521 ..0723: MOVE SCR2,PFLOC ;GET PC 9847 037612 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9848 ERROR (..0722,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9849 LL 9850 037613 036 13 0 00 045070 9851 037614 035 00 0 00 037604 ERLOOP ..0722 ;IF ERROR, LOOP TO ..0722 9852 ^ 9853 ^ 9854 9855 ; ********************************************************************** 9856 ; ---------- DDIV - TEST E (INCONSISTENT SIGNS IN OPERANDS) ---------- 9857 ; ********************************************************************** 9858 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 29-8 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST E SEQ 0222 9859 PDIVF (E,3,1B0,1B0,1B0,6,0,200000000000,0)^ 9860 9861 ; --- DIVIDEND == (3,1B0,1B0,1B0) 9862 ; --- DIVISOR === (6,0) 9863 ; --- QUOTIENT == (200000000000,0) 9864 ; --- REMAINDER = (0,0) 9865 9866 037615 200 01 0 00 045337 ..0724: MOVE AC1,[[EXP 3,1B0,1B0,1B0,6,0,200000000000,0,0,0],,PDEND] 9867 037616 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9868 037617 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9869 ERROR (..0724,14,SCR1,SCR2,,TEST E - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9870 037620 036 14 0 00 045056 9871 037621 035 00 0 00 037615 ERLOOP ..0724 ;IF ERROR, LOOP TO ..0724 9872 ^ 9873 9874 037622 200 14 0 00 040521 ..0725: MOVE SCR2,PFLOC ;GET PC 9875 037623 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9876 ERROR (..0724,13,SCR2,PFLOC,,TEST E - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9877 LL 9878 037624 036 13 0 00 045070 9879 037625 035 00 0 00 037615 ERLOOP ..0724 ;IF ERROR, LOOP TO ..0724 9880 ^ 9881 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 30 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST F SEQ 0223 9882 SUBTTL DDIV - TEST F 9883 9884 ; ********************************************************************** 9885 ;*DDIV - TEST F 9886 ;* 9887 ;* 1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1 9888 ;* ------- -------- ---------- -------- 9889 ;* 1,1 1,1 1,0 1,0 9890 ;* 9891 ;* 1,0,0,0 -1,0,0,0 0,-1,-1,-1 -1,0,0,1 9892 ;* ------- -------- ---------- -------- 9893 ;* -2,-1 -2,-1 -1,0 -1,0 9894 ;* 9895 ;* THESE TESTS VERIFY THAT THE DDIV WILL NOT GENERATE AN 9896 ;* OVERFLOW AND NO DIVIDE CONDITION WHEN THE DIVISOR IS 9897 ;* JUST LARGE ENOUGH TO NOT CAUSE ONE. 9898 ; ********************************************************************** 9899 9900 ; ********************************************************************** 9901 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 9902 ; ********************************************************************** 9903 9904 PDIVF (F,1,0,0,0,1,1,377777777777,0,1,0)^ 9905 9906 ; --- DIVIDEND == (1,0,0,0) 9907 ; --- DIVISOR === (1,1) 9908 ; --- QUOTIENT == (377777777777,0) 9909 ; --- REMAINDER = (1,0) 9910 9911 037626 200 01 0 00 045352 ..0726: MOVE AC1,[[EXP 1,0,0,0,1,1,377777777777,0,1,0],,PDEND] 9912 037627 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9913 037630 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9914 ERROR (..0726,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9915 037631 036 14 0 00 045362 9916 037632 035 00 0 00 037626 ERLOOP ..0726 ;IF ERROR, LOOP TO ..0726 9917 ^ 9918 9919 037633 200 14 0 00 040521 ..0727: MOVE SCR2,PFLOC ;GET PC 9920 037634 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9921 ERROR (..0726,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9922 LL 9923 037635 036 13 0 00 045374 9924 037636 035 00 0 00 037626 ERLOOP ..0726 ;IF ERROR, LOOP TO ..0726 9925 ^ 9926 ^ 9927 9928 ; ********************************************************************** 9929 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 9930 ; ********************************************************************** 9931 9932 PDIVF (F,1,0,0,0,-2,-1,400000000001,1B0,1,0)^ 9933 9934 ; --- DIVIDEND == (1,0,0,0) 9935 ; --- DIVISOR === (-2,-1) 9936 ; --- QUOTIENT == (400000000001,1B0) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 30-1 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST F SEQ 0224 9937 ; --- REMAINDER = (1,0) 9938 9939 037637 200 01 0 00 045411 ..0730: MOVE AC1,[[EXP 1,0,0,0,-2,-1,400000000001,1B0,1,0],,PDEND] 9940 037640 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9941 037641 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9942 ERROR (..0730,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9943 037642 036 14 0 00 045362 9944 037643 035 00 0 00 037637 ERLOOP ..0730 ;IF ERROR, LOOP TO ..0730 9945 ^ 9946 9947 037644 200 14 0 00 040521 ..0731: MOVE SCR2,PFLOC ;GET PC 9948 037645 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9949 ERROR (..0730,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9950 LL 9951 037646 036 13 0 00 045374 9952 037647 035 00 0 00 037637 ERLOOP ..0730 ;IF ERROR, LOOP TO ..0730 9953 ^ 9954 ^ 9955 9956 ; ********************************************************************** 9957 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 9958 ; ********************************************************************** 9959 9960 PDIVF (F,-1,1B0,1B0,1B0,1,1,400000000001,1B0,-1,1B0)^ 9961 9962 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 9963 ; --- DIVISOR === (1,1) 9964 ; --- QUOTIENT == (400000000001,1B0) 9965 ; --- REMAINDER = (-1,1B0) 9966 9967 037650 200 01 0 00 045424 ..0732: MOVE AC1,[[EXP -1,1B0,1B0,1B0,1,1,400000000001,1B0,-1,1B0],,PDEND] 9968 037651 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9969 037652 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9970 ERROR (..0732,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9971 037653 036 14 0 00 045362 9972 037654 035 00 0 00 037650 ERLOOP ..0732 ;IF ERROR, LOOP TO ..0732 9973 ^ 9974 9975 037655 200 14 0 00 040521 ..0733: MOVE SCR2,PFLOC ;GET PC 9976 037656 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 9977 ERROR (..0732,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 9978 LL 9979 037657 036 13 0 00 045374 9980 037660 035 00 0 00 037650 ERLOOP ..0732 ;IF ERROR, LOOP TO ..0732 9981 ^ 9982 ^ 9983 9984 ; ********************************************************************** 9985 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 9986 ; ********************************************************************** 9987 9988 PDIVF (F,-1,1B0,1B0,1B0,-2,-1,377777777777,0,-1,1B0)^ 9989 9990 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 9991 ; --- DIVISOR === (-2,-1) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 30-2 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST F SEQ 0225 9992 ; --- QUOTIENT == (377777777777,0) 9993 ; --- REMAINDER = (-1,1B0) 9994 9995 037661 200 01 0 00 045437 ..0734: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-2,-1,377777777777,0,-1,1B0],,PDEND] 9996 037662 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 9997 037663 260 17 0 00 040513 GO PSUBR ;GO DO TEST 9998 ERROR (..0734,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 9999 037664 036 14 0 00 045362 10000 037665 035 00 0 00 037661 ERLOOP ..0734 ;IF ERROR, LOOP TO ..0734 10001 ^ 10002 10003 037666 200 14 0 00 040521 ..0735: MOVE SCR2,PFLOC ;GET PC 10004 037667 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 10005 ERROR (..0734,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 10006 LL 10007 037670 036 13 0 00 045374 10008 037671 035 00 0 00 037661 ERLOOP ..0734 ;IF ERROR, LOOP TO ..0734 10009 ^ 10010 ^ 10011 10012 ; ********************************************************************** 10013 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 10014 ; ********************************************************************** 10015 10016 PDIVF (F,0,377777777777,377777777777,377777777777,1,0,377777777777,377777777777,0 10017 ,377777777777)^ 10018 10019 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777) 10020 ; --- DIVISOR === (1,0) 10021 ; --- QUOTIENT == (377777777777,377777777777) 10022 ; --- REMAINDER = (0,377777777777) 10023 10024 ..0736: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,1,0,377777777777,3777777 10025 037672 200 01 0 00 045452 77777,0,377777777777],,PDEND] 10026 037673 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 10027 037674 260 17 0 00 040513 GO PSUBR ;GO DO TEST 10028 ERROR (..0736,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 10029 037675 036 14 0 00 045362 10030 037676 035 00 0 00 037672 ERLOOP ..0736 ;IF ERROR, LOOP TO ..0736 10031 ^ 10032 10033 037677 200 14 0 00 040521 ..0737: MOVE SCR2,PFLOC ;GET PC 10034 037700 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 10035 ERROR (..0736,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 10036 LL 10037 037701 036 13 0 00 045374 10038 037702 035 00 0 00 037672 ERLOOP ..0736 ;IF ERROR, LOOP TO ..0736 10039 ^ 10040 ^ 10041 10042 ; ********************************************************************** 10043 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 10044 ; ********************************************************************** 10045 10046 PDIVF (F,0,377777777777,377777777777,377777777777,-1,1B0,1B0,400000000001,0,37777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 30-3 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST F SEQ 0226 10047 7777777)^ 10048 10049 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777) 10050 ; --- DIVISOR === (-1,1B0) 10051 ; --- QUOTIENT == (1B0,400000000001) 10052 ; --- REMAINDER = (0,377777777777) 10053 10054 ..0740: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,-1,1B0,1B0,400000000001, 10055 037703 200 01 0 00 045465 0,377777777777],,PDEND] 10056 037704 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 10057 037705 260 17 0 00 040513 GO PSUBR ;GO DO TEST 10058 ERROR (..0740,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 10059 037706 036 14 0 00 045362 10060 037707 035 00 0 00 037703 ERLOOP ..0740 ;IF ERROR, LOOP TO ..0740 10061 ^ 10062 10063 037710 200 14 0 00 040521 ..0741: MOVE SCR2,PFLOC ;GET PC 10064 037711 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 10065 ERROR (..0740,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 10066 LL 10067 037712 036 13 0 00 045374 10068 037713 035 00 0 00 037703 ERLOOP ..0740 ;IF ERROR, LOOP TO ..0740 10069 ^ 10070 ^ 10071 10072 ; ********************************************************************** 10073 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 10074 ; ********************************************************************** 10075 10076 PDIVF (F,-1,1B0,1B0,400000000001,1,0,1B0,400000000001,-1,400000000001)^ 10077 10078 ; --- DIVIDEND == (-1,1B0,1B0,400000000001) 10079 ; --- DIVISOR === (1,0) 10080 ; --- QUOTIENT == (1B0,400000000001) 10081 ; --- REMAINDER = (-1,400000000001) 10082 10083 ..0742: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,1,0,1B0,400000000001,-1,400000000001],,PD 10084 037714 200 01 0 00 045500 END] 10085 037715 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 10086 037716 260 17 0 00 040513 GO PSUBR ;GO DO TEST 10087 ERROR (..0742,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 10088 037717 036 14 0 00 045362 10089 037720 035 00 0 00 037714 ERLOOP ..0742 ;IF ERROR, LOOP TO ..0742 10090 ^ 10091 10092 037721 200 14 0 00 040521 ..0743: MOVE SCR2,PFLOC ;GET PC 10093 037722 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 10094 ERROR (..0742,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 10095 LL 10096 037723 036 13 0 00 045374 10097 037724 035 00 0 00 037714 ERLOOP ..0742 ;IF ERROR, LOOP TO ..0742 10098 ^ 10099 ^ 10100 10101 ; ********************************************************************** DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 30-4 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST F SEQ 0227 10102 ; ---------- DDIV - TEST F (NOT QUITE OVERFLOW CONDITIONS) ---------- 10103 ; ********************************************************************** 10104 10105 PDIVF (F,-1,1B0,1B0,400000000001,-1,1B0,377777777777,377777777777,-1,400000000001 10106 )^ 10107 10108 ; --- DIVIDEND == (-1,1B0,1B0,400000000001) 10109 ; --- DIVISOR === (-1,1B0) 10110 ; --- QUOTIENT == (377777777777,377777777777) 10111 ; --- REMAINDER = (-1,400000000001) 10112 10113 ..0744: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,-1,1B0,377777777777,377777777777,-1,40000 10114 037725 200 01 0 00 045513 0000001],,PDEND] 10115 037726 251 01 0 00 040555 BLT AC1,PRES+3 ;SET UP OPERANDS 10116 037727 260 17 0 00 040513 GO PSUBR ;GO DO TEST 10117 ERROR (..0744,14,SCR1,SCR2,,TEST F - QUOTIENT/REMAINDER INCORRECT,DPRINT)^SALL 10118 037730 036 14 0 00 045362 10119 037731 035 00 0 00 037725 ERLOOP ..0744 ;IF ERROR, LOOP TO ..0744 10120 ^ 10121 10122 037732 200 14 0 00 040521 ..0745: MOVE SCR2,PFLOC ;GET PC 10123 037733 623 14 0 00 400040 TLZE SCR2,AROV+DCK ;CALC OK PC (NO - OV/DIV) & TEST 10124 ERROR (..0744,13,SCR2,PFLOC,,TEST F - PC FLAGS INCORRECT - BITS 0 & 12,DPRINT)^SA 10125 LL 10126 037734 036 13 0 00 045374 10127 037735 035 00 0 00 037725 ERLOOP ..0744 ;IF ERROR, LOOP TO ..0744 10128 ^ 10129 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 31 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0228 10130 SUBTTL DDIV - TEST G 10131 10132 ; ********************************************************************** 10133 ;*DDIV - TEST G 10134 ;* 10135 ;* 1 1,0 1,0,0 1,0,0,0 -1 10136 ;* - --- ----- ------- - 10137 ;* 0 0 0 0 0 10138 ;* 10139 ;* 1,0,0 1,0,0 1,0,0,0 1,0,0,0 10140 ;* ----- ----- ------- ------- 10141 ;* 1 -1 1 -1 10142 ;* 10143 ;* -1,0,0 -1,0,0 -1,0,0,0 -1,0,0,0 10144 ;* ------ ------ -------- -------- 10145 ;* 1 -1 1 -1 10146 ;* 10147 ;* 1,0,0,0 1,0,0,0 -1,0,0,0 -1,0,0,0 10148 ;* ------- ------- -------- -------- 10149 ;* 1,0 -1,0 1,0 -1,0 10150 ;* 10151 ;* 0,-1,-1,-1 0,-1,-1,-1 -1,0,0,1 -1,0,0,1 10152 ;* ---------- ---------- -------- -------- 10153 ;* 0,-1 -1,1 0,-1 -1,1 10154 ;* 10155 ;* 1,0,-1,-1 1,0,-1,-1 -2,-1,0,1 -2,-1,0,1 10156 ;* --------- --------- --------- --------- 10157 ;* 0,-1 -1,1 0,-1 -1,1 10158 ;* 10159 ;* -2^140 2^140-1 2^140-1 -2^70+1,-2^70 10160 ;* ------ ------- ------- ------------- 10161 ;* -2^70 2^70-1 -2^70+1 2^70-1 10162 ;* 10163 ;* THESE TESTS ATTEMPT TO PERFORM VARIOUS DIVISIONS THAT 10164 ;* SHOULD RESULT IN OVERFLOW. THE SETTING OF AROV AND NO 10165 ;* DIVIDE FLAGS IS VERIFIED AND THE DIVIDEND IS CHECKED TO 10166 ;* SEE THAT IT DID NOT CHANGE. 10167 ;* 10168 ;* ALSO TRY A FEW WITH INCONSISTENT SIGNS IN THE LEAST 10169 ;* SIGNIFICANT WORDS OF THE DIVIDEND AND DIVISOR JUST TO MAKE 10170 ;* SURE THAT THE DIVIDEND DOES NOT CHANGE ON ANY CONDITION. 10171 ; ********************************************************************** DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0229 10172 10173 ; ********************************************************************** 10174 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10175 ; ********************************************************************** 10176 10177 ODIV (0,0,0,1,0,0)^ 10178 10179 ; --- DIVIDEND == (0,0,0,1) 10180 ; --- DIVISOR === (0,0) 10181 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10182 10183 037736 200 01 0 00 045522 ..0746: MOVE AC1,[[EXP 0,0,0,1,0,0],,ODEND] 10184 037737 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10185 037740 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10186 ERROR (..0746,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10187 037741 036 14 0 00 045532 10188 037742 035 00 0 00 037736 ERLOOP ..0746 ;IF ERROR, LOOP TO ..0746 10189 ^ 10190 10191 037743 200 14 0 00 040567 ..0747: MOVE SCR2,OFLOC ;GET PC 10192 037744 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10193 037745 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10194 ERROR (..0746,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10195 10196 037746 036 13 0 00 045545 10197 037747 035 00 0 00 037736 ERLOOP ..0746 ;IF ERROR, LOOP TO ..0746 10198 ^ 10199 ^ 10200 10201 ; ********************************************************************** 10202 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10203 ; ********************************************************************** 10204 10205 ODIV (0,0,1,0,0,0)^ 10206 10207 ; --- DIVIDEND == (0,0,1,0) 10208 ; --- DIVISOR === (0,0) 10209 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10210 10211 037750 200 01 0 00 045556 ..0750: MOVE AC1,[[EXP 0,0,1,0,0,0],,ODEND] 10212 037751 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10213 037752 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10214 ERROR (..0750,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10215 037753 036 14 0 00 045532 10216 037754 035 00 0 00 037750 ERLOOP ..0750 ;IF ERROR, LOOP TO ..0750 10217 ^ 10218 10219 037755 200 14 0 00 040567 ..0751: MOVE SCR2,OFLOC ;GET PC 10220 037756 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10221 037757 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10222 ERROR (..0750,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10223 10224 037760 036 13 0 00 045545 10225 037761 035 00 0 00 037750 ERLOOP ..0750 ;IF ERROR, LOOP TO ..0750 10226 ^ DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-1 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0230 10227 ^ 10228 10229 ; ********************************************************************** 10230 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10231 ; ********************************************************************** 10232 10233 ODIV (0,1,0,0,0,0)^ 10234 10235 ; --- DIVIDEND == (0,1,0,0) 10236 ; --- DIVISOR === (0,0) 10237 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10238 10239 037762 200 01 0 00 045565 ..0752: MOVE AC1,[[EXP 0,1,0,0,0,0],,ODEND] 10240 037763 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10241 037764 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10242 ERROR (..0752,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10243 037765 036 14 0 00 045532 10244 037766 035 00 0 00 037762 ERLOOP ..0752 ;IF ERROR, LOOP TO ..0752 10245 ^ 10246 10247 037767 200 14 0 00 040567 ..0753: MOVE SCR2,OFLOC ;GET PC 10248 037770 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10249 037771 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10250 ERROR (..0752,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10251 10252 037772 036 13 0 00 045545 10253 037773 035 00 0 00 037762 ERLOOP ..0752 ;IF ERROR, LOOP TO ..0752 10254 ^ 10255 ^ 10256 10257 ; ********************************************************************** 10258 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10259 ; ********************************************************************** 10260 10261 ODIV (1,0,0,0,0,0)^ 10262 10263 ; --- DIVIDEND == (1,0,0,0) 10264 ; --- DIVISOR === (0,0) 10265 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10266 10267 037774 200 01 0 00 045574 ..0754: MOVE AC1,[[EXP 1,0,0,0,0,0],,ODEND] 10268 037775 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10269 037776 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10270 ERROR (..0754,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10271 037777 036 14 0 00 045532 10272 040000 035 00 0 00 037774 ERLOOP ..0754 ;IF ERROR, LOOP TO ..0754 10273 ^ 10274 10275 040001 200 14 0 00 040567 ..0755: MOVE SCR2,OFLOC ;GET PC 10276 040002 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10277 040003 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10278 ERROR (..0754,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10279 10280 040004 036 13 0 00 045545 10281 040005 035 00 0 00 037774 ERLOOP ..0754 ;IF ERROR, LOOP TO ..0754 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-2 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0231 10282 ^ 10283 ^ 10284 10285 ; ********************************************************************** 10286 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10287 ; ********************************************************************** 10288 10289 ODIV (-1,-1,-1,-1,0,0)^ 10290 10291 ; --- DIVIDEND == (-1,-1,-1,-1) 10292 ; --- DIVISOR === (0,0) 10293 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10294 10295 040006 200 01 0 00 045603 ..0756: MOVE AC1,[[EXP -1,-1,-1,-1,0,0],,ODEND] 10296 040007 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10297 040010 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10298 ERROR (..0756,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10299 040011 036 14 0 00 045532 10300 040012 035 00 0 00 040006 ERLOOP ..0756 ;IF ERROR, LOOP TO ..0756 10301 ^ 10302 10303 040013 200 14 0 00 040567 ..0757: MOVE SCR2,OFLOC ;GET PC 10304 040014 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10305 040015 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10306 ERROR (..0756,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10307 10308 040016 036 13 0 00 045545 10309 040017 035 00 0 00 040006 ERLOOP ..0756 ;IF ERROR, LOOP TO ..0756 10310 ^ 10311 ^ 10312 10313 ; ********************************************************************** 10314 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10315 ; ********************************************************************** 10316 10317 ODIV (0,1,0,0,0,1)^ 10318 10319 ; --- DIVIDEND == (0,1,0,0) 10320 ; --- DIVISOR === (0,1) 10321 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10322 10323 040020 200 01 0 00 045612 ..0760: MOVE AC1,[[EXP 0,1,0,0,0,1],,ODEND] 10324 040021 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10325 040022 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10326 ERROR (..0760,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10327 040023 036 14 0 00 045532 10328 040024 035 00 0 00 040020 ERLOOP ..0760 ;IF ERROR, LOOP TO ..0760 10329 ^ 10330 10331 040025 200 14 0 00 040567 ..0761: MOVE SCR2,OFLOC ;GET PC 10332 040026 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10333 040027 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10334 ERROR (..0760,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10335 10336 040030 036 13 0 00 045545 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-3 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0232 10337 040031 035 00 0 00 040020 ERLOOP ..0760 ;IF ERROR, LOOP TO ..0760 10338 ^ 10339 ^ 10340 10341 ; ********************************************************************** 10342 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10343 ; ********************************************************************** 10344 10345 ODIV (0,1,0,0,-1,-1)^ 10346 10347 ; --- DIVIDEND == (0,1,0,0) 10348 ; --- DIVISOR === (-1,-1) 10349 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10350 10351 040032 200 01 0 00 045621 ..0762: MOVE AC1,[[EXP 0,1,0,0,-1,-1],,ODEND] 10352 040033 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10353 040034 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10354 ERROR (..0762,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10355 040035 036 14 0 00 045532 10356 040036 035 00 0 00 040032 ERLOOP ..0762 ;IF ERROR, LOOP TO ..0762 10357 ^ 10358 10359 040037 200 14 0 00 040567 ..0763: MOVE SCR2,OFLOC ;GET PC 10360 040040 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10361 040041 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10362 ERROR (..0762,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10363 10364 040042 036 13 0 00 045545 10365 040043 035 00 0 00 040032 ERLOOP ..0762 ;IF ERROR, LOOP TO ..0762 10366 ^ 10367 ^ 10368 10369 ; ********************************************************************** 10370 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10371 ; ********************************************************************** 10372 10373 ODIV (1,0,0,0,0,1)^ 10374 10375 ; --- DIVIDEND == (1,0,0,0) 10376 ; --- DIVISOR === (0,1) 10377 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10378 10379 040044 200 01 0 00 045630 ..0764: MOVE AC1,[[EXP 1,0,0,0,0,1],,ODEND] 10380 040045 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10381 040046 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10382 ERROR (..0764,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10383 040047 036 14 0 00 045532 10384 040050 035 00 0 00 040044 ERLOOP ..0764 ;IF ERROR, LOOP TO ..0764 10385 ^ 10386 10387 040051 200 14 0 00 040567 ..0765: MOVE SCR2,OFLOC ;GET PC 10388 040052 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10389 040053 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10390 ERROR (..0764,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10391 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-4 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0233 10392 040054 036 13 0 00 045545 10393 040055 035 00 0 00 040044 ERLOOP ..0764 ;IF ERROR, LOOP TO ..0764 10394 ^ 10395 ^ 10396 10397 ; ********************************************************************** 10398 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10399 ; ********************************************************************** 10400 10401 ODIV (1,0,0,0,-1,-1)^ 10402 10403 ; --- DIVIDEND == (1,0,0,0) 10404 ; --- DIVISOR === (-1,-1) 10405 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10406 10407 040056 200 01 0 00 045637 ..0766: MOVE AC1,[[EXP 1,0,0,0,-1,-1],,ODEND] 10408 040057 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10409 040060 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10410 ERROR (..0766,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10411 040061 036 14 0 00 045532 10412 040062 035 00 0 00 040056 ERLOOP ..0766 ;IF ERROR, LOOP TO ..0766 10413 ^ 10414 10415 040063 200 14 0 00 040567 ..0767: MOVE SCR2,OFLOC ;GET PC 10416 040064 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10417 040065 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10418 ERROR (..0766,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10419 10420 040066 036 13 0 00 045545 10421 040067 035 00 0 00 040056 ERLOOP ..0766 ;IF ERROR, LOOP TO ..0766 10422 ^ 10423 ^ 10424 10425 ; ********************************************************************** 10426 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10427 ; ********************************************************************** 10428 10429 ODIV (-1,-1,1B0,1B0,0,1)^ 10430 10431 ; --- DIVIDEND == (-1,-1,1B0,1B0) 10432 ; --- DIVISOR === (0,1) 10433 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10434 10435 040070 200 01 0 00 045646 ..0770: MOVE AC1,[[EXP -1,-1,1B0,1B0,0,1],,ODEND] 10436 040071 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10437 040072 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10438 ERROR (..0770,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10439 040073 036 14 0 00 045532 10440 040074 035 00 0 00 040070 ERLOOP ..0770 ;IF ERROR, LOOP TO ..0770 10441 ^ 10442 10443 040075 200 14 0 00 040567 ..0771: MOVE SCR2,OFLOC ;GET PC 10444 040076 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10445 040077 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10446 ERROR (..0770,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-5 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0234 10447 10448 040100 036 13 0 00 045545 10449 040101 035 00 0 00 040070 ERLOOP ..0770 ;IF ERROR, LOOP TO ..0770 10450 ^ 10451 ^ 10452 10453 ; ********************************************************************** 10454 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10455 ; ********************************************************************** 10456 10457 ODIV (-1,-1,1B0,1B0,-1,-1)^ 10458 10459 ; --- DIVIDEND == (-1,-1,1B0,1B0) 10460 ; --- DIVISOR === (-1,-1) 10461 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10462 10463 040102 200 01 0 00 045655 ..0772: MOVE AC1,[[EXP -1,-1,1B0,1B0,-1,-1],,ODEND] 10464 040103 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10465 040104 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10466 ERROR (..0772,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10467 040105 036 14 0 00 045532 10468 040106 035 00 0 00 040102 ERLOOP ..0772 ;IF ERROR, LOOP TO ..0772 10469 ^ 10470 10471 040107 200 14 0 00 040567 ..0773: MOVE SCR2,OFLOC ;GET PC 10472 040110 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10473 040111 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10474 ERROR (..0772,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10475 10476 040112 036 13 0 00 045545 10477 040113 035 00 0 00 040102 ERLOOP ..0772 ;IF ERROR, LOOP TO ..0772 10478 ^ 10479 ^ 10480 10481 ; ********************************************************************** 10482 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10483 ; ********************************************************************** 10484 10485 ODIV (-1,1B0,1B0,1B0,0,1)^ 10486 10487 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 10488 ; --- DIVISOR === (0,1) 10489 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10490 10491 040114 200 01 0 00 045664 ..0774: MOVE AC1,[[EXP -1,1B0,1B0,1B0,0,1],,ODEND] 10492 040115 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10493 040116 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10494 ERROR (..0774,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10495 040117 036 14 0 00 045532 10496 040120 035 00 0 00 040114 ERLOOP ..0774 ;IF ERROR, LOOP TO ..0774 10497 ^ 10498 10499 040121 200 14 0 00 040567 ..0775: MOVE SCR2,OFLOC ;GET PC 10500 040122 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10501 040123 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-6 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0235 10502 ERROR (..0774,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10503 10504 040124 036 13 0 00 045545 10505 040125 035 00 0 00 040114 ERLOOP ..0774 ;IF ERROR, LOOP TO ..0774 10506 ^ 10507 ^ 10508 10509 ; ********************************************************************** 10510 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10511 ; ********************************************************************** 10512 10513 ODIV (-1,1B0,1B0,1B0,-1,-1)^ 10514 10515 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 10516 ; --- DIVISOR === (-1,-1) 10517 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10518 10519 040126 200 01 0 00 045673 ..0776: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-1,-1],,ODEND] 10520 040127 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10521 040130 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10522 ERROR (..0776,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10523 040131 036 14 0 00 045532 10524 040132 035 00 0 00 040126 ERLOOP ..0776 ;IF ERROR, LOOP TO ..0776 10525 ^ 10526 10527 040133 200 14 0 00 040567 ..0777: MOVE SCR2,OFLOC ;GET PC 10528 040134 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10529 040135 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10530 ERROR (..0776,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10531 10532 040136 036 13 0 00 045545 10533 040137 035 00 0 00 040126 ERLOOP ..0776 ;IF ERROR, LOOP TO ..0776 10534 ^ 10535 ^ 10536 10537 ; ********************************************************************** 10538 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10539 ; ********************************************************************** 10540 10541 ODIV (1,0,0,0,1,0)^ 10542 10543 ; --- DIVIDEND == (1,0,0,0) 10544 ; --- DIVISOR === (1,0) 10545 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10546 10547 040140 200 01 0 00 045702 ..1000: MOVE AC1,[[EXP 1,0,0,0,1,0],,ODEND] 10548 040141 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10549 040142 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10550 ERROR (..1000,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10551 040143 036 14 0 00 045532 10552 040144 035 00 0 00 040140 ERLOOP ..1000 ;IF ERROR, LOOP TO ..1000 10553 ^ 10554 10555 040145 200 14 0 00 040567 ..1001: MOVE SCR2,OFLOC ;GET PC 10556 040146 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-7 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0236 10557 040147 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10558 ERROR (..1000,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10559 10560 040150 036 13 0 00 045545 10561 040151 035 00 0 00 040140 ERLOOP ..1000 ;IF ERROR, LOOP TO ..1000 10562 ^ 10563 ^ 10564 10565 ; ********************************************************************** 10566 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10567 ; ********************************************************************** 10568 10569 ODIV (1,0,0,0,-1,0)^ 10570 10571 ; --- DIVIDEND == (1,0,0,0) 10572 ; --- DIVISOR === (-1,0) 10573 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10574 10575 040152 200 01 0 00 045711 ..1002: MOVE AC1,[[EXP 1,0,0,0,-1,0],,ODEND] 10576 040153 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10577 040154 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10578 ERROR (..1002,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10579 040155 036 14 0 00 045532 10580 040156 035 00 0 00 040152 ERLOOP ..1002 ;IF ERROR, LOOP TO ..1002 10581 ^ 10582 10583 040157 200 14 0 00 040567 ..1003: MOVE SCR2,OFLOC ;GET PC 10584 040160 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10585 040161 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10586 ERROR (..1002,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10587 10588 040162 036 13 0 00 045545 10589 040163 035 00 0 00 040152 ERLOOP ..1002 ;IF ERROR, LOOP TO ..1002 10590 ^ 10591 ^ 10592 10593 ; ********************************************************************** 10594 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10595 ; ********************************************************************** 10596 10597 ODIV (-1,1B0,1B0,1B0,1,0)^ 10598 10599 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 10600 ; --- DIVISOR === (1,0) 10601 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10602 10603 040164 200 01 0 00 045720 ..1004: MOVE AC1,[[EXP -1,1B0,1B0,1B0,1,0],,ODEND] 10604 040165 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10605 040166 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10606 ERROR (..1004,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10607 040167 036 14 0 00 045532 10608 040170 035 00 0 00 040164 ERLOOP ..1004 ;IF ERROR, LOOP TO ..1004 10609 ^ 10610 10611 040171 200 14 0 00 040567 ..1005: MOVE SCR2,OFLOC ;GET PC DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-8 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0237 10612 040172 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10613 040173 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10614 ERROR (..1004,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10615 10616 040174 036 13 0 00 045545 10617 040175 035 00 0 00 040164 ERLOOP ..1004 ;IF ERROR, LOOP TO ..1004 10618 ^ 10619 ^ 10620 10621 ; ********************************************************************** 10622 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10623 ; ********************************************************************** 10624 10625 ODIV (-1,1B0,1B0,1B0,-1,1B0)^ 10626 10627 ; --- DIVIDEND == (-1,1B0,1B0,1B0) 10628 ; --- DIVISOR === (-1,1B0) 10629 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10630 10631 040176 200 01 0 00 045727 ..1006: MOVE AC1,[[EXP -1,1B0,1B0,1B0,-1,1B0],,ODEND] 10632 040177 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10633 040200 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10634 ERROR (..1006,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10635 040201 036 14 0 00 045532 10636 040202 035 00 0 00 040176 ERLOOP ..1006 ;IF ERROR, LOOP TO ..1006 10637 ^ 10638 10639 040203 200 14 0 00 040567 ..1007: MOVE SCR2,OFLOC ;GET PC 10640 040204 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10641 040205 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10642 ERROR (..1006,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10643 10644 040206 036 13 0 00 045545 10645 040207 035 00 0 00 040176 ERLOOP ..1006 ;IF ERROR, LOOP TO ..1006 10646 ^ 10647 ^ 10648 10649 ; ********************************************************************** 10650 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10651 ; ********************************************************************** 10652 10653 ODIV (0,377777777777,377777777777,377777777777,0,377777777777)^ 10654 10655 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777) 10656 ; --- DIVISOR === (0,377777777777) 10657 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10658 10659 040210 200 01 0 00 045736 ..1010: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,0,377777777777],,ODEND] 10660 040211 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10661 040212 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10662 ERROR (..1010,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10663 040213 036 14 0 00 045532 10664 040214 035 00 0 00 040210 ERLOOP ..1010 ;IF ERROR, LOOP TO ..1010 10665 ^ 10666 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-9 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0238 10667 040215 200 14 0 00 040567 ..1011: MOVE SCR2,OFLOC ;GET PC 10668 040216 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10669 040217 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10670 ERROR (..1010,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10671 10672 040220 036 13 0 00 045545 10673 040221 035 00 0 00 040210 ERLOOP ..1010 ;IF ERROR, LOOP TO ..1010 10674 ^ 10675 ^ 10676 10677 ; ********************************************************************** 10678 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10679 ; ********************************************************************** 10680 10681 ODIV (0,377777777777,377777777777,377777777777,-1,400000000001)^ 10682 10683 ; --- DIVIDEND == (0,377777777777,377777777777,377777777777) 10684 ; --- DIVISOR === (-1,400000000001) 10685 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10686 10687 040222 ..1012: MOVE AC1,[[EXP 0,377777777777,377777777777,377777777777,-1,400000000001],,ODEND] 10688 040222 200 01 0 00 045745 10689 040223 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10690 040224 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10691 ERROR (..1012,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10692 040225 036 14 0 00 045532 10693 040226 035 00 0 00 040222 ERLOOP ..1012 ;IF ERROR, LOOP TO ..1012 10694 ^ 10695 10696 040227 200 14 0 00 040567 ..1013: MOVE SCR2,OFLOC ;GET PC 10697 040230 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10698 040231 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10699 ERROR (..1012,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10700 10701 040232 036 13 0 00 045545 10702 040233 035 00 0 00 040222 ERLOOP ..1012 ;IF ERROR, LOOP TO ..1012 10703 ^ 10704 ^ 10705 10706 ; ********************************************************************** 10707 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10708 ; ********************************************************************** 10709 10710 ODIV (-1,1B0,1B0,400000000001,0,377777777777)^ 10711 10712 ; --- DIVIDEND == (-1,1B0,1B0,400000000001) 10713 ; --- DIVISOR === (0,377777777777) 10714 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10715 10716 040234 200 01 0 00 045746 ..1014: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,0,377777777777],,ODEND] 10717 040235 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10718 040236 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10719 ERROR (..1014,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10720 040237 036 14 0 00 045532 10721 040240 035 00 0 00 040234 ERLOOP ..1014 ;IF ERROR, LOOP TO ..1014 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-10 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0239 10722 ^ 10723 10724 040241 200 14 0 00 040567 ..1015: MOVE SCR2,OFLOC ;GET PC 10725 040242 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10726 040243 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10727 ERROR (..1014,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10728 10729 040244 036 13 0 00 045545 10730 040245 035 00 0 00 040234 ERLOOP ..1014 ;IF ERROR, LOOP TO ..1014 10731 ^ 10732 ^ 10733 10734 ; ********************************************************************** 10735 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10736 ; ********************************************************************** 10737 10738 ODIV (-1,1B0,1B0,400000000001,-1,400000000001)^ 10739 10740 ; --- DIVIDEND == (-1,1B0,1B0,400000000001) 10741 ; --- DIVISOR === (-1,400000000001) 10742 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10743 10744 040246 200 01 0 00 045755 ..1016: MOVE AC1,[[EXP -1,1B0,1B0,400000000001,-1,400000000001],,ODEND] 10745 040247 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10746 040250 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10747 ERROR (..1016,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10748 040251 036 14 0 00 045532 10749 040252 035 00 0 00 040246 ERLOOP ..1016 ;IF ERROR, LOOP TO ..1016 10750 ^ 10751 10752 040253 200 14 0 00 040567 ..1017: MOVE SCR2,OFLOC ;GET PC 10753 040254 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10754 040255 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10755 ERROR (..1016,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10756 10757 040256 036 13 0 00 045545 10758 040257 035 00 0 00 040246 ERLOOP ..1016 ;IF ERROR, LOOP TO ..1016 10759 ^ 10760 ^ 10761 10762 ; ********************************************************************** 10763 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10764 ; ********************************************************************** 10765 10766 ODIV (1,0,377777777777,377777777777,0,377777777777)^ 10767 10768 ; --- DIVIDEND == (1,0,377777777777,377777777777) 10769 ; --- DIVISOR === (0,377777777777) 10770 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10771 10772 040260 200 01 0 00 045756 ..1020: MOVE AC1,[[EXP 1,0,377777777777,377777777777,0,377777777777],,ODEND] 10773 040261 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10774 040262 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10775 ERROR (..1020,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10776 040263 036 14 0 00 045532 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-11 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0240 10777 040264 035 00 0 00 040260 ERLOOP ..1020 ;IF ERROR, LOOP TO ..1020 10778 ^ 10779 10780 040265 200 14 0 00 040567 ..1021: MOVE SCR2,OFLOC ;GET PC 10781 040266 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10782 040267 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10783 ERROR (..1020,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10784 10785 040270 036 13 0 00 045545 10786 040271 035 00 0 00 040260 ERLOOP ..1020 ;IF ERROR, LOOP TO ..1020 10787 ^ 10788 ^ 10789 10790 ; ********************************************************************** 10791 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10792 ; ********************************************************************** 10793 10794 ODIV (1,0,377777777777,377777777777,-1,400000000001)^ 10795 10796 ; --- DIVIDEND == (1,0,377777777777,377777777777) 10797 ; --- DIVISOR === (-1,400000000001) 10798 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10799 10800 040272 200 01 0 00 045765 ..1022: MOVE AC1,[[EXP 1,0,377777777777,377777777777,-1,400000000001],,ODEND] 10801 040273 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10802 040274 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10803 ERROR (..1022,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10804 040275 036 14 0 00 045532 10805 040276 035 00 0 00 040272 ERLOOP ..1022 ;IF ERROR, LOOP TO ..1022 10806 ^ 10807 10808 040277 200 14 0 00 040567 ..1023: MOVE SCR2,OFLOC ;GET PC 10809 040300 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10810 040301 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10811 ERROR (..1022,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10812 10813 040302 036 13 0 00 045545 10814 040303 035 00 0 00 040272 ERLOOP ..1022 ;IF ERROR, LOOP TO ..1022 10815 ^ 10816 ^ 10817 10818 ; ********************************************************************** 10819 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10820 ; ********************************************************************** 10821 10822 ODIV (-2,-1,1B0,400000000001,0,377777777777)^ 10823 10824 ; --- DIVIDEND == (-2,-1,1B0,400000000001) 10825 ; --- DIVISOR === (0,377777777777) 10826 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10827 10828 040304 200 01 0 00 045774 ..1024: MOVE AC1,[[EXP -2,-1,1B0,400000000001,0,377777777777],,ODEND] 10829 040305 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10830 040306 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10831 ERROR (..1024,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-12 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0241 10832 040307 036 14 0 00 045532 10833 040310 035 00 0 00 040304 ERLOOP ..1024 ;IF ERROR, LOOP TO ..1024 10834 ^ 10835 10836 040311 200 14 0 00 040567 ..1025: MOVE SCR2,OFLOC ;GET PC 10837 040312 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10838 040313 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10839 ERROR (..1024,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10840 10841 040314 036 13 0 00 045545 10842 040315 035 00 0 00 040304 ERLOOP ..1024 ;IF ERROR, LOOP TO ..1024 10843 ^ 10844 ^ 10845 10846 ; ********************************************************************** 10847 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10848 ; ********************************************************************** 10849 10850 ODIV (-2,-1,1B0,400000000001,-1,400000000001)^ 10851 10852 ; --- DIVIDEND == (-2,-1,1B0,400000000001) 10853 ; --- DIVISOR === (-1,400000000001) 10854 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10855 10856 040316 200 01 0 00 046003 ..1026: MOVE AC1,[[EXP -2,-1,1B0,400000000001,-1,400000000001],,ODEND] 10857 040317 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10858 040320 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10859 ERROR (..1026,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10860 040321 036 14 0 00 045532 10861 040322 035 00 0 00 040316 ERLOOP ..1026 ;IF ERROR, LOOP TO ..1026 10862 ^ 10863 10864 040323 200 14 0 00 040567 ..1027: MOVE SCR2,OFLOC ;GET PC 10865 040324 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10866 040325 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10867 ERROR (..1026,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10868 10869 040326 036 13 0 00 045545 10870 040327 035 00 0 00 040316 ERLOOP ..1026 ;IF ERROR, LOOP TO ..1026 10871 ^ 10872 ^ 10873 10874 ; ********************************************************************** 10875 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10876 ; ********************************************************************** 10877 10878 ODIV (1B0,1B0,1B0,1B0,1B0,1B0)^ 10879 10880 ; --- DIVIDEND == (1B0,1B0,1B0,1B0) 10881 ; --- DIVISOR === (1B0,1B0) 10882 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10883 10884 040330 200 01 0 00 046012 ..1030: MOVE AC1,[[EXP 1B0,1B0,1B0,1B0,1B0,1B0],,ODEND] 10885 040331 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10886 040332 260 17 0 00 040557 GO OSUBR ;GO DO TEST DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-13 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0242 10887 ERROR (..1030,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10888 040333 036 14 0 00 045532 10889 040334 035 00 0 00 040330 ERLOOP ..1030 ;IF ERROR, LOOP TO ..1030 10890 ^ 10891 10892 040335 200 14 0 00 040567 ..1031: MOVE SCR2,OFLOC ;GET PC 10893 040336 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10894 040337 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10895 ERROR (..1030,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10896 10897 040340 036 13 0 00 045545 10898 040341 035 00 0 00 040330 ERLOOP ..1030 ;IF ERROR, LOOP TO ..1030 10899 ^ 10900 ^ 10901 10902 ; ********************************************************************** 10903 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10904 ; ********************************************************************** 10905 10906 ODIV (377777777777,377777777777,377777777777,377777777777,377777777777,377777777 10907 777)^ 10908 10909 ; --- DIVIDEND == (377777777777,377777777777,377777777777,377777777777) 10910 ; --- DIVISOR === (377777777777,377777777777) 10911 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10912 10913 ..1032: MOVE AC1,[[EXP 377777777777,377777777777,377777777777,377777777777,377777777777, 10914 040342 200 01 0 00 046021 377777777777],,ODEND] 10915 040343 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10916 040344 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10917 ERROR (..1032,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10918 040345 036 14 0 00 045532 10919 040346 035 00 0 00 040342 ERLOOP ..1032 ;IF ERROR, LOOP TO ..1032 10920 ^ 10921 10922 040347 200 14 0 00 040567 ..1033: MOVE SCR2,OFLOC ;GET PC 10923 040350 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10924 040351 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10925 ERROR (..1032,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10926 10927 040352 036 13 0 00 045545 10928 040353 035 00 0 00 040342 ERLOOP ..1032 ;IF ERROR, LOOP TO ..1032 10929 ^ 10930 ^ 10931 10932 ; ********************************************************************** 10933 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10934 ; ********************************************************************** 10935 10936 ODIV (377777777777,377777777777,377777777777,377777777777,1B0,400000000001)^ 10937 10938 ; --- DIVIDEND == (377777777777,377777777777,377777777777,377777777777) 10939 ; --- DIVISOR === (1B0,400000000001) 10940 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10941 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-14 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0243 10942 ..1034: MOVE AC1,[[EXP 377777777777,377777777777,377777777777,377777777777,1B0,400000000 10943 040354 200 01 0 00 046030 001],,ODEND] 10944 040355 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10945 040356 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10946 ERROR (..1034,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10947 040357 036 14 0 00 045532 10948 040360 035 00 0 00 040354 ERLOOP ..1034 ;IF ERROR, LOOP TO ..1034 10949 ^ 10950 10951 040361 200 14 0 00 040567 ..1035: MOVE SCR2,OFLOC ;GET PC 10952 040362 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10953 040363 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10954 ERROR (..1034,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10955 10956 040364 036 13 0 00 045545 10957 040365 035 00 0 00 040354 ERLOOP ..1034 ;IF ERROR, LOOP TO ..1034 10958 ^ 10959 ^ 10960 10961 ; ********************************************************************** 10962 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING ---------- 10963 ; ********************************************************************** 10964 10965 ODIV (1B0,400000000001,1B0,1B0,377777777777,377777777777)^ 10966 10967 ; --- DIVIDEND == (1B0,400000000001,1B0,1B0) 10968 ; --- DIVISOR === (377777777777,377777777777) 10969 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10970 10971 040366 200 01 0 00 046037 ..1036: MOVE AC1,[[EXP 1B0,400000000001,1B0,1B0,377777777777,377777777777],,ODEND] 10972 040367 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 10973 040370 260 17 0 00 040557 GO OSUBR ;GO DO TEST 10974 ERROR (..1036,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 10975 040371 036 14 0 00 045532 10976 040372 035 00 0 00 040366 ERLOOP ..1036 ;IF ERROR, LOOP TO ..1036 10977 ^ 10978 10979 040373 200 14 0 00 040567 ..1037: MOVE SCR2,OFLOC ;GET PC 10980 040374 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 10981 040375 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 10982 ERROR (..1036,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 10983 10984 040376 036 13 0 00 045545 10985 040377 035 00 0 00 040366 ERLOOP ..1036 ;IF ERROR, LOOP TO ..1036 10986 ^ 10987 ^ 10988 10989 ; ********************************************************************** 10990 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS ------- 10991 --- 10992 ; ********************************************************************** 10993 10994 ODIV (1,1B0,-1,-1,0,377777777777)^ 10995 10996 ; --- DIVIDEND == (1,1B0,-1,-1) DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-15 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0244 10997 ; --- DIVISOR === (0,377777777777) 10998 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 10999 11000 040400 200 01 0 00 046046 ..1040: MOVE AC1,[[EXP 1,1B0,-1,-1,0,377777777777],,ODEND] 11001 040401 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 11002 040402 260 17 0 00 040557 GO OSUBR ;GO DO TEST 11003 ERROR (..1040,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 11004 040403 036 14 0 00 045532 11005 040404 035 00 0 00 040400 ERLOOP ..1040 ;IF ERROR, LOOP TO ..1040 11006 ^ 11007 11008 040405 200 14 0 00 040567 ..1041: MOVE SCR2,OFLOC ;GET PC 11009 040406 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 11010 040407 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 11011 ERROR (..1040,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 11012 11013 040410 036 13 0 00 045545 11014 040411 035 00 0 00 040400 ERLOOP ..1040 ;IF ERROR, LOOP TO ..1040 11015 ^ 11016 ^ 11017 11018 ; ********************************************************************** 11019 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS ------- 11020 --- 11021 ; ********************************************************************** 11022 11023 ODIV (1,0,377777777777,377777777777,-1,1)^ 11024 11025 ; --- DIVIDEND == (1,0,377777777777,377777777777) 11026 ; --- DIVISOR === (-1,1) 11027 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 11028 11029 040412 200 01 0 00 046055 ..1042: MOVE AC1,[[EXP 1,0,377777777777,377777777777,-1,1],,ODEND] 11030 040413 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 11031 040414 260 17 0 00 040557 GO OSUBR ;GO DO TEST 11032 ERROR (..1042,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 11033 040415 036 14 0 00 045532 11034 040416 035 00 0 00 040412 ERLOOP ..1042 ;IF ERROR, LOOP TO ..1042 11035 ^ 11036 11037 040417 200 14 0 00 040567 ..1043: MOVE SCR2,OFLOC ;GET PC 11038 040420 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 11039 040421 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 11040 ERROR (..1042,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 11041 11042 040422 036 13 0 00 045545 11043 040423 035 00 0 00 040412 ERLOOP ..1042 ;IF ERROR, LOOP TO ..1042 11044 ^ 11045 ^ 11046 11047 ; ********************************************************************** 11048 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS ------- 11049 --- 11050 ; ********************************************************************** 11051 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 32-16 DSKCFM MAC 26-Sep-79 15:49 DDIV - TEST G SEQ 0245 11052 ODIV (-2,377777777777,0,1,0,-1)^ 11053 11054 ; --- DIVIDEND == (-2,377777777777,0,1) 11055 ; --- DIVISOR === (0,-1) 11056 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 11057 11058 040424 200 01 0 00 046064 ..1044: MOVE AC1,[[EXP -2,377777777777,0,1,0,-1],,ODEND] 11059 040425 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 11060 040426 260 17 0 00 040557 GO OSUBR ;GO DO TEST 11061 ERROR (..1044,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 11062 040427 036 14 0 00 045532 11063 040430 035 00 0 00 040424 ERLOOP ..1044 ;IF ERROR, LOOP TO ..1044 11064 ^ 11065 11066 040431 200 14 0 00 040567 ..1045: MOVE SCR2,OFLOC ;GET PC 11067 040432 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 11068 040433 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 11069 ERROR (..1044,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 11070 11071 040434 036 13 0 00 045545 11072 040435 035 00 0 00 040424 ERLOOP ..1044 ;IF ERROR, LOOP TO ..1044 11073 ^ 11074 ^ 11075 11076 ; ********************************************************************** 11077 ; ---------- DDIV - TEST G - OVERFLOW / NO DIVIDE TESTING WITH INCONSISTENT SIGNS ------- 11078 --- 11079 ; ********************************************************************** 11080 11081 ODIV (-2,-1,0,1,-1,400000000001)^ 11082 11083 ; --- DIVIDEND == (-2,-1,0,1) 11084 ; --- DIVISOR === (-1,400000000001) 11085 ; --- QUOTIENT/REMAINDER - NOT CALCULATED (DIVIDEND UNCHANGED) 11086 11087 040436 200 01 0 00 046073 ..1046: MOVE AC1,[[EXP -2,-1,0,1,-1,400000000001],,ODEND] 11088 040437 251 01 0 00 040635 BLT AC1,ORES-1 ;SET UP OPERANDS 11089 040440 260 17 0 00 040557 GO OSUBR ;GO DO TEST 11090 ERROR (..1046,14,SCR1,SCR2,,TEST G - DIVIDEND CHANGED ON OV/NODIV,DPRINT)^SALL 11091 040441 036 14 0 00 045532 11092 040442 035 00 0 00 040436 ERLOOP ..1046 ;IF ERROR, LOOP TO ..1046 11093 ^ 11094 11095 040443 200 14 0 00 040567 ..1047: MOVE SCR2,OFLOC ;GET PC 11096 040444 434 14 0 00 045535 IOR SCR2,[AROV+DCK,,0] ;CALC CORRECT PC (OV/NO DIV) 11097 040445 312 14 0 00 040567 CAME SCR2,OFLOC ;PC CORRECT? 11098 ERROR (..1046,13,SCR2,OFLOC,,TEST G - PC FLAGS INCORRECT - BITS 0&12,DPRINT)^SALL 11099 11100 040446 036 13 0 00 045545 11101 040447 035 00 0 00 040436 ERLOOP ..1046 ;IF ERROR, LOOP TO ..1046 11102 ^ 11103 ^ 11104 11105 040450 254 00 0 00 030057 PHALT: JRST BEGEND DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 33 DSKCFM MAC 26-Sep-79 15:49 TESTING SUBROUTINES SEQ 0246 11106 SUBTTL TESTING SUBROUTINES 11107 11108 ; ********************************************************************** 11109 ;*MSUBR - SUBROUTINE TO DO MULTIPLICATION CALCULATIONS 11110 ;* 11111 ;* ARGUMENTS: MCAND - CONTAINS MULTIPLICAND 11112 ;* MPLIER - CONTAINS MULTIPLIER 11113 ;* MRES - CONTAINS THE EXPECTED RESULT 11114 ; ********************************************************************** 11115 11116 040451 200 15 0 00 046074 MSUBR: MOVE SCR3,[MCAND,,MPLIER] ;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE 11117 040452 120 01 0 00 040502 DMOVE AC1,MCAND ;INIT AC1 WITH MULTIPLICAND 11118 040453 120 03 0 00 043403 DMOVE AC1+2,[EXP 525252525252,252525252525] ;PUT GARBAGE IN 11119 ;RIGHT HALF OF RESULT 11120 040454 255 17 0 00 040455 JFCL 17,.+1 ;CLEAR PC FLAGS 11121 ;---------------------- 11122 040455 116 01 0 00 040504 DMUL AC1,MPLIER ;----- MULTIPLY ----- 11123 ;---------------------- 11124 040456 264 00 0 00 040457 JSR .+1 ;SAVE PC FLAGS 11125 040457 000000 000000 MFLOC: 0 ;PC FLAGS STORED HERE 11126 11127 040460 400 13 0 00 000000 SETZ SCR1, ;KEEP TRACK OF INCORRECT WORD 11128 040461 312 01 0 00 040506 CAME AC1,MRES ;1ST WORD OF RESULT OK? 11129 040462 254 00 0 00 040474 JRST MERROR ;FOUND AN ERROR 11130 11131 040463 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD AS INCORRECT 11132 040464 312 02 0 00 040507 CAME AC1+1,MRES+1 ;2ND WORD OF RESULT OK? 11133 040465 254 00 0 00 040474 JRST MERROR ;FOUND AN ERROR 11134 11135 040466 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD AS INCORRECT 11136 040467 312 03 0 00 040510 CAME AC1+2,MRES+2 ;3RD WORD OF RESULT OK? 11137 040470 254 00 0 00 040474 JRST MERROR ;FOUND AN ERROR 11138 11139 040471 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD AS INCORRECT 11140 040472 316 04 0 00 040511 CAMN AC1+3,MRES+3 ;4TH WORD OF RESULT OK? 11141 040473 254 00 0 00 040477 JRST MTEST ;GO TEST IF PC FLAGS OK 11142 11143 040474 200 14 0 13 000001 MERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL RESULT 11144 040475 200 13 0 13 040506 MOVE SCR1,MRES(SCR1) ;GET CORRECT RESULT 11145 040476 263 17 0 00 000000 RTN ;TAKE ERROR RETURN 11146 11147 040477 262 17 0 00 040512 MTEST: GET MRET ;GET RETURN ADDRESS IN MRET 11148 040500 350 00 0 00 040512 AOS MRET ;SET UP +1 NO ERROR RETURN 11149 040501 254 00 1 00 040512 JRST @MRET ;RETURN 11150 11151 040502 MCAND: BLOCK 2 ;MULTIPLICAND 11152 040504 MPLIER: BLOCK 2 ;MULTIPLIER 11153 040506 MRES: BLOCK 4 ;EXPECTED RESULT 11154 040512 MRET: BLOCK 1 ;RETURN + 1 ADDRESS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 34 DSKCFM MAC 26-Sep-79 15:49 TESTING SUBROUTINES SEQ 0247 11155 11156 ; ********************************************************************** 11157 ;*PSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS 11158 ;* 11159 ;* ARGUMENTS: PDEND - CONTAINS DIVIDEND 11160 ;* PISOR - CONTAINS DIVISOR 11161 ;* PRES - CONTAINS THE EXPECTED RESULT 11162 ; ********************************************************************** 11163 11164 040513 200 15 0 00 046075 PSUBR: MOVE SCR3,[PDEND,,PISOR] ;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE 11165 040514 120 01 0 00 040544 DMOVE AC1,PDEND ;INIT DIVIDEND (4 WORDS) 11166 040515 120 03 0 00 040546 DMOVE AC1+2,PDEND+2 11167 11168 040516 254 02 1 00 046076 JRSTF @[.+1] ;CLEAR PC FLAGS 11169 ;---------------------- 11170 040517 117 01 0 00 040550 DDIV AC1,PISOR ;----- DIVIDE ------- 11171 ;---------------------- 11172 040520 264 00 0 00 040521 JSR .+1 ;SAVE PC FLAGS 11173 040521 000000 000000 PFLOC: 0 ;PC FLAGS STORED HERE 11174 11175 040522 400 13 0 00 000000 SETZ SCR1, ;KEEP TRACK OF INCORRECT WORD 11176 040523 312 01 0 00 040552 CAME AC1,PRES ;1ST WORD OF QUOTIENT OK? 11177 040524 254 00 0 00 040536 JRST PERROR ;FOUND AN ERROR 11178 11179 040525 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD AS INCORRECT 11180 040526 312 02 0 00 040553 CAME AC1+1,PRES+1 ;2ND WORD OF QUOTIENT OK? 11181 040527 254 00 0 00 040536 JRST PERROR ;FOUND AN ERROR 11182 11183 040530 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD AS INCORRECT 11184 040531 312 03 0 00 040554 CAME AC1+2,PRES+2 ;1ST WORD OF REMAINDER OK? 11185 040532 254 00 0 00 040536 JRST PERROR ;FOUND AN ERROR 11186 11187 040533 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD AS INCORRECT 11188 040534 316 04 0 00 040555 CAMN AC1+3,PRES+3 ;2ND WORD OF REMAINDER OK? 11189 040535 254 00 0 00 040541 JRST PTEST ;GO TEST IF PC FLAGS OK 11190 11191 040536 200 14 0 13 000001 PERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL RESULT 11192 040537 200 13 0 13 040552 MOVE SCR1,PRES(SCR1) ;GET CORRECT RESULT 11193 040540 263 17 0 00 000000 RTN ;TAKE ERROR RETURN 11194 11195 040541 262 17 0 00 040512 PTEST: GET MRET ;GET RETURN ADDRESS IN MRET 11196 040542 350 00 0 00 040512 AOS MRET ;SET UP +1 NO ERROR RETURN 11197 040543 254 00 1 00 040512 JRST @MRET ;RETURN 11198 11199 040544 PDEND: BLOCK 4 ;DIVIDEND 11200 040550 PISOR: BLOCK 2 ;DIVISOR 11201 040552 PRES: BLOCK 4 ;EXPECTED RESULT 11202 040556 PRET: BLOCK 1 ;RETURN + 1 ADDRESS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 35 DSKCFM MAC 26-Sep-79 15:49 TESTING SUBROUTINES SEQ 0248 11203 11204 ; ********************************************************************** 11205 ;*OSUBR - SUBROUTINE TO DO DIVISION CALCULATIONS 11206 ;* 11207 ;* ARGUMENTS: ODEND - CONTAINS DIVIDEND 11208 ;* OISOR - CONTAINS DIVISOR 11209 ;* 11210 ;* NOTE: WHEN ENCOUNTERING A OVERFLOW/NO DIVIDE SITUATION THE PROCESSOR 11211 ;* ENSURES THAT THE OPERANDS DO NOT CHANGE. THE KL10 ENSURES 11212 ;* THAT NEITHER THE MAGNITUDE PORTION NOR THE SIGN BITS CHANGE. 11213 ;* THE KS10 ENSURES THAT THE MAGNITUDE PORTION OF EITHER WORD 11214 ;* DOES NOT CHANGE - HOWEVER, IT ONLY PROTECTS THE SIGN BIT OF 11215 ;* THE MOST SIGNIFICANT WORD. THE SIGN BIT OF THE OTHER WORD 11216 ;* IS INDETERMINATE. THIS TEST CHECKS TO FIND OUT WHAT TYPE OF 11217 ;* PROCESSOR WE HAVE AND WILL MODIFY THE TEST FOR A KS10. 11218 ;* 11219 ;* THE ABOVE WAS NOTICED WHEN RUNNING THE DIAGNOSTIC ON THE KS10 11220 ;* AFTER DEBUGGING ON A KL10. ACCORDING TO DON LEWINE, THIS WAS 11221 ;* DONE TO SAVE SPACE IN THE KS10 MICROCODE. 11222 ; ********************************************************************** 11223 11224 040557 200 15 0 00 046077 OSUBR: MOVE SCR3,[ODEND,,OISOR] ;ADDRS OF OPERANDS FOR ADDL PRINT ROUTINE 11225 040560 120 01 0 00 040630 DMOVE AC1,ODEND ;INIT DIVIDEND (4 WORDS) 11226 040561 120 03 0 00 040632 DMOVE AC1+2,ODEND+2 11227 040562 124 01 0 00 040636 DMOVEM AC1,ORES ;RESULT SHOULD BE SAME AS 11228 040563 124 03 0 00 040640 DMOVEM AC1+2,ORES+2 ; DIVIDEND 11229 11230 040564 254 02 1 00 046100 JRSTF @[.+1] ;CLEAR PC FLAGS 11231 ;---------------------- 11232 040565 117 01 0 00 040634 DDIV AC1,OISOR ;----- DIVIDE ------- 11233 ;---------------------- 11234 040566 264 00 0 00 040567 JSR .+1 ;SAVE PC FLAGS 11235 040567 000000 000000 OFLOC: 0 ;PC FLAGS STORED HERE 11236 11237 040570 336 00 0 00 030524 SKIPN SM10 ;KS10 PROCESSOR? 11238 040571 254 00 0 00 040600 JRST OCON ;NO - KL10 11239 040572 135 13 0 00 040622 LDB SCR1,OBYTEF ;COPY THE LOW ORDER SIGNS OF THE RESULT 11240 040573 137 13 0 00 040625 DPB SCR1,OBYTET ; INTO THE EXPECTED RESULT SINCE THEY 11241 040574 135 13 0 00 040623 LDB SCR1,OBYTEF+1 ; ARE INDETERMINATE AND WE DONT WANT 11242 040575 137 13 0 00 040626 DPB SCR1,OBYTET+1 ; TO TEST THE SIGN BIT. 11243 040576 135 13 0 00 040624 LDB SCR1,OBYTEF+2 11244 040577 137 13 0 00 040627 DPB SCR1,OBYTET+2 11245 11246 040600 400 13 0 00 000000 OCON: SETZ SCR1, ;KEEP TRACK OF INCORRECT WORD 11247 040601 312 01 0 00 040636 CAME AC1,ORES ;1ST WORD OF QUOTIENT OK? 11248 040602 254 00 0 00 040614 JRST OERROR ;FOUND AN ERROR 11249 11250 040603 201 13 0 00 000001 MOVEI SCR1,1 ;POINT TO 2ND WORD AS INCORRECT 11251 040604 312 02 0 00 040637 CAME AC1+1,ORES+1 ;2ND WORD OF QUOTIENT OK? 11252 040605 254 00 0 00 040614 JRST OERROR ;FOUND AN ERROR DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 36 DSKCFM MAC 26-Sep-79 15:49 TESTING SUBROUTINES SEQ 0249 11253 11254 040606 201 13 0 00 000002 MOVEI SCR1,2 ;POINT TO 3RD WORD AS INCORRECT 11255 040607 312 03 0 00 040640 CAME AC1+2,ORES+2 ;1ST WORD OF REMAINDER OK? 11256 040610 254 00 0 00 040614 JRST OERROR ;FOUND AN ERROR 11257 11258 040611 201 13 0 00 000003 MOVEI SCR1,3 ;POINT TO 4TH WORD AS INCORRECT 11259 040612 316 04 0 00 040641 CAMN AC1+3,ORES+3 ;2ND WORD OF REMAINDER OK? 11260 040613 254 00 0 00 040617 JRST OTEST ;GO TEST IF PC FLAGS OK 11261 11262 040614 200 14 0 13 000001 OERROR: MOVE SCR2,AC1(SCR1) ;GET ACTUAL RESULT 11263 040615 200 13 0 13 040636 MOVE SCR1,ORES(SCR1) ;GET CORRECT RESULT 11264 040616 263 17 0 00 000000 RTN ;TAKE ERROR RETURN 11265 11266 040617 262 17 0 00 040512 OTEST: GET MRET ;GET RETURN ADDRESS IN MRET 11267 040620 350 00 0 00 040512 AOS MRET ;SET UP +1 NO ERROR RETURN 11268 040621 254 00 1 00 040512 JRST @MRET ;RETURN 11269 11270 040622 43 01 0 00 000002 OBYTEF: POINT 1,AC1+1,0 ;BYTE POINTERS FOR GETTING SIGN 11271 040623 43 01 0 00 000003 POINT 1,AC1+2,0 ; FROM AC1+1,+2,+3 (ACTUAL RESULT) 11272 040624 43 01 0 00 000004 POINT 1,AC1+3,0 11273 040625 43 01 0 00 040637 OBYTET: POINT 1,ORES+1,0 ;BYTE POINTERS FOR PUTTING SIGN 11274 040626 43 01 0 00 040640 POINT 1,ORES+2,0 ; INTO ORES+1,+2,+3 (EXPECTED RESULT) 11275 040627 43 01 0 00 040641 POINT 1,ORES+3,0 11276 11277 040630 ODEND: BLOCK 4 ;DIVIDEND 11278 040634 OISOR: BLOCK 2 ;DIVISOR 11279 040636 ORES: BLOCK 4 ;EXPECTED RESULT 11280 040642 ORET: BLOCK 1 ;RETURN + 1 ADDRESS DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 37 DSKCFM MAC 26-Sep-79 15:49 ADDL ERROR PRINT ROUTINES SEQ 0250 11281 SUBTTL ADDL ERROR PRINT ROUTINES 11282 SALL 11283 ; ********************************************************************** 11284 ;*APRINT - ADDITION ERROR PRINTER 11285 ; ********************************************************************** 11286 11287 040643 037 02 0 00 046101 APRINT: PMSG (AUGEND: ) 11288 11289 040644 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF AUGEND 11290 040645 200 00 1 00 000013 MOVE 0,@SCR1 ;GET AUGEND (LEFT WORD) 11291 040646 037 14 0 00 000000 PNTOCT 11292 11293 040647 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11294 040650 200 00 1 00 000013 MOVE 0,@SCR1 ;GET AUGEND (RIGHT WORD) 11295 040651 037 14 0 00 000000 PNTOCT 11296 11297 040652 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11298 040653 037 02 0 00 046103 PMSG (ADDEND: ) 11299 11300 040654 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDR OF ADDEND 11301 040655 200 00 1 00 000013 MOVE 0,@SCR1 ;GET ADDEND (LEFT WORD) 11302 040656 037 14 0 00 000000 PNTOCT 11303 11304 040657 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11305 040660 200 00 1 00 000013 MOVE 0,@SCR1 ;GET ADDEND (RIGHT WORD) 11306 040661 037 14 0 00 000000 PNTOCT 11307 11308 040662 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11309 040663 037 02 0 00 046105 PMSG (RESULT: ) 11310 11311 040664 200 00 0 00 000001 MOVE 0,AC1 ;GET LEFT WORD OF RESULT 11312 040665 037 14 0 00 000000 PNTOCT 11313 11314 040666 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RIGHT WORD OF RESULT 11315 040667 037 14 0 00 000000 PNTOCT 11316 11317 040670 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11318 040671 263 17 0 00 000000 RTN DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 38 DSKCFM MAC 26-Sep-79 15:49 ADDL ERROR PRINT ROUTINES SEQ 0251 11319 11320 ; ********************************************************************** 11321 ;*SPRINT - SUBTRACTION ERROR PRINTER 11322 ; ********************************************************************** 11323 11324 040672 037 02 0 00 046107 SPRINT: PMSG (MINUEND: ) 11325 11326 040673 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF MINUEND 11327 040674 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MINUEND (LEFT WORD) 11328 040675 037 14 0 00 000000 PNTOCT 11329 11330 040676 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11331 040677 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MINUEND (RIGHT WORD) 11332 040700 037 14 0 00 000000 PNTOCT 11333 11334 040701 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11335 040702 037 02 0 00 046112 PMSG (SUBTRAHEND: ) 11336 11337 040703 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDR OF SUBTRAHEND 11338 040704 200 00 1 00 000013 MOVE 0,@SCR1 ;GET SUBTRAHEND (LEFT WORD) 11339 040705 037 14 0 00 000000 PNTOCT 11340 11341 040706 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11342 040707 200 00 1 00 000013 MOVE 0,@SCR1 ;GET SUBTRAHEND (RIGHT WORD) 11343 040710 037 14 0 00 000000 PNTOCT 11344 11345 040711 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11346 040712 037 02 0 00 046115 PMSG (RESULT: ) 11347 11348 040713 200 00 0 00 000001 MOVE 0,AC1 ;GET LEFT WORD OF RESULT 11349 040714 037 14 0 00 000000 PNTOCT 11350 11351 040715 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RIGHT WORD OF RESULT 11352 040716 037 14 0 00 000000 PNTOCT 11353 11354 040717 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11355 040720 263 17 0 00 000000 RTN DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 39 DSKCFM MAC 26-Sep-79 15:49 ADDL ERROR PRINT ROUTINES SEQ 0252 11356 11357 ; ********************************************************************** 11358 ;*MPRINT - MULTIPLICATION ERROR PRINTER 11359 ; ********************************************************************** 11360 11361 040721 037 02 0 00 046120 MPRINT: PMSG (MULTIPLICAND: ) 11362 11363 040722 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF MULTIPLICAND 11364 040723 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MULTIPLICAND (LEFT WORD) 11365 040724 037 14 0 00 000000 PNTOCT 11366 11367 040725 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11368 040726 200 00 1 00 000013 MOVE 0,@SCR1 ;GET MULTIPLICAND (RIGHT WORD) 11369 040727 037 14 0 00 000000 PNTOCT 11370 11371 040730 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11372 040731 037 02 0 00 046123 PMSG (MULTIPLIER: ) 11373 11374 040732 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDRESS OF MULTIPLIER 11375 040733 200 00 1 00 000013 MOVE 0,@SCR1 ;GET LEFT WORD OF MULTIPLIER 11376 040734 037 14 0 00 000000 PNTOCT 11377 11378 040735 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11379 040736 200 00 1 00 000013 MOVE 0,@SCR1 ;GET RIGHT WORD OF MULTIPLIER 11380 040737 037 14 0 00 000000 PNTOCT 11381 11382 040740 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11383 040741 037 02 0 00 046126 PMSG (RESULT: ) 11384 11385 040742 200 00 0 00 000001 MOVE 0,AC1 ;GET RESULT WORD 1 11386 040743 037 14 0 00 000000 PNTOCT 11387 11388 040744 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RESULT WORD 2 11389 040745 037 14 0 00 000000 PNTOCT 11390 11391 040746 200 00 0 00 000003 MOVE 0,AC1+2 ;GET RESULT WORD 3 11392 040747 037 14 0 00 000000 PNTOCT 11393 11394 040750 200 00 0 00 000004 MOVE 0,AC1+3 ;GET RESULT WORD 4 11395 040751 037 14 0 00 000000 PNTOCT 11396 11397 040752 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11398 040753 263 17 0 00 000000 RTN DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 40 DSKCFM MAC 26-Sep-79 15:49 ADDL ERROR PRINT ROUTINES SEQ 0253 11399 11400 ; ********************************************************************** 11401 ;*DPRINT - DIVIDE ERROR PRINTER 11402 ; ********************************************************************** 11403 11404 040754 037 02 0 00 046131 DPRINT: PMSG (DIVIDEND: ) 11405 11406 040755 554 13 0 00 000015 HLRZ SCR1,SCR3 ;GET ADDR OF DIVIDEND 11407 040756 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 1) 11408 040757 037 14 0 00 000000 PNTOCT 11409 11410 040760 340 13 0 00 000000 AOJ SCR1, ;POINT TO 2ND WORD 11411 040761 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 2) 11412 040762 037 14 0 00 000000 PNTOCT 11413 11414 040763 340 13 0 00 000000 AOJ SCR1, ;POINT TO 3RD WORD 11415 040764 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 3) 11416 040765 037 14 0 00 000000 PNTOCT 11417 11418 040766 340 13 0 00 000000 AOJ SCR1, ;POINT TO 4TH WORD 11419 040767 200 00 1 00 000013 MOVE 0,@SCR1 ;GET DIVIDEND (WORD 4) 11420 040770 037 14 0 00 000000 PNTOCT 11421 11422 040771 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11423 040772 037 02 0 00 046133 PMSG (DIVISOR: ) 11424 11425 040773 550 13 0 00 000015 HRRZ SCR1,SCR3 ;GET ADDRESS OF DIVISOR 11426 040774 200 00 1 00 000013 MOVE 0,@SCR1 ;GET LEFT WORD OF DIVISOR 11427 040775 037 14 0 00 000000 PNTOCT 11428 11429 040776 340 13 0 00 000000 AOJ SCR1, ;POINT TO RIGHT WORD 11430 040777 200 00 1 00 000013 MOVE 0,@SCR1 ;GET RIGHT WORD OF DIVISOR 11431 041000 037 14 0 00 000000 PNTOCT 11432 11433 041001 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11434 041002 037 02 0 00 046135 PMSG (QUOTIENT: ) 11435 11436 041003 200 00 0 00 000001 MOVE 0,AC1 ;GET LEFT WORD OF QUOTIENT 11437 041004 037 14 0 00 000000 PNTOCT 11438 11439 041005 200 00 0 00 000002 MOVE 0,AC1+1 ;GET RIGHT WORD OF QUOTIENT 11440 041006 037 14 0 00 000000 PNTOCT 11441 11442 041007 037 02 0 00 046137 PMSG ( REMAINDER: ) 11443 11444 041010 200 00 0 00 000003 MOVE 0,AC1+2 ;GET LEFT WORD OF REMAINDER 11445 041011 037 14 0 00 000000 PNTOCT 11446 11447 041012 200 00 0 00 000004 MOVE 0,AC1+3 ;GET RIGHT WORD OF REMAINDER 11448 041013 037 14 0 00 000000 PNTOCT 11449 11450 041014 037 00 0 00 030242 PCRL ;PRINT OUT A CRLF 11451 041015 263 17 0 00 000000 RTN DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 41 DSKCFM MAC 26-Sep-79 15:49 ADDL ERROR PRINT ROUTINES SEQ 0254 11452 11453 SUBTTL *STOR* RESERVED STORAGE, SEPTEMBER 1979 11454 11455 ;PROGRAM LITERALS 11456 11457 XLIST 11458 IFNDEF $LPAPER, 11459 041016 LIT 11460 041016 44 41 44 44 00 64 11461 041017 45 63 64 77 00 00 11462 041020 000000 000000 11463 041021 123456 765432 11464 041022 000000 000000 11465 041023 000000 000000 11466 041024 041020 041022 11467 041025 77 00 00 00 00 00 11468 041026 64 45 63 64 00 41 11469 041027 21 00 15 00 62 45 11470 041030 63 65 54 64 00 51 11471 041031 63 00 51 56 43 57 11472 041032 62 62 45 43 64 77 11473 041033 041016 041025 11474 041034 000013 000014 11475 041035 041026 040643 11476 041036 041021 041022 11477 041037 64 45 63 64 00 41 11478 041040 22 00 15 00 62 45 11479 041041 63 65 54 64 00 51 11480 041042 63 00 51 56 43 57 11481 041043 62 62 45 43 64 77 11482 041044 041016 041025 11483 041045 000013 000014 11484 041046 041037 040643 11485 041047 123456 765432 11486 041050 123456 765432 11487 041051 041047 041022 11488 041052 64 45 63 64 00 41 11489 041053 23 00 15 00 62 45 11490 041054 63 65 54 64 00 51 11491 041055 63 00 51 56 43 57 11492 041056 62 62 45 43 64 77 11493 041057 041016 041025 11494 041060 000013 000014 11495 041061 041052 040643 11496 041062 041022 041020 11497 041063 64 45 63 64 00 41 11498 041064 24 00 15 00 62 45 11499 041065 63 65 54 64 00 51 11500 041066 63 00 51 56 43 57 11501 041067 62 62 45 43 64 77 11502 041070 041016 041025 11503 041071 000013 000014 11504 041072 041063 040643 11505 041073 041022 041021 11506 041074 64 45 63 64 00 41 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0255 11507 041075 25 00 15 00 62 45 11508 041076 63 65 54 64 00 51 11509 041077 63 00 51 56 43 57 11510 041100 62 62 45 43 64 77 11511 041101 041016 041025 11512 041102 000013 000014 11513 041103 041074 040643 11514 041104 041022 041047 11515 041105 64 45 63 64 00 41 11516 041106 26 00 15 00 62 45 11517 041107 63 65 54 64 00 51 11518 041110 63 00 51 56 43 57 11519 041111 62 62 45 43 64 77 11520 041112 041016 041025 11521 041113 000013 000014 11522 041114 041105 040643 11523 041115 041022 041022 11524 041116 64 45 63 64 00 41 11525 041117 27 00 15 00 62 45 11526 041120 63 65 54 64 00 51 11527 041121 63 00 51 56 43 57 11528 041122 62 62 45 43 64 77 11529 041123 041016 041025 11530 041124 000013 000014 11531 041125 041116 040643 11532 041126 000000 000000 11533 041127 000000 000001 11534 041130 041126 041022 11535 041131 64 45 63 64 00 42 11536 041132 21 00 15 00 62 45 11537 041133 63 65 54 64 00 51 11538 041134 63 00 51 56 43 57 11539 041135 62 62 45 43 64 77 11540 041136 041016 041025 11541 041137 000013 000014 11542 041140 041131 040643 11543 041141 041022 041126 11544 041142 64 45 63 64 00 42 11545 041143 22 00 15 00 62 45 11546 041144 63 65 54 64 00 51 11547 041145 63 00 51 56 43 57 11548 041146 62 62 45 43 64 77 11549 041147 041016 041025 11550 041150 000013 000014 11551 041151 041142 040643 11552 041152 000000 000000 11553 041153 200000 000000 11554 041154 041152 041022 11555 041155 041022 041152 11556 041156 000000 000001 11557 041157 000000 000000 11558 041160 041156 041022 11559 041161 041022 041156 11560 041162 200000 000000 11561 041163 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-1 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0256 11562 041164 041162 041022 11563 041165 041022 041162 11564 041166 777777 777777 11565 041167 777777 777776 11566 041170 041166 041022 11567 041171 041022 041166 11568 041172 777777 777777 11569 041173 577777 777777 11570 041174 041172 041022 11571 041175 041022 041172 11572 041176 777777 777776 11573 041177 777777 777777 11574 041200 041176 041022 11575 041201 041022 041176 11576 041202 577777 777777 11577 041203 777777 777777 11578 041204 041202 041022 11579 041205 041022 041202 11580 041206 031327 031327 11581 041207 64 45 63 64 00 43 11582 041210 00 15 00 62 45 63 11583 041211 65 54 64 00 51 56 11584 041212 43 57 62 62 45 43 11585 041213 64 77 00 00 00 00 11586 041214 041016 041025 11587 041215 000014 000013 11588 041216 041207 040643 11589 041217 000000 000000 11590 041220 777777 777777 11591 041221 041217 041126 11592 041222 64 45 63 64 00 44 11593 041223 21 00 15 00 62 45 11594 041224 63 65 54 64 00 51 11595 041225 63 00 51 56 43 57 11596 041226 62 62 45 43 64 77 11597 041227 041016 041025 11598 041230 000013 000014 11599 041231 041222 040643 11600 041232 041126 041217 11601 041233 64 45 63 64 00 44 11602 041234 22 00 15 00 62 45 11603 041235 63 65 54 64 00 51 11604 041236 63 00 51 56 43 57 11605 041237 62 62 45 43 64 77 11606 041240 041016 041025 11607 041241 000013 000014 11608 041242 041233 040643 11609 041243 64 45 63 64 00 45 11610 041244 00 15 00 62 45 63 11611 041245 65 54 64 00 51 63 11612 041246 00 51 56 43 57 62 11613 041247 62 45 43 64 77 00 11614 041250 041016 041025 11615 041251 000013 000014 11616 041252 041243 040643 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-2 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0257 11617 041253 64 45 63 64 00 45 11618 041254 00 15 00 60 43 00 11619 041255 46 54 41 47 63 00 11620 041256 51 56 43 57 62 62 11621 041257 45 43 64 00 10 54 11622 041260 45 46 64 00 24 00 11623 041261 42 51 64 63 11 77 11624 041262 041016 041025 11625 041263 000014 031375 11626 041264 041253 040643 11627 041265 041016 041025 11628 041266 000014 031424 11629 041267 041253 040643 11630 041270 041016 041025 11631 041271 000014 031453 11632 041272 041253 040643 11633 041273 041016 041025 11634 041274 000014 031502 11635 041275 041253 040643 11636 041276 041016 041025 11637 041277 000014 031531 11638 041300 041253 040643 11639 041301 041016 041025 11640 041302 000014 031560 11641 041303 041253 040643 11642 041304 033057 033061 11643 041305 64 45 63 64 00 46 11644 041306 21 00 15 00 62 45 11645 041307 63 65 54 64 00 51 11646 041310 63 00 51 56 43 57 11647 041311 62 62 45 43 64 77 11648 041312 041016 041025 11649 041313 000013 000014 11650 041314 041305 040643 11651 041315 64 45 63 64 00 46 11652 041316 21 00 15 00 60 43 11653 041317 00 46 54 41 47 63 11654 041320 00 51 56 43 57 62 11655 041321 62 45 43 64 00 10 11656 041322 54 45 46 64 00 24 11657 041323 00 42 51 64 63 11 11658 041324 77 00 00 00 00 00 11659 041325 041016 041025 11660 041326 000014 031637 11661 041327 041315 040643 11662 041330 033063 033065 11663 041331 041016 041025 11664 041332 000014 031665 11665 041333 041315 040643 11666 041334 033067 033071 11667 041335 041016 041025 11668 041336 000014 031713 11669 041337 041315 040643 11670 041340 033073 033075 11671 041341 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-3 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0258 11672 041342 777777 777777 11673 041343 041016 041025 11674 041344 000014 031741 11675 041345 041315 040643 11676 041346 033077 033101 11677 041347 041016 041025 11678 041350 000014 031767 11679 041351 041315 040643 11680 041352 033103 033105 11681 041353 041016 041025 11682 041354 000014 032015 11683 041355 041315 040643 11684 041356 033107 033111 11685 041357 777777 777776 11686 041360 777777 777776 11687 041361 64 45 63 64 00 46 11688 041362 22 00 15 00 62 45 11689 041363 63 65 54 64 00 51 11690 041364 63 00 51 56 43 57 11691 041365 62 62 45 43 64 77 11692 041366 041016 041025 11693 041367 000013 000014 11694 041370 041361 040643 11695 041371 300000 000000 11696 041372 64 45 63 64 00 46 11697 041373 22 00 15 00 60 43 11698 041374 00 46 54 41 47 63 11699 041375 00 51 56 43 57 62 11700 041376 62 45 43 64 00 10 11701 041377 54 45 46 64 00 24 11702 041400 00 42 51 64 63 11 11703 041401 77 00 00 00 00 00 11704 041402 041016 041025 11705 041403 000014 032043 11706 041404 041372 040643 11707 041405 033113 033115 11708 041406 041016 041025 11709 041407 000014 032071 11710 041410 041372 040643 11711 041411 033117 033121 11712 041412 041016 041025 11713 041413 000014 032117 11714 041414 041372 040643 11715 041415 033123 033125 11716 041416 041016 041025 11717 041417 000014 032145 11718 041420 041372 040643 11719 041421 033127 033131 11720 041422 041016 041025 11721 041423 000014 032173 11722 041424 041372 040643 11723 041425 033133 033135 11724 041426 041016 041025 11725 041427 000014 032221 11726 041430 041372 040643 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-4 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0259 11727 041431 033137 033141 11728 041432 000000 000001 11729 041433 000000 000001 11730 041434 64 45 63 64 00 46 11731 041435 23 00 15 00 62 45 11732 041436 63 65 54 64 00 51 11733 041437 63 00 51 56 43 57 11734 041440 62 62 45 43 64 77 11735 041441 041016 041025 11736 041442 000013 000014 11737 041443 041434 040643 11738 041444 64 45 63 64 00 46 11739 041445 23 00 15 00 60 43 11740 041446 00 46 54 41 47 63 11741 041447 00 51 56 43 57 62 11742 041450 62 45 43 64 00 10 11743 041451 54 45 46 64 00 24 11744 041452 00 42 51 64 63 11 11745 041453 77 00 00 00 00 00 11746 041454 041016 041025 11747 041455 000014 032247 11748 041456 041444 040643 11749 041457 033143 033145 11750 041460 041016 041025 11751 041461 000014 032275 11752 041462 041444 040643 11753 041463 033147 033151 11754 041464 041016 041025 11755 041465 000014 032323 11756 041466 041444 040643 11757 041467 033153 033155 11758 041470 041016 041025 11759 041471 000014 032351 11760 041472 041444 040643 11761 041473 033157 033161 11762 041474 041016 041025 11763 041475 000014 032377 11764 041476 041444 040643 11765 041477 033163 033165 11766 041500 041016 041025 11767 041501 000014 032425 11768 041502 041444 040643 11769 041503 033167 033171 11770 041504 64 45 63 64 00 46 11771 041505 24 00 15 00 62 45 11772 041506 63 65 54 64 00 51 11773 041507 63 00 51 56 43 57 11774 041510 62 62 45 43 64 77 11775 041511 041016 041025 11776 041512 000013 000014 11777 041513 041504 040643 11778 041514 64 45 63 64 00 46 11779 041515 24 00 15 00 60 43 11780 041516 00 46 54 41 47 63 11781 041517 00 51 56 43 57 62 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-5 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0260 11782 041520 62 45 43 64 00 10 11783 041521 54 45 46 64 00 24 11784 041522 00 42 51 64 63 11 11785 041523 77 00 00 00 00 00 11786 041524 041016 041025 11787 041525 000014 032453 11788 041526 041514 040643 11789 041527 033173 033175 11790 041530 041016 041025 11791 041531 000014 032501 11792 041532 041514 040643 11793 041533 033177 033201 11794 041534 041016 041025 11795 041535 000014 032527 11796 041536 041514 040643 11797 041537 033203 033205 11798 041540 041016 041025 11799 041541 000014 032555 11800 041542 041514 040643 11801 041543 033207 033211 11802 041544 041016 041025 11803 041545 000014 032603 11804 041546 041514 040643 11805 041547 033213 033215 11806 041550 041016 041025 11807 041551 000014 032631 11808 041552 041514 040643 11809 041553 033217 033221 11810 041554 64 45 63 64 00 46 11811 041555 25 00 15 00 62 45 11812 041556 63 65 54 64 00 51 11813 041557 63 00 51 56 43 57 11814 041560 62 62 45 43 64 77 11815 041561 041016 041025 11816 041562 000013 000014 11817 041563 041554 040643 11818 041564 64 45 63 64 00 46 11819 041565 25 00 15 00 60 43 11820 041566 00 46 54 41 47 63 11821 041567 00 51 56 43 57 62 11822 041570 62 45 43 64 00 10 11823 041571 54 45 46 64 00 24 11824 041572 00 42 51 64 63 11 11825 041573 77 00 00 00 00 00 11826 041574 041016 041025 11827 041575 000014 032657 11828 041576 041564 040643 11829 041577 033223 033225 11830 041600 041016 041025 11831 041601 000014 032705 11832 041602 041564 040643 11833 041603 033227 033231 11834 041604 041016 041025 11835 041605 000014 032733 11836 041606 041564 040643 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-6 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0261 11837 041607 033233 033235 11838 041610 041016 041025 11839 041611 000014 032761 11840 041612 041564 040643 11841 041613 033237 033241 11842 041614 041016 041025 11843 041615 000014 033007 11844 041616 041564 040643 11845 041617 033243 033245 11846 041620 041016 041025 11847 041621 000014 033035 11848 041622 041564 040643 11849 041623 033530 033532 11850 041624 64 45 63 64 00 47 11851 041625 00 15 00 62 45 63 11852 041626 65 54 64 00 51 63 11853 041627 00 51 56 43 57 62 11854 041630 62 45 43 64 77 00 11855 041631 041016 041025 11856 041632 000013 000014 11857 041633 041624 040643 11858 041634 500000 000000 11859 041635 64 45 63 64 00 47 11860 041636 00 15 00 60 43 00 11861 041637 46 54 41 47 63 00 11862 041640 51 56 43 57 62 62 11863 041641 45 43 64 00 10 54 11864 041642 45 46 64 00 24 00 11865 041643 42 51 64 63 11 77 11866 041644 041016 041025 11867 041645 000014 033254 11868 041646 041635 040643 11869 041647 033536 033540 11870 041650 041016 041025 11871 041651 000014 033302 11872 041652 041635 040643 11873 041653 033544 033546 11874 041654 041016 041025 11875 041655 000014 033330 11876 041656 041635 040643 11877 041657 033552 033554 11878 041660 041016 041025 11879 041661 000014 033356 11880 041662 041635 040643 11881 041663 033560 033562 11882 041664 600000 000000 11883 041665 041016 041025 11884 041666 000014 033404 11885 041667 041635 040643 11886 041670 033566 033570 11887 041671 041016 041025 11888 041672 000014 033432 11889 041673 041635 040643 11890 041674 033574 033576 11891 041675 041016 041025 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-7 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0262 11892 041676 000014 033460 11893 041677 041635 040643 11894 041700 033602 033604 11895 041701 041016 041025 11896 041702 000014 033506 11897 041703 041635 040643 11898 041704 44 63 65 42 00 64 11899 041705 45 63 64 77 00 00 11900 041706 041704 041025 11901 041707 000013 000014 11902 041710 041026 040672 11903 041711 041704 041025 11904 041712 000013 000014 11905 041713 041037 040672 11906 041714 041704 041025 11907 041715 000013 000014 11908 041716 041052 040672 11909 041717 654321 012346 11910 041720 777777 777777 11911 041721 654321 012346 11912 041722 041704 041025 11913 041723 000013 000014 11914 041724 041063 040672 11915 041725 400000 000000 11916 041726 654321 012346 11917 041727 400000 000000 11918 041730 041704 041025 11919 041731 000013 000014 11920 041732 041074 040672 11921 041733 654321 012345 11922 041734 654321 012346 11923 041735 041704 041025 11924 041736 000013 000014 11925 041737 041105 040672 11926 041740 777766 034012 11927 041741 64 45 63 64 00 42 11928 041742 00 15 00 62 45 63 11929 041743 65 54 64 00 51 56 11930 041744 43 57 62 62 45 43 11931 041745 64 77 00 00 00 00 11932 041746 041704 041025 11933 041747 000012 000013 11934 041750 041741 040672 11935 041751 64 45 63 64 00 42 11936 041752 00 15 00 60 43 00 11937 041753 46 54 41 47 63 00 11938 041754 51 56 43 57 62 62 11939 041755 45 43 64 00 10 54 11940 041756 45 46 64 00 24 00 11941 041757 42 51 64 63 11 77 11942 041760 041704 041025 11943 041761 000014 033752 11944 041762 041751 040672 11945 041763 034647 034651 11946 041764 64 45 63 64 00 43 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-8 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0263 11947 041765 21 00 15 00 62 45 11948 041766 63 65 54 64 00 51 11949 041767 63 00 51 56 43 57 11950 041770 62 62 45 43 64 77 11951 041771 041704 041025 11952 041772 000013 000014 11953 041773 041764 040672 11954 041774 034655 034657 11955 041775 034663 034665 11956 041776 034671 034673 11957 041777 034677 034701 11958 042000 034705 034707 11959 042001 034713 034715 11960 042002 64 45 63 64 00 43 11961 042003 22 00 15 00 62 45 11962 042004 63 65 54 64 00 51 11963 042005 63 00 51 56 43 57 11964 042006 62 62 45 43 64 77 11965 042007 041704 041025 11966 042010 000013 000014 11967 042011 042002 040672 11968 042012 034721 034723 11969 042013 034727 034731 11970 042014 034735 034737 11971 042015 034743 034745 11972 042016 034751 034753 11973 042017 034757 034761 11974 042020 64 45 63 64 00 43 11975 042021 23 00 15 00 62 45 11976 042022 63 65 54 64 00 51 11977 042023 63 00 51 56 43 57 11978 042024 62 62 45 43 64 77 11979 042025 041704 041025 11980 042026 000013 000014 11981 042027 042020 040672 11982 042030 034765 034767 11983 042031 034773 034775 11984 042032 035001 035003 11985 042033 035007 035011 11986 042034 035015 035017 11987 042035 035023 035025 11988 042036 777777 777775 11989 042037 777777 777777 11990 042040 777777 777775 11991 042041 64 45 63 64 00 43 11992 042042 24 00 15 00 62 45 11993 042043 63 65 54 64 00 51 11994 042044 63 00 51 56 43 57 11995 042045 62 62 45 43 64 77 11996 042046 041704 041025 11997 042047 000013 000014 11998 042050 042041 040672 11999 042051 035027 035031 12000 042052 035033 035035 12001 042053 035037 035041 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-9 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0264 12002 042054 035043 035045 12003 042055 035047 035051 12004 042056 035053 035055 12005 042057 000000 000003 12006 042060 000000 000000 12007 042061 000000 000003 12008 042062 64 45 63 64 00 43 12009 042063 25 00 15 00 62 45 12010 042064 63 65 54 64 00 51 12011 042065 63 00 51 56 43 57 12012 042066 62 62 45 43 64 77 12013 042067 041704 041025 12014 042070 000013 000014 12015 042071 042062 040672 12016 042072 035057 035061 12017 042073 035063 035065 12018 042074 035067 035071 12019 042075 035073 035075 12020 042076 035077 035101 12021 042077 035374 035376 12022 042100 400000 000000 12023 042101 400000 000000 12024 042102 64 45 63 64 00 44 12025 042103 00 15 00 62 45 63 12026 042104 65 54 64 00 51 63 12027 042105 00 51 56 43 57 62 12028 042106 62 45 43 64 77 00 12029 042107 041704 041025 12030 042110 000013 000014 12031 042111 042102 040672 12032 042112 64 45 63 64 00 44 12033 042113 00 15 00 60 43 00 12034 042114 46 54 41 47 63 00 12035 042115 51 56 43 57 62 62 12036 042116 45 43 64 00 10 54 12037 042117 45 46 64 00 24 00 12038 042120 42 51 64 63 11 77 12039 042121 041704 041025 12040 042122 000014 035110 12041 042123 042112 040672 12042 042124 035400 035402 12043 042125 041704 041025 12044 042126 000014 035137 12045 042127 042112 040672 12046 042130 035404 035406 12047 042131 041704 041025 12048 042132 000014 035166 12049 042133 042112 040672 12050 042134 035410 035412 12051 042135 041704 041025 12052 042136 000014 035215 12053 042137 042112 040672 12054 042140 035414 035416 12055 042141 377777 777777 12056 042142 377777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-10 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0265 12057 042143 041704 041025 12058 042144 000014 035244 12059 042145 042112 040672 12060 042146 035420 035422 12061 042147 041704 041025 12062 042150 000014 035273 12063 042151 042112 040672 12064 042152 035424 035426 12065 042153 041704 041025 12066 042154 000014 035322 12067 042155 042112 040672 12068 042156 035430 035432 12069 042157 041704 041025 12070 042160 000014 035351 12071 042161 042112 040672 12072 042162 44 55 65 54 00 64 12073 042163 45 63 64 77 00 00 12074 042164 000000 000000 12075 042165 123456 765432 12076 042166 000000 000000 12077 042167 000000 000000 12078 042170 000000 000000 12079 042171 000000 000000 12080 042172 000000 000000 12081 042173 000000 000000 12082 042174 042164 040502 12083 042175 64 45 63 64 00 41 12084 042176 00 15 00 62 45 63 12085 042177 65 54 64 00 43 41 12086 042200 54 43 65 54 41 64 12087 042201 45 44 00 51 56 43 12088 042202 57 62 62 45 43 64 12089 042203 54 71 77 00 00 00 12090 042204 042162 041025 12091 042205 000013 000014 12092 042206 042175 040721 12093 042207 123456 765432 12094 042210 000000 000000 12095 042211 000000 000000 12096 042212 000000 000000 12097 042213 000000 000000 12098 042214 000000 000000 12099 042215 000000 000000 12100 042216 000000 000000 12101 042217 042207 040502 12102 042220 123456 765432 12103 042221 123456 765432 12104 042222 000000 000000 12105 042223 000000 000000 12106 042224 000000 000000 12107 042225 000000 000000 12108 042226 000000 000000 12109 042227 000000 000000 12110 042230 042220 040502 12111 042231 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-11 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0266 12112 042232 000000 000000 12113 042233 000000 000000 12114 042234 123456 765432 12115 042235 000000 000000 12116 042236 000000 000000 12117 042237 000000 000000 12118 042240 000000 000000 12119 042241 042231 040502 12120 042242 000000 000000 12121 042243 000000 000000 12122 042244 123456 765432 12123 042245 000000 000000 12124 042246 000000 000000 12125 042247 000000 000000 12126 042250 000000 000000 12127 042251 000000 000000 12128 042252 042242 040502 12129 042253 000000 000000 12130 042254 000000 000000 12131 042255 123456 765432 12132 042256 123456 765432 12133 042257 000000 000000 12134 042260 000000 000000 12135 042261 000000 000000 12136 042262 000000 000000 12137 042263 042253 040502 12138 042264 777777 777777 12139 042265 654321 012346 12140 042266 000000 000000 12141 042267 000000 000000 12142 042270 000000 000000 12143 042271 000000 000000 12144 042272 000000 000000 12145 042273 000000 000000 12146 042274 042264 040502 12147 042275 654321 012346 12148 042276 777777 777777 12149 042277 000000 000000 12150 042300 000000 000000 12151 042301 000000 000000 12152 042302 000000 000000 12153 042303 000000 000000 12154 042304 000000 000000 12155 042305 042275 040502 12156 042306 654321 012346 12157 042307 654321 012346 12158 042310 000000 000000 12159 042311 000000 000000 12160 042312 000000 000000 12161 042313 000000 000000 12162 042314 000000 000000 12163 042315 000000 000000 12164 042316 042306 040502 12165 042317 000000 000000 12166 042320 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-12 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0267 12167 042321 777777 777777 12168 042322 654321 012346 12169 042323 000000 000000 12170 042324 000000 000000 12171 042325 000000 000000 12172 042326 000000 000000 12173 042327 042317 040502 12174 042330 000000 000000 12175 042331 000000 000000 12176 042332 654321 012346 12177 042333 777777 777777 12178 042334 000000 000000 12179 042335 000000 000000 12180 042336 000000 000000 12181 042337 000000 000000 12182 042340 042330 040502 12183 042341 000000 000000 12184 042342 000000 000000 12185 042343 654321 012346 12186 042344 654321 012346 12187 042345 000000 000000 12188 042346 000000 000000 12189 042347 000000 000000 12190 042350 000000 000000 12191 042351 042341 040502 12192 042352 000000 000000 12193 042353 000000 000000 12194 042354 000000 000000 12195 042355 000000 000000 12196 042356 000000 000000 12197 042357 000000 000000 12198 042360 000000 000000 12199 042361 000000 000000 12200 042362 042352 040502 12201 042363 64 45 63 64 00 00 12202 042364 15 00 62 45 63 65 12203 042365 54 64 00 43 41 54 12204 042366 43 65 54 41 64 45 12205 042367 44 00 51 56 43 57 12206 042370 62 62 45 43 64 54 12207 042371 71 77 00 00 00 00 12208 042372 042162 041025 12209 042373 000013 000014 12210 042374 042363 040721 12211 042375 000000 000000 12212 042376 123456 765432 12213 042377 000000 000000 12214 042400 000000 000001 12215 042401 000000 000000 12216 042402 000000 000000 12217 042403 000000 000000 12218 042404 123456 765432 12219 042405 042375 040502 12220 042406 64 45 63 64 00 42 12221 042407 00 15 00 62 45 63 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-13 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0268 12222 042410 65 54 64 00 43 41 12223 042411 54 43 65 54 41 64 12224 042412 45 44 00 51 56 43 12225 042413 57 62 62 45 43 64 12226 042414 54 71 77 00 00 00 12227 042415 042162 041025 12228 042416 000013 000014 12229 042417 042406 040721 12230 042420 123456 765432 12231 042421 000000 000000 12232 042422 000000 000000 12233 042423 000000 000001 12234 042424 000000 000000 12235 042425 000000 000000 12236 042426 123456 765432 12237 042427 000000 000000 12238 042430 042420 040502 12239 042431 123456 765432 12240 042432 123456 765432 12241 042433 000000 000000 12242 042434 000000 000001 12243 042435 000000 000000 12244 042436 000000 000000 12245 042437 123456 765432 12246 042440 123456 765432 12247 042441 042431 040502 12248 042442 000000 000000 12249 042443 000000 000001 12250 042444 000000 000000 12251 042445 123456 765432 12252 042446 000000 000000 12253 042447 000000 000000 12254 042450 000000 000000 12255 042451 123456 765432 12256 042452 042442 040502 12257 042453 000000 000000 12258 042454 000000 000001 12259 042455 123456 765432 12260 042456 000000 000000 12261 042457 000000 000000 12262 042460 000000 000000 12263 042461 123456 765432 12264 042462 000000 000000 12265 042463 042453 040502 12266 042464 000000 000000 12267 042465 000000 000001 12268 042466 123456 765432 12269 042467 123456 765432 12270 042470 000000 000000 12271 042471 000000 000000 12272 042472 123456 765432 12273 042473 123456 765432 12274 042474 042464 040502 12275 042475 777777 777777 12276 042476 654321 012346 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-14 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0269 12277 042477 000000 000000 12278 042500 000000 000001 12279 042501 777777 777777 12280 042502 777777 777777 12281 042503 777777 777777 12282 042504 654321 012346 12283 042505 042475 040502 12284 042506 654321 012346 12285 042507 777777 777777 12286 042510 000000 000000 12287 042511 000000 000001 12288 042512 777777 777777 12289 042513 777777 777777 12290 042514 654321 012346 12291 042515 777777 777777 12292 042516 042506 040502 12293 042517 654321 012346 12294 042520 654321 012346 12295 042521 000000 000000 12296 042522 000000 000001 12297 042523 777777 777777 12298 042524 777777 777777 12299 042525 654321 012346 12300 042526 654321 012346 12301 042527 042517 040502 12302 042530 000000 000000 12303 042531 000000 000001 12304 042532 777777 777777 12305 042533 654321 012346 12306 042534 777777 777777 12307 042535 777777 777777 12308 042536 777777 777777 12309 042537 654321 012346 12310 042540 042530 040502 12311 042541 000000 000000 12312 042542 000000 000001 12313 042543 654321 012346 12314 042544 777777 777777 12315 042545 777777 777777 12316 042546 777777 777777 12317 042547 654321 012346 12318 042550 777777 777777 12319 042551 042541 040502 12320 042552 000000 000000 12321 042553 000000 000001 12322 042554 654321 012346 12323 042555 654321 012346 12324 042556 777777 777777 12325 042557 777777 777777 12326 042560 654321 012346 12327 042561 654321 012346 12328 042562 042552 040502 12329 042563 000000 000000 12330 042564 177777 777777 12331 042565 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-15 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0270 12332 042566 000000 000002 12333 042567 000000 000000 12334 042570 000000 000000 12335 042571 000000 000000 12336 042572 377777 777776 12337 042573 042563 040502 12338 042574 64 45 63 64 00 43 12339 042575 00 15 00 62 45 63 12340 042576 65 54 64 00 43 41 12341 042577 54 43 65 54 41 64 12342 042600 45 44 00 51 56 43 12343 042601 57 62 62 45 43 64 12344 042602 54 71 77 00 00 00 12345 042603 042162 041025 12346 042604 000013 000014 12347 042605 042574 040721 12348 042606 64 45 63 64 00 43 12349 042607 00 15 00 60 43 00 12350 042610 46 54 41 47 63 00 12351 042611 51 56 43 57 62 62 12352 042612 45 43 64 00 15 00 12353 042613 42 51 64 63 00 20 12354 042614 00 64 57 00 24 77 12355 042615 042162 041025 12356 042616 000014 040457 12357 042617 042606 040721 12358 042620 000000 000000 12359 042621 377777 777777 12360 042622 000000 000000 12361 042623 000000 000002 12362 042624 000000 000000 12363 042625 000000 000000 12364 042626 000000 000001 12365 042627 377777 777776 12366 042630 042620 040502 12367 042631 177777 777777 12368 042632 377777 777777 12369 042633 000000 000000 12370 042634 000000 000002 12371 042635 000000 000000 12372 042636 000000 000000 12373 042637 377777 777777 12374 042640 377777 777776 12375 042641 042631 040502 12376 042642 377777 777777 12377 042643 377777 777777 12378 042644 000000 000000 12379 042645 000000 000002 12380 042646 000000 000000 12381 042647 000000 000001 12382 042650 377777 777777 12383 042651 377777 777776 12384 042652 042642 040502 12385 042653 000000 000000 12386 042654 377777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-16 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0271 12387 042655 000000 000001 12388 042656 000000 000000 12389 042657 000000 000000 12390 042660 000000 000000 12391 042661 377777 777777 12392 042662 000000 000000 12393 042663 042653 040502 12394 042664 000000 000001 12395 042665 377777 777777 12396 042666 000000 000001 12397 042667 000000 000000 12398 042670 000000 000000 12399 042671 000000 000001 12400 042672 377777 777777 12401 042673 000000 000000 12402 042674 042664 040502 12403 042675 377777 777777 12404 042676 377777 777777 12405 042677 000000 000001 12406 042700 000000 000000 12407 042701 000000 000000 12408 042702 377777 777777 12409 042703 377777 777777 12410 042704 000000 000000 12411 042705 042675 040502 12412 042706 000000 000000 12413 042707 177777 777777 12414 042710 000000 000002 12415 042711 000000 000000 12416 042712 000000 000000 12417 042713 000000 000000 12418 042714 377777 777776 12419 042715 000000 000000 12420 042716 042706 040502 12421 042717 000000 000000 12422 042720 377777 777777 12423 042721 000000 000002 12424 042722 000000 000000 12425 042723 000000 000000 12426 042724 000000 000001 12427 042725 377777 777776 12428 042726 000000 000000 12429 042727 042717 040502 12430 042730 377777 777777 12431 042731 377777 777777 12432 042732 000000 000002 12433 042733 000000 000000 12434 042734 000000 000001 12435 042735 377777 777777 12436 042736 377777 777776 12437 042737 000000 000000 12438 042740 042730 040502 12439 042741 000000 000000 12440 042742 000000 000002 12441 042743 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-17 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0272 12442 042744 177777 777777 12443 042745 000000 000000 12444 042746 000000 000000 12445 042747 000000 000000 12446 042750 377777 777776 12447 042751 042741 040502 12448 042752 000000 000000 12449 042753 000000 000002 12450 042754 000000 000000 12451 042755 377777 777777 12452 042756 000000 000000 12453 042757 000000 000000 12454 042760 000000 000001 12455 042761 377777 777776 12456 042762 042752 040502 12457 042763 000000 000000 12458 042764 000000 000002 12459 042765 177777 777777 12460 042766 377777 777777 12461 042767 000000 000000 12462 042770 000000 000000 12463 042771 377777 777777 12464 042772 377777 777776 12465 042773 042763 040502 12466 042774 000000 000000 12467 042775 000000 000002 12468 042776 377777 777777 12469 042777 377777 777777 12470 043000 000000 000000 12471 043001 000000 000001 12472 043002 377777 777777 12473 043003 377777 777776 12474 043004 042774 040502 12475 043005 000000 000001 12476 043006 000000 000000 12477 043007 000000 000000 12478 043010 377777 777777 12479 043011 000000 000000 12480 043012 000000 000000 12481 043013 377777 777777 12482 043014 000000 000000 12483 043015 043005 040502 12484 043016 000000 000001 12485 043017 000000 000000 12486 043020 000000 000001 12487 043021 377777 777777 12488 043022 000000 000000 12489 043023 000000 000001 12490 043024 377777 777777 12491 043025 000000 000000 12492 043026 043016 040502 12493 043027 000000 000001 12494 043030 000000 000000 12495 043031 377777 777777 12496 043032 377777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-18 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0273 12497 043033 000000 000000 12498 043034 377777 777777 12499 043035 377777 777777 12500 043036 000000 000000 12501 043037 043027 040502 12502 043040 000000 000002 12503 043041 000000 000000 12504 043042 000000 000000 12505 043043 177777 777777 12506 043044 000000 000000 12507 043045 000000 000000 12508 043046 377777 777776 12509 043047 000000 000000 12510 043050 043040 040502 12511 043051 000000 000002 12512 043052 000000 000000 12513 043053 000000 000000 12514 043054 377777 777777 12515 043055 000000 000000 12516 043056 000000 000001 12517 043057 377777 777776 12518 043060 000000 000000 12519 043061 043051 040502 12520 043062 000000 000002 12521 043063 000000 000000 12522 043064 377777 777777 12523 043065 377777 777777 12524 043066 000000 000001 12525 043067 377777 777777 12526 043070 377777 777776 12527 043071 000000 000000 12528 043072 043062 040502 12529 043073 777777 777777 12530 043074 600000 000000 12531 043075 000000 000000 12532 043076 000000 000002 12533 043077 777777 777777 12534 043100 777777 777777 12535 043101 777777 777777 12536 043102 400000 000000 12537 043103 043073 040502 12538 043104 64 45 63 64 00 44 12539 043105 00 15 00 62 45 63 12540 043106 65 54 64 00 43 41 12541 043107 54 43 65 54 41 64 12542 043110 45 44 00 51 56 43 12543 043111 57 62 62 45 43 64 12544 043112 54 71 77 00 00 00 12545 043113 042162 041025 12546 043114 000013 000014 12547 043115 043104 040721 12548 043116 64 45 63 64 00 44 12549 043117 00 15 00 60 43 00 12550 043120 46 54 41 47 63 00 12551 043121 51 56 43 57 62 62 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-19 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0274 12552 043122 45 43 64 00 15 00 12553 043123 42 51 64 63 00 20 12554 043124 00 64 57 00 24 77 12555 043125 042162 041025 12556 043126 000014 040457 12557 043127 043116 040721 12558 043130 777777 777777 12559 043131 400000 000000 12560 043132 000000 000000 12561 043133 000000 000002 12562 043134 777777 777777 12563 043135 777777 777777 12564 043136 777777 777776 12565 043137 400000 000000 12566 043140 043130 040502 12567 043141 600000 000000 12568 043142 400000 000000 12569 043143 000000 000000 12570 043144 000000 000002 12571 043145 777777 777777 12572 043146 777777 777777 12573 043147 400000 000000 12574 043150 400000 000000 12575 043151 043141 040502 12576 043152 400000 000000 12577 043153 400000 000000 12578 043154 000000 000000 12579 043155 000000 000002 12580 043156 777777 777777 12581 043157 777777 777776 12582 043160 400000 000000 12583 043161 400000 000000 12584 043162 043152 040502 12585 043163 777777 777777 12586 043164 400000 000000 12587 043165 000000 000001 12588 043166 000000 000000 12589 043167 777777 777777 12590 043170 777777 777777 12591 043171 400000 000000 12592 043172 400000 000000 12593 043173 043163 040502 12594 043174 777777 777776 12595 043175 400000 000000 12596 043176 000000 000001 12597 043177 000000 000000 12598 043200 777777 777777 12599 043201 777777 777776 12600 043202 400000 000000 12601 043203 400000 000000 12602 043204 043174 040502 12603 043205 400000 000000 12604 043206 400000 000000 12605 043207 000000 000001 12606 043210 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-20 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0275 12607 043211 777777 777777 12608 043212 400000 000000 12609 043213 400000 000000 12610 043214 400000 000000 12611 043215 043205 040502 12612 043216 777777 777777 12613 043217 600000 000000 12614 043220 000000 000002 12615 043221 000000 000000 12616 043222 777777 777777 12617 043223 777777 777777 12618 043224 400000 000000 12619 043225 400000 000000 12620 043226 043216 040502 12621 043227 777777 777777 12622 043230 400000 000000 12623 043231 000000 000002 12624 043232 000000 000000 12625 043233 777777 777777 12626 043234 777777 777776 12627 043235 400000 000000 12628 043236 400000 000000 12629 043237 043227 040502 12630 043240 400000 000000 12631 043241 400000 000000 12632 043242 000000 000002 12633 043243 000000 000000 12634 043244 777777 777776 12635 043245 400000 000000 12636 043246 400000 000000 12637 043247 400000 000000 12638 043250 043240 040502 12639 043251 000000 000000 12640 043252 000000 000002 12641 043253 777777 777777 12642 043254 600000 000000 12643 043255 777777 777777 12644 043256 777777 777777 12645 043257 777777 777777 12646 043260 400000 000000 12647 043261 043251 040502 12648 043262 000000 000000 12649 043263 000000 000002 12650 043264 777777 777777 12651 043265 400000 000000 12652 043266 777777 777777 12653 043267 777777 777777 12654 043270 777777 777776 12655 043271 400000 000000 12656 043272 043262 040502 12657 043273 000000 000000 12658 043274 000000 000002 12659 043275 600000 000000 12660 043276 400000 000000 12661 043277 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-21 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0276 12662 043300 777777 777777 12663 043301 400000 000000 12664 043302 400000 000000 12665 043303 043273 040502 12666 043304 000000 000000 12667 043305 000000 000002 12668 043306 400000 000000 12669 043307 400000 000000 12670 043310 777777 777777 12671 043311 777777 777776 12672 043312 400000 000000 12673 043313 400000 000000 12674 043314 043304 040502 12675 043315 000000 000001 12676 043316 000000 000000 12677 043317 777777 777777 12678 043320 400000 000000 12679 043321 777777 777777 12680 043322 777777 777777 12681 043323 400000 000000 12682 043324 400000 000000 12683 043325 043315 040502 12684 043326 000000 000001 12685 043327 000000 000000 12686 043330 777777 777776 12687 043331 400000 000000 12688 043332 777777 777777 12689 043333 777777 777776 12690 043334 400000 000000 12691 043335 400000 000000 12692 043336 043326 040502 12693 043337 000000 000001 12694 043340 000000 000000 12695 043341 400000 000000 12696 043342 400000 000000 12697 043343 777777 777777 12698 043344 400000 000000 12699 043345 400000 000000 12700 043346 400000 000000 12701 043347 043337 040502 12702 043350 000000 000002 12703 043351 000000 000000 12704 043352 777777 777777 12705 043353 600000 000000 12706 043354 777777 777777 12707 043355 777777 777777 12708 043356 400000 000000 12709 043357 400000 000000 12710 043360 043350 040502 12711 043361 000000 000002 12712 043362 000000 000000 12713 043363 777777 777777 12714 043364 400000 000000 12715 043365 777777 777777 12716 043366 777777 777776 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-22 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0277 12717 043367 400000 000000 12718 043370 400000 000000 12719 043371 043361 040502 12720 043372 000000 000002 12721 043373 000000 000000 12722 043374 400000 000000 12723 043375 400000 000000 12724 043376 777777 777776 12725 043377 400000 000000 12726 043400 400000 000000 12727 043401 400000 000000 12728 043402 043372 040502 12729 043403 525252 525252 12730 043404 252525 252525 12731 043405 64 45 63 64 00 45 12732 043406 00 15 00 62 45 63 12733 043407 65 54 64 00 51 56 12734 043410 43 57 62 62 45 43 12735 043411 64 77 00 00 00 00 12736 043412 042162 041025 12737 043413 041725 000013 12738 043414 043405 040721 12739 043415 64 45 63 64 00 45 12740 043416 00 15 00 60 43 00 12741 043417 46 54 41 47 63 00 12742 043420 51 56 43 57 62 62 12743 043421 45 43 64 00 15 00 12744 043422 54 45 46 64 00 24 12745 043423 00 42 51 64 63 77 12746 043424 042162 041025 12747 043425 000001 036407 12748 043426 043415 040721 12749 043427 777777 777777 12750 043430 777777 777776 12751 043431 777777 777777 12752 043432 777777 777775 12753 043433 000000 000000 12754 043434 000000 000000 12755 043435 000000 000000 12756 043436 000000 000006 12757 043437 043427 040502 12758 043440 64 45 63 64 00 46 12759 043441 00 15 00 62 45 63 12760 043442 65 54 64 00 43 41 12761 043443 54 43 65 54 41 64 12762 043444 45 44 00 51 56 43 12763 043445 57 62 62 45 43 64 12764 043446 54 71 77 00 00 00 12765 043447 042162 041025 12766 043450 000013 000014 12767 043451 043440 040721 12768 043452 64 45 63 64 00 46 12769 043453 00 15 00 60 43 00 12770 043454 46 54 41 47 63 00 12771 043455 51 56 43 57 62 62 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-23 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0278 12772 043456 45 43 64 00 15 00 12773 043457 42 51 64 63 00 20 12774 043460 00 64 57 00 24 77 12775 043461 042162 041025 12776 043462 000014 040457 12777 043463 043452 040721 12778 043464 777777 777776 12779 043465 400000 000000 12780 043466 777777 777777 12781 043467 777777 777775 12782 043470 000000 000000 12783 043471 000000 000000 12784 043472 000000 000006 12785 043473 000000 000000 12786 043474 043464 040502 12787 043475 777777 777777 12788 043476 777777 777776 12789 043477 777777 777775 12790 043500 400000 000000 12791 043501 000000 000000 12792 043502 000000 000000 12793 043503 000000 000006 12794 043504 000000 000000 12795 043505 043475 040502 12796 043506 777777 777776 12797 043507 400000 000000 12798 043510 777777 777775 12799 043511 400000 000000 12800 043512 000000 000000 12801 043513 000000 000006 12802 043514 000000 000000 12803 043515 000000 000000 12804 043516 043506 040502 12805 043517 000000 000000 12806 043520 000000 000002 12807 043521 000000 000000 12808 043522 400000 000003 12809 043523 000000 000000 12810 043524 000000 000000 12811 043525 000000 000000 12812 043526 000000 000006 12813 043527 043517 040502 12814 043530 64 45 63 64 00 47 12815 043531 00 15 00 62 45 63 12816 043532 65 54 64 00 43 41 12817 043533 54 43 65 54 41 64 12818 043534 45 44 00 51 56 43 12819 043535 57 62 62 45 43 64 12820 043536 54 71 77 00 00 00 12821 043537 042162 041025 12822 043540 000013 000014 12823 043541 043530 040721 12824 043542 64 45 63 64 00 47 12825 043543 00 15 00 60 43 00 12826 043544 46 54 41 47 63 00 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-24 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0279 12827 043545 51 56 43 57 62 62 12828 043546 45 43 64 00 15 00 12829 043547 42 51 64 63 00 20 12830 043550 00 64 57 00 24 77 12831 043551 042162 041025 12832 043552 000014 040457 12833 043553 043542 040721 12834 043554 000000 000000 12835 043555 400000 000002 12836 043556 000000 000000 12837 043557 400000 000003 12838 043560 000000 000000 12839 043561 000000 000000 12840 043562 000000 000000 12841 043563 000000 000006 12842 043564 043554 040502 12843 043565 000000 000000 12844 043566 400000 000002 12845 043567 000000 000000 12846 043570 000000 000003 12847 043571 000000 000000 12848 043572 000000 000000 12849 043573 000000 000000 12850 043574 000000 000006 12851 043575 043565 040502 12852 043576 000000 000000 12853 043577 000000 000002 12854 043600 777777 777777 12855 043601 377777 777775 12856 043602 777777 777777 12857 043603 777777 777777 12858 043604 777777 777777 12859 043605 777777 777772 12860 043606 043576 040502 12861 043607 000000 000000 12862 043610 400000 000002 12863 043611 777777 777777 12864 043612 377777 777775 12865 043613 777777 777777 12866 043614 777777 777777 12867 043615 777777 777777 12868 043616 777777 777772 12869 043617 043607 040502 12870 043620 000000 000000 12871 043621 400000 000002 12872 043622 777777 777777 12873 043623 777777 777775 12874 043624 777777 777777 12875 043625 777777 777777 12876 043626 777777 777777 12877 043627 777777 777772 12878 043630 043620 040502 12879 043631 777777 777777 12880 043632 777777 777776 12881 043633 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-25 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0280 12882 043634 400000 000003 12883 043635 777777 777777 12884 043636 777777 777777 12885 043637 777777 777777 12886 043640 777777 777772 12887 043641 043631 040502 12888 043642 777777 777777 12889 043643 377777 777776 12890 043644 000000 000000 12891 043645 400000 000003 12892 043646 777777 777777 12893 043647 777777 777777 12894 043650 777777 777777 12895 043651 777777 777772 12896 043652 043642 040502 12897 043653 777777 777777 12898 043654 377777 777776 12899 043655 000000 000000 12900 043656 000000 000003 12901 043657 777777 777777 12902 043660 777777 777777 12903 043661 777777 777777 12904 043662 777777 777772 12905 043663 043653 040502 12906 043664 777777 777777 12907 043665 777777 777776 12908 043666 777777 777777 12909 043667 377777 777775 12910 043670 000000 000000 12911 043671 000000 000000 12912 043672 000000 000000 12913 043673 000000 000006 12914 043674 043664 040502 12915 043675 777777 777777 12916 043676 377777 777776 12917 043677 777777 777777 12918 043700 377777 777775 12919 043701 000000 000000 12920 043702 000000 000000 12921 043703 000000 000000 12922 043704 000000 000006 12923 043705 043675 040502 12924 043706 777777 777777 12925 043707 377777 777776 12926 043710 777777 777777 12927 043711 777777 777775 12928 043712 000000 000000 12929 043713 000000 000000 12930 043714 000000 000000 12931 043715 000000 000006 12932 043716 043706 040502 12933 043717 000000 000002 12934 043720 000000 000000 12935 043721 000000 000003 12936 043722 400000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-26 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0281 12937 043723 000000 000000 12938 043724 000000 000006 12939 043725 000000 000000 12940 043726 000000 000000 12941 043727 043717 040502 12942 043730 000000 000002 12943 043731 400000 000000 12944 043732 000000 000003 12945 043733 400000 000000 12946 043734 000000 000000 12947 043735 000000 000006 12948 043736 000000 000000 12949 043737 000000 000000 12950 043740 043730 040502 12951 043741 000000 000002 12952 043742 400000 000000 12953 043743 000000 000003 12954 043744 000000 000000 12955 043745 000000 000000 12956 043746 000000 000006 12957 043747 000000 000000 12958 043750 000000 000000 12959 043751 043741 040502 12960 043752 000000 000002 12961 043753 000000 000000 12962 043754 777777 777775 12963 043755 000000 000000 12964 043756 777777 777777 12965 043757 777777 777772 12966 043760 400000 000000 12967 043761 400000 000000 12968 043762 043752 040502 12969 043763 000000 000002 12970 043764 400000 000000 12971 043765 777777 777775 12972 043766 000000 000000 12973 043767 777777 777777 12974 043770 777777 777772 12975 043771 400000 000000 12976 043772 400000 000000 12977 043773 043763 040502 12978 043774 000000 000002 12979 043775 400000 000000 12980 043776 777777 777775 12981 043777 400000 000000 12982 044000 777777 777777 12983 044001 777777 777772 12984 044002 400000 000000 12985 044003 400000 000000 12986 044004 043774 040502 12987 044005 777777 777776 12988 044006 400000 000000 12989 044007 000000 000003 12990 044010 400000 000000 12991 044011 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-27 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0282 12992 044012 777777 777772 12993 044013 400000 000000 12994 044014 400000 000000 12995 044015 044005 040502 12996 044016 777777 777776 12997 044017 000000 000000 12998 044020 000000 000003 12999 044021 400000 000000 13000 044022 777777 777777 13001 044023 777777 777772 13002 044024 400000 000000 13003 044025 400000 000000 13004 044026 044016 040502 13005 044027 777777 777776 13006 044030 000000 000000 13007 044031 000000 000003 13008 044032 000000 000000 13009 044033 777777 777777 13010 044034 777777 777772 13011 044035 400000 000000 13012 044036 400000 000000 13013 044037 044027 040502 13014 044040 777777 777776 13015 044041 400000 000000 13016 044042 777777 777775 13017 044043 000000 000000 13018 044044 000000 000000 13019 044045 000000 000006 13020 044046 000000 000000 13021 044047 000000 000000 13022 044050 044040 040502 13023 044051 777777 777776 13024 044052 000000 000000 13025 044053 777777 777775 13026 044054 000000 000000 13027 044055 000000 000000 13028 044056 000000 000006 13029 044057 000000 000000 13030 044060 000000 000000 13031 044061 044051 040502 13032 044062 777777 777776 13033 044063 000000 000000 13034 044064 777777 777775 13035 044065 400000 000000 13036 044066 000000 000000 13037 044067 000000 000006 13038 044070 000000 000000 13039 044071 000000 000000 13040 044072 044062 040502 13041 044073 44 44 51 66 00 64 13042 044074 45 63 64 77 00 00 13043 044075 000000 000000 13044 044076 000000 000000 13045 044077 000000 000000 13046 044100 123456 765432 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-28 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0283 13047 044101 000000 000000 13048 044102 000000 000001 13049 044103 000000 000000 13050 044104 123456 765432 13051 044105 000000 000000 13052 044106 000000 000000 13053 044107 044075 040544 13054 044110 64 45 63 64 00 41 13055 044111 00 15 00 61 65 57 13056 044112 64 51 45 56 64 17 13057 044113 62 45 55 41 51 56 13058 044114 44 45 62 00 51 56 13059 044115 43 57 62 62 45 43 13060 044116 64 77 00 00 00 00 13061 044117 044073 041025 13062 044120 000013 000014 13063 044121 044110 040754 13064 044122 000000 000000 13065 044123 000000 000000 13066 044124 123456 765432 13067 044125 000000 000000 13068 044126 000000 000000 13069 044127 000000 000001 13070 044130 123456 765432 13071 044131 000000 000000 13072 044132 000000 000000 13073 044133 000000 000000 13074 044134 044122 040544 13075 044135 000000 000000 13076 044136 000000 000000 13077 044137 000000 000000 13078 044140 123456 765432 13079 044141 000000 000000 13080 044142 123456 765432 13081 044143 000000 000000 13082 044144 000000 000001 13083 044145 000000 000000 13084 044146 000000 000000 13085 044147 044135 040544 13086 044150 64 45 63 64 00 42 13087 044151 00 15 00 61 65 57 13088 044152 64 51 45 56 64 17 13089 044153 62 45 55 41 51 56 13090 044154 44 45 62 00 51 56 13091 044155 43 57 62 62 45 43 13092 044156 64 77 00 00 00 00 13093 044157 044073 041025 13094 044160 000013 000014 13095 044161 044150 040754 13096 044162 000000 000000 13097 044163 000000 000000 13098 044164 123456 765432 13099 044165 000000 000000 13100 044166 123456 765432 13101 044167 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-29 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0284 13102 044170 000000 000000 13103 044171 000000 000001 13104 044172 000000 000000 13105 044173 000000 000000 13106 044174 044162 040544 13107 044175 000000 000000 13108 044176 000000 000000 13109 044177 000000 000000 13110 044200 000000 000001 13111 044201 000000 000000 13112 044202 000000 000002 13113 044203 000000 000000 13114 044204 000000 000000 13115 044205 000000 000000 13116 044206 000000 000001 13117 044207 044175 040544 13118 044210 64 45 63 64 00 43 13119 044211 00 15 00 61 65 57 13120 044212 64 51 45 56 64 17 13121 044213 62 45 55 41 51 56 13122 044214 44 45 62 00 51 56 13123 044215 43 57 62 62 45 43 13124 044216 64 77 00 00 00 00 13125 044217 044073 041025 13126 044220 000013 000014 13127 044221 044210 040754 13128 044222 000000 000000 13129 044223 000000 000000 13130 044224 000000 000001 13131 044225 000000 000000 13132 044226 000000 000000 13133 044227 000000 000002 13134 044230 000000 000000 13135 044231 200000 000000 13136 044232 000000 000000 13137 044233 000000 000000 13138 044234 044222 040544 13139 044235 000000 000000 13140 044236 000000 000000 13141 044237 000000 000001 13142 044240 000000 000000 13143 044241 000000 000002 13144 044242 000000 000000 13145 044243 000000 000000 13146 044244 000000 000000 13147 044245 000000 000001 13148 044246 000000 000000 13149 044247 044235 040544 13150 044250 000000 000000 13151 044251 000000 000001 13152 044252 000000 000000 13153 044253 000000 000000 13154 044254 000000 000000 13155 044255 000000 000002 13156 044256 200000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-30 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0285 13157 044257 000000 000000 13158 044260 000000 000000 13159 044261 000000 000000 13160 044262 044250 040544 13161 044263 000000 000000 13162 044264 000000 000001 13163 044265 000000 000000 13164 044266 000000 000000 13165 044267 000000 000002 13166 044270 000000 000000 13167 044271 000000 000000 13168 044272 200000 000000 13169 044273 000000 000000 13170 044274 000000 000000 13171 044275 044263 040544 13172 044276 000000 000001 13173 044277 000000 000000 13174 044300 000000 000000 13175 044301 000000 000000 13176 044302 000000 000002 13177 044303 000000 000000 13178 044304 200000 000000 13179 044305 000000 000000 13180 044306 000000 000000 13181 044307 000000 000000 13182 044310 044276 040544 13183 044311 777777 777777 13184 044312 777777 777777 13185 044313 777777 777777 13186 044314 777777 777777 13187 044315 000000 000000 13188 044316 000000 000002 13189 044317 000000 000000 13190 044320 000000 000000 13191 044321 777777 777777 13192 044322 777777 777777 13193 044323 044311 040544 13194 044324 777777 777777 13195 044325 777777 777777 13196 044326 777777 777777 13197 044327 400000 000000 13198 044330 000000 000000 13199 044331 000000 000002 13200 044332 777777 777777 13201 044333 600000 000000 13202 044334 000000 000000 13203 044335 000000 000000 13204 044336 044324 040544 13205 044337 777777 777777 13206 044340 777777 777777 13207 044341 777777 777777 13208 044342 400000 000000 13209 044343 000000 000002 13210 044344 000000 000000 13211 044345 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-31 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0286 13212 044346 000000 000000 13213 044347 777777 777777 13214 044350 400000 000000 13215 044351 044337 040544 13216 044352 777777 777777 13217 044353 777777 777777 13218 044354 400000 000000 13219 044355 400000 000000 13220 044356 000000 000000 13221 044357 000000 000002 13222 044360 600000 000000 13223 044361 400000 000000 13224 044362 000000 000000 13225 044363 000000 000000 13226 044364 044352 040544 13227 044365 777777 777777 13228 044366 777777 777777 13229 044367 400000 000000 13230 044370 400000 000000 13231 044371 000000 000002 13232 044372 000000 000000 13233 044373 777777 777777 13234 044374 600000 000000 13235 044375 000000 000000 13236 044376 000000 000000 13237 044377 044365 040544 13238 044400 777777 777777 13239 044401 400000 000000 13240 044402 400000 000000 13241 044403 400000 000000 13242 044404 000000 000002 13243 044405 000000 000000 13244 044406 600000 000000 13245 044407 400000 000000 13246 044410 000000 000000 13247 044411 000000 000000 13248 044412 044400 040544 13249 044413 000000 000000 13250 044414 000000 000000 13251 044415 000000 000000 13252 044416 000000 000001 13253 044417 777777 777777 13254 044420 777777 777776 13255 044421 000000 000000 13256 044422 000000 000000 13257 044423 000000 000000 13258 044424 000000 000001 13259 044425 044413 040544 13260 044426 000000 000000 13261 044427 000000 000000 13262 044430 000000 000001 13263 044431 000000 000000 13264 044432 777777 777777 13265 044433 777777 777776 13266 044434 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-32 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0287 13267 044435 600000 000000 13268 044436 000000 000000 13269 044437 000000 000000 13270 044440 044426 040544 13271 044441 000000 000000 13272 044442 000000 000000 13273 044443 000000 000001 13274 044444 000000 000000 13275 044445 777777 777776 13276 044446 400000 000000 13277 044447 000000 000000 13278 044450 000000 000000 13279 044451 000000 000001 13280 044452 000000 000000 13281 044453 044441 040544 13282 044454 000000 000000 13283 044455 000000 000001 13284 044456 000000 000000 13285 044457 000000 000000 13286 044460 777777 777777 13287 044461 777777 777776 13288 044462 600000 000000 13289 044463 400000 000000 13290 044464 000000 000000 13291 044465 000000 000000 13292 044466 044454 040544 13293 044467 000000 000000 13294 044470 000000 000001 13295 044471 000000 000000 13296 044472 000000 000000 13297 044473 777777 777776 13298 044474 400000 000000 13299 044475 777777 777777 13300 044476 600000 000000 13301 044477 000000 000000 13302 044500 000000 000000 13303 044501 044467 040544 13304 044502 000000 000001 13305 044503 000000 000000 13306 044504 000000 000000 13307 044505 000000 000000 13308 044506 777777 777776 13309 044507 400000 000000 13310 044510 600000 000000 13311 044511 400000 000000 13312 044512 000000 000000 13313 044513 000000 000000 13314 044514 044502 040544 13315 044515 777777 777777 13316 044516 777777 777777 13317 044517 777777 777777 13318 044520 777777 777777 13319 044521 777777 777777 13320 044522 777777 777776 13321 044523 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-33 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0288 13322 044524 000000 000000 13323 044525 777777 777777 13324 044526 777777 777777 13325 044527 044515 040544 13326 044530 777777 777777 13327 044531 777777 777777 13328 044532 777777 777777 13329 044533 400000 000000 13330 044534 777777 777777 13331 044535 777777 777776 13332 044536 000000 000000 13333 044537 200000 000000 13334 044540 000000 000000 13335 044541 000000 000000 13336 044542 044530 040544 13337 044543 777777 777777 13338 044544 777777 777777 13339 044545 777777 777777 13340 044546 400000 000000 13341 044547 777777 777776 13342 044550 400000 000000 13343 044551 000000 000000 13344 044552 000000 000000 13345 044553 777777 777777 13346 044554 400000 000000 13347 044555 044543 040544 13348 044556 777777 777777 13349 044557 777777 777777 13350 044560 400000 000000 13351 044561 400000 000000 13352 044562 777777 777777 13353 044563 777777 777776 13354 044564 200000 000000 13355 044565 000000 000000 13356 044566 000000 000000 13357 044567 000000 000000 13358 044570 044556 040544 13359 044571 777777 777777 13360 044572 777777 777777 13361 044573 400000 000000 13362 044574 400000 000000 13363 044575 777777 777776 13364 044576 400000 000000 13365 044577 000000 000000 13366 044600 200000 000000 13367 044601 000000 000000 13368 044602 000000 000000 13369 044603 044571 040544 13370 044604 777777 777777 13371 044605 400000 000000 13372 044606 400000 000000 13373 044607 400000 000000 13374 044610 777777 777776 13375 044611 400000 000000 13376 044612 200000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-34 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0289 13377 044613 000000 000000 13378 044614 000000 000000 13379 044615 000000 000000 13380 044616 044604 040544 13381 044617 333333 333333 13382 044620 333333 333333 13383 044621 333333 333333 13384 044622 333333 333333 13385 044623 344444 444444 13386 044624 444444 444444 13387 044625 365605 075342 13388 044626 070414 545131 13389 044627 055632 516360 13390 044630 373564 760527 13391 044631 044617 040544 13392 044632 64 45 63 64 00 44 13393 044633 00 15 00 61 65 57 13394 044634 64 51 45 56 64 17 13395 044635 62 45 55 41 51 56 13396 044636 44 45 62 00 51 56 13397 044637 43 57 62 62 45 43 13398 044640 64 77 00 00 00 00 13399 044641 044073 041025 13400 044642 000013 000014 13401 044643 044632 040754 13402 044644 64 45 63 64 00 44 13403 044645 00 15 00 60 43 00 13404 044646 46 54 41 47 63 00 13405 044647 51 56 43 57 62 62 13406 044650 45 43 64 00 15 00 13407 044651 42 51 64 63 00 20 13408 044652 00 06 00 21 22 77 13409 044653 044073 041025 13410 044654 000014 040521 13411 044655 044644 040754 13412 044656 333333 333333 13413 044657 444444 444444 13414 044660 333333 333333 13415 044661 444444 444444 13416 044662 344444 444444 13417 044663 333333 333333 13418 044664 365605 075340 13419 044665 247073 632327 13420 044666 213672 200375 13421 044667 376365 035467 13422 044670 044656 040544 13423 044671 222222 222222 13424 044672 222222 222222 13425 044673 222222 222222 13426 044674 222222 222222 13427 044675 333333 333333 13428 044676 333333 333333 13429 044677 252525 252525 13430 044700 125252 525253 13431 044701 111111 111111 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-35 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0290 13432 044702 111111 111111 13433 044703 044671 040544 13434 044704 222222 222222 13435 044705 333333 333333 13436 044706 222222 222222 13437 044707 333333 333333 13438 044710 333333 333333 13439 044711 444444 444444 13440 044712 252525 252526 13441 044713 070707 070710 13442 044714 004040 404041 13443 044715 327272 727273 13444 044716 044704 040544 13445 044717 255555 555555 13446 044720 555555 555555 13447 044721 555555 555555 13448 044722 555555 555555 13449 044723 311111 111111 13450 044724 111111 111111 13451 044725 335056 427213 13452 044726 035475 265746 13453 044727 144375 704605 13454 044730 004166 365327 13455 044731 044717 040544 13456 044732 255555 555555 13457 044733 222222 222222 13458 044734 555555 555555 13459 044735 222222 222222 13460 044736 311111 111111 13461 044737 666666 666666 13462 044740 335056 427212 13463 044741 323443 757047 13464 044742 240023 257716 13465 044743 107503 314730 13466 044744 044732 040544 13467 044745 123456 123456 13468 044746 123456 123456 13469 044747 123456 123456 13470 044750 123456 123456 13471 044751 234567 234567 13472 044752 234567 234567 13473 044753 210420 323476 13474 044754 136703 233600 13475 044755 055256 055256 13476 044756 055256 055256 13477 044757 044745 040544 13478 044760 444444 444444 13479 044761 444444 444444 13480 044762 444444 444444 13481 044763 444444 444444 13482 044764 333333 333333 13483 044765 333333 333334 13484 044766 400000 000000 13485 044767 400000 000001 13486 044770 511111 111110 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-36 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0291 13487 044771 511111 111110 13488 044772 044760 040544 13489 044773 555555 555555 13490 044774 555555 555555 13491 044775 555555 555555 13492 044776 555555 555555 13493 044777 444444 444444 13494 045000 444444 444444 13495 045001 252525 252525 13496 045002 125252 525252 13497 045003 606060 606060 13498 045004 460606 060605 13499 045005 044773 040544 13500 045006 444444 444444 13501 045007 555555 555555 13502 045010 444444 444444 13503 045011 555555 555555 13504 045012 432123 456765 13505 045013 432123 456765 13506 045014 364320 315052 13507 045015 247020 761620 13508 045016 473571 652245 13509 045017 600514 541235 13510 045020 045006 040544 13511 045021 555555 555555 13512 045022 222222 222222 13513 045023 555555 555555 13514 045024 222222 222222 13515 045025 543210 123456 13516 045026 543210 123456 13517 045027 356736 272460 13518 045030 271326 656374 13519 045031 763153 710465 13520 045032 406655 405512 13521 045033 045021 040544 13522 045034 777777 777777 13523 045035 377777 777777 13524 045036 377777 777777 13525 045037 377777 777774 13526 045040 777777 777777 13527 045041 377777 777776 13528 045042 000000 000000 13529 045043 000000 000002 13530 045044 000000 000000 13531 045045 000000 000000 13532 045046 045034 040544 13533 045047 64 45 63 64 00 45 13534 045050 00 15 00 61 65 57 13535 045051 64 51 45 56 64 17 13536 045052 62 45 55 41 51 56 13537 045053 44 45 62 00 51 56 13538 045054 43 57 62 62 45 43 13539 045055 64 77 00 00 00 00 13540 045056 044073 041025 13541 045057 000013 000014 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-37 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0292 13542 045060 045047 040754 13543 045061 64 45 63 64 00 45 13544 045062 00 15 00 60 43 00 13545 045063 46 54 41 47 63 00 13546 045064 51 56 43 57 62 62 13547 045065 45 43 64 00 15 00 13548 045066 42 51 64 63 00 20 13549 045067 00 06 00 21 22 77 13550 045070 044073 041025 13551 045071 000014 040521 13552 045072 045061 040754 13553 045073 777777 777777 13554 045074 377777 777777 13555 045075 377777 777777 13556 045076 777777 777774 13557 045077 777777 777777 13558 045100 777777 777776 13559 045101 000000 000000 13560 045102 000000 000002 13561 045103 000000 000000 13562 045104 000000 000000 13563 045105 045073 040544 13564 045106 777777 777777 13565 045107 377777 777777 13566 045110 377777 777777 13567 045111 377777 777774 13568 045112 000000 000000 13569 045113 400000 000002 13570 045114 777777 777777 13571 045115 777777 777776 13572 045116 000000 000000 13573 045117 000000 000000 13574 045120 045106 040544 13575 045121 777777 777777 13576 045122 777777 777777 13577 045123 777777 777777 13578 045124 777777 777774 13579 045125 000000 000000 13580 045126 400000 000002 13581 045127 777777 777777 13582 045130 777777 777776 13583 045131 000000 000000 13584 045132 000000 000000 13585 045133 045121 040544 13586 045134 000000 000000 13587 045135 400000 000000 13588 045136 400000 000000 13589 045137 400000 000004 13590 045140 777777 777777 13591 045141 377777 777776 13592 045142 777777 777777 13593 045143 777777 777776 13594 045144 000000 000000 13595 045145 000000 000000 13596 045146 045134 040544 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-38 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0293 13597 045147 000000 000000 13598 045150 400000 000000 13599 045151 400000 000000 13600 045152 400000 000004 13601 045153 777777 777777 13602 045154 777777 777776 13603 045155 777777 777777 13604 045156 777777 777776 13605 045157 000000 000000 13606 045160 000000 000000 13607 045161 045147 040544 13608 045162 000000 000000 13609 045163 000000 000000 13610 045164 000000 000000 13611 045165 400000 000004 13612 045166 000000 000000 13613 045167 000000 000002 13614 045170 000000 000000 13615 045171 000000 000002 13616 045172 000000 000000 13617 045173 000000 000000 13618 045174 045162 040544 13619 045175 000000 000000 13620 045176 000000 000000 13621 045177 000000 000000 13622 045200 400000 000004 13623 045201 000000 000000 13624 045202 400000 000002 13625 045203 000000 000000 13626 045204 000000 000002 13627 045205 000000 000000 13628 045206 000000 000000 13629 045207 045175 040544 13630 045210 777777 777775 13631 045211 400000 000000 13632 045212 400000 000000 13633 045213 400000 000000 13634 045214 777777 777772 13635 045215 400000 000000 13636 045216 200000 000000 13637 045217 000000 000000 13638 045220 000000 000000 13639 045221 000000 000000 13640 045222 045210 040544 13641 045223 777777 777775 13642 045224 400000 000000 13643 045225 400000 000000 13644 045226 000000 000000 13645 045227 777777 777772 13646 045230 400000 000000 13647 045231 200000 000000 13648 045232 000000 000000 13649 045233 000000 000000 13650 045234 000000 000000 13651 045235 045223 040544 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-39 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0294 13652 045236 777777 777775 13653 045237 400000 000000 13654 045240 000000 000000 13655 045241 000000 000000 13656 045242 000000 000006 13657 045243 000000 000000 13658 045244 600000 000000 13659 045245 400000 000000 13660 045246 000000 000000 13661 045247 000000 000000 13662 045250 045236 040544 13663 045251 777777 777775 13664 045252 000000 000000 13665 045253 000000 000000 13666 045254 000000 000000 13667 045255 000000 000006 13668 045256 400000 000000 13669 045257 600000 000000 13670 045260 400000 000000 13671 045261 000000 000000 13672 045262 000000 000000 13673 045263 045251 040544 13674 045264 000000 000003 13675 045265 400000 000000 13676 045266 400000 000000 13677 045267 000000 000000 13678 045270 777777 777772 13679 045271 400000 000000 13680 045272 600000 000000 13681 045273 400000 000000 13682 045274 000000 000000 13683 045275 000000 000000 13684 045276 045264 040544 13685 045277 000000 000003 13686 045300 400000 000000 13687 045301 000000 000000 13688 045302 400000 000000 13689 045303 777777 777772 13690 045304 400000 000000 13691 045305 600000 000000 13692 045306 400000 000000 13693 045307 000000 000000 13694 045310 000000 000000 13695 045311 045277 040544 13696 045312 000000 000003 13697 045313 000000 000000 13698 045314 400000 000000 13699 045315 400000 000000 13700 045316 000000 000006 13701 045317 400000 000000 13702 045320 200000 000000 13703 045321 000000 000000 13704 045322 000000 000000 13705 045323 000000 000000 13706 045324 045312 040544 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-40 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0295 13707 045325 000000 000003 13708 045326 400000 000000 13709 045327 400000 000000 13710 045330 400000 000000 13711 045331 000000 000006 13712 045332 000000 000000 13713 045333 200000 000000 13714 045334 000000 000000 13715 045335 000000 000000 13716 045336 000000 000000 13717 045337 045325 040544 13718 045340 000000 000001 13719 045341 000000 000000 13720 045342 000000 000000 13721 045343 000000 000000 13722 045344 000000 000001 13723 045345 000000 000001 13724 045346 377777 777777 13725 045347 000000 000000 13726 045350 000000 000001 13727 045351 000000 000000 13728 045352 045340 040544 13729 045353 64 45 63 64 00 46 13730 045354 00 15 00 61 65 57 13731 045355 64 51 45 56 64 17 13732 045356 62 45 55 41 51 56 13733 045357 44 45 62 00 51 56 13734 045360 43 57 62 62 45 43 13735 045361 64 77 00 00 00 00 13736 045362 044073 041025 13737 045363 000013 000014 13738 045364 045353 040754 13739 045365 64 45 63 64 00 46 13740 045366 00 15 00 60 43 00 13741 045367 46 54 41 47 63 00 13742 045370 51 56 43 57 62 62 13743 045371 45 43 64 00 15 00 13744 045372 42 51 64 63 00 20 13745 045373 00 06 00 21 22 77 13746 045374 044073 041025 13747 045375 000014 040521 13748 045376 045365 040754 13749 045377 000000 000001 13750 045400 000000 000000 13751 045401 000000 000000 13752 045402 000000 000000 13753 045403 777777 777776 13754 045404 777777 777777 13755 045405 400000 000001 13756 045406 400000 000000 13757 045407 000000 000001 13758 045410 000000 000000 13759 045411 045377 040544 13760 045412 777777 777777 13761 045413 400000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-41 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0296 13762 045414 400000 000000 13763 045415 400000 000000 13764 045416 000000 000001 13765 045417 000000 000001 13766 045420 400000 000001 13767 045421 400000 000000 13768 045422 777777 777777 13769 045423 400000 000000 13770 045424 045412 040544 13771 045425 777777 777777 13772 045426 400000 000000 13773 045427 400000 000000 13774 045430 400000 000000 13775 045431 777777 777776 13776 045432 777777 777777 13777 045433 377777 777777 13778 045434 000000 000000 13779 045435 777777 777777 13780 045436 400000 000000 13781 045437 045425 040544 13782 045440 000000 000000 13783 045441 377777 777777 13784 045442 377777 777777 13785 045443 377777 777777 13786 045444 000000 000001 13787 045445 000000 000000 13788 045446 377777 777777 13789 045447 377777 777777 13790 045450 000000 000000 13791 045451 377777 777777 13792 045452 045440 040544 13793 045453 000000 000000 13794 045454 377777 777777 13795 045455 377777 777777 13796 045456 377777 777777 13797 045457 777777 777777 13798 045460 400000 000000 13799 045461 400000 000000 13800 045462 400000 000001 13801 045463 000000 000000 13802 045464 377777 777777 13803 045465 045453 040544 13804 045466 777777 777777 13805 045467 400000 000000 13806 045470 400000 000000 13807 045471 400000 000001 13808 045472 000000 000001 13809 045473 000000 000000 13810 045474 400000 000000 13811 045475 400000 000001 13812 045476 777777 777777 13813 045477 400000 000001 13814 045500 045466 040544 13815 045501 777777 777777 13816 045502 400000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-42 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0297 13817 045503 400000 000000 13818 045504 400000 000001 13819 045505 777777 777777 13820 045506 400000 000000 13821 045507 377777 777777 13822 045510 377777 777777 13823 045511 777777 777777 13824 045512 400000 000001 13825 045513 045501 040544 13826 045514 000000 000000 13827 045515 000000 000000 13828 045516 000000 000000 13829 045517 000000 000001 13830 045520 000000 000000 13831 045521 000000 000000 13832 045522 045514 040630 13833 045523 64 45 63 64 00 47 13834 045524 00 15 00 44 51 66 13835 045525 51 44 45 56 44 00 13836 045526 43 50 41 56 47 45 13837 045527 44 00 57 56 00 57 13838 045530 66 17 56 57 44 51 13839 045531 66 77 00 00 00 00 13840 045532 044073 041025 13841 045533 000013 000014 13842 045534 045523 040754 13843 045535 400040 000000 13844 045536 64 45 63 64 00 47 13845 045537 00 15 00 60 43 00 13846 045540 46 54 41 47 63 00 13847 045541 51 56 43 57 62 62 13848 045542 45 43 64 00 15 00 13849 045543 42 51 64 63 00 20 13850 045544 06 21 22 77 00 00 13851 045545 044073 041025 13852 045546 000014 040567 13853 045547 045536 040754 13854 045550 000000 000000 13855 045551 000000 000000 13856 045552 000000 000001 13857 045553 000000 000000 13858 045554 000000 000000 13859 045555 000000 000000 13860 045556 045550 040630 13861 045557 000000 000000 13862 045560 000000 000001 13863 045561 000000 000000 13864 045562 000000 000000 13865 045563 000000 000000 13866 045564 000000 000000 13867 045565 045557 040630 13868 045566 000000 000001 13869 045567 000000 000000 13870 045570 000000 000000 13871 045571 000000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-43 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0298 13872 045572 000000 000000 13873 045573 000000 000000 13874 045574 045566 040630 13875 045575 777777 777777 13876 045576 777777 777777 13877 045577 777777 777777 13878 045600 777777 777777 13879 045601 000000 000000 13880 045602 000000 000000 13881 045603 045575 040630 13882 045604 000000 000000 13883 045605 000000 000001 13884 045606 000000 000000 13885 045607 000000 000000 13886 045610 000000 000000 13887 045611 000000 000001 13888 045612 045604 040630 13889 045613 000000 000000 13890 045614 000000 000001 13891 045615 000000 000000 13892 045616 000000 000000 13893 045617 777777 777777 13894 045620 777777 777777 13895 045621 045613 040630 13896 045622 000000 000001 13897 045623 000000 000000 13898 045624 000000 000000 13899 045625 000000 000000 13900 045626 000000 000000 13901 045627 000000 000001 13902 045630 045622 040630 13903 045631 000000 000001 13904 045632 000000 000000 13905 045633 000000 000000 13906 045634 000000 000000 13907 045635 777777 777777 13908 045636 777777 777777 13909 045637 045631 040630 13910 045640 777777 777777 13911 045641 777777 777777 13912 045642 400000 000000 13913 045643 400000 000000 13914 045644 000000 000000 13915 045645 000000 000001 13916 045646 045640 040630 13917 045647 777777 777777 13918 045650 777777 777777 13919 045651 400000 000000 13920 045652 400000 000000 13921 045653 777777 777777 13922 045654 777777 777777 13923 045655 045647 040630 13924 045656 777777 777777 13925 045657 400000 000000 13926 045660 400000 000000 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-44 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0299 13927 045661 400000 000000 13928 045662 000000 000000 13929 045663 000000 000001 13930 045664 045656 040630 13931 045665 777777 777777 13932 045666 400000 000000 13933 045667 400000 000000 13934 045670 400000 000000 13935 045671 777777 777777 13936 045672 777777 777777 13937 045673 045665 040630 13938 045674 000000 000001 13939 045675 000000 000000 13940 045676 000000 000000 13941 045677 000000 000000 13942 045700 000000 000001 13943 045701 000000 000000 13944 045702 045674 040630 13945 045703 000000 000001 13946 045704 000000 000000 13947 045705 000000 000000 13948 045706 000000 000000 13949 045707 777777 777777 13950 045710 000000 000000 13951 045711 045703 040630 13952 045712 777777 777777 13953 045713 400000 000000 13954 045714 400000 000000 13955 045715 400000 000000 13956 045716 000000 000001 13957 045717 000000 000000 13958 045720 045712 040630 13959 045721 777777 777777 13960 045722 400000 000000 13961 045723 400000 000000 13962 045724 400000 000000 13963 045725 777777 777777 13964 045726 400000 000000 13965 045727 045721 040630 13966 045730 000000 000000 13967 045731 377777 777777 13968 045732 377777 777777 13969 045733 377777 777777 13970 045734 000000 000000 13971 045735 377777 777777 13972 045736 045730 040630 13973 045737 000000 000000 13974 045740 377777 777777 13975 045741 377777 777777 13976 045742 377777 777777 13977 045743 777777 777777 13978 045744 400000 000001 13979 045745 045737 040630 13980 045746 045457 040630 13981 045747 777777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-45 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0300 13982 045750 400000 000000 13983 045751 400000 000000 13984 045752 400000 000001 13985 045753 777777 777777 13986 045754 400000 000001 13987 045755 045747 040630 13988 045756 043027 040630 13989 045757 000000 000001 13990 045760 000000 000000 13991 045761 377777 777777 13992 045762 377777 777777 13993 045763 777777 777777 13994 045764 400000 000001 13995 045765 045757 040630 13996 045766 777777 777776 13997 045767 777777 777777 13998 045770 400000 000000 13999 045771 400000 000001 14000 045772 000000 000000 14001 045773 377777 777777 14002 045774 045766 040630 14003 045775 777777 777776 14004 045776 777777 777777 14005 045777 400000 000000 14006 046000 400000 000001 14007 046001 777777 777777 14008 046002 400000 000001 14009 046003 045775 040630 14010 046004 400000 000000 14011 046005 400000 000000 14012 046006 400000 000000 14013 046007 400000 000000 14014 046010 400000 000000 14015 046011 400000 000000 14016 046012 046004 040630 14017 046013 377777 777777 14018 046014 377777 777777 14019 046015 377777 777777 14020 046016 377777 777777 14021 046017 377777 777777 14022 046020 377777 777777 14023 046021 046013 040630 14024 046022 377777 777777 14025 046023 377777 777777 14026 046024 377777 777777 14027 046025 377777 777777 14028 046026 400000 000000 14029 046027 400000 000001 14030 046030 046022 040630 14031 046031 400000 000000 14032 046032 400000 000001 14033 046033 400000 000000 14034 046034 400000 000000 14035 046035 377777 777777 14036 046036 377777 777777 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-46 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0301 14037 046037 046031 040630 14038 046040 000000 000001 14039 046041 400000 000000 14040 046042 777777 777777 14041 046043 777777 777777 14042 046044 000000 000000 14043 046045 377777 777777 14044 046046 046040 040630 14045 046047 000000 000001 14046 046050 000000 000000 14047 046051 377777 777777 14048 046052 377777 777777 14049 046053 777777 777777 14050 046054 000000 000001 14051 046055 046047 040630 14052 046056 777777 777776 14053 046057 377777 777777 14054 046060 000000 000000 14055 046061 000000 000001 14056 046062 000000 000000 14057 046063 777777 777777 14058 046064 046056 040630 14059 046065 777777 777776 14060 046066 777777 777777 14061 046067 000000 000000 14062 046070 000000 000001 14063 046071 777777 777777 14064 046072 400000 000001 14065 046073 046065 040630 14066 046074 040502 040504 14067 046075 040544 040550 14068 046076 000000 040517 14069 046077 040630 040634 14070 046100 000000 040565 14071 046101 41 65 47 45 56 44 14072 046102 32 00 00 77 00 00 14073 046103 41 44 44 45 56 44 14074 046104 32 00 00 77 00 00 14075 046105 62 45 63 65 54 64 14076 046106 32 00 00 77 00 00 14077 046107 55 51 56 65 45 56 14078 046110 44 32 00 00 00 00 14079 046111 00 77 00 00 00 00 14080 046112 63 65 42 64 62 41 14081 046113 50 45 56 44 32 00 14082 046114 00 77 00 00 00 00 14083 046115 62 45 63 65 54 64 14084 046116 32 00 00 00 00 00 14085 046117 00 77 00 00 00 00 14086 046120 55 65 54 64 51 60 14087 046121 54 51 43 41 56 44 14088 046122 32 00 00 77 00 00 14089 046123 55 65 54 64 51 60 14090 046124 54 51 45 62 32 00 14091 046125 00 00 00 77 00 00 DSKCF DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #6, VER 0,3 MACRO %53(1020) 15:50 26-Sep-79 Page 1-47 STOR KSM 18-Sep-79 17:06 *STOR* RESERVED STORAGE, SEPTEMBER 1979 SEQ 0302 14092 046126 62 45 63 65 54 64 14093 046127 32 00 00 00 00 00 14094 046130 00 00 00 77 00 00 14095 046131 44 51 66 51 44 45 14096 046132 56 44 32 00 00 77 14097 046133 44 51 66 51 63 57 14098 046134 62 32 00 00 00 77 14099 046135 61 65 57 64 51 45 14100 046136 56 64 32 00 00 77 14101 046137 00 00 62 45 55 41 14102 046140 51 56 44 45 62 32 14103 046141 00 00 77 00 00 00 14104 LIST 14105 051403 000000 000000 ENDSLD: 0 14106 14107 IFDEF DEBUG,< 14108 051404 PATCH: BLOCK DEBUG ;PATCHING AREA 14109 > 14110 14111 ;PROGRAM VARIABLES 14112 051434 VAR 14113 14114 IFDEF PGMEND,< 14115 051434 000000 000000 END: 0 14116 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 051435 CPU TIME USED 01:14.863 78P CORE USED ABORT 290# AC1 35# 943 944 948 951 955 968 969 973 976 980 993 994 998 SEQ 0303 1001 1005 1018 1019 1023 1026 1030 1043 1044 1048 1051 1055 1068 1069 1073 1076 1080 1093 1094 1098 1101 1105 1172 1173 1177 1180 1184 1193 1195 1199 1202 1206 1229 1230 1234 1237 1241 1250 1252 1256 1259 1263 1286 1287 1291 1294 1298 1307 1309 1313 1316 1320 1343 1344 1348 1351 1355 1364 1366 1370 1373 1377 1400 1401 1405 1408 1412 1421 1423 1427 1430 1434 1457 1458 1462 1465 1469 1478 1480 1484 1487 1491 1514 1515 1519 1522 1526 1535 1537 1541 1544 1548 1571 1572 1576 1579 1583 1592 1594 1598 1601 1605 1635 1640 1642 1643 1644 1646 1649 1652 1656 1670 1686 1687 1691 1694 1698 1711 1712 1716 1719 1723 1770 1774 1783 1786 1790 1815 1819 1828 1831 1835 1860 1864 1873 1876 1880 1905 1909 1918 1921 1925 1950 1954 1963 1966 1970 1995 1999 2008 2011 2015 2114 2116 2127 2130 2134 2162 2164 2175 2178 2182 2210 2212 2223 2226 2230 2258 2260 2271 2274 2278 2306 2308 2319 2322 2326 2354 2356 2367 2370 2374 2421 2423 2432 2435 2439 2466 2468 2477 2480 2484 2511 2513 2522 2525 2529 2556 2558 2567 2570 2574 2601 2603 2612 2615 2619 2646 2648 2657 2660 2664 2711 2713 2722 2725 2729 2756 2758 2767 2770 2774 2801 2803 2812 2815 2819 2846 2848 2857 2860 2864 2891 2893 2902 2905 2909 2936 2938 2947 2950 2954 3001 3003 3012 3015 3019 3046 3048 3057 3060 3064 3091 3093 3102 3105 3109 3136 3138 3147 3150 3154 3181 3183 3192 3195 3199 3226 3228 3237 3240 3244 3291 3293 3302 3305 3309 3336 3338 3347 3350 3354 3381 3383 3392 3395 3399 3426 3428 3437 3440 3444 3471 3473 3482 3485 3489 3516 3518 3527 3530 3534 3735 3737 3746 3749 3753 3780 3782 3791 3794 3798 3825 3827 3836 3839 3843 3870 3872 3881 3884 3888 3915 3917 3926 3929 3933 3960 3962 3971 3974 3978 4005 4007 4016 4019 4023 4050 4052 4061 4064 4068 4163 4164 4168 4171 4175 4188 4189 4193 4196 4200 4213 4214 4218 4221 4225 4238 4239 4243 4246 4250 4263 4264 4268 4271 4275 4288 4289 4293 4296 4300 4344 4371 4375 4380 4387 4390 4394 4499 4500 4504 4507 4511 4526 4527 4531 4534 4538 4553 4554 4558 4561 4565 4580 4581 4585 4588 4592 4607 4608 4612 4615 4619 4634 4635 4639 4642 4646 4678 4679 4683 4686 4690 4705 4706 4710 4713 4717 4732 4733 4737 4740 4744 4759 4760 4764 4767 4771 4786 4787 4791 4794 4798 4813 4814 4818 4821 4825 4857 4858 4862 4865 4869 4884 4885 4889 4892 4896 4911 4912 4916 4919 4923 4938 4939 4943 4946 4950 4965 4966 4970 4973 4977 4992 4993 4997 5000 5004 5036 5037 5041 5044 5048 5063 5064 5068 5071 5075 5090 5091 5095 5098 5102 5117 5118 5122 5125 5129 5144 5145 5149 5152 5156 5171 5172 5176 5179 5183 5215 5216 5220 5223 5227 5242 5243 5247 5250 5254 5269 5270 5274 5277 5281 5296 5297 5301 5304 5308 5323 5324 5328 5331 5335 5350 5351 5355 5358 5362 5592 5594 5603 5606 5610 5640 5642 5651 5654 5658 5688 5690 5699 5702 5706 5736 5738 5747 5750 5754 5784 5786 5795 5798 5802 5832 5834 5843 5846 5850 5880 5882 5891 5894 5898 5928 5930 5939 5942 5946 6033 6034 6052 6053 6071 6072 6090 6091 6109 6110 6128 6129 6147 6148 6166 6167 6185 6186 6204 6205 6223 6224 6242 6243 6261 6262 6292 6293 6311 6312 6330 6331 6349 6350 6368 6369 6387 6388 6406 6407 6425 6426 6444 6445 6463 6464 6482 6483 6501 6502 6539 6540 6566 6567 6593 6595 6621 6623 6649 6650 6676 6677 6703 6705 6731 6732 6758 6759 6785 6787 6813 6814 6840 6841 6867 6869 6895 6897 6923 6924 6950 6951 6977 6979 7005 7006 7032 7033 7059 7061 7106 7107 7133 7134 7160 7162 7188 7190 7216 7217 7243 7244 7271 7273 7299 7300 7326 7327 7354 7356 7382 7383 7409 7410 7436 7438 7464 7466 7492 7493 7519 7520 7547 7549 7575 7576 7602 7603 7630 7632 7664 7665 7669 7675 7678 7681 7684 7686 7695 7722 7723 7749 7750 7776 7777 7803 7804 7840 7841 7867 7868 7894 7895 7921 7922 7948 7949 7975 7976 8002 8003 8029 8030 8056 8057 8083 8084 8110 8111 8137 8138 8164 8165 SEQ 0304 8191 8192 8218 8219 8245 8246 8272 8273 8299 8301 8327 8329 8355 8356 8382 8383 8409 8410 8436 8437 8463 8464 8503 8504 8523 8524 8553 8554 8573 8574 8607 8608 8627 8628 8647 8648 8667 8668 8687 8688 8707 8708 8727 8728 8747 8748 8767 8768 8787 8788 8807 8808 8827 8828 8847 8848 8867 8868 8887 8888 8907 8908 8927 8928 8947 8948 8967 8968 8987 8988 9007 9008 9027 9028 9047 9048 9067 9068 9102 9104 9132 9134 9161 9163 9191 9193 9221 9223 9251 9253 9282 9284 9312 9314 9342 9344 9372 9374 9402 9404 9444 9446 9473 9474 9501 9503 9530 9531 9558 9559 9586 9587 9614 9615 9642 9643 9670 9671 9698 9699 9726 9727 9754 9755 9782 9783 9810 9811 9838 9839 9866 9867 9911 9912 9939 9940 9967 9968 9995 9996 10024 10026 10054 10056 10083 10085 10113 10115 10183 10184 10211 10212 10239 10240 10267 10268 10295 10296 10323 10324 10351 10352 10379 10380 10407 10408 10435 10436 10463 10464 10491 10492 10519 10520 10547 10548 10575 10576 10603 10604 10631 10632 10659 10660 10687 10689 10716 10717 10744 10745 10772 10773 10800 10801 10828 10829 10856 10857 10884 10885 10913 10915 10942 10944 10971 10972 11000 11001 11029 11030 11058 11059 11087 11088 11117 11118 11122 11128 11132 11136 11140 11143 11165 11166 11170 11176 11180 11184 11188 11191 11225 11226 11227 11228 11232 11247 11251 11255 11259 11262 11270 11271 11272 11311 11314 11348 11351 11385 11388 11391 11394 11436 11439 11444 11447 ACONE 1748 2037# ACONF1 2087 3557# ACONF2 2399 3581# ACONF3 2689 3606# ACONF4 2979 3630# ACONF5 3269 3655# ACONG 3709 3733 3778 3823 3868 3913 3958 4003 4048 4094# ADADDI 1665 1669 1670# ADATA 1640 1641 1644 1667# AENDB 1617# AENDD 2035 2061# AENDF 3555 3679# AENDG 4088 4142# AERR 1650 1655# AERRC 1653 1657# ALEFT 1166# 1171 1172 1177 1185 1194 1195 1199 1207 1223# 1228 1229 1234 1242 1251 1252 1256 1264 1280# 1285 1286 1291 1299 1308 1309 1313 1321 1337# 1342 1343 1348 1356 1365 1366 1370 1378 1394# 1396 1396# 1399 1400 1405 1413 1422 1423 1427 1435 1451# 1453 1453# 1456 1457 1462 1470 1479 1480 1484 1492 1508# 1510 1510# 1513 1514 1519 1527 1536 1537 1541 1549 1565# 1567 1567# 1570 1571 1576 1584 1593 1594 1598 1606 ALOOP 1637# 1664 ALTMGO 640# APRINT 958 983 1008 1033 1058 1083 1108 1187 1209 1244 1266 1301 1323 1358 1380 1415 1437 1472 1494 1529 1551 1586 1608 1658 1701 1726 1793 1804 1838 1849 1883 1894 1928 1939 1973 1984 2018 2029 2137 2149 2185 2197 2233 2245 2281 2293 2329 2341 2377 2389 2442 2454 2487 2499 2532 2544 2577 2589 2622 2634 2667 2679 2732 2744 2777 2789 2822 2834 2867 2879 2912 2924 2957 2969 3022 3034 3067 3079 3112 3124 3157 3169 3202 3214 3247 3259 3312 3324 3357 3369 3402 3414 3447 3459 3492 3504 3537 3549 3756 3767 3801 3812 3846 3857 3891 3902 3936 3947 3981 3992 4026 4037 4071 4082 11287# ARIGHT 1167# 1171 1172 1180 1185 1194 1195 1202 1207 1224# 1228 1229 1237 1242 1251 1252 1259 1264 1281# 1285 1286 1294 1299 1308 1309 1316 1321 1338# SEQ 0305 1342 1343 1351 1356 1365 1366 1373 1378 1395# 1397 1397# 1399 1400 1408 1413 1422 1423 1430 1435 1452# 1454 1454# 1456 1457 1465 1470 1479 1480 1487 1492 1509# 1511 1511# 1513 1514 1522 1527 1536 1537 1544 1549 1566# 1568 1568# 1570 1571 1579 1584 1593 1594 1601 1606 AROV 554# 6548 6575 6603 6631 6658 6685 6713 6740 6767 6795 6822 6849 6877 6905 6932 6959 6987 7014 7041 7069 7115 7142 7170 7198 7225 7252 7281 7308 7335 7364 7391 7418 7446 7474 7501 7528 7557 7584 7611 7640 7731 7758 7785 7812 7849 7876 7903 7930 7957 7984 8011 8038 8065 8092 8119 8146 8173 8200 8227 8254 8281 8309 8337 8364 8391 8418 8445 8472 9112 9142 9171 9201 9231 9261 9292 9322 9352 9382 9412 9454 9482 9511 9539 9567 9595 9623 9651 9679 9707 9735 9763 9791 9819 9847 9875 9920 9948 9976 10004 10034 10064 10093 10123 10192 10220 10248 10276 10304 10332 10360 10388 10416 10444 10472 10500 10528 10556 10584 10612 10640 10668 10697 10725 10753 10781 10809 10837 10865 10893 10923 10952 10980 11009 11038 11067 11096 AROVTP 554# AROVU 554# ASHIFT 1637 1638 1669# AST 755# ATEST1 942# 959 ATEST2 967# 984 ATEST3 992# 1009 ATEST4 1017# 1034 ATEST5 1042# 1059 ATEST6 1067# 1084 ATEST7 1092# 1109 ATSIN 756# ATSTD1 1685# 1702 ATSTD2 1710# 1727 BDONE 4356 4454# BDONEI 4406 4409 4413 4420# BEGEND 636# 11105 BEGIN 55 56 57 58 59 505 506 567# 14116 BEGIN1 583# 637 BELL 759# BERROR 4388 4393# BFLAG 4391 4400# BFSET 4408# 4415 4418 BIS 554# BSAME 4404 4411# BTESTB 4371# 4397 4429 CCA 554# CHAIN 310# CHNOFF 554# CHNON 554# CLKU 554# CLOCKF 622# CNT 38# 1634 1637 1662 1663 CNTLC 639# CNTRP 554# CNUM 1748# 1769 1769# 1770 1772 1783 1786 1791 1814 1814# 1815 1817 1828 1831 1836 1859 1859# 1860 1862 1873 1876 1881 1904 1904# 1905 1907 1918 1921 1926 1949 1949# 1950 1952 1963 1966 1971 1994 1994# 1995 1997 2008 2011 2016 2087# 2112 2112# 2113 2114 2116 2160 2160# 2161 2162 2164 2208 2208# SEQ 0306 2209 2210 2212 2256 2256# 2257 2258 2260 2304 2304# 2305 2306 2308 2352 2352# 2353 2354 2356 2399# 2419 2419# 2420 2421 2423 2464 2464# 2465 2466 2468 2509 2509# 2510 2511 2513 2554 2554# 2555 2556 2558 2599 2599# 2600 2601 2603 2644 2644# 2645 2646 2648 2689# 2709 2709# 2710 2711 2713 2754 2754# 2755 2756 2758 2799 2799# 2800 2801 2803 2844 2844# 2845 2846 2848 2889 2889# 2890 2891 2893 2934 2934# 2935 2936 2938 2979# 2999 2999# 3000 3001 3003 3044 3044# 3045 3046 3048 3089 3089# 3090 3091 3093 3134 3134# 3135 3136 3138 3179 3179# 3180 3181 3183 3224 3224# 3225 3226 3228 3269# 3289 3289# 3290 3291 3293 3334 3334# 3335 3336 3338 3379 3379# 3380 3381 3383 3424 3424# 3425 3426 3428 3469 3469# 3470 3471 3473 3514 3514# 3515 3516 3518 3709# 3731 3731# 3733 3734 3735 3737 3746 3749 3754 3776 3776# 3778 3779 3780 3782 3791 3794 3799 3821 3821# 3823 3824 3825 3827 3836 3839 3844 3866 3866# 3868 3869 3870 3872 3881 3884 3889 3911 3911# 3913 3914 3915 3917 3926 3929 3934 3956 3956# 3958 3959 3960 3962 3971 3974 3979 4001 4001# 4003 4004 4005 4007 4016 4019 4024 4046 4046# 4048 4049 4050 4052 4061 4064 4069 4480# 4497 4497# 4498 4499 4500 4504 4507 4512 4524 4524# 4525 4526 4527 4531 4534 4539 4551 4551# 4552 4553 4554 4558 4561 4566 4578 4578# 4579 4580 4581 4585 4588 4593 4605 4605# 4606 4607 4608 4612 4615 4620 4632 4632# 4633 4634 4635 4639 4642 4647 4659# 4676 4676# 4677 4678 4679 4683 4686 4691 4703 4703# 4704 4705 4706 4710 4713 4718 4730 4730# 4731 4732 4733 4737 4740 4745 4757 4757# 4758 4759 4760 4764 4767 4772 4784 4784# 4785 4786 4787 4791 4794 4799 4811 4811# 4812 4813 4814 4818 4821 4826 4838# 4855 4855# 4856 4857 4858 4862 4865 4870 4882 4882# 4883 4884 4885 4889 4892 4897 4909 4909# 4910 4911 4912 4916 4919 4924 4936 4936# 4937 4938 4939 4943 4946 4951 4963 4963# 4964 4965 4966 4970 4973 4978 4990 4990# 4991 4992 4993 4997 5000 5005 5017# 5034 5034# 5035 5036 5037 5061 5061# 5062 5063 5064 5088 5088# 5089 5090 5091 5115 5115# 5116 5117 5118 5142 5142# 5143 5144 5145 5169 5169# 5170 5171 5172 5196# 5213 5213# 5214 5215 5216 5240 5240# 5241 5242 5243 5267 5267# 5268 5269 5270 5294 5294# 5295 5296 5297 5321 5321# 5322 5323 5324 5348 5348# 5349 5350 5351 5559# 5587 5587# 5591 5592 5594 5617 5635 5635# 5639 5640 5642 5665 5683 5683# 5687 5688 5690 5713 5731 5731# 5735 5736 5738 5761 5779 5779# 5783 5784 5786 5809 5827 5827# 5831 5832 5834 5857 5875 5875# 5879 5880 5882 5905 5923 5923# 5927 5928 5930 5953 COMMA 748# CONSW 623# CPOPJ 643# CPOPJ1 641# CRLF 440 441 743# CRLF2 444 445 745# CRY0 554# CRY1 554# CSHFLG 802# CSHMEM 803# CTRP 554# CYCL60 796# DCK 554# 9112 9142 9171 9201 9231 9261 9292 9322 9352 9382 9412 9454 9482 9511 9539 9567 9595 9623 9651 9679 9707 9735 9763 9791 9819 9847 9875 9920 9948 9976 10004 10034 10064 10093 10123 10192 10220 10248 10276 10304 10332 10360 10388 10416 10444 10472 10500 10528 10556 10584 10612 10640 10668 10697 10725 10753 10781 10809 10837 10865 10893 10923 10952 10980 11009 11038 11067 11096 DDTLNK 324# 581 DDTSRT 581# SEQ 0307 DEBUG 71# 14107 14108 DECVER 4# 10 16 602 DF22F 707# DIAGMN 570# DING 296# DOLLAR 762# DPRINT 8507 8527 8557 8577 8611 8631 8651 8671 8691 8711 8731 8751 8771 8791 8811 8831 8851 8871 8891 8911 8931 8951 8971 8991 9011 9031 9051 9071 9107 9115 9137 9145 9166 9174 9196 9204 9226 9234 9256 9264 9287 9295 9317 9325 9347 9355 9377 9385 9407 9415 9449 9457 9477 9485 9506 9514 9534 9542 9562 9570 9590 9598 9618 9626 9646 9654 9674 9682 9702 9710 9730 9738 9758 9766 9786 9794 9814 9822 9842 9850 9870 9878 9915 9923 9943 9951 9971 9979 9999 10007 10029 10037 10059 10067 10088 10096 10118 10126 10187 10196 10215 10224 10243 10252 10271 10280 10299 10308 10327 10336 10355 10364 10383 10392 10411 10420 10439 10448 10467 10476 10495 10504 10523 10532 10551 10560 10579 10588 10607 10616 10635 10644 10663 10672 10692 10701 10720 10729 10748 10757 10776 10785 10804 10813 10832 10841 10860 10869 10888 10897 10918 10927 10947 10956 10975 10984 11004 11013 11033 11042 11062 11071 11091 11100 11404# DSKUPD 607 EBIT0 554# EBIT1 554# EBIT10 554# EBIT11 554# EBIT12 554# EBIT13 554# EBIT14 554# EBIT15 554# EBIT2 554# EBIT3 554# EBIT4 554# EBIT5 554# EBIT6 554# EBIT7 554# EBIT8 554# EBIT9 554# END 14115# ENDFIX 882# ENDSLD 14105# ERMORE 656# EROLD 516 ERRPC 627# ERRTLS 628# ERSTOP 299# EXCASB 69# 605 EXIOT 554# FIVE 9088# 9221 9251 9342 9372 9402 FLAGL 1777# 1799 1804 1822# 1844 1849 1867# 1889 1894 1912# 1934 1939 1957# 1979 1984 2002# 2024 2029 2119# 2143 2149 2167# 2191 2197 2215# 2239 2245 2263# 2287 2293 2311# 2335 2341 2359# 2383 2389 2426# 2448 2454 2471# 2493 2499 2516# 2538 2544 2561# 2583 2589 2606# 2628 2634 2651# 2673 2679 2716# 2738 2744 2761# 2783 2789 2806# 2828 2834 2851# 2873 2879 2896# 2918 2924 2941# 2963 2969 3006# 3028 3034 3051# 3073 3079 3096# 3118 3124 3141# 3163 3169 3186# 3208 3214 3231# 3253 3259 3296# 3318 3324 3341# 3363 3369 3386# 3408 SEQ 0308 3414 3431# 3453 3459 3476# 3498 3504 3521# 3543 3549 3740# 3762 3767 3785# 3807 3812 3830# 3852 3857 3875# 3897 3902 3920# 3942 3947 3965# 3987 3992 4010# 4032 4037 4055# 4077 4082 4384# 4400 4422 4428 5597# 5620 5625 5645# 5668 5673 5693# 5716 5721 5741# 5764 5769 5789# 5812 5817 5837# 5860 5865 5885# 5908 5913 5933# 5956 5961 7672# 7695 FLAGS 3711# 3763 3808 3853 3898 3913# 3943 3988 4033 4078 5563# 5621 5669 5717 5765 5781# 5813 5829# 5861 5877# 5909 5925# 5957 FOUR 9087# 9102 9132 9191 9312 9342 9372 FOV 554# FOVU 554# FRDLNK 322# FSELNK 321# FXU 554# HYPEN 753# ILOOP 4360# 4432 IMINU 4357 4371 4402 4405 4411 4452# INHCSH 307# INHPAG 304# IOCLR 554# ISUBTR 4363 4372 4380 4401 4412 4414 4416 4417 4453# ITERAT 60# 600 ITRCH1 660# ITRCNT 600# JOB41 554# JOBAPR 554# JOBCNI 554# JOBDDT 554# JOBFF 554# JOBOPC 554# JOBREL 554# JOBREN 554# JOBSA 554# JOBSYM 554# JOBTPC 554# JOBUSY 554# JOBUUO 554# JOBVER 554# K 9273# 9282 KAIFLG 617# KLFLG 618# KNTRP 554# KTRP 554# LACLK 554# LACLKE 554# LAPRAL 554# LAPRP1 554# LAPRP2 554# LAPRP3 554# LAPRP4 554# LAPRP5 554# LAPRP6 554# LAPRP7 554# LCHNOF 554# SEQ 0309 LCHNON 554# LCNTXT 554# LCNXER 554# LCPAER 554# LCPSFT 554# LCPWRF 554# LDATAF 554# LDLNK 323# 570 572 LDNXER 554# LDPAER 554# LDPSFT 554# LDPWRF 554# LEBXMH 554# LEBXML 554# LENXER 554# LEPAER 554# LEPSFT 554# LEPWRF 554# LEUPFW 554# LEXCMP 554# LFLGCL 554# LFLGDS 554# LFLGEN 554# LFLGST 554# LFP 757# LINSTF 554# LINT 554# LIOCLR 554# LLACBL 554# LLDUSB 554# LMBXMH 554# LMBXML 554# LNXMEN 554# LNXMER 554# LOC 1165# 1188 1192# 1210 1222# 1245 1249# 1267 1279# 1302 1306# 1324 1336# 1359 1363# 1381 1393# 1416 1420# 1438 1450# 1473 1477# 1495 1507# 1530 1534# 1552 1564# 1587 1591# 1609 1659 1768# 1794 1805 1813# 1839 1850 1858# 1884 1895 1903# 1929 1940 1948# 1974 1985 1993# 2019 2030 2110# 2138 2150 2158# 2186 2198 2206# 2234 2246 2254# 2282 2294 2302# 2330 2342 2350# 2378 2390 2418# 2443 2455 2463# 2488 2500 2508# 2533 2545 2553# 2578 2590 2598# 2623 2635 2643# 2668 2680 2708# 2733 2745 2753# 2778 2790 2798# 2823 2835 2843# 2868 2880 2888# 2913 2925 2933# 2958 2970 2998# 3023 3035 3043# 3068 3080 3088# 3113 3125 3133# 3158 3170 3178# 3203 3215 3223# 3248 3260 3288# 3313 3325 3333# 3358 3370 3378# 3403 3415 3423# 3448 3460 3468# 3493 3505 3513# 3538 3550 3732# 3757 3768 3777# 3802 3813 3822# 3847 3858 3867# 3892 3903 3912# 3937 3948 3957# 3982 3993 4002# 4027 4038 4047# 4072 4083 4496# 4515 4523# 4542 4550# 4569 4577# 4596 4604# 4623 4631# 4650 4675# 4694 4702# 4721 4729# 4748 4756# 4775 4783# 4802 4810# 4829 4854# 4873 4881# 4900 4908# 4927 4935# 4954 4962# 4981 4989# 5008 5033# 5052 5060# 5079 5087# 5106 5114# 5133 5141# 5160 5168# 5187 5212# 5231 5239# 5258 5266# 5285 5293# 5312 5320# 5339 5347# 5366 5586# 5614 5626 5634# 5662 5674 5682# 5710 5722 5730# 5758 5770 5778# 5806 5818 5826# 5854 5866 5874# 5902 5914 5922# 5950 5962 7662# 7689 7696 LOOPER 298# SEQ 0310 LPAREN 554# LPARER 554# LPFWPC 554# LPGFTR 554# LPICH1 554# LPICH2 554# LPICH3 554# LPICH4 554# LPICH5 554# LPICH6 554# LPICH7 554# LPICHA 554# LPICLR 554# LPIIP1 554# LPIIP2 554# LPIIP3 554# LPIIP4 554# LPIIP5 554# LPIIP6 554# LPIIP7 554# LPIOFF 554# LPION 554# LPRCH1 554# LPRCH2 554# LPRCH3 554# LPRCH4 554# LPRCH5 554# LPRCH6 554# LPRCH7 554# LPRFMH 554# LPRFML 554# LPSFT 554# LPSFTE 554# LPWRFE 554# LPWRFL 554# LREQSE 554# LRQCLR 554# LSECMO 554# LSMODE 554# LSNXER 554# LSPAER 554# LSPSFT 554# LSPWRF 554# LTBASH 554# LTBASL 554# LTRPAE 554# LTRPEN 554# LUSCMP 554# LUUO 554# LUUO1 687 688 LUUO10 687 692 LUUO11 687 692 LUUO12 687 693 SEQ 0311 LUUO13 687 693 LUUO14 687 694 LUUO15 687 694 LUUO16 687 695 LUUO17 687 695 LUUO2 687 689 LUUO20 687 696 LUUO21 687 696 LUUO22 687 697 LUUO23 687 697 LUUO24 687 698 LUUO25 687 698 LUUO26 687 699 LUUO27 687 699 LUUO3 687 689 LUUO30 687 700 LUUO31 687 700 LUUO32 687 701 LUUO33 687 701 LUUO4 687 690 LUUO5 687 690 LUUO6 687 691 LUUO7 687 691 LUUOI 554# LWRITE 554# MAPNEW 708# MARGIN 630# MCAND 6033 6052 6071 6090 6109 6128 6147 6166 6185 6204 6223 6242 6261 6292 6311 6330 6349 6368 6387 6406 6425 6444 6463 6482 6501 6539 6566 6594 6622 6649 6676 6704 6731 6758 6786 6813 6840 6868 6896 6923 6950 6978 7005 7032 7060 7106 7133 7161 7189 7216 7243 7272 7299 7326 7355 7382 7409 7437 7465 7492 7519 7548 7575 7602 7631 7722 7749 7776 7803 7840 7867 7894 7921 7948 7975 8002 8029 8056 8083 8110 8137 8164 8191 8218 8245 8272 8300 8328 8355 8382 8409 8436 8463 11116 11117 11151# MCNVER 3# 10 16 602 MEMLOW 710# MEMMAP 608 MEMSIZ 711# MEMTOT 709# MERROR 11129 11133 11137 11143# MFLOC 6547 6551 6574 6578 6602 6606 6630 6634 6657 6661 6684 6688 6712 6716 6739 6743 6766 6770 6794 6798 6821 6825 6848 6852 6876 6880 6904 6908 6931 6935 6958 6962 6986 6990 7013 7017 7040 7044 7068 7072 7114 7118 7141 7145 7169 7173 7197 7201 7224 7228 7251 7255 7280 7284 7307 7311 7334 7338 7363 7367 7390 7394 7417 7421 7445 7449 7473 7477 7500 7504 7527 7531 7556 7560 7583 7587 7610 7614 7639 7643 7730 7734 7757 7761 7784 7788 7811 7815 7848 7852 7875 7879 7902 7906 7929 7933 7956 7960 7983 7987 8010 8014 8037 8041 8064 8068 8091 8095 8118 8122 8145 8149 8172 8176 8199 8203 8226 8230 8253 8257 8280 8284 8308 8312 8336 8340 8363 8367 8390 8394 8417 8421 8444 8448 8471 8475 11125# MINU 4344# 4345 4353 4355 4356 4357 4364 MINUS 752# MODDVC 306# SEQ 0312 MODDVL 505 505# 603 MODDVU 506 506# 604 MODLNK 325# 567 MONCTL 620# MONFLG 619# MONTEN 621# MONTYP 834# MOVERR 7676 7679 7682 7686# MOVOK 7685 7691# MOVRR 7691 7694# MPLIER 11116 11122 11152# MPRINT 6037 6056 6075 6094 6113 6132 6151 6170 6189 6208 6227 6246 6265 6296 6315 6334 6353 6372 6391 6410 6429 6448 6467 6486 6505 6543 6551 6570 6578 6598 6606 6626 6634 6653 6661 6680 6688 6708 6716 6735 6743 6762 6770 6790 6798 6817 6825 6844 6852 6872 6880 6900 6908 6927 6935 6954 6962 6982 6990 7009 7017 7036 7044 7064 7072 7110 7118 7137 7145 7165 7173 7193 7201 7220 7228 7247 7255 7276 7284 7303 7311 7330 7338 7359 7367 7386 7394 7413 7421 7441 7449 7469 7477 7496 7504 7523 7531 7552 7560 7579 7587 7606 7614 7635 7643 7688 7695 7726 7734 7753 7761 7780 7788 7807 7815 7844 7852 7871 7879 7898 7906 7925 7933 7952 7960 7979 7987 8006 8014 8033 8041 8060 8068 8087 8095 8114 8122 8141 8149 8168 8176 8195 8203 8222 8230 8249 8257 8276 8284 8304 8312 8332 8340 8359 8367 8386 8394 8413 8421 8440 8448 8467 8475 11361# MPVU 554# MRES 6034 6053 6072 6091 6110 6129 6148 6167 6186 6205 6224 6243 6262 6293 6312 6331 6350 6369 6388 6407 6426 6445 6464 6483 6502 6540 6567 6595 6623 6650 6677 6705 6732 6759 6787 6814 6841 6869 6897 6924 6951 6979 7006 7033 7061 7107 7134 7162 7190 7217 7244 7273 7300 7327 7356 7383 7410 7438 7466 7493 7520 7549 7576 7603 7632 7723 7750 7777 7804 7841 7868 7895 7922 7949 7976 8003 8030 8057 8084 8111 8138 8165 8192 8219 8246 8273 8301 8329 8356 8383 8410 8437 8464 11128 11132 11136 11140 11144 11153# MRET 11147 11148 11149 11154# 11195 11196 11197 11266 11267 11268 MSUBR 6035 6054 6073 6092 6111 6130 6149 6168 6187 6206 6225 6244 6263 6294 6313 6332 6351 6370 6389 6408 6427 6446 6465 6484 6503 6541 6568 6596 6624 6651 6678 6706 6733 6760 6788 6815 6842 6870 6898 6925 6952 6980 7007 7034 7062 7108 7135 7163 7191 7218 7245 7274 7301 7328 7357 7384 7411 7439 7467 7494 7521 7550 7577 7604 7633 7724 7751 7778 7805 7842 7869 7896 7923 7950 7977 8004 8031 8058 8085 8112 8139 8166 8193 8220 8247 8274 8302 8330 8357 8384 8411 8438 8465 11116# MTEST 11141 11147# MUUO 554# MUUOPC 554# NOPNT 294# NUM 907# 942 943 951 956 967 968 973 981 992 993 998 1001 1006 1017 1019 1026 1031 1042 1044 1048 1056 1067 1069 1073 1076 1081 4162 4163 4171 4176 4187 4188 4193 4201 4212 4213 4218 4221 4226 4237 4239 4246 4251 4262 4264 4268 4276 4287 4289 4293 4296 4301 6033 6052 6071 6090 6109 6128 6147 6166 6185 6204 6223 6242 6292 6311 6330 6349 6368 6387 6406 6425 6444 6463 6482 6501 8503 8523 8553 8573 NXMU 554# OBYTEF 11239 11241 11243 11270# OBYTET 11240 11242 11244 11273# SEQ 0313 OCON 11238 11246# ODEND 10183 10211 10239 10267 10295 10323 10351 10379 10407 10435 10463 10491 10519 10547 10575 10603 10631 10659 10687 10716 10744 10772 10800 10828 10856 10884 10914 10943 10971 11000 11029 11058 11087 11224 11225 11226 11277# OERROR 11248 11252 11256 11262# OFLOC 10191 10193 10196 10219 10221 10224 10247 10249 10252 10275 10277 10280 10303 10305 10308 10331 10333 10336 10359 10361 10364 10387 10389 10392 10415 10417 10420 10443 10445 10448 10471 10473 10476 10499 10501 10504 10527 10529 10532 10555 10557 10560 10583 10585 10588 10611 10613 10616 10639 10641 10644 10667 10669 10672 10696 10698 10701 10724 10726 10729 10752 10754 10757 10780 10782 10785 10808 10810 10813 10836 10838 10841 10864 10866 10869 10892 10894 10897 10922 10924 10927 10951 10953 10956 10979 10981 10984 11008 11010 11013 11037 11039 11042 11066 11068 11071 11095 11097 11100 11235# OISOR 11224 11232 11278# OLOOP 4355# 4361 ONE 9084# 9161 9221 OPRSEL 308# OPTIME 722# ORES 10184 10212 10240 10268 10296 10324 10352 10380 10408 10436 10464 10492 10520 10548 10576 10604 10632 10660 10689 10717 10745 10773 10801 10829 10857 10885 10915 10944 10972 11001 11030 11059 11088 11227 11228 11247 11251 11255 11259 11263 11273 11274 11275 11279# ORET 11280# OSUBR 10185 10213 10241 10269 10297 10325 10353 10381 10409 10437 10465 10493 10521 10549 10577 10605 10633 10661 10690 10718 10746 10774 10802 10830 10858 10886 10916 10945 10973 11002 11031 11060 11089 11224# OTEST 11260 11266# P 351 352 353 354 554# 642 PAG 554# PALERS 300# PAREA1 61# 598 PAREA2 62# 599 PAREA3 63# 596 PAREA4 64# 597 PAREA5 65# 609 PAREA6 66# 610 PAREA7 609# PAREA8 610# PARU 554# PASCNT 624# PATCH 14108# PDEND 8503 8523 8553 8573 8607 8627 8647 8667 8687 8707 8727 8747 8767 8787 8807 8827 8847 8867 8887 8907 8927 8947 8967 8987 9007 9027 9047 9067 9103 9133 9162 9192 9222 9252 9283 9313 9343 9373 9403 9445 9473 9502 9530 9558 9586 9614 9642 9670 9698 9726 9754 9782 9810 9838 9866 9911 9939 9967 9995 10025 10055 10084 10114 11164 11165 11166 11199# PDISF 719# PDLOVU 554# PDOVTP 554# PERIOD 749# PERROR 11177 11181 11185 11191# PFLOC 9111 9115 9141 9145 9170 9174 9200 9204 9230 9234 9260 9264 9291 9295 9321 9325 9351 9355 9381 9385 9411 9415 9453 9457 9481 9485 9510 9514 SEQ 0314 9538 9542 9566 9570 9594 9598 9622 9626 9650 9654 9678 9682 9706 9710 9734 9738 9762 9766 9790 9794 9818 9822 9846 9850 9874 9878 9919 9923 9947 9951 9975 9979 10003 10007 10033 10037 10063 10067 10092 10096 10122 10126 11173# PFSTRT 576# PGMEND 68# 14114 PGMNAM 601 887# PHALT 54 11105# PICHN1 554# PICHN2 554# PICHN3 554# PICHN4 554# PICHN5 554# PICHN6 554# PICHN7 554# PICHNA 554# PICLR 554# PIOFF 554# PION 554# PISOR 11164 11170 11200# PLIST 788# 788 PLISTE 788 790# PLISTS 789# PLUS 754# PNTENB 718# PNTEXT 597# PNTFLG 717# PNTINH 720# PNTLPT 295# PNTNAM 596# PNTRP 554# PNTSPC 721# PRES 8504 8524 8554 8574 8608 8628 8648 8668 8688 8708 8728 8748 8768 8788 8808 8828 8848 8868 8888 8908 8928 8948 8968 8988 9008 9028 9048 9068 9104 9134 9163 9193 9223 9253 9284 9314 9344 9374 9404 9446 9474 9503 9531 9559 9587 9615 9643 9671 9699 9727 9755 9783 9811 9839 9867 9912 9940 9968 9996 10026 10056 10085 10115 11176 11180 11184 11188 11192 11201# PRET 11202# PSUBR 8505 8525 8555 8575 8609 8629 8649 8669 8689 8709 8729 8749 8769 8789 8809 8829 8849 8869 8889 8909 8929 8949 8969 8989 9009 9029 9049 9069 9105 9135 9164 9194 9224 9254 9285 9315 9345 9375 9405 9447 9475 9504 9532 9560 9588 9616 9644 9672 9700 9728 9756 9784 9812 9840 9868 9913 9941 9969 9997 10027 10057 10086 10116 11164# PTEST 11189 11195# PTRP 554# PVPAGI 815# QUEST 760# RADIX 763# RADLSC 765# RADLSP 764# RANDBS 598# REENTR 578# RELIAB 302# SEQ 0315 REP 1133# 1164 1164# 1166 1167 1214 1221 1221# 1223 1224 1271 1278 1278# 1280 1281 1328 1335 1335# 1337 1338 1385 1386# 1392 1392# 1394 1395 1442 1449 1449# 1451 1452 1499 1506 1506# 1508 1509 1556 1563 1563# 1565 1566 1613 1614# 2088# 2111 2111# 2122 2123 2159 2159# 2170 2171 2207 2207# 2218 2219 2255 2255# 2266 2267 2303 2303# 2314 2315 2351 2351# 2362 2363 5561# 5588 5588# 5589 5636 5636# 5637 5684 5684# 5685 5732 5732# 5733 5780 5780# 5781 5828 5828# 5829 5876 5876# 5877 5924 5924# 5925 REPP 1134# 1168 1225 1282 1339 1385# 1396 1453 1510 1567 1613# REPT 554# REPT1 554# REPTU 676# REQSET 554# RESRT1 653# RESRT2 654# RESULT 5562# 5603 5606 5611 5651 5654 5659 5699 5702 5707 5747 5750 5755 5782# 5795 5798 5803 5830# 5843 5846 5851 5878# 5891 5894 5899 5926# 5939 5942 5947 RETURN 585# RLEFT 2122# 2127 2135 2170# 2175 2183 2218# 2223 2231 2266# 2271 2279 2314# 2319 2327 2362# 2367 2375 RRIGHT 2123# 2130 2135 2171# 2178 2183 2219# 2226 2231 2267# 2274 2279 2315# 2322 2327 2363# 2370 2375 RSTART 291# RTP 758# RUNFLG 625# SADR1 49# 574 SADR10 58# 590 SADR11 59# 591 SADR2 50# 576 SADR3 51# 578 SADR4 52# SADR5 53# 639 SADR6 54# 640 SADR7 55# 587 SADR8 56# 588 SADR9 57# 589 SBINIT 364 584# SCONC1 4480 5373# SCONC2 4659 5410# SCONC3 4838 5447# SCONC4 5017 5484# SCONC5 5196 5508# SCOND 5559 5973# SCOPE 677# SCR0 40# 41 42 43 4346 4346# 4372 4373 4375 4376 4387 4393 4396 4401 4402 4403 4411 4412 4414 SCR1 41# 947 950 955 956 958 972 975 980 981 983 997 1000 1005 1006 1008 1022 1025 1030 1031 1033 1047 1050 1055 1056 1058 1072 1075 1080 1081 1083 1097 1100 1105 1106 1108 1176 1179 1184 1185 1187 1198 1201 1206 1207 1209 1233 1236 1241 1242 1244 1255 1258 1263 1264 1266 1290 1293 1298 1299 1301 1312 1315 1320 1321 1323 1347 1350 1355 1356 1358 1369 1372 1377 1378 1380 1404 1407 1412 1413 1415 1426 1429 1434 1435 1437 1461 1464 1469 1470 1472 1483 1486 1491 1492 1494 1518 1521 SEQ 0316 1526 1527 1529 1540 1543 1548 1549 1551 1575 1578 1583 1584 1586 1597 1600 1605 1606 1608 1648 1651 1655 1656 1658 1690 1693 1698 1699 1701 1715 1718 1723 1724 1726 1782 1785 1790 1791 1793 1799 1801 1802 1827 1830 1835 1836 1838 1844 1846 1847 1872 1875 1880 1881 1883 1889 1891 1892 1917 1920 1925 1926 1928 1934 1936 1937 1962 1965 1970 1971 1973 1979 1981 1982 2007 2010 2015 2016 2018 2024 2026 2027 2126 2129 2134 2135 2137 2143 2145 2146 2174 2177 2182 2183 2185 2191 2193 2194 2222 2225 2230 2231 2233 2239 2241 2242 2270 2273 2278 2279 2281 2287 2289 2290 2318 2321 2326 2327 2329 2335 2337 2338 2366 2369 2374 2375 2377 2383 2385 2386 2431 2434 2439 2440 2442 2448 2450 2451 2476 2479 2484 2485 2487 2493 2495 2496 2521 2524 2529 2530 2532 2538 2540 2541 2566 2569 2574 2575 2577 2583 2585 2586 2611 2614 2619 2620 2622 2628 2630 2631 2656 2659 2664 2665 2667 2673 2675 2676 2721 2724 2729 2730 2732 2738 2740 2741 2766 2769 2774 2775 2777 2783 2785 2786 2811 2814 2819 2820 2822 2828 2830 2831 2856 2859 2864 2865 2867 2873 2875 2876 2901 2904 2909 2910 2912 2918 2920 2921 2946 2949 2954 2955 2957 2963 2965 2966 3011 3014 3019 3020 3022 3028 3030 3031 3056 3059 3064 3065 3067 3073 3075 3076 3101 3104 3109 3110 3112 3118 3120 3121 3146 3149 3154 3155 3157 3163 3165 3166 3191 3194 3199 3200 3202 3208 3210 3211 3236 3239 3244 3245 3247 3253 3255 3256 3301 3304 3309 3310 3312 3318 3320 3321 3346 3349 3354 3355 3357 3363 3365 3366 3391 3394 3399 3400 3402 3408 3410 3411 3436 3439 3444 3445 3447 3453 3455 3456 3481 3484 3489 3490 3492 3498 3500 3501 3526 3529 3534 3535 3537 3543 3545 3546 3745 3748 3753 3754 3756 3762 3764 3765 3790 3793 3798 3799 3801 3807 3809 3810 3835 3838 3843 3844 3846 3852 3854 3855 3880 3883 3888 3889 3891 3897 3899 3900 3925 3928 3933 3934 3936 3942 3944 3945 3970 3973 3978 3979 3981 3987 3989 3990 4015 4018 4023 4024 4026 4032 4034 4035 4060 4063 4068 4069 4071 4077 4079 4080 4167 4170 4175 4176 4178 4192 4195 4200 4201 4203 4217 4220 4225 4226 4228 4242 4245 4250 4251 4253 4267 4270 4275 4276 4278 4292 4295 4300 4301 4303 4374 4390 4394 4396 4417 4422 4424 4425 4503 4506 4511 4512 4514 4530 4533 4538 4539 4541 4557 4560 4565 4566 4568 4584 4587 4592 4593 4595 4611 4614 4619 4620 4622 4638 4641 4646 4647 4649 4682 4685 4690 4691 4693 4709 4712 4717 4718 4720 4736 4739 4744 4745 4747 4763 4766 4771 4772 4774 4790 4793 4798 4799 4801 4817 4820 4825 4826 4828 4861 4864 4869 4870 4872 4888 4891 4896 4897 4899 4915 4918 4923 4924 4926 4942 4945 4950 4951 4953 4969 4972 4977 4978 4980 4996 4999 5004 5005 5007 5040 5043 5048 5049 5051 5067 5070 5075 5076 5078 5094 5097 5102 5103 5105 5121 5124 5129 5130 5132 5148 5151 5156 5157 5159 5175 5178 5183 5184 5186 5219 5222 5227 5228 5230 5246 5249 5254 5255 5257 5273 5276 5281 5282 5284 5300 5303 5308 5309 5311 5327 5330 5335 5336 5338 5354 5357 5362 5363 5365 5602 5605 5610 5611 5613 5620 5622 5623 5650 5653 5658 5659 5661 5668 5670 5671 5698 5701 5706 5707 5709 5716 5718 5719 5746 5749 5754 5755 5757 5764 5766 5767 5794 5797 5802 5803 5805 5812 5814 5815 5842 5845 5850 5851 5853 5860 5862 5863 5890 5893 5898 5899 5901 5908 5910 5911 5938 5941 5946 5947 5949 5956 5958 5959 6037 6056 6075 6094 6113 6132 6151 6170 6189 6208 6227 6246 6265 6296 6315 6334 6353 6372 6391 6410 6429 6448 6467 6486 6505 6543 6570 6598 6626 6653 6680 6708 6735 6762 6790 6817 6844 6872 6900 6927 6954 6982 7009 7036 7064 7110 7137 7165 7193 7220 7247 7276 7303 7330 7359 7386 7413 7441 7469 7496 7523 7552 7579 7606 7635 7667 7677 7680 7683 7686 7688 7726 7753 7780 7807 7844 7871 7898 7925 7952 7979 8006 8033 8060 8087 8114 8141 8168 8195 8222 8249 8276 8304 8332 8359 8386 8413 8440 8467 8507 8527 8557 8577 8611 8631 SEQ 0317 8651 8671 8691 8711 8731 8751 8771 8791 8811 8831 8851 8871 8891 8911 8931 8951 8971 8991 9011 9031 9051 9071 9107 9137 9166 9196 9226 9256 9287 9317 9347 9377 9407 9449 9477 9506 9534 9562 9590 9618 9646 9674 9702 9730 9758 9786 9814 9842 9870 9915 9943 9971 9999 10029 10059 10088 10118 10187 10215 10243 10271 10299 10327 10355 10383 10411 10439 10467 10495 10523 10551 10579 10607 10635 10663 10692 10720 10748 10776 10804 10832 10860 10888 10918 10947 10975 11004 11033 11062 11091 11127 11131 11135 11139 11143 11144 11175 11179 11183 11187 11191 11192 11239 11240 11241 11242 11243 11244 11246 11250 11254 11258 11262 11263 11289 11290 11293 11294 11300 11301 11304 11305 11326 11327 11330 11331 11337 11338 11341 11342 11363 11364 11367 11368 11374 11375 11378 11379 11406 11407 11410 11411 11414 11415 11418 11419 11425 11426 11429 11430 SCR2 42# 955 958 980 983 1005 1008 1030 1033 1055 1058 1080 1083 1105 1108 1184 1187 1206 1209 1241 1244 1263 1266 1298 1301 1320 1323 1355 1358 1377 1380 1412 1415 1434 1437 1469 1472 1491 1494 1526 1529 1548 1551 1583 1586 1605 1608 1655 1658 1698 1701 1723 1726 1790 1793 1800 1801 1804 1835 1838 1845 1846 1849 1880 1883 1890 1891 1894 1925 1928 1935 1936 1939 1970 1973 1980 1981 1984 2015 2018 2025 2026 2029 2134 2137 2144 2145 2149 2182 2185 2192 2193 2197 2230 2233 2240 2241 2245 2278 2281 2288 2289 2293 2326 2329 2336 2337 2341 2374 2377 2384 2385 2389 2439 2442 2449 2450 2454 2484 2487 2494 2495 2499 2529 2532 2539 2540 2544 2574 2577 2584 2585 2589 2619 2622 2629 2630 2634 2664 2667 2674 2675 2679 2729 2732 2739 2740 2744 2774 2777 2784 2785 2789 2819 2822 2829 2830 2834 2864 2867 2874 2875 2879 2909 2912 2919 2920 2924 2954 2957 2964 2965 2969 3019 3022 3029 3030 3034 3064 3067 3074 3075 3079 3109 3112 3119 3120 3124 3154 3157 3164 3165 3169 3199 3202 3209 3210 3214 3244 3247 3254 3255 3259 3309 3312 3319 3320 3324 3354 3357 3364 3365 3369 3399 3402 3409 3410 3414 3444 3447 3454 3455 3459 3489 3492 3499 3500 3504 3534 3537 3544 3545 3549 3753 3756 3763 3764 3767 3798 3801 3808 3809 3812 3843 3846 3853 3854 3857 3888 3891 3898 3899 3902 3933 3936 3943 3944 3947 3978 3981 3988 3989 3992 4023 4026 4033 4034 4037 4068 4071 4078 4079 4082 4175 4178 4200 4203 4225 4228 4250 4253 4275 4278 4300 4303 4378 4389 4393 4394 4400 4408 4423 4424 4428 4511 4514 4538 4541 4565 4568 4592 4595 4619 4622 4646 4649 4690 4693 4717 4720 4744 4747 4771 4774 4798 4801 4825 4828 4869 4872 4896 4899 4923 4926 4950 4953 4977 4980 5004 5007 5048 5051 5075 5078 5102 5105 5129 5132 5156 5159 5183 5186 5227 5230 5254 5257 5281 5284 5308 5311 5335 5338 5362 5365 5610 5613 5621 5622 5625 5658 5661 5669 5670 5673 5706 5709 5717 5718 5721 5754 5757 5765 5766 5769 5802 5805 5813 5814 5817 5850 5853 5861 5862 5865 5898 5901 5909 5910 5913 5946 5949 5957 5958 5961 6037 6056 6075 6094 6113 6132 6151 6170 6189 6208 6227 6246 6265 6296 6315 6334 6353 6372 6391 6410 6429 6448 6467 6486 6505 6543 6547 6548 6551 6570 6574 6575 6578 6598 6602 6603 6606 6626 6630 6631 6634 6653 6657 6658 6661 6680 6684 6685 6688 6708 6712 6713 6716 6735 6739 6740 6743 6762 6766 6767 6770 6790 6794 6795 6798 6817 6821 6822 6825 6844 6848 6849 6852 6872 6876 6877 6880 6900 6904 6905 6908 6927 6931 6932 6935 6954 6958 6959 6962 6982 6986 6987 6990 7009 7013 7014 7017 7036 7040 7041 7044 7064 7068 7069 7072 7110 7114 7115 7118 7137 7141 7142 7145 7165 7169 7170 7173 7193 7197 7198 7201 7220 7224 7225 7228 7247 7251 7252 7255 7276 7280 7281 7284 7303 7307 7308 7311 7330 7334 7335 7338 7359 7363 7364 7367 7386 7390 7391 7394 7413 7417 7418 7421 7441 7445 7446 7449 7469 7473 7474 7477 7496 7500 7501 7504 7523 7527 7528 7531 7552 7556 7557 7560 7579 7583 7584 7587 7606 7610 7611 7614 7635 7639 7640 7643 7726 7730 7731 7734 7753 7757 7758 7761 7780 SEQ 0318 7784 7785 7788 7807 7811 7812 7815 7844 7848 7849 7852 7871 7875 7876 7879 7898 7902 7903 7906 7925 7929 7930 7933 7952 7956 7957 7960 7979 7983 7984 7987 8006 8010 8011 8014 8033 8037 8038 8041 8060 8064 8065 8068 8087 8091 8092 8095 8114 8118 8119 8122 8141 8145 8146 8149 8168 8172 8173 8176 8195 8199 8200 8203 8222 8226 8227 8230 8249 8253 8254 8257 8276 8280 8281 8284 8304 8308 8309 8312 8332 8336 8337 8340 8359 8363 8364 8367 8386 8390 8391 8394 8413 8417 8418 8421 8440 8444 8445 8448 8467 8471 8472 8475 8507 8527 8557 8577 8611 8631 8651 8671 8691 8711 8731 8751 8771 8791 8811 8831 8851 8871 8891 8911 8931 8951 8971 8991 9011 9031 9051 9071 9107 9111 9112 9115 9137 9141 9142 9145 9166 9170 9171 9174 9196 9200 9201 9204 9226 9230 9231 9234 9256 9260 9261 9264 9287 9291 9292 9295 9317 9321 9322 9325 9347 9351 9352 9355 9377 9381 9382 9385 9407 9411 9412 9415 9449 9453 9454 9457 9477 9481 9482 9485 9506 9510 9511 9514 9534 9538 9539 9542 9562 9566 9567 9570 9590 9594 9595 9598 9618 9622 9623 9626 9646 9650 9651 9654 9674 9678 9679 9682 9702 9706 9707 9710 9730 9734 9735 9738 9758 9762 9763 9766 9786 9790 9791 9794 9814 9818 9819 9822 9842 9846 9847 9850 9870 9874 9875 9878 9915 9919 9920 9923 9943 9947 9948 9951 9971 9975 9976 9979 9999 10003 10004 10007 10029 10033 10034 10037 10059 10063 10064 10067 10088 10092 10093 10096 10118 10122 10123 10126 10187 10191 10192 10193 10196 10215 10219 10220 10221 10224 10243 10247 10248 10249 10252 10271 10275 10276 10277 10280 10299 10303 10304 10305 10308 10327 10331 10332 10333 10336 10355 10359 10360 10361 10364 10383 10387 10388 10389 10392 10411 10415 10416 10417 10420 10439 10443 10444 10445 10448 10467 10471 10472 10473 10476 10495 10499 10500 10501 10504 10523 10527 10528 10529 10532 10551 10555 10556 10557 10560 10579 10583 10584 10585 10588 10607 10611 10612 10613 10616 10635 10639 10640 10641 10644 10663 10667 10668 10669 10672 10692 10696 10697 10698 10701 10720 10724 10725 10726 10729 10748 10752 10753 10754 10757 10776 10780 10781 10782 10785 10804 10808 10809 10810 10813 10832 10836 10837 10838 10841 10860 10864 10865 10866 10869 10888 10892 10893 10894 10897 10918 10922 10923 10924 10927 10947 10951 10952 10953 10956 10975 10979 10980 10981 10984 11004 11008 11009 11010 11013 11033 11037 11038 11039 11042 11062 11066 11067 11068 11071 11091 11095 11096 11097 11100 11143 11191 11262 SCR3 43# 942 967 992 1017 1042 1067 1092 1171 1194 1228 1251 1285 1308 1342 1365 1399 1422 1456 1479 1513 1536 1570 1593 1641 1685 1710 1772 1773 1817 1818 1862 1863 1907 1908 1952 1953 1997 1998 2113 2161 2209 2257 2305 2353 2420 2465 2510 2555 2600 2645 2710 2755 2800 2845 2890 2935 3000 3045 3090 3135 3180 3225 3290 3335 3380 3425 3470 3515 3734 3779 3824 3869 3914 3959 4004 4049 4162 4187 4212 4237 4262 4287 4364 4365 4498 4525 4552 4579 4606 4633 4677 4704 4731 4758 4785 4812 4856 4883 4910 4937 4964 4991 5035 5062 5089 5116 5143 5170 5214 5241 5268 5295 5322 5349 5591 5617 5639 5665 5687 5713 5735 5761 5783 5809 5831 5857 5879 5905 5927 5953 7692 7693 11116 11164 11224 11289 11300 11326 11337 11363 11374 11406 11425 SENDC 5371 5532# SENDD 5967 6005# SFSTRT 574# SLASH 761# SM10 865# 11237 SNTRP 554# SPACE 750# SPRINT 4178 4203 4228 4253 4278 4303 4396 4428 4514 4541 4568 4595 4622 4649 4693 4720 4747 4774 4801 4828 4872 4899 4926 4953 4980 5007 5051 5078 5105 5132 5159 5186 5230 5257 5284 5311 5338 5365 5613 5625 5661 5673 SEQ 0319 5709 5721 5757 5769 5805 5817 5853 5865 5901 5913 5949 5961 11324# SRTDDT 52 580# START 51 568 920# START1 587# START2 588# START3 589# START4 590# START5 591# STARTA 49 50 53 583 921# STEST1 4162# 4179 STEST2 4187# 4204 STEST3 4212# 4229 STEST4 4237# 4254 STEST5 4262# 4279 STEST6 4287# 4304 STRP 554# SUBLNK 326# 584 SUBT 4353 4358 4434# SUBTR 4345# 4358 4360 4361 4363 4365 SWPTAB 871# SWTEXR 599# SYSEXR 572# T 924# 958 983 1008 1033 1058 1083 1108 1187 1209 1244 1266 1301 1323 1358 1380 1415 1437 1472 1494 1529 1551 1586 1608 1658 1701 1726 1793 1804 1838 1849 1883 1894 1928 1939 1973 1984 2018 2029 2137 2149 2185 2197 2233 2245 2281 2293 2329 2341 2377 2389 2442 2454 2487 2499 2532 2544 2577 2589 2622 2634 2667 2679 2732 2744 2777 2789 2822 2834 2867 2879 2912 2924 2957 2969 3022 3034 3067 3079 3112 3124 3157 3169 3202 3214 3247 3259 3312 3324 3357 3369 3402 3414 3447 3459 3492 3504 3537 3549 3756 3767 3801 3812 3846 3857 3891 3902 3936 3947 3981 3992 4026 4037 4071 4082 4145# 4178 4203 4228 4253 4278 4303 4396 4428 4514 4541 4568 4595 4622 4649 4693 4720 4747 4774 4801 4828 4872 4899 4926 4953 4980 5007 5051 5078 5105 5132 5159 5186 5230 5257 5284 5311 5338 5365 5613 5625 5661 5673 5709 5721 5757 5769 5805 5817 5853 5865 5901 5913 5949 5961 6008# 6037 6056 6075 6094 6113 6132 6151 6170 6189 6208 6227 6246 6265 6296 6315 6334 6353 6372 6391 6410 6429 6448 6467 6486 6505 6543 6551 6570 6578 6598 6606 6626 6634 6653 6661 6680 6688 6708 6716 6735 6743 6762 6770 6790 6798 6817 6825 6844 6852 6872 6880 6900 6908 6927 6935 6954 6962 6982 6990 7009 7017 7036 7044 7064 7072 7110 7118 7137 7145 7165 7173 7193 7201 7220 7228 7247 7255 7276 7284 7303 7311 7330 7338 7359 7367 7386 7394 7413 7421 7441 7449 7469 7477 7496 7504 7523 7531 7552 7560 7579 7587 7606 7614 7635 7643 7688 7695 7726 7734 7753 7761 7780 7788 7807 7815 7844 7852 7871 7879 7898 7906 7925 7933 7952 7960 7979 7987 8006 8014 8033 8041 8060 8068 8087 8095 8114 8122 8141 8149 8168 8176 8195 8203 8222 8230 8249 8257 8276 8284 8304 8312 8332 8340 8359 8367 8386 8394 8413 8421 8440 8448 8467 8475 8481# 8507 8527 8557 8577 8611 8631 8651 8671 8691 8711 8731 8751 8771 8791 8811 8831 8851 8871 8891 8911 8931 8951 8971 8991 9011 9031 9051 9071 9107 9115 9137 9145 9166 9174 9196 9204 9226 9234 9256 9264 9287 9295 9317 9325 9347 9355 9377 9385 9407 9415 9449 9457 9477 9485 9506 9514 9534 9542 9562 9570 9590 9598 9618 9626 9646 9654 9674 9682 9702 9710 9730 9738 9758 9766 9786 9794 9814 9822 9842 9850 9870 9878 9915 9923 9943 9951 9971 9979 9999 10007 10029 10037 10059 10067 10088 10096 10118 10126 10187 SEQ 0320 10196 10215 10224 10243 10252 10271 10280 10299 10308 10327 10336 10355 10364 10383 10392 10411 10420 10439 10448 10467 10476 10495 10504 10523 10532 10551 10560 10579 10588 10607 10616 10635 10644 10663 10672 10692 10701 10720 10729 10748 10757 10776 10785 10804 10813 10832 10841 10860 10869 10888 10897 10918 10927 10947 10956 10975 10984 11004 11013 11033 11042 11062 11071 11091 11100 TAB 751# TEMP 1643 1649 1652 1655 1668# TESTPC 626# THREE 9086# 9102 9132 9161 9191 9312 TICKS 629# TN0 554# TN1 554# TOTALS 292# TRP3TP 554# TTNBRF 809# TTYFIL 725# TTYSPD 726# TWO 9085# 9161 9191 9251 9402 TXTINH 303# UBAVEC 554# USER 616# USERF 554# USRASB 70# 606 USRCRF 735# USRLFF 734# UUODIS 688# UUOEXT 644# UUORTN 645# UUOSKP 642# $$MUUO 840# $$OUTE 846# $$TAX1 858# $$TAX2 859# $$TOGG 852# $$UUO 829# $ACC0 667# $BEND1 637# $BEND2 638# $CHRIN 728# $CRLF 730# $DEVCH 554# $DSKUP 607# $DVOFF 724# $EMODE 605# $FFF 732# $IBUF 780# $INEXT 782# $INNM 781# $ITRHL 648# $ITRX1 649# $LPAPE 11458 $MMAP 608# $MODVL 603# SEQ 0321 $MODVU 604# $OBUF 771# $ONETM 631# $OUTEX 773# $OUTNM 772# $PAPER 554 $PARER 655# $PNAME 601# $PSHER 659# $PVER 602# $RSRTX 651# $RSRTY 652# $SPAG1 671# $START 568# $SVAPR 669# $SVPAG 670# $SVPI 668# $SVUPC 674# $SVUUO 673# $TABF 731# $TTCHR 727# $TWCNT 723# $TYPNB 729# $UMODE 606# $UORTX 646# $USRHL 650# $UUOER 647# 688 $VTF 733# %ACTFL 680# %ACTUL 681# %COREC 679# %CORFL 678# %DISCR 682# %ERHI1 821# %ERHI2 822# %ERHI3 823# ..0001 949 955# ..0002 952 957# ..0003 974 980# ..0004 977 982# ..0005 999 1005# ..0006 1002 1007# ..0007 1024 1030# ..0010 1027 1032# ..0011 1049 1055# ..0012 1052 1057# ..0013 1074 1080# ..0014 1077 1082# ..0015 1099 1105# ..0016 1102 1107# ..0017 1178 1184# ..0020 1181 1186# ..0021 1200 1206# SEQ 0322 ..0022 1203 1208# ..0023 1235 1241# ..0024 1238 1243# ..0025 1257 1263# ..0026 1260 1265# ..0027 1292 1298# ..0030 1295 1300# ..0031 1314 1320# ..0032 1317 1322# ..0033 1349 1355# ..0034 1352 1357# ..0035 1371 1377# ..0036 1374 1379# ..0037 1406 1412# ..0040 1409 1414# ..0041 1428 1434# ..0042 1431 1436# ..0043 1463 1469# ..0044 1466 1471# ..0045 1485 1491# ..0046 1488 1493# ..0047 1520 1526# ..0050 1523 1528# ..0051 1542 1548# ..0052 1545 1550# ..0053 1577 1583# ..0054 1580 1585# ..0055 1599 1605# ..0056 1602 1607# ..0057 1692 1698# ..0060 1695 1700# ..0061 1717 1723# ..0062 1720 1725# ..0063 1784 1790# ..0064 1787 1792# ..0065 1829 1835# ..0066 1832 1837# ..0067 1874 1880# ..0070 1877 1882# ..0071 1919 1925# ..0072 1922 1927# ..0073 1964 1970# ..0074 1967 1972# ..0075 2009 2015# ..0076 2012 2017# ..0077 2128 2134# ..0100 2131 2136# ..0101 2176 2182# ..0102 2179 2184# ..0103 2224 2230# ..0104 2227 2232# ..0105 2272 2278# ..0106 2275 2280# SEQ 0323 ..0107 2320 2326# ..0110 2323 2328# ..0111 2368 2374# ..0112 2371 2376# ..0113 2433 2439# ..0114 2436 2441# ..0115 2478 2484# ..0116 2481 2486# ..0117 2523 2529# ..0120 2526 2531# ..0121 2568 2574# ..0122 2571 2576# ..0123 2613 2619# ..0124 2616 2621# ..0125 2658 2664# ..0126 2661 2666# ..0127 2723 2729# ..0130 2726 2731# ..0131 2768 2774# ..0132 2771 2776# ..0133 2813 2819# ..0134 2816 2821# ..0135 2858 2864# ..0136 2861 2866# ..0137 2903 2909# ..0140 2906 2911# ..0141 2948 2954# ..0142 2951 2956# ..0143 3013 3019# ..0144 3016 3021# ..0145 3058 3064# ..0146 3061 3066# ..0147 3103 3109# ..0150 3106 3111# ..0151 3148 3154# ..0152 3151 3156# ..0153 3193 3199# ..0154 3196 3201# ..0155 3238 3244# ..0156 3241 3246# ..0157 3303 3309# ..0160 3306 3311# ..0161 3348 3354# ..0162 3351 3356# ..0163 3393 3399# ..0164 3396 3401# ..0165 3438 3444# ..0166 3441 3446# ..0167 3483 3489# ..0170 3486 3491# ..0171 3528 3534# ..0172 3531 3536# ..0173 3747 3753# SEQ 0324 ..0174 3750 3755# ..0175 3792 3798# ..0176 3795 3800# ..0177 3837 3843# ..0200 3840 3845# ..0201 3882 3888# ..0202 3885 3890# ..0203 3927 3933# ..0204 3930 3935# ..0205 3972 3978# ..0206 3975 3980# ..0207 4017 4023# ..0210 4020 4025# ..0211 4062 4068# ..0212 4065 4070# ..0213 4169 4175# ..0214 4172 4177# ..0215 4194 4200# ..0216 4197 4202# ..0217 4219 4225# ..0220 4222 4227# ..0221 4244 4250# ..0222 4247 4252# ..0223 4269 4275# ..0224 4272 4277# ..0225 4294 4300# ..0226 4297 4302# ..0227 4505 4511# ..0230 4508 4513# ..0231 4532 4538# ..0232 4535 4540# ..0233 4559 4565# ..0234 4562 4567# ..0235 4586 4592# ..0236 4589 4594# ..0237 4613 4619# ..0240 4616 4621# ..0241 4640 4646# ..0242 4643 4648# ..0243 4684 4690# ..0244 4687 4692# ..0245 4711 4717# ..0246 4714 4719# ..0247 4738 4744# ..0250 4741 4746# ..0251 4765 4771# ..0252 4768 4773# ..0253 4792 4798# ..0254 4795 4800# ..0255 4819 4825# ..0256 4822 4827# ..0257 4863 4869# ..0260 4866 4871# SEQ 0325 ..0261 4890 4896# ..0262 4893 4898# ..0263 4917 4923# ..0264 4920 4925# ..0265 4944 4950# ..0266 4947 4952# ..0267 4971 4977# ..0270 4974 4979# ..0271 4998 5004# ..0272 5001 5006# ..0273 5042 5048# ..0274 5045 5050# ..0275 5069 5075# ..0276 5072 5077# ..0277 5096 5102# ..0300 5099 5104# ..0301 5123 5129# ..0302 5126 5131# ..0303 5150 5156# ..0304 5153 5158# ..0305 5177 5183# ..0306 5180 5185# ..0307 5221 5227# ..0310 5224 5229# ..0311 5248 5254# ..0312 5251 5256# ..0313 5275 5281# ..0314 5278 5283# ..0315 5302 5308# ..0316 5305 5310# ..0317 5329 5335# ..0320 5332 5337# ..0321 5356 5362# ..0322 5359 5364# ..0323 5604 5610# ..0324 5607 5612# ..0325 5652 5658# ..0326 5655 5660# ..0327 5700 5706# ..0330 5703 5708# ..0331 5748 5754# ..0332 5751 5756# ..0333 5796 5802# ..0334 5799 5804# ..0335 5844 5850# ..0336 5847 5852# ..0337 5892 5898# ..0340 5895 5900# ..0341 5940 5946# ..0342 5943 5948# ..0343 6033# 6038 ..0344 6052# 6057 ..0345 6071# 6076 SEQ 0326 ..0346 6090# 6095 ..0347 6109# 6114 ..0350 6128# 6133 ..0351 6147# 6152 ..0352 6166# 6171 ..0353 6185# 6190 ..0354 6204# 6209 ..0355 6223# 6228 ..0356 6242# 6247 ..0357 6261# 6266 ..0360 6292# 6297 ..0361 6311# 6316 ..0362 6330# 6335 ..0363 6349# 6354 ..0364 6368# 6373 ..0365 6387# 6392 ..0366 6406# 6411 ..0367 6425# 6430 ..0370 6444# 6449 ..0371 6463# 6468 ..0372 6482# 6487 ..0373 6501# 6506 ..0374 6539# 6544 6552 ..0375 6547# ..0376 6566# 6571 6579 ..0377 6574# ..0400 6593# 6599 6607 ..0401 6602# ..0402 6621# 6627 6635 ..0403 6630# ..0404 6649# 6654 6662 ..0405 6657# ..0406 6676# 6681 6689 ..0407 6684# ..0410 6703# 6709 6717 ..0411 6712# ..0412 6731# 6736 6744 ..0413 6739# ..0414 6758# 6763 6771 ..0415 6766# ..0416 6785# 6791 6799 ..0417 6794# ..0420 6813# 6818 6826 ..0421 6821# ..0422 6840# 6845 6853 ..0423 6848# ..0424 6867# 6873 6881 ..0425 6876# ..0426 6895# 6901 6909 ..0427 6904# ..0430 6923# 6928 6936 ..0431 6931# ..0432 6950# 6955 6963 SEQ 0327 ..0433 6958# ..0434 6977# 6983 6991 ..0435 6986# ..0436 7005# 7010 7018 ..0437 7013# ..0440 7032# 7037 7045 ..0441 7040# ..0442 7059# 7065 7073 ..0443 7068# ..0444 7106# 7111 7119 ..0445 7114# ..0446 7133# 7138 7146 ..0447 7141# ..0450 7160# 7166 7174 ..0451 7169# ..0452 7188# 7194 7202 ..0453 7197# ..0454 7216# 7221 7229 ..0455 7224# ..0456 7243# 7248 7256 ..0457 7251# ..0460 7271# 7277 7285 ..0461 7280# ..0462 7299# 7304 7312 ..0463 7307# ..0464 7326# 7331 7339 ..0465 7334# ..0466 7354# 7360 7368 ..0467 7363# ..0470 7382# 7387 7395 ..0471 7390# ..0472 7409# 7414 7422 ..0473 7417# ..0474 7436# 7442 7450 ..0475 7445# ..0476 7464# 7470 7478 ..0477 7473# ..0500 7492# 7497 7505 ..0501 7500# ..0502 7519# 7524 7532 ..0503 7527# ..0504 7547# 7553 7561 ..0505 7556# ..0506 7575# 7580 7588 ..0507 7583# ..0510 7602# 7607 7615 ..0511 7610# ..0512 7630# 7636 7644 ..0513 7639# ..0514 7722# 7727 7735 ..0515 7730# ..0516 7749# 7754 7762 ..0517 7757# SEQ 0328 ..0520 7776# 7781 7789 ..0521 7784# ..0522 7803# 7808 7816 ..0523 7811# ..0524 7840# 7845 7853 ..0525 7848# ..0526 7867# 7872 7880 ..0527 7875# ..0530 7894# 7899 7907 ..0531 7902# ..0532 7921# 7926 7934 ..0533 7929# ..0534 7948# 7953 7961 ..0535 7956# ..0536 7975# 7980 7988 ..0537 7983# ..0540 8002# 8007 8015 ..0541 8010# ..0542 8029# 8034 8042 ..0543 8037# ..0544 8056# 8061 8069 ..0545 8064# ..0546 8083# 8088 8096 ..0547 8091# ..0550 8110# 8115 8123 ..0551 8118# ..0552 8137# 8142 8150 ..0553 8145# ..0554 8164# 8169 8177 ..0555 8172# ..0556 8191# 8196 8204 ..0557 8199# ..0560 8218# 8223 8231 ..0561 8226# ..0562 8245# 8250 8258 ..0563 8253# ..0564 8272# 8277 8285 ..0565 8280# ..0566 8299# 8305 8313 ..0567 8308# ..0570 8327# 8333 8341 ..0571 8336# ..0572 8355# 8360 8368 ..0573 8363# ..0574 8382# 8387 8395 ..0575 8390# ..0576 8409# 8414 8422 ..0577 8417# ..0600 8436# 8441 8449 ..0601 8444# ..0602 8463# 8468 8476 ..0603 8471# ..0604 8503# 8508 SEQ 0329 ..0605 8523# 8528 ..0606 8553# 8558 ..0607 8573# 8578 ..0610 8607# 8612 ..0611 8627# 8632 ..0612 8647# 8652 ..0613 8667# 8672 ..0614 8687# 8692 ..0615 8707# 8712 ..0616 8727# 8732 ..0617 8747# 8752 ..0620 8767# 8772 ..0621 8787# 8792 ..0622 8807# 8812 ..0623 8827# 8832 ..0624 8847# 8852 ..0625 8867# 8872 ..0626 8887# 8892 ..0627 8907# 8912 ..0630 8927# 8932 ..0631 8947# 8952 ..0632 8967# 8972 ..0633 8987# 8992 ..0634 9007# 9012 ..0635 9027# 9032 ..0636 9047# 9052 ..0637 9067# 9072 ..0640 9102# 9108 9116 ..0641 9111# ..0642 9132# 9138 9146 ..0643 9141# ..0644 9161# 9167 9175 ..0645 9170# ..0646 9191# 9197 9205 ..0647 9200# ..0650 9221# 9227 9235 ..0651 9230# ..0652 9251# 9257 9265 ..0653 9260# ..0654 9282# 9288 9296 ..0655 9291# ..0656 9312# 9318 9326 ..0657 9321# ..0660 9342# 9348 9356 ..0661 9351# ..0662 9372# 9378 9386 ..0663 9381# ..0664 9402# 9408 9416 ..0665 9411# ..0666 9444# 9450 9458 ..0667 9453# ..0670 9473# 9478 9486 ..0671 9481# SEQ 0330 ..0672 9501# 9507 9515 ..0673 9510# ..0674 9530# 9535 9543 ..0675 9538# ..0676 9558# 9563 9571 ..0677 9566# ..0700 9586# 9591 9599 ..0701 9594# ..0702 9614# 9619 9627 ..0703 9622# ..0704 9642# 9647 9655 ..0705 9650# ..0706 9670# 9675 9683 ..0707 9678# ..0710 9698# 9703 9711 ..0711 9706# ..0712 9726# 9731 9739 ..0713 9734# ..0714 9754# 9759 9767 ..0715 9762# ..0716 9782# 9787 9795 ..0717 9790# ..0720 9810# 9815 9823 ..0721 9818# ..0722 9838# 9843 9851 ..0723 9846# ..0724 9866# 9871 9879 ..0725 9874# ..0726 9911# 9916 9924 ..0727 9919# ..0730 9939# 9944 9952 ..0731 9947# ..0732 9967# 9972 9980 ..0733 9975# ..0734 9995# 10000 10008 ..0735 10003# ..0736 10024# 10030 10038 ..0737 10033# ..0740 10054# 10060 10068 ..0741 10063# ..0742 10083# 10089 10097 ..0743 10092# ..0744 10113# 10119 10127 ..0745 10122# ..0746 10183# 10188 10197 ..0747 10191# ..0750 10211# 10216 10225 ..0751 10219# ..0752 10239# 10244 10253 ..0753 10247# ..0754 10267# 10272 10281 ..0755 10275# ..0756 10295# 10300 10309 SEQ 0331 ..0757 10303# ..0760 10323# 10328 10337 ..0761 10331# ..0762 10351# 10356 10365 ..0763 10359# ..0764 10379# 10384 10393 ..0765 10387# ..0766 10407# 10412 10421 ..0767 10415# ..0770 10435# 10440 10449 ..0771 10443# ..0772 10463# 10468 10477 ..0773 10471# ..0774 10491# 10496 10505 ..0775 10499# ..0776 10519# 10524 10533 ..0777 10527# ..1000 10547# 10552 10561 ..1001 10555# ..1002 10575# 10580 10589 ..1003 10583# ..1004 10603# 10608 10617 ..1005 10611# ..1006 10631# 10636 10645 ..1007 10639# ..1010 10659# 10664 10673 ..1011 10667# ..1012 10687# 10693 10702 ..1013 10696# ..1014 10716# 10721 10730 ..1015 10724# ..1016 10744# 10749 10758 ..1017 10752# ..1020 10772# 10777 10786 ..1021 10780# ..1022 10800# 10805 10814 ..1023 10808# ..1024 10828# 10833 10842 ..1025 10836# ..1026 10856# 10861 10870 ..1027 10864# ..1030 10884# 10889 10898 ..1031 10892# ..1032 10913# 10919 10928 ..1033 10922# ..1034 10942# 10948 10957 ..1035 10951# ..1036 10971# 10976 10985 ..1037 10979# ..1040 11000# 11005 11014 ..1041 11008# ..1042 11029# 11034 11043 ..1043 11037# SEQ 0332 ..1044 11058# 11063 11072 ..1045 11066# ..1046 11087# 11092 11101 ..1047 11095# .JB41 554# .JBAPR 554# .JBCNI 554# .JBDDT 554# .JBFF 554# .JBOPC 554# .JBREL 554# .JBREN 554# .JBSA 554# .JBSYM 554# .JBTPC 554# .JBUSY 554# .JBUUO 554# .JBVER 554# APRID 554# BCIO 554# SEQ 0333 BCIOB 554# BSIO 554# BSIOB 554# CFLUSH 476# CHECKA 204# 945 970 995 1020 1045 1070 1095 1174 1196 1231 1253 1288 1310 1345 1367 1402 1424 1459 1481 1516 1538 1573 1595 1688 1713 2124 2172 2220 2268 2316 2364 2429 2474 2519 2564 2609 2654 2719 2764 2809 2854 2899 2944 3009 3054 3099 3144 3189 3234 3299 3344 3389 3434 3479 3524 CHECKB 245# 1780 1825 1870 1915 1960 2005 3743 3788 3833 3878 3923 3968 4013 4058 CHECKS 224# 4165 4190 4215 4240 4265 4290 5038 5065 5092 5119 5146 5173 5217 5244 5271 5298 5325 5352 5600 5648 5696 5744 5792 5840 5888 5936 CHECKT 265# 4501 4528 4555 4582 4609 4636 4680 4707 4734 4761 4788 4815 4859 4886 4913 4940 4967 4994 CINVAL 475# CLOKOP 470# CLRPT 554# CWRTBI 477# DROPDV 437# ENDUUO 483# 636 EOPUUO 484# 638 ERLOOP 524# 959 984 1009 1034 1059 1084 1109 1188 1210 1245 1267 1302 1324 1359 1381 1416 1438 1473 1495 1530 1552 1587 1609 1659 1702 1727 1794 1805 1839 1850 1884 1895 1929 1940 1974 1985 2019 2030 2138 2150 2186 2198 2234 2246 2282 2294 2330 2342 2378 2390 2443 2455 2488 2500 2533 2545 2578 2590 2623 2635 2668 2680 2733 2745 2778 2790 2823 2835 2868 2880 2913 2925 2958 2970 3023 3035 3068 3080 3113 3125 3158 3170 3203 3215 3248 3260 3313 3325 3358 3370 3403 3415 3448 3460 3493 3505 3538 3550 3757 3768 3802 3813 3847 3858 3892 3903 3937 3948 3982 3993 4027 4038 4072 4083 4179 4204 4229 4254 4279 4304 4397 4429 4515 4542 4569 4596 4623 4650 4694 4721 4748 4775 4802 4829 4873 4900 4927 4954 4981 5008 5052 5079 5106 5133 5160 5187 5231 5258 5285 5312 5339 5366 5614 5626 5662 5674 5710 5722 5758 5770 5806 5818 5854 5866 5902 5914 5950 5962 6038 6057 6076 6095 6114 6133 6152 6171 6190 6209 6228 6247 6266 6297 6316 6335 6354 6373 6392 6411 6430 6449 6468 6487 6506 6544 6552 6571 6579 6599 6607 6627 6635 6654 6662 6681 6689 6709 6717 6736 6744 6763 6771 6791 6799 6818 6826 6845 6853 6873 6881 6901 6909 6928 6936 6955 6963 6983 6991 7010 7018 7037 7045 7065 7073 7111 7119 7138 7146 7166 7174 7194 7202 7221 7229 7248 7256 7277 7285 7304 7312 7331 7339 7360 7368 7387 7395 7414 7422 7442 7450 7470 7478 7497 7505 7524 7532 7553 7561 7580 7588 7607 7615 7636 7644 7689 7696 7727 7735 7754 7762 7781 7789 7808 7816 7845 7853 7872 7880 7899 7907 7926 7934 7953 7961 7980 7988 8007 8015 8034 8042 8061 8069 8088 8096 8115 8123 8142 8150 8169 8177 8196 8204 8223 8231 8250 8258 8277 8285 8305 8313 8333 8341 8360 8368 8387 8395 8414 8422 8441 8449 8468 8476 8508 8528 8558 8578 8612 8632 8652 8672 8692 8712 8732 8752 8772 8792 8812 8832 8852 8872 8892 8912 8932 8952 8972 8992 9012 9032 9052 9072 9108 9116 9138 9146 9167 9175 9197 9205 9227 9235 9257 9265 9288 9296 9318 9326 9348 9356 9378 9386 9408 9416 9450 9458 9478 9486 9507 9515 9535 9543 9563 9571 9591 9599 9619 9627 9647 9655 9675 9683 9703 9711 9731 9739 9759 9767 9787 9795 9815 9823 9843 9851 9871 9879 9916 9924 9944 9952 9972 9980 10000 10008 10030 10038 10060 10068 10089 10097 10119 10127 10188 10197 10216 10225 10244 10253 10272 10281 10300 10309 10328 10337 10356 10365 10384 10393 10412 10421 SEQ 0334 10440 10449 10468 10477 10496 10505 10524 10533 10552 10561 10580 10589 10608 10617 10636 10645 10664 10673 10693 10702 10721 10730 10749 10758 10777 10786 10805 10814 10833 10842 10861 10870 10889 10898 10919 10928 10948 10957 10976 10985 11005 11014 11034 11043 11063 11072 11092 11101 ERLP1 525# ERLP2 526# ERRHLT 371# ERROR 533# 912# 957 982 1007 1032 1057 1082 1107 1186 1208 1243 1265 1300 1322 1357 1379 1414 1436 1471 1493 1528 1550 1585 1607 1657 1700 1725 1792 1803 1837 1848 1882 1893 1927 1938 1972 1983 2017 2028 2136 2147 2184 2195 2232 2243 2280 2291 2328 2339 2376 2387 2441 2452 2486 2497 2531 2542 2576 2587 2621 2632 2666 2677 2731 2742 2776 2787 2821 2832 2866 2877 2911 2922 2956 2967 3021 3032 3066 3077 3111 3122 3156 3167 3201 3212 3246 3257 3311 3322 3356 3367 3401 3412 3446 3457 3491 3502 3536 3547 3755 3766 3800 3811 3845 3856 3890 3901 3935 3946 3980 3991 4025 4036 4070 4081 4177 4202 4227 4252 4277 4302 4395 4426 4513 4540 4567 4594 4621 4648 4692 4719 4746 4773 4800 4827 4871 4898 4925 4952 4979 5006 5050 5077 5104 5131 5158 5185 5229 5256 5283 5310 5337 5364 5612 5624 5660 5672 5708 5720 5756 5768 5804 5816 5852 5864 5900 5912 5948 5960 6036 6055 6074 6093 6112 6131 6150 6169 6188 6207 6226 6245 6264 6295 6314 6333 6352 6371 6390 6409 6428 6447 6466 6485 6504 6542 6549 6569 6576 6597 6604 6625 6632 6652 6659 6679 6686 6707 6714 6734 6741 6761 6768 6789 6796 6816 6823 6843 6850 6871 6878 6899 6906 6926 6933 6953 6960 6981 6988 7008 7015 7035 7042 7063 7070 7109 7116 7136 7143 7164 7171 7192 7199 7219 7226 7246 7253 7275 7282 7302 7309 7329 7336 7358 7365 7385 7392 7412 7419 7440 7447 7468 7475 7495 7502 7522 7529 7551 7558 7578 7585 7605 7612 7634 7641 7687 7694 7725 7732 7752 7759 7779 7786 7806 7813 7843 7850 7870 7877 7897 7904 7924 7931 7951 7958 7978 7985 8005 8012 8032 8039 8059 8066 8086 8093 8113 8120 8140 8147 8167 8174 8194 8201 8221 8228 8248 8255 8275 8282 8303 8310 8331 8338 8358 8365 8385 8392 8412 8419 8439 8446 8466 8473 8506 8526 8556 8576 8610 8630 8650 8670 8690 8710 8730 8750 8770 8790 8810 8830 8850 8870 8890 8910 8930 8950 8970 8990 9010 9030 9050 9070 9106 9113 9136 9143 9165 9172 9195 9202 9225 9232 9255 9262 9286 9293 9316 9323 9346 9353 9376 9383 9406 9413 9448 9455 9476 9483 9505 9512 9533 9540 9561 9568 9589 9596 9617 9624 9645 9652 9673 9680 9701 9708 9729 9736 9757 9764 9785 9792 9813 9820 9841 9848 9869 9876 9914 9921 9942 9949 9970 9977 9998 10005 10028 10035 10058 10065 10087 10094 10117 10124 10186 10194 10214 10222 10242 10250 10270 10278 10298 10306 10326 10334 10354 10362 10382 10390 10410 10418 10438 10446 10466 10474 10494 10502 10522 10530 10550 10558 10578 10586 10606 10614 10634 10642 10662 10670 10691 10699 10719 10727 10747 10755 10775 10783 10803 10811 10831 10839 10859 10867 10887 10895 10917 10925 10946 10954 10974 10982 11003 11011 11032 11040 11061 11069 11090 11098 ERROR1 544# ERUUO 523# 958 983 1008 1033 1058 1083 1108 1187 1209 1244 1266 1301 1323 1358 1380 1415 1437 1472 1494 1529 1551 1586 1608 1658 1701 1726 1793 1804 1838 1849 1883 1894 1928 1939 1973 1984 2018 2029 2137 2149 2185 2197 2233 2245 2281 2293 2329 2341 2377 2389 2442 2454 2487 2499 2532 2544 2577 2589 2622 2634 2667 2679 2732 2744 2777 2789 2822 2834 2867 2879 2912 2924 2957 2969 3022 3034 3067 3079 3112 3124 3157 3169 3202 3214 3247 3259 3312 3324 3357 3369 3402 3414 3447 3459 3492 3504 3537 3549 3756 3767 3801 3812 3846 3857 3891 3902 3936 3947 3981 3992 4026 4037 4071 4082 4178 4203 4228 4253 4278 4303 4396 4428 4514 4541 4568 SEQ 0335 4595 4622 4649 4693 4720 4747 4774 4801 4828 4872 4899 4926 4953 4980 5007 5051 5078 5105 5132 5159 5186 5230 5257 5284 5311 5338 5365 5613 5625 5661 5673 5709 5721 5757 5769 5805 5817 5853 5865 5901 5913 5949 5961 6037 6056 6075 6094 6113 6132 6151 6170 6189 6208 6227 6246 6265 6296 6315 6334 6353 6372 6391 6410 6429 6448 6467 6486 6505 6543 6551 6570 6578 6598 6606 6626 6634 6653 6661 6680 6688 6708 6716 6735 6743 6762 6770 6790 6798 6817 6825 6844 6852 6872 6880 6900 6908 6927 6935 6954 6962 6982 6990 7009 7017 7036 7044 7064 7072 7110 7118 7137 7145 7165 7173 7193 7201 7220 7228 7247 7255 7276 7284 7303 7311 7330 7338 7359 7367 7386 7394 7413 7421 7441 7449 7469 7477 7496 7504 7523 7531 7552 7560 7579 7587 7606 7614 7635 7643 7688 7695 7726 7734 7753 7761 7780 7788 7807 7815 7844 7852 7871 7879 7898 7906 7925 7933 7952 7960 7979 7987 8006 8014 8033 8041 8060 8068 8087 8095 8114 8122 8141 8149 8168 8176 8195 8203 8222 8230 8249 8257 8276 8284 8304 8312 8332 8340 8359 8367 8386 8394 8413 8421 8440 8448 8467 8475 8507 8527 8557 8577 8611 8631 8651 8671 8691 8711 8731 8751 8771 8791 8811 8831 8851 8871 8891 8911 8931 8951 8971 8991 9011 9031 9051 9071 9107 9115 9137 9145 9166 9174 9196 9204 9226 9234 9256 9264 9287 9295 9317 9325 9347 9355 9377 9385 9407 9415 9449 9457 9477 9485 9506 9514 9534 9542 9562 9570 9590 9598 9618 9626 9646 9654 9674 9682 9702 9710 9730 9738 9758 9766 9786 9794 9814 9822 9842 9850 9870 9878 9915 9923 9943 9951 9971 9979 9999 10007 10029 10037 10059 10067 10088 10096 10118 10126 10187 10196 10215 10224 10243 10252 10271 10280 10299 10308 10327 10336 10355 10364 10383 10392 10411 10420 10439 10448 10467 10476 10495 10504 10523 10532 10551 10560 10579 10588 10607 10616 10635 10644 10663 10672 10692 10701 10720 10729 10748 10757 10776 10785 10804 10813 10832 10841 10860 10869 10888 10897 10918 10927 10947 10956 10975 10984 11004 11013 11033 11042 11062 11071 11091 11100 FATAL 370# FRD36 512# FRD8 513# FREAD 511# FSELEC 510# GET 354# 11147 11195 11266 GO 351# 6035 6054 6073 6092 6111 6130 6149 6168 6187 6206 6225 6244 6263 6294 6313 6332 6351 6370 6389 6408 6427 6446 6465 6484 6503 6541 6568 6596 6624 6651 6678 6706 6733 6760 6788 6815 6842 6870 6898 6925 6952 6980 7007 7034 7062 7108 7135 7163 7191 7218 7245 7274 7301 7328 7357 7384 7411 7439 7467 7494 7521 7550 7577 7604 7633 7724 7751 7778 7805 7842 7869 7896 7923 7950 7977 8004 8031 8058 8085 8112 8139 8166 8193 8220 8247 8274 8302 8330 8357 8384 8411 8438 8465 8505 8525 8555 8575 8609 8629 8649 8669 8689 8709 8729 8749 8769 8789 8809 8829 8849 8869 8889 8909 8929 8949 8969 8989 9009 9029 9049 9069 9105 9135 9164 9194 9224 9254 9285 9315 9345 9375 9405 9447 9475 9504 9532 9560 9588 9616 9644 9672 9700 9728 9756 9784 9812 9840 9868 9913 9941 9969 9997 10027 10057 10086 10116 10185 10213 10241 10269 10297 10325 10353 10381 10409 10437 10465 10493 10521 10549 10577 10605 10633 10661 10690 10718 10746 10774 10802 10830 10858 10886 10916 10945 10973 11002 11031 11060 11089 HALT 55 56 57 58 59 356# 657 JEN 358# JRSTF 357# 11168 11230 MAPADR 493# MAPCNK 494# MAPMEM 490# SEQ 0336 MAPPNT 496# MAPSET 495# MEMSEG 492# MEMZRO 491# MODPCP 503# MODPCU 502# MTROP 471# MULT 101# 6027 6046 6065 6084 6103 6122 6141 6160 6179 6198 6217 6236 6255 6286 6305 6324 6343 6362 6381 6400 6419 6438 6457 6476 6495 MULTF 118# 6533 6560 6587 6615 6643 6670 6697 6725 6752 6779 6807 6834 6861 6889 6917 6944 6971 6999 7026 7053 7100 7127 7154 7182 7210 7237 7264 7293 7320 7347 7376 7403 7430 7458 7486 7513 7540 7569 7596 7623 7716 7743 7770 7797 7834 7861 7888 7915 7942 7969 7996 8023 8050 8077 8104 8131 8158 8185 8212 8239 8266 8293 8321 8349 8376 8403 8430 8457 NAME 7# 10 ODIV 180# 10177 10205 10233 10261 10289 10317 10345 10373 10401 10429 10457 10485 10513 10541 10569 10597 10625 10653 10681 10710 10738 10766 10794 10822 10850 10878 10906 10936 10965 10994 11023 11052 11081 PBELL 446# PCRL 440# 11297 11308 11317 11334 11345 11354 11371 11382 11397 11422 11433 11450 PCRL2 444# PCRL2F 445# PCRLF 441# PCSAVE 78# 1775 1820 1865 1910 1955 2000 2117 2165 2213 2261 2309 2357 2424 2469 2514 2559 2604 2649 2714 2759 2804 2849 2894 2939 3004 3049 3094 3139 3184 3229 3294 3339 3384 3429 3474 3519 3738 3783 3828 3873 3918 3963 4008 4053 4382 5595 5643 5691 5739 5787 5835 5883 5931 7670 PDIV 139# 8496 8516 8546 8566 8600 8620 8640 8660 8680 8700 8720 8740 8760 8780 8800 8820 8840 8860 8880 8900 8920 8940 8960 8980 9000 9020 9040 9060 PDIVF 157# 9094 9124 9154 9183 9213 9243 9274 9304 9334 9364 9394 9437 9466 9494 9523 9551 9579 9607 9635 9663 9691 9719 9747 9775 9803 9831 9859 9904 9932 9960 9988 10016 10046 10076 10105 PFORCE 448# PGMINT 364# 920 PJRST 355# PMSG 450# 11287 11298 11309 11324 11335 11346 11361 11372 11383 11404 11423 11434 11442 PMSGF 453# PNT1 406# PNT11 420# PNT11F 421# PNT1F 407# PNT2 408# PNT2F 409# PNT3 410# PNT3F 411# PNT4 412# PNT4F 413# PNT5 414# PNT5F 415# PNT6 416# PNT6F 417# PNT7 418# SEQ 0337 PNT7F 419# PNTA 392# PNTADF 423# PNTADR 422# PNTAF 393# PNTAL 394# PNTALF 395# PNTCHF 405# PNTCHR 404# PNTCI 402# PNTCIF 403# PNTCW 438# PNTCWF 439# PNTDCF 431# PNTDEC 430# PNTDS 432# PNTDSF 433# PNTHW 426# PNTHWF 427# PNTMSF 399# PNTMSG 398# PNTNM 434# PNTOCF 429# PNTOCS 428# PNTOCT 424# 11291 11295 11302 11306 11312 11315 11328 11332 11339 11343 11349 11352 11365 11369 11376 11380 11386 11389 11392 11395 11408 11412 11416 11420 11427 11431 11437 11440 11445 11448 PNTOTF 425# PNTSIX 435# PNTSXF 436# PSIXL 396# PSIXLF 397# PSIXM 400# 11287 11298 11309 11324 11335 11346 11361 11372 11383 11404 11423 11434 11442 PSIXMF 401# PSP 442# PSPF 443# PUT 353# RDAPR 554# RDCSB 554# RDCSTM 554# RDEBR 554# RDHSB 554# RDINT 554# RDIO 554# RDIOB 554# RDPI 554# RDPUR 554# RDSPB 554# RDTIM 554# RDUBR 554# REPTUO 527# RTN 352# 644 11145 11193 11264 11318 11355 11398 11451 S 282# SEQ 0338 SIXBTZ 459# 924 4145 6008 8481 SWITCH 465# TFLAG 88# 1797 1842 1887 1932 1977 2022 2141 2189 2237 2285 2333 2381 2446 2491 2536 2581 2626 2671 2736 2781 2826 2871 2916 2961 3026 3071 3116 3161 3206 3251 3316 3361 3406 3451 3496 3541 3760 3805 3850 3895 3940 3985 4030 4075 4420 5618 5666 5714 5762 5810 5858 5906 5954 TIOE 554# TIOEB 554# TION 554# TIONB 554# TTALTM 386# TTICHR 379# TTICLR 389# TTICNV 384# TTIDEC 383# TTINO 381# TTIOCT 382# TTIYES 380# TTLOOK 385# TTSIXB 387# TTYINP 388# WRAPR 554# WRCSB 554# WRCSTM 554# WREBR 554# WRHSB 554# WRINT 554# WRIO 554# WRIOB 554# WRPI 554# WRPUR 554# WRSPB 554# WRTIM 554# WRUBR 554# rtl/MAINDEC-10-DSKCG.txt0000700000175100010010000166654412061447236 12744 0ustar RobNone;DSKCG SEQ 0001 IDENTIFICATION -------------- PRODUCT CODE: AH-F466B-DD DIAGNOSTIC CODE: DSKCG PRODUCT NAME: DSKCGB0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #7 VERSION: 0.2 DATE RELEASED: SEPTEMBER 1979 MAINTAINED BY: DIAGNOSTIC ENGINEERING AUTHOR: JOHN R. KIRCHOFF KATHY J. ATKINS COPYRIGHT (C) 1979 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT CORPORATION. THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. TABLE OF CONTENTS SEQ 0002 ----------------- 1.0 ABSTRACT 2.0 REQUIREMENTS 2.1 EQUIPMENT 2.2 STORAGE 2.3 PRELIMINARY PROGRAMS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE 3.2 STARTING PROCEDURE 3.3 OPERATING PROCEDURE 4.0 DATA SWITCH FUNCTIONS 5.0 ERRORS 6.0 ITERATION COUNTER 7.0 OPERATIONAL VARIATIONS 8.0 LISTING 1.0 ABSTRACT SEQ 0003 THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE SEVENTH IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS TESTING OF THE KS10 MICRO-CODE FOR THE EXTENDED INSTRUCTION SET. THIS INSTRUCTION SET IS FOR HANDLING STRINGS. ALL STRING INSTRUCTIONS ARE IN THE EXTENDED INSTRUCTION SET, AND ALL THEREFORE HAVE A TWO WORD FORMAT, THE FIRST WORD BEING EXTEND. THE SECOND INSTRUCTION WORD, WHOSE OWN EFFECTIVE ADDRESS IS E1, IS AT LOCATION E0, WHICH IS THE EFFECTIVE ADDRESS OF THE EXTEND. AN INSTRUCTION THAT "O�FFSETS" USES E1 AS A SIGNED OFFSET, IN WHICH BIT 18 IS THE SIGN. AN INSTRUCTION THAT "TRANSLATES" OR "EDITS" MAKES USE OF A TRANSLATION TABLE THAT BEGINS AT E1. THE INSTRUCTIONS TESTED ARE: MOVES: MOVSLJ - MOVE STRING LEFT JUSTIFIED MOVSO - MOVE STING OFFSET MOVST - MOVE STRING TRANSLATED MOVSRJ - MOVE STRING RIGHT JUSTIFIED COMPARE STRINGS: CMPSL - SKIP IF STRING 1 LESS THAN STRING 2 CMPSE - SKIP IF STRING 1 EQUAL TO STRING 2 CMPSLE - SKIP IF STRING 1 LESS THAN OR EQUAL TO STING 2 CMPSGE - SKIP IF STRING 1 GREATER THAN OR EQUAL TO STING 2 CMPSN - SKIP IF STRING 1 NOT EQUAL TO STING 2 CMPSG - SKIP IF STRING 1 GREATER THAN STRING 2 DECIMAL CONVERSIONS: CVTBDO - CONVERT BINARY TO DECIMAL OFFSET CVTBDT - CONVERT BINARY TO DECIMAL TRANSLATED CVTDBO - CONVERT DECIMAL TO BINARY OFFSET CVTDBT - CONVERT DECIMAL TO BINARY TRANSLATED STRING EDITING: EDIT - EDIT STRING 2.0 REQUIREMENTS SEQ 0004 2.1 EQUIPMENT A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE LOAD DEVICE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS PREVIOUS PROCESSOR DIAGNOSTICS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE PROGRAM BE RESIDENT IN THE DECSYSTEM 2020. FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES. 3.2 STARTING PROCEDURE SEQ 0005 A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO 4.0 DATA SWITCH FUNCTIONS). RUN UNDER "SMMON". THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE OPERATIONAL SWITCHES: TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) - IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS ARE ASKED AND THE OPERATOR RESPONDS BY TYPING THE ANSWER AS SIX OCTAL DIGITS REPRESENTING THE DESIRED SWITCH SETTINGS. SPECIFY LH SWITCHES IN OCTAL- SPECIFY RH SWITCHES IN OCTAL- TYPE 0 ****** (THERE ARE NO RH SWITCHES) IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR THE SWITCH SETTINGS. IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES ARE USED. THIS IS ONLY VALID UPON RESTARTING OF AN INTERRUPTED PROGRAM. 3.3 OPERATING PROCEDURE A. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING ERRORS ON THE LINE PRINTER. B. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT BUT HALT THE PROGRAM POINTING TO THE ERROR. 4.0 DATA SWITCH FUNCTIONS SEQ 0006 SWITCH STATE FUNCTION ------ ----- -------- 0 ABORT 0 NORMAL OPERATION 1 ABORT AT END OF PASS 1 RSTART NOT USED 2 TOTALS NOT USED 3 NOPNT 0 NORMAL TYPEOUT 1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED) 4 PNTLPT 0 NORMAL OUTPUT TO TTY 1 PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 5 DING 0 NO FUNCTION 1 RING TTY BELL ON ERROR 6 LOOPER 0 PROCEED TO NEXT TEST 1 ENTER LOOP ON TEST ERROR 7 ERSTOP 0 NO FUNCTION 1 HALT ON TEST ERROR 8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING 1 PRINT ALL ERRORS, EVEN IF SAME ERROR 9 RELIAB 0 FAST CYCLE (1 PASS) 1 REPETITION COUNT OF 10 10 TXTINH 0 PRINT FULL ERROR MESSAGES. 1 INHIBIT COMMENT PORTION OF ERROR MESSAGES. 11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE 1 INHIBIT PAGING AND TRAPPING 12 MODDVC NOT USED 13 INHCSH 0 ALLOW CACHE USE 1 INHIBIT CACHE 5.0 ERRORS SEQ 0007 ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THERE ARE TWO TYPES OF PROGRAM ERROR PRINTOUT. THE FIRST TYPE IS THE STANDARD SUBROUTINE PACKAGE ERROR MACRO PRINTOUT. IT IS USED FOR REPORTING ERRORS IN THE MUUO TRAP TESTING AND THE PAGE FAIL TEST. PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR NUMBER AND THE CONTENTS OF AN APPLICABLE AC (CORRECT DATA, ACTUAL DATA, AND THE DISCREPANCY BETWEEN THE TWO.) THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING. THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY BE MADE AT SOME FUTURE DATE. THE SECOND TYPE IS IMPLEMENTED COMPLETELY IN THE PROGRAM. THIS TYPE OF ERROR REPORT IS USED IN ALL INSTRUCTION CASE TESTING, AND THE INTERRUPTABILITY TEST. PRINTOUT FOR CASE TESTING ERROR CONTAINS THE INITIAL AC BLOCK DATA, ACTUAL AC BLOCK RESULT, AND CORRECT AC BLOCK RESULT. DEPENDING ON THE INSTRUCTION THE SOURCE,DESTINATION AND SIMULATED DESTINATION STRINGS ARE PRINTED. E0+1 AND E0+2 WORDS ARE PRINTED IF APPLICABLE. IF THE INSTRUCTION TOOK AN INCORRECT SKIP OR NON- SKIP RETURN THIS IS ALSO PRINTED. 6.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE CONSOLE PROCESSOR. 7.0 OPERATIONAL VARIATIONS SEQ 0008 A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE RELIABILITY AND ACCEPTANCE TESTS FOR THE EXTENDED INSTRUCTION SET MICRO-CODE. THE FOLLOWING INFORMATION MAY BE USEFUL: 1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR CONTROL WORD. LH = 0, STAND-ALONE OPERATION -1, RUNNING UNDER DIAGNOSTIC MONITOR RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER DIAGNOSTIC MONITOR CONTROL. B. USER MODE TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING OUTPUT FILE IS 'DSKCB.LPT' EXAMPLE DEVICE ASSIGNMENT: .ASSIGN DSK DEV IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN RETURN TO SMMON COMMAND MODE. 7.0 OPERATIONAL VARIATIONS (CON'T) SEQ 0009 THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.). IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' COMMAND. C. SYSTEM EXERCISER START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN 'SWTEXR' LOC 30023. 8.0 LISTING HISTORY FILE FOR DSKCG ---------------------- SEQ 0010 --------------------------------------------------------------- CODE: MAINDEC-10-DSKCG TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VERSION: 0.2 DATE: SEPTEMBER 1979 AUTHOR: JOHN R. KIRCHOFF REASON: MAJOR REVISION TO CORRECT PROGRAM BUGS AND OPERATION. ALSO, THE FORMAT AND DOCUMENTATION OF THE LISTING WAS VASTLY IMPROVED TO BRING IT UP TO DIAGNOSTIC STANDARDS. --------------------------------------------------------------- VERSION: 0.1 DATE: MARCH 1979 AUTHOR: KATHY J. ATKINS REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 1 SEQ 0011 DOCUMENT ************** DSKCG LST ************** COPYRIGHT 1979 DIGITAL EQUIPMENT CORPORATION MAYNARD, MASS. 01754 DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 2 SEQ 0012 TABLE OF CONTENTS ******************* 1 30 DIAGNOSTIC PARAMETERS 59 PROGRAM PARAMETERS 478 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 513 PROGRAM/SUBROUTINE PARAMETERS 715 ERROR HANDLING UUO DEFINITIONS 753 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 1081 PROGRAM CONTROL SECTION 1114 MUUO TRAP TESTING 1384 EXTEND INSTRUCTION CASE TESTING 3120 PAGE FAIL TESTING 3973 INSTRUCTION SIMULATORS 4630 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES 5071 MUUO AND PAGE FAIL HANDLERS 5316 PROGRAM SUPPORT ROUTINES 5673 PROGRAM PRINT ROUTINES 5851 GENERAL PROGRAM TABLE STORAGE 5970 INSTRUCTION SPECIFIC STORAGE AREA 6446 INSTRUCTION CASE TABLES 6651 *STOR* RESERVED STORAGE, MARCH 1978 DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 3 SEQ 0013 ***************************************************************** 1 MAINDEC-10-DSKCG ***************************************************************** ***************************************************************** 30 DIAGNOSTIC PARAMETERS ***************************************************************** ***************************************************************** 59 PROGRAM PARAMETERS ***************************************************************** 62 ACCUMULATOR ASSIGNMENTS 99 CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF 147 CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF 236 INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS) 244 EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS 263 EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES 326 PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL ***************************************************************** 478 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 ***************************************************************** 483 DATA SWITCHES LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS ***************************************************************** 513 PROGRAM/SUBROUTINE PARAMETERS ***************************************************************** 516 SPECIAL SUBPROGRAM LINKAGES 527 SPECIAL SUBROUTINE FATAL HALTS USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 559 SUBROUTINE INITIALIZATION CALL 565 HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 572 TERMINAL INPUT UUO'S ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 4 SEQ 0014 588 TERMINAL OUTPUT UUO'S. 654 SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING CONSERVES CORE OVER ASCIZ 659 CONSOLE SWITCH INPUT UUO. READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF USER MODE. 665 CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 671 KS-10 CACHE OPERATION UUO'S 676 END OF PASS/PROGRAM UUOS 679 DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 684 MEMORY MANAGEMENT UUO'S UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, ADDRESS CONVERSION, ETC... 696 DEVICE CODE MODIFICATION UUO ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO IOT'S TO A DIFFERENT DEVICE CODE. 706 "DIAMON" FILE SELECTION AND READ UUOS ***************************************************************** 715 ERROR HANDLING UUO DEFINITIONS ***************************************************************** 718 ERROR HANDLER PARAMETERS 727 THE ERROR HANDLER MACROS 729 A MACRO TO REPORT AN ERROR AND LOOP 740 A MACRO TO REPORT AN ERROR AND NOT LOOP DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 5 SEQ 0015 ***************************************************************** 753 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 ***************************************************************** 758 PROGRAM STARTING ADDRESSES THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 791 PROGRAM FIXED PARAMETER AREA 811 PROGRAM VARIABLE PARAMETER AREA 831 SPECIAL PROGRAM DISPATCH ADDRESSES 862 PROCESSOR CONTROL STORAGE 882 UUO DISPATCH TABLE 902 MEMORY MANAGMENT STORAGE 912 PRINT CONTROL STORAGE 935 THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: MOVEI NAME PNTA ;OR PNTAF 966 USER MODE OUTPUT FILE INFORMATION 975 DISK UPDATE MODE FILE INFORMATION 983 PUSHDOWN LIST CONTROL INFORMATION 991 POWER LINE CLOCK FREQUENCY FLAG 997 KL10 CACHE CONTROL FLAGS 1004 NUMBER INPUT DIGIT FLAG 1010 KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 1016 ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 1024 SPECIAL USERS UUO INTERCEPT INSTRUCTION 1029 USER MODE MONITOR TYPE FLAG DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 6 SEQ 0016 1035 SPECIAL USERS MUUO INTERCEPT INSTRUCTION 1041 SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 1047 "SWITCH" CALL USAGE CONTROL 1053 SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 1060 SM10 (KS-10) PROCESSOR TYPE FLAG 1066 RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 1072 SPECIAL FUTURE EXPANSION ROOM 1076 END OF FIXED STORAGE ***************************************************************** 1081 PROGRAM CONTROL SECTION ***************************************************************** 1084 START - INITIALIZATION ROUTINE 1100 STARTA - PROGRAM PASS CONTROL SECTION ***************************************************************** 1114 MUUO TRAP TESTING ***************************************************************** 1117 TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE EXTENDED INSTRUCTION SET AS INSTRUCTIONS. FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE. EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO. IF IT DOES NOT AN ERROR PRINTOUT OCCURS. 1165 TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING, BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.) IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED FOR THE E0 WORD AN ERROR PRINTOUT OCCURS. 1230 TEST 3 -- ILLEGAL AC FIELD TRAP TEST THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP IF NOT EQUAL TO ZERO.) DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 7 SEQ 0017 NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0 IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE BITS HAS NO EFFECT ON THE INSTRUCTION). 1258 TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9 1310 TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9 1352 TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY) ***************************************************************** 1384 EXTEND INSTRUCTION CASE TESTING ***************************************************************** 1387 EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES. EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER VALUES, PATTERNS, OFFSETS, ETC.). WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR (ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION IS THEN EXECUTED. THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM"). EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC. ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS WITH THE NEXT CASE IN SEQUENCE. THE FAILURE INFORMATION IS PRINTED BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT"). THE INITIAL AC BLOCK IS STORED IN ORIGSV. THE RESULTS OF THE SIMULATOR ARE STORED IN RESSV. AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION. AC7 HOLDS THE CASE TABLE INFORMATION. THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION. 1418 TEST 4 -- COMPARE STRING INSTRUCTION TEST THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S SIX COMPARE INSTRUCTIONS. DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 8 SEQ 0018 1625 TEST 5 -- MOVE STRING INSTRUCTION TEST THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S FOUR MOVE STRING INSTRUCTIONS. 1899 TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S TWO CVTDBX INSTRUCTIONS. 2091 TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S TWO CVTBDX INSTRUCTIONS. 2225 TEST 8 -- EDIT INSTRUCTION TEST THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE. EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST 2248 EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION OF THE FIRST WORD WILL BE FILLED WITH SIGST. 2320 EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE: EXCHMD STOP, EXCHMD EXCHMD STOP, EXCHMD EXCHMD EXCHMD STOP, EXCHMD EXCHMD EXCHMD EXCHMD STOP. THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE] AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE. DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 9 SEQ 0019 2399 EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED: 1. S=1 2. S=0, E0+2=0 3. S=0, E0+2 NOT =0 THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. 2476 EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD. 2548 EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST THERE ARE THREE EXECUTION PATHS THAT MUST BE TESTED: 1. S=1 2. S=0, E0+1=0 3. S=0, E0+1 NOT =0 THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING. 2626 INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING 2676 EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES: NOP STOP, NOP NOP STOP, NOP NOP NOP STOP, NOP NOP NOP NOP STOP. THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. 2754 EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 10 SEQ 0020 2826 EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. 2898 EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. 2970 EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND THE S,N AND M FLAGS. COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED: 1. S,N AND M FLAGS 2. E0+1 = AND NOT =0 3. E0+2 = AND NOT =0 4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE. 3047 EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC BYTES TESTED ARE 2XX,3XX,4XX,006. ***************************************************************** 3120 PAGE FAIL TESTING ***************************************************************** 3125 TEST 9 -- PAGE FAIL RECOVERY TEST THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX). WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST, MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS, AND AT THE E0+1 (FILLER) BYTES. THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75. THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401 (WHICH DOES NOT EXIST). A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000. THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 11 SEQ 0021 THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY ARE NOT CORRECT AN ERROR PRINTOUT OCCURS. THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401. PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000. WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED. (SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.) THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR PRINTOUT OCCURS. 3168 PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS 3329 PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS 3490 PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS 3651 PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS 3812 PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS ***************************************************************** 3973 INSTRUCTION SIMULATORS ***************************************************************** 3976 INSTRUCTION SIMULATORS -- GENERAL INFORMATION EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO AC'S 10-14. THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED IS CONTAINED IN THE E0 WORD (BITS 0,8). FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF "DESTIN" TO MAKE ERROR COMPARISON POSSIBLE. THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE. RETURN IS +1 ALWAYS. CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 12 SEQ 0022 4002 CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED USING 3 FLAGS AND A SKIP TABLE, SKPTAB. WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3. SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT SKPTAB WORD. IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED. 4086 MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS 4230 CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS 4329 CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS 4469 EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION ***************************************************************** 4630 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES ***************************************************************** 4633 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES -- GENERAL INFORMATION EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST. ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE: 1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4 2. ACTUAL RESULT BLOCK IN AC'S 10-14 3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4 4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2 5. SIMULATED DESTIN STRING IN SIMDES 6. ACTUAL DESTIN STRING IN DESTIN GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS: 1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS 2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS 3. PNTSTR -- PRINTS STRING OF BYTES ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER IN AC2, RTN+1 ALWAYS 4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS 5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 13 SEQ 0023 NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS OF THE EXTEND COMPARE INSTRUCION. MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS OF THE EXTEND MOVXX INSTRUCTIONS. CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS OF THE CVTDBX INSTRUCTIONS. CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS OF THE CVTBDX INSTRUCTIONS. EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION. 4675 CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS OF THE EXTEND COMPARE INSTRUCION. 4744 MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS OF THE EXTEND MOVXX INSTRUCTIONS. 4831 CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS OF THE CVTDBX INSTRUCTIONS. 4891 CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS OF THE CVTBDX INSTRUCTIONS. 4959 EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION. THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX. MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS. ***************************************************************** 5071 MUUO AND PAGE FAIL HANDLERS ***************************************************************** 5074 MUUOHS - MUUO HANDLER INITIALIZATION CODE TO SETUP MUUO HANDLER IN EXEC MODE 5116 MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE) 5145 MUUOHX - UNEXPECTED MUUO ERROR REPORTING 5175 LUUOH - LUUO HANDLER 5187 LUUOHX - UNEXPECTED LUUO ERROR REPORTING 5207 PFHAND -- PAGE FAIL HANDLER IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY. ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST. DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 14 SEQ 0024 ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION NAME TABLE. 5270 PFPNT -- PAGE FAIL ERROR PRINTER ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION NAME TABLE. ***************************************************************** 5316 PROGRAM SUPPORT ROUTINES ***************************************************************** 5319 EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE. UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE CASE TABLE PARAMETER WORD. RETURN IS ALWAYS +1. 5465 PFINS -- ROUTINE TO PRINT INSTRUCTION NAME ENTRY WITH SCRIPT TABLE INDEX IN INSTR 5484 CDBTN -- USED IN CVTDBT PF TEST 5491 CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR 5499 COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE FINAL AC BLOCK WITH THAT OF THE SIMULATOR 5528 CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG IF IT IS A TRANSLATE INSTRUCTION. TAKE OPCODE IN AC0, RTN +1 ALWAYS 5547 PAGSET -- ROUTINE TO CLEAR PAGE TABLE, SET UP RELOCATION DATA IN THE TABLE, SET PAGING AND TRAP ENABLE, AND LOAD THE USER BASE REGISTER 5568 PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY 5595 SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16 5633 CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 15 SEQ 0025 5654 COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS ***************************************************************** 5673 PROGRAM PRINT ROUTINES ***************************************************************** 5676 PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS 5707 PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH 5718 PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE 5738 PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED AND AC2 CONTAINS THE BYTE POINTER TO BE USED. 5771 PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)= CASE TABLE ADDR) 5788 RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10) 5804 PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE LOCATED AT E1 FOR LENGTH OF 20 ***************************************************************** 5851 GENERAL PROGRAM TABLE STORAGE ***************************************************************** 5869 EXTENDED OPERATOR OPCODE TABLE 5891 SOFTWARE INTERRUPT TABLE AREA 5914 EXECUTE INSTRUCTION STORAGE (EO,E1) 5928 SIXBIT EXTENDED OPERATOR MNEMONIC TABLE 5949 ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS OF EXTEND INSTRUCTIONS 5957 SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED DESTINATION STRINGS DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 16 SEQ 0026 ***************************************************************** 5970 INSTRUCTION SPECIFIC STORAGE AREA ***************************************************************** 5973 SKPTAB -- INSTRUCTION SKIP TABLE 5986 BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS. USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.) 6003 PATTBL -- EDIT INSTRUCTION PATTERN TABLE 6010 EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X" IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED. 6070 OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR 6079 DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS 6103 DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION 6133 LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS 6142 STRING PATTERNS FOR CMPXX INSTRUCTIONS 6151 PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES 6171 EDIT INSTRUCTION BYTE POINTERS 6187 PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST 6328 PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE. ***************************************************************** 6446 INSTRUCTION CASE TABLES ***************************************************************** 6449 CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS 6497 MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS 6528 CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS 6566 CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS 6604 EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION DSKCG LST DECDOC VER 00.24 14-SEP-79 09:46:17 PAGE 17 SEQ 0027 ***************************************************************** 6651 *STOR* RESERVED STORAGE, MARCH 1978 ***************************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1 DSKCGT MAC 14-Sep-79 09:44 MAINDEC-10-DSKCG SEQ 0028 1 SUBTTL MAINDEC-10-DSKCG 2 3 000000 MCNVER==0 4 000002 DECVER==2 5 6 XLIST 7 LIST 8 9 NAME \MCNVER,\DECVER^ 10 11 TITLE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2^ 12 13 ;COPYRIGHT (C) 1979 14 ;DIGITAL EQUIPMENT CORPORATION 15 ;MARLBORO, MASS. 01754 16 17 ;AUTHOR: JOHN R. KIRCHOFF 18 ; KATHY J. ATKINS 19 20 ;MAINTAINER: LARGE SYSTEMS DIAGNOSTIC ENGINEERING 21 22 000137 LOC 137 23 000137 000000 000002 MCNVER,,DECVER 24 25 SEARCH MONSYM 26 SEARCH MACSYM 27 NOSYM 28 29 IF2, DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2 DSKCGT MAC 14-Sep-79 09:44 DIAGNOSTIC PARAMETERS SEQ 0029 30 SUBTTL DIAGNOSTIC PARAMETERS 31 32 000001 EXCASB==1 ;ASSEMBLE FOR EXEC MODE OPERATION 33 000001 USRASB==1 ;ASSEMBLE FOR USER MODE OPERATION 34 000100 DEBUG==100 ;SAVE AN AREA FOR DEBUG (CALLED PATCH) 35 000001 ITERAT==1 ;USER MODE PROGRAM ITERATIONS 36 000001 PGMEND==1 ;THE ASSEMBLY PROGRAM END STATEMENT 37 38 030000 SADR1= BEGIN 39 030000 SADR2= BEGIN 40 030000 SADR3= BEGIN 41 030007 SADR4= SRTDDT 42 030061 SADR5= $BEND2 43 030007 SADR6= SRTDDT 44 254200 030000 SADR7= HALT BEGIN 45 254200 030000 SADR8= HALT BEGIN 46 254200 030000 SADR9= HALT BEGIN 47 254200 030000 SADR10= HALT BEGIN 48 254200 030000 SADR11= HALT BEGIN 49 000000 PAREA1= 0 50 000017 PAREA2= 17 51 446353 434700 PAREA3= SIXBIT /DSKCG/ 52 605664 000000 PAREA4= SIXBIT /PNT/ 53 000000 PAREA5= 0 54 000000 PAREA6= 0 55 56 000134 .JBINT=134 ;TOPS-10 ERROR INTERCEPTING BLOCK 57 58 367640 000000 OPDEF REPTLP [SOJG REPT,] ;REPEAT LOOP DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0030 59 SUBTTL PROGRAM PARAMETERS 60 61 ; ********************************************************************** 62 ;*ACCUMULATOR ASSIGNMENTS 63 ; ********************************************************************** 64 65 000010 SLEN= 10 66 000010 AC= 10 67 000010 BDH= 10 68 000010 PADDR= 10 69 000011 SP= 11 70 000011 BDL= 11 71 000013 DLEN= 13 72 000013 DBH= 13 73 000013 MA= 13 74 000014 DP= 14 75 000014 DBL= 14 76 77 000002 SLEN1= 2 78 000003 SP1= 3 79 000005 DLEN1= 5 80 000004 DP1= 4 81 000001 OP1= 1 82 83 000000 AC0= 0 84 000001 AC1= 1 85 000002 AC2= 2 86 000003 AC3= 3 87 000004 AC4= 4 88 000005 AC5= 5 89 000006 AC6= 6 90 000007 AC7= 7 91 000010 AC10= 10 92 000011 AC11= 11 93 000012 AC12= 12 94 000013 AC13= 13 95 000014 AC14= 14 96 000015 AC15= 15 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0031 97 98 ; ********************************************************************** 99 ;*CASE TABLE COMMAND WORD BIT DEFINITIONS - LEFT HALF 100 ; ********************************************************************** 101 102 ; ************************************************** 103 ;STRING LENGTH INDICATOR BITS 104 ; ************************************************** 105 106 400000 000000 EQLEN== 1B0 ;STRINGS ARE OF EQUAL LENGTH 107 200000 000000 SZERO== 1B1 ;SOURCE STRING IS ZERO IN LENGTH 108 100000 000000 DZERO== 1B2 ;DESTINATION STRING IS ZERO IN LENGTH 109 040000 000000 DSZER== 1B3 ;SOURCE AND DESTINATION STRING ARE ZERO LENGTH 110 020000 000000 SLONG== 1B4 ;SOURCE STRING IS LONGER THAN DESTIN 111 112 ; ************************************************** 113 ;PATTERN DEFINITION BITS 114 ; ************************************************** 115 116 010000 000000 ALTPT== 1B5 ;PATTERN IS ALTERNATING 1'S AND 0'S 117 004000 000000 ONEPT== 1B6 ;PATTERN IS ALL ONE'S 118 002000 000000 ONESPT== 1B7 ;PATTERN IS EQUAL TO 0,,1 119 120 ; ************************************************** 121 ;FILLER TYPE INDICATOR BITS 122 ; ************************************************** 123 124 001000 000000 EQFIL== 1B8 ;FILLER IS EQUAL TO PATTERN 125 000400 000000 LFILL== 1B9 ;FILLER IS SMALL 126 000200 000000 GFILL== 1B10 ;FILLER IS LARGE 127 128 ; ************************************************** 129 ;BYTE SIZE INDICATOR BITS 130 ; ************************************************** 131 132 000100 000000 S44== 1B11 ;SOURCE BYTE SIZE IS FULL WORD (0= 5 BIT) 133 000040 000000 D44== 1B12 ;DESTIN BYTE SIZE IS FULL WORD (0= 5 BIT) 134 135 ; ************************************************** 136 ;FIRST AND LAST BYTE ADJUST INDICATOR BITS 137 ; ************************************************** 138 139 000020 000000 ALS== 1B13 ;ADJUST LAST BYTE IN SOURCE STRING 140 000010 000000 ALD== 1B14 ;ADJUST LAST BYTE IN DESTINATION STRING 141 000004 000000 AFS== 1B15 ;ADJUST FIRST BYTE IN SOURCE STRING 142 143 000002 000000 B0== 1B16 ;INDICATOR OF WHERE INTIAL BINARY DATA GOES 144 000001 000000 HW== 1B17 ;INITIAL BINARY DATA TO HIGH OR LOW WORD DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0032 145 146 ; ********************************************************************** 147 ;*CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF 148 ; ********************************************************************** 149 150 ; ************************************************** 151 ;INITIAL FLAG BITS (FOR TRANSLATE INSTRUCTIONS) 152 ; ************************************************** 153 154 400000 000000 SFL== 1B0 155 100000 000000 MFL== 1B2 156 040000 000000 NFL== 1B3 157 158 ; ************************************************** 159 ;TRANSLATION TABLE CONTROL BITS (FOR TRANSLATE INSTRUCTIONS) 160 ;SPECIFIES FUNCTIONS FOR TWO HALFWORDS OF THE TRANSLATION TABLE 161 ; ************************************************** 162 163 020000 000000 C1== 1B4 164 010000 000000 C2== 1B5 165 004000 000000 C3== 1B6 166 002000 000000 C4== 1B7 167 001000 000000 C5== 1B8 168 000400 000000 C6== 1B9 169 170 ; ************************************************** 171 ;DATA SELECTION TABLE INDEX BITS (CVTXXX INSTRUCTIONS) 172 ; ************************************************** 173 174 000400 DATA0== 1B27 175 000200 DATA1== 1B28 176 000100 DATA2== 1B29 177 000700 DATA== 1B27!1B28!1B29 178 179 ; ************************************************** 180 ;STRING LENGTH TABLE INDEX BITS (CVTXXX INSTRUCTIONS) 181 ; ************************************************** 182 183 000040 STRL0== 1B30 184 000020 STRL1== 1B31 185 000060 STRL== 1B30!1B31 186 187 ; ************************************************** 188 ;BYTE OFFSET TABLE INDEX BITS (FOR MOVXX AND CVTXX INSTRUCTIONS) 189 ; ************************************************** 190 191 000010 OFF0== 1B32 192 000004 OFF1== 1B33 193 000014 OFF== 1B32!1B33 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0033 194 195 ; ********************************************************************** 196 ; CONT'D - CASE TABLE COMMAND WORD BIT DEFINITIONS - RIGHT HALF 197 ; ********************************************************************** 198 199 ; ************************************************** 200 ;INITIAL PATTERN BYTE # DEFINITION BITS (USED IN EDIT INSTRUCTION) 201 ; ************************************************** 202 203 000002 PB1== 1B34 204 000001 PB2== 1B35 205 000003 PB== 1B34!1B35 206 207 ; ********************************************************************** 208 ;BIT DEFINITIONS USED TO SPECIFY FLAG & TRANSLATION TABLE CONTROL BITS 209 ;IN CASE TABLES 210 ; ********************************************************************** 211 212 400000 SFL1== 400000 213 200000 MFL1== 200000 214 100000 NFL1== 100000 215 216 040000 C1A== 040000 217 020000 C2A== 020000 218 010000 C3A== 010000 219 004000 C4A== 004000 220 002000 C5A== 002000 221 001000 C6A== 001000 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0034 222 223 ; ********************************************************************** 224 ;DEFINITION OF THE NUMBER OF PLACES THAT THE INDEX TYPE BITS IN THE 225 ; CASE WORD MUST BE SHIFTED TO ISOLATE THEM IN THE RIGHT-MOST 226 ; PART OF THE WORD.FACILITATES EASY ALTERATION OF THE CASE TABLE 227 ; BIT DEFINITIONS FOR MAINTAINANCE PURPOSES. 228 ; ********************************************************************** 229 230 777777 777776 OFFSH== -2 231 777777 777774 STRLSH== -4 232 777777 777772 DATASH== -6 233 000000 PBSH== 0 234 235 ; ********************************************************************** 236 ;*INSTRUCTION SKIP DECISION BITS (FOR CMPXX INSTRUCTIONS) 237 ; ********************************************************************** 238 239 000004 GF== 1B33 ;SET IF STR1 > STR2 240 000002 EF== 1B34 ;SET IF STR1 = STR2 241 000001 LF== 1B35 ;SET IF STR1 < STR2 242 243 ; ******************************************************************* 244 ;*EDIT INSTRUCTION PATTERN CODE AND TRANSLATE TABLE DEFINITIONS 245 ; ******************************************************************* 246 247 000000 STOP== 0 248 000001 SELECT== 1 249 000002 SIGST== 2 250 000003 FLDSEP== 3 251 000004 EXCHMD== 4 252 000005 NOP== 5 253 000100 MESSAG== 100 254 000500 SKPM== 500 255 000600 SKPN== 600 256 000700 SKPA== 700 257 000200 NOP1== 200 258 000300 NOP2== 300 259 000400 NOP3== 400 260 000006 NOP4== 006 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 8 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0035 261 262 ; ********************************************************************** 263 ;*EDMOD -- MACRO FOR EDIT INSTRUCTION TEST SUBMODULES 264 ; ********************************************************************** 265 266 DEFINE EDMOD (%TITL,%TIT1,TITLN,TABWD,FILWD,BYTNM)< LALL 267 268 %TITL: MOVEI . 269 MOVEM TESTPC 270 271 MOVEI AC0,BYTNM ;INDEX TO BYTE TYPE TABLE 272 MOVEM BYTYPE ;STORE 273 274 SETZM OFFSET 275 CAIN AC0,1 ;EXCHMD OPERATOR? 276 SETOM OFFSET ;YES 277 278 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 279 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 280 281 %TIT1: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 282 SETZM SKPWD2 283 284 GO CLRSTR ;CLEAR STRING BYTES 285 286 MOVE AC2,FILWD ;TABLE FILLER BYTE TYPE 287 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 288 MOVE AC0,[PATTBL,,PATTBL+1] 289 BLT AC0,PATTBL+^D9 290 291 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 292 293 LDB AC3,PATBN ;GET THE CURRENT PB# 294 MOVE AC1,TABWD(AC3) ;GET TABLE TEST WORD 295 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 296 297 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 298 MOVE MA,[POINT 0,SOURCE] ;YES 299 300 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 301 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 9 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0036 302 303 ; ************************************************** 304 GO EDTSIM ;SIMULATE THE INSTRUCTION 305 SETOM SKPWD1 306 ; ************************************************** 307 308 SKIPE OFFSET ;EXCHMD OPERATOR? 309 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 310 311 ; ************************************************** 312 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 313 SETOM SKPWD2 314 ; ************************************************** 315 316 GO EDTCOM ;COMPARE THE RESULTS 317 ERROR %TIT1,13,0,0,,,EDTPNT 318 LALL 319 AOBJN AC7,%TIT1 ;DO THE NEXT CASE 320 321 SETZM OFFSET 322 JRST TITLN ;FINISHED - GO TO NEXT SUBMODULE 323 SALL> DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 10 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0037 324 325 ; ********************************************************************** 326 ;*PFMAC -- MACRO WHICH SETS UP, EXECUTES, AND VERIFIES PAGE FAIL 327 ; ********************************************************************** 328 329 DEFINE PFMAC (INS,PFC,COR,CAS,PRE,TRAN)< LALL 330 331 PRE'ST: MOVEI . 332 MOVEM TESTPC 333 334 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS 335 336 HRLZI AC1,INS ;AC1/-# PRE INSTR,,0 337 HRRI AC1,PRE'TAB ;AC1/-# PRE INSTR,,OPCODE TABLE ADDR 338 339 SETZM E0 340 SETZM E0+1 341 342 PRE'PF0: HRREI AC2,PFC ;AC2/-# PAGE FAIL CASES 343 344 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ 345 CAIN AC0,017 346 SUBI AC2,1 347 348 CAIE AC0,004 ;EDIT INSTRUCTION? 349 JRST PRE'PFA 350 351 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE 352 MOVEM AC0,PATTBL 353 MOVE AC0,[PATTBL,,PATTBL+1] 354 BLT AC0,PATTBL+^D8 355 356 MOVE AC0,STOPWD 357 MOVEM AC0,PATTBL+^D9 358 359 PRE'PFA: MOVEI AC3,CAS ;INITIAL AC BLOCK TABLE 360 MOVEI AC4,COR ;ADDR OF INTERMEDIATE RESULT TABLE 361 362 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 363 SETZM SKPWD2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 11 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0038 364 365 ; ************************************************** 366 ;SET UP THE SOURCE AND DESTINATION STRINGS 367 ; ************************************************** 368 369 GO CLRSTR 370 371 SETZM 75750 ;CLEAR THE FAIL STRING AREA 372 MOVE AC0,[75750,,75751] 373 BLT AC0,76100 374 375 PRE'PF1: GO PFACB ;SET UP THE INITIAL AC BLOCK 376 377 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE 378 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING 379 380 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION 381 382 SKIPE FILLF ;FILLER FAILURE CASE? 383 DPB AC0,[POINT 9,400777,8] ;YES 384 385 SKIPN FILLF 386 DPB AC0,E0OP ;NO 387 388 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION? 389 JRST PRE'PC ;NO 390 391 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE 392 SKIPE FILLF ;FILLER FAILURE CASE? 393 HRRM AC0,400777 ;YES 394 HRRM AC0,E0 ;NO 395 396 MOVE AC0,[1,,1] 397 GO TRAN ;SETUP THE TRANSLATION TABLE 398 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 12 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0039 399 400 PRE'PC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS 401 BLT AC0,ORIGSV+4 402 403 SKIPE FILLF ;FILLER FAILURE CASE? 404 MOVE AC0,[0,,PRE'PC2] ;YES 405 SKIPN FILLF 406 MOVE AC0,[0,,PRE'PC1] ;NO 407 MOVEM FAILOC# ;STORE IT 408 409 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED 410 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG 411 412 MOVEI PRE'PFX 413 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC 414 415 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP 416 417 SKIPE FILLF ;FILLER FAILURE CASE? 418 JRST PRE'PC2 ;YES 419 420 ; ************************************************** 421 PRE'PC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 422 SETOM SKPWD2 ;NOTE SKIP RETURN 423 ; ************************************************** 424 425 JRST PRE'PF3 426 427 ; ************************************************** 428 PRE'PC2: EXTEND AC,400777 ;MAKE E0+1 FAIL 429 SETOM SKPWD2 ;NOTE SKIP RETURN 430 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 13 DSKCGT MAC 14-Sep-79 09:44 PROGRAM PARAMETERS SEQ 0040 431 432 ; ************************************************** 433 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE 434 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE. 435 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE 436 ;INSTRUCTION AND TO HERE. 437 ; ************************************************** 438 439 PRE'PF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR? 440 JRST DO'PRE ;YES - OK 441 442 ERROR PRE'PF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS 443 LALL 444 JRST PRE'NXT ;GO DO THE NEXT CASE 445 446 PRE'PFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ? 447 JRST PRE'PF9 ;YES, CHECK INTERMEDIATE RESULTS 448 449 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT 450 ERLP2 PRE'PF0 451 LALL 452 JRST PRE'NXT 453 454 PRE'PF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT 455 ERLP2 PRE'PF0 456 LALL 457 JRST PRE'NXT 458 459 ; ************************************************** 460 DO'PRE: GO PRE'SIM ;SIMULATE THE INSTRUCTION 461 SETOM SKPWD1 ;NOTE A SKIP RETURN 462 ; ************************************************** 463 464 GO COMAC ;COMPARE THE FINAL RESULTS 465 ERROR PRE'PF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT 466 LALL 467 PRE'NXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS 468 ADDM AC0,AC4 469 ADDI AC0,1 470 ADDM AC0,AC3 471 472 AOJL AC2,PRE'PF1 ;DO THE NEXT PF CASE 473 474 AOBJN AC1,PRE'PF0 ;DO THE NEXT INSTRUCTION 475 SETZM OFFSET 476 SALL> 477 ;END OF FILE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0041 478 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 479 480 DEFINE S,<;*********************************************************************> 481 482 S^;*********************************************************************^ 483 ;*DATA SWITCHES 484 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 485 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 486 S^;*********************************************************************^ 487 488 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 489 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 490 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 491 492 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 493 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 494 010000 DING== 010000 ;RING BELL ON ERROR 495 496 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 497 002000 ERSTOP==002000 ;HALT ON TEST ERROR 498 001000 PALERS==001000 ;PRINT ALL ERRORS 499 500 000400 RELIAB==000400 ;RELIABILITY MODE 501 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 502 000100 INHPAG==000100 ;INHIBIT PAGING 503 504 000040 MODDVC==000040 ;MODIFY DEVICE CODE 505 000020 INHCSH==000020 ;INHIBIT CACHE 506 000010 OPRSEL==000010 ;OPERATOR SELECTION 507 508 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 509 510 ;SWITCH 16 RESERVED 511 512 ;SWITCH 17 RESERVED !!! DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0042 513 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 514 515 S^;*********************************************************************^ 516 ;*SPECIAL SUBPROGRAM LINKAGES 517 S^;*********************************************************************^ 518 519 027772 FSELNK= 27772 ;FILE SELECT LINK 520 027773 FRDLNK= 27773 ;FILE READ LINK 521 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 522 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 523 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 524 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 525 526 S^;*********************************************************************^ 527 ;*SPECIAL SUBROUTINE FATAL HALTS 528 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 529 S^;*********************************************************************^ 530 531 ;ADDRESS TAG REASON 532 ;--------------------- 533 534 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 535 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 536 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 537 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 538 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 539 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 540 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 541 ; 1017 EOPERR ;END OF PROGRAM ERROR 542 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 543 544 S^;*********************************************************************^ DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0043 545 S^;*********************************************************************^ 546 ;OPERATOR DEFINITIONS (NON-UUO'S) 547 S^;*********************************************************************^ 548 549 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 550 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 551 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 552 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 553 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 554 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 555 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 556 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 557 558 S^;*********************************************************************^ 559 ;*SUBROUTINE INITIALIZATION CALL 560 S^;*********************************************************************^ 561 562 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 563 564 S^;*********************************************************************^ 565 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 566 S^;*********************************************************************^ 567 568 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 569 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 570 571 S^;*********************************************************************^ 572 ;*TERMINAL INPUT UUO'S 573 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 574 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 575 S^;*********************************************************************^ 576 577 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 578 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 579 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 580 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 581 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 582 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 583 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 584 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 585 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 586 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 587 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0044 588 ;*TERMINAL OUTPUT UUO'S. 589 590 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 591 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 592 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 593 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 594 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 595 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 596 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 597 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 598 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 599 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 600 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 601 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 602 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 603 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 604 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 605 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 606 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 607 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 608 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 609 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 610 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 611 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 612 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 613 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 614 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 615 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 616 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 617 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 618 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 619 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 620 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 621 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 622 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 623 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 624 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 625 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 626 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 627 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 628 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 629 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 630 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 631 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0045 632 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 633 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 634 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 635 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 636 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 637 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 638 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 639 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 640 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 641 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 642 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 643 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 644 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 645 646 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 647 648 DEFINE PMSG (ARG),< 649 PSIXM [SIXBIT\ARG'_\]> 650 651 DEFINE PMSGF (ARG),< 652 PSIXMF [SIXBIT\ARG'_\]> 653 654 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 655 ;* CONSERVES CORE OVER ASCIZ 656 657 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 658 659 ;*CONSOLE SWITCH INPUT UUO. 660 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 661 ;* USER MODE. 662 663 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 664 665 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 666 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 667 668 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 669 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 670 671 ;*KS-10 CACHE OPERATION UUO'S 672 673 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 674 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 675 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0046 676 ;*END OF PASS/PROGRAM UUOS 677 678 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 679 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 680 681 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 682 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 683 684 ;*MEMORY MANAGEMENT UUO'S 685 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 686 ;*ADDRESS CONVERSION, ETC... 687 688 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 689 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 690 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 691 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 692 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 693 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 694 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 695 696 ;*DEVICE CODE MODIFICATION UUO 697 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 698 ;*IOT'S TO A DIFFERENT DEVICE CODE. 699 700 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 701 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 702 703 030000 IFNDEF MODDVL, 704 030000 IFNDEF MODDVU, 705 706 ;*"DIAMON" FILE SELECTION AND READ UUOS 707 708 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 709 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 710 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 711 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 712 713 XLIST 714 IFNDEF EROLD, 739 740 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 741 742 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 743 SALL 744 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 745 CORECT,,ACTUAL 746 [SIXBIT\D'_\],,ERR] 747 XALL> 748 749 >;END OF EROLD CONDITIONAL 750 751 XLIST 752 LIST DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0048 753 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 754 755 030000 LOC 30000 756 757 S^;*********************************************************************^ 758 ;*PROGRAM STARTING ADDRESSES 759 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 760 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 761 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 762 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 763 S^;*********************************************************************^ 764 765 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 766 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS 767 768 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 769 770 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 771 772 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 773 774 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 775 776 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 777 778 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 779 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 780 781 030010 254 00 0 00 030610 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 782 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 783 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 784 785 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 786 030014 254200 030000 START2: SADR8 ; " 787 030015 254200 030000 START3: SADR9 ; " 788 030016 254200 030000 START4: SADR10 ; " 789 030017 254200 030000 START5: SADR11 ; " DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0049 790 S^;*********************************************************************^ 791 ;*PROGRAM FIXED PARAMETER AREA 792 S^;*********************************************************************^ 793 794 030020 446353 434700 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 795 030021 605664 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 796 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 797 030023 000000 000017 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 798 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 799 030025 000000 035501 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 800 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 801 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 802 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 803 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 804 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 805 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 806 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 807 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 808 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 809 810 S^;*********************************************************************^ 811 ;*PROGRAM VARIABLE PARAMETER AREA 812 S^;*********************************************************************^ 813 814 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 815 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 816 030041 777777 7777770 KLFLG: -1 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 817 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 818 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 819 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 820 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 821 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 822 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 823 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 824 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 825 030052 000000 000000 ERRPC: 0 ;ERROR PC 826 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 827 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 828 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 829 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0050 830 S^;*********************************************************************^ 831 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 832 S^;*********************************************************************^ 833 834 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 835 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 836 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 837 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 838 030063 000000 030007 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 839 030064 CPOPJ1: ;SKIP RETURN 840 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 841 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 842 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 843 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 844 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 845 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 846 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 847 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 848 030073 255 00 0 00 000000 $USRHL: JFCL ; " 849 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 850 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 851 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 852 030077 255 00 0 00 000000 RESRT2: JFCL ; " 853 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 854 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 855 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 856 857 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 858 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 859 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 860 861 S^;*********************************************************************^ 862 ;*PROCESSOR CONTROL STORAGE 863 S^;*********************************************************************^ 864 865 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 866 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 867 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 868 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 869 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 870 871 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 872 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 873 874 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 875 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 876 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 877 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 878 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 879 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 880 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0051 881 S^;*********************************************************************^ 882 ;*UUO DISPATCH TABLE 883 S^;*********************************************************************^ 884 XLIST 885 LIST 886 030124 030070 030070 UUODIS: LUUO1,,$UUOER 887 030125 030070 030070 LUUO3,,LUUO2 888 030126 030070 030070 LUUO5,,LUUO4 889 030127 030070 030070 LUUO7,,LUUO6 890 030130 030070 030070 LUUO11,,LUUO10 891 030131 030070 030070 LUUO13,,LUUO12 892 030132 030070 030070 LUUO15,,LUUO14 893 030133 030070 030070 LUUO17,,LUUO16 894 030134 030070 030070 LUUO21,,LUUO20 895 030135 030070 030070 LUUO23,,LUUO22 896 030136 030070 030070 LUUO25,,LUUO24 897 030137 030070 030070 LUUO27,,LUUO26 898 030140 030070 030070 LUUO31,,LUUO30 899 030141 030070 030070 LUUO33,,LUUO32 900 901 S^;*********************************************************************^ 902 ;*MEMORY MANAGMENT STORAGE 903 S^;*********************************************************************^ 904 905 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 906 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 907 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 908 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 909 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 910 911 S^;*********************************************************************^ 912 ;*PRINT CONTROL STORAGE 913 S^;*********************************************************************^ 914 915 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 916 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 917 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 918 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 919 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 920 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 921 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 922 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 923 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 924 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 925 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 926 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 927 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 928 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 929 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 930 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 931 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 932 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 933 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0052 934 S^;*********************************************************************^ 935 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 936 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 937 ;* MOVEI NAME 938 ;* PNTA ;OR PNTAF 939 S^;*********************************************************************^ 940 941 030242 CRLF: ASCII/ 942 030242 015 012 000 000 000 / 943 030243 CRLF2: ASCII/ 944 945 030243 015 012 015 012 000 / 946 030244 054 000 000 000 000 COMMA: ASCII/,/ 947 030245 056 000 000 000 000 PERIOD: ASCII/./ 948 030246 040 000 000 000 000 SPACE: ASCII/ / 949 030247 011 000 000 000 000 TAB: ASCII/ / 950 030250 MINUS: 951 030250 055 000 000 000 000 HYPEN: ASCII/-/ 952 030251 053 000 000 000 000 PLUS: ASCII/+/ 953 030252 052 000 000 000 000 AST: ASCII/*/ 954 030253 100 000 000 000 000 ATSIN: ASCII/@/ 955 030254 050 000 000 000 000 LFP: ASCII/(/ 956 030255 051 000 000 000 000 RTP: ASCII/)/ 957 030256 007 0000000000 BELL: BYTE (7) 007 958 030257 077 000 000 000 000 QUEST: ASCII/?/ 959 030260 057 000 000 000 000 SLASH: ASCII!/! 960 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 961 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 962 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 963 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 964 965 S^;*********************************************************************^ 966 ;*USER MODE OUTPUT FILE INFORMATION 967 S^;*********************************************************************^ 968 969 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 970 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 971 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 972 030272 BLOCK 2 973 974 S^;*********************************************************************^ 975 ;*DISK UPDATE MODE FILE INFORMATION 976 S^;*********************************************************************^ 977 978 030274 $IBUF: BLOCK 3 979 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 980 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 981 030301 BLOCK 2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0053 982 S^;*********************************************************************^ 983 ;*PUSHDOWN LIST CONTROL INFORMATION 984 S^;*********************************************************************^ 985 986 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 987 030304 PLISTS: BLOCK 200 988 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 989 990 S^;*********************************************************************^ 991 ;*POWER LINE CLOCK FREQUENCY FLAG 992 S^;*********************************************************************^ 993 994 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 995 996 S^;*********************************************************************^ 997 ;*KL10 CACHE CONTROL FLAGS 998 S^;*********************************************************************^ 999 1000 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 1001 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 1002 1003 S^;*********************************************************************^ 1004 ;*NUMBER INPUT DIGIT FLAG 1005 S^;*********************************************************************^ 1006 1007 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 1008 1009 S^;*********************************************************************^ 1010 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 1011 S^;*********************************************************************^ 1012 1013 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 1014 1015 S^;*********************************************************************^ 1016 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 1017 S^;*********************************************************************^ 1018 1019 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 1020 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 1021 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 1022 1023 S^;*********************************************************************^ 1024 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 1025 S^;*********************************************************************^ 1026 1027 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0054 1028 S^;*********************************************************************^ 1029 ;*USER MODE MONITOR TYPE FLAG 1030 S^;*********************************************************************^ 1031 1032 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 1033 1034 S^;*********************************************************************^ 1035 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 1036 S^;*********************************************************************^ 1037 1038 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 1039 1040 S^;*********************************************************************^ 1041 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 1042 S^;*********************************************************************^ 1043 1044 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 1045 1046 S^;*********************************************************************^ 1047 ;*"SWITCH" CALL USAGE CONTROL 1048 S^;*********************************************************************^ 1049 1050 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 1051 1052 S^;*********************************************************************^ 1053 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 1054 S^;*********************************************************************^ 1055 1056 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 1057 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 1058 1059 S^;*********************************************************************^ 1060 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 1061 S^;*********************************************************************^ 1062 1063 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 1064 1065 S^;*********************************************************************^ 1066 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 1067 S^;*********************************************************************^ 1068 1069 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 1070 1071 S^;*********************************************************************^ 1072 ;*SPECIAL FUTURE EXPANSION ROOM 1073 S^;*********************************************************************^ 1074 1075 S^;*********************************************************************^ 1076 ;*END OF FIXED STORAGE 1077 S^;*********************************************************************^ 1078 1079 030577 LOC 30577 1080 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1 DSKCGM MAC 11-Sep-79 15:13 PROGRAM CONTROL SECTION SEQ 0055 1081 SUBTTL PROGRAM CONTROL SECTION 1082 SALL 1083 ; ********************************************************************** 1084 ;*START - INITIALIZATION ROUTINE 1085 ; ********************************************************************** 1086 1087 030600 201 00 0 00 030600 START: MOVEI START ;GET ADDRESS OF CURRENT PROGRAM SECTION 1088 030601 202 00 0 00 030051 MOVEM TESTPC ;STORE IT 1089 1090 030602 332 00 0 00 030056 SKIPE $ONETM ;INITIAL LOAD FLAG 1091 030603 254 00 0 00 030607 JRST STRT ;GO TO FIRST TEST 1092 1093 030604 201 00 0 00 000001 MOVEI 1 ;INITIALIZE STRING LENGTH 1094 030605 202 00 0 00 041171 MOVEM RLEN# 1095 030606 402 00 0 00 041160 SETZM INCSKP# ;CLEAR SKIP RETURN FLAG 1096 1097 030607 265 00 0 00 030011 STRT: PGMINT ;INITIALIZE PROGRAM 1098 1099 ; ********************************************************************** 1100 ;*STARTA - PROGRAM PASS CONTROL SECTION 1101 ; ********************************************************************** 1102 1103 030610 260 17 0 00 034667 STARTA: GO MUUOHS ;SET UP PROGRAM'S OWN MUUO HANDLER 1104 030611 402 00 0 00 041162 SETZM OFFSET 1105 1106 030612 037 10 0 00 000002 SWITCH 1107 030613 201 01 0 00 000012 MOVEI AC1,^D10 1108 030614 607 00 0 00 000400 TLNN RELIAB ;RELIABILITY MODE? 1109 030615 201 01 0 00 000001 MOVEI AC1,1 ;NO - FAST CYCLE MODE 1110 030616 202 01 0 00 041172 MOVEM AC1,RPEAT# 1111 1112 030617 254 00 0 00 030620 JRST TRAPT1 ;START TESTING 1113 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0056 1114 SUBTTL MUUO TRAP TESTING 1115 1116 ; ********************************************************************** 1117 ;*TEST 1 -- EXTENDED OPERATOR EXECUTION TRAP TEST 1118 ;* 1119 ;* THIS TEST EXECUTES ALL EXTENDED OPERATORS IN THE 1120 ;* EXTENDED INSTRUCTION SET AS INSTRUCTIONS. 1121 ;* FOR EXAMPLE, 004 (EDIT) IS EXECUTED AS AN INSTRUCTION OPCODE. 1122 ;* EACH ATTEMPTED EXECUTION SHOULD CAUSE AN LUUO. 1123 ;* IF IT DOES NOT AN ERROR PRINTOUT OCCURS. 1124 ; ********************************************************************** 1125 SALL 1126 037256 T= SIXBTZ 1127 1128 030620 201 00 0 00 030620 TRAPT1: MOVEI . ;GET TEST ADDRESS 1129 030621 202 00 0 00 030051 MOVEM TESTPC ;STORE IT 1130 030622 200 15 0 00 041172 MOVE REPT,RPEAT ;GET LOOP COUNTER 1131 1132 030623 514 06 0 00 035516 TRAP1: HRLZ AC6,OPTAB-1 ;AC6/-TABLE LENGTH,,0 1133 030624 541 06 0 00 035517 HRRI AC6,OPTAB ;AC6/-TABLE LENGTH,,TABLE ADDRESS 1134 1135 030625 200 00 0 00 000041 TRAP1A: MOVE 41 ;SAVE SUBROUTINE PKG.TRAP ROUTINE ADDR 1136 030626 202 00 0 00 041175 MOVEM SVLUUO# 1137 1138 030627 200 00 0 00 037265 MOVE [PUSHJ 17,LUUOH] ;GET ADDRESS OF LUUO HANDLER 1139 030630 202 00 0 00 000041 MOVEM 41 ;SETUP FOR UUO INTERCEPTION 1140 1141 030631 476 00 0 00 041157 SETOM GOTRAP# ;INDICATE THAT TRAP IS EXPECTED 1142 030632 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE OPCODE FROM TABLE 1143 030633 402 00 0 00 030635 SETZM EXLAB ;CLEAR INSTRUCTION WORD 1144 030634 137 00 0 00 037266 DPB [POINT 9,EXLAB,8] ;INSERT IN NEXT LOCATION TO BE EXECUTED 1145 1146 ; ************************************************** 1147 030635 EXLAB: BLOCK 1 ;WORD THAT HOLDS THE INSTRUCTION 1148 030636 255 00 0 00 000000 JFCL ;IN CASE INSTRUCTION DOESN'T TRAP 1149 ; ************************************************** 1150 1151 030637 200 00 0 00 041175 MOVE SVLUUO ;RESTORE SUBROU. PKG.TRAP ROUTINE SETUP 1152 030640 202 00 0 00 000041 MOVEM 41 1153 1154 030641 332 00 0 00 041157 SKIPE GOTRAP ;IF GOTRAP=0 THEN INSTRUCTION TRAPPED 1155 ERROR (TRAP1A,13,EXLAB,0,^_ 1156 ^CORRECT=INSTRUCTION,^_ 1157 030642 036 13 0 00 037304 ILLEGAL INSTRUCTION EXECUTION FAILED TO CAUSE LUUO) 1158 030643 035 00 0 00 030625 ERLOOP TRAP1A ;IF ERROR, LOOP TO TRAP1A 1159 030644 253 01 0 00 030625 AOBJN 1,TRAP1A ;GET THE NEXT OPCODE FROM THE TABLE 1160 1161 030645 367 15 0 00 030623 REPTLP TRAP1 1162 030646 254 00 0 00 030647 JRST TRAPT2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0057 1163 1164 ; ********************************************************************** 1165 ;*TEST 2 -- ILLEGAL EXTENDED OPERATOR TRAP TEST 1166 ;* 1167 ;* THE MICROCODE PERFORMS A RANGE CHECK ON THE EXTENDED 1168 ;* OPERATOR CODE IN E0. (KS ONLY - SINCE THE KS10 IS A SINGLE 1169 ;* SECTION MACHINE AND DOES NOT SUPPORT EXTENDED ADDRESSING, 1170 ;* BITS 9-12 OF E0 SHOULD CAUSE A TRAP IF NOT EQUAL TO ZERO.) 1171 ;* IF AN MUUO DOES NOT OCCUR WHEN ILLEGAL VALUES ARE SPECIFIED 1172 ;* FOR THE E0 WORD AN ERROR PRINTOUT OCCURS. 1173 ; ********************************************************************** 1174 SALL 1175 037307 T= SIXBTZ 1176 1177 030647 201 00 0 00 030647 TRAPT2: MOVEI . ;GET TEST ADDRESS 1178 030650 202 00 0 00 030051 MOVEM TESTPC ;STORE IT 1179 030651 200 15 0 00 041172 MOVE REPT,RPEAT 1180 1181 030652 403 10 0 00 000011 TRAP2: SETZB AC,AC+1 ;CLEAR AC'S TO PROTECT THE PROGRAM IN 1182 030653 403 13 0 00 000014 SETZB AC+3,AC+4 ;CASE NO MUUO'S OCCUR 1183 1184 030654 515 05 0 00 037000 HRLZI 5,37000 ;THIS VALUE IS AN OUT OF RANGE OPERATOR 1185 030655 202 05 0 00 035564 MOVEM 5,E0 ;SETUP E0 FIELD 1186 1187 030656 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT WE EXPECT AN MUUO 1188 1189 ; ************************************************** 1190 030657 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE EXTENDED INSTRUCTION 1191 030660 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP 1192 ; ************************************************** 1193 1194 030661 332 00 0 00 041157 SKIPE GOTRAP 1195 ERROR (TRAP2,13,E0,0,^_ 1196 ^CORRECT=INSTRUCTION,^_ 1197 030662 036 13 0 00 037324 OUT OF RANGE OPERATOR FAILED TO TRAP) 1198 030663 035 00 0 00 030652 ERLOOP TRAP2 ;IF ERROR, LOOP TO TRAP2 1199 1200 030664 332 00 0 00 030524 SKIPE SM10 ;KS-10? 1201 030665 254 00 0 00 030670 JRST TRAP2A ;YES - SO CHECK BITS 9-12 IN E0 WORD 1202 1203 030666 367 15 0 00 030652 REPTLP TRAP2 1204 030667 254 00 0 00 030704 JRST TRAPT3 ;KL DOES NOT CHECK BITS 9-12 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0058 1205 1206 030670 403 10 0 00 000011 TRAP2A: SETZB AC,AC+1 ;CLEAR AC'S TO PROTECT THE PROGRAM IN 1207 030671 403 13 0 00 000014 SETZB AC+3,AC+4 ;CASE NO MUUO'S OCCUR 1208 1209 030672 515 05 0 00 001740 HRLZI 5,1740 ;SET BITS IN E0 9,12 (SHOULD BE BLANK) 1210 030673 202 05 0 00 035564 MOVEM 5,E0 ;SETUP EO FIELD 1211 1212 030674 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT WE EXPECT AN MUUO 1213 1214 ; ************************************************** 1215 030675 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE EXTENDED INSTRUCTION 1216 030676 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP 1217 ; ************************************************** 1218 1219 030677 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED 1220 ERROR (TRAP2A,13,E0,0,^_ 1221 ^CORRECT=INSTRUCTION,^_ 1222 ILLEGAL AC FIELD BITS 9-12 FAILED TO TRAP)^ 1223 030700 036 13 0 00 037336 1224 030701 035 00 0 00 030670 ERLOOP TRAP2A ;IF ERROR, LOOP TO TRAP2A 1225 1226 030702 367 15 0 00 030652 REPTLP TRAP2 1227 030703 254 00 0 00 030704 JRST TRAPT3 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0059 1228 1229 ; ********************************************************************** 1230 ;*TEST 3 -- ILLEGAL AC FIELD TRAP TEST 1231 ;* 1232 ;* THIS TEST EXECUTES THE EXTENDED INSTRUCTIONS 1233 ;* WITH ILLEGAL OR UNUSED AC FIELDS SET (BIT BY BIT). THE 1234 ;* EXECUTION OF THESE INSTRUCTIONS SHOULD CAUSE A TRAP. IF IT 1235 ;* DOES NOT OCCUR AN ERROR PRINTOUT OCCURS. (KS ONLY - SINCE THE 1236 ;* KS-10 IS A SINGLE SECTION MACHINE BITS 6-17 OF THE PATTERN 1237 ;* POINTER FIELD (AC) FOR THE EDIT INSTRUCTION SHOULD TRAP 1238 ;* IF NOT EQUAL TO ZERO.) 1239 ;* 1240 ;* NOTE: THERE ARE SOME AC FIELDS THAT ARE LISTED AS UNUSED OR 0 1241 ;* IN THE INSTRUCTION SPEC THAT ARE NOT TRAPPED AS 1242 ;* MUUOS BY THE MICROCODE (I.E. ILLEGAL SETTING OF THOSE 1243 ;* BITS HAS NO EFFECT ON THE INSTRUCTION). 1244 ; ********************************************************************** 1245 SALL 1246 037341 T= SIXBTZ 1247 1248 030704 201 00 0 00 030704 TRAPT3: MOVEI . ;GET TEST ADDRESS 1249 030705 202 00 0 00 030051 MOVEM TESTPC ;STORE IT 1250 030706 200 15 0 00 041172 MOVE REPT,RPEAT 1251 1252 030707 135 11 0 00 037346 TRAP3: LDB SP,[POINT 0,SOURCE,0] ;SETUP ACS TO PROTECT PROGRAM 1253 030710 135 14 0 00 037347 LDB DP,[POINT 0,DESTIN,0] ;IN CASE THE INSTR DOESN'T TRAP 1254 1255 030711 403 10 0 00 000013 SETZB AC,AC+3 ;CLEAR STRING LENGTH ACS 1256 1257 ; ************************************************** 1258 ;*TEST COMPARE INSTRUCTION STRING LENGTH AC BITS 0,9 1259 ; ************************************************** 1260 1261 030712 515 06 0 00 777772 HRLZI AC6,-6 ;AC6/- #CMP INSTR,,0 1262 030713 541 06 0 00 035517 HRRI AC6,OPTAB ;AC6/- #CMP INSTR,,OPCODE TABLE ADDRESS 1263 1264 030714 201 04 0 00 000011 CMPTRP: MOVEI AC4,^D9 ;SETUP LOOP COUNTER 1265 030715 205 05 0 00 001000 MOVSI AC5,(1B8) ;ILLEGAL BIT MASK 1266 1267 030716 402 00 0 00 035564 CMPT1: SETZM E0 ;CLEAR THE E0 FIELD FOR TEST 1268 1269 030717 200 07 0 06 000000 MOVE AC7,(AC6) ;GET COMPARE INSTRUCTION OPCODE 1270 030720 137 07 0 00 036220 DPB AC7,E0OP ;PUT INSTRUCTION OPCODE IN E0 1271 030721 434 10 0 00 000005 OR AC,AC5 ;ILLEGAL SOURCE LENGTH BITS TO SLEN 1272 1273 030722 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THE MUUO IS EXPECTED 1274 1275 ; ************************************************** 1276 030723 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION 1277 030724 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP 1278 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0060 1279 1280 030725 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED 1281 ERROR (CMPTRP,13,AC,0,^_ 1282 ^CORRECT=SOURCE LENGTH,^_ 1283 030726 036 13 0 00 037366 ILLEGAL SOURCE LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP) 1284 030727 035 00 0 00 030714 ERLOOP CMPTRP ;IF ERROR, LOOP TO CMPTRP 1285 1286 030730 402 00 0 00 000010 SETZM AC ;RESET AC 1287 030731 434 13 0 00 000005 OR AC+3,AC5 ;ILLEGAL DESTINATION LENGTH BITS TO DLEN 1288 030732 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT TRAP EXPECTED 1289 1290 ; ************************************************** 1291 030733 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION 1292 030734 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP 1293 ; ************************************************** 1294 1295 030735 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED 1296 ERROR (CMPTRP,13,AC+3,0,^_ 1297 ^CORRECT=DESTINATION LENGTH,^_ 1298 ILLEGAL DESTIN LENGTH IN COMPARE INSTR DIDN'T CAUSE TRAP)^ 1299 030736 036 13 0 00 037410 1300 030737 035 00 0 00 030714 ERLOOP CMPTRP ;IF ERROR, LOOP TO CMPTRP 1301 1302 030740 402 00 0 00 000013 SETZM AC+3 ;RESET DESTINATION LENGTH AC 1303 030741 242 05 0 00 000001 LSH AC5,1 ;SETUP FOR NEXT BIT IN FIELD 1304 1305 030742 367 04 0 00 030716 SOJG AC4,CMPT1 ;DO NEXT BIT IN FIELD 1306 1307 030743 253 06 0 00 030714 AOBJN AC6,CMPTRP ;GO TRY NEXT OPCODE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0061 1308 1309 ; ************************************************** 1310 ;*TEST THE MOVE STRING DESTINATION LENGTH BITS 0,9 1311 ; ************************************************** 1312 1313 030744 505 06 0 00 777774 MVSTRP: HRLI AC6,-4 ;AC6/- #MVS INSTR,,CURRENT TABLE ADDRESS 1314 1315 030745 205 05 0 00 001000 MVS1: MOVSI AC5,(1B8) ;SETUP ILLEGAL BIT MASK 1316 030746 201 04 0 00 000011 MOVEI AC4,^D9 ;NUMBER OF BIT POSTIONS TO CHECK 1317 1318 030747 200 07 0 06 000000 MVS2: MOVE AC7,(AC6) ;GET OPERATOR OPCODE 1319 030750 402 00 0 00 035564 SETZM E0 ;CLEAR OPERATOR FIELD 1320 030751 137 07 0 00 036220 DPB AC7,E0OP ;PUT OPCODE IN BITS 0,9 1321 030752 434 13 0 00 000005 OR AC+3,AC5 ;SETUP ILLEGAL DESTINATION LENGTH 1322 1323 030753 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT MUUO IS EXPECTED 1324 1325 ; ************************************************** 1326 030754 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION 1327 030755 255 00 0 00 000000 JFCL ;IN CASE THE TRAP DOESN'T OCCUR 1328 ; ************************************************** 1329 1330 030756 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED 1331 ERROR (MVS2,13,AC+3,0,^_ 1332 ^CORRECT=DESTINATION LENGTH,^_ 1333 ILLEGAL DLEN IN MOVE STRING INSTR DIDN'T CAUSE TRAP)^ 1334 030757 036 13 0 00 037424 1335 030760 035 00 0 00 030747 ERLOOP MVS2 ;IF ERROR, LOOP TO MVS2 1336 1337 030761 242 05 0 00 000001 LSH AC5,1 ;SETUP NEXT BIT 1338 1339 030762 367 04 0 00 030747 SOJG AC4,MVS2 ;TEST NEXT BIT 1340 1341 030763 253 06 0 00 030745 AOBJN AC6,MVS1 ;GO TRY NEXT OPCODE 1342 1343 030764 332 00 0 00 030524 SKIPE SM10 ;KS-10? 1344 030765 254 00 0 00 030771 JRST EDITRP ;YES 1345 1346 030766 035 02 0 00 030704 ERLP2 TRAPT3 ;KL-10 SO END OF THIS TEST 1347 030767 367 15 0 00 030707 REPTLP TRAP3 1348 1349 030770 254 00 0 00 031012 JRST CMPMOD ;GO TO NEXT TEST DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 8 DSKCGM MAC 11-Sep-79 15:13 MUUO TRAP TESTING SEQ 0062 1350 1351 ; ************************************************** 1352 ;*TEST EDIT INSTRUCTION ILLEGAL PATTERN POINTER FIELD (KS-10 ONLY) 1353 ; ************************************************** 1354 1355 030771 201 07 0 00 000004 EDITRP: MOVEI AC7,4 ;GET EDIT INSTRUCTION OPCODE 1356 030772 402 00 0 00 035564 SETZM E0 ;CLEAR E0 FIELD 1357 030773 137 07 0 00 036220 DPB AC7,E0OP ;PUT OPCODE IN BITS 0,9 1358 030774 205 05 0 00 000001 MOVSI AC5,(1B17) ;ILLEGAL FIELD MASK 1359 030775 201 04 0 00 000014 MOVEI AC4,^D12 ;NUMBER OF ILLEGAL BITS TO CHECK 1360 1361 030776 402 00 0 00 000010 EDIT1: SETZM AC ;CLEAR THE PATTERN POINTER REGISTER 1362 030777 434 10 0 00 000005 OR AC,AC5 ;SET THE ILLEGAL BIT 1363 031000 476 00 0 00 041157 SETOM GOTRAP ;INDICATE THAT MUUO EXPECTED 1364 1365 ; ************************************************** 1366 031001 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION 1367 031002 255 00 0 00 000000 JFCL ;IN CASE THE INSTRUCTION DOESN'T TRAP 1368 ; ************************************************** 1369 1370 031003 332 00 0 00 041157 SKIPE GOTRAP ;GOTRAP=0 MEANS TRAP OCCURED 1371 ERROR (EDIT1,13,AC,0,^_ 1372 ^CORRECT=PATTERN POINTER,^_ 1373 ILLEGAL PATTERN POINTER FIELD IN EDIT INSTR DIDN'T CAUSE TRAP)^ 1374 031004 036 13 0 00 037447 1375 031005 035 00 0 00 030776 ERLOOP EDIT1 ;IF ERROR, LOOP TO EDIT1 1376 1377 031006 242 05 0 00 000001 LSH AC5,1 ;SETUP NEXT BIT FIELD 1378 1379 031007 367 04 0 00 030776 SOJG AC4,EDIT1 ;JUMP IF MORE FIELDS TO CHECK 1380 1381 031010 367 15 0 00 030707 REPTLP TRAP3 1382 031011 254 00 0 00 031012 JRST CMPMOD 1383 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 9 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0063 1384 SUBTTL EXTEND INSTRUCTION CASE TESTING 1385 1386 ; ********************************************************************** 1387 ;*EXTEND INSTRUCTION CASE TESTING -- GENERAL INFORMATION 1388 ;* 1389 ;* THERE ARE 5 EXTEND INSTRUCTION CASE TEST MODULES (MODULE NAMES 1390 ;* SUFFIXED BY "MOD"). EDIT INSTR TESTING CONSISTS OF 9 SUBMODULES. 1391 ;* 1392 ;* EACH MODULE EXECUTES INSTRUCTIONS WITH PARAMETERS DERIVED FROM 1393 ;* A CASE TABLE (I.E. VARYING STRING LENGTHS, BYTE SIZES, FILLER 1394 ;* VALUES, PATTERNS, OFFSETS, ETC.). 1395 ;* 1396 ;* WHEN THE INSTRUCTION HAS BEEN SET UP, AN INSTRUCTION SIMULATOR 1397 ;* (ROUTINE NAMES SUFFIXED BY "SIM") IS CALLED. THE REAL INSTRUCTION 1398 ;* IS THEN EXECUTED. 1399 ;* 1400 ;* THE RESULTS OF THE INSTRUCTION AND THE SIMULATOR ARE COMPARED IN 1401 ;* AN INSTRUCTION COMPARATOR ROUTINE (ROUTINE NAME SUFFIXED BY "COM"). 1402 ;* 1403 ;* EACH INSTRUCTION IS RUN FOR EVERY CASE SPECIFIED AND THEN 1404 ;* THE NEXT INSTRUCTION IS RUN FOR EVERY CASE, ETC. 1405 ;* 1406 ;* ON ERROR AN ERROR MESSAGE IS PRINTED AND THE PROGRAM PROCEEDS 1407 ;* WITH THE NEXT CASE IN SEQUENCE. THE FAILURE INFORMATION IS PRINTED 1408 ;* BY AN INSTRUCTION PRINTING ROUTINE (ROUTINE NAME SUFFIXED BY "PNT"). 1409 ;* 1410 ;* THE INITIAL AC BLOCK IS STORED IN ORIGSV. 1411 ;* THE RESULTS OF THE SIMULATOR ARE STORED IN RESSV. 1412 ;* AC6 HOLDS THE INSTRUCTION OPCODE INFORMATION. 1413 ;* AC7 HOLDS THE CASE TABLE INFORMATION. 1414 ;* THE INTEGRITY OF THESE ACS IS PRESERVED THROUGHOUT MODULE EXECUTION. 1415 ; ********************************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 10 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0064 1416 1417 ; ********************************************************************** 1418 ;*TEST 4 -- COMPARE STRING INSTRUCTION TEST 1419 ;* 1420 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S 1421 ;* SIX COMPARE INSTRUCTIONS. 1422 ; ********************************************************************** 1423 SALL 1424 037452 T= SIXBTZ 1425 1426 031012 201 00 0 00 031012 CMPMOD: MOVEI . ;GET TEST ADDRESS 1427 031013 202 00 0 00 030051 MOVEM TESTPC ;STORE IT 1428 031014 200 15 0 00 041172 MOVE REPT,RPEAT 1429 1430 031015 515 06 0 00 777772 CMPM: HRLZI AC6,-6 ;AC6/- #CMP INSTR,,0 1431 031016 541 06 0 00 035517 HRRI AC6,CMPTAB ;AC6/- #CMP INSTR,,OPCODE TABLE ADDR 1432 1433 031017 514 07 0 00 037005 CMP1: HRLZ AC7,CMPCAS-1 ;AC7/- #CMP CASES,,0 1434 031020 541 07 0 00 037006 HRRI AC7,CMPCAS ;AC7/- #CMP CASES,,CASE TABLE ADDRESS 1435 1436 031021 200 00 0 06 000000 CMP2: MOVE (AC6) ;RETRIEVE CURRENT COMPARE OPCODE 1437 031022 137 00 0 00 036220 DPB E0OP ;PUT IN INSTRUCTION OPCODE FIELD 1438 1439 031023 260 17 0 00 035435 GO RANLEN ;STRING LENGTH TO AC0 1440 031024 202 00 0 00 000010 MOVEM SLEN ;STORE IN STRING LENGTHS 1441 031025 202 00 0 00 000013 MOVEM DLEN 1442 1443 031026 402 00 0 00 041173 SETZM SKPWD1# ;CLEAR SKIP INDICATOR WORDS 1444 031027 402 00 0 00 041174 SETZM SKPWD2# 1445 031030 402 00 0 00 035565 SETZM E0+1 ;CLEAR FILLER WORDS 1446 031031 402 00 0 00 035566 SETZM E0+2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 11 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0065 1447 1448 ; ************************************************** 1449 ;DETERMINE THE DESIRED PATTERN TYPE 1450 ; ************************************************** 1451 1452 031032 200 01 0 07 000000 MOVE 1,(AC7) ;RETRIEVE CURRENT CASE PARAMETER WORD 1453 031033 607 01 0 00 010000 TLNN 1,(ALTPT) ;ALTERNATING 1'S AND 0'S PATTERN? 1454 031034 254 00 0 00 031037 JRST CHKB1 ;NO 1455 1456 031035 200 00 0 00 036431 MOVE APAT ;YES - GET THE PATTERN 1457 031036 254 00 0 00 031052 JRST CMPLEN ;CONTINUE 1458 1459 031037 607 01 0 00 002000 CHKB1: TLNN 1,(ONESPT) ;ONE'S PATTERN? 1460 031040 254 00 0 00 031043 JRST CHKC1 ;NO 1461 1462 031041 200 00 0 00 036432 MOVE BPAT ;YES - GET THE PATTERN 1463 031042 254 00 0 00 031052 JRST CMPLEN ;CONTINUE 1464 1465 031043 607 01 0 00 004000 CHKC1: TLNN 1,(ONEPT) ;ONE PATTERN (0,,1)? 1466 031044 254 00 0 00 031047 JRST CMPER1 ;NO - CASE TABLE ERROR 1467 1468 031045 200 00 0 00 036433 MOVE CPAT ;YES - GET THE PATTERN 1469 031046 254 00 0 00 031052 JRST CMPLEN ;CONTINUE 1470 1471 031047 037 02 0 00 037460 CMPER1: PMSG <^CMPXX PATTERN NOT SELECTED - ABORTING CURRENT CASE> 1472 031050 253 07 0 00 031021 AOBJN AC7,CMP2 1473 031051 254 00 0 00 031203 JRST MOVMOD ;NO CASES LEFT - GO TO NEXT TEST 1474 1475 031052 202 00 0 00 041165 CMPLEN: MOVEM PATTERN# ;STORE CHOSEN PATTERN 1476 1477 031053 603 01 0 00 400000 TLNE 1,(EQLEN) ;STRINGS OF EQUAL LENGTH? 1478 031054 254 00 0 00 031122 JRST CMPBYT ;YES - THIS IS ALREADY SET UP DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 12 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0066 1479 1480 ; ************************************************** 1481 ;STRINGS WILL BE OF UNEQUAL LENGTH SO NOW PICK A FILLER 1482 ; ************************************************** 1483 1484 031055 607 01 0 00 001000 CMPFIL: TLNN 1,(EQFIL) ;FILLER = PATTERN? 1485 031056 254 00 0 00 031061 JRST CMPF1 ;NO 1486 1487 031057 200 00 0 00 041165 MOVE PATTERN ;YES - PATTERN TO AC0 1488 031060 254 00 0 00 031074 JRST CMPL 1489 1490 031061 607 01 0 00 000400 CMPF1: TLNN 1,(LFILL) ;ZERO FILLER? 1491 031062 254 00 0 00 031065 JRST CMPF2 ;NO 1492 031063 200 00 0 00 036434 MOVE DPAT ;YES - ZERO PATTERN TO AC0 1493 031064 254 00 0 00 031074 JRST CMPL 1494 1495 031065 607 01 0 00 000200 CMPF2: TLNN 1,(GFILL) ;ONE'S FILLER 1496 031066 254 00 0 00 031071 JRST CMPER2 ;NO - CASE TABLE ERROR 1497 031067 200 00 0 00 036432 MOVE BPAT ;YES - ONE'S PATTERN TO AC0 1498 031070 254 00 0 00 031074 JRST CMPL 1499 1500 031071 037 02 0 00 037471 CMPER2: PMSG <^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED> 1501 031072 253 07 0 00 031021 AOBJN AC7,CMP2 1502 031073 254 00 0 00 031203 JRST MOVMOD ;NO CASES LEFT - GO TO NEXT TEST DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 13 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0067 1503 1504 ; ************************************************** 1505 ;NOW PUT THE FILLER (STORED IN AC0) INTO THE AC BLOCK 1506 ;THE FILLER GOES INTO E0+1 IF SLEN < DLEN AND INTO E0+2 IF SLEN > DLEN 1507 ; ************************************************** 1508 1509 031074 607 01 0 00 200000 CMPL: TLNN 1,(SZERO) ;SOURCE LENGTH = 0? 1510 031075 254 00 0 00 031101 JRST CMPL1 ;NO 1511 031076 402 00 0 00 000010 SETZM SLEN ;YES - ZERO SOURCE LENGTH 1512 031077 202 00 0 00 035565 MOVEM E0+1 ;SETUP FILLER 1513 031100 254 00 0 00 031122 JRST CMPBYT 1514 1515 031101 607 01 0 00 100000 CMPL1: TLNN 1,(DZERO) ;DESTIN LENGTH = 0? 1516 031102 254 00 0 00 031106 JRST CMPL2 ;NO 1517 031103 402 00 0 00 000013 SETZM DLEN ;YES - ZERO DESTINATION LENGTH 1518 031104 202 00 0 00 035566 MOVEM E0+2 ;SETUP FILLER 1519 031105 254 00 0 00 031122 JRST CMPBYT 1520 1521 031106 607 01 0 00 040000 CMPL2: TLNN 1,(DSZER) ;BOTH SOURCE AND DESTIN LENGTH'S ZERO? 1522 031107 254 00 0 00 031112 JRST CMPL3 ;NO - BOTH MUST BE HAVE LENGTHS > 0 1523 031110 403 10 0 00 000013 SETZB SLEN,DLEN ;YES - SET BOTH TRING LENGTHS TO ZERO 1524 031111 254 00 0 00 031122 JRST CMPBYT 1525 1526 031112 607 01 0 00 020000 CMPL3: TLNN 1,(SLONG) ;DESTIN SHORTER THAN SOURCE? 1527 031113 254 00 0 00 031117 JRST E0FIL1 ;NO 1528 031114 242 13 0 00 777777 LSH DLEN,-1 ;DLEN=1/2 SLEN 1529 031115 202 00 0 00 035566 MOVEM E0+2 ;SETUP FILLER 1530 031116 254 00 0 00 031122 JRST CMPBYT 1531 1532 031117 242 10 0 00 777777 E0FIL1: LSH SLEN,-1 ;SLEN=1/2 DLEN 1533 031120 202 00 0 00 035565 MOVEM E0+1 ;SETUP FILLER 1534 031121 254 00 0 00 031122 JRST CMPBYT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 14 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0068 1535 1536 ; ************************************************** 1537 ;DETERMINE STRING BYTE SIZES 1538 ; ************************************************** 1539 1540 031122 603 01 0 00 000100 CMPBYT: TLNE 1,(S44) ;FULL WORD SOURCE BYTES? 1541 031123 254 00 0 00 031130 JRST CMPB1 ;YES 1542 1543 031124 201 00 0 00 000037 MOVEI AC0,37 1544 031125 406 00 0 00 035565 ANDM AC0,E0+1 1545 031126 200 11 0 00 037502 MOVE SP,[POINT 5,SOURCE] 1546 031127 334 00 0 00 000000 SKIPA 1547 1548 031130 200 11 0 00 037503 CMPB1: MOVE SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER 1549 1550 031131 603 01 0 00 000040 TLNE 1,(D44) ;FULL WORD DESTIN BYTE SIZE? 1551 031132 254 00 0 00 031137 JRST CMPB2 ;YES 1552 1553 031133 201 00 0 00 000037 MOVEI AC0,37 1554 031134 406 00 0 00 035566 ANDM AC0,E0+2 1555 031135 200 14 0 00 037504 MOVE DP,[POINT 5,DESTIN] 1556 031136 334 00 0 00 000000 SKIPA 1557 1558 031137 200 14 0 00 037505 CMPB2: MOVE DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 15 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0069 1559 1560 ; ************************************************** 1561 ;PROCEED TO SET UP THE STRINGS 1562 ; ************************************************** 1563 1564 031140 261 17 0 00 000006 CMPSTR: PUT AC6 ;NEED THAT SPARE AC! 1565 1566 031141 200 02 0 00 000010 MOVE SLEN1,SLEN ;COPY OF SOURCE STRING LENGTH 1567 031142 200 03 0 00 000011 MOVE SP1,SP ;COPY OF SOURCE STRING POINTER 1568 031143 200 00 0 00 041165 MOVE AC0,PATTERN ;COPY OF PATTERN 1569 031144 402 00 0 00 000004 SETZM AC4 ;CLEAR REWRITE BYTE WORD 1570 1571 031145 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE THE FIRST BYTE TO THE STRING 1572 1573 031146 377 00 0 00 000002 CSET1: SOSG SLEN1 1574 031147 254 00 0 00 031152 JRST CSET2 ;JUMP IF LAST BYTE WRITTEN 1575 1576 031150 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE A BYTE 1577 031151 254 00 0 00 031146 JRST CSET1 ;GO FOR THE NEXT ONE 1578 1579 031152 603 01 0 00 000020 CSET2: TLNE 1,(ALS) ;ALTER THE LAST SOURCE BYTE? 1580 031153 137 04 0 00 000003 DPB AC4,SP1 ;YES - ZERO IT 1581 1582 031154 200 05 0 00 000013 MOVE DLEN1,DLEN ;COPY OF DESTINAION STRING LENGTH 1583 031155 200 04 0 00 000014 MOVE DP1,DP ;COPY OF DESTIN STRING BYTE POINTER 1584 031156 136 00 0 00 000004 IDPB AC0,DP1 ;WRITE THE FIRST BYTE 1585 1586 031157 377 00 0 00 000005 CSET3: SOSG DLEN1 1587 031160 254 00 0 00 031163 JRST CSET4 ;JUMP IF LAST BYTE WRITTEN 1588 1589 031161 136 00 0 00 000004 IDPB AC0,DP1 ;WRITE A BYTE 1590 031162 254 00 0 00 031157 JRST CSET3 ;GO FOR THE NEXT ONE 1591 1592 031163 603 01 0 00 000010 CSET4: TLNE 1,(ALD) ;ALTER THE LAST DESTIN BYTE 1593 031164 137 04 0 00 000004 DPB AC4,DP1 ;YES - ZERO IT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 16 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0070 1594 1595 ; ************************************************** 1596 ;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY 1597 ; ************************************************** 1598 1599 031165 200 00 0 00 037506 MOVE AC0,[AC,,ORIGSV] 1600 031166 251 00 0 00 035766 BLT AC0,ORIGSV+4 1601 1602 031167 262 17 0 00 000006 GET AC6 ;RESTORE AC6 1603 1604 ; ************************************************** 1605 031170 260 17 0 00 033475 GO CMPSIM ;CALL THE COMPARE INSTR SIMULATOR 1606 031171 476 00 0 00 041173 SETOM SKPWD1 ;SIMULATED SKIP RETURN 1607 ; ************************************************** 1608 1609 ; ************************************************** 1610 031172 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 1611 031173 476 00 0 00 041174 SETOM SKPWD2 ;REAL SKIP RETURN 1612 ; ************************************************** 1613 1614 031174 260 17 0 00 034253 GO CMPCOM ;COMPARE THE RESULTS 1615 031175 036 13 0 00 037507 ERROR CMP2,13,0,0,,,CMPPNT 1616 031176 035 00 0 00 031021 ERLOOP CMP2 ;IF ERROR, LOOP TO CMP2 1617 1618 031177 253 07 0 00 031021 AOBJN AC7,CMP2 ;EXECUTE THE NEXT CASE 1619 031200 253 06 0 00 031017 AOBJN AC6,CMP1 ;EXECUTE THE CASES WITH THE NEXT OPCODE 1620 1621 031201 367 15 0 00 031015 REPTLP CMPM 1622 031202 254 00 0 00 031203 JRST MOVMOD ;FINISHED - GO TO NEXT TEST DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 17 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0071 1623 1624 ; ********************************************************************** 1625 ;*TEST 5 -- MOVE STRING INSTRUCTION TEST 1626 ;* 1627 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S 1628 ;* FOUR MOVE STRING INSTRUCTIONS. 1629 ; ********************************************************************** 1630 SALL 1631 037512 T= SIXBTZ 1632 1633 031203 201 00 0 00 031203 MOVMOD: MOVEI . 1634 031204 202 00 0 00 030051 MOVEM TESTPC 1635 031205 200 15 0 00 041172 MOVE REPT,RPEAT 1636 1637 031206 515 06 0 00 777774 MOVM: HRLZI AC6,-4 ;AC6/- #MOV INSTR,,0 1638 031207 541 06 0 00 035525 HRRI AC6,MOVTAB ;AC6/- #MOV INSTR,,OPCODE TABLE ADDR 1639 1640 031210 514 07 0 00 037055 MOV1: HRLZ AC7,MOVCAS-1 ;AC7/- #MOV CASES,,0 1641 031211 541 07 0 00 037056 HRRI AC7,MOVCAS ;AC7/- #MOV CASES,,CASE TABLE ADDRESS 1642 1643 031212 260 17 0 00 035313 MOV2: GO CLRSTR ;CLEAR THE SOURCE AND DESTINATION AREAS 1644 1645 031213 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT MOVE OPCODE 1646 031214 137 00 0 00 036220 DPB E0OP ;PUT IN INSTRUCTION OPCODE FIELD 1647 1648 031215 402 00 0 00 041176 SETZM TRANFG 1649 031216 306 00 0 00 000015 CAIN AC0,015 ;MOVST INSTRUCTION? 1650 031217 476 00 0 00 041176 SETOM TRANFG# ;YES - SET TRANSLATE FLAG 1651 1652 031220 260 17 0 00 035435 GO RANLEN ;STRING LENGTH TO AC0 1653 031221 202 00 0 00 000010 MOVEM SLEN ;STORE IN STRING LENGTHS 1654 031222 202 00 0 00 000013 MOVEM DLEN 1655 1656 031223 402 00 0 00 041173 SETZM SKPWD1# ;CLEAR SKIP INDICATOR WORDS 1657 031224 402 00 0 00 041174 SETZM SKPWD2# 1658 031225 402 00 0 00 035565 SETZM E0+1 ;CLEAR FILLER WORD 1659 1660 031226 336 00 0 00 041176 SKIPN TRANFG ;MOVST? 1661 031227 254 00 0 00 031232 JRST CHKA2 ;NO 1662 1663 031230 201 00 0 00 000001 MOVEI AC0,1 ;TRANSLATE PATTERN ALWAYS STARTS WITH 1 1664 031231 254 00 0 00 031252 JRST MOVLEN ;AND INCREMENTS DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 18 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0072 1665 1666 ; ************************************************** 1667 ;DETERMINE THE DESIRED PATTERN TYPE 1668 ; ************************************************** 1669 1670 031232 200 01 0 07 000000 CHKA2: MOVE 1,(AC7) ;RETRIEVE CURRENT CASE PARAMETER WORD 1671 031233 607 01 0 00 010000 TLNN 1,(ALTPT) ;ALTERNATING 1'S AND 0'S PATTERN? 1672 031234 254 00 0 00 031237 JRST CHKB2 ;NO 1673 031235 200 00 0 00 036431 MOVE APAT ;YES - GET THE PATTERN 1674 031236 254 00 0 00 031252 JRST MOVLEN ;CONTINUE 1675 1676 031237 607 01 0 00 002000 CHKB2: TLNN 1,(ONESPT) ;ONE'S PATTERN? 1677 031240 254 00 0 00 031243 JRST CHKC2 ;NO 1678 031241 200 00 0 00 036432 MOVE BPAT ;YES - GET THE PATTERN 1679 031242 254 00 0 00 031252 JRST MOVLEN ;CONTINUE 1680 1681 031243 607 01 0 00 004000 CHKC2: TLNN 1,(ONEPT) ;ONE PATTERN (0,,1)? 1682 031244 254 00 0 00 031247 JRST MOVER1 ;NO - ERROR 1683 031245 200 00 0 00 036433 MOVE CPAT ;YES - GET THE PATTERN 1684 031246 254 00 0 00 031252 JRST MOVLEN ;CONTINUE 1685 1686 031247 037 02 0 00 037517 MOVER1: PMSG <^MOVXX PATTERN NOT SELECTED - ABORTING CURRENT CASE> 1687 031250 253 07 0 00 031212 AOBJN AC7,MOV2 1688 031251 254 00 0 00 031444 JRST CDBMOD ;NO CASES LEFT - GO TO NEXT TEST 1689 1690 031252 202 00 0 00 041165 MOVLEN: MOVEM PATTERN ;STORE CHOSEN PATTERN 1691 031253 603 01 0 00 400000 TLNE 1,(EQLEN) ;STRINGS OF EQUAL LENGTH? 1692 031254 254 00 0 00 031316 JRST MOVBYT ;YES - ALREADY SET UP DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 19 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0073 1693 1694 ; ************************************************** 1695 ;FIND OUT IF A FILLER IS NEEDED AND DETERMINE STRING LENGTHS 1696 ; ************************************************** 1697 1698 031255 607 01 0 00 100000 MOVL: TLNN 1,(DZERO) ;DESTINATION LENGTH = ZERO? 1699 031256 254 00 0 00 031261 JRST MOVL1 ;NO 1700 031257 402 00 0 00 000013 SETZM DLEN ;YES - ZERO DESTINATION LENGTH 1701 031260 254 00 0 00 031316 JRST MOVBYT 1702 1703 031261 607 01 0 00 040000 MOVL1: TLNN 1,(DSZER) ;BOTH DESTIN AND SOURCE LENGTHS = 0? 1704 031262 254 00 0 00 031265 JRST MOVL2 ;NO 1705 031263 403 10 0 00 000013 SETZB SLEN,DLEN ;YES - ZERO THEM BOTH 1706 031264 254 00 0 00 031316 JRST MOVBYT 1707 1708 031265 607 01 0 00 020000 MOVL2: TLNN 1,(SLONG) ;SOURCE STRING LONGER THAN DESTIN? 1709 031266 254 00 0 00 031271 JRST MOVL3 ;NO 1710 031267 242 13 0 00 777777 LSH DLEN,-1 ;YES - DLEN = 1/2 SLEN 1711 031270 254 00 0 00 031316 JRST MOVBYT 1712 1713 031271 607 01 0 00 200000 MOVL3: TLNN 1,(SZERO) ;SOURCE STRING LENGTH = 0? 1714 031272 254 00 0 00 031275 JRST MOVL4 ;NO 1715 031273 402 00 0 00 000010 SETZM SLEN ;YES - ZERO SOURCE STRING LENGTH 1716 031274 254 00 0 00 031276 JRST MOVFIL ;GET A FILLER 1717 1718 031275 242 10 0 00 777777 MOVL4: LSH SLEN,-1 ;SLEN = 1/2 DLEN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 20 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0074 1719 1720 ; ************************************************** 1721 ;NOW PICK A FILLER 1722 ; ************************************************** 1723 1724 031276 607 01 0 00 001000 MOVFIL: TLNN 1,(EQFIL) ;FILLER = PATTERN? 1725 031277 254 00 0 00 031302 JRST MOVF1 ;NO 1726 031300 200 00 0 00 041165 MOVE PATTERN ;YES - PATTERN TO AC0 1727 031301 254 00 0 00 031315 JRST MOVF3 1728 1729 031302 607 01 0 00 000400 MOVF1: TLNN 1,(LFILL) ;ZERO FILLER? 1730 031303 254 00 0 00 031306 JRST MOVF2 ;NO 1731 031304 200 00 0 00 036434 MOVE DPAT ;YES - ZERO PATTERN TO AC0 1732 031305 254 00 0 00 031315 JRST MOVF3 1733 1734 031306 607 01 0 00 000200 MOVF2: TLNN 1,(GFILL) ;ONE'S FILLER 1735 031307 254 00 0 00 031312 JRST MOVER2 ;NO - ERROR 1736 031310 200 00 0 00 036432 MOVE BPAT ;YES - ONE'S PATTERN TO AC0 1737 031311 254 00 0 00 031315 JRST MOVF3 1738 1739 031312 037 02 0 00 037471 MOVER2: PMSG <^ABORTING CURRENT CASE - FILLER PATTERN NOT SPECIFIED> 1740 031313 253 07 0 00 031212 AOBJN AC7,MOV2 1741 031314 254 00 0 00 031444 JRST CDBMOD ;NO CASES LEFT - GO TO NEXT TEST 1742 1743 031315 202 00 0 00 035565 MOVF3: MOVEM E0+1 ;STORE THE FILLER DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 21 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0075 1744 1745 ; ************************************************** 1746 ;DETERMINE STRING BYTE SIZES 1747 ; ************************************************** 1748 1749 031316 332 00 0 00 041176 MOVBYT: SKIPE TRANFG ;5 BIT BYTES IF MOVST 1750 031317 254 00 0 00 031324 JRST MOVB1 1751 1752 031320 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD SOURCE BYTES? 1753 031321 254 00 0 00 031324 JRST MOVB1 ;NO 1754 031322 200 11 0 00 037503 MOVE SP,[POINT 36,SOURCE] ;SETUP SOURCE BYTE POINTER 1755 031323 334 00 0 00 000000 SKIPA 1756 1757 031324 200 11 0 00 037502 MOVB1: MOVE SP,[POINT 5,SOURCE] 1758 031325 332 00 0 00 041176 SKIPE TRANFG 1759 031326 254 00 0 00 031333 JRST MOVB2 1760 1761 031327 607 01 0 00 000040 TLNN 1,(D44) ;FULL WORD DESTIN BYTE SIZE? 1762 031330 254 00 0 00 031333 JRST MOVB2 ;NO 1763 031331 200 14 0 00 037505 MOVE DP,[POINT 36,DESTIN] ;SETUP DESTINATION POINTER 1764 031332 334 00 0 00 000000 SKIPA 1765 1766 031333 200 14 0 00 037504 MOVB2: MOVE DP,[POINT 5,DESTIN] DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 22 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0076 1767 1768 ; ************************************************** 1769 ;PROCEED TO SET UP THE STRINGS 1770 ; ************************************************** 1771 1772 031334 261 17 0 00 000006 MOVSTR: PUT AC6 ;NEED THAT SPARE AC! 1773 1774 031335 200 02 0 00 000010 MOVE SLEN1,SLEN ;COPY OF SOURCE STRING LENGTH 1775 031336 200 03 0 00 000011 MOVE SP1,SP ;COPY OF SOURCE STRING POINTER 1776 031337 200 00 0 00 041165 MOVE AC0,PATTERN ;COPY OF PATTERN 1777 1778 031340 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE THE FIRST BYTE TO THE STRING 1779 1780 031341 377 00 0 00 000002 SET1: SOSG SLEN1 1781 031342 254 00 0 00 031347 JRST MOVOP ;JUMP IF LAST BYTE WRITTEN 1782 1783 031343 332 00 0 00 041176 SKIPE TRANFG 1784 031344 271 00 0 00 000001 ADDI AC0,1 ;INCREMENT THE PATTERN IF MOVST 1785 1786 031345 136 00 0 00 000003 IDPB AC0,SP1 ;WRITE A BYTE 1787 031346 254 00 0 00 031341 JRST SET1 ;GO FOR THE NEXT ONE 1788 1789 031347 200 00 0 06 000000 MOVOP: MOVE AC0,(AC6) ;RETRIEVE THE CURRENT OPCODE 1790 031350 302 00 0 00 000015 CAIE AC0,015 ;MOVST INSTRUCTION? 1791 031351 254 00 0 00 031401 JRST MOVOFF ;NO - SEE IF MOVSO 1792 1793 031352 201 00 0 00 035650 MOVEI AC0,E1 ;GET ADDRESS OF TRANSLATION TABLE 1794 031353 542 00 0 00 035564 HRRM AC0,E0 ;STORE IT IN THE E0 FIELD 1795 1796 ; ************************************************** 1797 ;SET THE FLAGS IN AC FOR MOVST INSTRUCTION 1798 ; ************************************************** 1799 1800 031354 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG? 1801 031355 434 10 0 00 035734 OR SLEN,BIT0 ;YES 1802 1803 031356 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG? 1804 031357 434 10 0 00 035735 OR SLEN,BIT1 ;YES 1805 1806 031360 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG? 1807 031361 434 10 0 00 035736 OR SLEN,BIT2 ;YES DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 23 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0077 1808 1809 ; ************************************************** 1810 ;SET THE CODE BITS IN THE TRANSLATION TABLE 1811 ; ************************************************** 1812 1813 031362 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS 1814 1815 031363 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE SECOND HALFWORD 1816 031364 434 00 0 00 035737 OR BIT18 1817 1818 031365 602 01 0 00 010000 TRNE 1,(C2) 1819 031366 434 00 0 00 035740 OR BIT19 1820 1821 031367 602 01 0 00 004000 TRNE 1,(C3) 1822 031370 434 00 0 00 035741 OR BIT20 1823 1824 031371 602 01 0 00 002000 TRNE 1,(C4) ;SETUP THE THIRD HALFWORD 1825 031372 434 00 0 00 035734 OR BIT0 1826 1827 031373 602 01 0 00 001000 TRNE 1,(C5) 1828 031374 434 00 0 00 035735 OR BIT1 1829 1830 031375 602 01 0 00 000400 TRNE 1,(C6) 1831 031376 434 00 0 00 035736 OR BIT2 1832 1833 031377 260 17 0 00 031426 GO SETRAN ;YES - SET UP THE TRANSLATION TABLE 1834 031400 254 00 0 00 031410 JRST GOMOV 1835 1836 031401 302 00 0 00 000014 MOVOFF: CAIE AC0,014 ;IS IT MOVSO? 1837 031402 254 00 0 00 031410 JRST GOMOV ;NO - DON'T NEED AN OFFSET 1838 1839 031403 200 04 0 00 000001 MOVE AC4,AC1 ;COPY OF PARAM WORD 1840 031404 405 04 0 00 000014 ANDI AC4,OFF ;SAVE ONLY OFFSET INDEX 1841 031405 242 04 0 00 777776 LSH AC4,OFFSH ;SHIFT INTO POSITION 1842 031406 200 04 0 04 036347 MOVE AC4,OFFTAB(AC4) ;GET THE OFFSET WORD 1843 031407 542 04 0 00 035564 HRRM AC4,E0 ;PUT AS EFFECTIVE ADDRESS IN E0 WORD DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 24 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0078 1844 1845 ; ************************************************** 1846 ;SAVE THE ORIGINAL AC BLOCK FOR ERROR PRINTOUT IF NECESSARY 1847 ; ************************************************** 1848 1849 031410 200 00 0 00 037506 GOMOV: MOVE AC0,[AC,,ORIGSV] 1850 031411 251 00 0 00 035766 BLT AC0,ORIGSV+4 1851 1852 031412 262 17 0 00 000006 GET AC6 ;RESTORE AC6 1853 1854 ; ************************************************** 1855 031413 260 17 0 00 033551 GO MOVSIM ;CALL THE COMPARE INSTR SIMULATOR 1856 031414 476 00 0 00 041173 SETOM SKPWD1 ;SIMULATED SKIP RETURN 1857 ; ************************************************** 1858 1859 ; ************************************************** 1860 031415 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 1861 031416 476 00 0 00 041174 SETOM SKPWD2 ;REAL SKIP RETURN 1862 ; ************************************************** 1863 1864 031417 260 17 0 00 034331 GO MOVCOM ;COMPARE THE RESULTS 1865 031420 036 13 0 00 037530 ERROR MOV2,13,0,0,,,MOVPNT 1866 031421 035 00 0 00 031212 ERLOOP MOV2 ;IF ERROR, LOOP TO MOV2 1867 1868 031422 253 07 0 00 031212 AOBJN AC7,MOV2 ;EXECUTE THE NEXT CASE 1869 031423 253 06 0 00 031210 AOBJN AC6,MOV1 ;EXECUTE THE CASES WITH THE NEXT OPCODE 1870 1871 031424 367 15 0 00 031206 REPTLP MOVM 1872 031425 254 00 0 00 031444 JRST CDBMOD DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 25 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0079 1873 1874 ; ************************************************** 1875 ;SETRAN -- ROUTINE TO SETUP TRANSLATE TABLE FOR MOVST 1876 ; TAKE TWO SPECIAL HALFWORDS IN AC0 , RETURNS +1 ALWAYS 1877 ; ************************************************** 1878 1879 031426 261 17 0 00 000001 SETRAN: PUT AC1 1880 031427 261 17 0 00 000002 PUT AC2 1881 1882 031430 515 01 0 00 777770 HRLZI AC1,-10 ;AC1/-TABLE LENGTH,,0 1883 031431 541 01 0 00 035650 HRRI AC1,E1 ;AC1/-TABLE LENGTH,,TABLE ADDRESS 1884 031432 200 02 0 00 037533 MOVE AC2,[1,,1] 1885 1886 031433 202 02 0 01 000000 SETLOC: MOVEM AC2,(AC1) 1887 031434 253 01 0 00 031433 AOBJN AC1,SETLOC 1888 1889 031435 436 00 0 00 035650 IORM AC0,E1 ;PUT 1ST HALFWORD IN FIRST LOCATION 1890 031436 542 00 0 00 000002 HRRM AC2 ;PATCH UP OTHER HALF OF WORD 1891 031437 436 00 0 01 000000 IORM AC0,(AC1) 1892 031440 506 00 0 00 000002 HRLM AC2 1893 1894 031441 262 17 0 00 000002 GET AC2 1895 031442 262 17 0 00 000001 GET AC1 1896 031443 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 26 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0080 1897 1898 ; ********************************************************************** 1899 ;*TEST 6 -- CONVERT DECIMAL TO BINARY INSTRUCTION TEST 1900 ;* 1901 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S 1902 ;* TWO CVTDBX INSTRUCTIONS. 1903 ; ********************************************************************** 1904 SALL 1905 037534 T= SIXBTZ 1906 1907 031444 201 00 0 00 031444 CDBMOD: MOVEI . 1908 031445 202 00 0 00 030051 MOVEM TESTPC 1909 031446 200 15 0 00 041172 MOVE REPT,RPEAT 1910 1911 031447 515 06 0 00 777776 CDBM: HRLZI AC6,-2 ;AC6/- #CVTDBX INSTR,,0 1912 031450 541 06 0 00 035532 HRRI AC6,CDBTAB ;AC6/- #CVTDBX INSTR,,OPCODE TABLE ADDR 1913 1914 031451 514 07 0 00 037104 CDB1: HRLZ AC7,CDBCAS-1 ;AC7/- #CVTDBX CASES,,0 1915 031452 541 07 0 00 037105 HRRI AC7,CDBCAS ;AC7/- #CVTDBX CASES,,CASE TABLE ADDR 1916 1917 031453 402 00 0 00 035564 CDB2: SETZM E0 1918 031454 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT CVTDBX OPCODE 1919 031455 137 00 0 00 036220 DPB AC0,E0OP ;DEPOSIT OPCODE IN FIELD 1920 1921 031456 402 00 0 00 041176 SETZM TRANFG ;CLEAR TRANSLATE FLAG 1922 031457 306 00 0 00 000011 CAIN AC0,011 ;CVTDBT INSTRUCTION? 1923 031460 476 00 0 00 041176 SETOM TRANFG ;YES - SET THE FLAG 1924 1925 031461 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR THE SKIP INDICATOR FLAGS 1926 031462 402 00 0 00 041174 SETZM SKPWD2 1927 1928 ; ************************************************** 1929 ;DETERMINE THE SOURCE STRING LENGTH 1930 ; ************************************************** 1931 1932 031463 200 01 0 07 000000 MOVE AC1,(7) ;RETRIEVE CASE PARAMETER WORD 1933 031464 200 05 0 00 000001 MOVE AC5,AC1 1934 031465 405 05 0 00 000060 ANDI AC5,STRL ;SAVE ONLY INDEX TO LENGTH TABLE 1935 031466 242 05 0 00 777774 LSH AC5,STRLSH ;SHIFT INTO POSITION 1936 031467 200 10 0 05 036425 MOVE SLEN,LTAB(AC5) ;STRING LENGTH TO AC5 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 27 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0081 1937 1938 ; ************************************************** 1939 ;DETERMINE THE INITIAL BINARY DATA 1940 ; ************************************************** 1941 1942 031470 602 01 0 00 000002 TRNE AC1,(B0) ;SET BIT 0? 1943 031471 200 05 0 00 035734 MOVE AC5,BIT0 ;YES 1944 1945 031472 606 01 0 00 000002 TRNN AC1,(B0) ;SET BIT 35? 1946 031473 200 05 0 00 035737 MOVE AC5,BIT18 ;YES 1947 1948 031474 602 01 0 00 000001 TRNE AC1,(HW) ;PUT INTO HIGH BINARY DATA? 1949 031475 202 05 0 00 000013 MOVEM AC5,DBH ;YES 1950 1951 031476 606 01 0 00 000001 TRNN AC1,(HW) ;PUT INTO LOW BINARY DATA? 1952 031477 202 05 0 00 000014 MOVEM AC5,DBL ;YES 1953 1954 ; ************************************************** 1955 ;DETERMINE THE STRING BYTE SIZE 1956 ; ************************************************** 1957 1958 031500 603 01 0 00 000100 TLNE 1,(S44) ;FULL WORD BYTE SIZE? 1959 031501 200 11 0 00 037503 MOVE SP,[POINT 36,SOURCE] ;NO - 8 BIT BYTES 1960 1961 031502 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD BYTE SIZE? 1962 031503 200 11 0 00 037544 MOVE SP,[POINT 8,SOURCE] ;YES 1963 1964 ; ************************************************** 1965 ;DETERMINE THE S,N,M FLAGS 1966 ; ************************************************** 1967 1968 031504 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG? 1969 031505 434 10 0 00 035734 OR SLEN,BIT0 ;YES 1970 1971 031506 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG? 1972 031507 434 10 0 00 035735 OR SLEN,BIT1 ;YES 1973 1974 031510 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG? 1975 031511 434 10 0 00 035736 OR SLEN,BIT2 ;YES DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 28 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0082 1976 1977 ; ************************************************** 1978 ;DETERMINE THE DATA TO BE CONVERTED 1979 ; ************************************************** 1980 1981 031512 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAMETER WORD 1982 031513 405 05 0 00 000700 ANDI AC5,DATA ;SAVE ONLY DATA TABLE INDEX BITS 1983 031514 242 05 0 00 777772 LSH AC5,DATASH ;SHIFT INTO POSITION 1984 031515 200 05 0 05 036353 MOVE AC5,DATTAB(AC5) ;AC5 HAS ADDRESS OF DATA STRING 1985 1986 ; ************************************************** 1987 ;SETUP THE SOURCE STRING 1988 ; ************************************************** 1989 1990 031516 200 03 0 00 000010 MOVE AC3,SLEN ;COPY OF THE STRING LENGTH 1991 031517 404 03 0 00 037545 AND AC3,[777,,777777] ;SAVE JUST THE LENGTH 1992 1993 031520 200 04 0 00 000011 MOVE AC4,SP ;COPY OF SOURCE BYTE POINTER 1994 1995 031521 361 03 0 00 031530 CDB3: SOJL AC3,CDB3A 1996 1997 031522 402 00 0 00 000000 SETZM AC0 1998 031523 134 00 0 00 000005 ILDB AC0,AC5 ;GET A SOURCE BYTE 1999 2000 031524 332 00 0 00 041176 SKIPE TRANFG 2001 031525 405 00 0 00 000017 ANDI AC0,17 ;IF CVTDBT MAKE THE BYTE A TABLE INDEX 2002 2003 031526 136 00 0 00 000004 IDPB AC0,AC4 ;PUT IT INTO THE SOURCE STRING 2004 031527 254 00 0 00 031521 JRST CDB3 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 29 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0083 2005 2006 ; ************************************************** 2007 ;PICK AN OFFSET IF CVTDBO INSTRUCTION 2008 ; ************************************************** 2009 2010 031530 332 00 0 00 041176 CDB3A: SKIPE TRANFG ;INSTRUCTION CVTDBO? 2011 031531 254 00 0 00 031540 JRST CDB4 ;NO 2012 2013 031532 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAM WORD 2014 031533 405 05 0 00 000014 ANDI AC5,OFF 2015 031534 242 05 0 00 777776 LSH AC5,OFFSH ;SHIFT INTO POSITION 2016 031535 200 05 0 05 036347 MOVE AC5,OFFTAB(AC5) ;GET DESIRED OFFSET 2017 031536 542 05 0 00 035564 HRRM AC5,E0 ;STORE THE OFFSET 2018 031537 254 00 0 00 031560 JRST GOCDB ;ALL SET UP - EXECUTE THE INSTR 2019 2020 031540 201 00 0 00 035650 CDB4: MOVEI E1 2021 031541 542 00 0 00 035564 HRRM E0 ;STORE THE ADDR OF THE TRANSLATE TABLE 2022 2023 031542 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS 2024 031543 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE SPECIAL HALFWORD 2025 031544 434 00 0 00 035737 OR BIT18 2026 2027 031545 602 01 0 00 010000 TRNE 1,(C2) 2028 031546 434 00 0 00 035740 OR BIT19 2029 2030 031547 602 01 0 00 004000 TRNE 1,(C3) 2031 031550 434 00 0 00 035741 OR BIT20 2032 2033 031551 602 01 0 00 002000 TRNE 1,(C4) 2034 031552 434 00 0 00 035734 OR BIT0 2035 2036 031553 602 01 0 00 001000 TRNE 1,(C5) 2037 031554 434 00 0 00 035735 OR BIT1 2038 2039 031555 602 01 0 00 000400 TRNE 1,(C6) 2040 031556 434 00 0 00 035736 OR BIT2 2041 2042 031557 260 17 0 00 031575 GO CDBTRN ;GO SETUP THE TRANSLATION TABLE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 30 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0084 2043 2044 031560 200 00 0 00 037506 GOCDB: MOVE AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK 2045 031561 251 00 0 00 035766 BLT AC0,ORIGSV+4 2046 2047 ; ************************************************** 2048 031562 260 17 0 00 033707 GO CDBSIM ;CALL THE CVTDBX SIMULATOR 2049 031563 476 00 0 00 041173 SETOM SKPWD1 2050 ; ************************************************** 2051 2052 ; ************************************************** 2053 031564 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION 2054 031565 476 00 0 00 041174 SETOM SKPWD2 2055 ; ************************************************** 2056 2057 031566 260 17 0 00 034426 GO CDBCOM ;COMPARE THE RESULTS 2058 031567 036 13 0 00 037546 ERROR CDB2,13,0,0,,,CDBPNT 2059 031570 035 00 0 00 031453 ERLOOP CDB2 ;IF ERROR, LOOP TO CDB2 2060 2061 031571 253 07 0 00 031453 AOBJN AC7,CDB2 ;EXECUTE THE NEXT CASE 2062 031572 253 06 0 00 031451 AOBJN AC6,CDB1 ;EXECUTE CASES WITH NEXT OPCODE 2063 2064 031573 367 15 0 00 031447 REPTLP CDBM 2065 031574 254 00 0 00 031613 JRST CBDMOD DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 31 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0085 2066 2067 ; ************************************************** 2068 ;CDBTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR CVTDBT 2069 ; ************************************************** 2070 2071 031575 261 17 0 00 000001 CDBTRN: PUT AC1 2072 031576 261 17 0 00 000002 PUT AC2 2073 2074 031577 515 01 0 00 777770 HRLZI AC1,-10 ;AC1/-TABLE LENGTH,,0 2075 031600 541 01 0 00 035650 HRRI AC1,E1 ;AC1/-TABLE LENGTH,,TABLE ADDRESS 2076 031601 200 02 0 00 037551 MOVE AC2,[400000,,400001] 2077 2078 031602 202 02 0 01 000000 SETLC1: MOVEM AC2,(AC1) 2079 031603 253 02 0 00 031604 AOBJN AC2,.+1 ;GET THE NEXT ENTRY 2080 031604 253 02 0 00 031605 AOBJN AC2,.+1 2081 031605 253 01 0 00 031602 AOBJN AC1,SETLC1 2082 2083 031606 502 00 0 00 035650 HLLM E1 ;PUT 1ST HALFWORD IN 1ST LOCATION 2084 031607 506 00 0 00 000000 HRLM AC1-1 ;PUT 2ND HALFWORD IN LAST LOCATION 2085 2086 031610 262 17 0 00 000002 GET AC2 2087 031611 262 17 0 00 000001 GET AC1 2088 031612 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 32 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0086 2089 2090 ; ********************************************************************** 2091 ;*TEST 7 -- CONVERT BINARY TO DECIMAL INSTRUCTION TEST 2092 ;* 2093 ;* THIS TEST EXERCISES THE EXTENDED INSTRUCTION SET'S 2094 ;* TWO CVTBDX INSTRUCTIONS. 2095 ; ********************************************************************** 2096 SALL 2097 037552 T= SIXBTZ 2098 2099 031613 201 00 0 00 031613 CBDMOD: MOVEI . 2100 031614 202 00 0 00 030051 MOVEM TESTPC 2101 031615 200 15 0 00 041172 MOVE REPT,RPEAT 2102 2103 031616 515 06 0 00 777776 CBDM: HRLZI AC6,-2 ;AC6/- #CVTBDX INSTR,,0 2104 031617 541 06 0 00 035534 HRRI AC6,CBDTAB ;AC6/- #CVTBDX INSTR,,OPCODE TABLE ADDR 2105 2106 031620 514 07 0 00 037145 CBD1: HRLZ AC7,CBDCAS-1 ;AC7/- #CVTBDX CASES,,0 2107 031621 541 07 0 00 037146 HRRI AC7,CBDCAS ;AC7/- #CVTBDX CASES,,CASE TABLE ADDR 2108 2109 031622 260 17 0 00 035313 CBD2: GO CLRSTR 2110 2111 031623 402 00 0 00 035564 SETZM E0 2112 031624 200 00 0 06 000000 MOVE (AC6) ;RETRIEVE CURRENT CVTBDX OPCODE 2113 031625 137 00 0 00 036220 DPB AC0,E0OP ;STORE THE OPCODE 2114 2115 031626 402 00 0 00 041176 SETZM TRANFG 2116 031627 306 00 0 00 000013 CAIN AC0,013 ;CVTBDT INSTR? 2117 031630 476 00 0 00 041176 SETOM TRANFG ;YES 2118 2119 031631 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR THE SKIP INDICATOR WORDS 2120 031632 402 00 0 00 041174 SETZM SKPWD2 2121 2122 ; ************************************************** 2123 ;DETERMINE THE DESTINATION STRING LENGTH 2124 ; ************************************************** 2125 2126 031633 200 01 0 07 000000 MOVE AC1,(7) ;RETRIEVE THE PARAMETER WORD 2127 031634 200 05 0 00 000001 MOVE AC5,AC1 ;MAKE A COPY 2128 031635 405 05 0 00 000060 ANDI AC5,STRL ;SAVE ONLY LENGTH INDEX 2129 031636 242 05 0 00 777774 LSH AC5,STRLSH ;SHIFT INTO POSITION 2130 031637 200 13 0 05 036425 MOVE DLEN,LTAB(AC5) ;STORE IT 2131 2132 ; ************************************************** 2133 ;DETERMINE THE STRING BYTE SIZE 2134 ; ************************************************** 2135 2136 031640 603 01 0 00 000100 TLNE 1,(S44) ;FULL WORD BYTE SIZE? 2137 031641 200 14 0 00 037505 MOVE DP,[POINT 36,DESTIN] ;NO - 8 BIT BYTES 2138 031642 607 01 0 00 000100 TLNN 1,(S44) ;FULL WORD BYTE SIZE? 2139 031643 200 14 0 00 037562 MOVE DP,[POINT 8,DESTIN] ;YES DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 33 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0087 2140 2141 ; ************************************************** 2142 ;DETERMINE THE S,N,M FLAGS 2143 ; ************************************************** 2144 2145 031644 602 01 0 00 400000 TRNE 1,(SFL) ;SET THE S FLAG? 2146 031645 434 13 0 00 035734 OR DLEN,BIT0 ;YES 2147 2148 031646 602 01 0 00 040000 TRNE 1,(NFL) ;SET THE N FLAG? 2149 031647 434 13 0 00 035735 OR DLEN,BIT1 ;YES 2150 2151 031650 602 01 0 00 100000 TRNE 1,(MFL) ;SET THE M FLAG? 2152 031651 434 13 0 00 035736 OR DLEN,BIT2 ;YES 2153 2154 ; ************************************************** 2155 ;DETERMINE THE DATA TO BE CONVERTED 2156 ; ************************************************** 2157 2158 031652 200 05 0 00 000001 MOVE AC5,1 ;COPY OF PARAMETER WORD 2159 031653 405 05 0 00 000700 ANDI AC5,DATA ;SAVE ONLY DATA TABLE INDEX BITS 2160 031654 242 05 0 00 777772 LSH AC5,DATASH ;SHIFT INTO POSITION 2161 031655 120 10 1 05 036375 DMOVE BDH,@DATCBD(AC5) ;GET HIGH AND LOW DATA INTO THE AC'S DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 34 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0088 2162 2163 ; ************************************************** 2164 ;PICK AN OFFSET IF CVTBDO INSTRUCTION 2165 ; ************************************************** 2166 2167 031656 332 00 0 00 041176 CBD3: SKIPE TRANFG ;INSTRUCTION CVTBDO? 2168 031657 254 00 0 00 031666 JRST CBD4 ;NO 2169 2170 031660 200 05 0 00 000001 MOVE AC5,AC1 ;COPY OF PARAM WORD 2171 031661 405 05 0 00 000014 ANDI AC5,OFF ;JUST KEEP THE OFFSET BITS OF CASE WORD 2172 031662 242 05 0 00 777776 LSH AC5,OFFSH ;SHIFT INTO POSITION 2173 031663 200 05 0 05 036347 MOVE AC5,OFFTAB(AC5) ;GET DESIRED OFFSET 2174 031664 542 05 0 00 035564 HRRM AC5,E0 ;STORE THE OFFSET 2175 031665 254 00 0 00 031706 JRST GOCBD ;ALL SET UP - EXECUTE THE INSTR 2176 2177 031666 201 00 0 00 035650 CBD4: MOVEI E1 2178 031667 542 00 0 00 035564 HRRM E0 ;STORE LOCATION OF TRANSLATE TABLE 2179 2180 031670 402 00 0 00 000000 SETZM AC0 ;TEMP LOC FOR CONTROL BITS 2181 031671 602 01 0 00 020000 TRNE 1,(C1) ;SETUP THE TWO HALFWORDS 2182 031672 434 00 0 00 035737 OR BIT18 2183 2184 031673 602 01 0 00 010000 TRNE 1,(C2) 2185 031674 434 00 0 00 035740 OR BIT19 2186 2187 031675 602 01 0 00 004000 TRNE 1,(C3) 2188 031676 434 00 0 00 035741 OR BIT20 2189 2190 031677 602 01 0 00 002000 TRNE 1,(C4) 2191 031700 434 00 0 00 035734 OR BIT0 2192 2193 031701 602 01 0 00 001000 TRNE 1,(C5) 2194 031702 434 00 0 00 035735 OR BIT1 2195 2196 031703 602 01 0 00 000400 TRNE 1,(C6) 2197 031704 434 00 0 00 035736 OR BIT2 2198 2199 031705 260 17 0 00 035171 GO CBDTRN ;GO SETUP THE TRANSLATION TABLE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 35 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0089 2200 2201 031706 200 00 0 00 037506 GOCBD: MOVE AC0,[AC,,ORIGSV] ;SAVE CONTENTS OF AC BLOCK 2202 031707 251 00 0 00 035766 BLT AC0,ORIGSV+4 2203 2204 ; ************************************************** 2205 031710 260 17 0 00 034006 GO CBDSIM ;CALL THE CVTBDX SIMULATOR 2206 031711 476 00 0 00 041173 SETOM SKPWD1 2207 ; ************************************************** 2208 2209 ; ************************************************** 2210 031712 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION 2211 031713 476 00 0 00 041174 SETOM SKPWD2 2212 ; ************************************************** 2213 2214 031714 260 17 0 00 034475 GO CBDCOM ;COMPARE THE RESULTS 2215 031715 036 13 0 00 037563 ERROR CBD2,13,0,0,,,CBDPNT 2216 031716 035 00 0 00 031622 ERLOOP CBD2 ;IF ERROR, LOOP TO CBD2 2217 2218 031717 253 07 0 00 031622 AOBJN AC7,CBD2 ;EXECUTE THE NEXT CASE 2219 031720 253 06 0 00 031620 AOBJN AC6,CBD1 ;EXECUTE CASES WITH NEXT OPCODE 2220 2221 031721 367 15 0 00 031616 REPTLP CBDM 2222 031722 254 00 0 00 031723 JRST EDMODM DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 36 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0090 2223 2224 ; ********************************************************************** 2225 ;*TEST 8 -- EDIT INSTRUCTION TEST 2226 ;* 2227 ;* THE EDIT INSTRUCTION TEST CONSISTS OF A SERIES OF 2228 ;* SUBMODULES EACH OF WHICH TESTS A SINGLE PATTERN BYTE TYPE. 2229 ;* 2230 ;* EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST 2231 ;* EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST 2232 ;* EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST 2233 ;* EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST 2234 ;* EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST 2235 ;* EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST 2236 ;* EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS 2237 ;* EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS 2238 ;* EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS 2239 ;* EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST 2240 ;* EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST 2241 ; ********************************************************************** 2242 SALL 2243 037566 T= SIXBTZ 2244 2245 031723 200 15 0 00 041172 EDMODM: MOVE REPT,RPEAT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 37 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0091 2246 2247 ; ********************************************************************** 2248 ;*EDMOD1 -- STOP (001) PATTERN BYTE TYPE TEST 2249 ;* 2250 ;* THE STOP PATTERN IS TESTED IN ALL FOUR POSITIONS OF 2251 ;* THE PATTERN BYTE TABLE. IT WILL BE EXECUTED WITH ALL COMBINATIONS 2252 ;* OF THE S,N AND M FLAGS. PATTERN TABLE LOCATIONS WITH THE EXCEPTION 2253 ;* OF THE FIRST WORD WILL BE FILLED WITH SIGST. 2254 ; ********************************************************************** 2255 SALL 2256 037572 T= SIXBTZ 2257 2258 EDMOD(EDMOD1,EDM1,EDMOD2,ED1WD,SIGWD,0) 2259 2260 031724 201 00 0 00 031724 EDMOD1: MOVEI . 2261 031725 202 00 0 00 030051 MOVEM TESTPC 2262 2263 031726 201 00 0 00 000000 MOVEI AC0,0 ;INDEX TO BYTE TYPE TABLE 2264 031727 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2265 2266 031730 402 00 0 00 041162 SETZM OFFSET 2267 031731 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2268 031732 476 00 0 00 041162 SETOM OFFSET ;YES 2269 2270 031733 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2271 031734 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2272 2273 031735 402 00 0 00 041173 EDM1: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2274 031736 402 00 0 00 041174 SETZM SKPWD2 2275 2276 031737 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2277 2278 031740 200 02 0 00 036462 MOVE AC2,SIGWD ;TABLE FILLER BYTE TYPE 2279 031741 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2280 031742 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2281 031743 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2282 2283 031744 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2284 2285 031745 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2286 031746 200 01 0 03 036273 MOVE AC1,ED1WD(AC3) ;GET TABLE TEST WORD 2287 031747 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2288 2289 031750 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2290 031751 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2291 2292 031752 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2293 031753 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 38 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0092 2294 2295 ; ************************************************** 2296 031754 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2297 031755 476 00 0 00 041173 SETOM SKPWD1 2298 ; ************************************************** 2299 2300 031756 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2301 031757 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2302 2303 ; ************************************************** 2304 031760 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2305 031761 476 00 0 00 041174 SETOM SKPWD2 2306 ; ************************************************** 2307 2308 031762 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2309 ERROR EDM1,13,0,0,,,EDTPNT^ 2310 SALL 2311 031763 036 13 0 00 037603 2312 031764 035 00 0 00 031735 ERLOOP EDM1 ;IF ERROR, LOOP TO EDM1 2313 031765 253 07 0 00 031735 AOBJN AC7,EDM1 ;DO THE NEXT CASE 2314 2315 031766 402 00 0 00 041162 SETZM OFFSET 2316 031767 254 00 0 00 031770 JRST EDMOD2 ;FINISHED - GO TO NEXT SUBMODULE 2317 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 39 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0093 2318 2319 ; ********************************************************************** 2320 ;*EDMOD2 -- EXCHMD (004) PATTERN BYTE TYPE TEST 2321 ;* 2322 ;* THE EXCHMD PATTERN BYTE WILL BE TESTED IN FOUR SEQUENCES, THESE ARE: 2323 ;* EXCHMD STOP, 2324 ;* EXCHMD EXCHMD STOP, 2325 ;* EXCHMD EXCHMD EXCHMD STOP, 2326 ;* EXCHMD EXCHMD EXCHMD EXCHMD STOP. 2327 ;* 2328 ;* THE MARK ADDRESS IN AC+3 WILL BE INITIALIZED TO [POINT 0,SOURCE] 2329 ;* AND DP WILL BE EQUAL TO [POINT 36,DESTIN]. THE S,N, AND M FLAGS 2330 ;* WILL BE VARIED TO INSURE THAT THEIR VALUES HAVE NO EFFECT ON THE 2331 ;* OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE PATTERN BYTE TABLE 2332 ;* WILL BE SET TO STOP WITH THE EXCEPTION OF THE FIRST WORD OF THE TABLE. 2333 ; ********************************************************************** 2334 SALL 2335 037606 T= SIXBTZ 2336 2337 EDMOD(EDMOD2,EDM2,EDMOD3,ED2WD,STOPWD,1) 2338 2339 031770 201 00 0 00 031770 EDMOD2: MOVEI . 2340 031771 202 00 0 00 030051 MOVEM TESTPC 2341 2342 031772 201 00 0 00 000001 MOVEI AC0,1 ;INDEX TO BYTE TYPE TABLE 2343 031773 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2344 2345 031774 402 00 0 00 041162 SETZM OFFSET 2346 031775 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2347 031776 476 00 0 00 041162 SETOM OFFSET ;YES 2348 2349 031777 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2350 032000 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2351 2352 032001 402 00 0 00 041173 EDM2: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2353 032002 402 00 0 00 041174 SETZM SKPWD2 2354 2355 032003 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2356 2357 032004 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2358 032005 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2359 032006 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2360 032007 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2361 2362 032010 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2363 2364 032011 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2365 032012 200 01 0 03 036277 MOVE AC1,ED2WD(AC3) ;GET TABLE TEST WORD 2366 032013 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2367 2368 032014 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2369 032015 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2370 2371 032016 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2372 032017 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 40 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0094 2373 2374 ; ************************************************** 2375 032020 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2376 032021 476 00 0 00 041173 SETOM SKPWD1 2377 ; ************************************************** 2378 2379 032022 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2380 032023 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2381 2382 ; ************************************************** 2383 032024 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2384 032025 476 00 0 00 041174 SETOM SKPWD2 2385 ; ************************************************** 2386 2387 032026 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2388 ERROR EDM2,13,0,0,,,EDTPNT^ 2389 SALL 2390 032027 036 13 0 00 037616 2391 032030 035 00 0 00 032001 ERLOOP EDM2 ;IF ERROR, LOOP TO EDM2 2392 032031 253 07 0 00 032001 AOBJN AC7,EDM2 ;DO THE NEXT CASE 2393 2394 032032 402 00 0 00 041162 SETZM OFFSET 2395 032033 254 00 0 00 032034 JRST EDMOD3 ;FINISHED - GO TO NEXT SUBMODULE 2396 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 41 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0095 2397 2398 ; ********************************************************************** 2399 ;*EDMOD3 -- SIGST (002) PATTERN BYTE TYPE TEST 2400 ;* 2401 ;* THERE ARE THREE MAIN EXECUTION PATHS TO BE TESTED: 2402 ;* 1. S=1 2403 ;* 2. S=0, E0+2=0 2404 ;* 3. S=0, E0+2 NOT =0 2405 ;* 2406 ;* THE VALUES OF THE M AND N FLAGS ARE VARIED TO INSURE THAT THEIR 2407 ;* VALUE HAS NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. WITH THE 2408 ;* EXCEPTION OF THE TEST PATTERN BYTES THE TABLE WILL BE FILLED 2409 ;* WITH THE STOP OPERATOR. 2410 ; ********************************************************************** 2411 SALL 2412 037621 T= SIXBTZ 2413 2414 EDMOD(EDMOD3,EDM3,EDMOD4,ED3WD,STOPWD,2) 2415 2416 032034 201 00 0 00 032034 EDMOD3: MOVEI . 2417 032035 202 00 0 00 030051 MOVEM TESTPC 2418 2419 032036 201 00 0 00 000002 MOVEI AC0,2 ;INDEX TO BYTE TYPE TABLE 2420 032037 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2421 2422 032040 402 00 0 00 041162 SETZM OFFSET 2423 032041 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2424 032042 476 00 0 00 041162 SETOM OFFSET ;YES 2425 2426 032043 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2427 032044 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2428 2429 032045 402 00 0 00 041173 EDM3: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2430 032046 402 00 0 00 041174 SETZM SKPWD2 2431 2432 032047 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2433 2434 032050 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2435 032051 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2436 032052 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2437 032053 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2438 2439 032054 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2440 2441 032055 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2442 032056 200 01 0 03 036303 MOVE AC1,ED3WD(AC3) ;GET TABLE TEST WORD 2443 032057 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2444 2445 032060 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2446 032061 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2447 2448 032062 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2449 032063 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 42 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0096 2450 2451 ; ************************************************** 2452 032064 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2453 032065 476 00 0 00 041173 SETOM SKPWD1 2454 ; ************************************************** 2455 2456 032066 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2457 032067 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2458 2459 ; ************************************************** 2460 032070 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2461 032071 476 00 0 00 041174 SETOM SKPWD2 2462 ; ************************************************** 2463 2464 032072 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2465 ERROR EDM3,13,0,0,,,EDTPNT^ 2466 SALL 2467 032073 036 13 0 00 037630 2468 032074 035 00 0 00 032045 ERLOOP EDM3 ;IF ERROR, LOOP TO EDM3 2469 032075 253 07 0 00 032045 AOBJN AC7,EDM3 ;DO THE NEXT CASE 2470 2471 032076 402 00 0 00 041162 SETZM OFFSET 2472 032077 254 00 0 00 032100 JRST EDMOD4 ;FINISHED - GO TO NEXT SUBMODULE 2473 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 43 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0097 2474 2475 ; ********************************************************************** 2476 ;*EDMOD4 -- FLDSEP (003) PATTERN BYTE TYPE TEST 2477 ;* 2478 ;* THE FLDSEP OPERATOR WILL BE TESTED WITH ALL COMBINATIONS 2479 ;* OF THE S,N AND M FLAGS. THE REMAINING BYTES IN THE TABLE WILL BE 2480 ;* FILLED WITH THE STOP OPERATOR. ALL BYTES IN THE PATTERN BYTE 2481 ;* TABLE WILL BE FILLED WITH STOP EXCEPT FOR THE FIRST WORD. 2482 ; ********************************************************************** 2483 SALL 2484 037633 T= SIXBTZ 2485 2486 EDMOD(EDMOD4,EDM4,EDMOD5,ED4WD,STOPWD,3) 2487 2488 032100 201 00 0 00 032100 EDMOD4: MOVEI . 2489 032101 202 00 0 00 030051 MOVEM TESTPC 2490 2491 032102 201 00 0 00 000003 MOVEI AC0,3 ;INDEX TO BYTE TYPE TABLE 2492 032103 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2493 2494 032104 402 00 0 00 041162 SETZM OFFSET 2495 032105 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2496 032106 476 00 0 00 041162 SETOM OFFSET ;YES 2497 2498 032107 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2499 032110 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2500 2501 032111 402 00 0 00 041173 EDM4: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2502 032112 402 00 0 00 041174 SETZM SKPWD2 2503 2504 032113 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2505 2506 032114 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2507 032115 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2508 032116 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2509 032117 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2510 2511 032120 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2512 2513 032121 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2514 032122 200 01 0 03 036307 MOVE AC1,ED4WD(AC3) ;GET TABLE TEST WORD 2515 032123 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2516 2517 032124 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2518 032125 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2519 2520 032126 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2521 032127 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 44 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0098 2522 2523 ; ************************************************** 2524 032130 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2525 032131 476 00 0 00 041173 SETOM SKPWD1 2526 ; ************************************************** 2527 2528 032132 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2529 032133 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2530 2531 ; ************************************************** 2532 032134 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2533 032135 476 00 0 00 041174 SETOM SKPWD2 2534 ; ************************************************** 2535 2536 032136 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2537 ERROR EDM4,13,0,0,,,EDTPNT^ 2538 SALL 2539 032137 036 13 0 00 037643 2540 032140 035 00 0 00 032111 ERLOOP EDM4 ;IF ERROR, LOOP TO EDM4 2541 032141 253 07 0 00 032111 AOBJN AC7,EDM4 ;DO THE NEXT CASE 2542 2543 032142 402 00 0 00 041162 SETZM OFFSET 2544 032143 254 00 0 00 032144 JRST EDMOD5 ;FINISHED - GO TO NEXT SUBMODULE 2545 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 45 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0099 2546 2547 ; ********************************************************************** 2548 ;*EDMOD5 -- MESSAG (1XX) PATTERN BYTE TYPE TEST 2549 ;* 2550 ;* THERE ARE THREE EXECUTION PATHS THAT MUST BE TESTED: 2551 ;* 1. S=1 2552 ;* 2. S=0, E0+1=0 2553 ;* 3. S=0, E0+1 NOT =0 2554 ;* 2555 ;* THE N AND M FLAGS WILL BE VARIED TO INSURE THAT THERE VALUE HAS 2556 ;* NO EFFECT ON THE OUTCOME OF THE INSTRUCTION. ALL BYTES IN THE 2557 ;* PATTERN TABLE WILL BE FILLED WITH THE STOP OPERATOR WITH THE 2558 ;* EXCEPTION OF THE FIRST WORD. THEN ALL POSSIBLE MESSAGE 2559 ;* CHARACTERS WILL BE INSERTED INTO THE DESTINATION STRING. 2560 ; ********************************************************************** 2561 SALL 2562 037646 T= SIXBTZ 2563 2564 EDMOD(EDMOD5,EDM5,EDM5A,ED5WD,STOPWD,4) 2565 2566 032144 201 00 0 00 032144 EDMOD5: MOVEI . 2567 032145 202 00 0 00 030051 MOVEM TESTPC 2568 2569 032146 201 00 0 00 000004 MOVEI AC0,4 ;INDEX TO BYTE TYPE TABLE 2570 032147 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2571 2572 032150 402 00 0 00 041162 SETZM OFFSET 2573 032151 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2574 032152 476 00 0 00 041162 SETOM OFFSET ;YES 2575 2576 032153 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2577 032154 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2578 2579 032155 402 00 0 00 041173 EDM5: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2580 032156 402 00 0 00 041174 SETZM SKPWD2 2581 2582 032157 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2583 2584 032160 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2585 032161 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2586 032162 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2587 032163 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2588 2589 032164 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2590 2591 032165 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2592 032166 200 01 0 03 036313 MOVE AC1,ED5WD(AC3) ;GET TABLE TEST WORD 2593 032167 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2594 2595 032170 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2596 032171 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2597 2598 032172 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2599 032173 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 46 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0100 2600 2601 ; ************************************************** 2602 032174 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2603 032175 476 00 0 00 041173 SETOM SKPWD1 2604 ; ************************************************** 2605 2606 032176 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2607 032177 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2608 2609 ; ************************************************** 2610 032200 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2611 032201 476 00 0 00 041174 SETOM SKPWD2 2612 ; ************************************************** 2613 2614 032202 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2615 ERROR EDM5,13,0,0,,,EDTPNT^ 2616 SALL 2617 032203 036 13 0 00 037656 2618 032204 035 00 0 00 032155 ERLOOP EDM5 ;IF ERROR, LOOP TO EDM5 2619 032205 253 07 0 00 032155 AOBJN AC7,EDM5 ;DO THE NEXT CASE 2620 2621 032206 402 00 0 00 041162 SETZM OFFSET 2622 032207 254 00 0 00 032210 JRST EDM5A ;FINISHED - GO TO NEXT SUBMODULE 2623 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 47 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0101 2624 2625 ; ********************************************************************** 2626 ;*INSERT EVERY MESSAGE CHARACTER IN THE DESTINATION STRING 2627 ; ********************************************************************** 2628 2629 032210 260 17 0 00 035313 EDM5A: GO CLRSTR ;CLEAR THE DESTINATION STRINGS 2630 2631 032211 200 00 0 00 037661 MOVE AC0,[MESSGS,,E0+1] ;SET UP THE 64 MESSAGE CHARACTERS 2632 032212 251 00 0 00 035570 BLT AC0,E0+4 2633 2634 032213 201 00 0 00 000037 MOVEI AC0,37 ;GET NEXT CODE 2635 032214 541 01 0 00 035571 HRRI AC1,E0+5 2636 032215 505 01 0 00 777731 HRLI AC1,-^D39 2637 2638 032216 202 00 0 01 000000 FILE0: MOVEM AC0,(AC1) ;PUT INTO E0 TABLE 2639 032217 271 00 0 00 000001 ADDI AC0,1 2640 032220 253 01 0 00 032216 AOBJN AC1,FILE0 2641 2642 032221 201 01 0 00 000077 PTMSET: MOVEI AC1,^D63 ;SET UP THE PATTERN BYTE TABLE 2643 032222 200 02 0 00 036454 MOVE AC2,PATPT ;GET BYTE POINTER 2644 2645 032223 201 00 0 00 000100 MOVEI AC0,100 2646 032224 136 00 0 00 000002 PTM1: IDPB AC0,AC2 ;PUT THE BYTE IN THE TABLE 2647 032225 271 00 0 00 000001 ADDI AC0,1 2648 032226 367 01 0 00 032224 SOJG AC1,PTM1 2649 2650 032227 201 00 0 00 000000 MOVEI AC0,STOP ;FINISH UP WITH STOP 2651 032230 136 00 0 00 000002 IDPB AC0,AC2 ;OVERWRITE THE LAST BYTE WITH A STOP 2652 2653 032231 201 07 0 00 037247 MOVEI AC7,MCASE ;GET SPECIAL CASE PARAMETER WORD 2654 032232 260 17 0 00 035044 GO EDTSET ;INITIALIZE THE AC BLOCK 2655 2656 032233 200 00 0 00 037506 MOVE AC0,[AC,,ORIGSV] 2657 032234 251 00 0 00 035766 BLT AC0,ORIGSV+4 2658 2659 ; ************************************************** 2660 032235 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2661 032236 476 00 0 00 041173 SETOM SKPWD1 2662 ; ************************************************** 2663 2664 ; ************************************************** 2665 032237 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE REAL INSTRUCTION 2666 032240 476 00 0 00 041174 SETOM SKPWD2 2667 ; ************************************************** 2668 2669 032241 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2670 032242 036 13 0 00 037656 ERROR EDM5A,13,0,0,,,EDTPNT 2671 032243 035 00 0 00 032210 ERLOOP EDM5A ;IF ERROR, LOOP TO EDM5A 2672 2673 032244 254 00 0 00 032245 JRST EDMOD6 ;GO TO NEXT SUBMODULE TEST DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 48 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0102 2674 2675 ; ********************************************************************** 2676 ;*EDMOD6 -- NOP (005) PATTERN BYTE TYPE TEST 2677 ;* 2678 ;* THE EDIT INSTRUCTION WILL BE EXECUTED WITH THE FOUR SEQUENCES: 2679 ;* NOP STOP, 2680 ;* NOP NOP STOP, 2681 ;* NOP NOP NOP STOP, 2682 ;* NOP NOP NOP NOP STOP. 2683 ;* 2684 ;* THE REST OF THE PATTERN BYTE TABLE WILL BE FILLED 2685 ;* WITH THE STOP OPERATOR. THE S,N AND M FLAGS WILL BE VARIED TO 2686 ;* INSURE THAT THEIR VALUE HAS NO EFFECT ON THE OUTCOME OF THE 2687 ;* INSTRUCTION. 2688 ; ********************************************************************** 2689 SALL 2690 037662 T= SIXBTZ 2691 2692 EDMOD(EDMOD6,EDM6,EDMD7A,ED6WD,STOPWD,5) 2693 2694 032245 201 00 0 00 032245 EDMOD6: MOVEI . 2695 032246 202 00 0 00 030051 MOVEM TESTPC 2696 2697 032247 201 00 0 00 000005 MOVEI AC0,5 ;INDEX TO BYTE TYPE TABLE 2698 032250 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2699 2700 032251 402 00 0 00 041162 SETZM OFFSET 2701 032252 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2702 032253 476 00 0 00 041162 SETOM OFFSET ;YES 2703 2704 032254 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2705 032255 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2706 2707 032256 402 00 0 00 041173 EDM6: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2708 032257 402 00 0 00 041174 SETZM SKPWD2 2709 2710 032260 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2711 2712 032261 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2713 032262 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2714 032263 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2715 032264 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2716 2717 032265 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2718 2719 032266 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2720 032267 200 01 0 03 036317 MOVE AC1,ED6WD(AC3) ;GET TABLE TEST WORD 2721 032270 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2722 2723 032271 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2724 032272 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2725 2726 032273 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2727 032274 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 49 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0103 2728 2729 ; ************************************************** 2730 032275 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2731 032276 476 00 0 00 041173 SETOM SKPWD1 2732 ; ************************************************** 2733 2734 032277 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2735 032300 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2736 2737 ; ************************************************** 2738 032301 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2739 032302 476 00 0 00 041174 SETOM SKPWD2 2740 ; ************************************************** 2741 2742 032303 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2743 ERROR EDM6,13,0,0,,,EDTPNT^ 2744 SALL 2745 032304 036 13 0 00 037671 2746 032305 035 00 0 00 032256 ERLOOP EDM6 ;IF ERROR, LOOP TO EDM6 2747 032306 253 07 0 00 032256 AOBJN AC7,EDM6 ;DO THE NEXT CASE 2748 2749 032307 402 00 0 00 041162 SETZM OFFSET 2750 032310 254 00 0 00 032311 JRST EDMD7A ;FINISHED - GO TO NEXT SUBMODULE 2751 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 50 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0104 2752 2753 ; ********************************************************************** 2754 ;*EDMOD7A -- SKPM (5XX) PATTERN BYTE TYPE TESTS 2755 ;* 2756 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH 2757 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES 2758 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF 2759 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. 2760 ; ********************************************************************** 2761 SALL 2762 037674 T= SIXBTZ 2763 2764 EDMOD(EDMD7A,EDM7A,EDMD7B,ED7AWD,STOPWD,6) 2765 2766 032311 201 00 0 00 032311 EDMD7A: MOVEI . 2767 032312 202 00 0 00 030051 MOVEM TESTPC 2768 2769 032313 201 00 0 00 000006 MOVEI AC0,6 ;INDEX TO BYTE TYPE TABLE 2770 032314 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2771 2772 032315 402 00 0 00 041162 SETZM OFFSET 2773 032316 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2774 032317 476 00 0 00 041162 SETOM OFFSET ;YES 2775 2776 032320 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2777 032321 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2778 2779 032322 402 00 0 00 041173 EDM7A: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2780 032323 402 00 0 00 041174 SETZM SKPWD2 2781 2782 032324 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2783 2784 032325 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2785 032326 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2786 032327 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2787 032330 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2788 2789 032331 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2790 2791 032332 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2792 032333 200 01 0 03 036323 MOVE AC1,ED7AWD(AC3) ;GET TABLE TEST WORD 2793 032334 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2794 2795 032335 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2796 032336 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2797 2798 032337 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2799 032340 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 51 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0105 2800 2801 ; ************************************************** 2802 032341 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2803 032342 476 00 0 00 041173 SETOM SKPWD1 2804 ; ************************************************** 2805 2806 032343 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2807 032344 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2808 2809 ; ************************************************** 2810 032345 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2811 032346 476 00 0 00 041174 SETOM SKPWD2 2812 ; ************************************************** 2813 2814 032347 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2815 ERROR EDM7A,13,0,0,,,EDTPNT^ 2816 SALL 2817 032350 036 13 0 00 037703 2818 032351 035 00 0 00 032322 ERLOOP EDM7A ;IF ERROR, LOOP TO EDM7A 2819 032352 253 07 0 00 032322 AOBJN AC7,EDM7A ;DO THE NEXT CASE 2820 2821 032353 402 00 0 00 041162 SETZM OFFSET 2822 032354 254 00 0 00 032355 JRST EDMD7B ;FINISHED - GO TO NEXT SUBMODULE 2823 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 52 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0106 2824 2825 ; ********************************************************************** 2826 ;*EDMOD7B -- SKPN (6XX) PATTERN BYTE TYPE TESTS 2827 ;* 2828 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH 2829 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES 2830 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF 2831 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. 2832 ; ********************************************************************** 2833 SALL 2834 037706 T= SIXBTZ 2835 2836 EDMOD(EDMD7B,EDM7B,EDMD7C,ED7BWD,STOPWD,7) 2837 2838 032355 201 00 0 00 032355 EDMD7B: MOVEI . 2839 032356 202 00 0 00 030051 MOVEM TESTPC 2840 2841 032357 201 00 0 00 000007 MOVEI AC0,7 ;INDEX TO BYTE TYPE TABLE 2842 032360 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2843 2844 032361 402 00 0 00 041162 SETZM OFFSET 2845 032362 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2846 032363 476 00 0 00 041162 SETOM OFFSET ;YES 2847 2848 032364 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2849 032365 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2850 2851 032366 402 00 0 00 041173 EDM7B: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2852 032367 402 00 0 00 041174 SETZM SKPWD2 2853 2854 032370 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2855 2856 032371 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2857 032372 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2858 032373 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2859 032374 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2860 2861 032375 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2862 2863 032376 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2864 032377 200 01 0 03 036327 MOVE AC1,ED7BWD(AC3) ;GET TABLE TEST WORD 2865 032400 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2866 2867 032401 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2868 032402 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2869 2870 032403 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2871 032404 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 53 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0107 2872 2873 ; ************************************************** 2874 032405 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2875 032406 476 00 0 00 041173 SETOM SKPWD1 2876 ; ************************************************** 2877 2878 032407 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2879 032410 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2880 2881 ; ************************************************** 2882 032411 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2883 032412 476 00 0 00 041174 SETOM SKPWD2 2884 ; ************************************************** 2885 2886 032413 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2887 ERROR EDM7B,13,0,0,,,EDTPNT^ 2888 SALL 2889 032414 036 13 0 00 037715 2890 032415 035 00 0 00 032366 ERLOOP EDM7B ;IF ERROR, LOOP TO EDM7B 2891 032416 253 07 0 00 032366 AOBJN AC7,EDM7B ;DO THE NEXT CASE 2892 2893 032417 402 00 0 00 041162 SETZM OFFSET 2894 032420 254 00 0 00 032421 JRST EDMD7C ;FINISHED - GO TO NEXT SUBMODULE 2895 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 54 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0108 2896 2897 ; ********************************************************************** 2898 ;*EDMOD7C -- SKPA (7XX) PATTERN BYTE TYPE TESTS 2899 ;* 2900 ;* THE EDIT INSTRUCTION WITH THIS BYTE PATTERN BYTES WILL BE TESTED WITH 2901 ;* ALL COMBINATIONS OF THE S,N AND M FLAGS AND A VARIETY OF VALUES 2902 ;* FOR THE XX COMPONENT OF THE INSTRUCTION. WITH THE EXCEPTION OF 2903 ;* THE SKIP PATTERN BYTES THE TABLE WILL BE FILLED WITH THE STOP OPERATOR. 2904 ; ********************************************************************** 2905 SALL 2906 037720 T= SIXBTZ 2907 2908 EDMOD(EDMD7C,EDM7C,EDMOD8,ED7CWD,STOPWD,^D8) 2909 2910 032421 201 00 0 00 032421 EDMD7C: MOVEI . 2911 032422 202 00 0 00 030051 MOVEM TESTPC 2912 2913 032423 201 00 0 00 000010 MOVEI AC0,^D8 ;INDEX TO BYTE TYPE TABLE 2914 032424 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2915 2916 032425 402 00 0 00 041162 SETZM OFFSET 2917 032426 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2918 032427 476 00 0 00 041162 SETOM OFFSET ;YES 2919 2920 032430 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2921 032431 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2922 2923 032432 402 00 0 00 041173 EDM7C: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 2924 032433 402 00 0 00 041174 SETZM SKPWD2 2925 2926 032434 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 2927 2928 032435 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 2929 032436 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 2930 032437 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 2931 032440 251 00 0 00 036257 BLT AC0,PATTBL+^D9 2932 2933 032441 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 2934 2935 032442 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 2936 032443 200 01 0 03 036333 MOVE AC1,ED7CWD(AC3) ;GET TABLE TEST WORD 2937 032444 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 2938 2939 032445 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 2940 032446 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 2941 2942 032447 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 2943 032450 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 55 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0109 2944 2945 ; ************************************************** 2946 032451 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 2947 032452 476 00 0 00 041173 SETOM SKPWD1 2948 ; ************************************************** 2949 2950 032453 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 2951 032454 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 2952 2953 ; ************************************************** 2954 032455 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 2955 032456 476 00 0 00 041174 SETOM SKPWD2 2956 ; ************************************************** 2957 2958 032457 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 2959 ERROR EDM7C,13,0,0,,,EDTPNT^ 2960 SALL 2961 032460 036 13 0 00 037727 2962 032461 035 00 0 00 032432 ERLOOP EDM7C ;IF ERROR, LOOP TO EDM7C 2963 032462 253 07 0 00 032432 AOBJN AC7,EDM7C ;DO THE NEXT CASE 2964 2965 032463 402 00 0 00 041162 SETZM OFFSET 2966 032464 254 00 0 00 032465 JRST EDMOD8 ;FINISHED - GO TO NEXT SUBMODULE 2967 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 56 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0110 2968 2969 ; ********************************************************************** 2970 ;*EDMOD8 -- SELECT (001) PATTERN BYTE TYPE TEST 2971 ;* 2972 ;* THIS INSTRUCTION WILL BE EXECUTED WITH VARIED VALUES 2973 ;* FOR TOP (THE OPCODE PART OF THE TRANLATE FUNCTION) AND 2974 ;* THE S,N AND M FLAGS. 2975 ;* 2976 ;* COMBINATIONS OF THE FOLLOWING PARAMETERS WILL BE TESTED: 2977 ;* 1. S,N AND M FLAGS 2978 ;* 2. E0+1 = AND NOT =0 2979 ;* 3. E0+2 = AND NOT =0 2980 ;* 4. VARIED VALUES FOR TOP (THE OPCODE PART OF THE TRANSLATE TABLE. 2981 ; ********************************************************************** 2982 SALL 2983 037732 T= SIXBTZ 2984 2985 EDMOD(EDMOD8,EDM8,EDMOD9,ED8WD,STOPWD,^D9) 2986 2987 032465 201 00 0 00 032465 EDMOD8: MOVEI . 2988 032466 202 00 0 00 030051 MOVEM TESTPC 2989 2990 032467 201 00 0 00 000011 MOVEI AC0,^D9 ;INDEX TO BYTE TYPE TABLE 2991 032470 202 00 0 00 036272 MOVEM BYTYPE ;STORE 2992 2993 032471 402 00 0 00 041162 SETZM OFFSET 2994 032472 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 2995 032473 476 00 0 00 041162 SETOM OFFSET ;YES 2996 2997 032474 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 2998 032475 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 2999 3000 032476 402 00 0 00 041173 EDM8: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3001 032477 402 00 0 00 041174 SETZM SKPWD2 3002 3003 032500 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 3004 3005 032501 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 3006 032502 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 3007 032503 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3008 032504 251 00 0 00 036257 BLT AC0,PATTBL+^D9 3009 3010 032505 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 3011 3012 032506 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 3013 032507 200 01 0 03 036337 MOVE AC1,ED8WD(AC3) ;GET TABLE TEST WORD 3014 032510 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 3015 3016 032511 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 3017 032512 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 3018 3019 032513 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 3020 032514 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 57 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0111 3021 3022 ; ************************************************** 3023 032515 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 3024 032516 476 00 0 00 041173 SETOM SKPWD1 3025 ; ************************************************** 3026 3027 032517 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 3028 032520 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 3029 3030 ; ************************************************** 3031 032521 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3032 032522 476 00 0 00 041174 SETOM SKPWD2 3033 ; ************************************************** 3034 3035 032523 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 3036 ERROR EDM8,13,0,0,,,EDTPNT^ 3037 SALL 3038 032524 036 13 0 00 037742 3039 032525 035 00 0 00 032476 ERLOOP EDM8 ;IF ERROR, LOOP TO EDM8 3040 032526 253 07 0 00 032476 AOBJN AC7,EDM8 ;DO THE NEXT CASE 3041 3042 032527 402 00 0 00 041162 SETZM OFFSET 3043 032530 254 00 0 00 032531 JRST EDMOD9 ;FINISHED - GO TO NEXT SUBMODULE 3044 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 58 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0112 3045 3046 ; ********************************************************************** 3047 ;*EDMOD9 -- NON DEFINED PATTERN BYTE TYPE TEST 3048 ;* 3049 ;* THE EDIT INSTRUCTION WILL BE EXECUTED WITH UNDEFINED 3050 ;* VALUES FOR THE PATTERN BYTES. THESE BYTES SHOULD BE INTERPRETED 3051 ;* AS NOOPS (RESULTING IN INCREMENTATION OF THE PB#). THE SPECIFIC 3052 ;* BYTES TESTED ARE 2XX,3XX,4XX,006. 3053 ; ********************************************************************** 3054 SALL 3055 037745 T= SIXBTZ 3056 3057 EDMOD(EDMOD9,EDM9,PFTST,ED9WD,STOPWD,^D10) 3058 3059 032531 201 00 0 00 032531 EDMOD9: MOVEI . 3060 032532 202 00 0 00 030051 MOVEM TESTPC 3061 3062 032533 201 00 0 00 000012 MOVEI AC0,^D10 ;INDEX TO BYTE TYPE TABLE 3063 032534 202 00 0 00 036272 MOVEM BYTYPE ;STORE 3064 3065 032535 402 00 0 00 041162 SETZM OFFSET 3066 032536 306 00 0 00 000001 CAIN AC0,1 ;EXCHMD OPERATOR? 3067 032537 476 00 0 00 041162 SETOM OFFSET ;YES 3068 3069 032540 514 07 0 00 037206 HRLZ AC7,EDTCAS-1 ;AC7/- #CASES,,0 3070 032541 541 07 0 00 037207 HRRI AC7,EDTCAS ;AC7/- #CASES,,CASE TABLE ADDRESS 3071 3072 032542 402 00 0 00 041173 EDM9: SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3073 032543 402 00 0 00 041174 SETZM SKPWD2 3074 3075 032544 260 17 0 00 035313 GO CLRSTR ;CLEAR STRING BYTES 3076 3077 032545 200 02 0 00 036461 MOVE AC2,STOPWD ;TABLE FILLER BYTE TYPE 3078 032546 202 02 0 00 036246 MOVEM AC2,PATTBL ;STORE THE FILLER IN THE BYTE TABLE 3079 032547 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3080 032550 251 00 0 00 036257 BLT AC0,PATTBL+^D9 3081 3082 032551 260 17 0 00 035044 GO EDTSET ;SET UP INSTRUCTION PARAMETERS 3083 3084 032552 135 03 0 00 036453 LDB AC3,PATBN ;GET THE CURRENT PB# 3085 032553 200 01 0 03 036343 MOVE AC1,ED9WD(AC3) ;GET TABLE TEST WORD 3086 032554 202 01 0 00 036246 MOVEM AC1,PATTBL ;STORE IT IN THE TABLE 3087 3088 032555 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD BYTE OPERATOR? 3089 032556 200 13 0 00 037602 MOVE MA,[POINT 0,SOURCE] ;YES 3090 3091 032557 200 00 0 00 037506 MOVE AC0,[PADDR,,ORIGSV] ;SAVE THE INITIAL AC BLOCK 3092 032560 251 00 0 00 035766 BLT AC0,ORIGSV+4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 59 DSKCGM MAC 11-Sep-79 15:13 EXTEND INSTRUCTION CASE TESTING SEQ 0113 3093 3094 ; ************************************************** 3095 032561 260 17 0 00 034141 GO EDTSIM ;SIMULATE THE INSTRUCTION 3096 032562 476 00 0 00 041173 SETOM SKPWD1 3097 ; ************************************************** 3098 3099 032563 332 00 0 00 041162 SKIPE OFFSET ;EXCHMD OPERATOR? 3100 032564 260 17 0 00 035313 GO CLRSTR ;YES - CLEAR STRING AREAS AGAIN 3101 3102 ; ************************************************** 3103 032565 123 10 0 00 035564 EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3104 032566 476 00 0 00 041174 SETOM SKPWD2 3105 ; ************************************************** 3106 3107 032567 260 17 0 00 034553 GO EDTCOM ;COMPARE THE RESULTS 3108 ERROR EDM9,13,0,0,,,EDTPNT^ 3109 SALL 3110 032570 036 13 0 00 037754 3111 032571 035 00 0 00 032542 ERLOOP EDM9 ;IF ERROR, LOOP TO EDM9 3112 032572 253 07 0 00 032542 AOBJN AC7,EDM9 ;DO THE NEXT CASE 3113 3114 032573 402 00 0 00 041162 SETZM OFFSET 3115 032574 254 00 0 00 032576 JRST PFTST ;FINISHED - GO TO NEXT SUBMODULE 3116 SALL 3117 3118 032575 367 15 0 00 031724 REPTLP EDMOD1 3119 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 60 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0114 3120 SUBTTL PAGE FAIL TESTING 3121 SALL 3122 037757 T= SIXBTZ 3123 3124 ; ********************************************************************** 3125 ;*TEST 9 -- PAGE FAIL RECOVERY TEST 3126 ;* 3127 ;* THIS TEST SETS UP THE PAGE FAILURES FOR EACH INSTRUCTION 3128 ;* USING A PREDETERMINED AC BLOCK STORED IN MEMORY (PFBLKX). 3129 ;* 3130 ;* WHERE APPLICABLE, PAGE FAILURES WILL BE CAUSED AT THE FIRST, 3131 ;* MIDDLE, AND LAST BYTES OF THE SOURCE AND DESTINATION STRINGS, 3132 ;* AND AT THE E0+1 (FILLER) BYTES. 3133 ;* 3134 ;* THE PAGE FAILUES ARE CAUSED BY RELOCATING PAGE 400 TO PAGE 75. 3135 ;* 3136 ;* THE EXTEND INSTRUCTIONS ARE SET UP SO THAT THEY REFERENCE PAGE 401 3137 ;* (WHICH DOES NOT EXIST). 3138 ;* 3139 ;* A PAGE FAIL SHOULD OCCUR ON THE FIRST REFERENCE TO LOCATION 401000. 3140 ;* 3141 ;* THE PAGE FAIL ROUTINE COMPARES THE INTERMEDIATE VALUES OF 3142 ;* THE AC BLOCK TO THE CORRECT VERSION STORED IN MEMORY AND 3143 ;* THE CONTENTS OF LOCATION 501 (SAVED FLAGS AND PC). IF THEY 3144 ;* ARE NOT CORRECT AN ERROR PRINTOUT OCCURS. 3145 ;* 3146 ;* THE INSTRUCTION IS CONTINUED BY RELOCATING BOTH PAGES 400 AND 401. 3147 ;* PAGE 400 IS RELOCATED TO 75000 AND PAGE 401 IS RELOCATED TO 76000. 3148 ;* 3149 ;* WHEN THE EXECUTION OF THE EXTEND INSTRUCTION IS FINISHED THE 3150 ;* SIMULATOR FOR THAT PARTICULAR SET OF INSTRUCTIONS IS EXECUTED. 3151 ;* (SINCE BOTH PAGES 400 AND 401 ARE NOW RELOCATED THE SIMULATOR 3152 ;* CAN EXECUTE THE INSTRUCTION WITHOUT PAGE FAIL.) 3153 ;* 3154 ;* THE FINAL RESULTS OF THE INSTRUCTION CONTAINED IN THE AC BLOCK 3155 ;* ARE COMPARED TO THOSE OF THE SIMULATOR. IF NOT EQUAL AN ERROR 3156 ;* PRINTOUT OCCURS. 3157 ; ********************************************************************** 3158 3159 032576 332 00 0 00 030037 PFTST: SKIPE USER 3160 032577 254 00 0 00 030057 JRST BEGEND ;NO PAGE FAIL TESTING IN USER MODE 3161 3162 032600 200 15 0 00 041172 MOVE REPT,RPEAT 3163 3164 032601 201 00 0 00 034762 MOVEI AC0,PFHAND ;SET UP ADDRESS OF PF HANDLER 3165 032602 202 00 0 00 000502 MOVEM AC0,LPGFTR DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 61 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0115 3166 3167 ; ********************************************************************** 3168 ;*PAGE FAIL TESTING OF THE COMPARE INSTRUCTIONS 3169 ; ********************************************************************** 3170 SALL 3171 037762 T= SIXBTZ 3172 3173 PFMAC (-6,-7,PFRES1,PFBLK1,CMP,SETRAN) 3174 3175 032603 201 00 0 00 032603 CMPST: MOVEI . 3176 032604 202 00 0 00 030051 MOVEM TESTPC 3177 3178 032605 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS 3179 3180 032606 515 01 0 00 777772 HRLZI AC1,-6 ;AC1/-# CMP INSTR,,0 3181 032607 541 01 0 00 035517 HRRI AC1,CMPTAB ;AC1/-# CMP INSTR,,OPCODE TABLE ADDR 3182 3183 032610 402 00 0 00 035564 SETZM E0 3184 032611 402 00 0 00 035565 SETZM E0+1 3185 3186 032612 571 02 0 00 777771 CMPPF0: HRREI AC2,-7 ;AC2/-# PAGE FAIL CASES 3187 3188 032613 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ 3189 032614 306 00 0 00 000017 CAIN AC0,017 3190 032615 275 02 0 00 000001 SUBI AC2,1 3191 3192 032616 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION? 3193 032617 254 00 0 00 032626 JRST CMPPFA 3194 3195 032620 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE 3196 032621 202 00 0 00 036246 MOVEM AC0,PATTBL 3197 032622 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3198 032623 251 00 0 00 036256 BLT AC0,PATTBL+^D8 3199 3200 032624 200 00 0 00 036461 MOVE AC0,STOPWD 3201 032625 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9 3202 3203 032626 201 03 0 00 036464 CMPPFA: MOVEI AC3,PFBLK1 ;INITIAL AC BLOCK TABLE 3204 032627 201 04 0 00 036646 MOVEI AC4,PFRES1 ;ADDR OF INTERMEDIATE RESULT TABLE 3205 3206 032630 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3207 032631 402 00 0 00 041174 SETZM SKPWD2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 62 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0116 3208 3209 ; ************************************************** 3210 ;SET UP THE SOURCE AND DESTINATION STRINGS 3211 ; ************************************************** 3212 3213 032632 260 17 0 00 035313 GO CLRSTR 3214 3215 032633 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA 3216 032634 200 00 0 00 037772 MOVE AC0,[75750,,75751] 3217 032635 251 00 0 00 076100 BLT AC0,76100 3218 3219 032636 260 17 0 00 035234 CMPPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK 3220 3221 032637 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE 3222 032640 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING 3223 3224 032641 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION 3225 3226 032642 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3227 032643 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES 3228 3229 032644 336 00 0 00 041156 SKIPN FILLF 3230 032645 137 00 0 00 036220 DPB AC0,E0OP ;NO 3231 3232 032646 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION? 3233 032647 254 00 0 00 032657 JRST CMPPC ;NO 3234 3235 032650 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE 3236 032651 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3237 032652 542 00 0 00 400777 HRRM AC0,400777 ;YES 3238 032653 542 00 0 00 035564 HRRM AC0,E0 ;NO 3239 3240 032654 200 00 0 00 037533 MOVE AC0,[1,,1] 3241 032655 260 17 0 00 031426 GO SETRAN ;SETUP THE TRANSLATION TABLE 3242 032656 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 63 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0117 3243 3244 032657 200 00 0 00 037506 CMPPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS 3245 032660 251 00 0 00 035766 BLT AC0,ORIGSV+4 3246 3247 032661 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3248 032662 200 00 0 00 037774 MOVE AC0,[0,,CMPPC2] ;YES 3249 032663 336 00 0 00 041156 SKIPN FILLF 3250 032664 200 00 0 00 037775 MOVE AC0,[0,,CMPPC1] ;NO 3251 032665 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT 3252 3253 032666 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED 3254 032667 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG 3255 3256 032670 201 00 0 00 032707 MOVEI CMPPFX 3257 032671 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC 3258 3259 032672 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP 3260 3261 032673 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3262 032674 254 00 0 00 032700 JRST CMPPC2 ;YES 3263 3264 ; ************************************************** 3265 032675 123 10 0 00 035564 CMPPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3266 032676 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3267 ; ************************************************** 3268 3269 032677 254 00 0 00 032702 JRST CMPPF3 3270 3271 ; ************************************************** 3272 032700 123 10 0 00 400777 CMPPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL 3273 032701 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3274 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 64 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0118 3275 3276 ; ************************************************** 3277 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE 3278 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE. 3279 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE 3280 ;INSTRUCTION AND TO HERE. 3281 ; ************************************************** 3282 3283 032702 331 00 0 00 041170 CMPPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR? 3284 032703 254 00 0 00 032717 JRST DOCMP ;YES - OK 3285 3286 ERROR CMPPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^ 3287 SALL 3288 032704 036 13 0 00 040004 3289 032705 035 00 0 00 032612 ERLOOP CMPPF0 ;IF ERROR, LOOP TO CMPPF0 3290 032706 254 00 0 00 032724 JRST CMPNXT ;GO DO THE NEXT CASE 3291 3292 032707 336 00 0 00 041170 CMPPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ? 3293 032710 254 00 0 00 032714 JRST CMPPF9 ;YES, CHECK INTERMEDIATE RESULTS 3294 3295 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^ 3296 SALL 3297 032711 036 13 0 00 040016 3298 032712 035 02 0 00 032612 ERLP2 CMPPF0 3299 032713 254 00 0 00 032724 JRST CMPNXT 3300 3301 032714 CMPPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^ 3302 SALL 3303 032714 036 13 0 00 040030 3304 032715 035 02 0 00 032612 ERLP2 CMPPF0 3305 032716 254 00 0 00 032724 JRST CMPNXT 3306 3307 ; ************************************************** 3308 032717 260 17 0 00 033475 DOCMP: GO CMPSIM ;SIMULATE THE INSTRUCTION 3309 032720 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN 3310 ; ************************************************** 3311 3312 032721 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS 3313 ERROR CMPPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^ 3314 SALL 3315 032722 036 13 0 00 040037 3316 032723 035 00 0 00 032612 ERLOOP CMPPF0 ;IF ERROR, LOOP TO CMPPF0 3317 032724 201 00 0 00 000005 CMPNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS 3318 032725 272 00 0 00 000004 ADDM AC0,AC4 3319 032726 271 00 0 00 000001 ADDI AC0,1 3320 032727 272 00 0 00 000003 ADDM AC0,AC3 3321 3322 032730 341 02 0 00 032636 AOJL AC2,CMPPF1 ;DO THE NEXT PF CASE 3323 3324 032731 253 01 0 00 032612 AOBJN AC1,CMPPF0 ;DO THE NEXT INSTRUCTION 3325 032732 402 00 0 00 041162 SETZM OFFSET 3326 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 65 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0119 3327 3328 ; ********************************************************************** 3329 ;*PAGE FAIL TESTING OF MOVE STRING INSTRUCTIONS 3330 ; ********************************************************************** 3331 SALL 3332 040042 T= SIXBTZ 3333 3334 PFMAC(-4,-7,PFRES1,PFBLK1,MOV,SETRAN) 3335 3336 032733 201 00 0 00 032733 MOVST: MOVEI . 3337 032734 202 00 0 00 030051 MOVEM TESTPC 3338 3339 032735 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS 3340 3341 032736 515 01 0 00 777774 HRLZI AC1,-4 ;AC1/-# MOV INSTR,,0 3342 032737 541 01 0 00 035525 HRRI AC1,MOVTAB ;AC1/-# MOV INSTR,,OPCODE TABLE ADDR 3343 3344 032740 402 00 0 00 035564 SETZM E0 3345 032741 402 00 0 00 035565 SETZM E0+1 3346 3347 032742 571 02 0 00 777771 MOVPF0: HRREI AC2,-7 ;AC2/-# PAGE FAIL CASES 3348 3349 032743 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ 3350 032744 306 00 0 00 000017 CAIN AC0,017 3351 032745 275 02 0 00 000001 SUBI AC2,1 3352 3353 032746 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION? 3354 032747 254 00 0 00 032756 JRST MOVPFA 3355 3356 032750 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE 3357 032751 202 00 0 00 036246 MOVEM AC0,PATTBL 3358 032752 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3359 032753 251 00 0 00 036256 BLT AC0,PATTBL+^D8 3360 3361 032754 200 00 0 00 036461 MOVE AC0,STOPWD 3362 032755 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9 3363 3364 032756 201 03 0 00 036464 MOVPFA: MOVEI AC3,PFBLK1 ;INITIAL AC BLOCK TABLE 3365 032757 201 04 0 00 036646 MOVEI AC4,PFRES1 ;ADDR OF INTERMEDIATE RESULT TABLE 3366 3367 032760 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3368 032761 402 00 0 00 041174 SETZM SKPWD2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 66 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0120 3369 3370 ; ************************************************** 3371 ;SET UP THE SOURCE AND DESTINATION STRINGS 3372 ; ************************************************** 3373 3374 032762 260 17 0 00 035313 GO CLRSTR 3375 3376 032763 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA 3377 032764 200 00 0 00 037772 MOVE AC0,[75750,,75751] 3378 032765 251 00 0 00 076100 BLT AC0,76100 3379 3380 032766 260 17 0 00 035234 MOVPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK 3381 3382 032767 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE 3383 032770 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING 3384 3385 032771 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION 3386 3387 032772 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3388 032773 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES 3389 3390 032774 336 00 0 00 041156 SKIPN FILLF 3391 032775 137 00 0 00 036220 DPB AC0,E0OP ;NO 3392 3393 032776 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION? 3394 032777 254 00 0 00 033007 JRST MOVPC ;NO 3395 3396 033000 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE 3397 033001 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3398 033002 542 00 0 00 400777 HRRM AC0,400777 ;YES 3399 033003 542 00 0 00 035564 HRRM AC0,E0 ;NO 3400 3401 033004 200 00 0 00 037533 MOVE AC0,[1,,1] 3402 033005 260 17 0 00 031426 GO SETRAN ;SETUP THE TRANSLATION TABLE 3403 033006 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 67 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0121 3404 3405 033007 200 00 0 00 037506 MOVPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS 3406 033010 251 00 0 00 035766 BLT AC0,ORIGSV+4 3407 3408 033011 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3409 033012 200 00 0 00 040052 MOVE AC0,[0,,MOVPC2] ;YES 3410 033013 336 00 0 00 041156 SKIPN FILLF 3411 033014 200 00 0 00 040053 MOVE AC0,[0,,MOVPC1] ;NO 3412 033015 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT 3413 3414 033016 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED 3415 033017 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG 3416 3417 033020 201 00 0 00 033037 MOVEI MOVPFX 3418 033021 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC 3419 3420 033022 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP 3421 3422 033023 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3423 033024 254 00 0 00 033030 JRST MOVPC2 ;YES 3424 3425 ; ************************************************** 3426 033025 123 10 0 00 035564 MOVPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3427 033026 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3428 ; ************************************************** 3429 3430 033027 254 00 0 00 033032 JRST MOVPF3 3431 3432 ; ************************************************** 3433 033030 123 10 0 00 400777 MOVPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL 3434 033031 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3435 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 68 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0122 3436 3437 ; ************************************************** 3438 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE 3439 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE. 3440 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE 3441 ;INSTRUCTION AND TO HERE. 3442 ; ************************************************** 3443 3444 033032 331 00 0 00 041170 MOVPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR? 3445 033033 254 00 0 00 033047 JRST DOMOV ;YES - OK 3446 3447 ERROR MOVPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^ 3448 SALL 3449 033034 036 13 0 00 040054 3450 033035 035 00 0 00 032742 ERLOOP MOVPF0 ;IF ERROR, LOOP TO MOVPF0 3451 033036 254 00 0 00 033054 JRST MOVNXT ;GO DO THE NEXT CASE 3452 3453 033037 336 00 0 00 041170 MOVPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ? 3454 033040 254 00 0 00 033044 JRST MOVPF9 ;YES, CHECK INTERMEDIATE RESULTS 3455 3456 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^ 3457 SALL 3458 033041 036 13 0 00 040057 3459 033042 035 02 0 00 032742 ERLP2 MOVPF0 3460 033043 254 00 0 00 033054 JRST MOVNXT 3461 3462 033044 MOVPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^ 3463 SALL 3464 033044 036 13 0 00 040062 3465 033045 035 02 0 00 032742 ERLP2 MOVPF0 3466 033046 254 00 0 00 033054 JRST MOVNXT 3467 3468 ; ************************************************** 3469 033047 260 17 0 00 033551 DOMOV: GO MOVSIM ;SIMULATE THE INSTRUCTION 3470 033050 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN 3471 ; ************************************************** 3472 3473 033051 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS 3474 ERROR MOVPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^ 3475 SALL 3476 033052 036 13 0 00 040065 3477 033053 035 00 0 00 032742 ERLOOP MOVPF0 ;IF ERROR, LOOP TO MOVPF0 3478 033054 201 00 0 00 000005 MOVNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS 3479 033055 272 00 0 00 000004 ADDM AC0,AC4 3480 033056 271 00 0 00 000001 ADDI AC0,1 3481 033057 272 00 0 00 000003 ADDM AC0,AC3 3482 3483 033060 341 02 0 00 032766 AOJL AC2,MOVPF1 ;DO THE NEXT PF CASE 3484 3485 033061 253 01 0 00 032742 AOBJN AC1,MOVPF0 ;DO THE NEXT INSTRUCTION 3486 033062 402 00 0 00 041162 SETZM OFFSET 3487 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 69 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0123 3488 3489 ; ********************************************************************** 3490 ;*PAGE FAIL TESTING OF CVTDBX INSTRUCTIONS 3491 ; ********************************************************************** 3492 SALL 3493 040070 T= SIXBTZ 3494 3495 PFMAC(-2,-3,PFRES2,PFBLK2,CDB,CDBTN) 3496 3497 033063 201 00 0 00 033063 CDBST: MOVEI . 3498 033064 202 00 0 00 030051 MOVEM TESTPC 3499 3500 033065 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS 3501 3502 033066 515 01 0 00 777776 HRLZI AC1,-2 ;AC1/-# CDB INSTR,,0 3503 033067 541 01 0 00 035532 HRRI AC1,CDBTAB ;AC1/-# CDB INSTR,,OPCODE TABLE ADDR 3504 3505 033070 402 00 0 00 035564 SETZM E0 3506 033071 402 00 0 00 035565 SETZM E0+1 3507 3508 033072 571 02 0 00 777775 CDBPF0: HRREI AC2,-3 ;AC2/-# PAGE FAIL CASES 3509 3510 033073 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ 3511 033074 306 00 0 00 000017 CAIN AC0,017 3512 033075 275 02 0 00 000001 SUBI AC2,1 3513 3514 033076 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION? 3515 033077 254 00 0 00 033106 JRST CDBPFA 3516 3517 033100 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE 3518 033101 202 00 0 00 036246 MOVEM AC0,PATTBL 3519 033102 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3520 033103 251 00 0 00 036256 BLT AC0,PATTBL+^D8 3521 3522 033104 200 00 0 00 036461 MOVE AC0,STOPWD 3523 033105 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9 3524 3525 033106 201 03 0 00 036544 CDBPFA: MOVEI AC3,PFBLK2 ;INITIAL AC BLOCK TABLE 3526 033107 201 04 0 00 036716 MOVEI AC4,PFRES2 ;ADDR OF INTERMEDIATE RESULT TABLE 3527 3528 033110 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3529 033111 402 00 0 00 041174 SETZM SKPWD2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 70 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0124 3530 3531 ; ************************************************** 3532 ;SET UP THE SOURCE AND DESTINATION STRINGS 3533 ; ************************************************** 3534 3535 033112 260 17 0 00 035313 GO CLRSTR 3536 3537 033113 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA 3538 033114 200 00 0 00 037772 MOVE AC0,[75750,,75751] 3539 033115 251 00 0 00 076100 BLT AC0,76100 3540 3541 033116 260 17 0 00 035234 CDBPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK 3542 3543 033117 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE 3544 033120 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING 3545 3546 033121 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION 3547 3548 033122 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3549 033123 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES 3550 3551 033124 336 00 0 00 041156 SKIPN FILLF 3552 033125 137 00 0 00 036220 DPB AC0,E0OP ;NO 3553 3554 033126 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION? 3555 033127 254 00 0 00 033137 JRST CDBPC ;NO 3556 3557 033130 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE 3558 033131 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3559 033132 542 00 0 00 400777 HRRM AC0,400777 ;YES 3560 033133 542 00 0 00 035564 HRRM AC0,E0 ;NO 3561 3562 033134 200 00 0 00 037533 MOVE AC0,[1,,1] 3563 033135 260 17 0 00 035167 GO CDBTN ;SETUP THE TRANSLATION TABLE 3564 033136 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 71 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0125 3565 3566 033137 200 00 0 00 037506 CDBPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS 3567 033140 251 00 0 00 035766 BLT AC0,ORIGSV+4 3568 3569 033141 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3570 033142 200 00 0 00 040077 MOVE AC0,[0,,CDBPC2] ;YES 3571 033143 336 00 0 00 041156 SKIPN FILLF 3572 033144 200 00 0 00 040100 MOVE AC0,[0,,CDBPC1] ;NO 3573 033145 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT 3574 3575 033146 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED 3576 033147 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG 3577 3578 033150 201 00 0 00 033167 MOVEI CDBPFX 3579 033151 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC 3580 3581 033152 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP 3582 3583 033153 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3584 033154 254 00 0 00 033160 JRST CDBPC2 ;YES 3585 3586 ; ************************************************** 3587 033155 123 10 0 00 035564 CDBPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3588 033156 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3589 ; ************************************************** 3590 3591 033157 254 00 0 00 033162 JRST CDBPF3 3592 3593 ; ************************************************** 3594 033160 123 10 0 00 400777 CDBPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL 3595 033161 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3596 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 72 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0126 3597 3598 ; ************************************************** 3599 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE 3600 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE. 3601 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE 3602 ;INSTRUCTION AND TO HERE. 3603 ; ************************************************** 3604 3605 033162 331 00 0 00 041170 CDBPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR? 3606 033163 254 00 0 00 033177 JRST DOCDB ;YES - OK 3607 3608 ERROR CDBPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^ 3609 SALL 3610 033164 036 13 0 00 040101 3611 033165 035 00 0 00 033072 ERLOOP CDBPF0 ;IF ERROR, LOOP TO CDBPF0 3612 033166 254 00 0 00 033204 JRST CDBNXT ;GO DO THE NEXT CASE 3613 3614 033167 336 00 0 00 041170 CDBPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ? 3615 033170 254 00 0 00 033174 JRST CDBPF9 ;YES, CHECK INTERMEDIATE RESULTS 3616 3617 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^ 3618 SALL 3619 033171 036 13 0 00 040104 3620 033172 035 02 0 00 033072 ERLP2 CDBPF0 3621 033173 254 00 0 00 033204 JRST CDBNXT 3622 3623 033174 CDBPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^ 3624 SALL 3625 033174 036 13 0 00 040107 3626 033175 035 02 0 00 033072 ERLP2 CDBPF0 3627 033176 254 00 0 00 033204 JRST CDBNXT 3628 3629 ; ************************************************** 3630 033177 260 17 0 00 033707 DOCDB: GO CDBSIM ;SIMULATE THE INSTRUCTION 3631 033200 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN 3632 ; ************************************************** 3633 3634 033201 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS 3635 ERROR CDBPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^ 3636 SALL 3637 033202 036 13 0 00 040112 3638 033203 035 00 0 00 033072 ERLOOP CDBPF0 ;IF ERROR, LOOP TO CDBPF0 3639 033204 201 00 0 00 000005 CDBNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS 3640 033205 272 00 0 00 000004 ADDM AC0,AC4 3641 033206 271 00 0 00 000001 ADDI AC0,1 3642 033207 272 00 0 00 000003 ADDM AC0,AC3 3643 3644 033210 341 02 0 00 033116 AOJL AC2,CDBPF1 ;DO THE NEXT PF CASE 3645 3646 033211 253 01 0 00 033072 AOBJN AC1,CDBPF0 ;DO THE NEXT INSTRUCTION 3647 033212 402 00 0 00 041162 SETZM OFFSET 3648 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 73 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0127 3649 3650 ; ********************************************************************** 3651 ;*PAGE FAIL TESTING OF CVTBDO INSTRUCTIONS 3652 ; ********************************************************************** 3653 SALL 3654 040115 T= SIXBTZ 3655 3656 PFMAC(-1,-2,PFRES3,PFBLK3,CBD,CBDTRN) 3657 3658 033213 201 00 0 00 033213 CBDST: MOVEI . 3659 033214 202 00 0 00 030051 MOVEM TESTPC 3660 3661 033215 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS 3662 3663 033216 515 01 0 00 777777 HRLZI AC1,-1 ;AC1/-# CBD INSTR,,0 3664 033217 541 01 0 00 035534 HRRI AC1,CBDTAB ;AC1/-# CBD INSTR,,OPCODE TABLE ADDR 3665 3666 033220 402 00 0 00 035564 SETZM E0 3667 033221 402 00 0 00 035565 SETZM E0+1 3668 3669 033222 571 02 0 00 777776 CBDPF0: HRREI AC2,-2 ;AC2/-# PAGE FAIL CASES 3670 3671 033223 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ 3672 033224 306 00 0 00 000017 CAIN AC0,017 3673 033225 275 02 0 00 000001 SUBI AC2,1 3674 3675 033226 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION? 3676 033227 254 00 0 00 033236 JRST CBDPFA 3677 3678 033230 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE 3679 033231 202 00 0 00 036246 MOVEM AC0,PATTBL 3680 033232 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3681 033233 251 00 0 00 036256 BLT AC0,PATTBL+^D8 3682 3683 033234 200 00 0 00 036461 MOVE AC0,STOPWD 3684 033235 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9 3685 3686 033236 201 03 0 00 036566 CBDPFA: MOVEI AC3,PFBLK3 ;INITIAL AC BLOCK TABLE 3687 033237 201 04 0 00 036735 MOVEI AC4,PFRES3 ;ADDR OF INTERMEDIATE RESULT TABLE 3688 3689 033240 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3690 033241 402 00 0 00 041174 SETZM SKPWD2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 74 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0128 3691 3692 ; ************************************************** 3693 ;SET UP THE SOURCE AND DESTINATION STRINGS 3694 ; ************************************************** 3695 3696 033242 260 17 0 00 035313 GO CLRSTR 3697 3698 033243 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA 3699 033244 200 00 0 00 037772 MOVE AC0,[75750,,75751] 3700 033245 251 00 0 00 076100 BLT AC0,76100 3701 3702 033246 260 17 0 00 035234 CBDPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK 3703 3704 033247 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE 3705 033250 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING 3706 3707 033251 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION 3708 3709 033252 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3710 033253 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES 3711 3712 033254 336 00 0 00 041156 SKIPN FILLF 3713 033255 137 00 0 00 036220 DPB AC0,E0OP ;NO 3714 3715 033256 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION? 3716 033257 254 00 0 00 033267 JRST CBDPC ;NO 3717 3718 033260 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE 3719 033261 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3720 033262 542 00 0 00 400777 HRRM AC0,400777 ;YES 3721 033263 542 00 0 00 035564 HRRM AC0,E0 ;NO 3722 3723 033264 200 00 0 00 037533 MOVE AC0,[1,,1] 3724 033265 260 17 0 00 035171 GO CBDTRN ;SETUP THE TRANSLATION TABLE 3725 033266 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 75 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0129 3726 3727 033267 200 00 0 00 037506 CBDPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS 3728 033270 251 00 0 00 035766 BLT AC0,ORIGSV+4 3729 3730 033271 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3731 033272 200 00 0 00 040124 MOVE AC0,[0,,CBDPC2] ;YES 3732 033273 336 00 0 00 041156 SKIPN FILLF 3733 033274 200 00 0 00 040125 MOVE AC0,[0,,CBDPC1] ;NO 3734 033275 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT 3735 3736 033276 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED 3737 033277 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG 3738 3739 033300 201 00 0 00 033317 MOVEI CBDPFX 3740 033301 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC 3741 3742 033302 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP 3743 3744 033303 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3745 033304 254 00 0 00 033310 JRST CBDPC2 ;YES 3746 3747 ; ************************************************** 3748 033305 123 10 0 00 035564 CBDPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3749 033306 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3750 ; ************************************************** 3751 3752 033307 254 00 0 00 033312 JRST CBDPF3 3753 3754 ; ************************************************** 3755 033310 123 10 0 00 400777 CBDPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL 3756 033311 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3757 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 76 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0130 3758 3759 ; ************************************************** 3760 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE 3761 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE. 3762 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE 3763 ;INSTRUCTION AND TO HERE. 3764 ; ************************************************** 3765 3766 033312 331 00 0 00 041170 CBDPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR? 3767 033313 254 00 0 00 033327 JRST DOCBD ;YES - OK 3768 3769 ERROR CBDPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^ 3770 SALL 3771 033314 036 13 0 00 040126 3772 033315 035 00 0 00 033222 ERLOOP CBDPF0 ;IF ERROR, LOOP TO CBDPF0 3773 033316 254 00 0 00 033334 JRST CBDNXT ;GO DO THE NEXT CASE 3774 3775 033317 336 00 0 00 041170 CBDPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ? 3776 033320 254 00 0 00 033324 JRST CBDPF9 ;YES, CHECK INTERMEDIATE RESULTS 3777 3778 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^ 3779 SALL 3780 033321 036 13 0 00 040131 3781 033322 035 02 0 00 033222 ERLP2 CBDPF0 3782 033323 254 00 0 00 033334 JRST CBDNXT 3783 3784 033324 CBDPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^ 3785 SALL 3786 033324 036 13 0 00 040134 3787 033325 035 02 0 00 033222 ERLP2 CBDPF0 3788 033326 254 00 0 00 033334 JRST CBDNXT 3789 3790 ; ************************************************** 3791 033327 260 17 0 00 034006 DOCBD: GO CBDSIM ;SIMULATE THE INSTRUCTION 3792 033330 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN 3793 ; ************************************************** 3794 3795 033331 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS 3796 ERROR CBDPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^ 3797 SALL 3798 033332 036 13 0 00 040137 3799 033333 035 00 0 00 033222 ERLOOP CBDPF0 ;IF ERROR, LOOP TO CBDPF0 3800 033334 201 00 0 00 000005 CBDNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS 3801 033335 272 00 0 00 000004 ADDM AC0,AC4 3802 033336 271 00 0 00 000001 ADDI AC0,1 3803 033337 272 00 0 00 000003 ADDM AC0,AC3 3804 3805 033340 341 02 0 00 033246 AOJL AC2,CBDPF1 ;DO THE NEXT PF CASE 3806 3807 033341 253 01 0 00 033222 AOBJN AC1,CBDPF0 ;DO THE NEXT INSTRUCTION 3808 033342 402 00 0 00 041162 SETZM OFFSET 3809 SALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 77 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0131 3810 3811 ; ********************************************************************** 3812 ;*PAGE FAIL TESTING OF THE EDIT INSTRUCTIONS 3813 ; ********************************************************************** 3814 SALL 3815 040142 T= SIXBTZ 3816 3817 PFMAC(-1,-6,PFRES4,PFBLK4,EDT,SETRAN) 3818 3819 033343 201 00 0 00 033343 EDTST: MOVEI . 3820 033344 202 00 0 00 030051 MOVEM TESTPC 3821 3822 033345 476 00 0 00 041162 SETOM OFFSET ;NO DESTIN STRING OFFSET IN SIMULATORS 3823 3824 033346 515 01 0 00 777777 HRLZI AC1,-1 ;AC1/-# EDT INSTR,,0 3825 033347 541 01 0 00 035531 HRRI AC1,EDTTAB ;AC1/-# EDT INSTR,,OPCODE TABLE ADDR 3826 3827 033350 402 00 0 00 035564 SETZM E0 3828 033351 402 00 0 00 035565 SETZM E0+1 3829 3830 033352 571 02 0 00 777772 EDTPF0: HRREI AC2,-6 ;AC2/-# PAGE FAIL CASES 3831 3832 033353 200 00 0 01 000000 MOVE AC0,(AC1) ;EXTRA CASE FOR MOVSRJ 3833 033354 306 00 0 00 000017 CAIN AC0,017 3834 033355 275 02 0 00 000001 SUBI AC2,1 3835 3836 033356 302 00 0 00 000004 CAIE AC0,004 ;EDIT INSTRUCTION? 3837 033357 254 00 0 00 033366 JRST EDTPFA 3838 3839 033360 200 00 0 00 036463 MOVE AC0,SELWD ;YES - SET UP THE PATTERN TABLE 3840 033361 202 00 0 00 036246 MOVEM AC0,PATTBL 3841 033362 200 00 0 00 037601 MOVE AC0,[PATTBL,,PATTBL+1] 3842 033363 251 00 0 00 036256 BLT AC0,PATTBL+^D8 3843 3844 033364 200 00 0 00 036461 MOVE AC0,STOPWD 3845 033365 202 00 0 00 036257 MOVEM AC0,PATTBL+^D9 3846 3847 033366 201 03 0 00 036602 EDTPFA: MOVEI AC3,PFBLK4 ;INITIAL AC BLOCK TABLE 3848 033367 201 04 0 00 036747 MOVEI AC4,PFRES4 ;ADDR OF INTERMEDIATE RESULT TABLE 3849 3850 033370 402 00 0 00 041173 SETZM SKPWD1 ;CLEAR SKIP INDICATOR WORDS 3851 033371 402 00 0 00 041174 SETZM SKPWD2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 78 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0132 3852 3853 ; ************************************************** 3854 ;SET UP THE SOURCE AND DESTINATION STRINGS 3855 ; ************************************************** 3856 3857 033372 260 17 0 00 035313 GO CLRSTR 3858 3859 033373 402 00 0 00 075750 SETZM 75750 ;CLEAR THE FAIL STRING AREA 3860 033374 200 00 0 00 037772 MOVE AC0,[75750,,75751] 3861 033375 251 00 0 00 076100 BLT AC0,76100 3862 3863 033376 260 17 0 00 035234 EDTPF1: GO PFACB ;SET UP THE INITIAL AC BLOCK 3864 3865 033377 200 00 0 01 000000 MOVE AC0,(AC1) ;RETRIEVE INSTRUCTION OPCODE 3866 033400 202 00 0 00 041161 MOVEM AC0,INSTR# ;SAVE FOR ERROR PRINTING 3867 3868 033401 260 17 0 00 035213 GO CHKTRN ;SET TRANFG IF TRANLATE INSTRUCTION 3869 3870 033402 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3871 033403 137 00 0 00 037773 DPB AC0,[POINT 9,400777,8] ;YES 3872 3873 033404 336 00 0 00 041156 SKIPN FILLF 3874 033405 137 00 0 00 036220 DPB AC0,E0OP ;NO 3875 3876 033406 336 00 0 00 041176 SKIPN TRANFG ;IS IT A TRANSLATE TYPE INSTRUCTION? 3877 033407 254 00 0 00 033417 JRST EDTPC ;NO 3878 3879 033410 201 00 0 00 035650 MOVEI AC0,E1 ;ADDRESS OF TRANSLATION TABLE 3880 033411 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3881 033412 542 00 0 00 400777 HRRM AC0,400777 ;YES 3882 033413 542 00 0 00 035564 HRRM AC0,E0 ;NO 3883 3884 033414 200 00 0 00 037533 MOVE AC0,[1,,1] 3885 033415 260 17 0 00 031426 GO SETRAN ;SETUP THE TRANSLATION TABLE 3886 033416 434 10 0 00 035734 OR AC,BIT0 ;SET THE SIGNIFICANCE FLAG DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 79 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0133 3887 3888 033417 200 00 0 00 037506 EDTPC: MOVE AC0,[AC,,ORIGSV] ;SAVE THE AC BLOCKS 3889 033420 251 00 0 00 035766 BLT AC0,ORIGSV+4 3890 3891 033421 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3892 033422 200 00 0 00 040152 MOVE AC0,[0,,EDTPC2] ;YES 3893 033423 336 00 0 00 041156 SKIPN FILLF 3894 033424 200 00 0 00 040153 MOVE AC0,[0,,EDTPC1] ;NO 3895 033425 202 00 0 00 041155 MOVEM FAILOC# ;STORE IT 3896 3897 033426 476 00 0 00 041170 SETOM PFTRAP# ;INDICATE THAT TRAP IS EXPECTED 3898 033427 402 00 0 00 041166 SETZM PFERR# ;CLEAR PAGE FAIL ERROR FLAG 3899 3900 033430 201 00 0 00 033447 MOVEI EDTPFX 3901 033431 202 00 0 00 041167 MOVEM PFHEPC ;SETUP PAGE FAILURE INTERMEDIATE ERROR NEW PC 3902 3903 033432 260 17 0 00 035223 GO PAGSET ;CLEAR AND SETUP THE PAGE MAP 3904 3905 033433 332 00 0 00 041156 SKIPE FILLF ;FILLER FAILURE CASE? 3906 033434 254 00 0 00 033440 JRST EDTPC2 ;YES 3907 3908 ; ************************************************** 3909 033435 123 10 0 00 035564 EDTPC1: EXTEND AC,E0 ;EXECUTE THE INSTRUCTION FOR REAL 3910 033436 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3911 ; ************************************************** 3912 3913 033437 254 00 0 00 033442 JRST EDTPF3 3914 3915 ; ************************************************** 3916 033440 123 10 0 00 400777 EDTPC2: EXTEND AC,400777 ;MAKE E0+1 FAIL 3917 033441 476 00 0 00 041174 SETOM SKPWD2 ;NOTE SKIP RETURN 3918 ; ************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 80 DSKCGM MAC 11-Sep-79 15:13 PAGE FAIL TESTING SEQ 0134 3919 3920 ; ************************************************** 3921 ;WHEN THE INSTRUCTION PAGE FAILS, THE PAGE FAILURE ROUTINE 3922 ;SETS UP THE PAGING SO THE INSTRUCTION CAN CONTINUE. 3923 ;THEN IT COMPLETES THE INSTRUCTION AND RETURNS AFTER THE 3924 ;INSTRUCTION AND TO HERE. 3925 ; ************************************************** 3926 3927 033442 331 00 0 00 041170 EDTPF3: SKIPL PFTRAP ;DID THE PAGE FAIL OCCUR? 3928 033443 254 00 0 00 033457 JRST DOEDT ;YES - OK 3929 3930 ERROR EDTPF0,13,0,0,^EXTEND INST DID NOT PAGE FAIL,,PNTINS^ 3931 SALL 3932 033444 036 13 0 00 040154 3933 033445 035 00 0 00 033352 ERLOOP EDTPF0 ;IF ERROR, LOOP TO EDTPF0 3934 033446 254 00 0 00 033464 JRST EDTNXT ;GO DO THE NEXT CASE 3935 3936 033447 336 00 0 00 041170 EDTPFX: SKIPN PFTRAP ;PAGE FAIL ONCE ONLY ? 3937 033450 254 00 0 00 033454 JRST EDTPF9 ;YES, CHECK INTERMEDIATE RESULTS 3938 3939 ERROR1 13,0,0,^EXTEND INST PAGE FAILED MORE THAN ONCE,,PFPNT^ 3940 SALL 3941 033451 036 13 0 00 040157 3942 033452 035 02 0 00 033352 ERLP2 EDTPF0 3943 033453 254 00 0 00 033464 JRST EDTNXT 3944 3945 033454 EDTPF9: ERROR1 13,0,0,^INTERMEDIATE PAGE FAIL RESULTS ERROR,,PFPNT^ 3946 SALL 3947 033454 036 13 0 00 040162 3948 033455 035 02 0 00 033352 ERLP2 EDTPF0 3949 033456 254 00 0 00 033464 JRST EDTNXT 3950 3951 ; ************************************************** 3952 033457 260 17 0 00 034141 DOEDT: GO EDTSIM ;SIMULATE THE INSTRUCTION 3953 033460 476 00 0 00 041173 SETOM SKPWD1 ;NOTE A SKIP RETURN 3954 ; ************************************************** 3955 3956 033461 260 17 0 00 035174 GO COMAC ;COMPARE THE FINAL RESULTS 3957 ERROR EDTPF0,13,0,0,^FINAL AC'S INCORRECT,,COMPNT^ 3958 SALL 3959 033462 036 13 0 00 040165 3960 033463 035 00 0 00 033352 ERLOOP EDTPF0 ;IF ERROR, LOOP TO EDTPF0 3961 033464 201 00 0 00 000005 EDTNXT: MOVEI AC0,5 ;UPDATE THE CASE AND RESULT BLOCK POINTERS 3962 033465 272 00 0 00 000004 ADDM AC0,AC4 3963 033466 271 00 0 00 000001 ADDI AC0,1 3964 033467 272 00 0 00 000003 ADDM AC0,AC3 3965 3966 033470 341 02 0 00 033376 AOJL AC2,EDTPF1 ;DO THE NEXT PF CASE 3967 3968 033471 253 01 0 00 033352 AOBJN AC1,EDTPF0 ;DO THE NEXT INSTRUCTION 3969 033472 402 00 0 00 041162 SETZM OFFSET 3970 SALL 3971 033473 367 15 0 00 032603 REPTLP CMPST 3972 033474 254 00 0 00 030057 JRST BEGEND ;END OF PROGRAM DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 81 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0135 3973 SUBTTL INSTRUCTION SIMULATORS 3974 3975 ; ********************************************************************** 3976 ;*INSTRUCTION SIMULATORS -- GENERAL INFORMATION 3977 ;* 3978 ;* EACH INSTRUCTION SIMULATOR ROUTINE IS ENTERED WITH 3979 ;* THE ORIGINAL AC BLOCK IN ORIGSV. THEY ARE COPIED INTO 3980 ;* AC'S 10-14. 3981 ;* 3982 ;* THE CURRENT OPCODE OF THE INSTRUCTION BEING TESTED 3983 ;* IS CONTAINED IN THE E0 WORD (BITS 0,8). 3984 ;* 3985 ;* FOR THE INSTRUCTIONS WHICH INVOLVE FORMING A DESTINATION STRING 3986 ;* THE RESULT IS STORED IN AN AREA CALLED "SIMDES" INSTEAD OF 3987 ;* "DESTIN" TO MAKE ERROR COMPARISON POSSIBLE. 3988 ;* 3989 ;* THE FINAL AC BLOCK FOR THE INSTRUCTION IS STORED IN FIVE 3990 ;* LOCATIONS AT RESSV BEFORE RETURN TO THE INSTRUCTION MODULE. 3991 ;* 3992 ;* RETURN IS +1 ALWAYS. 3993 ;* 3994 ;* CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION 3995 ;* MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS 3996 ;* CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS 3997 ;* CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS 3998 ;* EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION 3999 ; ********************************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 82 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0136 4000 4001 ; ********************************************************************** 4002 ;*CMPSIM -- ROUTINE TO SIMULATE THE COMPARE STRING INSTRUCTION 4003 ;* 4004 ;* THE SKIP/NON-SKIP RETURN OF THE CMPXX SIMULATOR IS HANDLED 4005 ;* USING 3 FLAGS AND A SKIP TABLE, SKPTAB. 4006 ;* 4007 ;* WHEN STRING1 IS FOUND GREATER THAN, LESS THAN, AND/OR = TO 4008 ;* STRING2, THE APPROPRIATE FLAG IS OR'ED WITH AC3. 4009 ;* 4010 ;* SKPTAB IS INDEXED BY INSTRUCTION OPCODE AND BEFORE THE 4011 ;* INSTRUCTION RETURNS, AC3 IS ANDED WITH THE CORRECT 4012 ;* SKPTAB WORD. 4013 ;* 4014 ;* IF THE RESULT IS NON-ZERO THE SKIP CONDITION FOR THE INSTR 4015 ;* HAS BEEN SATISFIED AND THE RETURN POINTER IS INCREMENTED. 4016 ; ********************************************************************** 4017 4018 033475 260 17 0 00 035253 CMPSIM: GO SVAC ;SAVE ACCUMULATORS 4019 4020 033476 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE 4021 4022 033477 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE ORIGINAL AC BLOCK 4023 033500 251 00 0 00 000014 BLT AC0,AC+4 4024 4025 033501 402 00 0 00 000003 SETZM AC3 ;CLEAR SKIP TABLE COMPARE WORD 4026 4027 033502 375 00 0 00 000010 CMPS1: SOSGE SLEN 4028 033503 334 07 0 00 035565 SKIPA AC7,E0+1 ;IF SOURCE EXHAUSTED, GET FILLER 4029 033504 134 07 0 00 000011 ILDB AC7,SP ;SOURCE REMAINS, GET BYTE 4030 4031 033505 375 00 0 00 000013 SOSGE DLEN ;DO THE SAME WITH DESTINATION STRING 4032 033506 334 02 0 00 035566 SKIPA AC2,E0+2 4033 033507 134 02 0 00 000014 ILDB AC2,DP 4034 4035 033510 325 10 0 00 033512 JUMPGE SLEN,CMPS2 ;GO COMPARE BYTES 4036 033511 321 13 0 00 033535 JUMPL DLEN,CMPDON ;BOTH STRING ARE EQUAL 4037 4038 033512 554 04 0 00 000007 CMPS2: HLRZ AC4,AC7 ;GET THE LEFT HALF OF SOURCE AND DESTIN 4039 033513 554 05 0 00 000002 HLRZ AC5,AC2 4040 4041 033514 316 04 0 00 000005 CAMN AC4,AC5 ;COMPARE SOURCE AND DESTINATION BYTES 4042 033515 254 00 0 00 033524 JRST CMPS3 ;EQUAL - GET RIGHT HALF 4043 4044 033516 317 04 0 00 000005 CAMG AC4,AC5 4045 033517 435 03 0 00 000001 ORI AC3,LF 4046 4047 033520 311 04 0 00 000005 CAML AC4,AC5 4048 033521 435 03 0 00 000004 ORI AC3,GF ;SET SOURCE > DESTIN FLAG 4049 4050 033522 332 00 0 00 000003 SKIPE AC3 4051 033523 254 00 0 00 033536 JRST CMPOUT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 83 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0137 4052 4053 033524 550 04 0 00 000007 CMPS3: HRRZ AC4,AC7 4054 033525 550 05 0 00 000002 HRRZ AC5,AC2 4055 4056 033526 316 04 0 00 000005 CAMN AC4,AC5 4057 033527 254 00 0 00 033502 JRST CMPS1 ;EQUAL - GET NEXT BYTES 4058 4059 033530 317 04 0 00 000005 CAMG AC4,AC5 ;BYTES ARE NOT EQUAL 4060 033531 435 03 0 00 000001 ORI AC3,LF ;SET SOURCE < DESTIN FLAG 4061 4062 033532 311 04 0 00 000005 CAML AC4,AC5 4063 033533 435 03 0 00 000004 ORI AC3,GF ;SET SOURCE > DESTIN FLAG 4064 4065 033534 254 00 0 00 033536 JRST CMPOUT ;NOW EXIT 4066 4067 033535 435 03 0 00 000002 CMPDON: ORI AC3,EF ;SET SOURCE = DESTIN FLAG 4068 4069 033536 404 03 0 01 036224 CMPOUT: AND AC3,SKPTAB(OP1) ;IF RESULT OF AND = 0 THEN NON-SKIP RTN 4070 033537 332 00 0 00 000003 SKIPE AC3 4071 033540 350 00 0 17 000000 AOS (P) 4072 4073 033541 335 00 0 00 000010 SKIPGE SLEN ;CLEANUP IF EITHER LENGTH HAS GONE NEGATIVE 4074 033542 402 00 0 00 000010 SETZM SLEN 4075 033543 335 00 0 00 000013 SKIPGE DLEN 4076 033544 402 00 0 00 000013 SETZM DLEN 4077 4078 033545 200 00 0 00 040171 MOVE AC0,[SLEN,,RESSV] ;SAVE THE END RESULT 4079 4080 033546 251 00 0 00 035773 BLT AC0,RESSV+4 4081 033547 260 17 0 00 035273 GO RSTAC ;RESTORE THE ACCUMULATORS 4082 4083 033550 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 84 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0138 4084 4085 ; ********************************************************************** 4086 ;*MOVSIM -- ROUTINE TO SIMULATE THE MOVE STRING INSTRUCTIONS 4087 ; ********************************************************************** 4088 4089 033551 260 17 0 00 035253 MOVSIM: GO SVAC ;SAVE ACCUMULATORS 4090 4091 033552 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE 4092 4093 033553 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK 4094 033554 251 00 0 00 000014 BLT AC0,AC+4 4095 4096 033555 510 06 0 00 000010 HLLZ AC6,AC ;SEPERATE THE FLAGS AND LENGTH 4097 033556 550 10 0 00 000010 HRRZ AC,AC 4098 4099 033557 336 00 0 00 041162 SKIPN OFFSET ;DON'T OFFSET DESTIN STRING IF PFTST 4100 033560 541 14 0 00 036120 HRRI DP,SIMDES ;PUT SIMULATED DESTIN STRING ELSEWHERE 4101 4102 033561 332 00 0 00 000013 SKIPE DLEN ;IF DESTIN LEN = 0 THEN SIMPLE RETURN 4103 033562 254 00 0 00 033566 JRST MOVS1A ;NO 4104 4105 033563 336 00 0 00 000010 SKIPN SLEN ;IS THE SOURCE LENGTH 0 TOO? 4106 033564 254 00 0 00 033665 JRST SETSKP ;YES - DO A SKIP RETURN 4107 033565 254 00 0 00 033675 JRST MOVOUT ;NO 4108 4109 033566 306 01 0 00 000015 MOVS1A: CAIN OP1,015 ;IS INSTRUCTION MOVST? 4110 033567 254 00 0 00 033634 JRST MOVSTS ;YES - JUMP TO THAT CODE 4111 4112 033570 306 01 0 00 000014 CAIN OP1,014 ;IS INSTRUCTION MOVSO? 4113 033571 254 00 0 00 033614 JRST MOVSOS ;YES - JUMP TO THAT CODE 4114 4115 033572 403 02 0 00 000005 SETZB AC2,AC5 ;SET BYTE OFFSET AND OFFSET MASK TO ZERO 4116 4117 033573 316 10 0 00 000013 CAMN SLEN,DLEN ;ARE THE STRING LENGTHS EQUAL? 4118 033574 254 00 0 00 033620 JRST MOVS3 ;YES - DO THE MOVE 4119 4120 033575 302 01 0 00 000017 CAIE OP1,017 ;NO - MOVSRJ INSTRUCTION? 4121 033576 254 00 0 00 033620 JRST MOVS3 ;NO - DO THE MOVE 4122 4123 033577 200 02 0 00 000010 MOVE AC2,SLEN ;FIND DIFFERENCE BETWEEN STRING LENGTHS 4124 033600 274 02 0 00 000013 SUB AC2,DLEN 4125 4126 033601 337 00 0 00 000002 SKIPG AC2 ;SKIP IF DESTINATION SHORTER 4127 033602 254 00 0 00 033607 JRST MOVS2 ;SOURCE SHORTER - PUT FILLER IN DESTIN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 85 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0139 4128 4129 033603 134 07 0 00 000011 MOVS1: ILDB AC7,SP ;THROW AWAY A SOURCE BYTE 4130 033604 360 10 0 00 000000 SOJ SLEN, 4131 033605 366 02 0 00 033603 SOJN AC2,MOVS1 ;WHEN DIFFERENCE IS FILLED IN, 4132 4133 033606 254 00 0 00 033620 JRST MOVS3 ;DO REST OF MOVE 4134 4135 033607 200 07 0 00 035565 MOVS2: MOVE AC7,E0+1 ;GET THE FILLER 4136 4137 033610 136 07 0 00 000014 MOVS2A: IDPB AC7,DP ;PUT FILLER IN DESTINATION 4138 033611 360 13 0 00 000000 SOJ DLEN, ;DECREMENT DESTIN LENGTH 4139 033612 346 02 0 00 033610 AOJN AC2,MOVS2A ;WHEN DIFFERENCE IS FILLED IN, 4140 4141 033613 254 00 0 00 033620 JRST MOVS3 ;DO REST OF MOVE 4142 4143 033614 561 02 0 00 777777 MOVSOS: HRROI AC2,-1 ;AC2 IS OFFSET COMPARE WORD 4144 033615 135 05 0 00 040172 LDB AC5,[300600,,DP] ;GET # BITS IN DESTINATION BYTE 4145 033616 242 02 0 05 000000 LSH AC2,(AC5) ;AC2 SHOWS BITS THAT MIGHT BE LOST 4146 033617 571 05 1 00 035564 HRREI AC5,@E0 ;AC13 CONTAINS THE BYTE OFFSET 4147 4148 033620 375 00 0 00 000013 MOVS3: SOSGE DLEN ;ANY DESTINATION LEFT? 4149 033621 254 00 0 00 033665 JRST SETSKP ;NO 4150 4151 033622 375 00 0 00 000010 SOSGE SLEN ;ANY SOURCE LEFT 4152 033623 334 07 0 00 035565 SKIPA AC7,E0+1 ;NO - GET FILLER 4153 033624 134 07 0 00 000011 ILDB AC7,SP ;YES - GET BYTE 4154 4155 033625 335 00 0 00 000010 SKIPGE SLEN ;ANY SOURCE LEFT? 4156 033626 254 00 0 00 033632 JRST MOVS4 ;NO - JUST DEPOSIT FILLER 4157 4158 033627 270 07 0 00 000005 ADD AC7,AC5 ;ADD BYTE OFFSET TO BYTE 4159 033630 612 07 0 00 000002 TDNE AC7,AC2 ;WILL INFORMATION BE LOST? 4160 033631 254 00 0 00 033674 JRST MOVPL ;YES - RETURN PC+1 4161 4162 033632 136 07 0 00 000014 MOVS4: IDPB AC7,DP ;DEPOSIT BYTE IN DESTINATION 4163 033633 254 00 0 00 033620 JRST MOVS3 ;DO THE NEXT ONE! DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 86 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0140 4164 4165 033634 361 10 0 00 033655 MOVSTS: SOJL SLEN,MOVST1 ;ANY SOURCE LEFT? 4166 4167 033635 322 13 0 00 033655 JUMPE DLEN,MOVST1 ;JUMP IF DESTINATION EXHAUSTED 4168 4169 033636 134 07 0 00 000011 ILDB AC7,SP ;GET SOURCE BYTE 4170 033637 241 07 0 00 777777 ROT AC7,-1 ;SIGN BIT SAYS WHETHER ODD OR EVEN 4171 033640 335 00 0 00 000007 SKIPGE AC7 4172 033641 334 07 0 07 035650 SKIPA AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY RIGHT 4173 033642 204 07 0 07 035650 MOVS AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY LEFT 4174 4175 033643 602 07 0 00 400000 TRNE AC7,400000 ;IS THE S FLAG SET? 4176 033644 661 06 0 00 200000 TLO AC6,200000 ;YES - TURN ON THE N FLAG 4177 4178 033645 135 04 0 00 040173 LDB AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL 4179 XCT [JFCL ;0 - NO ACTION 4180 JRST MOVST3 ;1 - ABORT INSRUCTION 4181 TLZ AC6,100000 ;2 - CLEAR M FLAG 4182 033646 256 00 0 04 040174 TLO AC6,100000](AC4) ;3 - SET M FLAG 4183 4184 033647 602 07 0 00 400000 TRNE AC7,400000 ;NOTE THE START FLAG 4185 033650 665 06 0 00 400000 TLOA AC6,400000 ;START SIGNIFICANCE 4186 033651 325 06 0 00 033634 JUMPGE AC6,MOVSTS ;DON'T STORE - TRY NEXT BYTE 4187 4188 033652 405 07 0 00 077777 ANDI AC7,77777 ;CLEAR LEFT HALF AND FLAGS 4189 033653 136 07 0 00 000014 IDPB AC7,DP ;DEPOSIT BYTE IN DESTINATION 4190 033654 364 13 0 00 033634 SOJA DLEN,MOVSTS ;GET NEXT BYTE 4191 4192 033655 356 00 0 00 000010 MOVST1: AOSN SLEN ;SOURCE GONE? 4193 033656 350 00 0 17 000000 AOS (P) ;YES - SETUP SKIP RETURN 4194 4195 033657 200 07 0 00 035565 MOVE AC7,E0+1 ;GET THE FILLER BYTE 4196 033660 361 13 0 00 033663 MOVST2: SOJL DLEN,MOVST3 ;JUMP WHEN DESTINATION FINISHED 4197 033661 136 07 0 00 000014 IDPB AC7,DP ;DEPOSIT IT IN THE DESTINATION STRING 4198 033662 254 00 0 00 033660 JRST MOVST2 ;DESTINATION LEFT - CONTINUE 4199 4200 033663 137 10 0 00 040200 MOVST3: DPB SLEN,[3300,,SLEN] ;DEPOSIT REMAINING SOURCE LENGTH 4201 033664 254 00 0 00 033675 JRST MOVOUT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 87 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0141 4202 4203 033665 302 01 0 00 000017 SETSKP: CAIE OP1,017 ;MOVSRJ INSTRUCTION? 4204 033666 254 00 0 00 033671 JRST SKP1 ;NO 4205 4206 033667 350 00 0 17 000000 AOS (P) ;YES - IT ALWAYS SKIPS 4207 033670 254 00 0 00 033675 JRST MOVOUT 4208 4209 033671 337 00 0 00 000010 SKP1: SKIPG SLEN ;IS THERE UNUSED SOURCE BYTES? 4210 033672 350 00 0 17 000000 AOS (P) ;NO - SKIP RETURN 4211 033673 334 00 0 00 000000 SKIPA 4212 4213 033674 271 13 0 00 000001 MOVPL: ADDI DLEN,1 ;ADJUST DESTIN LENGTH 4214 4215 033675 335 00 0 00 000010 MOVOUT: SKIPGE SLEN ;RESET ANY NEG LENGTHS TO 0 4216 033676 402 00 0 00 000010 SETZM SLEN 4217 033677 335 00 0 00 000013 SKIPGE DLEN 4218 033700 402 00 0 00 000013 SETZM DLEN 4219 4220 033701 332 00 0 00 041176 SKIPE TRANFG ;MOVST INSTRUCTION? 4221 033702 434 10 0 00 000006 OR SLEN,AC6 ;YES - OR THE TRANSLATE FLAGS WITH SLEN 4222 4223 033703 200 00 0 00 040171 MOVE AC0,[SLEN,,RESSV] ;SAVE THE FINAL RESULT 4224 033704 251 00 0 00 035773 BLT AC0,RESSV+4 4225 4226 033705 260 17 0 00 035273 GO RSTAC ;RESTORE ACCUMULATORS 4227 033706 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 88 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0142 4228 4229 ; ********************************************************************** 4230 ;*CDBSIM -- ROUTINE TO SIMULATE THE CVTDBO AND CVTDBT INSTRUCTIONS 4231 ; ********************************************************************** 4232 4233 033707 260 17 0 00 035253 CDBSIM: GO SVAC ;SAVE ACCUMULATORS 4234 4235 033710 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE 4236 4237 033711 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK 4238 033712 251 00 0 00 000014 BLT AC0,AC+4 4239 4240 033713 200 06 0 00 000010 MOVE AC6,SLEN 4241 033714 621 06 0 00 777000 TLZ AC6,777000 ;AC6/STRING LENGTH WITHOUT FLAGS 4242 033715 404 10 0 00 040201 AND SLEN,[777000,,0] ;SLEN NOW HAS ONLY THE FLAGS 4243 4244 033716 302 01 0 00 000010 CAIE OP1,010 ;CVTDBO INSTRUCTION? 4245 033717 254 00 0 00 033724 JRST CDBS1 ;NO - TRANSLATE INSTRUCTION 4246 4247 033720 571 05 1 00 035564 HRREI AC5,@E0 ;GET THE BYTE OFFSET 4248 033721 621 14 0 00 400000 TLZ DBL,(1B0) ;CLEAR THE LOW ORDER SIGN BIT 4249 033722 667 10 0 00 400000 TLON SLEN,400000 ;TEST AND SET THE SIGNIFICANCE FLAG 4250 033723 403 13 0 00 000014 SETZB DBH,DBL ;CLEAR HIGH AND LOW ORDER DATA 4251 4252 033724 361 06 0 00 033767 CDBS1: SOJL AC6,CDBDON ;JUMP IF ALL BYTES PROCESSED 4253 4254 033725 134 07 0 00 000011 ILDB AC7,SP ;GET A SOURCE BYTE 4255 033726 302 01 0 00 000011 CAIE OP1,011 ;CVTDBO INSTRUCTION? 4256 033727 254 00 0 00 033746 JRST CDBLEG ;YES - GO SEE IF LEGAL DIGIT 4257 4258 033730 241 07 0 00 777777 ROT AC7,-1 ;CVTDBT - ISOLATE ODD,EVEN BIT 4259 033731 335 00 0 00 000007 SKIPGE AC7 4260 033732 334 07 0 07 035650 SKIPA AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY RIGHT 4261 033733 204 07 0 07 035650 MOVS AC7,E1(AC7) ;GET TRANSLATION TABLE ENTRY LEFT 4262 4263 033734 602 07 0 00 400000 TRNE AC7,400000 ;IS S FLAG SET IN TABLE ENTRY? 4264 033735 661 10 0 00 200000 TLO SLEN,200000 ;YES - SET THE N FLAG 4265 4266 033736 135 04 0 00 040173 LDB AC4,[POINT 2,AC7,20] ;GET THE SIGN CONTROL 4267 XCT [JFCL ;0 - NO ACTION 4268 JRST CDBOUT ;1 - ABORT INSRUCTION 4269 TLZ SLEN,100000 ;2 - CLEAR M FLAG 4270 033737 256 00 0 04 040202 TLO SLEN,100000](AC4) ;3 - SET M FLAG 4271 4272 033740 606 07 0 00 400000 TRNN AC7,400000 ;NOTE THE SIGNIFICANCE FLAG 4273 033741 325 10 0 00 033724 JUMPGE SLEN,CDBS1 ;DON'T STORE - GET NEXT BYTE 4274 4275 033742 667 10 0 00 400000 TLON SLEN,400000 ;TEST AND SET SIGNIFICANCE 4276 033743 403 14 0 00 000013 SETZB DBL,DBH ;CLEAR HIGH AND LOW BINARY DATA 4277 4278 033744 405 07 0 00 000017 ANDI AC7,17 ;DISCARD THE HIGH BITS OF TRANS TABLE ENTRY 4279 033745 334 00 0 00 000000 SKIPA DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 89 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0143 4280 4281 033746 270 07 0 00 000005 CDBLEG: ADD AC7,AC5 ;ADD OFFSET IF CVTDBO INSTRUCTION 4282 033747 321 07 0 00 033772 JUMPL AC7,CDBOUT ;TERMINATE INSTR IF BYTE NEGATIVE 4283 4284 033750 301 07 0 00 000012 CAIL AC7,^D10 ;TERMINATE INSTR IF BYTE > DECIMAL 9 4285 033751 254 00 0 00 033772 JRST CDBOUT 4286 4287 033752 242 14 0 00 000001 LSH DBL,1 4288 033753 246 13 0 00 000001 LSHC DBH,1 ;MULTIPLY BY 2 4289 033754 242 14 0 00 777777 LSH DBL,-1 4290 033755 124 13 0 00 036221 DMOVEM DBH,TEMP ;SAVE THE DOUBLE WORD RESULT 4291 4292 033756 242 14 0 00 000001 LSH DBL,1 4293 033757 246 13 0 00 000002 LSHC DBH,2 ;MULTIPLY BY 4 4294 033760 242 14 0 00 777777 LSH DBL,-1 4295 4296 033761 270 07 0 00 036222 ADD AC7,TEMP+1 ;ADD THE PARTIAL PRODUCT 4297 033762 270 14 0 00 000007 ADD DBL,AC7 4298 033763 270 13 0 00 036221 ADD DBH,TEMP 4299 4300 033764 623 14 0 00 400000 TLZE DBL,400000 ;IS THERE A CARRY OUT OF LOW WORD 4301 033765 340 13 0 00 000000 AOJ DBH, ;YES - INCREMENT THE HIGH WORD 4302 4303 033766 254 00 0 00 033724 JRST CDBS1 ;GET THE NEXT BYTE 4304 4305 033767 603 10 0 00 100000 CDBDON: TLNE SLEN,100000 ;IS THE M FLAG SET? 4306 033770 121 13 0 00 000013 DMOVN DBH,DBH ;YES - NEGATE THE DOUBLE WORD RESULT 4307 033771 354 00 0 17 000000 AOSA (P) ;PROVIDE FOR A SKIP RETURN 4308 4309 033772 434 10 0 00 000006 CDBOUT: IOR SLEN,AC6 4310 033773 621 14 0 00 400000 TLZ DBL,(1B0) ;CLEAR COPY OF SIGN BIT 4311 4312 033774 603 13 0 00 400000 TLNE DBH,(1B0) ;TEST THE SIGN OF THE RESULT 4313 033775 661 14 0 00 400000 TLO DBL,(1B0) ;IT'S NEGATIVE - SET COPY OF SIGN TO 1 4314 4315 033776 302 01 0 00 000011 CAIE OP1,011 ;OFFSET INSTRUCTION? 4316 033777 254 00 0 00 034002 JRST CDBRET ;YES - RETURN 4317 4318 034000 607 10 0 00 400000 TLNN SLEN,400000 ;CVTDBT - IS S FLAG SET? 4319 034001 403 14 0 00 000013 SETZB DBL,DBH ;NO - SET THE ANSWER TO ZERO 4320 4321 034002 200 00 0 00 040171 CDBRET: MOVE AC0,[SLEN,,RESSV] ;STORE THE RESULTS 4322 4323 034003 251 00 0 00 035773 BLT AC0,RESSV+4 4324 034004 260 17 0 00 035273 GO RSTAC ;RESTORE ACCUMULATORS 4325 4326 034005 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 90 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0144 4327 4328 ; ********************************************************************** 4329 ;*CBDSIM -- ROUTINE TO SIMULATE THE CVTBDX INSTRUCTIONS 4330 ; ********************************************************************** 4331 4332 034006 260 17 0 00 035253 CBDSIM: GO SVAC ;SAVE ACCUMULATORS 4333 4334 034007 402 00 0 00 041164 SETZM OVERR# ;OVERFLOW ERROR FLAG 4335 4336 034010 135 01 0 00 036220 LDB OP1,E0OP ;COPY OF CURRENT OPCODE 4337 4338 034011 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK 4339 034012 251 00 0 00 000014 BLT AC0,AC+4 4340 4341 034013 336 00 0 00 041162 SKIPN OFFSET ;DON'T OFFSET STRING IF PFTST 4342 034014 541 14 0 00 036120 HRRI DP,SIMDES ;PUT SIMULATOR RESULT ELSEWHERE 4343 4344 034015 571 00 1 00 035564 HRREI AC0,@E0 ;GET BYTE OFFSET 4345 034016 202 00 0 00 041163 MOVEM OFS# 4346 4347 034017 135 02 0 00 040206 LDB AC2,[POINT 9,DLEN,35] ;AC2 HAS DESTIN STRING LENGTH 4348 034020 621 11 0 00 400000 TLZ BDL,(1B0) ;CLEAR THE LOW ORDER SIGN BIT 4349 034021 306 10 0 00 000000 CAIN BDH,0 ;IS THE NUMBER = 0? 4350 034022 302 11 0 00 000000 CAIE BDL,0 4351 034023 661 13 0 00 200000 TLO DLEN,200000 ;NO - SET THE N (NON-ZERO) FLAG 4352 4353 034024 325 10 0 00 034031 JUMPGE BDH,CBDS1 ;JUMP IF THE NUMBER IS POSITIVE 4354 4355 034025 121 10 0 00 000010 DMOVN BDH,BDH ;MAKE THE NUMBER POSITIVE 4356 034026 661 13 0 00 100000 TLO DLEN,100000 ;BUT REMEMBER THAT IT WAS NEGATIVE 4357 4358 034027 603 10 0 00 400000 TLNE BDH,(1B0) ;NEGATIVE? 4359 034030 661 11 0 00 400000 TLO BDL,(1B0) ;YES - SET THE LOW ORDER SIGN 4360 4361 034031 322 02 0 00 034130 CBDS1: JUMPE AC2,CBDOVF ;ZERO LENGTH MEANS OVERFLOW 4362 4363 034032 301 10 0 00 000000 CAIL BDH,0 ;2**70? 4364 034033 254 00 0 00 034055 JRST CBDOST ;NO 4365 4366 034034 305 02 0 00 000026 CAIGE AC2,^D22 ;YES - IS THE LENGTH LONG ENOUGH? 4367 034035 254 00 0 00 034130 JRST CBDOVF ;NO 4368 4369 034036 607 13 0 00 400000 TLNN DLEN,400000 ;SIGNIFICANCE FLAG SET? 4370 034037 254 00 0 00 034045 JRST CBDS3 ;NO - NO STORAGE OF LEADING 0'S 4371 4372 034040 200 03 0 00 035565 MOVE AC3,E0+1 ;YES - GET THE FILLER 4373 034041 306 02 0 00 000026 CBDS2: CAIN AC2,^D22 4374 034042 254 00 0 00 034045 JRST CBDS3 4375 4376 034043 136 03 0 00 000014 IDPB AC3,DP ;STORE THE FILLER IN DESTINATION STRING 4377 034044 364 02 0 00 034041 SOJA AC2,CBDS2 ;GO BACK FOR MORE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 91 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0145 4378 4379 034045 201 02 0 00 000025 CBDS3: MOVEI AC2,^D21 4380 034046 201 03 0 00 000001 MOVEI AC3,1 4381 4382 034047 306 01 0 00 000012 CAIN OP1,012 ;CVTBDO INSTRUCTION? 4383 034050 270 03 0 00 041163 ADD AC3,OFS ;ADD OFFSET TO THE NUMBER 4384 4385 034051 306 01 0 00 000013 CAIN OP1,013 ;CVTBDT INSTRUCTION? 4386 034052 550 03 0 03 035650 HRRZ AC3,E1(AC3) ;GET REPRESENTATION OF "1" 4387 4388 034053 136 03 0 00 000014 IDPB AC3,DP ;STORE FIRST DIGIT OF ANSWER 4389 034054 120 10 0 00 040207 DMOVE BDH,[EXP 47121545107,104130000000] 4390 4391 034055 120 03 0 00 000010 CBDOST: DMOVE AC3,BDH 4392 034056 260 17 0 00 034070 GO DECPNT ;OUTPUT DIGITS 4393 4394 034057 332 00 0 00 041164 SKIPE OVERR ;IS THERE AN OVERFLOW ERROR? 4395 034060 254 00 0 00 034130 JRST CBDOVF ;YES 4396 4397 034061 403 10 0 00 000011 CBDEX: SETZB BDH,BDL ;RETURN WITH DATA 0 4398 034062 404 13 0 00 040201 AND DLEN,[777000,,] ;LEAVE LENGTH 0 4399 4400 034063 200 00 0 00 040171 MOVE AC0,[AC,,RESSV] 4401 034064 251 00 0 00 035773 BLT AC0,RESSV+4 4402 4403 034065 260 17 0 00 035273 GO RSTAC 4404 034066 350 00 0 17 000000 AOS (P) 4405 034067 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 92 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0146 4406 4407 034070 260 17 0 00 034100 DECPNT: GO DECPN3 ;STORE DIGITS 4408 4409 034071 607 13 0 00 100000 TLNN DLEN,100000 ;MINUS FLAG SET? 4410 034072 254 00 0 00 034077 JRST DECPNR 4411 4412 034073 306 01 0 00 000012 CAIN OP1,012 4413 034074 254 00 0 00 034077 JRST DECPNR 4414 4415 034075 514 02 0 06 035650 HRLZ AC2,E1(AC6) 4416 034076 137 02 0 00 000014 DPB AC2,DP 4417 4418 034077 263 17 0 00 000000 DECPNR: RTN 4419 4420 034100 200 05 0 00 000004 DECPN3: MOVE AC5,AC4 ;SAVE LOW ORDER DIVIDEND 4421 4422 034101 231 03 0 00 000012 IDIVI AC3,12 ;DIVIDE HIGH PART BY 10 4423 034102 235 04 0 00 000012 DIVI AC4,12 ;AND LOW PART 4424 4425 034103 365 02 0 00 034106 SOJGE AC2,DECP4 ;IF LENGTH GOES NEG -- OVERFLOW 4426 4427 034104 476 00 0 00 041164 SETOM OVERR ;INDICATE OVERFLOW ERROR 4428 034105 254 00 0 00 034127 JRST DECPN2 ;INITIATE A RETURN 4429 4430 034106 261 17 0 00 000005 DECP4: PUSH P,AC5 4431 034107 326 04 0 00 034117 JUMPN AC4,DECPN1 4432 034110 326 03 0 00 034117 JUMPN AC3,DECPN1 4433 034111 325 13 0 00 034116 JUMPGE DLEN,DECLDN ;SFL=0 MEANS DON'T STORE LEADING 0'S 4434 034112 200 05 0 00 035565 MOVE AC5,E0+1 4435 4436 034113 322 02 0 00 034116 DECFIL: JUMPE AC2,DECLDN ;NO MORE ROOM 4437 034114 136 05 0 00 000014 IDPB AC5,DP ;STORE A LEADING 0 4438 034115 364 02 0 00 034113 SOJA AC2,DECFIL ;GO BACK FOR MORE 4439 4440 034116 304 00 0 00 000000 DECLDN: CAIA ;RETRIEVE DIGITS IN CORRECT ORDER DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 93 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0147 4441 4442 034117 260 17 0 00 034100 DECPN1: GO DECPN3 ;GET NEXT DIGIT 4443 034120 262 17 0 00 000005 POP P,AC5 4444 034121 200 06 0 00 000005 MOVE AC6,AC5 ;SAVE DIGIT 4445 4446 034122 306 01 0 00 000012 CAIN OP1,012 ;TRANSLATE? 4447 034123 270 05 0 00 041163 ADD AC5,OFS ;NO -OFFSET 4448 4449 034124 306 01 0 00 000013 CAIN OP1,013 4450 034125 550 05 0 05 035650 HRRZ AC5,E1(AC5) 4451 4452 034126 136 05 0 00 000014 IDPB AC5,DP ;STORE 4453 034127 263 17 0 00 000000 DECPN2: RTN 4454 4455 034130 200 00 0 00 040211 CBDOVF: MOVE AC0,[ORIGSV,,RESSV] ;RETURN WITH ORIGINAL AC'S INTACT 4456 034131 251 00 0 00 035773 BLT AC0,RESSV+4 4457 4458 034132 541 00 0 00 036120 HRRI AC0,SIMDES 4459 034133 542 00 0 00 035773 HRRM AC0,RESSV+4 4460 4461 034134 402 00 0 00 036120 SETZM SIMDES 4462 034135 200 00 0 00 040212 MOVE AC0,[SIMDES,,SIMDES+1] 4463 034136 251 00 0 00 036156 BLT AC0,SIMDES+^D30 4464 4465 034137 260 17 0 00 035273 GO RSTAC 4466 034140 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 94 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0148 4467 4468 ; ********************************************************************** 4469 ;*EDTSIM -- ROUTINE TO SIMULATE THE EDIT INSTRUCTION 4470 ; ********************************************************************** 4471 4472 034141 260 17 0 00 035253 EDTSIM: GO SVAC ;SAVE ACCUMULATORS 4473 4474 034142 200 00 0 00 040170 MOVE AC0,[ORIGSV,,AC] ;RETRIEVE INITIAL AC BLOCK 4475 034143 251 00 0 00 000014 BLT AC0,AC+4 4476 4477 034144 336 00 0 00 041162 SKIPN OFFSET# ;OFFSET THE DESTINATION STRING? 4478 034145 541 14 0 00 036120 HRRI DP,SIMDES ;MOVE DESTINATION STRING ELSEWHERE 4479 4480 034146 135 07 0 00 036453 EDTS2: LDB AC7,PATBN ;GET PB# FROM AC 4481 034147 135 03 0 07 036455 LDB AC3,PATBL(AC7) ;GET THE PATTERN BYTE 4482 034150 200 02 0 00 000003 MOVE AC2,AC3 ;MAKE A COPY OF IT 4483 034151 242 02 0 00 777772 LSH AC2,-6 ;GET READY TO DECODE THE HIGH 3 BITS 4484 034152 254 00 1 02 036435 JRST @PPTAB(AC2) ;JUMP TO THE SPECIFIED PP CODE 4485 4486 ; ************************************************** 4487 ;EOPER -- PP IS 000-005. DECODE AND JUMP AGAIN 4488 ; ************************************************** 4489 4490 034153 303 03 0 00 000005 EOPER: CAILE AC3,5 ;LEGAL OPERATOR? 4491 034154 254 00 0 00 034162 JRST ENOP ;NO 4492 034155 254 00 1 03 036445 JRST @PPTAB1(AC3) ;JUMP TO SPECIFIED PP CODE 4493 4494 ; ************************************************** 4495 ;EMESSG -- PP IS 1XX (MESSAG) 4496 ; ************************************************** 4497 4498 034156 325 10 0 00 034220 EMESSG: JUMPGE PADDR,ESEL ;USE FILLER IF SIGNIFICANCE NOT SET 4499 034157 200 03 0 03 035465 MOVE AC3,E0-77(AC3) ;SIGNIFICANCE SET - GET MSG CHAR. 4500 034160 136 03 0 00 000014 IDPB AC3,DP ;DEPOSIT IT IN DESTINATION STRING 4501 034161 254 00 0 00 034162 JRST ENOP 4502 4503 ; ************************************************** 4504 ;ENOP -- UPDATES THE PATTERN ADDRESS 4505 ; ************************************************** 4506 4507 034162 260 17 0 00 034237 ENOP: GO INCPBN ;ROUTINE TO UPDATE PATTERN ADDRESS 4508 034163 254 00 0 00 034146 JRST EDTS2 ;GO GET THE NEXT BYTE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 95 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0149 4509 4510 ; ************************************************** 4511 ;ESKPM -- PP IS 5XX (SKPM) 4512 ; ************************************************** 4513 4514 034164 607 10 0 00 100000 ESKPM: TLNN PADDR,100000 ;IS THE M FLAG SET? 4515 034165 254 00 0 00 034162 JRST ENOP ;NO - DON'T SKIP LENGTH 4516 034166 254 00 0 00 034172 JRST ESKPA ;YES - DO THE SKIP 4517 4518 ; ************************************************** 4519 ;ESKPN -- PP IS 6XX (SKPN) 4520 ; ************************************************** 4521 4522 034167 607 10 0 00 200000 ESKPN: TLNN PADDR,200000 ;IS THE N FLAG SET? 4523 034170 254 00 0 00 034162 JRST ENOP ;NO - DON'T SKIP LENGTH 4524 034171 254 00 0 00 034172 JRST ESKPA ;YES - DO THE SKIP 4525 4526 ; ************************************************** 4527 ;ESKPA -- PP IS 7XX (SKPA) 4528 ; ************************************************** 4529 4530 034172 405 03 0 00 000077 ESKPA: ANDI AC3,77 4531 034173 271 07 0 03 000001 ADDI AC7,1(AC3) ;ADD THE SKIP DISTANCE 4532 034174 260 17 0 00 034237 GO INCPBN 4533 034175 254 00 0 00 034146 JRST EDTS2 4534 4535 ; ************************************************** 4536 ;ESTOP -- PP IS 000 (STOP) 4537 ; ************************************************** 4538 4539 034176 350 00 0 17 000000 ESTOP: AOS (P) ;SETUP FOR A SKIP RETURN 4540 4541 034177 260 17 0 00 034237 EABORT: GO INCPBN ;PUSH THE PATTERN BYTE NO. PAST THE STOP 4542 4543 034200 200 00 0 00 040171 MOVE AC0,[PADDR,,RESSV] ;SAVE THE RESULT AC'S 4544 034201 251 00 0 00 035773 BLT AC0,RESSV+4 4545 4546 034202 260 17 0 00 035273 GO RSTAC ;RESTORE ACCUMULATORS 4547 034203 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 96 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0150 4548 4549 ; ************************************************** 4550 ;ESELCT -- PP IS 011 (SELECT) 4551 ; ************************************************** 4552 4553 034204 134 03 0 00 000011 ESELCT: ILDB AC3,SP ;GET SOURCE BYTE 4554 034205 241 03 0 00 777777 ROT AC3,-1 ;MOVE ODD,EVEN BIT TO BIT 0 4555 034206 335 00 0 00 000003 SKIPGE AC3 4556 034207 334 03 0 03 035650 SKIPA AC3,E1(AC3) ;LOAD TRANS TABLE ENTRY, RIGHT HALF 4557 034210 204 03 0 03 035650 MOVS AC3,E1(AC3) ;LOAD TRANS TABLE ENTRY, LEFT HALF 4558 4559 034211 602 03 0 00 400000 TRNE AC3,400000 ;IS THE SIGNIFICANCE FLAG SET? 4560 034212 661 10 0 00 200000 TLO PADDR,200000 ;YES - SET THE N FLAG 4561 4562 034213 135 02 0 00 040213 LDB AC2,[POINT 2,AC3,20] ;GET THE CONTROL BITS 4563 XCT [JFCL ;0 - NO ACTION 4564 JRST EABORT ;1 - ABORT INSRUCTION 4565 TLZ PADDR,100000 ;2 - CLEAR M FLAG 4566 034214 256 00 0 02 040214 TLO PADDR,100000](AC2) ;3 - SET M FLAG 4567 4568 034215 321 10 0 00 034225 JUMPL PADDR,ESEL2 ;STORE THE BYTE 4569 4570 034216 602 03 0 00 400000 TRNE AC3,400000 ;IS THE SIGNIFICANCE FLAG SET? 4571 034217 254 00 0 00 034223 JRST ESEL1 ;YES - STORE THE BYTE 4572 4573 034220 200 03 0 00 035565 ESEL: MOVE AC3,E0+1 ;NO - GET THE FILLER CHARACTER 4574 034221 322 03 0 00 034162 JUMPE AC3,ENOP ;DON'T STORE IT IF = 0 4575 034222 254 00 0 00 034225 JRST ESEL2 4576 4577 034223 661 10 0 00 400000 ESEL1: TLO PADDR,400000 ;SET THE SIGNIFICANCE FLAG 4578 034224 260 17 0 00 034246 GO STFLOT ;MARK AND TRY FLOAT 4579 4580 034225 405 03 0 00 077777 ESEL2: ANDI AC3,77777 ;MASK OFF THE CONTROL BITS 4581 034226 136 03 0 00 000014 IDPB AC3,DP ;DEPOSIT THE BYTE IN DESTIN STRING 4582 034227 254 00 0 00 034162 JRST ENOP ;GO FOR NEXT BYTE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 97 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION SIMULATORS SEQ 0151 4583 4584 ; ************************************************** 4585 ;ESIGST -- PP IS 002 (SIGST) 4586 ; ************************************************** 4587 4588 034230 667 10 0 00 400000 ESIGST: TLON PADDR,400000 ;TEST AND SET SIGNIFICANCE FLAG 4589 034231 260 17 0 00 034246 GO STFLOT ;STORE FLOAT CHARACTER 4590 034232 254 00 0 00 034162 JRST ENOP 4591 4592 ; ************************************************** 4593 ;EFLDSP -- PP IS 003 (FLDSEP) 4594 ; ************************************************** 4595 4596 034233 621 10 0 00 700000 EFLDSP: TLZ PADDR,700000 ;CLEAR ALL FLAGS 4597 034234 254 00 0 00 034162 JRST ENOP 4598 4599 ; ************************************************** 4600 ;EEXCHD -- -- IS 004 (EXCHMD) 4601 ; ************************************************** 4602 4603 034235 250 14 0 13 000000 EEXCHD: EXCH DP,(MA) ;PUT THE MARK POINTER INTO DP1 4604 034236 254 00 0 00 034162 JRST ENOP 4605 4606 ; ************************************************** 4607 ;INCPBN -- EDIT SUPPORT ROUTINE TO UPDATE THE PATTERN ADDRESS 4608 ; ************************************************** 4609 4610 034237 271 07 0 00 000001 INCPBN: ADDI AC7,1 ;INCREMENT PB# 4611 034240 200 03 0 00 000007 MOVE AC3,AC7 ;MAKE A COPY OF IT 4612 034241 242 03 0 00 777776 LSH AC3,-2 ;GET THE WORD ADDRESS 4613 034242 271 10 0 03 000000 ADDI PADDR,(AC3) ;UPDATE SP 4614 034243 405 07 0 00 000003 ANDI AC7,3 4615 034244 137 07 0 00 036453 DPB AC7,PATBN 4616 034245 263 17 0 00 000000 RTN 4617 4618 ; ************************************************** 4619 ;STFLOT -- EDIT SUPPORT ROUTINE THAT STORES THE FLOAT CHAR IN THE 4620 ; DESTINATION STRING 4621 ; ************************************************** 4622 4623 034246 202 14 0 13 000000 STFLOT: MOVEM DP,(MA) ;MA <== DP 4624 034247 200 02 0 00 035566 MOVE AC2,E0+2 ;GET THE FLOAT CHARACTER 4625 4626 034250 332 00 0 00 000002 SKIPE AC2 ;DON'T STORE THE FLOAT CHARACTER IF ZERO 4627 034251 136 02 0 00 000014 IDPB AC2,DP ;STORE IT 4628 034252 263 17 0 00 000000 RTN 4629 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 98 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0152 4630 SUBTTL INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES 4631 4632 ; ********************************************************************** 4633 ;*INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES 4634 ;* -- GENERAL INFORMATION 4635 ;* 4636 ;* EACH OF THE FIVE ERROR COMPARATOR AND COMPANION ERROR REPORTER 4637 ;* ROUTINES IS RESPONSIBLE FOR DETECTING ERROR AND PRINTING THE 4638 ;* ERROR INFORMATION SPECIFIC TO THE INSTRUCTION UNDER TEST. 4639 ;* 4640 ;* ALL ROUTINES ARE ENTERED WITH THE SAME PARAMETERS. THESE ARE: 4641 ;* 1. ORIGINAL AC BLOCK IN ORIGSV-ORIGSV+4 4642 ;* 2. ACTUAL RESULT BLOCK IN AC'S 10-14 4643 ;* 3. SIMULATED RESULT BLOCK IN RESSV-RESSV+4 4644 ;* 4. INSTRUCTION SKIP INFORMATION IN SKPWD1 AND SKPWD2 4645 ;* 5. SIMULATED DESTIN STRING IN SIMDES 4646 ;* 6. ACTUAL DESTIN STRING IN DESTIN 4647 ;* 4648 ;* GENERAL HELPER ROUTINES UTILIZED BY THE ERROR REPORTERS: 4649 ;* 4650 ;* 1. PNTINS -- PRINTS THE CURRENT INSTRUCTION NAME 4651 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS 4652 ;* 2. PNTCAS -- PRINTS THE CURRENT CASE NUMBER 4653 ;* ENTRY WITH CASE TABLE ADDRESS IN AC1, RTN+1 ALWAYS 4654 ;* 3. PNTSTR -- PRINTS STRING OF BYTES 4655 ;* ENTRY WITH STRING LENGTH IN AC1, STRING BYTE POINTER 4656 ;* IN AC2, RTN+1 ALWAYS 4657 ;* 4. PNTACB -- PRINTS ORIGINAL,SIMULATED, ACTUAL AC BLOCKS 4658 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS 4659 ;* 5. PNTSKP -- PRINTS INCORRECT SKIP MESSAGE 4660 ;* NO ENTRY PARAMETER SETUP, RTN+1 ALWAYS 4661 ;* 4662 ;* CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS 4663 ;* OF THE EXTEND COMPARE INSTRUCION. 4664 ;* MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS 4665 ;* OF THE EXTEND MOVXX INSTRUCTIONS. 4666 ;* CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS 4667 ;* OF THE CVTDBX INSTRUCTIONS. 4668 ;* CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS 4669 ;* OF THE CVTBDX INSTRUCTIONS. 4670 ;* EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS 4671 ;* OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION. 4672 ; ********************************************************************** DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 99 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0153 4673 4674 ; ********************************************************************** 4675 ;*CMPCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS 4676 ;* OF THE EXTEND COMPARE INSTRUCION. 4677 ; ********************************************************************** 4678 4679 034253 200 00 0 00 041173 CMPCOM: MOVE AC0,SKPWD1 ;SEE IF INSTR RETURNED CORRECTLY 4680 034254 316 00 0 00 041174 CAMN AC0,SKPWD2 4681 034255 254 00 0 00 034260 JRST CMPC1 ;IT DID - CONTINUE 4682 4683 034256 476 00 0 00 041160 SETOM INCSKP ;SET THE INCORRECT RETURN FLAG 4684 034257 254 00 0 00 034273 JRST CMPFAIL ;AND GO PRINT THE ERROR INFORMATION 4685 4686 034260 312 10 0 00 035767 CMPC1: CAME SLEN,RESSV ;CHECK THE CONTENTS OF THE SIM AC BLOCK 4687 034261 254 00 0 00 034273 JRST CMPFAIL ;AGAINST THE REAL AC BLOCK (AC-AC+4) 4688 4689 034262 312 11 0 00 035770 CAME SP,RESSV+1 4690 034263 254 00 0 00 034273 JRST CMPFAIL 4691 4692 034264 312 12 0 00 035771 CAME AC12,RESSV+2 4693 034265 254 00 0 00 034273 JRST CMPFAIL 4694 4695 034266 312 13 0 00 035772 CAME DLEN,RESSV+3 4696 034267 254 00 0 00 034273 JRST CMPFAIL 4697 4698 034270 312 14 0 00 035773 CAME DP,RESSV+4 4699 034271 254 00 0 00 034273 JRST CMPFAIL 4700 4701 034272 350 00 0 17 000000 AOS (P) ;OK, SKIP RETURN 4702 034273 263 17 0 00 000000 CMPFAIL:RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 100 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0154 4703 4704 034274 261 17 0 00 000000 CMPPNT: PUT AC0 4705 034275 261 17 0 00 000001 PUT AC1 4706 034276 261 17 0 00 000002 PUT AC2 4707 4708 034277 260 17 0 00 035363 GO PNTINS ;PRINT THE CURRENT INSTRUCTION 4709 4710 034300 201 01 0 00 037006 MOVEI AC1,CMPCAS ;AC1 = CASE TABLE ADDRESS 4711 034301 260 17 0 00 035424 GO PNTCAS ;PRINT THE CURRENT CASE 4712 4713 034302 037 02 0 00 040220 PMSG <^SOURCE STRING: > 4714 034303 200 01 0 00 035762 MOVE AC1,ORIGSV ;COPY OF SOURCE STRING LENGTH 4715 034304 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER 4716 034305 260 17 0 00 035401 GO PNTSTR ;PRINT SOURCE STRING 4717 4718 034306 037 02 0 00 040223 PMSG <^DESTIN STRING: > 4719 034307 200 01 0 00 035765 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH 4720 034310 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION BYTE POINTER 4721 034311 260 17 0 00 035401 GO PNTSTR ;PRINT DESTINATION STRING 4722 4723 034312 037 02 0 00 040226 PMSG <^E0+1: > 4724 034313 200 00 0 00 035565 MOVE E0+1 4725 034314 037 16 0 00 000003 PNTOCS ;PRINT E0+1 4726 4727 034315 037 02 0 00 040230 PMSG <^E0+2: > 4728 034316 200 00 0 00 035566 MOVE E0+2 4729 034317 037 16 0 00 000003 PNTOCS ;PRINT E0+2 4730 034320 037 00 0 00 030242 PCRL 4731 4732 034321 260 17 0 00 035342 GO PNTACB ;PRINT THE AC BLOCKS 4733 4734 034322 332 00 0 00 041160 SKIPE INCSKP ;DID INSTR RETURN OK? 4735 034323 260 17 0 00 035370 GO PNTSKP ;NO - PRINT AN ERROR MESSAGE 4736 034324 402 00 0 00 041160 SETZM INCSKP ;RESET INCORRECT RETURN FLAG 4737 4738 034325 262 17 0 00 000002 CMPRET: GET AC2 4739 034326 262 17 0 00 000001 GET AC1 4740 034327 262 17 0 00 000000 GET AC0 4741 034330 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 101 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0155 4742 4743 ; ********************************************************************** 4744 ;*MOVCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS 4745 ;* OF THE EXTEND MOVXX INSTRUCTIONS. 4746 ; ********************************************************************** 4747 4748 034331 261 17 0 00 000000 MOVCOM: PUT AC0 4749 4750 034332 200 00 0 00 041173 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY 4751 034333 316 00 0 00 041174 CAMN AC0,SKPWD2 4752 034334 254 00 0 00 034337 JRST MOVC1 ;IT DID - GO CHECK THE ACS 4753 4754 034335 476 00 0 00 041160 SETOM INCSKP ;IT DIDN'T - SET THE INCORRECT SKIP FLAG 4755 034336 254 00 0 00 034356 JRST MOVFAIL 4756 4757 034337 312 10 0 00 035767 MOVC1: CAME SLEN,RESSV ;CHECK THE FINAL ACS WITH THE SIMULATED RESULT 4758 034340 254 00 0 00 034356 JRST MOVFAIL 4759 4760 034341 312 11 0 00 035770 CAME SP,RESSV+1 4761 034342 254 00 0 00 034356 JRST MOVFAIL 4762 4763 034343 312 12 0 00 035771 CAME AC12,RESSV+2 4764 034344 254 00 0 00 034356 JRST MOVFAIL 4765 4766 034345 312 13 0 00 035772 CAME DLEN,RESSV+3 4767 034346 254 00 0 00 034356 JRST MOVFAIL 4768 4769 034347 260 17 0 00 035327 GO COMSTR ;COMPARE SIMULATED AND ACTUAL STRINGS 4770 034350 254 00 0 00 034356 JRST MOVFAIL ;ERROR RETURN 4771 4772 034351 200 00 0 00 000014 MOVE AC0,DP 4773 034352 270 00 0 00 040232 ADD AC0,[SIMDES-DESTIN] ;OFFSET DP BY DIFF IN STRING LOCS 4774 034353 312 00 0 00 035773 CAME AC0,RESSV+4 4775 034354 254 00 0 00 034356 JRST MOVFAIL 4776 4777 034355 350 00 0 17 777777 AOS -1(P) 4778 034356 262 17 0 00 000000 MOVFAIL:GET AC0 4779 034357 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 102 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0156 4780 4781 034360 261 17 0 00 000000 MOVPNT: PUT AC0 4782 034361 261 17 0 00 000001 PUT AC1 4783 034362 261 17 0 00 000002 PUT AC2 4784 4785 034363 260 17 0 00 035363 GO PNTINS ;PRINT THE CURRENT INSTRUCTION 4786 4787 034364 201 01 0 00 037056 MOVEI AC1,MOVCAS ;AC1 = CASE TABLE ADDRESS 4788 034365 260 17 0 00 035424 GO PNTCAS ;PRINT THE CURRENT CASE # 4789 4790 034366 037 02 0 00 040233 PMSG <^SOURCE STRING:> 4791 034367 402 00 0 00 000001 SETZM AC1 4792 034370 135 01 0 00 040236 LDB AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH 4793 034371 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER 4794 034372 260 17 0 00 035401 GO PNTSTR 4795 4796 034373 037 02 0 00 040237 PMSG <^CORRECT DESTINATION STRING:> 4797 034374 200 01 0 00 035765 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH 4798 034375 274 01 0 00 035772 SUB AC1,RESSV+3 ;CALCULATE HOW MUCH WAS MOVED 4799 034376 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION STRING BYTE POINTER 4800 034377 541 02 0 00 036120 HRRI AC2,SIMDES ;MAKE LOCATION = SIMULATED DEST STRING 4801 034400 260 17 0 00 035401 GO PNTSTR 4802 4803 034401 037 02 0 00 040244 PMSG <^ACTUAL DESTINATION STRING:> 4804 034402 200 01 0 00 035765 MOVE AC1,ORIGSV+3 ;COPY OF DESTINATION STRING LENGTH 4805 034403 274 01 0 00 000013 SUB AC1,AC13 ;CALULATE HOW MUCH WAS MOVED 4806 034404 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTINATION STRING BYTE POINTER 4807 034405 260 17 0 00 035401 GO PNTSTR 4808 4809 034406 037 02 0 00 040226 PMSG <^E0+1: > 4810 034407 200 00 0 00 035565 MOVE E0+1 4811 034410 037 16 0 00 000003 PNTOCS ;PRINT E0+1 4812 034411 037 00 0 00 030242 PCRL 4813 4814 034412 200 00 0 00 040251 MOVE AC0,[DESTIN-SIMDES] 4815 034413 272 00 0 00 035773 ADDM AC0,RESSV+4 4816 034414 260 17 0 00 035342 GO PNTACB ;PRINT THE AC BLOCKS 4817 4818 034415 332 00 0 00 041176 SKIPE TRANFG 4819 034416 260 17 0 00 035445 GO PNTRAN ;IF MOVST PRINT TRANSLATION TABLE 4820 4821 034417 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT RETURN TAKEN? 4822 034420 260 17 0 00 035370 GO PNTSKP ;YES - PRINT SKIP MESSAGE 4823 034421 402 00 0 00 041160 SETZM INCSKP ;RESET INCORRECT SKIP WORD 4824 4825 034422 262 17 0 00 000002 MOVRET: GET AC2 4826 034423 262 17 0 00 000001 GET AC1 4827 034424 262 17 0 00 000000 GET AC0 4828 034425 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 103 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0157 4829 4830 ; ********************************************************************** 4831 ;*CDBCOM -- ROUTINE WHICH COMPARES THE SIMULATED AND ACTUAL RESULTS 4832 ;* OF THE CVTDBX INSTRUCTIONS. 4833 ; ********************************************************************** 4834 4835 034426 200 00 0 00 041173 CDBCOM: MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY 4836 034427 316 00 0 00 041174 CAMN AC0,SKPWD2 4837 034430 254 00 0 00 034433 JRST CDBC1 ;IT DID - GO CHECK THE ACS 4838 4839 034431 476 00 0 00 041160 SETOM INCSKP ;IT DIDN'T - SET THE INCORRECT SKIP FLAG 4840 034432 254 00 0 00 034450 JRST CDBFAIL 4841 4842 034433 312 10 0 00 035767 CDBC1: CAME SLEN,RESSV ;CHECK THE FINAL ACS WITH THE SIMULATED RESULT 4843 034434 254 00 0 00 034450 JRST CDBFAIL ;NOT EQUAL - JUMP TO THE ERROR PRINTER 4844 4845 034435 312 11 0 00 035770 CAME SP,RESSV+1 4846 034436 254 00 0 00 034450 JRST CDBFAIL 4847 4848 034437 312 12 0 00 035771 CAME AC12,RESSV+2 4849 034440 254 00 0 00 034450 JRST CDBFAIL 4850 4851 034441 312 13 0 00 035772 CAME DBH,RESSV+3 4852 034442 254 00 0 00 034450 JRST CDBFAIL 4853 4854 034443 312 14 0 00 035773 CAME DBL,RESSV+4 4855 034444 254 00 0 00 034450 JRST CDBFAIL 4856 4857 034445 260 17 0 00 035327 GO COMSTR ;COMPARE DESTINATION STRINGS 4858 034446 254 00 0 00 034450 JRST CDBFAIL 4859 4860 034447 350 00 0 17 000000 AOS (P) 4861 034450 263 17 0 00 000000 CDBFAIL:RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 104 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0158 4862 4863 034451 261 17 0 00 000000 CDBPNT: PUT AC0 4864 034452 261 17 0 00 000001 PUT AC1 4865 034453 261 17 0 00 000002 PUT AC2 4866 4867 034454 201 01 0 00 037105 MOVEI AC1,CDBCAS ;AC1 = CASE TABLE ADDRESS 4868 034455 260 17 0 00 035424 GO PNTCAS ;GO PRINT THE CURRENT CASE # 4869 4870 034456 037 02 0 00 040220 PMSG <^SOURCE STRING: > 4871 034457 402 00 0 00 000001 SETZM AC1 4872 034460 135 01 0 00 040236 LDB AC1,[POINT 9,ORIGSV,35] ;COPY OF SOURCE STRING LENGTH 4873 034461 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF SOURCE BYTE POINTER 4874 034462 260 17 0 00 035401 GO PNTSTR 4875 4876 034463 260 17 0 00 035342 GO PNTACB ;GO PRINT THE AC BLOCKS 4877 4878 034464 332 00 0 00 041176 SKIPE TRANFG ;IF CVTDBT THEN PRINT TRANSLATION TABLE 4879 034465 260 17 0 00 035445 GO PNTRAN 4880 4881 034466 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT RETURN TAKEN? 4882 034467 260 17 0 00 035370 GO PNTSKP ;YES - PRINT SKIP MESSAGE 4883 034470 402 00 0 00 041160 SETZM INCSKP ;RESET THE SKIP WORD 4884 4885 034471 262 17 0 00 000002 CDBRT1: GET AC2 4886 034472 262 17 0 00 000001 GET AC1 4887 034473 262 17 0 00 000000 GET AC0 4888 034474 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 105 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0159 4889 4890 ; ********************************************************************** 4891 ;*CBDCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS 4892 ;* OF THE CVTBDX INSTRUCTIONS. 4893 ; ********************************************************************** 4894 4895 034475 261 17 0 00 000000 CBDCOM: PUT AC0 4896 4897 034476 200 00 0 00 041173 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION RETURNED CORRECTLY 4898 034477 316 00 0 00 041174 CAMN AC0,SKPWD2 4899 034500 254 00 0 00 034503 JRST CBDC1 ;IT DID - CONTINUE 4900 4901 034501 476 00 0 00 041160 SETOM INCSKP 4902 034502 254 00 0 00 034520 JRST CBDFAIL 4903 4904 034503 312 10 0 00 035767 CBDC1: CAME BDH,RESSV ;CHECK THE SIMULATED AC'S WITH 4905 034504 254 00 0 00 034520 JRST CBDFAIL ;THE FINAL RESULT 4906 4907 034505 312 11 0 00 035770 CAME BDL,RESSV+1 4908 034506 254 00 0 00 034520 JRST CBDFAIL 4909 4910 034507 312 12 0 00 035771 CAME AC12,RESSV+2 4911 034510 254 00 0 00 034520 JRST CBDFAIL 4912 4913 034511 312 13 0 00 035772 CAME DLEN,RESSV+3 4914 034512 254 00 0 00 034520 JRST CBDFAIL 4915 4916 034513 200 00 0 00 000014 MOVE AC0,DP 4917 034514 270 00 0 00 040232 ADD AC0,[SIMDES-DESTIN] 4918 034515 312 00 0 00 035773 CAME AC0,RESSV+4 4919 034516 254 00 0 00 034520 JRST CBDFAIL 4920 4921 034517 350 00 0 17 777777 AOS -1(P) 4922 034520 262 17 0 00 000000 CBDFAIL:GET AC0 4923 034521 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 106 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0160 4924 4925 034522 261 17 0 00 000000 CBDPNT: PUT AC0 4926 034523 261 17 0 00 000001 PUT AC1 4927 034524 261 17 0 00 000002 PUT AC2 4928 4929 034525 260 17 0 00 035363 GO PNTINS ;PRINT THE INSTRUCTION IN ERROR 4930 4931 034526 201 01 0 00 037146 MOVEI AC1,CBDCAS 4932 034527 260 17 0 00 035424 GO PNTCAS ;PRINT THE CASE IN ERROR 4933 4934 034530 260 17 0 00 035342 GO PNTACB ;GO PRINT THE AC BLOCKS 4935 4936 034531 037 02 0 00 040252 PMSG <^SIMULATED DESTINATION STRING:> 4937 034532 402 00 0 00 000001 SETZM AC1 4938 034533 135 01 0 00 040260 LDB AC1,[POINT 9,ORIGSV+3,35] 4939 034534 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF SIMULATED DESTIN BYTE POINTER 4940 034535 541 02 0 00 036120 HRRI AC2,SIMDES 4941 034536 260 17 0 00 035401 GO PNTSTR 4942 4943 034537 037 02 0 00 040244 PMSG <^ACTUAL DESTINATION STRING:> 4944 034540 402 00 0 00 000001 SETZM AC1 4945 034541 135 01 0 00 040260 LDB AC1,[POINT 9,ORIGSV+3,35] ;COPY OF DESTIN STRING LENGTH 4946 034542 200 02 0 00 035766 MOVE AC2,ORIGSV+4 ;COPY OF DESTIN BYTE POINTER 4947 034543 260 17 0 00 035401 GO PNTSTR 4948 4949 034544 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT SKIP TAKEN ? 4950 034545 260 17 0 00 035370 GO PNTSKP ;YES - PRINT SKIP MESSAGE 4951 034546 402 00 0 00 041160 SETZM INCSKP 4952 4953 034547 262 17 0 00 000002 CBDRT1: GET AC2 4954 034550 262 17 0 00 000001 GET AC1 4955 034551 262 17 0 00 000000 GET AC0 4956 034552 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 107 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0161 4957 4958 ; ********************************************************************** 4959 ;*EDTCOM -- ROUTINE WHICH COMPARES THE ACTUAL AND SIMULATED RESULTS 4960 ;* OF THE EDIT INSTRUCTION AND PRINTS ERROR INFORMATION. 4961 ;* THE BYTE TYPE UNDER TEST IS ACCESSED USING "BYTYPE" AS AN INDEX. 4962 ;* MAXIMUM STRING LENGTHS ARE USED FOR PRINTING STRINGS SINCE THE 4963 ;* EDIT INSTRUCTION HAS NO SPECIFICATION OF STRING LENGTHS. 4964 ; ********************************************************************** 4965 4966 034553 261 17 0 00 000000 EDTCOM: PUT AC0 4967 4968 034554 200 00 0 00 041173 MOVE AC0,SKPWD1 ;SEE IF INSTRUCTION SKIPPED CORRECTLY 4969 034555 316 00 0 00 041174 CAMN AC0,SKPWD2 4970 034556 254 00 0 00 034561 JRST EDTC1 ;IT DID - CONTINUE 4971 4972 034557 476 00 0 00 041160 SETOM INCSKP 4973 034560 254 00 0 00 034601 JRST EDTFAIL 4974 4975 034561 312 10 0 00 035767 EDTC1: CAME PADDR,RESSV ;CHECK THE SIMULATED AC'S AGAINST THE 4976 034562 254 00 0 00 034601 JRST EDTFAIL ;THE ACTUAL AC'S 4977 4978 034563 312 11 0 00 035770 CAME SP,RESSV+1 4979 034564 254 00 0 00 034601 JRST EDTFAIL 4980 4981 034565 312 12 0 00 035771 CAME AC12,RESSV+2 4982 034566 254 00 0 00 034601 JRST EDTFAIL 4983 4984 034567 312 13 0 00 035772 CAME MA,RESSV+3 4985 034570 254 00 0 00 034601 JRST EDTFAIL 4986 4987 034571 260 17 0 00 035327 GO COMSTR ;COMPARE SIMULATED AND ACTUAL STRINGS 4988 034572 254 00 0 00 034601 JRST EDTFAIL ;ERROR RETURN 4989 4990 034573 200 00 0 00 000014 MOVE AC0,DP 4991 034574 336 00 0 00 041162 SKIPN OFFSET 4992 034575 270 00 0 00 040232 ADD AC0,[SIMDES-DESTIN] 4993 4994 034576 312 00 0 00 035773 CAME AC0,RESSV+4 4995 034577 254 00 0 00 034601 JRST EDTFAIL 4996 4997 034600 350 00 0 17 777777 AOS -1(P) 4998 034601 262 17 0 00 000000 EDTFAIL:GET AC0 4999 034602 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 108 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0162 5000 5001 034603 261 17 0 00 000000 EDTPNT: PUT AC0 5002 034604 261 17 0 00 000001 PUT AC1 5003 034605 261 17 0 00 000002 PUT AC2 5004 5005 034606 037 02 0 00 040261 PMSG <^PATTERN BYTE TYPE UNDER TEST: > 5006 034607 200 04 0 00 036272 MOVE AC4,BYTYPE ;GET BYTE TYPE TABLE INDEX 5007 034610 200 00 0 04 036234 MOVE AC0,BYTAB(AC4) ;SIXBIT BYTE NAME TO AC0 5008 034611 037 00 0 00 000002 PNTSIX ;PRINT IT 5009 5010 034612 201 01 0 00 037207 MOVEI AC1,EDTCAS 5011 034613 260 17 0 00 035424 GO PNTCAS ;PRINT THE CASE NUMBER 5012 5013 034614 332 00 0 00 041162 SKIPE OFFSET 5014 034615 254 00 0 00 034620 JRST EDTP1A 5015 5016 034616 200 00 0 00 040251 MOVE AC0,[DESTIN-SIMDES] ;GET DIFFERENCE IN STRING LOCATIONS 5017 034617 272 00 0 00 035773 ADDM AC0,RESSV+4 5018 5019 034620 260 17 0 00 035342 EDTP1A: GO PNTACB ;PRINT THE AC BLOCKS 5020 5021 034621 302 04 0 00 000011 CAIE AC4,^D9 ;IF SELECT IS BYTE TYPE 9 PRINT SRC STRING 5022 034622 254 00 0 00 034627 JRST EDTP1 5023 5024 034623 037 02 0 00 040233 PMSG <^SOURCE STRING:> 5025 034624 201 01 0 00 000024 MOVEI AC1,^D20 ;SOURCE STRING MAX LENGTH 5026 034625 200 02 0 00 035763 MOVE AC2,ORIGSV+1 ;COPY OF STRING BYTE POINTER 5027 034626 260 17 0 00 035401 GO PNTSTR 5028 5029 034627 332 00 0 00 041162 EDTP1: SKIPE OFFSET ;EXCHMD BYTE TYPE? 5030 034630 254 00 0 00 034642 JRST EDTP2 ;YES - DON'T PRINT DESTINATION STRINGS 5031 5032 034631 037 02 0 00 040237 PMSG <^CORRECT DESTINATION STRING:> 5033 034632 201 01 0 00 000100 MOVEI AC1,^D64 ;MAX DESTIN AND SIMDES STRING LENGTH 5034 034633 200 02 0 00 035766 MOVE AC2,ORIGSV+4 5035 034634 541 02 0 00 036120 HRRI AC2,SIMDES 5036 034635 260 17 0 00 035401 GO PNTSTR 5037 5038 034636 037 02 0 00 040244 PMSG <^ACTUAL DESTINATION STRING:> 5039 034637 201 01 0 00 000100 MOVEI AC1,^D64 5040 034640 200 02 0 00 035766 MOVE AC2,ORIGSV+4 5041 034641 260 17 0 00 035401 GO PNTSTR DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 109 DSKCGM MAC 11-Sep-79 15:13 INSTRUCTION RESULT COMPARATOR AND ERROR REPORTER ROUTINES SEQ 0163 5042 5043 034642 302 04 0 00 000011 EDTP2: CAIE AC4,^D9 ;PRINT E0+1 IF BYTE TYPE IS SELECT 5044 034643 254 00 0 00 034647 JRST EDTP2A 5045 5046 034644 037 02 0 00 040267 PMSG <^E0+1:> 5047 034645 200 00 0 00 035565 MOVE AC0,E0+1 5048 034646 037 16 0 00 000003 PNTOCS 5049 5050 034647 302 04 0 00 000002 EDTP2A: CAIE AC4,2 ;PRINT E0+2 IF SIGST OR SELECT 5051 034650 306 04 0 00 000011 CAIN AC4,^D9 5052 034651 334 00 0 00 000000 SKIPA 5053 034652 254 00 0 00 034656 JRST EDTP4 5054 5055 034653 037 02 0 00 040271 PMSG <^E0+2:> 5056 034654 200 00 0 00 035566 MOVE AC0,E0+2 ;GET THE FLOAT CHARACTER 5057 034655 037 16 0 00 000003 PNTOCS 5058 5059 034656 306 04 0 00 000011 EDTP4: CAIN AC4,^D9 ;PRINT TRANSLATION TABLE IF BYTE TYPE IS SELECT 5060 034657 260 17 0 00 035445 GO PNTRAN 5061 5062 034660 332 00 0 00 041160 SKIPE INCSKP ;INCORRECT RETURN TAKEN? 5063 034661 260 17 0 00 035370 GO PNTSKP ;YES - PRINT THE INCORRECT SKIP MSG. 5064 034662 402 00 0 00 041160 SETZM INCSKP ;RESET THE INCORRECT SKIP WORD 5065 5066 034663 262 17 0 00 000002 EDTRT1: GET AC2 5067 034664 262 17 0 00 000001 GET AC1 5068 034665 262 17 0 00 000000 GET AC0 5069 034666 263 17 0 00 000000 RTN 5070 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 110 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0164 5071 SUBTTL MUUO AND PAGE FAIL HANDLERS 5072 5073 ; ********************************************************************** 5074 ;*MUUOHS - MUUO HANDLER INITIALIZATION 5075 ;* CODE TO SETUP MUUO HANDLER IN EXEC MODE 5076 ; ********************************************************************** 5077 5078 034667 332 00 0 00 030037 MUUOHS: SKIPE USER ;USER MODE? 5079 034670 254 00 0 00 034676 JRST TSMUUO ;YES - SETUP FOR TIMESHARE TRAPPING 5080 5081 034671 201 00 0 00 034713 MOVEI MUUOH ;GET ADDRESS OF MUUO HANDLER 5082 034672 202 00 0 00 000430 MOVEM 430 ;SETUP ADDRESS IN USER PROCESS TABLE 5083 5084 034673 200 00 0 00 040273 MOVE [430,431] ;SETUP UPT WORDS 430-437 5085 034674 251 00 0 00 000437 BLT 437 5086 034675 263 17 0 00 000000 RTN 5087 5088 ; ************************************************** 5089 ;CODE TO SETUP MUUO HANDLER FOR TOPS-20 5090 ; ************************************************** 5091 5092 034676 336 00 0 00 030516 TSMUUO: SKIPN MONTYP ;RUNNING UNDER TOPS-20? 5093 034677 254 00 0 00 034710 JRST MUUO10 ;NO - EXECUTE TOPS-10 CODE 5094 5095 034700 104 00 0 00 000147 RESET ;CLEAR THE SOFTWARE INTERRUPT SYSTEM 5096 5097 034701 201 01 0 00 400000 MOVEI AC1,.FHSLF ;PROCESS HANDLE FOR THIS JOB 5098 034702 200 02 0 00 040274 MOVE AC2,[LEVTAB,,CHNTAB] ;SETUP SOFTWARE INTERRUPT TABLES 5099 034703 104 00 0 00 000125 SIR 5100 5101 034704 205 02 0 00 000004 MOVSI 2,(1B^D15) ;SET UP TO INTERCEPT ILLEGAL INSTR 5102 034705 104 00 0 00 000131 AIC ;TO INTERRUPT ILLEGAL INSTRUCTIONS 5103 5104 034706 104 00 0 00 000126 EIR ;ENABLE THE INTERRUPT SYSTEM 5105 034707 263 17 0 00 000000 RTN 5106 5107 ; ************************************************** 5108 ;CODE TO SETUP MUUO HANDLER FOR TOPS-10 5109 ; ************************************************** 5110 5111 034710 201 01 0 00 035536 MUUO10: MOVEI AC1,UUOBLK ;SET .JBINT TO ADDRESS OF CONTROL BLOCK 5112 034711 202 01 0 00 000134 MOVEM AC1,.JBINT 5113 034712 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 111 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0165 5114 5115 ; ********************************************************************** 5116 ;*MUUOH - THE ACTUAL MUUO HANDLERS (EXEC AND USER MODE) 5117 ; ********************************************************************** 5118 5119 034713 261 17 0 00 000000 MUUOH: PUT AC0 ;SAVE AC0 5120 5121 034714 352 00 0 00 041157 AOSE GOTRAP ;WAS A TRAP EXPECTED? 5122 034715 254 00 0 00 034734 JRST MUUOHX ;NO, FATAL ERROR 5123 5124 034716 332 00 0 00 030037 SKIPE USER ;USER MODE? 5125 034717 254 00 0 00 034722 JRST MUUOHU ;YES - GO TO USER CODE 5126 5127 034720 262 17 0 00 000000 GET AC0 ;RESTORE AC0 5128 034721 254 02 1 00 000425 JRSTF @425 ;JUMP USING UPT PC ADDRESS 5129 5130 034722 336 00 0 00 030516 MUUOHU: SKIPN MONTYP ;TOPS-20 MONITOR? 5131 034723 254 00 0 00 034727 JRST MUUOH1 ;NO - EXECUTE TOPS-10 CODE 5132 5133 034724 350 00 0 00 035563 AOS MUOPC ;SETUP INTERRUPT RETURN 5134 034725 262 17 0 00 000000 GET AC0 ;RESTORE AC0 5135 034726 104 00 0 00 000136 DEBRK ;EXECUTE THE DISMISS INTERRUPT JSYS 5136 5137 034727 350 00 0 00 035540 MUUOH1: AOS UUOBLK+2 ;UUOBLK+2 HAS LAST USER PS 5138 034730 262 17 0 00 000000 GET AC0 ;RESTORE AC0 5139 5140 034731 261 17 0 00 035540 PUT UUOBLK+2 ;SETUP RETURN JUMP 5141 034732 402 00 0 00 035540 SETZM UUOBLK+2 ;THIS MUST BE 0 TO WORK AGAIN 5142 034733 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 112 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0166 5143 5144 ; ************************************************** 5145 ;*MUUOHX - UNEXPECTED MUUO ERROR REPORTING 5146 ; ************************************************** 5147 SALL 5148 040275 T= SIXBTZ 5149 LALL 5150 034734 332 00 0 00 030037 MUUOHX: SKIPE USER 5151 034735 254 00 0 00 034742 JRST MUUOHY 5152 5153 034736 200 01 0 00 000424 MOVE AC1,424 ;GET BAD MUUO 5154 034737 200 02 0 00 000425 MOVE AC2,425 ;GET BAD MMUO PC 5155 5156 ERROR1 (13,AC1,AC2,^_ 5157 ^CORRECT=MUUO^_ 5158 ^ACTUAL=MUUO PC,^_ 5159 UNEXPECTED MUUO OCCURED)^ 5160 SALL 5161 034740 036 13 0 00 040311 5162 034741 037 15 0 00 000004 FATAL 5163 5164 034742 200 01 0 00 035563 MUUOHY: MOVE AC1,MUOPC ;GET PC OF BAD MUUO 5165 034743 336 00 0 00 030516 SKIPN MONTYP 5166 034744 200 01 0 00 035536 MOVE AC1,UUOBLK 5167 5168 ERROR1 (13,AC1,0,^_ 5169 ^CORRECT=MUUO PC,^_ 5170 UNEXPECTED MUUO OCCURED)^ 5171 034745 036 13 0 00 040317 5172 034746 037 15 0 00 000004 FATAL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 113 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0167 5173 5174 ; ********************************************************************** 5175 ;*LUUOH - LUUO HANDLER 5176 ; ********************************************************************** 5177 5178 034747 261 17 0 00 000000 LUUOH: PUT AC0 ;SAVE AC0 5179 5180 034750 352 00 0 00 041157 AOSE GOTRAP ;WAS AN LUUO EXPECTED? 5181 034751 254 00 0 00 034754 JRST LUUOHX ;NO, FATAL ERROR 5182 5183 034752 262 17 0 00 000000 GET AC0 ;RESTORE AC0 5184 034753 263 17 0 00 000000 RTN 5185 5186 ; ************************************************** 5187 ;*LUUOHX - UNEXPECTED LUUO ERROR REPORTING 5188 ; ************************************************** 5189 SALL 5190 040322 T= SIXBTZ 5191 LALL 5192 034754 200 00 0 00 041175 LUUOHX: MOVE SVLUUO ;RESTORE SUBROU. PKG. TRAP ROUTINE SETUP 5193 034755 202 00 0 00 000041 MOVEM 41 5194 5195 034756 200 01 0 00 000040 MOVE AC1,40 ;GET BAD LUUO 5196 034757 200 02 0 17 777777 MOVE AC2,-1(P) ;GET BAD LUUO PC 5197 5198 ERROR1 (13,AC1,AC2,^_ 5199 ^CORRECT=LUUO^_ 5200 ^ACTUAL=LUUO PC,^_ 5201 UNEXPECTED LUUO OCCURED)^ 5202 SALL 5203 034760 036 13 0 00 040336 5204 034761 037 15 0 00 000004 FATAL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 114 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0168 5205 5206 ; ********************************************************************** 5207 ;*PFHAND -- PAGE FAIL HANDLER 5208 ;* 5209 ;* IN THIS ROUTINE THE CURRENT VALUE OF THE EXTEND INSTR AC BLOCK 5210 ;* IS COMPARED WITH THE CORRECT RESULT WHICH IS STORED IN MEMORY. 5211 ;* 5212 ;* ALSO, THE PAGE FAIL WORD AND PAGE FAIL PC ARE COMPARED AGAINST 5213 ;* THE CORRECT VALUES. IF A DISCREPANCY EXISTS THE ROUTINE TAKES 5214 ;* AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST. 5215 ;* 5216 ;* ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED 5217 ;* IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION 5218 ;* NAME TABLE. 5219 ; ********************************************************************** 5220 5221 034762 352 00 0 00 041170 PFHAND: AOSE PFTRAP ;INDICATE THAT PF OCCURED 5222 034763 254 00 0 00 035015 JRST PFFAIL ;THIS IS SECOND PAGE FAILURE 5223 5224 034764 550 07 0 00 000501 HRRZ AC7,LPFWPC ;ACTUAL PAGE FAIL PC 5225 034765 200 06 0 00 041155 MOVE AC6,FAILOC ;CORRECT PF PC WORD 5226 034766 312 06 0 00 000007 CAME AC6,AC7 ;CORRECT? 5227 034767 254 00 0 00 035015 JRST PFFAIL ;NO 5228 5229 034770 200 07 0 04 000000 MOVE AC7,(AC4) ;GET THE CORRECT AC CONTENTS 5230 034771 332 00 0 00 041176 SKIPE TRANFG ;TRANSLATE INSTR? 5231 034772 434 07 0 00 035734 OR AC7,BIT0 ;YES - CORRECT RESULT HAS SFL SET 5232 5233 034773 312 07 0 00 000010 CAME AC7,AC10 ;CORRECT? 5234 034774 254 00 0 00 035015 JRST PFFAIL ;NO 5235 5236 034775 200 07 0 04 000001 MOVE AC7,1(AC4) ;GET THE CORRECT AC CONTENTS 5237 034776 312 07 0 00 000011 CAME AC7,AC11 ;CORRECT? 5238 034777 254 00 0 00 035015 JRST PFFAIL ;NO 5239 5240 035000 200 07 0 04 000002 MOVE AC7,2(AC4) ;GET THE CORRECT AC+2 CONTENTS 5241 035001 312 07 0 00 000012 CAME AC7,AC12 ;CORRECT? 5242 035002 254 00 0 00 035015 JRST PFFAIL ;NO 5243 5244 035003 200 07 0 04 000003 MOVE AC7,3(AC4) ;GET THE CORRECT AC CONTENTS 5245 035004 312 07 0 00 000013 CAME AC7,AC13 ;CORRECT? 5246 035005 254 00 0 00 035015 JRST PFFAIL ;NO 5247 5248 035006 200 07 0 04 000004 MOVE AC7,4(AC4) ;GET THE CORRECT AC CONTENTS 5249 035007 312 07 0 00 000014 CAME AC7,AC14 ;CORRECT? 5250 035010 254 00 0 00 035015 JRST PFFAIL ;NO DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 115 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0169 5251 5252 ; ************************************************** 5253 ;SET UP THE PAGE TABLE FOR CONTINUE 5254 ; ************************************************** 5255 5256 035011 200 00 0 00 040341 MOVE AC0,[740000!75,,740000!76] 5257 035012 202 00 0 00 000200 MOVEM AC0,200 ;SETUP PAGE MAP 5258 5259 035013 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CAUSE NEW PAGING TO HAVE AN EFFECT 5260 5261 035014 254 02 1 00 000501 JRSTF @LPFWPC ;RETURN 5262 5263 ; ************************************************** 5264 ;TAKE AN ERROR RETURN THROUGH "PFHEPC" BACK TO THE MAIN TEST. 5265 ; ************************************************** 5266 5267 035015 254 00 1 00 041167 PFFAIL: JRST @PFHEPC# DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 116 DSKCGM MAC 11-Sep-79 15:13 MUUO AND PAGE FAIL HANDLERS SEQ 0170 5268 5269 ; ********************************************************************** 5270 ;*PFPNT -- PAGE FAIL ERROR PRINTER 5271 ;* 5272 ;* ON ENTRY, AC4 CONTAINS THE ADDRESS OF THE CORRECT AC BLOCK STORED 5273 ;* IN MEMORY, INSTR CONTAINS THE INDEX TO THE SIXBIT INSTRUCTION 5274 ;* NAME TABLE. 5275 ; ********************************************************************** 5276 SALL 5277 040342 T= SIXBTZ 5278 LALL 5279 035016 550 07 0 00 000501 PFPNT: HRRZ AC7,LPFWPC ;ACTUAL PAGE FAIL PC 5280 035017 200 06 0 00 041155 MOVE AC6,FAILOC ;CORRECT PF PC WORD 5281 035020 312 06 0 00 000007 CAME AC6,AC7 ;CORRECT? 5282 ERROR1 (13,6,7,PAGE FAIL PC WRONG,,PFINS)^ 5283 SALL 5284 035021 036 13 0 00 040350 5285 5286 035022 200 07 0 04 000000 MOVE AC7,(AC4) ;GET THE CORRECT AC CONTENTS 5287 035023 332 00 0 00 041176 SKIPE TRANFG ;TRANSLATE INSTR? 5288 035024 434 07 0 00 035734 OR AC7,BIT0 ;YES - CORRECT RESULT HAS SFL SET 5289 5290 035025 312 07 0 00 000010 CAME AC7,AC10 ;CORRECT? 5291 ERROR1 (13,7,10,INTERMEDIATE AC INCORRECT,AC,PFINS)^ 5292 035026 036 13 0 00 040361 5293 5294 035027 200 07 0 04 000001 MOVE AC7,1(AC4) ;GET THE CORRECT AC+1 CONTENTS 5295 035030 312 07 0 00 000011 CAME AC7,AC11 ;CORRECT? 5296 ERROR1 (13,7,11,INTERMEDIATE AC INCORRECT,AC+1,PFINS)^ 5297 035031 036 13 0 00 040365 5298 5299 035032 200 07 0 04 000002 MOVE AC7,2(AC4) ;GET THE CORRECT AC+2 CONTENTS 5300 035033 312 07 0 00 000012 CAME AC7,AC12 ;CORRECT? 5301 ERROR1 (13,7,12,INTERMEDIATE AC INCORRECT,AC+2,PFINS)^ 5302 035034 036 13 0 00 040371 5303 5304 035035 200 07 0 04 000003 MOVE AC7,3(AC4) ;GET THE CORRECT AC+3 CONTENTS 5305 035036 312 07 0 00 000013 CAME AC7,AC13 ;CORRECT? 5306 ERROR1 (13,7,13,INTERMEDIATE AC INCORRECT,AC+3,PFINS)^ 5307 035037 036 13 0 00 040375 5308 5309 035040 200 07 0 04 000004 MOVE AC7,4(AC4) ;GET THE CORRECT AC+4 CONTENTS 5310 035041 312 07 0 00 000014 CAME AC7,AC14 ;CORRECT? 5311 ERROR1 (13,7,14,INTERMEDIATE AC INCORRECT,AC+4,PFINS)^ 5312 035042 036 13 0 00 040401 5313 5314 035043 263 17 0 00 000000 RTN 5315 XALL DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 117 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0171 5316 SUBTTL PROGRAM SUPPORT ROUTINES 5317 5318 ; ********************************************************************** 5319 ;*EDTSET -- ROUTINE TO SET UP THE AC BLOCK FOR THE EDIT INSTRUCTION 5320 ;* ACCORDING TO THE PARAMETERS CONTAINED IN THE CASE TABLE. 5321 ;* 5322 ;* UPON ENTRY, THE RIGHT HALF OF AC7 CONTAINS THE ADDRESS OF THE 5323 ;* CASE TABLE PARAMETER WORD. 5324 ;* 5325 ;* RETURN IS ALWAYS +1. 5326 ; ********************************************************************** 5327 5328 035044 200 01 0 07 000000 EDTSET: MOVE AC1,(AC7) ;RETRIEVE THE CASE PARAMETER WORD 5329 5330 ; ************************************************** 5331 ;DETERMINE THE INITIAL VALUES FOR THE S,N AND M FLAG 5332 ; ************************************************** 5333 5334 035045 402 00 0 00 000010 SETZM PADDR 5335 035046 602 01 0 00 400000 TRNE AC1,(SFL) ;SET THE S FLAG? 5336 035047 434 10 0 00 035734 OR PADDR,BIT0 ;YES 5337 5338 035050 602 01 0 00 040000 TRNE AC1,(NFL) ;SET THE N FLAG? 5339 035051 434 10 0 00 035735 OR PADDR,BIT1 ;YES 5340 5341 035052 602 01 0 00 100000 TRNE AC1,(MFL) ;SET THE M FLAG? 5342 035053 434 10 0 00 035736 OR PADDR,BIT2 ;YES 5343 5344 ; ************************************************** 5345 ;SET UP THE PATTERN BYTE # 5346 ; ************************************************** 5347 5348 035054 200 04 0 00 000001 MOVE AC4,AC1 ;MAKE COPY OF CASE WORD 5349 035055 405 04 0 00 000003 ANDI AC4,PB ;ISOLATE THE PB# 5350 035056 242 04 0 00 000000 LSH AC4,PBSH ;SHIFT INTO RIGHT-MOST PART OF AC 5351 035057 137 04 0 00 036453 DPB AC4,PATBN ;LOAD PB# INTO PADDR 5352 035060 541 10 0 00 036246 HRRI PADDR,PATTBL ;LOAD BYTE PATTERN TABLE ADDRESS 5353 5354 ; ************************************************** 5355 ;SETUP THE SOURCE AND DESTINATION BYTE POINTERS 5356 ; ************************************************** 5357 5358 035061 603 01 0 00 000100 TLNE AC1,(S44) ;FULL WORD SOURCE BYTES? 5359 035062 200 11 0 00 037503 MOVE SP,[POINT 36,SOURCE] 5360 5361 035063 607 01 0 00 000100 TLNN AC1,(S44) 5362 035064 200 11 0 00 037502 MOVE SP,[POINT 5,SOURCE] ;SETUP SOURCE POINTER 5363 5364 035065 603 01 0 00 000040 TLNE AC1,(D44) ;FULL WORD DESTIN BYTE SIZE? 5365 035066 200 14 0 00 037505 MOVE DP,[POINT 36,DESTIN] 5366 5367 035067 607 01 0 00 000040 TLNN AC1,(D44) 5368 035070 200 14 0 00 037504 MOVE DP,[POINT 5,DESTIN] ;SETUP DESTINATION POINTER 5369 5370 035071 402 00 0 00 000013 SETZM MA ;SET MARK ADDRESS TO 0 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 118 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0172 5371 5372 ; ************************************************** 5373 ;SETUP THE E0+1 AND E0+2 (FILL AND FLOAT CHARACTERS) AS FOLLOWS: 5374 ; IF EQFILL=1 THEN E0+1= 62, E0+2= 63 5375 ; IF LFILL =1 THEN E0+1= 0, E0+2= 63 5376 ; IF GFILL =1 THEN E0+1= 62, E0+2= 0 5377 ; IF NONE OF THE ABOVE ARE SPECIFIED BOTH WORDS WILL BE SET TO 0 5378 ; ************************************************** 5379 5380 035072 607 01 0 00 001000 TLNN AC1,(EQFIL) 5381 035073 254 00 0 00 035101 JRST EDS2 5382 5383 035074 201 00 0 00 000062 MOVEI AC0,62 5384 035075 202 00 0 00 035565 MOVEM AC0,E0+1 5385 5386 035076 201 00 0 00 000063 MOVEI AC0,63 5387 035077 202 00 0 00 035566 MOVEM AC0,E0+2 5388 5389 035100 254 00 0 00 035152 JRST EDSRTN 5390 5391 035101 607 01 0 00 000400 EDS2: TLNN AC1,(LFILL) 5392 035102 254 00 0 00 035110 JRST EDS3 5393 5394 035103 201 00 0 00 000000 MOVEI AC0,0 5395 035104 202 00 0 00 035565 MOVEM AC0,E0+1 5396 5397 035105 201 00 0 00 000063 MOVEI AC0,63 5398 035106 202 00 0 00 035566 MOVEM AC0,E0+2 5399 5400 035107 254 00 0 00 035152 JRST EDSRTN 5401 5402 035110 607 01 0 00 000200 EDS3: TLNN AC1,(GFILL) 5403 035111 254 00 0 00 035117 JRST EDS4 5404 5405 035112 201 00 0 00 000062 MOVEI AC0,62 5406 035113 202 00 0 00 035565 MOVEM AC0,E0+1 5407 5408 035114 201 00 0 00 000000 MOVEI AC0,0 5409 035115 202 00 0 00 035566 MOVEM AC0,E0+2 5410 5411 035116 254 00 0 00 035152 JRST EDSRTN 5412 5413 035117 402 00 0 00 035565 EDS4: SETZM E0+1 5414 035120 402 00 0 00 035566 SETZM E0+2 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 119 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0173 5415 5416 ; ************************************************** 5417 ;SETUP SOURCE STRING AND TRANSLATE TABLE IF BYTE TYPE IS SELECT 5418 ; ************************************************** 5419 5420 035121 200 00 0 00 036272 MOVE AC0,BYTYPE ;CURRENT BYTE TYPE 5421 035122 302 00 0 00 000011 CAIE AC0,^D9 ;IS IT SELECT? 5422 035123 254 00 0 00 035152 JRST EDSRTN ;NO 5423 5424 035124 200 04 0 00 000011 MOVE AC4,SP ;COPY OF SOURCE BYTE POINTER 5425 035125 201 05 0 00 777754 MOVEI AC5,-^D20 ;SETUP 20 BYTES 5426 035126 201 00 0 00 000001 MOVEI AC0,1 ;PATTERN STARTS WITH 1 AND INCREMENTS 5427 5428 035127 377 00 0 00 000005 EDS5: SOSG AC5 5429 035130 254 00 0 00 035134 JRST EDS6 5430 5431 035131 136 00 0 00 000004 IDPB AC0,AC4 ;PUT BYTE IN THE STRING 5432 035132 271 00 0 00 000001 ADDI AC0,1 ;INCREMENT THE PATTERN 5433 035133 254 00 0 00 035127 JRST EDS5 5434 5435 ; ************************************************** 5436 ;SET THE CODE BITS IN THE TRANSLATION TABLE 5437 ; ************************************************** 5438 5439 035134 402 00 0 00 000000 EDS6: SETZM AC0 ;TEMP LOC FOR CONTROL BITS 5440 035135 602 01 0 00 020000 TRNE AC1,(C1) ;SETUP THE SECOND HALFWORD 5441 035136 434 00 0 00 035737 OR BIT18 5442 5443 035137 602 01 0 00 010000 TRNE AC1,(C2) 5444 035140 434 00 0 00 035740 OR BIT19 5445 5446 035141 602 01 0 00 004000 TRNE AC1,(C3) 5447 035142 434 00 0 00 035741 OR BIT20 5448 5449 035143 602 01 0 00 002000 TRNE AC1,(C4) ;SETUP THE THIRD HALFWORD 5450 035144 434 00 0 00 035734 OR BIT0 5451 5452 035145 602 01 0 00 001000 TRNE AC1,(C5) 5453 035146 434 00 0 00 035735 OR BIT1 5454 5455 035147 602 01 0 00 000400 TRNE AC1,(C6) 5456 035150 434 00 0 00 035736 OR BIT2 5457 5458 035151 260 17 0 00 031426 GO SETRAN ;YES - SET UP THE TRANSLATION TABLE 5459 5460 035152 200 00 0 00 040404 EDSRTN: MOVE AC0,[004000,,E1] ;SETUP E0 WORD 5461 035153 202 00 0 00 035564 MOVEM AC0,E0 5462 035154 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 120 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0174 5463 5464 ; ********************************************************************** 5465 ;*PFINS -- ROUTINE TO PRINT INSTRUCTION NAME 5466 ;* ENTRY WITH SCRIPT TABLE INDEX IN INSTR 5467 ; ********************************************************************** 5468 5469 035155 261 17 0 00 000000 PFINS: PUT AC0 5470 035156 261 17 0 00 000001 PUT AC1 5471 5472 035157 200 01 0 00 041161 MOVE AC1,INSTR ;GET OPCODE INDEX TO TABLE 5473 PMSG <^INSTRUCTION: >^ 5474 035160 037 02 0 00 040405 PSIXM [SIXBIT\^INSTRUCTION: _\]^ 5475 035161 200 00 0 01 035742 MOVE AC0,SCRIPT(AC1) ;GET SIXBIT NAME 5476 035162 037 00 0 00 000002 PNTSIX ;PRINT IT 5477 5478 035163 037 00 0 00 030242 PCRL 5479 035164 262 17 0 00 000001 GET AC1 5480 035165 262 17 0 00 000000 GET AC0 5481 035166 263 17 0 00 000000 RTN 5482 5483 ; ********************************************************************** 5484 ;*CDBTN -- USED IN CVTDBT PF TEST 5485 ; ********************************************************************** 5486 5487 035167 402 00 0 00 035650 CDBTN: SETZM E1 5488 035170 263 17 0 00 000000 RTN 5489 5490 ; ********************************************************************** 5491 ;*CBDTRN -- ROUTINE TO SET UP THE TRANSLATE TABLE FOR THE CVTBDX INSTR 5492 ; ********************************************************************** 5493 5494 035171 200 00 0 00 040410 CBDTRN: MOVE AC0,[CBDTR,,E1] 5495 035172 251 00 0 00 035661 BLT AC0,E1+^D9 5496 035173 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 121 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0175 5497 5498 ; ********************************************************************** 5499 ;*COMAC -- ROUTINE USED IN PAGE FAIL TESTING TO COMPARE THE 5500 ;* FINAL AC BLOCK WITH THAT OF THE SIMULATOR 5501 ; ********************************************************************** 5502 5503 035174 312 10 0 00 035767 COMAC: CAME AC,RESSV ;COMPARE THE AC BLOCK,PRINT ON ERROR 5504 035175 254 00 0 00 035207 JRST COMFAIL 5505 5506 035176 312 11 0 00 035770 CAME AC+1,RESSV+1 5507 035177 254 00 0 00 035207 JRST COMFAIL 5508 5509 035200 312 12 0 00 035771 CAME AC+2,RESSV+2 5510 035201 254 00 0 00 035207 JRST COMFAIL 5511 5512 035202 312 13 0 00 035772 CAME AC+3,RESSV+3 5513 035203 254 00 0 00 035207 JRST COMFAIL 5514 5515 035204 312 14 0 00 035773 CAME AC+4,RESSV+4 5516 035205 254 00 0 00 035207 JRST COMFAIL 5517 5518 035206 350 00 0 17 000000 AOS (P) 5519 035207 263 17 0 00 000000 COMFAIL:RTN 5520 5521 035210 260 17 0 00 035155 COMPNT: GO PFINS ;PRINT THE INSTRUCTION IN ERROR 5522 5523 035211 260 17 0 00 035342 GO PNTACB ;PRINT THE AC BLOCKS 5524 5525 035212 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 122 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0176 5526 5527 ; ********************************************************************** 5528 ;*CHKTRN -- ROUTINE TO CHECK THE OPCODE UNDER TEST AND SET TRANSFG 5529 ;* IF IT IS A TRANSLATE INSTRUCTION. 5530 ;* 5531 ;* TAKE OPCODE IN AC0, RTN +1 ALWAYS 5532 ; ********************************************************************** 5533 5534 035213 402 00 0 00 041176 CHKTRN: SETZM TRANFG 5535 5536 035214 306 00 0 00 000015 CAIN AC0,015 ;MOVST INSTRUCTION? 5537 035215 254 00 0 00 035221 JRST SETFG ;YES - SET TRANFG 5538 5539 035216 306 00 0 00 000011 CAIN AC0,011 ;CVTDBT INSTRUCTION? 5540 035217 254 00 0 00 035221 JRST SETFG 5541 5542 035220 306 00 0 00 000013 CAIN AC0,013 ;CVTBDT INSTRUCTION? 5543 035221 476 00 0 00 041176 SETFG: SETOM TRANFG ;SET THE FLAG 5544 035222 263 17 0 00 000000 RTN 5545 5546 ; ********************************************************************** 5547 ;*PAGSET -- ROUTINE TO CLEAR PAGE TABLE, 5548 ;* SET UP RELOCATION DATA IN THE TABLE, 5549 ;* SET PAGING AND TRAP ENABLE, 5550 ;* AND LOAD THE USER BASE REGISTER 5551 ; ********************************************************************** 5552 5553 035223 402 00 0 00 000200 PAGSET: SETZM 200 ;CLEAR THE PAGE TABLE 5554 035224 200 00 0 00 040411 MOVE AC0,[200,,201] 5555 035225 251 00 0 00 000417 BLT AC0,417 5556 5557 035226 205 00 0 00 740075 MOVSI AC0,740000!75 ;SET UP THE RELOCATION DATA 5558 035227 202 00 0 00 000200 MOVEM AC0,200 ;LOCATIONS 400XXX ==> LOCATIONS 75XXX 5559 5560 035230 476 00 0 00 000500 SETOM LEUPFW 5561 5562 035231 7 010 20 0 00 020000 CONO PAG,LTRPEN ;SET TRAP AND PAGING ENABLE 5563 5564 035232 7 010 14 0 00 040412 DATAO PAG,[LLDUSB,,400000] ;LOAD THE USER BASE REGISTER 5565 035233 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 123 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0177 5566 5567 ; ********************************************************************** 5568 ;*PFACB -- ROUTINE TO SETUP PAGE FAIL AC BLOCK 5569 ;* ENTRY WITH AC3 CONTAINING ADDRESS OF BLOCK IN MEMORY 5570 ; ********************************************************************** 5571 5572 035234 200 00 0 03 000000 PFACB: MOVE AC0,(AC3) 5573 035235 202 00 0 00 000010 MOVEM AC 5574 5575 035236 200 00 0 03 000001 MOVE AC0,1(AC3) 5576 035237 202 00 0 00 000011 MOVEM AC+1 5577 5578 035240 200 00 0 03 000002 MOVE AC0,2(AC3) 5579 035241 202 00 0 00 000012 MOVEM AC+2 5580 5581 035242 200 00 0 03 000003 MOVE AC0,3(AC3) 5582 035243 202 00 0 00 000013 MOVEM AC+3 5583 5584 035244 200 00 0 03 000004 MOVE AC0,4(AC3) 5585 035245 202 00 0 00 000014 MOVEM AC+4 5586 5587 035246 402 00 0 00 041156 SETZM FILLF ;CLEAR FILLER FAILURE FLAG 5588 5589 035247 200 00 0 03 000005 MOVE AC0,5(AC3) ;GET INDICATOR OF WHERE E0 WORD WILL GO 5590 035250 332 00 0 00 000000 SKIPE AC0 ;AC0 = 0 MEANS THIS CASE NOT FILLER FAIL 5591 035251 476 00 0 00 041156 SETOM FILLF# ;PAGE FAIL SETUP TO OCCUR FOR FILLER 5592 035252 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 124 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0178 5593 5594 ; ********************************************************************** 5595 ;*SVAC,RSTAC- ROUTINES TO SAVE AND RESTORE AC'S 0-16 5596 ; ********************************************************************** 5597 5598 035253 202 00 0 00 041136 SVAC: MOVEM 0,AC0SV# ;SAVE AC'S 5599 035254 202 01 0 00 041146 MOVEM 1,AC1SV# 5600 035255 202 02 0 00 041147 MOVEM 2,AC2SV# 5601 035256 202 03 0 00 041150 MOVEM 3,AC3SV# 5602 035257 202 04 0 00 041151 MOVEM 4,AC4SV# 5603 035260 202 05 0 00 041152 MOVEM 5,AC5SV# 5604 035261 202 06 0 00 041153 MOVEM 6,AC6SV# 5605 035262 202 07 0 00 041154 MOVEM 7,AC7SV# 5606 035263 202 10 0 00 041137 MOVEM 10,AC10SV# 5607 035264 202 11 0 00 041140 MOVEM 11,AC11SV# 5608 035265 202 12 0 00 041141 MOVEM 12,AC12SV# 5609 035266 202 13 0 00 041142 MOVEM 13,AC13SV# 5610 035267 202 14 0 00 041143 MOVEM 14,AC14SV# 5611 035270 202 15 0 00 041144 MOVEM 15,AC15SV# 5612 035271 202 16 0 00 041145 MOVEM 16,AC16SV# 5613 035272 263 17 0 00 000000 RTN 5614 5615 035273 200 00 0 00 041136 RSTAC: MOVE 0,AC0SV ;RESTORE AC'S 5616 035274 200 01 0 00 041146 MOVE 1,AC1SV 5617 035275 200 02 0 00 041147 MOVE 2,AC2SV 5618 035276 200 03 0 00 041150 MOVE 3,AC3SV 5619 035277 200 04 0 00 041151 MOVE 4,AC4SV 5620 035300 200 05 0 00 041152 MOVE 5,AC5SV 5621 035301 200 06 0 00 041153 MOVE 6,AC6SV 5622 035302 200 07 0 00 041154 MOVE 7,AC7SV 5623 035303 200 10 0 00 041137 MOVE 10,AC10SV 5624 035304 200 11 0 00 041140 MOVE 11,AC11SV 5625 035305 200 12 0 00 041141 MOVE 12,AC12SV 5626 035306 200 13 0 00 041142 MOVE 13,AC13SV 5627 035307 200 14 0 00 041143 MOVE 14,AC14SV 5628 035310 200 15 0 00 041144 MOVE 15,AC15SV 5629 035311 200 16 0 00 041145 MOVE 16,AC16SV 5630 035312 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 125 DSKCGM MAC 11-Sep-79 15:13 PROGRAM SUPPORT ROUTINES SEQ 0179 5631 5632 ; ********************************************************************** 5633 ;*CLRSTR -- ROUTINE WHICH CLEARS THE SOURCE, DESTIN, AND SIMDES BLOCKS 5634 ; ********************************************************************** 5635 5636 035313 261 17 0 00 000000 CLRSTR: PUT AC0 5637 5638 035314 402 00 0 00 035774 SETZM SOURCE 5639 035315 200 00 0 00 040413 MOVE AC0,[SOURCE,,SOURCE+1] 5640 035316 251 00 0 00 036017 BLT AC0,SOURCE+^D19 5641 5642 035317 402 00 0 00 036020 SETZM DESTIN 5643 035320 200 00 0 00 040414 MOVE AC0,[DESTIN,,DESTIN+1] 5644 035321 251 00 0 00 036117 BLT AC0,DESTIN+^D63 5645 5646 035322 402 00 0 00 036120 SETZM SIMDES 5647 035323 200 00 0 00 040212 MOVE AC0,[SIMDES,,SIMDES+1] 5648 035324 251 00 0 00 036217 BLT AC0,SIMDES+^D63 5649 5650 035325 262 17 0 00 000000 GET AC0 5651 035326 263 17 0 00 000000 RTN 5652 5653 ; ********************************************************************** 5654 ;*COMSTR -- ROUTINE TO COMPARE SIMULATED AND ACTUAL DESTINATION STRINGS 5655 ; ********************************************************************** 5656 5657 035327 261 17 0 00 000000 COMSTR: PUT AC0 5658 035330 261 17 0 00 000001 PUT AC1 5659 5660 035331 201 01 0 00 000077 MOVEI AC1,^D63 ;LOOP COUNTER AND WORD INDEX 5661 5662 035332 200 00 0 01 036020 COMS1: MOVE AC0,DESTIN(AC1) ;GET DESTINATION WORD 5663 035333 312 00 0 01 036120 CAME AC0,SIMDES(AC1) 5664 035334 254 00 0 00 035337 JRST COMRT ;ERROR RETURN 5665 5666 035335 367 01 0 00 035332 SOJG AC1,COMS1 5667 5668 035336 350 00 0 17 777776 AOS -2(P) ;CORRECT RETURN 5669 035337 262 17 0 00 000001 COMRT: GET AC1 5670 035340 262 17 0 00 000000 GET AC0 5671 035341 263 17 0 00 000000 RTN 5672 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 126 DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0180 5673 SUBTTL PROGRAM PRINT ROUTINES 5674 5675 ; ********************************************************************** 5676 ;*PNTACB -- ROUTINE TO PRINT THE ORIGINAL, CORRECT AND ACTUAL AC BLOCKS 5677 ; ********************************************************************** 5678 5679 035342 261 17 0 00 000000 PNTACB: PUT AC0 5680 035343 261 17 0 00 000001 PUT AC1 5681 5682 PNTMSG [ASCIZ/ 5683 AC BLOCKS: ---- FINAL ---- 5684 ORIGINAL CORRECT ACTUAL 5685 035344 037 00 0 00 040415 /] 5686 035345 515 01 0 00 777773 HRLZI AC1,-5 ;AC1/- BLOCK LENGTH,,0 5687 5688 035346 200 00 0 01 035762 PNTBLK: MOVE ORIGSV(AC1) 5689 035347 037 13 0 00 000000 PNTHW 5690 035350 037 00 0 00 000011 PNTCI 11 5691 5692 035351 200 00 0 01 035767 MOVE RESSV(AC1) 5693 035352 037 13 0 00 000000 PNTHW 5694 035353 037 00 0 00 000011 PNTCI 11 5695 5696 035354 200 00 0 01 000010 MOVE 10(AC1) 5697 035355 037 13 0 00 000000 PNTHW 5698 035356 037 00 0 00 030242 PCRL 5699 5700 035357 253 01 0 00 035346 AOBJN AC1,PNTBLK 5701 5702 035360 262 17 0 00 000001 GET AC1 5703 035361 262 17 0 00 000000 GET AC0 5704 035362 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 127 DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0181 5705 5706 ; ********************************************************************** 5707 ;*PNTINS -- ROUTINE TO PRINT THE CURRENT INSTRUCTION IN ENGLISH 5708 ; ********************************************************************** 5709 5710 035363 PNTINS: PMSG <^INSTRUCTION: >^ 5711 035363 037 02 0 00 040405 PSIXM [SIXBIT\^INSTRUCTION: _\]^ 5712 035364 135 01 0 00 036220 LDB AC1,E0OP ;GET THE CURRENT OPCODE 5713 035365 200 00 0 01 035742 MOVE AC0,SCRIPT(AC1) ;PRINT THE INSTRUCTION NAME 5714 035366 037 01 0 00 000002 PNTSXF 5715 035367 263 17 0 00 000000 RTN 5716 5717 ; ********************************************************************** 5718 ;*PNTSKP -- ROUTINE WHICH PRINTS INCORRECT INSTRUCTION RETURN MESSAGE 5719 ; ********************************************************************** 5720 5721 035370 261 17 0 00 000000 PNTSKP: PUT AC0 5722 5723 PMSG <^INSTRUCTION MADE AN INCORRECT >^ 5724 035371 037 02 0 00 040434 PSIXM [SIXBIT\^INSTRUCTION MADE AN INCORRECT _\]^ 5725 5726 035372 200 00 0 00 040442 MOVE AC0,[SIXBIT /SKIP/] 5727 035373 336 00 0 00 041173 SKIPN SKPWD1 5728 035374 200 00 0 00 040443 MOVE AC0,[SIXBIT /N-SKIP/] 5729 035375 037 01 0 00 000002 PNTSXF 5730 5731 PMSG < RETURN^>^ 5732 035376 037 02 0 00 040444 PSIXM [SIXBIT\ RETURN^_\]^ 5733 5734 035377 262 17 0 00 000000 GET AC0 5735 035400 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 128 DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0182 5736 5737 ; ********************************************************************** 5738 ;*PNTSTR -- ROUTINE WHICH PRINTS STRINGS IN ROWS OF 5 BYTES EACH 5739 ;* ON ENTRY AC1 CONTAINS THE LENGTH OF THE STRING TO BE PRINTED 5740 ;* AND AC2 CONTAINS THE BYTE POINTER TO BE USED. 5741 ; ********************************************************************** 5742 5743 035401 261 17 0 00 000000 PNTSTR: PUT AC0 5744 035402 261 17 0 00 000001 PUT AC1 5745 035403 261 17 0 00 000004 PUT AC4 5746 035404 037 00 0 00 030242 PCRL 5747 5748 035405 404 01 0 00 040446 AND AC1,[77777,,777777] ;MASK OFF FLAGS 5749 5750 035406 201 04 0 00 000005 PNTS1: MOVEI AC4,5 ;BYTES/ROW COUNTER 5751 5752 035407 375 00 0 00 000001 PNTS2: SOSGE AC1 ;MORE BYTES TO PRINT? 5753 035410 254 00 0 00 035417 JRST PNTSRT ;NO - RETURN 5754 5755 035411 134 00 0 00 000002 ILDB AC0,AC2 ;YES - BYTE TO AC0 5756 035412 037 16 0 00 000003 PNTOCS ;PRINT BYTE IN OCTAL 5757 035413 037 00 0 00 000011 PNTCI 11 ;TAB 5758 5759 035414 366 04 0 00 035407 SOJN AC4,PNTS2 ;JUMP IF MORE BYTES TO GO IN THIS ROW 5760 5761 035415 037 00 0 00 030242 PCRL ;GO TO NEXT ROW 5762 035416 254 00 0 00 035406 JRST PNTS1 ;RELOAD BYTES/ROW COUNTER 5763 5764 035417 037 00 0 00 030242 PNTSRT: PCRL 5765 035420 262 17 0 00 000004 GET AC4 5766 035421 262 17 0 00 000001 GET AC1 5767 035422 262 17 0 00 000000 GET AC0 5768 035423 263 17 0 00 000000 RTN 5769 5770 ; ********************************************************************** 5771 ;*PNTCAS -- ROUTINE WHICH PRINTS CASE CURRENT CASE #. (AC1)= CASE TABLE ADDR) 5772 ; ********************************************************************** 5773 5774 035424 261 17 0 00 000000 PNTCAS: PUT AC0 5775 5776 PMSG <^CASE # >^ 5777 035425 037 02 0 00 040447 PSIXM [SIXBIT\^CASE # _\]^ 5778 035426 550 00 0 00 000007 HRRZ AC0,AC7 ;GET ADDRESS OF CASE 5779 035427 271 00 0 00 000001 ADDI AC0,1 ;ADJUST 5780 035430 274 00 0 00 000001 SUB AC0,AC1 ;SUBTRACT THE TABLE ADDRESS 5781 035431 037 15 0 00 000000 PNTDEC ;PRINT CASE # 5782 035432 037 00 0 00 030242 PCRL 5783 5784 035433 262 17 0 00 000000 GET AC0 5785 035434 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 129 DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0183 5786 5787 ; ********************************************************************** 5788 ;*RANLEN -- ROUTINE WHICH RETURNS STRING LENGTHS SEQUENTIALLY FROM 2 - 20 (10) 5789 ; ********************************************************************** 5790 5791 035435 261 17 0 00 000000 RANLEN: PUT AC0 5792 5793 035436 200 00 0 00 041171 MOVE AC0,RLEN ;GET LAST LENGTH USED 5794 035437 306 00 0 00 000024 CAIN AC0,^D20 ;RLEN REACHED HIGH LIMIT? 5795 035440 201 00 0 00 000001 MOVEI AC0,1 ;YES - RESET IT 5796 5797 035441 271 00 0 00 000001 ADDI AC0,1 ;GENERATE NEXT STRING LENGTH 5798 035442 202 00 0 00 041171 MOVEM RLEN ;STORE IT FOR NEXT TIME 5799 5800 035443 262 17 0 00 000000 GET AC0 5801 035444 263 17 0 00 000000 RTN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 130 DSKCGM MAC 11-Sep-79 15:13 PROGRAM PRINT ROUTINES SEQ 0184 5802 5803 ; ********************************************************************** 5804 ;*PNTRAN -- ROUTINE TO PRINT THE CONTENTS OF A TRANSLATION TABLE 5805 ;* LOCATED AT E1 FOR LENGTH OF 20 5806 ; ********************************************************************** 5807 5808 035445 261 17 0 00 000000 PNTRAN: PUT AC0 5809 035446 261 17 0 00 000001 PUT AC1 5810 5811 035447 515 01 0 00 777766 HRLZI AC1,-^D10 ;AC1/-# FULL WORDS,,0 5812 035450 541 01 0 00 035650 HRRI AC1,E1 ;AC1/-# FULL WORDS,,TRANS TABLE ADDRESS 5813 5814 PMSG <^TRANSLATION TABLE:>^ 5815 035451 037 02 0 00 040451 PSIXM [SIXBIT\^TRANSLATION TABLE:_\]^ 5816 5817 PMSG <^CODE]FUNCTION]CODE]FUNCTION^>^ 5818 035452 037 02 0 00 040455 PSIXM [SIXBIT\^CODE]FUNCTION]CODE]FUNCTION^_\]^ 5819 5820 035453 204 00 0 01 000000 PNTRN: MOVS AC0,(AC1) ;GET WORD FROM TABLE 5821 035454 242 00 0 00 777761 LSH AC0,-^D15 ;SHIFT CODE INTO POSITION 5822 035455 405 00 0 00 000007 ANDI AC0,7 ;SAVE ONLY THE CODE 5823 035456 037 16 0 00 000003 PNTOCS 5824 035457 037 00 0 00 000011 PNTCI 11 5825 5826 035460 204 00 0 01 000000 MOVS AC0,(AC1) 5827 035461 405 00 0 00 077777 ANDI AC0,77777 5828 035462 037 16 0 00 000003 PNTOCS 5829 5830 PMSG <]]> ^;PRINT TWO TABS 5831 035463 037 02 0 00 040462 PSIXM [SIXBIT\]]_\] 5832 5833 035464 200 00 0 01 000000 MOVE AC0,(AC1) 5834 035465 242 00 0 00 777761 LSH AC0,-^D15 5835 035466 405 00 0 00 000007 ANDI AC0,7 5836 035467 037 16 0 00 000003 PNTOCS 5837 035470 037 00 0 00 000011 PNTCI 11 5838 5839 035471 200 00 0 01 000000 MOVE AC0,(AC1) 5840 035472 405 00 0 00 077777 ANDI AC0,77777 5841 035473 037 16 0 00 000003 PNTOCS 5842 035474 037 00 0 00 030242 PCRL 5843 5844 035475 253 01 0 00 035453 AOBJN AC1,PNTRN 5845 5846 035476 262 17 0 00 000001 GET AC1 5847 035477 262 17 0 00 000000 GET AC0 5848 035500 263 17 0 00 000000 RTN 5849 5850 ;END OF FILE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1 DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0185 5851 SUBTTL GENERAL PROGRAM TABLE STORAGE 5852 5853 035501 PGMNAM: ASCIZ/ 5854 035501 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) [DSKCG] 5855 035502 123 131 123 124 105 5856 035503 115 040 062 060 062 5857 035504 060 040 101 104 126 5858 035505 101 116 103 105 104 5859 035506 040 111 116 123 124 5860 035507 122 125 103 124 111 5861 035510 117 116 040 104 111 5862 035511 101 107 116 117 123 5863 035512 124 111 103 040 050 5864 035513 067 051 040 133 104 5865 035514 123 113 103 107 135 5866 035515 015 012 000 000 000 / DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 2 DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0186 5867 5868 ; ********************************************************************** 5869 ;*EXTENDED OPERATOR OPCODE TABLE 5870 ; ********************************************************************** 5871 5872 035516 777777 777762 OPTAB-OPEND ;NEGATIVE TABLE LENGTH 5873 035517 OPTAB: 5874 035517 000000 000001 CMPTAB: 001 ;CMPSL 5875 035520 000000 000002 002 ;CMPSE 5876 035521 000000 000003 003 ;CMPSLE 5877 035522 000000 000005 005 ;CMPSGE 5878 035523 000000 000006 006 ;CMPSN 5879 035524 000000 000007 007 ;CMPSG 5880 035525 000000 000016 MOVTAB: 016 ;MOVSLJ 5881 035526 000000 000017 017 ;MOVSRJ 5882 035527 000000 000014 014 ;MOVSO 5883 035530 000000 000015 015 ;MOVST 5884 035531 000000 000004 EDTTAB: 004 ;EDIT 5885 035532 000000 000010 CDBTAB: 010 ;CVTDBO 5886 035533 000000 000011 011 ;CVTDBT 5887 035534 000000 000012 CBDTAB: 012 ;CVTBDO 5888 035535 000000 000013 OPEND: 013 ;CVTBDT 5889 5890 ; ********************************************************************** 5891 ;*SOFTWARE INTERRUPT TABLE AREA 5892 ; ********************************************************************** 5893 5894 ; ************************************************** 5895 ;TOPS-10 STORAGE 5896 ; ************************************************** 5897 5898 035536 000003 034713 UUOBLK: 3,,MUUOH ;TRANSFER CONTROL TO MUUO HANDLER 5899 035537 400000 000100 1B0!1B29 ;SUPPRESS ERROR MSGS AND INTERCEPT FATAL ERRORS 5900 035540 000000 000000 0 5901 035541 000000 000000 0 5902 5903 ; ************************************************** 5904 ;TOPS-20 STORAGE 5905 ; ************************************************** 5906 5907 035542 CHNTAB: BLOCK ^D15 ;CHANNELS 0-14 AREN'T USED 5908 035561 000001 034713 1,,MUUOH ;SETUP PRIORITY 1 INTERRUPT FOR MUUO TRAP 5909 035562 000000 035563 LEVTAB: MUOPC ;HOLDS PC OF INTERRUPT 5910 5911 035563 000000 000000 MUOPC: 0 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 3 DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0187 5912 5913 ; ********************************************************************** 5914 ;*EXECUTE INSTRUCTION STORAGE (EO,E1) 5915 ; ********************************************************************** 5916 5917 035564 E0: BLOCK 64 5918 035650 E1: BLOCK 64 5919 5920 035734 400000 000000 BIT0: 400000,,0 5921 035735 200000 000000 BIT1: 200000,,0 5922 035736 100000 000000 BIT2: 100000,,0 5923 035737 000000 400000 BIT18: 0,,400000 5924 035740 000000 200000 BIT19: 0,,200000 5925 035741 000000 100000 BIT20: 0,,100000 5926 5927 ; ********************************************************************** 5928 ;*SIXBIT EXTENDED OPERATOR MNEMONIC TABLE 5929 ; ********************************************************************** 5930 5931 035742 000000 000000 SCRIPT: 0 5932 035743 43 55 60 63 54 00 SIXBIT /CMPSL/ 5933 035744 43 55 60 63 45 00 SIXBIT /CMPSE/ 5934 035745 43 55 60 63 54 45 SIXBIT /CMPSLE/ 5935 035746 45 44 51 64 00 00 SIXBIT /EDIT/ 5936 035747 43 55 60 63 47 45 SIXBIT /CMPSGE/ 5937 035750 43 55 60 63 56 00 SIXBIT /CMPSN/ 5938 035751 43 55 60 63 47 00 SIXBIT /CMPSG/ 5939 035752 43 66 64 44 42 57 SIXBIT /CVTDBO/ 5940 035753 43 66 64 44 42 64 SIXBIT /CVTDBT/ 5941 035754 43 66 64 42 44 57 SIXBIT /CVTBDO/ 5942 035755 43 66 64 42 44 64 SIXBIT /CVTBDT/ 5943 035756 55 57 66 63 57 00 SIXBIT /MOVSO/ 5944 035757 55 57 66 63 64 00 SIXBIT /MOVST/ 5945 035760 55 57 66 63 54 52 SIXBIT /MOVSLJ/ 5946 035761 55 57 66 63 62 52 SIXBIT /MOVSRJ/ DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 4 DSKCG1 MAC 11-Sep-79 11:01 GENERAL PROGRAM TABLE STORAGE SEQ 0188 5947 5948 ; ********************************************************************** 5949 ;*ORIGSV,RESSV -- AREAS WHICH HOLD ORIGINAL AND FINAL AC BLOCK RESULTS 5950 ;* OF EXTEND INSTRUCTIONS 5951 ; ********************************************************************** 5952 5953 035762 ORIGSV: BLOCK 5 5954 035767 RESSV: BLOCK 5 5955 5956 ; ********************************************************************** 5957 ;*SOURCE,DESTIN,SIMDES -- STORAGE FOR SOURCE,DESTINATION AND SIMULATED 5958 ;* DESTINATION STRINGS 5959 ; ********************************************************************** 5960 5961 035774 SOURCE: BLOCK ^D20 5962 036020 DESTIN: BLOCK ^D64 5963 5964 036120 SIMDES: BLOCK ^D64 ;SIMULATED DESTINATION STRING 5965 5966 036220 33 11 0 00 035564 E0OP: POINT 9,E0,8 ;BYTE POINTER FOR INSTR OPCODE 5967 5968 036221 TEMP: BLOCK 3 ;TEMPORARY STORAGE 5969 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 5 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0189 5970 SUBTTL INSTRUCTION SPECIFIC STORAGE AREA 5971 5972 ; ********************************************************************** 5973 ;*SKPTAB -- INSTRUCTION SKIP TABLE 5974 ; ********************************************************************** 5975 5976 036224 000000 000000 SKPTAB: 0 5977 036225 000000 000001 LF ;CMPSL 5978 036226 000000 000002 EF ;CMPSE 5979 036227 000000 000003 EF!LF ;CMPSLE 5980 036230 000000 000000 0 ;NOT USED (EDIT) 5981 036231 000000 000006 GF!EF ;CMPSGE 5982 036232 000000 000005 GF!LF ;CMPSN 5983 036233 000000 000004 GF ;CMPSG 5984 5985 ; ********************************************************************** 5986 ;*BYTAB -- TABLE CONTAINING ENGLISH FOR THE BYTE TYPE OPERATORS. 5987 ;* USED IN ERROR PRINTING ROUTINE FOR EDIT INSTRUCTION. IT IS 5988 ;* INDEXED BY "BYTYPE" ( SPECIFIED IN EACH EDIT SUBMODULE TEST.) 5989 ; ********************************************************************** 5990 5991 036234 63 64 57 60 00 00 BYTAB: SIXBIT /STOP/ 5992 036235 45 70 43 50 55 44 SIXBIT /EXCHMD/ 5993 036236 63 51 47 63 64 00 SIXBIT /SIGST/ 5994 036237 46 54 44 63 45 60 SIXBIT /FLDSEP/ 5995 036240 55 45 63 63 41 47 SIXBIT /MESSAG/ 5996 036241 56 57 60 00 00 00 SIXBIT /NOP/ 5997 036242 63 53 60 55 00 00 SIXBIT /SKPM/ 5998 036243 63 53 60 56 00 00 SIXBIT /SKPN/ 5999 036244 63 53 60 41 00 00 SIXBIT /SKPA/ 6000 036245 63 45 54 45 43 64 SIXBIT /SELECT/ 6001 6002 ; ************************************************** 6003 ;*PATTBL -- EDIT INSTRUCTION PATTERN TABLE 6004 ; ************************************************** 6005 6006 036246 PATTBL: BLOCK ^D20 6007 036272 BYTYPE: BLOCK 1 ;INDEX TO BYTE TYPE TABLE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 6 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0190 6008 6009 ; ********************************************************************** 6010 ;*EDXWD -- TABLES OF THE FIRST WORD OF THE PATTERN BYTE TABLE. THE 6011 ;* TABLE IS INDEXED ACCORDING TO THE VALUE OF THE PB#. THE "X" 6012 ;* IN EDXWD STANDS FOR THE SUBMODULE TEST BEING PERFORMED. 6013 ; ********************************************************************** 6014 6015 036273 000 002 002 002 ED1WD: BYTE (9) STOP,SIGST,SIGST,SIGST 6016 036274 002 000 002 002 BYTE (9) SIGST,STOP,SIGST,SIGST 6017 036275 002 002 000 002 BYTE (9) SIGST,SIGST,STOP,SIGST 6018 036276 002 002 002 000 BYTE (9) SIGST,SIGST,SIGST,STOP 6019 6020 036277 004 000 000 000 ED2WD: BYTE (9) EXCHMD,STOP,STOP,STOP 6021 036300 004 004 000 000 BYTE (9) EXCHMD,EXCHMD,STOP,STOP 6022 036301 004 004 004 000 BYTE (9) EXCHMD,EXCHMD,EXCHMD,STOP 6023 036302 004 004 004 004 BYTE (9) EXCHMD,EXCHMD,EXCHMD,EXCHMD 6024 6025 036303 002 000 000 000 ED3WD: BYTE (9) SIGST,STOP,STOP,STOP 6026 036304 000 002 000 000 BYTE (9) STOP,SIGST,STOP,STOP 6027 036305 000 000 002 000 BYTE (9) STOP,STOP,SIGST,STOP 6028 036306 000 000 000 002 BYTE (9) STOP,STOP,STOP,SIGST 6029 036307 003 000 000 000 ED4WD: BYTE (9) FLDSEP,STOP,STOP,STOP 6030 036310 000 003 000 000 BYTE (9) STOP,FLDSEP,STOP,STOP 6031 036311 000 000 003 000 BYTE (9) STOP,STOP,FLDSEP,STOP 6032 036312 000 000 000 003 BYTE (9) STOP,STOP,STOP,FLDSEP 6033 6034 036313 100 000 000 000 ED5WD: BYTE (9) MESSAG,STOP,STOP,STOP 6035 036314 000 100 000 000 BYTE (9) STOP,MESSAG,STOP,STOP 6036 036315 000 000 100 000 BYTE (9) STOP,STOP,MESSAG,STOP 6037 036316 000 000 000 100 BYTE (9) STOP,STOP,STOP,MESSAG 6038 6039 036317 005 000 000 000 ED6WD: BYTE (9) NOP,STOP,STOP,STOP 6040 036320 000 005 000 000 BYTE (9) STOP,NOP,STOP,STOP 6041 036321 000 000 005 000 BYTE (9) STOP,STOP,NOP,STOP 6042 036322 000 000 000 005 BYTE (9) STOP,STOP,STOP,NOP DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 7 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0191 6043 6044 036323 500 000 000 000 ED7AWD: BYTE (9) SKPM,STOP,STOP,STOP 6045 036324 000 501 000 000 BYTE (9) STOP,SKPM+1,STOP,STOP 6046 036325 000 000 502 000 BYTE (9) STOP,STOP,SKPM+2,STOP 6047 036326 000 000 000 503 BYTE (9) STOP,STOP,STOP,SKPM+3 6048 6049 036327 600 000 000 000 ED7BWD: BYTE (9) SKPN,STOP,STOP,STOP 6050 036330 000 601 000 000 BYTE (9) STOP,SKPN+1,STOP,STOP 6051 036331 000 000 602 000 BYTE (9) STOP,STOP,SKPN+2,STOP 6052 036332 000 000 000 603 BYTE (9) STOP,STOP,STOP,SKPN+3 6053 6054 036333 700 000 000 000 ED7CWD: BYTE (9) SKPA,STOP,STOP,STOP 6055 036334 000 701 000 000 BYTE (9) STOP,SKPA+1,STOP,STOP 6056 036335 000 000 702 000 BYTE (9) STOP,STOP,SKPA+2,STOP 6057 036336 000 000 000 703 BYTE (9) STOP,STOP,STOP,SKPA+3 6058 6059 036337 001 000 000 000 ED8WD: BYTE (9) SELECT,STOP,STOP,STOP 6060 036340 001 001 000 000 BYTE (9) SELECT,SELECT,STOP,STOP 6061 036341 001 001 001 000 BYTE (9) SELECT,SELECT,SELECT,STOP 6062 036342 001 001 001 001 BYTE (9) SELECT,SELECT,SELECT,SELECT 6063 6064 036343 200 000 000 000 ED9WD: BYTE (9) NOP1,STOP,STOP,STOP 6065 036344 000 300 000 000 BYTE (9) STOP,NOP2,STOP,STOP 6066 036345 000 000 400 000 BYTE (9) STOP,STOP,NOP3,STOP 6067 036346 000 000 000 006 BYTE (9) STOP,STOP,STOP,NOP4 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 8 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0192 6068 6069 ; ********************************************************************** 6070 ;*OFFTAB -- VARIOUS VALUES USED FOR OFFSET IN CVTXX INSTR 6071 ; ********************************************************************** 6072 6073 036347 000000 000000 OFFTAB: 0 6074 036350 777777 777720 -1,,-60 6075 036351 000000 000060 0,,60 6076 036352 000000 000001 0,,1 6077 6078 ; ********************************************************************** 6079 ;*DATTAB -- DATA TABLE FOR CVTDBO INSTRUCTIONS 6080 ; ********************************************************************** 6081 6082 036353 440700 040463 DATTAB: 440700,,[ASCIZ/1180591620717411303424/] 6083 036354 440700 040470 440700,,[ASCIZ/1180591620717411303423/] 6084 036355 440700 040475 440700,,[ASCIZ/9876540/] 6085 036356 440700 040477 440700,,[ASCIZ/1/] 6086 036357 440700 040500 440700,,[ASCIZ/0/] 6087 036360 440700 040501 440700,,[ASCIZ/697/] 6088 036361 440700 040502 440700,,[ASCIZ/123456/] 6089 036362 440700 040463 440700,,[ASCIZ/1180591620717411303424/] 6090 6091 036363 000000 000000 CBDTR: 0,,0 6092 036364 777777 000001 -1,,1 6093 036365 777776 000002 -2,,2 6094 036366 777775 000003 -3,,3 6095 036367 777774 000004 -4,,4 6096 036370 777773 000005 -5,,5 6097 036371 777772 000006 -6,,6 6098 036372 777771 000007 -7,,7 6099 036373 777770 000010 -^D8,,^D8 6100 036374 777767 000011 -^D9,,^D9 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 9 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0193 6101 6102 ; ********************************************************************** 6103 ;*DATCBD -- DATA TABLE FOR CVTBDX INSTRUCTION 6104 ; ********************************************************************** 6105 6106 036375 440700 036405 DATCBD: 440700,,CB1 6107 036376 440700 036407 440700,,CB2 6108 036377 440700 036411 440700,,CB3 6109 036400 440700 036413 440700,,CB4 6110 036401 440700 036415 440700,,CB5 6111 036402 440700 036417 440700,,CB6 6112 036403 440700 036421 440700,,CB7 6113 036404 440700 036423 440700,,CB8 6114 6115 036405 401160 541620 CB1: 401160,,541620 6116 036406 717411 303424 717411,,303424 6117 036407 001160 541620 CB2: 1160,,541620 6118 036410 317411 303423 317411,,303423 6119 036411 000000 000000 CB3: 0 6120 036412 000004 676540 4,,676540 6121 036413 000000 000000 CB4: 0 6122 036414 000000 000001 1 6123 036415 000000 000000 CB5: 0 6124 036416 000000 000000 0 6125 036417 400157 013326 CB6: 400157,,13326 6126 036420 564731 000000 564731,,0 6127 036421 000000 000000 CB7: 0 6128 036422 000000 123456 123456 6129 036423 264026 176051 CB8: 264026,,176051 6130 036424 136640 000000 136640,,0 6131 6132 ; ********************************************************************** 6133 ;*LTAB -- STRING LENGTH TABLE USED IN CDBXX AND CBDXX INSTRUCTIONS 6134 ; ********************************************************************** 6135 6136 036425 000000 000000 LTAB: 0 6137 036426 000000 000001 1 6138 036427 000000 000021 21 6139 036430 000000 000022 22 6140 6141 ; ********************************************************************** 6142 ;*STRING PATTERNS FOR CMPXX INSTRUCTIONS 6143 ; ********************************************************************** 6144 6145 036431 252525 252525 APAT: 252525,,252525 ;PATTERN ALTERNATING ONE'S AND ZERO'S 6146 036432 777777 777777 BPAT: 777777,,777777 ;ALL ONE'S PATTERN 6147 036433 000000 000001 CPAT: 000000,,000001 ;ONE PATTERN 6148 036434 000000 000000 DPAT: 0 ;ZERO PATTERN DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 10 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0194 6149 6150 ; ********************************************************************** 6151 ;*PPTAB,PPTAB1 -- EDIT INSTR SIMULATOR PATTERN POINTER JUMP TABLES 6152 ; ********************************************************************** 6153 6154 036435 000000 034153 PPTAB: EOPER 6155 036436 000000 034156 EMESSG 6156 036437 000000 034162 ENOP 6157 036440 000000 034162 ENOP 6158 036441 000000 034162 ENOP 6159 036442 000000 034164 ESKPM 6160 036443 000000 034167 ESKPN 6161 036444 000000 034172 ESKPA 6162 6163 036445 000000 034176 PPTAB1: ESTOP 6164 036446 000000 034204 ESELCT 6165 036447 000000 034230 ESIGST 6166 036450 000000 034233 EFLDSP 6167 036451 000000 034235 EEXCHD 6168 036452 000000 034162 ENOP 6169 6170 ; ********************************************************************** 6171 ;*EDIT INSTRUCTION BYTE POINTERS 6172 ; ********************************************************************** 6173 6174 036453 36 02 0 00 000010 PATBN: POINT 2,PADDR,5 ;PATTERN BYTE NUMBER IN PADDR 6175 036454 44 11 0 00 036246 PATPT: POINT 9,PATTBL 6176 6177 036455 33 11 0 10 000000 PATBL: POINT 9,(PADDR),8 ;PATTERN BYTE 0 6178 036456 22 11 0 10 000000 POINT 9,(PADDR),17 ;PATTERN BYTE 1 6179 036457 11 11 0 10 000000 POINT 9,(PADDR),26 ;PATTERN BYTE 2 6180 036460 00 11 0 10 000000 POINT 9,(PADDR),35 ;PATTERN BYTE 3 6181 6182 036461 000 000 000 000 STOPWD: BYTE (9) STOP,STOP,STOP,STOP 6183 036462 002 002 002 002 SIGWD: BYTE (9) SIGST,SIGST,SIGST,SIGST 6184 036463 001 001 001 001 SELWD: BYTE (9) SELECT,SELECT,SELECT,SELECT DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 11 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0195 6185 6186 ; ********************************************************************** 6187 ;*PFBLK -- STORAGE FOR AC BLOCKS USED IN PAGE FAIL TEST 6188 ; ********************************************************************** 6189 6190 ; ************************************************** 6191 ;STORAGE FOR CMPXX AND MOVXX PAGE FAIL AC'S 6192 ; ************************************************** 6193 6194 036464 000000 000024 PFBLK1: ^D20 ;SRC FAILURE FIRST BYTE 6195 036465 44 44 0 00 401000 POINT 36,401000 6196 036466 000000 000000 0 6197 036467 000000 000024 ^D20 6198 036470 44 44 0 00 036020 POINT 36,DESTIN 6199 036471 000000 000000 0 6200 6201 036472 000000 000024 ^D20 ;SRC FAILURE MIDDLE BYTE 6202 036473 44 44 0 00 400766 POINT 36,401000-^D10 6203 036474 000000 000000 0 6204 036475 000000 000024 ^D20 6205 036476 44 44 0 00 036020 POINT 36,DESTIN 6206 036477 000000 000000 0 6207 6208 036500 000000 000024 ^D20 ;SRC FAILURE LAST BYTE 6209 036501 44 44 0 00 400755 POINT 36,401000-^D19 6210 036502 000000 000000 0 6211 036503 000000 000024 ^D20 6212 036504 44 44 0 00 036020 POINT 36,DESTIN 6213 036505 000000 000000 0 6214 6215 036506 000000 000024 ^D20 ;DST FAILURE FIRST BYTE 6216 036507 44 44 0 00 035774 POINT 36,SOURCE 6217 036510 000000 000000 0 6218 036511 000000 000024 ^D20 6219 036512 44 44 0 00 401000 POINT 36,401000 6220 036513 000000 000000 0 6221 6222 036514 000000 000024 ^D20 ;DST FAILURE MIDDLE BYTE 6223 036515 44 44 0 00 035774 POINT 36,SOURCE 6224 036516 000000 000000 0 6225 036517 000000 000024 ^D20 6226 036520 44 44 0 00 400766 POINT 36,401000-^D10 6227 036521 000000 000000 0 6228 6229 036522 000000 000024 ^D20 ;DST FAILURE LAST BYTE 6230 036523 44 44 0 00 035774 POINT 36,SOURCE 6231 036524 000000 000000 0 6232 036525 000000 000024 ^D20 6233 036526 44 44 0 00 400755 POINT 36,401000-^D19 6234 036527 000000 000000 0 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 12 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0196 6235 6236 036530 000000 000012 ^D10 ;FILLER FAILURE (E0+1) 6237 036531 44 44 0 00 035774 POINT 36,SOURCE 6238 036532 000000 000000 0 6239 036533 000000 000024 ^D20 6240 036534 44 44 0 00 036020 POINT 36,DESTIN 6241 036535 000000 000001 1 6242 6243 036536 000000 000012 ^D10 ;SRC FAIL MIDDLE 6244 036537 44 44 0 00 400773 POINT 36,401000-5 6245 036540 000000 000000 0 6246 036541 000000 000024 ^D20 6247 036542 44 44 0 00 036020 POINT 36,DESTIN 6248 036543 000000 000000 0 6249 6250 036544 000000 000024 PFBLK2: ^D20 6251 036545 44 44 0 00 401000 POINT 36,401000 6252 036546 000000 000000 0 6253 036547 000000 000000 0 6254 036550 000000 000000 0 6255 036551 000000 000000 0 6256 6257 036552 000000 000024 ^D20 6258 036553 44 44 0 00 400766 POINT 36,401000-^D10 6259 036554 000000 000000 0 6260 036555 000000 000000 0 6261 036556 000000 000000 0 6262 036557 000000 000000 0 6263 6264 036560 000000 000024 ^D20 6265 036561 44 44 0 00 400755 POINT 36,401000-^D19 6266 036562 000000 000000 0 6267 036563 000000 000000 0 6268 036564 000000 000000 0 6269 036565 000000 000000 0 6270 6271 036566 000000 000000 PFBLK3: 0 6272 036567 000000 000000 0 6273 036570 000000 000000 0 6274 036571 000000 000024 ^D20 6275 036572 44 44 0 00 401000 POINT 36,401000 6276 036573 000000 000000 0 6277 6278 036574 000000 012345 12345 6279 036575 000000 012345 12345 6280 036576 000000 000000 0 6281 036577 000000 000024 ^D20 6282 036600 44 44 0 00 400766 POINT 36,401000-^D10 6283 036601 000000 000000 0 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 13 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0197 6284 6285 036602 700000 036246 PFBLK4: 700000,,PATTBL 6286 036603 44 44 0 00 401000 POINT 36,401000 6287 036604 000000 000000 0 6288 036605 000000 000000 0 6289 036606 44 44 0 00 036020 POINT 36,DESTIN 6290 036607 000000 000000 0 6291 6292 036610 700000 036246 700000,,PATTBL 6293 036611 44 44 0 00 400766 POINT 36,401000-^D10 6294 036612 000000 000000 0 6295 036613 000000 000000 0 6296 036614 44 44 0 00 036020 POINT 36,DESTIN 6297 036615 000000 000000 0 6298 6299 036616 700000 036246 700000,,PATTBL 6300 036617 44 44 0 00 400755 POINT 36,401000-^D19 6301 036620 000000 000000 0 6302 036621 000000 000000 0 6303 036622 44 44 0 00 036020 POINT 36,DESTIN 6304 036623 000000 000000 0 6305 6306 036624 700000 036246 700000,,PATTBL 6307 036625 44 44 0 00 035774 POINT 36,SOURCE 6308 036626 000000 000000 0 6309 036627 000000 000000 0 6310 036630 44 44 0 00 401000 POINT 36,401000 6311 036631 000000 000000 0 6312 6313 036632 700000 036246 700000,,PATTBL 6314 036633 44 44 0 00 035774 POINT 36,SOURCE 6315 036634 000000 000000 0 6316 036635 000000 000000 0 6317 036636 44 44 0 00 400766 POINT 36,401000-^D10 6318 036637 000000 000000 0 6319 6320 036640 700000 036246 700000,,PATTBL 6321 036641 44 44 0 00 035774 POINT 36,SOURCE 6322 036642 000000 000000 0 6323 036643 000000 000000 0 6324 036644 44 44 0 00 400755 POINT 36,401000-^D19 6325 036645 000000 000000 0 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 14 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0198 6326 6327 ; ********************************************************************** 6328 ;*PFRESX -- STORAGE AREA WHICH CONTAINS THE CORRECT INTERMEDIATE 6329 ;* RESULTS OF ALL INSTRUCTIONS AFTER PAGE FAILURE. 6330 ; ********************************************************************** 6331 6332 036646 000000 000024 PFRES1: 24 ;STORAGE FOR CMPXX,MOVXX PF RESULTS 6333 036647 444400 401000 444400,,401000 6334 036650 000000 000000 0 6335 036651 000000 000024 24 6336 036652 444400 036020 444400,,DESTIN 6337 6338 036653 000000 000012 12 6339 036654 444400 401000 444400,,401000 6340 036655 000000 000000 0 6341 036656 000000 000012 12 6342 036657 004400 036031 004400,,DESTIN+11 6343 6344 036660 000000 000001 1 6345 036661 444400 401000 444400,,401000 6346 036662 000000 000000 0 6347 036663 000000 000001 1 6348 036664 004400 036042 004400,,DESTIN+22 6349 6350 036665 000000 000024 24 6351 036666 444400 035774 444400,,SOURCE 6352 036667 000000 000000 0 6353 036670 000000 000024 24 6354 036671 444400 401000 444400,,401000 6355 6356 036672 000000 000012 12 6357 036673 444400 036006 444400,,SOURCE+12 6358 036674 000000 000000 0 6359 036675 000000 000012 12 6360 036676 444400 401000 444400,,401000 6361 6362 036677 000000 000001 1 6363 036700 444400 036017 444400,,SOURCE+23 6364 036701 000000 000000 0 6365 036702 000000 000001 1 6366 036703 444400 401000 444400,,401000 6367 6368 036704 000000 000012 12 6369 036705 444400 035774 444400,,SOURCE 6370 036706 000000 000000 0 6371 036707 000000 000024 24 6372 036710 444400 036020 444400,,DESTIN 6373 6374 036711 000000 000005 5 6375 036712 444400 401000 444400,,401000 6376 036713 000000 000000 0 6377 036714 000000 000005 5 6378 036715 004400 036036 004400,,DESTIN+16 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 15 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0199 6379 6380 036716 400000 000024 PFRES2: 400000,,24 6381 036717 444400 401000 444400,,401000 6382 036720 000000 000000 0 6383 036721 000000 000000 0 6384 036722 000000 000000 0 6385 6386 036723 400000 000012 400000,,12 6387 036724 444400 401000 444400,,401000 6388 036725 000000 000000 0 6389 036726 000000 000000 0 6390 036727 000000 000000 0 6391 6392 036730 400000 000001 400000,,1 6393 036731 444400 401000 444400,,401000 6394 036732 000000 000000 0 6395 036733 000000 000000 0 6396 036734 000000 000000 0 6397 6398 036735 000000 000000 PFRES3: 0 6399 036736 000000 000000 0 6400 036737 000000 000000 0 6401 036740 000000 000001 1 6402 036741 444400 401000 444400,,401000 6403 6404 036742 000000 000000 0 6405 036743 000000 105705 105705 6406 036744 000000 000000 0 6407 036745 200000 000005 200000,,5 6408 036746 444400 401000 444400,,401000 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 16 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION SPECIFIC STORAGE AREA SEQ 0200 6409 6410 036747 700000 036246 PFRES4: 700000,,PATTBL 6411 036750 444400 401000 444400,,401000 6412 036751 000000 000000 0 6413 036752 000000 000000 0 6414 036753 444400 036020 444400,,DESTIN 6415 6416 036754 720000 036250 720000,,PATTBL+2 6417 036755 444400 401000 444400,,401000 6418 036756 000000 000000 0 6419 036757 000000 000000 0 6420 036760 004400 036031 4400,,DESTIN+11 6421 6422 036761 730000 036252 730000,,PATTBL+4 6423 036762 444400 401000 444400,,401000 6424 036763 000000 000000 0 6425 036764 000000 000000 0 6426 036765 004400 036042 4400,,DESTIN+22 6427 6428 036766 700000 036246 700000,,PATTBL 6429 036767 444400 035774 444400,,SOURCE 6430 036770 000000 000000 0 6431 036771 000000 000000 0 6432 036772 444400 401000 444400,,401000 6433 6434 036773 720000 036250 720000,,PATTBL+2 6435 036774 444400 036006 444400,,SOURCE+12 6436 036775 000000 000000 0 6437 036776 000000 000000 0 6438 036777 444400 401000 444400,,401000 6439 6440 037000 730000 036252 730000,,PATTBL+4 6441 037001 444400 036017 444400,,SOURCE+23 6442 037002 000000 000000 0 6443 037003 000000 000000 0 6444 037004 444400 401000 444400,,401000 6445 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 17 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0201 6446 SUBTTL INSTRUCTION CASE TABLES 6447 6448 ; ********************************************************************** 6449 ;*CMPCAS -- PARAMETER CASE TABLE FOR COMPARE INSTRUCTIONS 6450 ; ********************************************************************** 6451 6452 037005 777777 777732 CMPCAS-CMPEND ;NEGATIVE TABLE LENGTH 6453 037006 410140 000000 CMPCAS: EQLEN!S44!D44!ALTPT 6454 037007 410000 000000 EQLEN!ALTPT 6455 037010 404100 000000 EQLEN!S44!ONEPT 6456 037011 404050 000000 EQLEN!D44!ONEPT!ALD 6457 037012 402020 000000 EQLEN!ONESPT!ALS 6458 037013 402040 000000 EQLEN!D44!ONESPT 6459 6460 037014 203000 000000 SZERO!ONESPT!EQFIL 6461 037015 204300 000000 SZERO!S44!ONEPT!GFILL 6462 037016 211150 000000 SZERO!S44!D44!ALTPT!EQFIL!ALD 6463 037017 210500 000000 SZERO!S44!ALTPT!LFILL 6464 037020 204240 000000 SZERO!D44!ONEPT!GFILL 6465 037021 203140 000000 SZERO!S44!D44!ONESPT!EQFIL 6466 037022 103000 000000 DZERO!ONESPT!EQFIL 6467 037023 105140 000000 DZERO!S44!D44!ONEPT!EQFIL 6468 037024 111160 000000 DZERO!S44!D44!ALTPT!EQFIL!ALS 6469 037025 110240 000000 DZERO!D44!ALTPT!GFILL 6470 037026 110400 000000 DZERO!ALTPT!LFILL 6471 037027 103100 000000 DZERO!S44!ONESPT!EQFIL 6472 037030 051000 000000 DSZER!ALTPT!EQFIL 6473 037031 043100 000000 DSZER!S44!ONESPT!EQFIL 6474 037032 043040 000000 DSZER!D44!ONESPT!EQFIL 6475 037033 045140 000000 DSZER!S44!D44!ONEPT!EQFIL 6476 6477 037034 031000 000000 SLONG!ALTPT!EQFIL 6478 037035 031020 000000 SLONG!ALTPT!EQFIL!ALS 6479 037036 024300 000000 SLONG!S44!ONEPT!GFILL 6480 037037 022440 000000 SLONG!D44!ONESPT!LFILL 6481 037040 030400 000000 SLONG!ALTPT!LFILL 6482 037041 022300 000000 SLONG!S44!ONESPT!GFILL 6483 037042 025040 000000 SLONG!D44!ONEPT!EQFIL 6484 037043 030210 000000 SLONG!ALTPT!ALD!GFILL 6485 6486 037044 011000 000000 ALTPT!EQFIL 6487 037045 011010 000000 ALTPT!EQFIL!ALD 6488 037046 004300 000000 S44!ONEPT!GFILL 6489 037047 002440 000000 D44!ONESPT!LFILL 6490 037050 010400 000000 ALTPT!LFILL 6491 037051 002300 000000 S44!ONESPT!GFILL 6492 037052 005040 000000 D44!ONEPT!EQFIL 6493 037053 010220 000000 ALTPT!ALS!GFILL 6494 037054 404000 000000 CMPEND: EQLEN!ONEPT! DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 18 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0202 6495 6496 ; ********************************************************************** 6497 ;*MOVCAS -- PARAMETER CASE TABLE FOR MOVE STRING INSTRUCTIONS 6498 ; ********************************************************************** 6499 6500 037055 777777 777753 MOVCAS-MOVEND ;NEGATIVE TABLE LENGTH 6501 037056 404140 702004 MOVCAS: EQLEN!S44!D44!ONEPT!OFF1!SFL1!MFL1!NFL1!C5A 6502 037057 410000 570004 EQLEN!ALTPT!OFF1!SFL1!NFL1!C1A!C2A!C3A 6503 037060 410040 400004 EQLEN!D44!ALTPT!OFF1!SFL1 6504 037061 402100 120004 EQLEN!S44!ONESPT!OFF1!NFL1!C2A 6505 037062 402000 202000 EQLEN!ONESPT!MFL1!C5A 6506 037063 402000 003004 EQLEN!ONESPT!OFF1!C5A!C6A 6507 6508 037064 202400 420000 SZERO!ONESPT!LFILL!SFL1!C2A 6509 037065 211040 500000 SZERO!D44!ALTPT!EQFIL!SFL1!NFL1 6510 037066 204300 000000 SZERO!S44!ONEPT!GFILL 6511 037067 050400 060000 DSZER!LFILL!ALTPT!C1A!C2A 6512 6513 037070 031000 740000 SLONG!EQFIL!ALTPT!SFL1!NFL1!MFL1!C1A 6514 037071 023040 400000 SLONG!D44!EQFIL!ONESPT!SFL1 6515 037072 030504 440000 SLONG!S44!ALTPT!LFILL!AFS!SFL1!C1A 6516 037073 024340 477000 SLONG!S44!D44!GFILL!ONEPT!SFL1!C1A!C2A!C3A!C4A!C5A!C6A 6517 037074 022540 700004 SLONG!S44!D44!OFF1!ONESPT!LFILL!SFL1!NFL1!MFL1 6518 037075 031020 000004 SLONG!EQFIL!ALTPT!ALS!OFF1 6519 6520 037076 011000 400000 EQFIL!ALTPT!SFL1 6521 037077 003040 240000 D44!EQFIL!ONESPT!MFL1!C1A 6522 037100 010504 140000 S44!ALTPT!LFILL!AFS!NFL1!C1A 6523 037101 004340 000000 S44!D44!GFILL!ONEPT 6524 037102 002540 704004 S44!D44!OFF1!ONESPT!LFILL!SFL1!MFL1!NFL1!C4A 6525 037103 011020 000004 MOVEND: EQFIL!ALTPT!ALS!OFF1 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 19 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0203 6526 6527 ; ********************************************************************** 6528 ;*CDBCAS -- PARAMETER CASE TABLE FOR CVTDBO AND CVTDBT INSTRUCTIONS 6529 ; ********************************************************************** 6530 6531 037104 777777 777741 CDBCAS-CDBEND ;NEGATIVE TABLE LENGTH 6532 037105 000100 200004 CDBCAS: OFF1!S44!MFL1 6533 037106 000100 100124 DATA2!OFF1!STRL1!S44!NFL1 6534 037107 000100 300244 DATA1!OFF1!STRL0!S44!MFL1!NFL1 6535 037110 000100 700360 DATA1!DATA2!STRL0!STRL1!S44!SFL1!MFL1!NFL1 6536 037111 000100 400404 DATA0!OFF1!S44!SFL1 6537 037112 000100 600524 DATA0!DATA2!OFF1!STRL1!S44!SFL1!MFL1 6538 037113 000100 500644 DATA0!DATA1!OFF1!STRL0!S44!SFL1!NFL1 6539 037114 000100 200764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!MFL1 6540 037115 000000 100064 OFF1!STRL0!STRL1!NFL1 6541 037116 000000 300144 DATA2!OFF1!STRL0!MFL1!NFL1 6542 037117 000000 400224 DATA1!OFF1!STRL1!SFL1 6543 037120 000000 600304 DATA1!DATA2!OFF1!SFL1!MFL1 6544 037121 000100 500464 DATA0!OFF1!STRL0!STRL1!S44!SFL1!NFL1 6545 037122 000100 000560 DATA0!DATA2!STRL0!STRL1!S44 6546 037123 000100 000644 DATA0!DATA1!OFF1!STRL0!S44 6547 037124 000100 700744 DATA0!DATA1!DATA2!OFF1!STRL0!S44!SFL1!NFL1!MFL1 6548 037125 000100 400044 OFF1!STRL0!S44!SFL1 6549 037126 000000 000164 DATA2!OFF1!STRL0!STRL1 6550 037127 000000 100220 DATA1!STRL1!NFL1 6551 037130 000000 200364 DATA1!DATA2!OFF1!STRL0!STRL1!MFL1 6552 037131 000000 400464 DATA0!OFF1!STRL0!STRL1!SFL1 6553 037132 000000 500564 DATA0!DATA2!OFF1!STRL0!STRL1!SFL1!NFL1 6554 037133 000100 600664 DATA0!DATA1!OFF1!STRL0!STRL1!S44!SFL1!MFL1 6555 037134 000100 700764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1!NFL1!MFL1 6556 037135 000100 000064 OFF1!STRL0!STRL1!S44 6557 037136 000100 000164 DATA2!OFF1!STRL0!STRL1!S44 6558 037137 000100 000264 DATA1!OFF1!STRL0!STRL1!S44 6559 037140 000100 000364 DATA1!DATA2!OFF1!STRL0!STRL1!S44 6560 037141 000000 000464 DATA0!OFF1!STRL0!STRL1 6561 037142 000000 000564 DATA0!DATA2!OFF1!STRL0!STRL1 6562 037143 000100 000664 DATA0!DATA1!OFF1!STRL0!STRL1!S44 6563 037144 000100 000764 CDBEND: DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 20 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0204 6564 6565 ; ********************************************************************** 6566 ;*CBDCAS -- PARAMETER CASE TABLE FOR CVTBD0 AND CVTBDT INSRUCTIONS 6567 ; ********************************************************************** 6568 6569 037145 777777 777741 CBDCAS-CBDEND ;NEGATIVE TABLE LENGTH 6570 037146 000100 000000 CBDCAS: S44 6571 037147 000100 000120 DATA2!STRL1!S44 6572 037150 000100 000240 DATA1!STRL0!S44 6573 037151 000100 400360 DATA1!DATA2!STRL0!STRL1!S44!SFL1 6574 037152 000000 400400 DATA0!SFL1 6575 037153 000100 000520 DATA0!DATA2!STRL1!S44 6576 037154 000100 000640 DATA0!DATA1!STRL0!S44 6577 037155 000100 400764 DATA0!DATA1!DATA2!OFF1!STRL0!STRL1!S44!SFL1 6578 037156 000000 000060 STRL0!STRL1 6579 037157 000000 400140 DATA2!STRL0!SFL1 6580 037160 000000 000220 DATA1!STRL1 6581 037161 000000 000300 DATA1!DATA2 6582 037162 000100 400460 DATA0!STRL0!STRL1!S44!SFL1 6583 037163 000100 400560 DATA0!DATA2!STRL0!STRL1!S44!SFL1 6584 037164 000100 000640 DATA0!DATA1!STRL0!S44 6585 037165 000100 000740 DATA0!DATA1!DATA2!STRL0!S44 6586 037166 000100 000040 STRL0!S44 6587 037167 000000 000160 DATA2!STRL0!STRL1 6588 037170 000000 000220 DATA1!STRL1 6589 037171 000000 000360 DATA1!DATA2!STRL0!STRL1 6590 037172 000000 000460 DATA0!STRL0!STRL1 6591 037173 000000 000560 DATA0!DATA2!STRL0!STRL1 6592 037174 000100 000660 DATA0!DATA1!STRL0!STRL1!S44 6593 037175 000100 000760 DATA0!DATA1!DATA2!STRL0!STRL1!S44 6594 037176 000100 000060 STRL0!STRL1!S44 6595 037177 000100 000160 DATA2!STRL0!STRL1!S44 6596 037200 000100 000260 DATA1!STRL0!STRL1!S44 6597 037201 000100 000360 DATA1!DATA2!STRL0!STRL1!S44 6598 037202 000000 000460 DATA0!STRL0!STRL1 6599 037203 000000 000560 DATA0!DATA2!STRL0!STRL1 6600 037204 000100 000660 DATA0!DATA1!STRL0!STRL1!S44 6601 037205 000000 000760 CBDEND: DATA0!DATA1!DATA2!STRL0!STRL1 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 21 DSKCG1 MAC 11-Sep-79 11:01 INSTRUCTION CASE TABLES SEQ 0205 6602 6603 ; ********************************************************************** 6604 ;*EDTCAS -- PARAMETER CASE TABLE FOR EDIT INSTRUCTION 6605 ; ********************************************************************** 6606 6607 037206 777777 777741 EDTCAS-EDTEND ;NEGATIVE TABLE LENGTH 6608 037207 001000 000000 EDTCAS: EQFIL 6609 037210 000400 201000 MFL1!LFILL!C6A 6610 037211 000200 102000 NFL1!GFILL!C5A 6611 037212 001000 303000 MFL1!NFL1!EQFIL!C5A!C6A 6612 037213 000400 404000 SFL1!LFILL!C4A 6613 037214 000200 605000 SFL1!MFL1!GFILL!C4A!C6A 6614 037215 001000 506000 SFL1!NFL1!EQFIL!C4A!C5A 6615 037216 000400 707000 SFL1!MFL1!NFL1!LFILL!C4A!C5A!C6A 6616 037217 000200 000001 PB2!GFILL 6617 037220 001000 210001 MFL1!PB2!EQFIL!C3A 6618 037221 000400 120001 NFL1!PB2!LFILL!C2A 6619 037222 000200 330001 MFL1!NFL1!PB2!GFILL!C2A!C3A 6620 037223 001000 440001 SFL1!PB2!EQFIL!C1A 6621 037224 000400 650001 SFL1!MFL1!PB2!LFILL!C1A!C3A 6622 037225 000200 560001 SFL1!NFL1!PB2!GFILL!C1A!C2A 6623 037226 001000 770001 SFL1!MFL1!NFL1!PB2!EQFIL!C1A!C2A!C3A 6624 037227 000400 000002 PB1!LFILL 6625 037230 000200 241002 MFL1!PB1!GFILL!C1A!C6A 6626 037231 001000 122002 NFL1!PB1!EQFIL!C2A!C5A 6627 037232 000400 311002 MFL1!NFL1!PB1!LFILL!C3A!C6A 6628 037233 000200 477002 SFL1!PB1!GFILL!C1A!C2A!C3A!C4A!C5A!C6A 6629 037234 001000 650002 SFL1!MFL1!PB1!EQFIL!C1A!C3A 6630 037235 000400 542002 SFL1!NFL1!PB1!LFILL!C1A!C5A 6631 037236 000200 740002 SFL1!MFL1!NFL1!PB1!GFILL!C1A 6632 037237 001000 020003 PB1!PB2!EQFIL!C2A 6633 037240 000400 210003 MFL1!PB1!PB2!LFILL!C3A 6634 037241 000200 104003 NFL1!PB1!PB2!GFILL!C4A 6635 037242 001000 302003 MFL1!NFL1!PB1!PB2!EQFIL!C5A 6636 037243 000400 401003 SFL1!PB1!PB2!LFILL!C6A 6637 037244 000200 640003 SFL1!MFL1!PB1!PB2!GFILL!C1A 6638 037245 001000 520003 SFL1!NFL1!PB1!PB2!EQFIL!C2A 6639 037246 000400 710003 EDTEND: SFL1!MFL1!NFL1!PB1!PB2!LFILL!C3A 6640 6641 037247 000000 400000 MCASE: SFL1 ;CASE WORD FOR SPECIAL MESSAGES 6642 6643 037250 000000 000011 MESSGS: 11 ;OUT OF SEQUENCE ASCII CODES 6644 037251 000000 000012 12 6645 037252 000000 000013 13 6646 037253 000000 000014 14 6647 037254 000000 000015 15 6648 037255 000000 000032 32 6649 6650 ;END OF FILE DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0206 6651 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 6652 6653 ;PROGRAM LITERALS 6654 6655 XLIST 6656 IFNDEF $LPAPER, 6657 037256 LIT 6658 037256 45 70 64 45 56 44 6659 037257 45 44 00 57 60 45 6660 037260 62 41 64 57 62 00 6661 037261 45 70 45 43 65 64 6662 037262 51 57 56 00 64 62 6663 037263 41 60 00 64 45 63 6664 037264 64 77 00 00 00 00 6665 037265 260 17 0 00 034747 6666 037266 33 11 0 00 030635 6667 037267 76 43 57 62 62 45 6668 037270 43 64 35 51 56 63 6669 037271 64 62 65 43 64 51 6670 037272 57 56 77 00 00 00 6671 037273 51 54 54 45 47 41 6672 037274 54 00 51 56 63 64 6673 037275 62 65 43 64 51 57 6674 037276 56 00 45 70 45 43 6675 037277 65 64 51 57 56 00 6676 037300 46 41 51 54 45 44 6677 037301 00 64 57 00 43 41 6678 037302 65 63 45 00 54 65 6679 037303 65 57 77 00 00 00 6680 037304 037256 037267 6681 037305 030635 000000 6682 037306 037273 000000 6683 037307 51 54 54 45 47 41 6684 037310 54 00 45 70 64 45 6685 037311 56 44 45 44 00 57 6686 037312 60 45 62 41 64 57 6687 037313 62 00 64 62 41 60 6688 037314 00 64 45 63 64 77 6689 037315 57 65 64 00 57 46 6690 037316 00 62 41 56 47 45 6691 037317 00 57 60 45 62 41 6692 037320 64 57 62 00 46 41 6693 037321 51 54 45 44 00 64 6694 037322 57 00 64 62 41 60 6695 037323 77 00 00 00 00 00 6696 037324 037307 037267 6697 037325 035564 000000 6698 037326 037315 000000 6699 037327 51 54 54 45 47 41 6700 037330 54 00 41 43 00 46 6701 037331 51 45 54 44 00 42 6702 037332 51 64 63 00 31 15 6703 037333 21 22 00 46 41 51 6704 037334 54 45 44 00 64 57 6705 037335 00 64 62 41 60 77 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0207 6706 037336 037307 037267 6707 037337 035564 000000 6708 037340 037327 000000 6709 037341 51 54 54 45 47 41 6710 037342 54 00 41 43 00 46 6711 037343 51 45 54 44 00 64 6712 037344 62 41 60 00 64 45 6713 037345 63 64 77 00 00 00 6714 037346 43 00 0 00 035774 6715 037347 43 00 0 00 036020 6716 037350 76 43 57 62 62 45 6717 037351 43 64 35 63 57 65 6718 037352 62 43 45 00 54 45 6719 037353 56 47 64 50 77 00 6720 037354 51 54 54 45 47 41 6721 037355 54 00 63 57 65 62 6722 037356 43 45 00 54 45 56 6723 037357 47 64 50 00 51 56 6724 037360 00 43 57 55 60 41 6725 037361 62 45 00 51 56 63 6726 037362 64 62 00 44 51 44 6727 037363 56 07 64 00 43 41 6728 037364 65 63 45 00 64 62 6729 037365 41 60 77 00 00 00 6730 037366 037341 037350 6731 037367 000010 000000 6732 037370 037354 000000 6733 037371 76 43 57 62 62 45 6734 037372 43 64 35 44 45 63 6735 037373 64 51 56 41 64 51 6736 037374 57 56 00 54 45 56 6737 037375 47 64 50 77 00 00 6738 037376 51 54 54 45 47 41 6739 037377 54 00 44 45 63 64 6740 037400 51 56 00 54 45 56 6741 037401 47 64 50 00 51 56 6742 037402 00 43 57 55 60 41 6743 037403 62 45 00 51 56 63 6744 037404 64 62 00 44 51 44 6745 037405 56 07 64 00 43 41 6746 037406 65 63 45 00 64 62 6747 037407 41 60 77 00 00 00 6748 037410 037341 037371 6749 037411 000013 000000 6750 037412 037376 000000 6751 037413 51 54 54 45 47 41 6752 037414 54 00 44 54 45 56 6753 037415 00 51 56 00 55 57 6754 037416 66 45 00 63 64 62 6755 037417 51 56 47 00 51 56 6756 037420 63 64 62 00 44 51 6757 037421 44 56 07 64 00 43 6758 037422 41 65 63 45 00 64 6759 037423 62 41 60 77 00 00 6760 037424 037341 037371 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0208 6761 037425 000013 000000 6762 037426 037413 000000 6763 037427 76 43 57 62 62 45 6764 037430 43 64 35 60 41 64 6765 037431 64 45 62 56 00 60 6766 037432 57 51 56 64 45 62 6767 037433 77 00 00 00 00 00 6768 037434 51 54 54 45 47 41 6769 037435 54 00 60 41 64 64 6770 037436 45 62 56 00 60 57 6771 037437 51 56 64 45 62 00 6772 037440 46 51 45 54 44 00 6773 037441 51 56 00 45 44 51 6774 037442 64 00 51 56 63 64 6775 037443 62 00 44 51 44 56 6776 037444 07 64 00 43 41 65 6777 037445 63 45 00 64 62 41 6778 037446 60 77 00 00 00 00 6779 037447 037341 037427 6780 037450 000010 000000 6781 037451 037434 000000 6782 037452 43 57 55 60 41 62 6783 037453 45 00 63 64 62 51 6784 037454 56 47 00 51 56 63 6785 037455 64 62 65 43 64 51 6786 037456 57 56 00 64 45 63 6787 037457 64 77 00 00 00 00 6788 037460 76 43 55 60 70 70 6789 037461 00 60 41 64 64 45 6790 037462 62 56 00 56 57 64 6791 037463 00 63 45 54 45 43 6792 037464 64 45 44 00 15 00 6793 037465 41 42 57 62 64 51 6794 037466 56 47 00 43 65 62 6795 037467 62 45 56 64 00 43 6796 037470 41 63 45 77 00 00 6797 037471 76 41 42 57 62 64 6798 037472 51 56 47 00 43 65 6799 037473 62 62 45 56 64 00 6800 037474 43 41 63 45 00 15 6801 037475 00 46 51 54 54 45 6802 037476 62 00 60 41 64 64 6803 037477 45 62 56 00 56 57 6804 037500 64 00 63 60 45 43 6805 037501 51 46 51 45 44 77 6806 037502 44 05 0 00 035774 6807 037503 44 44 0 00 035774 6808 037504 44 05 0 00 036020 6809 037505 44 44 0 00 036020 6810 037506 000010 035762 6811 037507 037452 037323 6812 037510 000000 000000 6813 037511 037323 034274 6814 037512 55 57 66 45 00 63 6815 037513 64 62 51 56 47 00 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0209 6816 037514 51 56 63 64 62 65 6817 037515 43 64 51 57 56 00 6818 037516 64 45 63 64 77 00 6819 037517 76 55 57 66 70 70 6820 037520 00 60 41 64 64 45 6821 037521 62 56 00 56 57 64 6822 037522 00 63 45 54 45 43 6823 037523 64 45 44 00 15 00 6824 037524 41 42 57 62 64 51 6825 037525 56 47 00 43 65 62 6826 037526 62 45 56 64 00 43 6827 037527 41 63 45 77 00 00 6828 037530 037512 037323 6829 037531 000000 000000 6830 037532 037323 034360 6831 037533 000001 000001 6832 037534 43 57 56 66 45 62 6833 037535 64 00 44 45 43 51 6834 037536 55 41 54 00 64 57 6835 037537 00 42 51 56 41 62 6836 037540 71 00 51 56 63 64 6837 037541 62 65 43 64 51 57 6838 037542 56 00 64 45 63 64 6839 037543 77 00 00 00 00 00 6840 037544 44 10 0 00 035774 6841 037545 000777 777777 6842 037546 037534 037323 6843 037547 000000 000000 6844 037550 037323 034451 6845 037551 400000 400001 6846 037552 43 57 56 66 45 62 6847 037553 64 00 42 51 56 41 6848 037554 62 71 00 64 57 00 6849 037555 44 45 43 51 55 41 6850 037556 54 00 51 56 63 64 6851 037557 62 65 43 64 51 57 6852 037560 56 00 64 45 63 64 6853 037561 77 00 00 00 00 00 6854 037562 44 10 0 00 036020 6855 037563 037552 037323 6856 037564 000000 000000 6857 037565 037323 034522 6858 037566 45 44 51 64 00 51 6859 037567 56 63 64 62 65 43 6860 037570 64 51 57 56 00 64 6861 037571 45 63 64 77 00 00 6862 037572 45 44 51 64 00 15 6863 037573 00 63 64 57 60 00 6864 037574 10 20 20 21 11 00 6865 037575 60 41 64 64 45 62 6866 037576 56 00 42 71 64 45 6867 037577 00 64 71 60 45 00 6868 037600 64 45 63 64 77 00 6869 037601 036246 036247 6870 037602 44 00 0 00 035774 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-4 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0210 6871 037603 037572 037323 6872 037604 000000 000000 6873 037605 037323 034603 6874 037606 45 44 51 64 00 15 6875 037607 00 45 70 43 50 55 6876 037610 44 00 10 20 20 24 6877 037611 11 00 60 41 64 64 6878 037612 45 62 56 00 42 71 6879 037613 64 45 00 64 71 60 6880 037614 45 00 64 45 63 64 6881 037615 77 00 00 00 00 00 6882 037616 037606 037323 6883 037617 000000 000000 6884 037620 037323 034603 6885 037621 45 44 51 64 00 15 6886 037622 00 63 51 47 63 64 6887 037623 00 10 20 20 22 11 6888 037624 00 60 41 64 64 45 6889 037625 62 56 00 42 71 64 6890 037626 45 00 64 71 60 45 6891 037627 00 64 45 63 64 77 6892 037630 037621 037323 6893 037631 000000 000000 6894 037632 037323 034603 6895 037633 45 44 51 64 00 15 6896 037634 00 46 54 44 63 45 6897 037635 60 00 10 20 20 23 6898 037636 11 00 60 41 64 64 6899 037637 45 62 56 00 42 71 6900 037640 64 45 00 64 71 60 6901 037641 45 00 64 45 63 64 6902 037642 77 00 00 00 00 00 6903 037643 037633 037323 6904 037644 000000 000000 6905 037645 037323 034603 6906 037646 45 44 51 64 00 15 6907 037647 00 55 45 63 63 41 6908 037650 47 00 10 21 70 70 6909 037651 11 00 60 41 64 64 6910 037652 45 62 56 00 42 71 6911 037653 64 45 00 64 71 60 6912 037654 45 00 64 45 63 64 6913 037655 77 00 00 00 00 00 6914 037656 037646 037323 6915 037657 000000 000000 6916 037660 037323 034603 6917 037661 037250 035565 6918 037662 45 44 51 64 00 15 6919 037663 00 56 57 60 00 10 6920 037664 20 20 25 11 00 60 6921 037665 41 64 64 45 62 56 6922 037666 00 42 71 64 45 00 6923 037667 64 71 60 45 00 64 6924 037670 45 63 64 77 00 00 6925 037671 037662 037323 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-5 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0211 6926 037672 000000 000000 6927 037673 037323 034603 6928 037674 45 44 51 64 00 15 6929 037675 00 63 53 60 55 00 6930 037676 10 25 70 70 11 00 6931 037677 60 41 64 64 45 62 6932 037700 56 00 42 71 64 45 6933 037701 00 64 71 60 45 00 6934 037702 64 45 63 64 63 77 6935 037703 037674 037323 6936 037704 000000 000000 6937 037705 037323 034603 6938 037706 45 44 51 64 00 15 6939 037707 00 63 53 60 56 00 6940 037710 10 26 70 70 11 00 6941 037711 60 41 64 64 45 62 6942 037712 56 00 42 71 64 45 6943 037713 00 64 71 60 45 00 6944 037714 64 45 63 64 63 77 6945 037715 037706 037323 6946 037716 000000 000000 6947 037717 037323 034603 6948 037720 45 44 51 64 00 15 6949 037721 00 63 53 60 41 00 6950 037722 10 27 70 70 11 00 6951 037723 60 41 64 64 45 62 6952 037724 56 00 42 71 64 45 6953 037725 00 64 71 60 45 00 6954 037726 64 45 63 64 63 77 6955 037727 037720 037323 6956 037730 000000 000000 6957 037731 037323 034603 6958 037732 45 44 51 64 00 15 6959 037733 00 63 45 54 45 43 6960 037734 64 00 10 20 20 21 6961 037735 11 00 60 41 64 64 6962 037736 45 62 56 00 42 71 6963 037737 64 45 00 64 71 60 6964 037740 45 00 64 45 63 64 6965 037741 77 00 00 00 00 00 6966 037742 037732 037323 6967 037743 000000 000000 6968 037744 037323 034603 6969 037745 45 44 51 64 00 15 6970 037746 00 56 57 56 00 44 6971 037747 45 46 51 56 45 44 6972 037750 00 60 41 64 64 45 6973 037751 62 56 00 42 71 64 6974 037752 45 00 64 71 60 45 6975 037753 00 64 45 63 64 77 6976 037754 037745 037323 6977 037755 000000 000000 6978 037756 037323 034603 6979 037757 60 41 47 45 00 46 6980 037760 41 51 54 00 64 45 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-6 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0212 6981 037761 63 64 51 56 47 77 6982 037762 60 41 47 45 00 46 6983 037763 41 51 54 00 64 45 6984 037764 63 64 51 56 47 00 6985 037765 57 46 00 64 50 45 6986 037766 00 43 57 55 60 41 6987 037767 62 45 00 51 56 63 6988 037770 64 62 65 43 64 51 6989 037771 57 56 63 77 00 00 6990 037772 075750 075751 6991 037773 33 11 0 00 400777 6992 037774 000000 032700 6993 037775 000000 032675 6994 037776 76 45 70 64 45 56 6995 037777 44 00 51 56 63 64 6996 040000 00 44 51 44 00 56 6997 040001 57 64 00 60 41 47 6998 040002 45 00 46 41 51 54 6999 040003 77 00 00 00 00 00 7000 040004 037762 037776 7001 040005 000000 000000 7002 040006 037323 035363 7003 040007 76 45 70 64 45 56 7004 040010 44 00 51 56 63 64 7005 040011 00 60 41 47 45 00 7006 040012 46 41 51 54 45 44 7007 040013 00 55 57 62 45 00 7008 040014 64 50 41 56 00 57 7009 040015 56 43 45 77 00 00 7010 040016 037762 040007 7011 040017 000000 000000 7012 040020 037323 035016 7013 040021 76 51 56 64 45 62 7014 040022 55 45 44 51 41 64 7015 040023 45 00 60 41 47 45 7016 040024 00 46 41 51 54 00 7017 040025 62 45 63 65 54 64 7018 040026 63 00 45 62 62 57 7019 040027 62 77 00 00 00 00 7020 040030 037762 040021 7021 040031 000000 000000 7022 040032 037323 035016 7023 040033 76 46 51 56 41 54 7024 040034 00 41 43 07 63 00 7025 040035 51 56 43 57 62 62 7026 040036 45 43 64 77 00 00 7027 040037 037762 040033 7028 040040 000000 000000 7029 040041 037323 035210 7030 040042 60 41 47 45 00 46 7031 040043 41 51 54 00 64 45 7032 040044 63 64 51 56 47 00 7033 040045 57 46 00 55 57 66 7034 040046 45 00 63 64 62 51 7035 040047 56 47 00 51 56 63 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-7 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0213 7036 040050 64 62 65 43 64 51 7037 040051 57 56 63 77 00 00 7038 040052 000000 033030 7039 040053 000000 033025 7040 040054 040042 037776 7041 040055 000000 000000 7042 040056 037323 035363 7043 040057 040042 040007 7044 040060 000000 000000 7045 040061 037323 035016 7046 040062 040042 040021 7047 040063 000000 000000 7048 040064 037323 035016 7049 040065 040042 040033 7050 040066 000000 000000 7051 040067 037323 035210 7052 040070 60 41 47 45 00 46 7053 040071 41 51 54 00 64 45 7054 040072 63 64 51 56 47 00 7055 040073 57 46 00 43 66 64 7056 040074 44 42 70 00 51 56 7057 040075 63 64 62 65 43 64 7058 040076 51 57 56 63 77 00 7059 040077 000000 033160 7060 040100 000000 033155 7061 040101 040070 037776 7062 040102 000000 000000 7063 040103 037323 035363 7064 040104 040070 040007 7065 040105 000000 000000 7066 040106 037323 035016 7067 040107 040070 040021 7068 040110 000000 000000 7069 040111 037323 035016 7070 040112 040070 040033 7071 040113 000000 000000 7072 040114 037323 035210 7073 040115 60 41 47 45 00 46 7074 040116 41 51 54 00 64 45 7075 040117 63 64 51 56 47 00 7076 040120 57 46 00 43 66 64 7077 040121 42 44 57 00 51 56 7078 040122 63 64 62 65 43 64 7079 040123 51 57 56 63 77 00 7080 040124 000000 033310 7081 040125 000000 033305 7082 040126 040115 037776 7083 040127 000000 000000 7084 040130 037323 035363 7085 040131 040115 040007 7086 040132 000000 000000 7087 040133 037323 035016 7088 040134 040115 040021 7089 040135 000000 000000 7090 040136 037323 035016 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-8 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0214 7091 040137 040115 040033 7092 040140 000000 000000 7093 040141 037323 035210 7094 040142 60 41 47 45 00 46 7095 040143 41 51 54 00 64 45 7096 040144 63 64 51 56 47 00 7097 040145 57 46 00 64 50 45 7098 040146 00 45 44 51 64 00 7099 040147 51 56 63 64 62 65 7100 040150 43 64 51 57 56 63 7101 040151 77 00 00 00 00 00 7102 040152 000000 033440 7103 040153 000000 033435 7104 040154 040142 037776 7105 040155 000000 000000 7106 040156 037323 035363 7107 040157 040142 040007 7108 040160 000000 000000 7109 040161 037323 035016 7110 040162 040142 040021 7111 040163 000000 000000 7112 040164 037323 035016 7113 040165 040142 040033 7114 040166 000000 000000 7115 040167 037323 035210 7116 040170 035762 000010 7117 040171 000010 035767 7118 040172 300600 000014 7119 040173 17 02 0 00 000007 7120 040174 255 00 0 00 000000 7121 040175 254 00 0 00 033663 7122 040176 621 06 0 00 100000 7123 040177 661 06 0 00 100000 7124 040200 003300 000010 7125 040201 777000 000000 7126 040202 255 00 0 00 000000 7127 040203 254 00 0 00 033772 7128 040204 621 10 0 00 100000 7129 040205 661 10 0 00 100000 7130 040206 00 11 0 00 000013 7131 040207 047121 545107 7132 040210 104130 000000 7133 040211 035762 035767 7134 040212 036120 036121 7135 040213 17 02 0 00 000003 7136 040214 255 00 0 00 000000 7137 040215 254 00 0 00 034177 7138 040216 621 10 0 00 100000 7139 040217 661 10 0 00 100000 7140 040220 76 63 57 65 62 43 7141 040221 45 00 63 64 62 51 7142 040222 56 47 32 00 77 00 7143 040223 76 44 45 63 64 51 7144 040224 56 00 63 64 62 51 7145 040225 56 47 32 00 77 00 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-9 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0215 7146 040226 76 45 20 13 21 32 7147 040227 00 77 00 00 00 00 7148 040230 76 45 20 13 22 32 7149 040231 00 77 00 00 00 00 7150 040232 000000 000100 7151 040233 76 63 57 65 62 43 7152 040234 45 00 63 64 62 51 7153 040235 56 47 32 77 00 00 7154 040236 00 11 0 00 035762 7155 040237 76 43 57 62 62 45 7156 040240 43 64 00 44 45 63 7157 040241 64 51 56 41 64 51 7158 040242 57 56 00 63 64 62 7159 040243 51 56 47 32 77 00 7160 040244 76 41 43 64 65 41 7161 040245 54 00 44 45 63 64 7162 040246 51 56 41 64 51 57 7163 040247 56 00 63 64 62 51 7164 040250 56 47 32 77 00 00 7165 040251 777777 777700 7166 040252 76 63 51 55 65 54 7167 040253 41 64 45 44 00 44 7168 040254 45 63 64 51 56 41 7169 040255 64 51 57 56 00 63 7170 040256 64 62 51 56 47 32 7171 040257 77 00 00 00 00 00 7172 040260 00 11 0 00 035765 7173 040261 76 60 41 64 64 45 7174 040262 62 56 00 42 71 64 7175 040263 45 00 64 71 60 45 7176 040264 00 65 56 44 45 62 7177 040265 00 64 45 63 64 32 7178 040266 00 77 00 00 00 00 7179 040267 76 45 20 13 21 32 7180 040270 77 00 00 00 00 00 7181 040271 76 45 20 13 22 32 7182 040272 77 00 00 00 00 00 7183 040273 000400 000431 7184 040274 035562 035542 7185 040275 55 65 65 57 00 57 7186 040276 60 45 62 41 64 51 7187 040277 57 56 77 00 00 00 7188 040300 76 43 57 62 62 45 7189 040301 43 64 35 55 65 65 7190 040302 57 76 41 43 64 65 7191 040303 41 54 35 55 65 65 7192 040304 57 00 60 43 77 00 7193 040305 65 56 45 70 60 45 7194 040306 43 64 45 44 00 55 7195 040307 65 65 57 00 57 43 7196 040310 43 65 62 45 44 77 7197 040311 040275 040300 7198 040312 000001 000002 7199 040313 040305 000000 7200 040314 76 43 57 62 62 45 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-10 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0216 7201 040315 43 64 35 55 65 65 7202 040316 57 00 60 43 77 00 7203 040317 040275 040314 7204 040320 000001 000000 7205 040321 040305 000000 7206 040322 54 65 65 57 00 57 7207 040323 60 45 62 41 64 51 7208 040324 57 56 77 00 00 00 7209 040325 76 43 57 62 62 45 7210 040326 43 64 35 54 65 65 7211 040327 57 76 41 43 64 65 7212 040330 41 54 35 54 65 65 7213 040331 57 00 60 43 77 00 7214 040332 65 56 45 70 60 45 7215 040333 43 64 45 44 00 54 7216 040334 65 65 57 00 57 43 7217 040335 43 65 62 45 44 77 7218 040336 040322 040325 7219 040337 000001 000002 7220 040340 040332 000000 7221 040341 740075 740076 7222 040342 60 41 47 45 00 46 7223 040343 41 51 54 77 00 00 7224 040344 60 41 47 45 00 46 7225 040345 41 51 54 00 60 43 7226 040346 00 67 62 57 56 47 7227 040347 77 00 00 00 00 00 7228 040350 040342 040344 7229 040351 000006 000007 7230 040352 037323 035155 7231 040353 51 56 64 45 62 55 7232 040354 45 44 51 41 64 45 7233 040355 00 41 43 00 51 56 7234 040356 43 57 62 62 45 43 7235 040357 64 77 00 00 00 00 7236 040360 41 43 77 00 00 00 7237 040361 040342 040353 7238 040362 000007 000010 7239 040363 040360 035155 7240 040364 41 43 13 21 77 00 7241 040365 040342 040353 7242 040366 000007 000011 7243 040367 040364 035155 7244 040370 41 43 13 22 77 00 7245 040371 040342 040353 7246 040372 000007 000012 7247 040373 040370 035155 7248 040374 41 43 13 23 77 00 7249 040375 040342 040353 7250 040376 000007 000013 7251 040377 040374 035155 7252 040400 41 43 13 24 77 00 7253 040401 040342 040353 7254 040402 000007 000014 7255 040403 040400 035155 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-11 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0217 7256 040404 004000 035650 7257 040405 76 51 56 63 64 62 7258 040406 65 43 64 51 57 56 7259 040407 32 00 77 00 00 00 7260 040410 036363 035650 7261 040411 000200 000201 7262 040412 100000 400000 7263 040413 035774 035775 7264 040414 036020 036021 7265 040415 015 012 101 103 040 7266 040416 102 114 117 103 113 7267 040417 123 072 011 040 040 7268 040420 040 040 040 040 040 7269 040421 055 055 055 055 040 7270 040422 106 111 116 101 114 7271 040423 040 055 055 055 055 7272 040424 015 012 040 040 040 7273 040425 117 122 111 107 111 7274 040426 116 101 114 011 040 7275 040427 040 040 103 117 122 7276 040430 122 105 103 124 011 7277 040431 040 040 040 101 103 7278 040432 124 125 101 114 015 7279 040433 012 000 000 000 000 7280 040434 76 51 56 63 64 62 7281 040435 65 43 64 51 57 56 7282 040436 00 55 41 44 45 00 7283 040437 41 56 00 51 56 43 7284 040440 57 62 62 45 43 64 7285 040441 00 77 00 00 00 00 7286 040442 63 53 51 60 00 00 7287 040443 56 15 63 53 51 60 7288 040444 00 62 45 64 65 62 7289 040445 56 76 77 00 00 00 7290 040446 077777 777777 7291 040447 76 43 41 63 45 00 7292 040450 03 00 77 00 00 00 7293 040451 76 64 62 41 56 63 7294 040452 54 41 64 51 57 56 7295 040453 00 64 41 42 54 45 7296 040454 32 77 00 00 00 00 7297 040455 76 43 57 44 45 75 7298 040456 46 65 56 43 64 51 7299 040457 57 56 75 43 57 44 7300 040460 45 75 46 65 56 43 7301 040461 64 51 57 56 76 77 7302 040462 75 75 77 00 00 00 7303 040463 061 061 070 060 065 7304 040464 071 061 066 062 060 7305 040465 067 061 067 064 061 7306 040466 061 063 060 063 064 7307 040467 062 064 000 000 000 7308 040470 061 061 070 060 065 7309 040471 071 061 066 062 060 7310 040472 067 061 067 064 061 DSKCG - DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) VER 0,2 MACRO %53(1020) 09:45 14-Sep-79 Page 1-12 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0218 7311 040473 061 063 060 063 064 7312 040474 062 063 000 000 000 7313 040475 071 070 067 066 065 7314 040476 064 060 000 000 000 7315 040477 061 000 000 000 000 7316 040500 060 000 000 000 000 7317 040501 066 071 067 000 000 7318 040502 061 062 063 064 065 7319 040503 066 000 000 000 000 7320 LIST 7321 041035 000000 000000 ENDSLD: 0 7322 7323 IFDEF DEBUG,< 7324 041036 PATCH: BLOCK DEBUG ;PATCHING AREA 7325 > 7326 7327 ;PROGRAM VARIABLES 7328 041136 VAR 7329 7330 IFDEF PGMEND,< 7331 041177 000000 000000 END: 0 7332 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 041200 CPU TIME USED 00:29.024 70P CORE USED ABORT 488# AC 66# 1181 1182 1190 1206 1207 1215 1255 1271 1276 1283 1286 1287 1291 SEQ 0219 1299 1302 1321 1326 1334 1361 1362 1366 1374 1599 1610 1849 1860 2044 2053 2201 2210 2304 2383 2460 2532 2610 2656 2665 2738 2810 2882 2954 3031 3103 3242 3244 3265 3272 3403 3405 3426 3433 3564 3566 3587 3594 3725 3727 3748 3755 3886 3888 3909 3916 4022 4023 4093 4094 4096 4097 4237 4238 4338 4339 4400 4474 4475 5503 5506 5509 5512 5515 5573 5576 5579 5582 5585 AC0 83# 1543 1544 1553 1554 1568 1571 1576 1584 1589 1599 1600 1649 1663 1776 1778 1784 1786 1789 1790 1793 1794 1813 1836 1849 1850 1889 1891 1919 1922 1997 1998 2001 2003 2023 2044 2045 2113 2116 2180 2201 2202 2263 2267 2280 2281 2292 2293 2342 2346 2359 2360 2371 2372 2419 2423 2436 2437 2448 2449 2491 2495 2508 2509 2520 2521 2569 2573 2586 2587 2598 2599 2631 2632 2634 2638 2639 2645 2646 2647 2650 2651 2656 2657 2697 2701 2714 2715 2726 2727 2769 2773 2786 2787 2798 2799 2841 2845 2858 2859 2870 2871 2913 2917 2930 2931 2942 2943 2990 2994 3007 3008 3019 3020 3062 3066 3079 3080 3091 3092 3164 3165 3188 3189 3192 3195 3196 3197 3198 3200 3201 3216 3217 3221 3222 3227 3230 3235 3237 3238 3240 3244 3245 3248 3250 3317 3318 3319 3320 3349 3350 3353 3356 3357 3358 3359 3361 3362 3377 3378 3382 3383 3388 3391 3396 3398 3399 3401 3405 3406 3409 3411 3478 3479 3480 3481 3510 3511 3514 3517 3518 3519 3520 3522 3523 3538 3539 3543 3544 3549 3552 3557 3559 3560 3562 3566 3567 3570 3572 3639 3640 3641 3642 3671 3672 3675 3678 3679 3680 3681 3683 3684 3699 3700 3704 3705 3710 3713 3718 3720 3721 3723 3727 3728 3731 3733 3800 3801 3802 3803 3832 3833 3836 3839 3840 3841 3842 3844 3845 3860 3861 3865 3866 3871 3874 3879 3881 3882 3884 3888 3889 3892 3894 3961 3962 3963 3964 4022 4023 4078 4080 4093 4094 4223 4224 4237 4238 4321 4323 4338 4339 4344 4400 4401 4455 4456 4458 4459 4462 4463 4474 4475 4543 4544 4679 4680 4704 4740 4748 4750 4751 4772 4773 4774 4778 4781 4814 4815 4827 4835 4836 4863 4887 4895 4897 4898 4916 4917 4918 4922 4925 4955 4966 4968 4969 4990 4992 4994 4998 5001 5007 5016 5017 5047 5056 5068 5119 5127 5134 5138 5178 5183 5256 5257 5383 5384 5386 5387 5394 5395 5397 5398 5405 5406 5408 5409 5420 5421 5426 5431 5432 5439 5460 5461 5469 5475 5480 5494 5495 5536 5539 5542 5554 5555 5557 5558 5572 5575 5578 5581 5584 5589 5590 5636 5639 5640 5643 5644 5647 5648 5650 5657 5662 5663 5670 5679 5703 5713 5721 5726 5728 5734 5743 5755 5767 5774 5778 5779 5780 5784 5791 5793 5794 5795 5797 5800 5808 5820 5821 5822 5826 5827 5833 5834 5835 5839 5840 5847 AC0SV 5598# 5598 5615 AC1 84# 1107 1109 1110 1839 1879 1882 1883 1886 1887 1891 1895 1932 1933 1942 1945 1948 1951 1981 2013 2071 2074 2075 2078 2081 2084 2087 2126 2127 2170 2286 2287 2365 2366 2442 2443 2514 2515 2592 2593 2635 2636 2638 2640 2642 2648 2720 2721 2792 2793 2864 2865 2936 2937 3013 3014 3085 3086 3180 3181 3188 3221 3324 3341 3342 3349 3382 3485 3502 3503 3510 3543 3646 3663 3664 3671 3704 3807 3824 3825 3832 3865 3968 4705 4710 4714 4719 4739 4782 4787 4791 4792 4797 4798 4804 4805 4826 4864 4867 4871 4872 4886 4926 4931 4937 4938 4944 4945 4954 5002 5010 5025 5033 5039 5067 5097 5111 5112 5153 5161 5164 5166 5171 5195 5203 5328 5335 5338 5341 5348 5358 5361 5364 5367 5380 5391 5402 5440 5443 5446 5449 5452 5455 5470 5472 5475 5479 5658 5660 5662 5663 5666 5669 5680 5686 5688 5692 5696 5700 5702 5712 5713 5744 5748 5752 5766 5780 5809 5811 5812 5820 5826 5833 5839 5844 5846 AC10 91# 5233 5290 AC10SV 5606# 5606 5623 AC11 92# 5237 5295 SEQ 0220 AC11SV 5607# 5607 5624 AC12 93# 4692 4763 4848 4910 4981 5241 5300 AC12SV 5608# 5608 5625 AC13 94# 4805 5245 5305 AC13SV 5609# 5609 5626 AC14 95# 5249 5310 AC14SV 5610# 5610 5627 AC15 96# AC15SV 5611# 5611 5628 AC16SV 5612# 5612 5629 AC1SV 5599# 5599 5616 AC2 85# 1880 1884 1886 1890 1892 1894 2072 2076 2078 2079 2080 2086 2278 2279 2357 2358 2434 2435 2506 2507 2584 2585 2643 2646 2651 2712 2713 2784 2785 2856 2857 2928 2929 3005 3006 3077 3078 3186 3190 3322 3347 3351 3483 3508 3512 3644 3669 3673 3805 3830 3834 3966 4032 4033 4039 4054 4115 4123 4124 4126 4131 4139 4143 4145 4159 4347 4361 4366 4373 4377 4379 4415 4416 4425 4436 4438 4482 4483 4484 4562 4566 4624 4626 4627 4706 4715 4720 4738 4783 4793 4799 4800 4806 4825 4865 4873 4885 4927 4939 4940 4946 4953 5003 5026 5034 5035 5040 5066 5098 5154 5161 5196 5203 5755 AC2SV 5600# 5600 5617 AC3 86# 1990 1991 1995 2285 2286 2364 2365 2441 2442 2513 2514 2591 2592 2719 2720 2791 2792 2863 2864 2935 2936 3012 3013 3084 3085 3203 3320 3364 3481 3525 3642 3686 3803 3847 3964 4025 4045 4048 4050 4060 4063 4067 4069 4070 4372 4376 4380 4383 4386 4388 4391 4422 4432 4481 4482 4490 4492 4499 4500 4530 4531 4553 4554 4555 4556 4557 4559 4562 4570 4573 4574 4580 4581 4611 4612 4613 5572 5575 5578 5581 5584 5589 AC3SV 5601# 5601 5618 AC4 87# 1264 1305 1316 1339 1359 1379 1569 1580 1593 1839 1840 1841 1842 1843 1993 2003 3204 3318 3365 3479 3526 3640 3687 3801 3848 3962 4038 4041 4044 4047 4053 4056 4059 4062 4178 4182 4266 4270 4420 4423 4431 5006 5007 5021 5043 5050 5051 5059 5229 5236 5240 5244 5248 5286 5294 5299 5304 5309 5348 5349 5350 5351 5424 5431 5745 5750 5759 5765 AC4SV 5602# 5602 5619 AC5 88# 1265 1271 1287 1303 1315 1321 1337 1358 1362 1377 1933 1934 1935 1936 1943 1946 1949 1952 1981 1982 1983 1984 1998 2013 2014 2015 2016 2017 2127 2128 2129 2130 2158 2159 2160 2161 2170 2171 2172 2173 2174 4039 4041 4044 4047 4054 4056 4059 4062 4115 4144 4145 4146 4158 4247 4281 4420 4430 4434 4437 4443 4444 4447 4450 4452 5425 5428 AC5SV 5603# 5603 5620 AC6 89# 1132 1133 1142 1261 1262 1269 1307 1313 1318 1341 1430 1431 1436 1564 1602 1619 1637 1638 1645 1772 1789 1852 1869 1911 1912 1918 2062 2103 2104 2112 2219 4096 4176 4181 4182 4185 4186 4221 4240 4241 4252 4309 4415 4444 5225 5226 5280 5281 AC6SV 5604# 5604 5621 AC7 90# 1269 1270 1318 1320 1355 1357 1433 1434 1452 1472 1501 1618 1640 1641 1670 1687 1740 1868 1914 1915 2061 2106 2107 2218 2270 2271 2313 2349 2350 2392 2426 2427 2469 2498 2499 2541 2576 2577 2619 2653 2704 2705 2747 2776 2777 2819 2848 2849 2891 2920 2921 2963 2997 2998 3040 3069 3070 3112 4028 4029 4038 4053 4129 4135 4137 4152 4153 4158 4159 4162 4169 4170 4171 4172 4173 4175 4178 4184 4188 4189 4195 4197 4254 4258 4259 4260 4261 4263 4266 4272 4278 4281 4282 4284 4296 4297 4480 4481 4531 4610 4611 4614 4615 5224 5226 5229 5231 5233 5236 5237 5240 SEQ 0221 5241 5244 5245 5248 5249 5279 5281 5286 5288 5290 5294 5295 5299 5300 5304 5305 5309 5310 5328 5778 AC7SV 5605# 5605 5622 AFS 141# 6515 6522 ALD 140# 1592 6456 6462 6484 6487 ALS 139# 1579 6457 6468 6478 6493 6518 6525 ALTMGO 838# ALTPT 116# 1453 1671 6453 6454 6462 6463 6468 6469 6470 6472 6477 6478 6481 6484 6486 6487 6490 6493 6502 6503 6509 6511 6513 6515 6518 6520 6522 6525 APAT 1456 1673 6145# AROV 752# AROVTP 752# AROVU 752# AST 953# ATSIN 954# B0 143# 1942 1945 BDH 67# 2161 4349 4353 4355 4358 4363 4389 4391 4397 4904 BDL 70# 4348 4350 4359 4397 4907 BEGEND 834# 3160 3972 BEGIN 38 39 40 44 45 46 47 48 703 704 765# 7332 BEGIN1 781# 835 BELL 957# BIS 752# BIT0 1801 1825 1943 1969 2034 2146 2191 3242 3403 3564 3725 3886 5231 5288 5336 5450 5920# BIT1 1804 1828 1972 2037 2149 2194 5339 5453 5921# BIT18 1816 1946 2025 2182 5441 5923# BIT19 1819 2028 2185 5444 5924# BIT2 1807 1831 1975 2040 2152 2197 5342 5456 5922# BIT20 1822 2031 2188 5447 5925# BPAT 1462 1497 1678 1736 6146# BYTAB 5007 5991# BYTYPE 2264 2343 2420 2492 2570 2698 2770 2842 2914 2991 3063 5006 5420 6007# C1 163# 1815 2024 2181 5440 C1A 216# 6502 6511 6513 6515 6516 6521 6522 6620 6621 6622 6623 6625 6628 6629 6630 6631 6637 C2 164# 1818 2027 2184 5443 C2A 217# 6502 6504 6508 6511 6516 6618 6619 6622 6623 6626 6628 6632 6638 C3 165# 1821 2030 2187 5446 C3A 218# 6502 6516 6617 6619 6621 6623 6627 6628 6629 6633 6639 C4 166# 1824 2033 2190 5449 C4A 219# 6516 6524 6612 6613 6614 6615 6628 6634 C5 167# 1827 2036 2193 5452 C5A 220# 6501 6505 6506 6516 6610 6611 6614 6615 6626 6628 6630 6635 C6 168# 1830 2039 2196 5455 C6A 221# 6506 6516 6609 6611 6613 6615 6625 6627 6628 6636 CB1 6106 6115# CB2 6107 6117# CB3 6108 6119# CB4 6109 6121# CB5 6110 6123# CB6 6111 6125# SEQ 0222 CB7 6112 6127# CB8 6113 6129# CBD1 2106# 2219 CBD2 2109# 2216 2218 CBD3 2167# CBD4 2168 2177# CBDC1 4899 4904# CBDCAS 2106 2107 4931 6569 6570# CBDCOM 2214 4895# CBDEND 6569 6601# CBDEX 4397# CBDFAI 4902 4905 4908 4911 4914 4919 4922# CBDM 2103# 2221 CBDMOD 2065 2099# CBDNXT 3773 3782 3788 3800# CBDOST 4364 4391# CBDOVF 4361 4367 4395 4455# CBDPC 3716 3727# CBDPC1 3733 3748# CBDPC2 3731 3745 3755# CBDPF0 3669# 3772 3781 3787 3799 3807 CBDPF1 3702# 3805 CBDPF3 3752 3766# CBDPF9 3776 3784# CBDPFA 3676 3686# CBDPFX 3739 3775# CBDPNT 2215 4925# CBDRT1 4953# CBDS1 4353 4361# CBDS2 4373# 4377 CBDS3 4370 4374 4379# CBDSIM 2205 3791 4332# CBDST 3658# CBDTAB 2104 3664 5887# CBDTR 5494 6091# CBDTRN 2199 3724 5494# CCA 752# CDB1 1914# 2062 CDB2 1917# 2059 2061 CDB3 1995# 2004 CDB3A 1995 2010# CDB4 2011 2020# CDBC1 4837 4842# CDBCAS 1914 1915 4867 6531 6532# CDBCOM 2057 4835# CDBDON 4252 4305# CDBEND 6531 6563# CDBFAI 4840 4843 4846 4849 4852 4855 4858 4861# CDBLEG 4256 4281# CDBM 1911# 2064 CDBMOD 1688 1741 1872 1907# CDBNXT 3612 3621 3627 3639# CDBOUT 4268 4282 4285 4309# SEQ 0223 CDBPC 3555 3566# CDBPC1 3572 3587# CDBPC2 3570 3584 3594# CDBPF0 3508# 3611 3620 3626 3638 3646 CDBPF1 3541# 3644 CDBPF3 3591 3605# CDBPF9 3615 3623# CDBPFA 3515 3525# CDBPFX 3578 3614# CDBPNT 2058 4863# CDBRET 4316 4321# CDBRT1 4885# CDBS1 4245 4252# 4273 4303 CDBSIM 2048 3630 4233# CDBST 3497# CDBTAB 1912 3503 5885# CDBTN 3563 5487# CDBTRN 2042 2071# CHAIN 508# CHKA2 1661 1670# CHKB1 1454 1459# CHKB2 1672 1676# CHKC1 1460 1465# CHKC2 1677 1681# CHKTRN 3224 3385 3546 3707 3868 5534# CHNOFF 752# CHNON 752# CHNTAB 5098 5907# CLKU 752# CLOCKF 820# CLRSTR 1643 2109 2276 2301 2355 2380 2432 2457 2504 2529 2582 2607 2629 2710 2735 2782 2807 2854 2879 2926 2951 3003 3028 3075 3100 3213 3374 3535 3696 3857 5636# CMP1 1433# 1619 CMP2 1436# 1472 1501 1616 1618 CMPB1 1541 1548# CMPB2 1551 1558# CMPBYT 1478 1513 1519 1524 1530 1534 1540# CMPC1 4681 4686# CMPCAS 1433 1434 4710 6452 6453# CMPCOM 1614 4679# CMPDON 4036 4067# CMPEND 6452 6494# CMPER1 1466 1471# CMPER2 1496 1500# CMPF1 1485 1490# CMPF2 1491 1495# CMPFAI 4684 4687 4690 4693 4696 4699 4702# CMPFIL 1484# CMPL 1488 1493 1498 1509# CMPL1 1510 1515# CMPL2 1516 1521# CMPL3 1522 1526# SEQ 0224 CMPLEN 1457 1463 1469 1475# CMPM 1430# 1621 CMPMOD 1349 1382 1426# CMPNXT 3290 3299 3305 3317# CMPOUT 4051 4065 4069# CMPPC 3233 3244# CMPPC1 3250 3265# CMPPC2 3248 3262 3272# CMPPF0 3186# 3289 3298 3304 3316 3324 CMPPF1 3219# 3322 CMPPF3 3269 3283# CMPPF9 3293 3301# CMPPFA 3193 3203# CMPPFX 3256 3292# CMPPNT 1615 4704# CMPRET 4738# CMPS1 4027# 4057 CMPS2 4035 4038# CMPS3 4042 4053# CMPSIM 1605 3308 4018# CMPST 3175# 3971 CMPSTR 1564# CMPT1 1267# 1305 CMPTAB 1431 3181 5874# CMPTRP 1264# 1284 1300 1307 CNTLC 837# CNTRP 752# COMAC 3312 3473 3634 3795 3956 5503# COMFAI 5504 5507 5510 5513 5516 5519# COMMA 946# COMPNT 3315 3476 3637 3798 3959 5521# COMRT 5664 5669# COMS1 5662# 5666 COMSTR 4769 4857 4987 5657# CONSW 821# CPAT 1468 1683 6147# CPOPJ 841# CPOPJ1 839# CRLF 638 639 941# CRLF2 642 643 943# CRY0 752# CRY1 752# CSET1 1573# 1577 CSET2 1574 1579# CSET3 1586# 1590 CSET4 1587 1592# CSHFLG 1000# CSHMEM 1001# CTRP 752# CYCL60 994# D44 133# 1550 1761 5364 5367 6453 6456 6458 6462 6464 6465 6467 6468 6469 6474 6475 6480 6483 6489 6492 6501 6503 6509 6514 6516 6517 6521 6523 6524 SEQ 0225 DATA 177# 1982 2159 DATA0 174# 6536 6537 6538 6539 6544 6545 6546 6547 6552 6553 6554 6555 6560 6561 6562 6563 6574 6575 6576 6577 6582 6583 6584 6585 6590 6591 6592 6593 6598 6599 6600 6601 DATA1 175# 6534 6535 6538 6539 6542 6543 6546 6547 6550 6551 6554 6555 6558 6559 6562 6563 6572 6573 6576 6577 6580 6581 6584 6585 6588 6589 6592 6593 6596 6597 6600 6601 DATA2 176# 6533 6535 6537 6539 6541 6543 6545 6547 6549 6551 6553 6555 6557 6559 6561 6563 6571 6573 6575 6577 6579 6581 6583 6585 6587 6589 6591 6593 6595 6597 6599 6601 DATASH 232# 1983 2160 DATCBD 2161 6106# DATTAB 1984 6082# DBH 72# 1949 4250 4276 4288 4290 4293 4298 4301 4306 4312 4319 4851 DBL 75# 1952 4248 4250 4276 4287 4289 4292 4294 4297 4300 4310 4313 4319 4854 DCK 752# DDTLNK 522# 779 DDTSRT 779# DEBUG 34# 7323 7324 DECFIL 4436# 4438 DECLDN 4433 4436 4440# DECP4 4425 4430# DECPN1 4431 4432 4442# DECPN2 4428 4453# DECPN3 4407 4420# 4442 DECPNR 4410 4413 4418# DECPNT 4392 4407# DECVER 4# 9 23 800 DESTIN 1253 1555 1558 1763 1766 2137 2139 4773 4814 4917 4992 5016 5365 5368 5642 5643 5644 5662 5962# 6198 6205 6212 6240 6247 6289 6296 6303 6336 6342 6348 6372 6378 6414 6420 6426 DF22F 905# DIAGMN 768# DING 494# DLEN 71# 1441 1517 1523 1528 1582 1654 1700 1705 1710 2130 2146 2149 2152 4031 4036 4075 4076 4102 4117 4124 4138 4148 4167 4190 4196 4213 4217 4218 4347 4351 4356 4369 4398 4409 4433 4695 4766 4913 DLEN1 79# 1582 1586 DOCBD 3767 3791# DOCDB 3606 3630# DOCMP 3284 3308# DOEDT 3928 3952# DOLLAR 960# DOMOV 3445 3469# DP 74# 1253 1555 1558 1583 1763 1766 2137 2139 4033 4100 4137 4144 4162 4189 4197 4342 4376 4388 4416 4437 4452 4478 4500 4581 4603 4623 4627 4698 4772 4916 4990 5365 5368 DP1 80# 1583 1584 1589 1593 DPAT 1492 1731 6148# DSKUPD 805 DSZER 109# 1521 1703 6472 6473 6474 6475 6511 DZERO 108# 1515 1698 6466 6467 6468 6469 6470 6471 SEQ 0226 E0 1185 1190 1197 1210 1215 1223 1267 1276 1291 1319 1326 1356 1366 1445 1446 1512 1518 1529 1533 1544 1554 1610 1658 1743 1794 1843 1860 1917 2017 2021 2053 2111 2174 2178 2210 2304 2383 2460 2532 2610 2631 2632 2635 2665 2738 2810 2882 2954 3031 3103 3183 3184 3238 3265 3344 3345 3399 3426 3505 3506 3560 3587 3666 3667 3721 3748 3827 3828 3882 3909 4028 4032 4135 4146 4152 4195 4247 4344 4372 4434 4499 4573 4624 4724 4728 4810 5047 5056 5384 5387 5395 5398 5406 5409 5413 5414 5461 5917# 5966 E0FIL1 1527 1532# E0OP 1270 1320 1357 1437 1646 1919 2113 3230 3391 3552 3713 3874 4020 4091 4235 4336 5712 5966# E1 1793 1883 1889 2020 2075 2083 2177 3235 3396 3557 3718 3879 4172 4173 4260 4261 4386 4415 4450 4556 4557 5460 5487 5494 5495 5812 5918# EABORT 4541# 4564 EBIT0 752# EBIT1 752# EBIT10 752# EBIT11 752# EBIT12 752# EBIT13 752# EBIT14 752# EBIT15 752# EBIT2 752# EBIT3 752# EBIT4 752# EBIT5 752# EBIT6 752# EBIT7 752# EBIT8 752# EBIT9 752# ED1WD 2286 6015# ED2WD 2365 6020# ED3WD 2442 6025# ED4WD 2514 6029# ED5WD 2592 6034# ED6WD 2720 6039# ED7AWD 2792 6044# ED7BWD 2864 6049# ED7CWD 2936 6054# ED8WD 3013 6059# ED9WD 3085 6064# EDIT1 1361# 1375 1379 EDITRP 1344 1355# EDM1 2273# 2312 2313 EDM2 2352# 2391 2392 EDM3 2429# 2468 2469 EDM4 2501# 2540 2541 EDM5 2579# 2618 2619 EDM5A 2622 2629# 2671 EDM6 2707# 2746 2747 EDM7A 2779# 2818 2819 EDM7B 2851# 2890 2891 EDM7C 2923# 2962 2963 SEQ 0227 EDM8 3000# 3039 3040 EDM9 3072# 3111 3112 EDMD7A 2750 2766# EDMD7B 2822 2838# EDMD7C 2894 2910# EDMOD1 2260# 3118 EDMOD2 2316 2339# EDMOD3 2395 2416# EDMOD4 2472 2488# EDMOD5 2544 2566# EDMOD6 2673 2694# EDMOD8 2966 2987# EDMOD9 3043 3059# EDMODM 2222 2245# EDS2 5381 5391# EDS3 5392 5402# EDS4 5403 5413# EDS5 5428# 5433 EDS6 5429 5439# EDSRTN 5389 5400 5411 5422 5460# EDTC1 4970 4975# EDTCAS 2270 2271 2349 2350 2426 2427 2498 2499 2576 2577 2704 2705 2776 2777 2848 2849 2920 2921 2997 2998 3069 3070 5010 6607 6608# EDTCOM 2308 2387 2464 2536 2614 2669 2742 2814 2886 2958 3035 3107 4966# EDTEND 6607 6639# EDTFAI 4973 4976 4979 4982 4985 4988 4995 4998# EDTNXT 3934 3943 3949 3961# EDTP1 5022 5029# EDTP1A 5014 5019# EDTP2 5030 5043# EDTP2A 5044 5050# EDTP4 5053 5059# EDTPC 3877 3888# EDTPC1 3894 3909# EDTPC2 3892 3906 3916# EDTPF0 3830# 3933 3942 3948 3960 3968 EDTPF1 3863# 3966 EDTPF3 3913 3927# EDTPF9 3937 3945# EDTPFA 3837 3847# EDTPFX 3900 3936# EDTPNT 2311 2390 2467 2539 2617 2670 2745 2817 2889 2961 3038 3110 5001# EDTRT1 5066# EDTS2 4480# 4508 4533 EDTSET 2283 2362 2439 2511 2589 2654 2717 2789 2861 2933 3010 3082 5328# EDTSIM 2296 2375 2452 2524 2602 2660 2730 2802 2874 2946 3023 3095 3952 4472# EDTST 3819# EDTTAB 3825 5884# EEXCHD 4603# 6167 EF 240# 4067 5978 5979 5981 EFLDSP 4596# 6166 EMESSG 4498# 6155 END 7331# SEQ 0228 ENDFIX 1080# ENDSLD 7321# ENOP 4491 4501 4507# 4515 4523 4574 4582 4590 4597 4604 6156 6157 6158 6168 EOPER 4490# 6154 EQFIL 124# 1484 1724 5380 6460 6462 6465 6466 6467 6468 6471 6472 6473 6474 6475 6477 6478 6483 6486 6487 6492 6509 6513 6514 6518 6520 6521 6525 6608 6611 6614 6617 6620 6623 6626 6629 6632 6635 6638 EQLEN 106# 1477 1691 6453 6454 6455 6456 6457 6458 6494 6501 6502 6503 6504 6505 6506 ERMORE 854# EROLD 714 ERRPC 825# ERRTLS 826# ERSTOP 497# ESEL 4498 4573# ESEL1 4571 4577# ESEL2 4568 4575 4580# ESELCT 4553# 6164 ESIGST 4588# 6165 ESKPA 4516 4524 4530# 6161 ESKPM 4514# 6159 ESKPN 4522# 6160 ESTOP 4539# 6163 EXCASB 32# 803 EXCHMD 251# 6020 6021 6022 6023 EXIOT 752# EXLAB 1143 1144 1147# 1157 FAILOC 3251# 3251 3412# 3412 3573# 3573 3734# 3734 3895# 3895 5225 5280 FILE0 2638# 2640 FILLF 3226 3229 3236 3247 3249 3261 3387 3390 3397 3408 3410 3422 3548 3551 3558 3569 3571 3583 3709 3712 3719 3730 3732 3744 3870 3873 3880 3891 3893 3905 5587 5591# 5591 FLDSEP 250# 6029 6030 6031 6032 FOV 752# FOVU 752# FRDLNK 520# FSELNK 519# FXU 752# GF 239# 4048 4063 5981 5982 5983 GFILL 126# 1495 1734 5402 6461 6464 6469 6479 6482 6484 6488 6491 6493 6510 6516 6523 6610 6613 6616 6619 6622 6625 6628 6631 6634 6637 GOCBD 2175 2201# GOCDB 2018 2044# GOMOV 1834 1837 1849# GOTRAP 1141# 1141 1154 1187 1194 1212 1219 1273 1280 1288 1295 1323 1330 1363 1370 5121 5180 HW 144# 1948 1951 HYPEN 951# INCPBN 4507 4532 4541 4610# INCSKP 1095# 1095 4683 4734 4736 4754 4821 4823 4839 4881 4883 4901 4949 4951 4972 5062 5064 INHCSH 505# INHPAG 502# SEQ 0229 INSTR 3222# 3222 3383# 3383 3544# 3544 3705# 3705 3866# 3866 5472 IOCLR 752# ITERAT 35# 798 ITRCH1 858# ITRCNT 798# JOB41 752# JOBAPR 752# JOBCNI 752# JOBDDT 752# JOBFF 752# JOBOPC 752# JOBREL 752# JOBREN 752# JOBSA 752# JOBSYM 752# JOBTPC 752# JOBUSY 752# JOBUUO 752# JOBVER 752# KAIFLG 815# KLFLG 816# KNTRP 752# KTRP 752# LACLK 752# LACLKE 752# LAPRAL 752# LAPRP1 752# LAPRP2 752# LAPRP3 752# LAPRP4 752# LAPRP5 752# LAPRP6 752# LAPRP7 752# LCHNOF 752# LCHNON 752# LCNTXT 752# LCNXER 752# LCPAER 752# LCPSFT 752# LCPWRF 752# LDATAF 752# LDLNK 521# 768 770 LDNXER 752# LDPAER 752# LDPSFT 752# LDPWRF 752# LEBXMH 752# LEBXML 752# LENXER 752# LEPAER 752# LEPSFT 752# LEPWRF 752# LEUPFW 752# 5560 SEQ 0230 LEVTAB 5098 5909# LEXCMP 752# LF 241# 4045 4060 5977 5979 5982 LFILL 125# 1490 1729 5391 6463 6470 6480 6481 6489 6490 6508 6511 6515 6517 6522 6524 6609 6612 6615 6618 6621 6624 6627 6630 6633 6636 6639 LFLGCL 752# LFLGDS 752# LFLGEN 752# LFLGST 752# LFP 955# LINSTF 752# LINT 752# LIOCLR 752# LLACBL 752# LLDUSB 752# 5564 LMBXMH 752# LMBXML 752# LNXMEN 752# LNXMER 752# LOOPER 496# LPAREN 752# LPARER 752# LPFWPC 752# 5224 5261 5279 LPGFTR 752# 3165 LPICH1 752# LPICH2 752# LPICH3 752# LPICH4 752# LPICH5 752# LPICH6 752# LPICH7 752# LPICHA 752# LPICLR 752# LPIIP1 752# LPIIP2 752# LPIIP3 752# LPIIP4 752# LPIIP5 752# LPIIP6 752# LPIIP7 752# LPIOFF 752# LPION 752# LPRCH1 752# LPRCH2 752# LPRCH3 752# LPRCH4 752# LPRCH5 752# LPRCH6 752# LPRCH7 752# LPRFMH 752# LPRFML 752# LPSFT 752# LPSFTE 752# SEQ 0231 LPWRFE 752# LPWRFL 752# LREQSE 752# LRQCLR 752# LSECMO 752# LSMODE 752# LSNXER 752# LSPAER 752# LSPSFT 752# LSPWRF 752# LTAB 1936 2130 6136# LTBASH 752# LTBASL 752# LTRPAE 752# LTRPEN 752# 5259 5562 LUSCMP 752# LUUO 752# LUUO1 885 886 LUUO10 885 890 LUUO11 885 890 LUUO12 885 891 LUUO13 885 891 LUUO14 885 892 LUUO15 885 892 LUUO16 885 893 LUUO17 885 893 LUUO2 885 887 LUUO20 885 894 LUUO21 885 894 LUUO22 885 895 LUUO23 885 895 LUUO24 885 896 LUUO25 885 896 LUUO26 885 897 LUUO27 885 897 LUUO3 885 887 LUUO30 885 898 LUUO31 885 898 LUUO32 885 899 LUUO33 885 899 LUUO4 885 888 LUUO5 885 888 LUUO6 885 889 LUUO7 885 889 LUUOH 1138 5178# LUUOHX 5181 5192# LUUOI 752# LWRITE 752# MA 73# 2290 2369 2446 2518 2596 2724 2796 2868 2940 3017 3089 4603 4623 4984 5370 MAPNEW 906# MARGIN 828# MCASE 2653 6641# SEQ 0232 MCNVER 3# 9 23 800 MEMLOW 908# MEMMAP 806 MEMSIZ 909# MEMTOT 907# MESSAG 253# 6034 6035 6036 6037 MESSGS 2631 6643# MFL 155# 1806 1974 2151 5341 MFL1 213# 6501 6505 6513 6517 6521 6524 6532 6534 6535 6537 6539 6541 6543 6547 6551 6554 6555 6609 6611 6613 6615 6617 6619 6621 6623 6625 6627 6629 6631 6633 6635 6637 6639 MINUS 950# MODDVC 504# MODDVL 703 703# 801 MODDVU 704 704# 802 MODLNK 523# 765 MONCTL 818# MONFLG 817# MONTEN 819# MONTYP 1032# 5092 5130 5165 MOV1 1640# 1869 MOV2 1643# 1687 1740 1866 1868 MOVB1 1750 1753 1757# MOVB2 1759 1762 1766# MOVBYT 1692 1701 1706 1711 1749# MOVC1 4752 4757# MOVCAS 1640 1641 4787 6500 6501# MOVCOM 1864 4748# MOVEND 6500 6525# MOVER1 1682 1686# MOVER2 1735 1739# MOVF1 1725 1729# MOVF2 1730 1734# MOVF3 1727 1732 1737 1743# MOVFAI 4755 4758 4761 4764 4767 4770 4775 4778# MOVFIL 1716 1724# MOVL 1698# MOVL1 1699 1703# MOVL2 1704 1708# MOVL3 1709 1713# MOVL4 1714 1718# MOVLEN 1664 1674 1679 1684 1690# MOVM 1637# 1871 MOVMOD 1473 1502 1622 1633# MOVNXT 3451 3460 3466 3478# MOVOFF 1791 1836# MOVOP 1781 1789# MOVOUT 4107 4201 4207 4215# MOVPC 3394 3405# MOVPC1 3411 3426# MOVPC2 3409 3423 3433# MOVPF0 3347# 3450 3459 3465 3477 3485 MOVPF1 3380# 3483 SEQ 0233 MOVPF3 3430 3444# MOVPF9 3454 3462# MOVPFA 3354 3364# MOVPFX 3417 3453# MOVPL 4160 4213# MOVPNT 1865 4781# MOVRET 4825# MOVS1 4129# 4131 MOVS1A 4103 4109# MOVS2 4127 4135# MOVS2A 4137# 4139 MOVS3 4118 4121 4133 4141 4148# 4163 MOVS4 4156 4162# MOVSIM 1855 3469 4089# MOVSOS 4113 4143# MOVST 3336# MOVST1 4165 4167 4192# MOVST2 4196# 4198 MOVST3 4180 4196 4200# MOVSTR 1772# MOVSTS 4110 4165# 4186 4190 MOVTAB 1638 3342 5880# MPVU 752# MUOPC 5133 5164 5909 5911# MUUO 752# MUUO10 5093 5111# MUUOH 5081 5119# 5898 5908 MUUOH1 5131 5137# MUUOHS 1103 5078# MUUOHU 5125 5130# MUUOHX 5122 5150# MUUOHY 5151 5164# MUUOPC 752# MVS1 1315# 1341 MVS2 1318# 1335 1339 MVSTRP 1313# NFL 156# 1803 1971 2148 5338 NFL1 214# 6501 6502 6504 6509 6513 6517 6522 6524 6533 6534 6535 6538 6540 6541 6544 6547 6550 6553 6555 6610 6611 6614 6615 6618 6619 6622 6623 6626 6627 6630 6631 6634 6635 6638 6639 NOP 252# 6039 6040 6041 6042 NOP1 257# 6064 NOP2 258# 6065 NOP3 259# 6066 NOP4 260# 6067 NOPNT 492# NXMU 752# OFF 193# 1840 2014 2171 OFF0 191# OFF1 192# 6501 6502 6503 6504 6506 6517 6518 6524 6525 6532 6533 6534 6536 6537 6538 6539 6540 6541 6542 6543 6544 6546 6547 6548 6549 6551 6552 6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6577 OFFSET 1104 2266 2268 2289 2300 2315 2345 2347 2368 2379 2394 2422 2424 2445 SEQ 0234 2456 2471 2494 2496 2517 2528 2543 2572 2574 2595 2606 2621 2700 2702 2723 2734 2749 2772 2774 2795 2806 2821 2844 2846 2867 2878 2893 2916 2918 2939 2950 2965 2993 2995 3016 3027 3042 3065 3067 3088 3099 3114 3178 3325 3339 3486 3500 3647 3661 3808 3822 3969 4099 4341 4477# 4477 4991 5013 5029 OFFSH 230# 1841 2015 2172 OFFTAB 1842 2016 2173 6073# OFS 4345# 4345 4383 4447 ONEPT 117# 1465 1681 6455 6456 6461 6464 6467 6475 6479 6483 6488 6492 6494 6501 6510 6516 6523 ONESPT 118# 1459 1676 6457 6458 6460 6465 6466 6471 6473 6474 6480 6482 6489 6491 6504 6505 6506 6508 6514 6517 6521 6524 OP1 81# 4020 4069 4091 4109 4112 4120 4203 4235 4244 4255 4315 4336 4382 4385 4412 4446 4449 OPEND 5872 5888# OPRSEL 506# OPTAB 1132 1133 1262 5872 5873# OPTIME 920# ORIGSV 1599 1600 1849 1850 2044 2045 2201 2202 2292 2293 2371 2372 2448 2449 2520 2521 2598 2599 2656 2657 2726 2727 2798 2799 2870 2871 2942 2943 3019 3020 3091 3092 3244 3245 3405 3406 3566 3567 3727 3728 3888 3889 4022 4093 4237 4338 4455 4474 4714 4715 4719 4720 4792 4793 4797 4799 4804 4806 4872 4873 4938 4939 4945 4946 5026 5034 5040 5688 5953# OVERR 4334# 4334 4394 4427 P 549 550 551 552 752# 840 4071 4193 4206 4210 4307 4404 4430 4443 4539 4701 4777 4860 4921 4997 5196 5518 5668 PADDR 68# 2292 2371 2448 2520 2598 2726 2798 2870 2942 3019 3091 4498 4514 4522 4543 4560 4565 4566 4568 4577 4588 4596 4613 4975 5334 5336 5339 5342 5352 6174 6177 6178 6179 6180 PAG 752# 5259 5562 5564 PAGSET 3259 3420 3581 3742 3903 5553# PALERS 498# PAREA1 49# 796 PAREA2 50# 797 PAREA3 51# 794 PAREA4 52# 795 PAREA5 53# 807 PAREA6 54# 808 PAREA7 807# PAREA8 808# PARU 752# PASCNT 822# PATBL 4481 6177# PATBN 2285 2364 2441 2513 2591 2719 2791 2863 2935 3012 3084 4480 4615 5351 6174# PATCH 7324# PATPT 2643 6175# PATTBL 2279 2280 2281 2287 2358 2359 2360 2366 2435 2436 2437 2443 2507 2508 2509 2515 2585 2586 2587 2593 2713 2714 2715 2721 2785 2786 2787 2793 2857 2858 2859 2865 2929 2930 2931 2937 3006 3007 3008 3014 3078 3079 3080 3086 3196 3197 3198 3201 3357 3358 3359 3362 3518 3519 3520 3523 3679 3680 3681 3684 3840 3841 3842 3845 5352 6006# 6175 6285 6292 6299 6306 6313 6320 6410 6416 6422 6428 6434 6440 SEQ 0235 PATTER 1475# 1475 1487 1568 1690 1726 1776 PB 205# 5349 PB1 203# 6624 6625 6626 6627 6628 6629 6630 6631 6632 6633 6634 6635 6636 6637 6638 6639 PB2 204# 6616 6617 6618 6619 6620 6621 6622 6623 6632 6633 6634 6635 6636 6637 6638 6639 PBSH 233# 5350 PDISF 917# PDLOVU 752# PDOVTP 752# PERIOD 947# PFACB 3219 3380 3541 3702 3863 5572# PFBLK1 3203 3364 6194# PFBLK2 3525 6250# PFBLK3 3686 6271# PFBLK4 3847 6285# PFERR 3254# 3254 3415# 3415 3576# 3576 3737# 3737 3898# 3898 PFFAIL 5222 5227 5234 5238 5242 5246 5250 5267# PFHAND 3164 5221# PFHEPC 3257 3418 3579 3740 3901 5267# 5267 PFINS 5284 5292 5297 5302 5307 5312 5469# 5521 PFPNT 3297 3303 3458 3464 3619 3625 3780 3786 3941 3947 5279# PFRES1 3204 3365 6332# PFRES2 3526 6380# PFRES3 3687 6398# PFRES4 3848 6410# PFSTRT 774# PFTRAP 3253# 3253 3283 3292 3414# 3414 3444 3453 3575# 3575 3605 3614 3736# 3736 3766 3775 3897# 3897 3927 3936 5221 PFTST 3115 3159# PGMEND 36# 7330 PGMNAM 799 5853# PICHN1 752# PICHN2 752# PICHN3 752# PICHN4 752# PICHN5 752# PICHN6 752# PICHN7 752# PICHNA 752# PICLR 752# PIOFF 752# PION 752# PLIST 986# 986 PLISTE 986 988# PLISTS 987# PLUS 952# PNTACB 4732 4816 4876 4934 5019 5523 5679# PNTBLK 5688# 5700 PNTCAS 4711 4788 4868 4932 5011 5774# PNTENB 916# PNTEXT 795# PNTFLG 915# SEQ 0236 PNTINH 918# PNTINS 3288 3449 3610 3771 3932 4708 4785 4929 5710# PNTLPT 493# PNTNAM 794# PNTRAN 4819 4879 5060 5808# PNTRN 5820# 5844 PNTRP 752# PNTS1 5750# 5762 PNTS2 5752# 5759 PNTSKP 4735 4822 4882 4950 5063 5721# PNTSPC 919# PNTSRT 5753 5764# PNTSTR 4716 4721 4794 4801 4807 4874 4941 4947 5027 5036 5041 5743# PPTAB 4484 6154# PPTAB1 4492 6163# PTM1 2646# 2648 PTMSET 2642# PTRP 752# PVPAGI 1013# QUEST 958# RADIX 961# RADLSC 963# RADLSP 962# RANDBS 796# RANLEN 1439 1652 5791# REENTR 776# RELIAB 500# 1108 REPT 58 752# 1130 1179 1250 1428 1635 1909 2101 2245 3162 REPT1 752# REPTU 874# REQSET 752# RESRT1 851# RESRT2 852# RESSV 4078 4080 4223 4224 4321 4323 4400 4401 4455 4456 4459 4543 4544 4686 4689 4692 4695 4698 4757 4760 4763 4766 4774 4798 4815 4842 4845 4848 4851 4854 4904 4907 4910 4913 4918 4975 4978 4981 4984 4994 5017 5503 5506 5509 5512 5515 5692 5954# RETURN 783# RLEN 1094# 1094 5793 5798 RPEAT 1110# 1110 1130 1179 1250 1428 1635 1909 2101 2245 3162 RSTAC 4081 4226 4324 4403 4465 4546 5615# RSTART 489# RTP 956# RUNFLG 823# S44 132# 1540 1752 1958 1961 2136 2138 5358 5361 6453 6455 6461 6462 6463 6465 6467 6468 6471 6473 6475 6479 6482 6488 6491 6501 6504 6510 6515 6516 6517 6522 6523 6524 6532 6533 6534 6535 6536 6537 6538 6539 6544 6545 6546 6547 6548 6554 6555 6556 6557 6558 6559 6562 6563 6570 6571 6572 6573 6575 6576 6577 6582 6583 6584 6585 6586 6592 6593 6594 6595 6596 6597 6600 SADR1 38# 772 SADR10 47# 788 SADR11 48# 789 SEQ 0237 SADR2 39# 774 SADR3 40# 776 SADR4 41# SADR5 42# 837 SADR6 43# 838 SADR7 44# 785 SADR8 45# 786 SADR9 46# 787 SBINIT 562 782# SCOPE 875# SCRIPT 5475 5713 5931# SELECT 248# 6059 6060 6061 6062 6184 SELWD 3195 3356 3517 3678 3839 6184# SET1 1780# 1787 SETFG 5537 5540 5543# SETLC1 2078# 2081 SETLOC 1886# 1887 SETRAN 1833 1879# 3241 3402 3885 5458 SETSKP 4106 4149 4203# SFL 154# 1800 1968 2145 5335 SFL1 212# 6501 6502 6503 6508 6509 6513 6514 6515 6516 6517 6520 6524 6535 6536 6537 6538 6542 6543 6544 6547 6548 6552 6553 6554 6555 6573 6574 6577 6579 6582 6583 6612 6613 6614 6615 6620 6621 6622 6623 6628 6629 6630 6631 6636 6637 6638 6639 6641 SFSTRT 772# SIGST 249# 6015 6016 6017 6018 6025 6026 6027 6028 6183 SIGWD 2278 6183# SIMDES 4100 4342 4458 4461 4462 4463 4478 4773 4800 4814 4917 4940 4992 5016 5035 5646 5647 5648 5663 5964# SKP1 4204 4209# SKPA 256# 6054 6055 6056 6057 SKPM 254# 6044 6045 6046 6047 SKPN 255# 6049 6050 6051 6052 SKPTAB 4069 5976# SKPWD1 1443# 1443 1606 1656# 1656 1856 1925 2049 2119 2206 2273 2297 2352 2376 2429 2453 2501 2525 2579 2603 2661 2707 2731 2779 2803 2851 2875 2923 2947 3000 3024 3072 3096 3206 3309 3367 3470 3528 3631 3689 3792 3850 3953 4679 4750 4835 4897 4968 5727 SKPWD2 1444# 1444 1611 1657# 1657 1861 1926 2054 2120 2211 2274 2305 2353 2384 2430 2461 2502 2533 2580 2611 2666 2708 2739 2780 2811 2852 2883 2924 2955 3001 3032 3073 3104 3207 3266 3273 3368 3427 3434 3529 3588 3595 3690 3749 3756 3851 3910 3917 4680 4751 4836 4898 4969 SLASH 959# SLEN 65# 1440 1511 1523 1532 1566 1653 1705 1715 1718 1774 1801 1804 1807 1936 1969 1972 1975 1990 4027 4035 4073 4074 4078 4105 4117 4123 4130 4151 4155 4165 4192 4200 4209 4215 4216 4221 4223 4240 4242 4249 4264 4269 4270 4273 4275 4305 4309 4318 4321 4686 4757 4842 SLEN1 77# 1566 1573 1774 1780 SLONG 110# 1526 1708 6477 6478 6479 6480 6481 6482 6483 6484 6513 6514 6515 6516 6517 6518 SM10 1063# 1200 1343 SNTRP 752# SOURCE 1252 1545 1548 1754 1757 1959 1962 2290 2369 2446 2518 2596 2724 2796 SEQ 0238 2868 2940 3017 3089 5359 5362 5638 5639 5640 5961# 6216 6223 6230 6237 6307 6314 6321 6351 6357 6363 6369 6429 6435 6441 SP 69# 1252 1545 1548 1567 1754 1757 1775 1959 1962 1993 4029 4129 4153 4169 4254 4553 4689 4760 4845 4978 5359 5362 5424 SP1 78# 1567 1571 1576 1580 1775 1778 1786 SPACE 948# SRTDDT 41 43 778# START 766 1087# 1087 START1 785# START2 786# START3 787# START4 788# START5 789# STARTA 781 1103# STFLOT 4578 4589 4623# STOP 247# 2650 6015 6016 6017 6018 6020 6021 6022 6025 6026 6027 6028 6029 6030 6031 6032 6034 6035 6036 6037 6039 6040 6041 6042 6044 6045 6046 6047 6049 6050 6051 6052 6054 6055 6056 6057 6059 6060 6061 6064 6065 6066 6067 6182 STOPWD 2357 2434 2506 2584 2712 2784 2856 2928 3005 3077 3200 3361 3522 3683 3844 6182# STRL 185# 1934 2128 STRL0 183# 6534 6535 6538 6539 6540 6541 6544 6545 6546 6547 6548 6549 6551 6552 6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6572 6573 6576 6577 6578 6579 6582 6583 6584 6585 6586 6587 6589 6590 6591 6592 6593 6594 6595 6596 6597 6598 6599 6600 6601 STRL1 184# 6533 6535 6537 6539 6540 6542 6544 6545 6549 6550 6551 6552 6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6571 6573 6575 6577 6578 6580 6582 6583 6587 6588 6589 6590 6591 6592 6593 6594 6595 6596 6597 6598 6599 6600 6601 STRLSH 231# 1935 2129 STRP 752# STRT 1091 1097# SUBLNK 524# 782 SVAC 4018 4089 4233 4332 4472 5598# SVLUUO 1136# 1136 1151 5192 SWPTAB 1069# SWTEXR 797# SYSEXR 770# SZERO 107# 1509 1713 6460 6461 6462 6463 6464 6465 6508 6509 6510 T 1126# 1157 1175# 1197 1223 1246# 1283 1299 1334 1374 1424# 1615 1631# 1865 1905# 2058 2097# 2215 2243# 2256# 2311 2335# 2390 2412# 2467 2484# 2539 2562# 2617 2670 2690# 2745 2762# 2817 2834# 2889 2906# 2961 2983# 3038 3055# 3110 3122# 3171# 3288 3297 3303 3315 3332# 3449 3458 3464 3476 3493# 3610 3619 3625 3637 3654# 3771 3780 3786 3798 3815# 3932 3941 3947 3959 5148# 5161 5171 5190# 5203 5277# 5284 5292 5297 5302 5307 5312 TAB 949# TEMP 4290 4296 4298 5968# TESTPC 824# 1088 1129 1178 1249 1427 1634 1908 2100 2261 2340 2417 2489 2567 2695 2767 2839 2911 2988 3060 3176 3337 3498 3659 3820 TICKS 827# TN0 752# TN1 752# SEQ 0239 TOTALS 490# TRANFG 1648 1650# 1650 1660 1749 1758 1783 1921 1923 2000 2010 2115 2117 2167 3232 3393 3554 3715 3876 4220 4818 4878 5230 5287 5534 5543 TRAP1 1132# 1161 TRAP1A 1135# 1158 1159 TRAP2 1181# 1198 1203 1226 TRAP2A 1201 1206# 1224 TRAP3 1252# 1347 1381 TRAPT1 1112 1128# TRAPT2 1162 1177# TRAPT3 1204 1227 1248# 1346 TRP3TP 752# TSMUUO 5079 5092# TTNBRF 1007# TTYFIL 923# TTYSPD 924# TXTINH 501# UBAVEC 752# USER 814# 3159 5078 5124 5150 USERF 752# USRASB 33# 804 USRCRF 933# USRLFF 932# UUOBLK 5111 5137 5140 5141 5166 5898# UUODIS 886# UUOEXT 842# UUORTN 843# UUOSKP 840# $$MUUO 1038# $$OUTE 1044# $$TAX1 1056# $$TAX2 1057# $$TOGG 1050# $$UUO 1027# $ACC0 865# $BEND1 835# $BEND2 42 836# $CHRIN 926# $CRLF 928# $DEVCH 752# $DSKUP 805# $DVOFF 922# $EMODE 803# $FFF 930# $IBUF 978# $INEXT 980# $INNM 979# $ITRHL 846# $ITRX1 847# $LPAPE 6656 $MMAP 806# $MODVL 801# $MODVU 802# SEQ 0240 $OBUF 969# $ONETM 829# 1090 $OUTEX 971# $OUTNM 970# $PAPER 752 $PARER 853# $PNAME 799# $PSHER 857# $PVER 800# $RSRTX 849# $RSRTY 850# $SPAG1 869# $START 766# $SVAPR 867# $SVPAG 868# $SVPI 866# $SVUPC 872# $SVUUO 871# $TABF 929# $TTCHR 925# $TWCNT 921# $TYPNB 927# $UMODE 804# $UORTX 844# $USRHL 848# $UUOER 845# 886 $VTF 931# %ACTFL 878# %ACTUL 879# %COREC 877# %CORFL 876# %DISCR 880# %ERHI1 1019# %ERHI2 1020# %ERHI3 1021# .FHSLF 5097 .JB41 752# .JBAPR 752# .JBCNI 752# .JBDDT 752# .JBFF 752# .JBINT 56# 5112 .JBOPC 752# .JBREL 752# .JBREN 752# .JBSA 752# .JBSYM 752# .JBTPC 752# .JBUSY 752# .JBUUO 752# .JBVER 752# AIC 5102 APRID 752# SEQ 0241 BCIO 752# BCIOB 752# BSIO 752# BSIOB 752# CFLUSH 674# CINVAL 673# CLOKOP 668# CLRPT 752# CWRTBI 675# DEBRK 5135 DROPDV 635# EDMOD 266# 2258 2337 2414 2486 2564 2692 2764 2836 2908 2985 3057 EIR 5104 ENDUUO 681# 834 EOPUUO 682# 836 ERLOOP 722# 1158 1198 1224 1284 1300 1335 1375 1616 1866 2059 2216 2312 2391 2468 2540 2618 2671 2746 2818 2890 2962 3039 3111 3289 3316 3450 3477 3611 3638 3772 3799 3933 3960 ERLP1 723# ERLP2 724# 1346 3298 3304 3459 3465 3620 3626 3781 3787 3942 3948 ERRHLT 569# ERROR 731# 1155 1195 1220 1281 1296 1331 1371 1615 1865 2058 2215 2309 2388 2465 2537 2615 2670 2743 2815 2887 2959 3036 3108 3286 3313 3447 3474 3608 3635 3769 3796 3930 3957 ERROR1 742# 3295 3301 3456 3462 3617 3623 3778 3784 3939 3945 5156 5168 5198 5282 5291 5296 5301 5306 5311 ERUUO 721# 1157 1197 1223 1283 1299 1334 1374 1615 1865 2058 2215 2311 2390 2467 2539 2617 2670 2745 2817 2889 2961 3038 3110 3288 3297 3303 3315 3449 3458 3464 3476 3610 3619 3625 3637 3771 3780 3786 3798 3932 3941 3947 3959 5161 5171 5203 5284 5292 5297 5302 5307 5312 FATAL 568# 5162 5172 5204 FRD36 710# FRD8 711# FREAD 709# FSELEC 708# GET 552# 1602 1852 1894 1895 2086 2087 4738 4739 4740 4778 4825 4826 4827 4885 4886 4887 4922 4953 4954 4955 4998 5066 5067 5068 5127 5134 5138 5183 5479 5480 5650 5669 5670 5702 5703 5734 5765 5766 5767 5784 5800 5846 5847 GO 549# 1103 1439 1605 1614 1643 1652 1833 1855 1864 2042 2048 2057 2109 2199 2205 2214 2276 2283 2296 2301 2308 2355 2362 2375 2380 2387 2432 2439 2452 2457 2464 2504 2511 2524 2529 2536 2582 2589 2602 2607 2614 2629 2654 2660 2669 2710 2717 2730 2735 2742 2782 2789 2802 2807 2814 2854 2861 2874 2879 2886 2926 2933 2946 2951 2958 3003 3010 3023 3028 3035 3075 3082 3095 3100 3107 3213 3219 3224 3241 3259 3308 3312 3374 3380 3385 3402 3420 3469 3473 3535 3541 3546 3563 3581 3630 3634 3696 3702 3707 3724 3742 3791 3795 3857 3863 3868 3885 3903 3952 3956 4018 4081 4089 4226 4233 4324 4332 4392 4403 4407 4442 4465 4472 4507 4532 4541 4546 4578 4589 4708 4711 4716 4721 4732 4735 4769 4785 4788 4794 4801 4807 4816 4819 4822 4857 4868 4874 4876 4879 4882 4929 4932 4934 4941 4947 4950 4987 5011 5019 5027 5036 5041 5060 5063 5458 5521 5523 HALT 44 45 46 47 48 554# 855 JEN 556# SEQ 0242 JRSTF 555# 5128 5261 MAPADR 691# MAPCNK 692# MAPMEM 688# MAPPNT 694# MAPSET 693# MEMSEG 690# MEMZRO 689# MODPCP 701# MODPCU 700# MTROP 669# NAME 7# 9 PBELL 644# PCRL 638# 4730 4812 5478 5698 5746 5761 5764 5782 5842 PCRL2 642# PCRL2F 643# PCRLF 639# PFMAC 329# 3173 3334 3495 3656 3817 PFORCE 646# PGMINT 562# 1097 PJRST 553# PMSG 648# 1471 1500 1686 1739 4713 4718 4723 4727 4790 4796 4803 4809 4870 4936 4943 5005 5024 5032 5038 5046 5055 5473 5710 5723 5731 5776 5814 5817 5830 PMSGF 651# PNT1 604# PNT11 618# PNT11F 619# PNT1F 605# PNT2 606# PNT2F 607# PNT3 608# PNT3F 609# PNT4 610# PNT4F 611# PNT5 612# PNT5F 613# PNT6 614# PNT6F 615# PNT7 616# PNT7F 617# PNTA 590# PNTADF 621# PNTADR 620# PNTAF 591# PNTAL 592# PNTALF 593# PNTCHF 603# PNTCHR 602# PNTCI 600# 5690 5694 5757 5824 5837 PNTCIF 601# PNTCW 636# PNTCWF 637# SEQ 0243 PNTDCF 629# PNTDEC 628# 5781 PNTDS 630# PNTDSF 631# PNTHW 624# 5689 5693 5697 PNTHWF 625# PNTMSF 597# PNTMSG 596# 5682 PNTNM 632# PNTOCF 627# PNTOCS 626# 4725 4729 4811 5048 5057 5756 5823 5828 5836 5841 PNTOCT 622# PNTOTF 623# PNTSIX 633# 5008 5476 PNTSXF 634# 5714 5729 PSIXL 594# PSIXLF 595# PSIXM 598# 1471 1500 1686 1739 4713 4718 4723 4727 4790 4796 4803 4809 4870 4936 4943 5005 5024 5032 5038 5046 5055 5474 5711 5724 5732 5777 5815 5818 5831 PSIXMF 599# PSP 640# PSPF 641# PUT 551# 1564 1772 1879 1880 2071 2072 4704 4705 4706 4748 4781 4782 4783 4863 4864 4865 4895 4925 4926 4927 4966 5001 5002 5003 5119 5140 5178 5469 5470 5636 5657 5658 5679 5680 5721 5743 5744 5745 5774 5791 5808 5809 RDAPR 752# RDCSB 752# RDCSTM 752# RDEBR 752# RDHSB 752# RDINT 752# RDIO 752# RDIOB 752# RDPI 752# RDPUR 752# RDSPB 752# RDTIM 752# RDUBR 752# REPTLP 58# 1161 1203 1226 1347 1381 1621 1871 2064 2221 3118 3971 REPTUO 725# RESET 5095 RTN 550# 842 1896 2088 4083 4227 4326 4405 4418 4453 4466 4547 4616 4628 4702 4741 4779 4828 4861 4888 4923 4956 4999 5069 5086 5105 5113 5142 5184 5314 5462 5481 5488 5496 5519 5525 5544 5565 5592 5613 5630 5651 5671 5704 5715 5735 5768 5785 5801 5848 S 480# 482 486 515 517 526 529 544 545 547 558 560 564 566 571 575 717 719 752 757 763 790 792 810 812 830 832 861 863 881 883 901 903 911 913 934 939 965 967 974 976 982 984 990 992 996 998 1003 1005 1009 1011 1015 1017 1023 1025 1028 1030 1034 1036 1040 1042 1046 1048 1052 1054 1059 1061 1065 1067 1071 1073 1075 1077 SEQ 0244 SIR 5099 SIXBTZ 657# 1126 1175 1246 1424 1631 1905 2097 2243 2256 2335 2412 2484 2562 2690 2762 2834 2906 2983 3055 3122 3171 3332 3493 3654 3815 5148 5190 5277 SWITCH 663# 1106 TIOE 752# TIOEB 752# TION 752# TIONB 752# TTALTM 584# TTICHR 577# TTICLR 587# TTICNV 582# TTIDEC 581# TTINO 579# TTIOCT 580# TTIYES 578# TTLOOK 583# TTSIXB 585# TTYINP 586# WRAPR 752# WRCSB 752# WRCSTM 752# WREBR 752# WRHSB 752# WRINT 752# WRIO 752# WRIOB 752# WRPI 752# WRPUR 752# WRSPB 752# WRTIM 752# WRUBR 752# rtl/MAINDEC-10-DSKEA.txt0000700000175100010010000202626312061520340 12711 0ustar RobNone;DSKEA IDENTIFICATION -------------- PRODUCT CODE: AH-E337A-DD DIAGNOSTIC CODE: DSKEA PRODUCT NAME: DSKEAA0 DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC VERSION: 0.1 DATE RELEASED: MARCH 1978 MAINTAINED BY: DIAGNOSTIC ENGINEERING AUTHOR: JOHN R. KIRCHOFF COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT CORPORATION. THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. MAINDEC-10-DSKEA PAGE 2 SEQ 0003 TABLE OF CONTENTS ----------------- 1.0 ABSTRACT 2.0 REQUIREMENTS 2.1 EQUIPMENT 2.2 STORAGE 2.3 PRELIMINARY PROGRAMS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE 3.2 STARTING PROCEDURE 3.3 OPERATING PROCEDURE 4.0 DATA SWITCH FUNCTIONS 5.0 ERRORS 6.0 ITERATION COUNTER 7.0 CYCLE TIME 8.0 OPERATIONAL VARIATIONS 9.0 MISCELLANEOUS 10.0 LISTING MAINDEC-10-DSKEA PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 DIAGNOSTIC TESTS THE PAGING HARDWARE OF THE DECSYSTEM 2020 CENTRAL PROCESSOR. THE DIAGNOSTIC CONSISTS OF THE FOLLOWING TESTS: A. EXEC BASE REGISTER B. USER BASE REGISTER E. MAP INSTRUCTION F. PAGE FAIL TRAPPING G. PAGING MEMORY H. EXEC-PER-PROCESS MAPPING I. PAGING MEMORY RELIABILITY J. PAGED DATA READ K. PAGED DATA WRITE L. WRITE PROTECT M. PAGED BLT N. BASE REGISTER RELOCATION 1. MUUO 2. PAGE FAIL 3. EXEC-PER-PROCESS 4. LUUO 5. TRAPPING 6. INTERRUPTS 7. EPMP PAGING O. INSTRUCTION PAGE FAIL P. MONITOR UUOS Q. VARIOUS MACHINE MODES R. TRAP LOGIC THIS DIAGNOSTIC OPERATES ONLY IN EXEC MODE. MAINDEC-10-DSKEA PAGE 4 SEQ 0005 2.0 REQUIREMENTS 2.1 EQUIPMENT A DECSYSTEM 2020 WITH 32K OF MEMORY. DIAGNOSTIC CONSOLE CONSOLE TELETYPE LOAD DEVICE 2.2 STORAGE THE PROGRAM USES ALL OF THE FIRST 32K OF MEMORY 2.3 PRELIMINARY PROGRAMS ALL PRECEDING CENTRAL PROCESSOR DIAGNOSTICS. 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURES THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE PROGRAM BE RESIDENT IN THEDECSYSTEM 2020. LOAD VIA CONSOLE PROCESSOR OR WITH "SMMON". 3.2 STARTING PROCEDURE A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO 4.0 DATA SWITCH FUNCTIONS) B. STAND-ALONE STARTING ADDRESS IS 30000. C. SPECIAL FEATURE RESTART IS 30004(8). THIS CLEARS THE PASS COUNTER SO THE MAXIMUM ADDRESSING SETUP QUESTION MAY BE REPEATED. MAINDEC-10-DSKEA PAGE 5 SEQ 0006 3.3 OPERATING PROCEDURE A. TO THOROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA SWITCHES SHOULD BE SET TO 0. B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING. THE ERROR MESSAGES USED IN CONJUNCTION WITH THE LISTING AND SCOPING IF NECESSARY SHOULD ALLOW THE FAILING COMPONENT TO BE ISOLATED AND REPLACED AND/OR REPAIRED. C. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING ERRORS ON THE LINE PRINTER. MAINDEC-10-DSKEA PAGE 6 SEQ 0007 4.0 DATA SWITCH FUNCTIONS SWITCH STATE FUNCTION ------ ----- -------- 0 ABORT 0 NORMAL OPERATION 1 ABORT AT END OF PASS 1 RSTART NOT USED 2 TOTALS NOT USED 3 NOPNT 0 NORMAL TYPEOUT 1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED) 4 PNTLPT 0 NORMAL OUTPUT TO TTY 1 PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 5 DING 0 NO FUNCTION 1 RING TTY BELL ON ERROR 6 LOOPER 0 PROCEED TO NEXT TEST 1 ENTER SCOPE LOOP ON TEST ERROR 7 ERSTOP 0 NO FUNCTION 1 HALT ON TEST ERROR 8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING 1 PRINT ALL ERRORS, EVEN IF SAME ERROR 9 RELIAB 0 QUICK VERIFY OPERATION 1 RELIABILITY MODE OPERATION 10 TXTINH 0 PRINT FULL ERROR MESSAGES. 1 INHIBIT COMMENT PORTION OF ERROR MESSAGES. MAINDEC-10-DSKEA PAGE 7 SEQ 0008 5.0 ERRORS ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR PRINTOUT CONTAINS THE TEST TITLE, TEST PASS COUNT, PC OF THE FAILURE, SUBTEST TITLE, SUBTEST FUNCTION, CORRECT WORD, ACTUAL RESULTS, DISCREPANCY WORD, AND A DIAGNOSTIC COMMENT. THE FOLLOWING IS AN EXAMPLE ERROR MESSAGE: DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC (DSKEA) TEST PASS COUNT = # ERROR IN (SUBTEST TITLE) - (SUBTEST FUNCTION) CORRECT: XXXXXX XXXXXX ACTUAL: YYYYYY YYYYYY DISCREP: ZZZZZZ ZZZZZZ (DIAGNOSTIC COMMENT) THE SUBTEST TITLE, SUBTEST FUNCTION, AND DIAGNOSTIC COMMENT PORTION OF THE ERROR TYPEOUT MAY BE INHIBITED BY SETTING THE 'TXTINH' SWITCH. THIS ALLOWS FOR SHORTER PRINTOUTS ON REPETITIVE FAILURES. THE TEST TITLE IS ONLY PRINTED WHEN STARTING THE PROGRAM OR ON THE FIRST FAILURE IF IT HAS NOT BEEN PRINTED YET. THE TEST PASS COUNT IS ONLY PRINTED ON ERROR WHICH OCCUR ON PASSES AFTER THE FIRST PASS. IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET. MAINDEC-10-DSKEA PAGE 8 SEQ 0009 6.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM IS PRINTED ON THE CONSOLE TTY. 7.0 CYCLE TIME THE PROGRAM CYCLE TIME IS A UNDER A MINUTE AND IS THEREFORE SUITABLE FOR MARGINING, VIBRATION TESTS, ETC. 8.0 OPERATIONAL VARIATIONS THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA OF THE PROCESSOR. 9.0 MISCELLANEOUS THIS DIAGNOSTIC DOES NOT USE THE "INHPAG" SWITCH AND DOES NOT USE THE CACHE. 10.0 LISTING HISTORY FILE FOR DSKEA SEQ 0010 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKEA TITLE: DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 1 SEQ 0011 DOCUMENT ************** DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ ************** COPYRIGHT 1978 DIGITAL EQUIPMENT CORPORATION MAYNARD, MASS. 01754 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 2 SEQ 0012 TABLE OF CONTENTS ******************* 24 DIAGNOSTIC PARAMETERS 165 PROGRAM MACRO'S 202 PROGRAM MACROS AND OPDEFS 250 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 285 PROGRAM/SUBROUTINE PARAMETERS 487 ERROR HANDLING UUO DEFINITIONS 525 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 853 PROGRAM INITIALIZATION 899 TEST EXEC BASE REGISTER 1301 TEST USER BASE REGISTER 1735 TEST PROCESSOR TRAPS 1821 PDL TRAPPING TESTS 2418 TEST MAP INSTRUCTION 2516 TEST PAGE FAIL TRAPPING 2627 TEST EXEC-PER-PROCESS MAPPING 2741 TEST PAGING AND SCRATCHPAD MEMORIES 2871 TEST PAGED DATA READ 3015 TEST PAGED DATA WRITE 3233 TEST PAGE FAIL WORD 3293 TEST WRITE PROTECTED PAGING 3384 PAGED BLT PAGING AND ADDRESSING TEST 3471 TEST BASE REGISTER RELOCATION DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 3 SEQ 0013 TABLE OF CONTENTS ******************* 3864 TEST INTERRUPT RELOCATION 4095 TEST PAGE REFILL RELOCATION 4176 INSTRUCTION PAGE FAIL TESTING 4743 TRAP INSTRUCTION PAGE FAIL TEST 4970 INTERRUPT INSTRUCTION PAGE FAIL 5058 PAGING MEMORY FLOATING BIT TEST TABLE 5110 MONITOR UUO TRAP TESTING 5283 TEST MUUO'S IN CONCEALED MODE 5466 TRAP TESTING 5541 FLAG SETTING 6016 TEST IOT'S IN CONCEALED MODE 6104 TEST USER MODE ADDRESSING 6180 SPECIAL PROGRAM SUBROUTINES 6218 *STOR* RESERVED STORAGE, MARCH 1978 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 4 SEQ 0014 1 MAINDEC-10-DSKEA 17 COPYRIGHT 1978 DIGITAL EQUIPMENT CORPORATION MARLBORO, MASS. 01752 21 JOHN R. KIRCHOFF ***************************************************************** 24 DIAGNOSTIC PARAMETERS ***************************************************************** 26 SUBROUTINE ASSEMBLY PARAMETERS 34 ACCUMULATOR DEFINITIONS 45 MISCELLANEOUS 57 MAP INSTRUCTION READOUT ASSIGNMENTS BIT 0 - USER ADDRESS 1 - PAGE FAIL 2 - ACCESS 3 - WRITABLE 4 - SOFTWARE 7 - CACHE 8 - PAGED REF 9-13 - 0 ^ - CORE ADDRESS BITS 16-35 PAGE FAIL ERROR FORMAT IF BIT 1 = 1 20 - I/O PAGE FAIL 25 - PAGE TABLE PARITY ERROR 36 - HARD MEMORY ERROR 37 - NXM PAGE TABLE ENTRY WORD FORMAT BIT 0 - ACCESS 2 - WRITABLE 3 - SOFTWARE 4 - CACHE ^ - PHYSICAL PAGE ADDRESS BITS 16-26 ;LEFT HALF = EVEN VIRTUAL PAGE ;RIGHT HALF = ODD VIRTUAL PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 5 SEQ 0015 93 BEGIN PARAMETERS 124 KS-10 EXEC PAGE MAP PAGE ASSIGNMENTS 137 KS-10 USER PAGE MAP PAGE ASSIGNMENTS ***************************************************************** 165 PROGRAM MACRO'S ***************************************************************** 169 TRY TO SET FLAG VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST ***************************************************************** 202 PROGRAM MACROS AND OPDEFS ***************************************************************** 231 SPECIAL PAGE TABLE DEFINITIONS ***************************************************************** 250 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 ***************************************************************** 255 DATA SWITCHES LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS ***************************************************************** 285 PROGRAM/SUBROUTINE PARAMETERS ***************************************************************** 288 SPECIAL SUBPROGRAM LINKAGES 299 SPECIAL SUBROUTINE FATAL HALTS USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 331 SUBROUTINE INITIALIZATION CALL 337 HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 344 TERMINAL INPUT UUO'S ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 360 TERMINAL OUTPUT UUO'S. 426 SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING CONSERVES CORE OVER ASCIZ DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 6 SEQ 0016 431 CONSOLE SWITCH INPUT UUO. READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF USER MODE. 437 CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 443 KS-10 CACHE OPERATION UUO'S 448 END OF PASS/PROGRAM UUOS 451 DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 456 MEMORY MANAGEMENT UUO'S UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, ADDRESS CONVERSION, ETC... 468 DEVICE CODE MODIFICATION UUO ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO IOT'S TO A DIFFERENT DEVICE CODE. 478 "DIAMON" FILE SELECTION AND READ UUOS ***************************************************************** 487 ERROR HANDLING UUO DEFINITIONS ***************************************************************** 490 ERROR HANDLER PARAMETERS 499 THE ERROR HANDLER MACROS 501 A MACRO TO REPORT AN ERROR AND LOOP 512 A MACRO TO REPORT AN ERROR AND NOT LOOP ***************************************************************** 525 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 ***************************************************************** 530 PROGRAM STARTING ADDRESSES THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 563 PROGRAM FIXED PARAMETER AREA 583 PROGRAM VARIABLE PARAMETER AREA DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 7 SEQ 0017 603 SPECIAL PROGRAM DISPATCH ADDRESSES 634 PROCESSOR CONTROL STORAGE 654 UUO DISPATCH TABLE 674 MEMORY MANAGMENT STORAGE 684 PRINT CONTROL STORAGE 707 THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: MOVEI NAME PNTA ;OR PNTAF 738 USER MODE OUTPUT FILE INFORMATION 747 DISK UPDATE MODE FILE INFORMATION 755 PUSHDOWN LIST CONTROL INFORMATION 763 POWER LINE CLOCK FREQUENCY FLAG 769 KL10 CACHE CONTROL FLAGS 776 NUMBER INPUT DIGIT FLAG 782 KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 788 ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 796 SPECIAL USERS UUO INTERCEPT INSTRUCTION 801 USER MODE MONITOR TYPE FLAG 807 SPECIAL USERS MUUO INTERCEPT INSTRUCTION 813 SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 819 "SWITCH" CALL USAGE CONTROL 825 SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 832 SM10 (KS-10) PROCESSOR TYPE FLAG 838 RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 844 SPECIAL FUTURE EXPANSION ROOM DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 8 SEQ 0018 848 END OF FIXED STORAGE ***************************************************************** 853 PROGRAM INITIALIZATION ***************************************************************** ***************************************************************** 899 TEST EXEC BASE REGISTER ***************************************************************** 905 LOAD EXEC BASE REGISTER WITH ALL ZERO'S WITH CONO EXEC BASE REGISTER SHOULD THEN BE CLEAR. 921 LOAD EXEC BASE REGISTER WITH ALL ONE'S IF ANY BIT IS READ BACK THEN LOAD EBR SHOULD WORK. 936 LOAD EXEC BASE REGISTER WITH TRAP ENABLE BIT 955 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 966 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 980 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 994 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1008 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1022 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1036 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1050 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1064 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1078 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1092 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 9 SEQ 0019 1106 CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1120 LOAD EXEC BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK 1136 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1147 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1161 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1175 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1189 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1203 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1217 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1231 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1245 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1259 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1273 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. 1287 LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO TO CHECK BIT INTERACTION. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 10 SEQ 0020 ***************************************************************** 1301 TEST USER BASE REGISTER ***************************************************************** 1303 LOAD USER BASE REGISTER WITH ALL ZERO'S. USER BASE REGISTER SHOULD THEN BE CLEAR. 1320 LOAD USER BASE REGISTER WITH ALL ONE'S. IF ANY BIT IS READ BACK THEN LOAD UBR SHOULD WORK. 1339 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1352 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1368 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1384 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1400 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1416 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1432 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1448 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1464 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1480 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1496 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1512 CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1527 LOAD USER BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK. 1543 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 11 SEQ 0021 1556 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1572 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1588 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1604 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1620 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1636 LOAD USER BASE REGISTER WITH A FLOATING ZERO 1637 CHECK BIT INTERACTION. 1652 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1668 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1684 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1700 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. 1716 LOAD USER BASE REGISTER WITH A FLOATING ZERO CHECK BIT INTERACTION. ***************************************************************** 1735 TEST PROCESSOR TRAPS ***************************************************************** 1748 TEST TRAP 3 TRAP 1772 TEST PUSHDOWN OVERFLOW TRAP 1795 TEST OVERFLOW TRAP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 12 SEQ 0022 ***************************************************************** 1821 PDL TRAPPING TESTS ***************************************************************** 1823 THESE TEST FOR THE PUSHDOWN INSTRUCTIONS INSURE THAT THEY WILL INDEED TRAP WHEN AN OVERFLOW OR UNDERFLOW CONDITION OCCURS. THESE TEST ALSO VERIFY THE VALIDITY OF THE INFORMATION PROCESSED BY THE INSTRUCTION, AS THEY SHOULD GIVE VALID RESULTS INDEPENDENT OF WHETHER OR NOT THEY TRAP. 1829 TEST PUSH INSTRUCTION 1859 TEST PUSHJ INSTRUCTION 1890 TEST POP INSTRUCTION 1916 TEST POPJ INSTRUCTION 1941 TEST OVERFLOW TRAP WITH "ASH" 1964 TEST OVERFLOW TRAP WITH "ASHC" 1988 TEST OVERFLOW TRAP WITH "MUL" 2011 TEST OVERFLOW TRAP WITH "IMUL" 2034 TEST OVERFLOW TRAP WITH "ADJBP" 2052 TEST OVERFLOW TRAP WITH "FSC" 2070 TEST OVERFLOW TRAP WITH "FIX" 2093 TEST OVERFLOW TRAP WITH "FIXR" 2116 TEST OVERFLOW TRAP WITH "FAD" 2134 TEST OVERFLOW TRAP WITH "DFAD" 2152 TEST OVERFLOW TRAP WITH "FSB" 2171 TEST OVERFLOW TRAP WITH "DFSB" 2191 TEST OVERFLOW TRAP WITH "FMP" 2209 TEST OVERFLOW TRAP WITH "DFMP" 2227 TEST NO-DIVIDE TRAP WITH "DIV" 2255 TEST NO-DIVIDE TRAP WITH "IDIV" DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 13 SEQ 0023 2283 TEST NO-DIVIDE TRAP WITH "FDV" 2311 TEST NO-DIVIDE TRAP WITH "FDVR" 2339 TEST NO-DIVIDE TRAP WITH "DFDV" 2372 TRAPPING SUBROUTINES 2407 TRAP STORAGE ***************************************************************** 2418 TEST MAP INSTRUCTION ***************************************************************** 2424 PERFORM 'MAP' OF ADDRESS 0. MAP READOUT SHOULD BE: ACCESS, WRITEABLE, SOFTWARE, PAGED REF 2440 PERFORM 'MAP' OF ADDRESS 337000, HIGHEST EXEC PAGED MEMORY ADDRESS. MAP READOUT SHOULD BE: ACCESS, WRITABLE, SOFTWARE, PAGED REF 2452 CLEAR PAGE MAP 2459 PERFORM 'MAP' OF ADDRESS 400000, LOWEST EPMP PAGING ADDRESS. SINCE PAGE MAP IS CLEAR MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. 2472 PERFORM 'MAP' OF ADDRESS 777000, HIGHEST EPMP PAGING ADDRESS. SINCE PAGE MAP IS CLEAR MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. 2484 SETUP EPMP FOR ADDRESS 400000 WITH ALL BUT ACCESS. MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD SHOULD HAVE NO EFFECT. 2499 SETUP EPMP FOR ADDRESS 777000 WITH ALL BUT ACCESS. MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD SHOULD HAVE NO EFFECT. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 14 SEQ 0024 ***************************************************************** 2516 TEST PAGE FAIL TRAPPING ***************************************************************** 2522 DO A 'MOVE' FROM LOCATION 400000. SINCE PAGE MAP IS CLEAR THIS SHOULD PAGE FAIL. 2550 PAGE FAULT TRAP SHOULD RETURN HERE 2569 PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY 2575 CHECK PAGE FAIL WORD FOR MAXIMUM ADDRESS DO A 'MOVE' FROM LOCATION 777777. 2591 PAGE FAULT TRAP SHOULD RETURN HERE 2610 PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY 2617 RESET PAGE FAULT TRAP ***************************************************************** 2627 TEST EXEC-PER-PROCESS MAPPING ***************************************************************** 2643 PERFORM 'MAP' OF ADDRESS 340000 LOWEST UPMP EXEC-PER-PROCESS ADDRESS. SINCE PAGE MAP IS CLEAR MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. 2657 PERFORM 'MAP' OF ADDRESS 377000 HIGHEST UPMP EXEC-PER-PROCESS ADDRESS. SINCE PAGE MAP IS CLEAR MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. 2669 SETUP UPMP FOR ADDRESS 340000 WITH ALL BUT ACCESS. MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. 2682 SETUP UPMP FOR ADDRESS 377000 WITH ALL BUT ACCESS MAP READOUT SHOULD BE: PAGE FAIL, PAGING MEMORY NO MATCH. 2699 UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 377 WITH ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 0. 'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP' SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY WITH PAGE ADDRESS 377. THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT' BY THE MAP INSTRUCTION. READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG') SHOULD BE: DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 15 SEQ 0025 PAGE 377',EXEC MEMORY SPACE, RELOAD COUNTER. 2719 UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 340 WITH ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 03777. 'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP' SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY WITH PAGE ADDRESS 340. THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT' BY THE MAP INSTRUCTION. READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG') SHOULD BE: PAGE 340',EXEC MEMORY SPACE, RELOAD COUNTER. ***************************************************************** 2741 TEST PAGING AND SCRATCHPAD MEMORIES ***************************************************************** 2743 PAGE MAP IS SETUP FOR 42 PAGES WITH DATA THAT PRODUCES FLOATING BIT PATTERNS IN BOTH THE PAGING MEMORY AND THE SCRATCHPAD MEMORY TO CHECK REGISTER AND BIT INTERACTION. ALL PAGING ADDRESSES ARE SETUP SO PAGING MUST REFILL ON EVERY OPERATION. THIS SHOULD VERIFY THAT THE PAGING REFILL OPERATION AND THE PAGING AND SCRATCHPAD REGISTERS ARE OPERATIONAL. 2813 CLEAR PAGING MEMORY AND PAGE MAP CHECK THAT ALL PREVIOUS REFERENCES TRAP SHOULD IF AM IS REALLY CLEAR ***************************************************************** 2871 TEST PAGED DATA READ ***************************************************************** 2873 USING PAGING ADDRESSES 400XXX AND 777XXX 2891 TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING. 'E' = PAGE 400 (HIGH ORDER 9 BITS), LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR400' ADDRESS. PAGE MAP RELOCATION BITS SETUP FOR HIGH ORDER 9 BITS OF 'PGR400' ADDRESS. THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS: HIGH ORDER 9 BITS FROM PAGE MAP AND LOW ORDER 9 BITS OF 'PGR400' ADDRESS. 2909 TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING. 'E' = PAGE 777 (HIGH ORDER 9 BITS), LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR777' ADDRESS. PAGE MAP RELOCATION BITS SETUP FOR HIGH ORDER 9 BITS OF 'PGR777' ADDRESS. THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS: HIGH ORDER 9 BITS FROM PAGE MAP AND LOW ORDER 9 BITS OF 'PGR777' ADDRESS. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 16 SEQ 0026 2931 TEST READ OF DATA FROM A DATA BLOCK USING PAGED REFERENCES THAT POINT TO CONSECUTIVE DATA WORDS IN AN EXEC UNPAGED MEMORY AREA. DATA CONSISTS OF COMPLEMENT OF AND PAGING REFERENCE ADDRESS. ***************************************************************** 3015 TEST PAGED DATA WRITE ***************************************************************** 3017 USING PAGING ADDRESS 400XXX AND 777XXX PAGING REFERENCES POINT TO EXEC UNPAGED ADDRESSES. 3036 TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING. 'E' = PAGE 400 (HIGH ORDER 9 BITS), LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW400' ADDRESS. PAGE MAP RELOCATION BITS SETUP FOR HIGH ORDER 9 BITS OF 'PGW400' ADDRESS. THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS: HIGH ORDER 9 BITS FROM PAGE MAP AND LOW ORDER 9 BITS OF 'PGW400' ADDRESS. 3062 TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING. 'E' = PAGE 777 (HIGH ORDER 9 BITS), LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW777' ADDRESS. PAGE MAP RELOCATION BITS SETUP FOR HIGH ORDER 9 BITS OF 'PGW777' ADDRESS. THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS: HIGH ORDER 9 BITS FROM PAGE MAP AND LOW ORDER 9 BITS OF 'PGW777' ADDRESS. 3092 TEST WRITE OF DATA USING PAGED ADDRESS. DATA IS WRITTEN INTO CONSECUTIVE DATA WORDS IN AN EXEC UNPAGED DATA AREA. DATA CONSISTS OF PAGED ADR AND COMPLEMENT OF PAGED ADDRESS. ***************************************************************** 3233 TEST PAGE FAIL WORD ***************************************************************** 3239 VERIFY THAT THE PROPER PAGE FAIL CODE OCCURS ON A PAGED READ TO AN AREA WITHOUT THE ACCESS BIT BUT WITH THE PUBLIC, WRITEABLE,SOFTWARE & CACHE BIT. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 17 SEQ 0027 ***************************************************************** 3293 TEST WRITE PROTECTED PAGING ***************************************************************** 3295 TRYING TO WRITE INTO A WRITE PROTECTED AREA SHOULD CAUSE A PAGE FAILURE ***************************************************************** 3384 PAGED BLT PAGING AND ADDRESSING TEST ***************************************************************** 3386 CHECKS THAT ADDRESSING FROM 340000 TO 777777 WORKS. ALL PAGING REFERENCES RELOCATE INTO ACTUAL ADDRESSES 76000 TO 76777. BLT USES ALL ADDRESS FROM 340000 TO 777777. ***************************************************************** 3471 TEST BASE REGISTER RELOCATION ***************************************************************** 3473 SETUP PAGE MAP PAGES AS PAGE 76 SETUP PAGE 0 PAGE MAP FOR ERRORS SETUP BASE REGISTERS TEST MUUO FOR PAGE 0 AND FOR PAGE 76 TEST THAT EXEC PAGE FAIL WORD STORES CORRECTLY IN PAGE 76 USING USER BASE REGISTER RELOCATION. 3523 TEST USER BASE REGISTER RELOCATION BY USING AN MUUO OF 0,,654321. 3526 TEST MUUO FIRST WITH EPMP & UPMP AS PAGE 0. 3555 TEST THAT WITH UPMP RELOCATED TO PAGE 76 AN MUUO TRAPS CORRECTLY AND RETRIEVES NEW PC FROM RELOCATED USER PAGE MAP PAGE. ALSO TEST THAT MUUO AND TRAPPED PC GET STORED CORRECTLY IN RELOCATED UPMP. 3585 TEST USER BASE REGISTER RELOCATION BY USING EXEC PAGE FAIL WORD 3618 TEST BASE REGISTER RELOCATION BY USING EXEC-PER-PROCESS PAGING AND PAGING REFILL DATA FROM RELOCATED PAGE WITH USER BASE REGISTER SET TO PAGE 76. 3697 TEST THAT A TRAP FROM THE EXEC-PER-PROCESS AREA USES THE CORRECT BASE REGISTER 3742 TEST BASE REGISTER RELOCATION BY USING PAGE FAULT TRAP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 18 SEQ 0028 3786 TEST BASE REGISTER RELOCATION BY USING TRAPPING 3796 TEST RELOCATED TRAP 3 3817 TEST RELOCATED TRAP 2 3838 TEST RELOCATED TRAP 1 ***************************************************************** 3864 TEST INTERRUPT RELOCATION ***************************************************************** 3866 SET PAGE 0 INTERRUPT LOCATIONS AS ERROR SETUP RELOCATED PAGE INTERRUPT LOCATIONS FOR TESTING RELOCATE EXEC BASE REGISTER TEST INTERRUPTS 3907 PAGE 0 INTERRUPT ERROR HANDLER 3920 RELOCATED INTERRUPT MACRO'S 3923 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = APRCHN. 3936 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = ITRCHN 3946 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 7 3958 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 7 3966 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 6 3978 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 6 3986 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 5 3998 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 5 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 19 SEQ 0029 4006 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 4 4018 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 4 4026 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 3 4038 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 3 4046 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 2 4058 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 2 4066 SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM PAGE MAP RELOCATED TO PAGE 76. INTERRUPT CHANNEL = 1 4078 INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 1 ***************************************************************** 4095 TEST PAGE REFILL RELOCATION ***************************************************************** 4097 BY PUTTING REFILL DATA IN PAGE 76. AND RELOCATING EXEC BASE REGISTER ***************************************************************** 4176 INSTRUCTION PAGE FAIL TESTING ***************************************************************** 4178 TEST BLOCK TRANSFER PAGE FAIL SETUP 5 WORD BLT ACROSS PAGE BOUNDRY FIRST PAGE DATA RELOCATION DATA IN PAGE MAP SECOND PAGE DATA RELOCATION DATA NOT IN PAGE MAP PERFORM BLT SHOULD PAGE FAIL AFTER TRANSFERING 3 WORDS. TEST PAGE FAIL, BLT AC, ETC. REDO BLT, ON PAGE FAIL SETUP 2ND PAGE RELOCATION DATA AND CONTINUE BLT. TEST FOR PROPER COMPLETION. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 20 SEQ 0030 4223 BLT PAGE FAIL RETURN 4275 TEST BLT PAGE FAIL CONTINUE 4294 BLT SHOULD PAGE FAIL PAGE MAP IS THEN SETUP AND BLT CONTINUED 4338 ON PAGE FAIL, SETUP NEXT PAGE FOR BLT 4344 TEST BYTE PAGE FAIL FIRST TEST WITH BYTE DATA IN UNMAPPED PAGE THEN TEST WITH BYTE POINTER IN UNMAPPED PAGE. 4376 ILDB PAGE FAIL RETURN BYTE POINTER SHOULD HAVE BEEN INCREMENTED PAGE FAIL SHOULD HAVE OCCURRED WHEN DATA WAS FETCHED. 4404 TEST DEPOSIT BYTE PAGE FAIL 4420 IDPB PAGE FAIL RETURN 4450 TEST BYTE POINTER FETCH PAGE FAIL BYTE POINTER IN PAGED AREA WITH PAGE MAP CLEARED THEREFORE PAGE FAIL SHOULD OCCUR ON POINTER FETCH AND POINTER SHOULD NOT BE INCREMENTED. 4471 POINTER FETCH PAGE FAIL RETURN 4505 TEST DOUBLE MOVE PAGE FAIL FIRST PAGE FAIL ON FIRST OPERAND FETCH OPERANDS FETCHED FROM PAGED AREA WITH PAGE MAP CLEAR. 4537 PAGE FAIL RETURN 4562 PAGE FAIL DOUBLE MOVE ON SECOND WORD DATA FOR FIRST OPERAND IN PAGE WITH RELOCATION DATA IN PAGE MAP. DATA FOR SECOND OPERAND ACROSS PAGE BOUNDRY PAGE MAP CLEAR FOR THAT PAGE. 4586 PAGE FAIL RETURN 4614 TEST DOUBLE MOVE TO MEMORY PAGE FAIL FIRST TEST WITH DATA DESTINATION ADDRESSES IN A PAGED AREA WITH THE PAGE MAP CLEAR. 4649 PAGE FAIL RETURN 4686 TEST DOUBLE MOVE TO MEMORY PAGE FAIL PAGE FAIL ON SECOND WORD. PAGE MAP SETUP SO FIRST OPERAND IS STORED IN PAGE WITH RELOCATION DATA IN PAGE MAP. SECOND OPERAND STORE IS ACROSS PAGE BOUNDRY WITH PAGE MAP CLEAR FOR THAT PAGE. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 21 SEQ 0031 4711 PAGE FAIL RETURN ***************************************************************** 4743 TRAP INSTRUCTION PAGE FAIL TEST ***************************************************************** 4745 CAUSE A TRAP, THE TRAP "JSR" IS TO A PAGED ADDRESS THAT PAGE FAILS PAGE FAIL ROUTINE VERIFIES PAGE FAIL INFO & CORRECT PC WORD PAGE TABLE THEN SETUP AND TRAP CONTINUED TRAP SHOULD THEN COMPLETE TRAP HANDLER THEN VERIFIES CORRECT PC WORD 4787 HERE IF PAGE FAIL TRAP HAPPENED 4808 SETUP FOR PAGE FAIL TRAP CONTINUE 4820 HERE IF TRAP CONTINUED PROPERLY 4839 CAUSE A TRAP TO A PAGE FAIL PAGE TRAP HANDLER THEN VERIFIES CORRECT PC WORD 4886 HERE IF TRAP HAPPENED WITHOUT PAGE FAIL 4896 HERE IF PAGE FAIL TRAP HAPPENED 4916 TEST I/O INSTRUCTION PAGE FAIL ***************************************************************** 4970 INTERRUPT INSTRUCTION PAGE FAIL ***************************************************************** 4976 CAUSE AN INTERRUPT THAT HAS FOR ITS INTERRUPT HANDLING INSTRUCTION A "JSR" TO A PAGE FAIL ADDRESS. AN I/O PAGE FAIL INTERRUPT SHOULD OCCUR. 4983 FIRST VERIFY THAT THE METER CAN CAUSE AN INTERRUPT 4998 NOW USE IT TO CAUSE I/O PAGE FAIL 5029 IF PAGE FAIL HAPPENED, ERROR 5037 APR ERROR INTERRUPT, CHECK PROPER CONDITIONS DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 22 SEQ 0032 ***************************************************************** 5058 PAGING MEMORY FLOATING BIT TEST TABLE ***************************************************************** 5060 LH = SCRATCHPAD DATA RH = PAGING ADDRESS ***************************************************************** 5110 MONITOR UUO TRAP TESTING ***************************************************************** 5112 TEST MUUO TRAPPING TO 424(KERNAL NO TRAP) 5190 MONITOR UUO TEST - UUO STORE INTO 424 5224 MONITOR UUO - STORE CORRECT PC 5250 TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING A MONITOR UUO ***************************************************************** 5283 TEST MUUO'S IN CONCEALED MODE ***************************************************************** 5285 MONITOR UUO TEST - TRAPPING IN CONCEALED MODE 5332 MONITOR UUO TEST - UUO STORE INTO 424 5380 MONITOR UUO - STORING THE CORRECT PC 5419 MUUO STORING THE CORRECT E FIELD ***************************************************************** 5466 TRAP TESTING ***************************************************************** 5468 CAUSE TRAPS VIA JRSTF INSTRUCTION TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0 5495 TEST PUSHDOWN LIST OVERFLOW TRAP TO 422 5518 TRAP3 TRAP TEST TRAPPING TO 423 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 23 SEQ 0033 ***************************************************************** 5541 FLAG SETTING ***************************************************************** 5545 TRY TO SET USERF VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5588 THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER MODE RESTORE VIA MUUO 5610 TRY TO SET EXIOT VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5656 TRY TO SET AROV VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5701 TRY TO SET CRY0 VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5746 TRY TO SET CRY1 VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5791 TRY TO SET FOV VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5836 TRY TO SET BIS VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5881 TRY TO SET FXU VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5926 TRY TO SET DCK VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST 5972 TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP TRAPS TO ANY MODE IS OK FOR THIS TEST ***************************************************************** 6016 TEST IOT'S IN CONCEALED MODE ***************************************************************** 6090 ILLEGAL USER MODE IOT TABLE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ DECDOC VER 00.24 29-MAR-78 15:26:30 PAGE 24 SEQ 0034 ***************************************************************** 6104 TEST USER MODE ADDRESSING ***************************************************************** 6106 USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER ***************************************************************** 6180 SPECIAL PROGRAM SUBROUTINES ***************************************************************** 6195 PAGE TABLE SETUP ***************************************************************** 6218 *STOR* RESERVED STORAGE, MARCH 1978 ***************************************************************** DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1 DSKEAT MAC 29-Mar-78 14:48 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0035 1 ;*MAINDEC-10-DSKEA 2 3 000000 MCNVER=0 4 000001 DECVER=1 5 6 XLIST 7 LIST 8 LALL 9 10 NAME \MCNVER,\DECVER^ 11 12 TITLE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1^ 13 14 000137 LOC 137 15 000137 000000 000001 MCNVER,,DECVER 16 17 ;*COPYRIGHT 1978 18 ;*DIGITAL EQUIPMENT CORPORATION 19 ;*MARLBORO, MASS. 01752 20 21 ;*JOHN R. KIRCHOFF 22 23 NOSYM DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 2 DSKEAT MAC 29-Mar-78 14:48 DIAGNOSTIC PARAMETERS SEQ 0036 24 SUBTTL DIAGNOSTIC PARAMETERS 25 26 ;*SUBROUTINE ASSEMBLY PARAMETERS 27 28 000001 EXCASB= 1 ;ASSEMBLE FOR EXEC MODE 29 000001 PGMEND= 1 ; " PROGRAM END STATEMENT 30 000100 DEBUG= 100 ; " ROOM FOR DEBUGGING 31 030000 MODDVL= BEGIN 32 030000 MODDVU= BEGIN 33 34 ;*ACCUMULATOR DEFINITIONS 35 36 000006 CNTR=6 ;COUNTER AC 37 000007 AC=7 ;COMMON AC 1 38 000010 AC1=10 ;COMMON AC 2 39 000011 AC2=11 ;COMMON AC 3 40 000012 AC3=12 ;COMMON AC 4 41 000013 ACT=13 ;ACTUAL RESULTS AC 42 000014 COR=14 ;CORRECT RESULTS AC 43 000005 INDX=5 ;INDEXING AC 44 45 ;*MISCELLANEOUS 46 47 257000 000000 OPDEF MAP [257B8] ;MAP INSTRUCTION 48 49 043742 PGRDTB=END+1 ;440(8) WORD PAGED READ DATA BLOCK 50 043742 PGWRTB=END+1 ;440(8) WORD PAGED WRITE DATA BLOCK 51 044401 END1=END+440 ;NEW END OF PROGRAM 52 53 000400 TN0==400 ;TRAP NUMBER 0 54 000200 TN1==200 ;TRAP NUMBER 1 55 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3 DSKEAT MAC 29-Mar-78 14:48 DIAGNOSTIC PARAMETERS SEQ 0037 56 COMMENT % 57 MAP INSTRUCTION READOUT ASSIGNMENTS 58 59 BIT 0 - USER ADDRESS 60 1 - PAGE FAIL 61 2 - ACCESS 62 3 - WRITABLE 63 4 - SOFTWARE 64 7 - CACHE 65 8 - PAGED REF 66 9-13 - 0 67 16 68 ^ - CORE ADDRESS BITS 16-35 69 35 70 71 PAGE FAIL ERROR FORMAT 72 IF BIT 1 = 1 73 74 20 - I/O PAGE FAIL 75 25 - PAGE TABLE PARITY ERROR 76 36 - HARD MEMORY ERROR 77 37 - NXM 78 79 PAGE TABLE ENTRY WORD FORMAT 80 81 BIT 0 - ACCESS 82 2 - WRITABLE 83 3 - SOFTWARE 84 4 - CACHE 85 7 86 ^ - PHYSICAL PAGE ADDRESS BITS 16-26 87 17 88 89 ;LEFT HALF = EVEN VIRTUAL PAGE 90 ;RIGHT HALF = ODD VIRTUAL PAGE 91 % 92 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4 DSKEAT MAC 29-Mar-78 14:48 DIAGNOSTIC PARAMETERS SEQ 0038 93 ;*BEGIN PARAMETERS 94 95 030647 SADR1= SFSRT1 ;SPECIAL FEATURE START 96 030076 SADR2= RESRT1 ;POWER FAIL RESTART 97 030000 SADR3= BEGIN ;NO REENTER START 98 030007 SADR4= SRTDDT ;DDT 99 030061 SADR5= $BEND2 ;^C - START OVER 100 030000 SADR6= BEGIN ;ALTMODE - START OVER 101 254200 030000 SADR7= HALT BEGIN 102 254200 030000 SADR8= HALT BEGIN 103 254200 030000 SADR9= HALT BEGIN 104 254200 030000 SADR10= HALT BEGIN 105 254200 030000 SADR11= HALT BEGIN 106 107 000000 PAREA1= 0 ;NO RANDOM 108 000000 PAREA2= 0 ;NO SYS EXR 109 446353 454100 PAREA3= SIXBIT/DSKEA/ ;PROGRAM NAME 110 000000 PAREA4= 0 ;NO EXTENTION 111 000000 PAREA5= 0 112 000000 PAREA6= 0 113 114 000001 ITERAT= 1 115 116 ;MACROS 117 118 DEFINE SUBTST< 119 MOVEI . 120 MOVEM TESTPC ;SETUP SUBTEST PC > 121 122 367640 000000 OPDEF REPTLP [SOJG REPT,] ;REPEAT LOOP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 5 DSKEAT MAC 29-Mar-78 14:48 DIAGNOSTIC PARAMETERS SEQ 0039 123 S^;*********************************************************************^ 124 ;*KS-10 EXEC PAGE MAP PAGE ASSIGNMENTS 125 S^;*********************************************************************^ 126 127 000421 LAROVTP==421 ;ARITHMETIC TRAP 128 000422 LPDOVTP==422 ;PUSHDOWN OVERFLOW TRAP 129 000423 LTRP3TP==423 ;TRAP 3 TRAP 130 131 000510 LTBASH==510 ;TIME-BASE, HI 132 000511 LTBASL==511 ;TIME-BASE, LO 133 000512 LPRFMH==512 ;PERFORMANCE ANAYLYSIS, HI 134 000513 LPRFML==513 ;PERFORMANCE ANAYLYSIS, LO 135 136 S^;*********************************************************************^ 137 ;*KS-10 USER PAGE MAP PAGE ASSIGNMENTS 138 S^;*********************************************************************^ 139 140 000421 LAROVTP==421 ;ARITHMETIC TRAP 141 000422 LPDOVTP==422 ;PUSHDOWN OVERFLOW TRAP 142 000423 LTRP3TP==423 ;TRAP 3 TRAP 143 144 000424 LMUUO== 424 ;MUUO STORAGE 145 000425 LMUUOPC==425 ;C(PC) OF MUUO STORAGE 146 000426 LCNTXT==426 ;PROCESS CONTEXT WORD 147 148 000430 LKNTRP==430 ;KERNAL NO TRAP - NEW PC'S- 149 000431 LKTRP== 431 ;" TRAP 150 000432 LSNTRP==432 ;SUPERVISOR NO TRAP 151 000433 LSTRP== 433 ;" TRAP 152 000434 LCNTRP==434 ;CONCEAL NO TRAP 153 000435 LCTRP== 435 ;" TRAP 154 000436 LPNTRP==436 ;PUBLIC NO TRAP 155 000437 LPTRP== 437 ;" TRAP 156 157 000500 LEUPFW==500 ;EXEC & USER PAGE FAIL WORD 158 000501 LPFWPC==501 ;C(PC) OF PAGE FAIL WORD 159 000502 LPGFTR==502 ;PAGE FAIL NEW PC 160 161 000504 LEBXMH==504 ;E-BOX CLOCK TICK METER, HI 162 000505 LEBXML==505 ;E-BOX CLOCK TICK METER, LO 163 000506 LMBXMH==506 ;M-BOX CYCLE METER, HI 164 000507 LMBXML==507 ;M-BOX CYCLE METER, LO DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6 DSKEAT MAC 29-Mar-78 14:48 PROGRAM MACRO'S SEQ 0040 165 SUBTTL PROGRAM MACRO'S 166 167 DEFINE FLGTST (FLAG,MSG0,%FLAG0,%FLAG3,%FLAG2),< 168 LALL 169 ;*TRY TO SET FLAG VIA MONITOR UUO TRAP 170 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 171 172 A=1 ;ACTUAL FLAGS AND PC STORED 173 C=[FLAG,,%FLAG3] ;CORRECT FLAGS AND PC 174 175 %FLAG0: CONO PAG,LTRPEN 176 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 177 TNSET 178 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 179 SKIPN [MODE] ;DONT PAGE IF MODE = 0 180 JRST .+3 181 PAGECN 182 MOVSI 1B21 ;UUO TO DO 183 MOVEM %FLAG2 ;STORE UUO TO DO 184 MOVE [FLAG,,%FLAG3] ;PC AND FLAGS TO RESTORE 185 MOVEM UPMP+CNTRP 186 MOVEM UPMP+CTRP 187 MOVEM UPMP+PNTRP 188 MOVEM UPMP+PTRP 189 MOVEM UPMP+SNTRP 190 MOVEM UPMP+STRP 191 MOVEM KNTRP 192 MOVEM KTRP 193 SETZM UPMP+MUUO 194 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 195 %FLAG2: 0 ;HERE IS THE UUO 196 ERROR %FLAG0,13,0,0,MUUO DID NOT CAUSE TRAP 197 LALL 198 %FLAG3: JSP 1,.+1 ;GET FLAGS 199 TLNN 1,FLAG ;ARE FLAG(S) SET? 200 ERROR %FLAG0,13,C,A,MSG0 201 > DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 7 DSKEAT MAC 29-Mar-78 14:48 PROGRAM MACROS AND OPDEFS SEQ 0041 202 SUBTTL PROGRAM MACROS AND OPDEFS 203 204 264000 037005 OPDEF TRPSET [JSR TRAPST] 205 206 700200 200000 OPDEF RESET [CONO APR,200000] 207 208 DEFINE MOVMEM(A,B)< 209 PUT [A] 210 GET B 211 > 212 213 DEFINE PAGECN< 214 SETOM CNSFLG ;INFORM PAGE ROUTINE 215 GO PAGSET ;THAT I WANT CONCEALED MODE 216 > 217 DEFINE PAGEPN< 218 SETZM CNSFLG ;INFORM PAGE ROUTINE 219 GO PAGSET ;THAT I WANT PUBLIC MODE 220 > 221 222 DEFINE TNSET< 223 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 224 MOVEM TESTPC ;INTO TEST 225 > 226 227 044000 IFNDEF UPMP,&777000> ;INSURE THAT THE USER PAGE MAP PAGE 228 ;STARTS AT AN EVEN ADDRESS WICH IS 229 ;A MULTIPLE OF 1K 230 231 ;*SPECIAL PAGE TABLE DEFINITIONS 232 233 000421 AROVTP= 421 ;ARITHMETIC TRAP 234 000422 PDOVTP= 422 ;PUSHDOWN OVERFLOW TRAP 235 000423 TRP3TP= 423 ;TRAP 3 TRAP 236 000424 MUUO= 424 ;MUUO STORAGE 237 000425 MUUOPC= 425 ;MUUO NEW PC 238 000430 KNTRP= 430 ;KERNAL 239 000431 KTRP= 431 240 000432 SNTRP= 432 ;SUPERVISOR 241 000433 STRP= 433 242 000434 CNTRP= 434 ;CONCEALED 243 000435 CTRP= 435 244 000436 PNTRP= 436 ;PUBLIC 245 000437 PTRP= 437 246 247 002000 LIP= 2000 ;PC FLAG, LAST INST PUBLIC 248 000400 TN0= 400 ;PC FLAG, TN 0 BIT 249 000200 TN1= 200 ;PC FLAG, TN 1 BIT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0042 250 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 251 252 DEFINE S,<;*********************************************************************> 253 254 S^;*********************************************************************^ 255 ;*DATA SWITCHES 256 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 257 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 258 S^;*********************************************************************^ 259 260 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 261 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 262 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 263 264 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 265 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 266 010000 DING== 010000 ;RING BELL ON ERROR 267 268 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 269 002000 ERSTOP==002000 ;HALT ON TEST ERROR 270 001000 PALERS==001000 ;PRINT ALL ERRORS 271 272 000400 RELIAB==000400 ;RELIABILITY MODE 273 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 274 000100 INHPAG==000100 ;INHIBIT PAGING 275 276 000040 MODDVC==000040 ;MODIFY DEVICE CODE 277 000020 INHCSH==000020 ;INHIBIT CACHE 278 000010 OPRSEL==000010 ;OPERATOR SELECTION 279 280 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 281 282 ;SWITCH 16 RESERVED 283 284 ;SWITCH 17 RESERVED !!! DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0043 285 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 286 287 S^;*********************************************************************^ 288 ;*SPECIAL SUBPROGRAM LINKAGES 289 S^;*********************************************************************^ 290 291 027772 FSELNK= 27772 ;FILE SELECT LINK 292 027773 FRDLNK= 27773 ;FILE READ LINK 293 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 294 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 295 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 296 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 297 298 S^;*********************************************************************^ 299 ;*SPECIAL SUBROUTINE FATAL HALTS 300 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 301 S^;*********************************************************************^ 302 303 ;ADDRESS TAG REASON 304 ;--------------------- 305 306 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 307 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 308 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 309 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 310 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 311 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 312 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 313 ; 1017 EOPERR ;END OF PROGRAM ERROR 314 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 315 316 S^;*********************************************************************^ DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0044 317 S^;*********************************************************************^ 318 ;OPERATOR DEFINITIONS (NON-UUO'S) 319 S^;*********************************************************************^ 320 321 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 322 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 323 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 324 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 325 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 326 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 327 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 328 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 329 330 S^;*********************************************************************^ 331 ;*SUBROUTINE INITIALIZATION CALL 332 S^;*********************************************************************^ 333 334 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 335 336 S^;*********************************************************************^ 337 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 338 S^;*********************************************************************^ 339 340 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 341 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 342 343 S^;*********************************************************************^ 344 ;*TERMINAL INPUT UUO'S 345 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 346 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 347 S^;*********************************************************************^ 348 349 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 350 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 351 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 352 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 353 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 354 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 355 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 356 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 357 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 358 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 359 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0045 360 ;*TERMINAL OUTPUT UUO'S. 361 362 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 363 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 364 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 365 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 366 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 367 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 368 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 369 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 370 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 371 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 372 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 373 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 374 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 375 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 376 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 377 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 378 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 379 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 380 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 381 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 382 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 383 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 384 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 385 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 386 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 387 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 388 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 389 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 390 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 391 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 392 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 393 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 394 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 395 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 396 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 397 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 398 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 399 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 400 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 401 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 402 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 403 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0046 404 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 405 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 406 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 407 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 408 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 409 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 410 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 411 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 412 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 413 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 414 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 415 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 416 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 417 418 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 419 420 DEFINE PMSG (ARG),< 421 PSIXM [SIXBIT\ARG'_\]> 422 423 DEFINE PMSGF (ARG),< 424 PSIXMF [SIXBIT\ARG'_\]> 425 426 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 427 ;* CONSERVES CORE OVER ASCIZ 428 429 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 430 431 ;*CONSOLE SWITCH INPUT UUO. 432 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 433 ;* USER MODE. 434 435 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 436 437 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 438 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 439 440 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 441 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 442 443 ;*KS-10 CACHE OPERATION UUO'S 444 445 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 446 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 447 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0047 448 ;*END OF PASS/PROGRAM UUOS 449 450 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 451 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 452 453 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 454 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 455 456 ;*MEMORY MANAGEMENT UUO'S 457 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 458 ;*ADDRESS CONVERSION, ETC... 459 460 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 461 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 462 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 463 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 464 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 465 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 466 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 467 468 ;*DEVICE CODE MODIFICATION UUO 469 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 470 ;*IOT'S TO A DIFFERENT DEVICE CODE. 471 472 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 473 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 474 475 IFNDEF MODDVL, 476 IFNDEF MODDVU, 477 478 ;*"DIAMON" FILE SELECTION AND READ UUOS 479 480 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 481 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 482 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 483 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 484 485 XLIST 486 IFNDEF EROLD, 511 512 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP 513 514 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)< 515 SALL 516 ERUUO FORMAT,[T,,[SIXBIT\F'_\] 517 CORECT,,ACTUAL 518 [SIXBIT\D'_\],,ERR] 519 XALL> 520 521 >;END OF EROLD CONDITIONAL 522 523 XLIST 524 LIST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0049 525 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 526 527 030000 LOC 30000 528 529 S^;*********************************************************************^ 530 ;*PROGRAM STARTING ADDRESSES 531 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 532 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 533 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 534 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 535 S^;*********************************************************************^ 536 537 030000 254 00 04 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 538 030001 254 00 0 00 030613 $START: JRST START ;MODE CHECK STARTING ADDRESS 539 540 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 541 542 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 543 544 030004 254 00 0 00 030647 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 545 546 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 547 548 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 549 550 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 551 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 552 553 030010 254 00 0 00 030637 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 554 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 555 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 556 557 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 558 030014 254200 030000 START2: SADR8 ; " 559 030015 254200 030000 START3: SADR9 ; " 560 030016 254200 030000 START4: SADR10 ; " 561 030017 254200 030000 START5: SADR11 ; " DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0050 562 S^;*********************************************************************^ 563 ;*PROGRAM FIXED PARAMETER AREA 564 S^;*********************************************************************^ 565 566 030020 446353 454100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 567 030021 000000 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 568 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 569 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 570 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 571 030025 000000 030600 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 572 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 573 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 574 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 575 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 576 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 577 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 578 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 579 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 580 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 581 582 S^;*********************************************************************^ 583 ;*PROGRAM VARIABLE PARAMETER AREA 584 S^;*********************************************************************^ 585 586 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 587 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 588 030041 777777 7777770 KLFLG: -1 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 589 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 590 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 591 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 592 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 593 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 594 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 595 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 596 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 597 030052 000000 000000 ERRPC: 0 ;ERROR PC 598 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 599 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 600 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 601 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0051 602 S^;*********************************************************************^ 603 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 604 S^;*********************************************************************^ 605 606 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 607 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 608 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 609 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 610 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 611 030064 CPOPJ1: ;SKIP RETURN 612 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 613 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 614 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 615 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 616 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 617 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 618 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 619 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 620 030073 255 00 0 00 000000 $USRHL: JFCL ; " 621 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 622 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 623 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 624 030077 255 00 0 00 000000 RESRT2: JFCL ; " 625 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 626 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 627 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 628 629 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 630 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 631 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 632 633 S^;*********************************************************************^ 634 ;*PROCESSOR CONTROL STORAGE 635 S^;*********************************************************************^ 636 637 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 638 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 639 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 640 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 641 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 642 643 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 644 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 645 646 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 647 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 648 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 649 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 650 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 651 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 652 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0052 653 S^;*********************************************************************^ 654 ;*UUO DISPATCH TABLE 655 S^;*********************************************************************^ 656 XLIST 657 LIST 658 030124 030070 030070 UUODIS: LUUO1,,$UUOER 659 030125 030070 030070 LUUO3,,LUUO2 660 030126 030070 030070 LUUO5,,LUUO4 661 030127 030070 030070 LUUO7,,LUUO6 662 030130 030070 030070 LUUO11,,LUUO10 663 030131 030070 030070 LUUO13,,LUUO12 664 030132 030070 030070 LUUO15,,LUUO14 665 030133 030070 030070 LUUO17,,LUUO16 666 030134 030070 030070 LUUO21,,LUUO20 667 030135 030070 030070 LUUO23,,LUUO22 668 030136 030070 030070 LUUO25,,LUUO24 669 030137 030070 030070 LUUO27,,LUUO26 670 030140 030070 030070 LUUO31,,LUUO30 671 030141 030070 030070 LUUO33,,LUUO32 672 673 S^;*********************************************************************^ 674 ;*MEMORY MANAGMENT STORAGE 675 S^;*********************************************************************^ 676 677 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 678 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 679 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 680 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 681 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 682 683 S^;*********************************************************************^ 684 ;*PRINT CONTROL STORAGE 685 S^;*********************************************************************^ 686 687 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 688 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 689 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 690 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 691 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 692 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 693 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 694 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 695 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 696 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 697 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 698 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 699 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 700 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 701 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 702 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 703 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 704 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 705 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0053 706 S^;*********************************************************************^ 707 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 708 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 709 ;* MOVEI NAME 710 ;* PNTA ;OR PNTAF 711 S^;*********************************************************************^ 712 713 030242 CRLF: ASCII/ 714 030242 015 012 000 000 000 / 715 030243 CRLF2: ASCII/ 716 717 030243 015 012 015 012 000 / 718 030244 054 000 000 000 000 COMMA: ASCII/,/ 719 030245 056 000 000 000 000 PERIOD: ASCII/./ 720 030246 040 000 000 000 000 SPACE: ASCII/ / 721 030247 011 000 000 000 000 TAB: ASCII/ / 722 030250 MINUS: 723 030250 055 000 000 000 000 HYPEN: ASCII/-/ 724 030251 053 000 000 000 000 PLUS: ASCII/+/ 725 030252 052 000 000 000 000 AST: ASCII/*/ 726 030253 100 000 000 000 000 ATSIN: ASCII/@/ 727 030254 050 000 000 000 000 LFP: ASCII/(/ 728 030255 051 000 000 000 000 RTP: ASCII/)/ 729 030256 007 0000000000 BELL: BYTE (7) 007 730 030257 077 000 000 000 000 QUEST: ASCII/?/ 731 030260 057 000 000 000 000 SLASH: ASCII!/! 732 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 733 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 734 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 735 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 736 737 S^;*********************************************************************^ 738 ;*USER MODE OUTPUT FILE INFORMATION 739 S^;*********************************************************************^ 740 741 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 742 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 743 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 744 030272 BLOCK 2 745 746 S^;*********************************************************************^ 747 ;*DISK UPDATE MODE FILE INFORMATION 748 S^;*********************************************************************^ 749 750 030274 $IBUF: BLOCK 3 751 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 752 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 753 030301 BLOCK 2 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0054 754 S^;*********************************************************************^ 755 ;*PUSHDOWN LIST CONTROL INFORMATION 756 S^;*********************************************************************^ 757 758 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 759 030304 PLISTS: BLOCK 200 760 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 761 762 S^;*********************************************************************^ 763 ;*POWER LINE CLOCK FREQUENCY FLAG 764 S^;*********************************************************************^ 765 766 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 767 768 S^;*********************************************************************^ 769 ;*KL10 CACHE CONTROL FLAGS 770 S^;*********************************************************************^ 771 772 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 773 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 774 775 S^;*********************************************************************^ 776 ;*NUMBER INPUT DIGIT FLAG 777 S^;*********************************************************************^ 778 779 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 780 781 S^;*********************************************************************^ 782 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 783 S^;*********************************************************************^ 784 785 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 786 787 S^;*********************************************************************^ 788 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 789 S^;*********************************************************************^ 790 791 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 792 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 793 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 794 795 S^;*********************************************************************^ 796 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 797 S^;*********************************************************************^ 798 799 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0055 800 S^;*********************************************************************^ 801 ;*USER MODE MONITOR TYPE FLAG 802 S^;*********************************************************************^ 803 804 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 805 806 S^;*********************************************************************^ 807 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 808 S^;*********************************************************************^ 809 810 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 811 812 S^;*********************************************************************^ 813 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 814 S^;*********************************************************************^ 815 816 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 817 818 S^;*********************************************************************^ 819 ;*"SWITCH" CALL USAGE CONTROL 820 S^;*********************************************************************^ 821 822 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 823 824 S^;*********************************************************************^ 825 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 826 S^;*********************************************************************^ 827 828 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 829 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 830 831 S^;*********************************************************************^ 832 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 833 S^;*********************************************************************^ 834 835 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10 836 837 S^;*********************************************************************^ 838 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 839 S^;*********************************************************************^ 840 841 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 842 843 S^;*********************************************************************^ 844 ;*SPECIAL FUTURE EXPANSION ROOM 845 S^;*********************************************************************^ 846 847 S^;*********************************************************************^ 848 ;*END OF FIXED STORAGE 849 S^;*********************************************************************^ 850 851 030577 LOC 30577 852 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1 DSKEAM MAC 29-Mar-78 14:55 PROGRAM INITIALIZATION SEQ 0056 853 SUBTTL PROGRAM INITIALIZATION 854 855 030600 PGMNAM: ASCIZ/ 856 030600 015 012 104 105 103 DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC (DSKEA) 857 030601 123 131 123 124 105 858 030602 115 040 062 060 062 859 030603 060 040 120 101 107 860 030604 111 116 107 040 110 861 030605 101 122 104 127 101 862 030606 122 105 040 104 111 863 030607 101 107 116 117 123 864 030610 124 111 103 040 050 865 030611 104 123 113 105 101 866 030612 051 015 012 000 000 / 867 030613 201 00 0 00 030613 START: MOVEI . 868 030614 202 00 0 00 030051 MOVEM TESTPC 869 030615 476 00 0 00 030506 SETOM CSHFLG ;DON'T USE CACHE 870 030616 476 00 0 00 030511 SETOM PVPAGI ;MUST BE PAGED 871 030617 265 00 0 00 030011 PGMINT ;INIT SUBROUTINES 872 030620 201 00 0 00 500000 MOVEI 500000 873 030621 202 00 0 00 043727 MOVEM KLUBRX# 874 030622 200 00 0 00 000041 MOVE LUUOI 875 030623 202 00 0 00 043733 MOVEM LUUOISV# 876 030624 200 00 0 00 000502 MOVE LPGFTR 877 030625 202 00 0 00 043736 MOVEM PGFAIL# 878 030626 200 00 0 00 000430 MOVE LKNTRP 879 030627 202 00 0 00 043734 MOVEM MUUOER 880 030630 200 00 0 00 000423 MOVE LTRP3T 881 030631 202 00 0 00 043732 MOVEM LTRP3SV# 882 030632 200 00 0 00 000422 MOVE LPDOVT 883 030633 202 00 0 00 043731 MOVEM LPDOVSV# 884 030634 200 00 0 00 000421 MOVE LAROVT 885 030635 202 00 0 00 043730 MOVEM LAROVSV# 886 030636 402 00 0 00 043735 SETZM MXFLG# ;CLEAR TEST MAX FLAG 887 030637 402 00 0 00 030116 STARTA: SETZM SCOPE ;PRESET ERROR REPEAT SWITCH 888 030640 402 00 0 00 030052 SETZM ERRPC ;PRESET ERROR PC STORAGE 889 030641 201 00 0 00 000000 MOVEI 0,0 ; (Hacked by R Doyle) 890 030642 201 07 0 00 000012 MOVEI AC,^D10 ;SETUP REPEAT FOR 10 SUBLOOPS 891 030643 607 00 0 00 000400 TLNN RELIAB ;FAST CYCLE MODE ? 892 030644 201 07 0 00 000001 MOVEI AC,1 ;YES, SUBLOOP JUST ONCE 893 030645 202 07 0 00 043737 MOVEM AC,RPEAT# 894 030646 254 00 0 00 030652 JRST EBRCK0-2 895 896 030647 402 00 0 00 030047 SFSRT1: SETZM PASCNT ;SPECIAL FEATURE START 897 030650 402 00 0 00 030053 SETZM ERRTLS 898 030651 254 00 0 00 030010 JRST BEGIN1 ;CLEAR PASCNT FOR MAX ADR ? DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 2 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0057 899 SUBTTL TEST EXEC BASE REGISTER 900 901 SALL 902 037042 T= SIXBTZ BASE REGISTER TEST 903 LALL 904 905 ;*LOAD EXEC BASE REGISTER WITH ALL ZERO'S WITH CONO 906 ;*EXEC BASE REGISTER SHOULD THEN BE CLEAR. 907 908 SUBTST^ 909 030652 201 00 0 00 030652 MOVEI . 910 030653 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 911 030654 200 15 0 00 043737 EBRCK0: MOVE REPT,RPEAT ;SETUP REPEAT COUNT 912 030655 201 14 0 00 000000 MOVEI COR,0 913 030656 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH 0'S 914 030657 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 915 030660 312 14 0 00 000013 CAME COR,ACT ;COMPARE RESULTS 916 ERROR EBRCK0+1,13,COR,ACT,EBR,ALL 0'S^ 917 SALL 918 030661 036 13 0 00 037051 919 030662 254 00 0 00 030663 ERLOOP EBRCK0+1 ;IF ERROR, LOOP TO EBRCK0+1 920 921 ;*LOAD EXEC BASE REGISTER WITH ALL ONE'S 922 ;*IF ANY BIT IS READ BACK THEN LOAD EBR SHOULD WORK. 923 924 SUBTST^ 925 030663 201 00 0 00 030663 MOVEI . 926 030664 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 927 030665 201 14 0 00 003777 EBRCK1: MOVEI COR,3777 928 030666 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH ALL 1'S 929 030667 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 930 030670 7 010 20 0 00 000000 CONO PAG,0 931 030671 336 00 0 00 000013 SKIPN ACT ;CHECK FOR ANY BIT SET 932 ERROR EBRCK1,13,COR,ACT,EBR,NO BITS SET^ 933 030672 036 13 0 00 037056 934 030673 254 00 0 00 030674 ERLOOP EBRCK1 ;IF ERROR, LOOP TO EBRCK1 935 936 ;*LOAD EXEC BASE REGISTER WITH TRAP ENABLE BIT 937 938 SUBTST^ 939 030674 201 00 0 00 030674 MOVEI . 940 030675 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 941 030676 201 14 0 00 020000 EBRC1A: MOVEI COR,LTRPEN 942 030677 7 010 20 0 14 000000 CONO PAG,(COR) ;SET TRAP ENABLE 943 030700 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 944 030701 7 010 20 0 00 020000 CONO PAG,LTRPEN 945 030702 312 14 0 00 000013 CAME COR,ACT 946 ERROR EBRC1A,13,COR,ACT,EBR,TRAP ENABLE BIT^ 947 030703 036 13 0 00 037064 948 030704 035 00 0 00 030676 ERLOOP EBRC1A ;IF ERROR, LOOP TO EBRC1A DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0058 949 000000 XX=0 950 951 SUBTST^ 952 030705 201 00 0 00 030705 MOVEI . 953 030706 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 954 EBRCK2: REPEAT ^D11,< 955 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 956 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 957 XX=XX+XX 958 IFE XX, 959 MOVEI COR,XX 960 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 961 CONI PAG,ACT ;READ BACK 962 CONO PAG,LTRPEN 963 CAME COR,ACT 964 ERROR .-6,13,COR,ACT,EBR,FLOATING 1> 965 966 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 967 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 968 000000 XX=XX+XX 969 000001 IFE XX, 970 030707 201 14 0 00 000001 MOVEI COR,XX 971 030710 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 972 030711 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 973 030712 7 010 20 0 00 020000 CONO PAG,LTRPEN 974 030713 312 14 0 00 000013 CAME COR,ACT 975 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 976 977 030714 036 13 0 00 037071 978 030715 035 00 0 00 030707 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 979 980 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 981 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 982 000002 XX=XX+XX 983 IFE XX, 984 030716 201 14 0 00 000002 MOVEI COR,XX 985 030717 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 986 030720 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 987 030721 7 010 20 0 00 020000 CONO PAG,LTRPEN 988 030722 312 14 0 00 000013 CAME COR,ACT 989 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 990 991 030723 036 13 0 00 037071 992 030724 035 00 0 00 030716 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 993 994 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 995 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 996 000004 XX=XX+XX 997 IFE XX, 998 030725 201 14 0 00 000004 MOVEI COR,XX 999 030726 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1000 030727 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1001 030730 7 010 20 0 00 020000 CONO PAG,LTRPEN 1002 030731 312 14 0 00 000013 CAME COR,ACT 1003 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3-1 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0059 1004 1005 030732 036 13 0 00 037071 1006 030733 035 00 0 00 030725 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1007 1008 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1009 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1010 000010 XX=XX+XX 1011 IFE XX, 1012 030734 201 14 0 00 000010 MOVEI COR,XX 1013 030735 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1014 030736 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1015 030737 7 010 20 0 00 020000 CONO PAG,LTRPEN 1016 030740 312 14 0 00 000013 CAME COR,ACT 1017 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1018 1019 030741 036 13 0 00 037071 1020 030742 035 00 0 00 030734 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1021 1022 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1023 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1024 000020 XX=XX+XX 1025 IFE XX, 1026 030743 201 14 0 00 000020 MOVEI COR,XX 1027 030744 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1028 030745 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1029 030746 7 010 20 0 00 020000 CONO PAG,LTRPEN 1030 030747 312 14 0 00 000013 CAME COR,ACT 1031 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1032 1033 030750 036 13 0 00 037071 1034 030751 035 00 0 00 030743 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1035 1036 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1037 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1038 000040 XX=XX+XX 1039 IFE XX, 1040 030752 201 14 0 00 000040 MOVEI COR,XX 1041 030753 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1042 030754 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1043 030755 7 010 20 0 00 020000 CONO PAG,LTRPEN 1044 030756 312 14 0 00 000013 CAME COR,ACT 1045 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1046 1047 030757 036 13 0 00 037071 1048 030760 035 00 0 00 030752 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1049 1050 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1051 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1052 000100 XX=XX+XX 1053 IFE XX, 1054 030761 201 14 0 00 000100 MOVEI COR,XX 1055 030762 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1056 030763 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1057 030764 7 010 20 0 00 020000 CONO PAG,LTRPEN 1058 030765 312 14 0 00 000013 CAME COR,ACT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3-2 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0060 1059 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1060 1061 030766 036 13 0 00 037071 1062 030767 035 00 0 00 030761 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1063 1064 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1065 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1066 000200 XX=XX+XX 1067 IFE XX, 1068 030770 201 14 0 00 000200 MOVEI COR,XX 1069 030771 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1070 030772 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1071 030773 7 010 20 0 00 020000 CONO PAG,LTRPEN 1072 030774 312 14 0 00 000013 CAME COR,ACT 1073 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1074 1075 030775 036 13 0 00 037071 1076 030776 035 00 0 00 030770 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1077 1078 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1079 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1080 000400 XX=XX+XX 1081 IFE XX, 1082 030777 201 14 0 00 000400 MOVEI COR,XX 1083 031000 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1084 031001 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1085 031002 7 010 20 0 00 020000 CONO PAG,LTRPEN 1086 031003 312 14 0 00 000013 CAME COR,ACT 1087 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1088 1089 031004 036 13 0 00 037071 1090 031005 035 00 0 00 030777 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1091 1092 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1093 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1094 001000 XX=XX+XX 1095 IFE XX, 1096 031006 201 14 0 00 001000 MOVEI COR,XX 1097 031007 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1098 031010 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1099 031011 7 010 20 0 00 020000 CONO PAG,LTRPEN 1100 031012 312 14 0 00 000013 CAME COR,ACT 1101 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1102 1103 031013 036 13 0 00 037071 1104 031014 035 00 0 00 031006 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1105 1106 ;*CHECK OUT EXEC BASE REGISTER ONE FLOP AT A TIME. 1107 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS. 1108 002000 XX=XX+XX 1109 IFE XX, 1110 031015 201 14 0 00 002000 MOVEI COR,XX 1111 031016 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING ONE 1112 031017 7 010 24 0 00 000013 CONI PAG,ACT ;READ BACK 1113 031020 7 010 20 0 00 020000 CONO PAG,LTRPEN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 3-3 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0061 1114 031021 312 14 0 00 000013 CAME COR,ACT 1115 ERROR .-6,13,COR,ACT,EBR,FLOATING 1 1116 1117 031022 036 13 0 00 037071 1118 031023 035 00 0 00 031015 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1119 1120 ;*LOAD EXEC BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK 1121 1122 031024 201 14 0 00 003777 EBRCK3: MOVEI COR,3777 1123 031025 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH ALL 1'S 1124 031026 7 010 24 0 00 000013 CONI PAG,ACT 1125 031027 7 010 20 0 00 020000 CONO PAG,LTRPEN 1126 031030 312 14 0 00 000013 CAME COR,ACT 1127 ERROR EBRCK3,13,COR,ACT,EBR,ALL 1'S^ 1128 031031 036 13 0 00 037076 1129 031032 035 00 0 00 031024 ERLOOP EBRCK3 ;IF ERROR, LOOP TO EBRCK3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0062 1130 000000 XX=0 1131 1132 SUBTST^ 1133 031033 201 00 0 00 031033 MOVEI . 1134 031034 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 1135 EBRCK4: REPEAT ^D11,< 1136 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1137 ;*TO CHECK BIT INTERACTION. 1138 XX=XX+XX 1139 IFE XX, 1140 MOVEI COR,3777-XX 1141 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1142 CONI PAG,ACT 1143 CONO PAG,LTRPEN 1144 CAME COR,ACT 1145 ERROR .-6,13,COR,ACT,EBR,FLOATING 0> 1146 1147 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1148 ;*TO CHECK BIT INTERACTION. 1149 000000 XX=XX+XX 1150 000001 IFE XX, 1151 031035 201 14 0 00 003776 MOVEI COR,3777-XX 1152 031036 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1153 031037 7 010 24 0 00 000013 CONI PAG,ACT 1154 031040 7 010 20 0 00 020000 CONO PAG,LTRPEN 1155 031041 312 14 0 00 000013 CAME COR,ACT 1156 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1157 1158 031042 036 13 0 00 037103 1159 031043 035 00 0 00 031035 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1160 1161 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1162 ;*TO CHECK BIT INTERACTION. 1163 000002 XX=XX+XX 1164 IFE XX, 1165 031044 201 14 0 00 003775 MOVEI COR,3777-XX 1166 031045 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1167 031046 7 010 24 0 00 000013 CONI PAG,ACT 1168 031047 7 010 20 0 00 020000 CONO PAG,LTRPEN 1169 031050 312 14 0 00 000013 CAME COR,ACT 1170 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1171 1172 031051 036 13 0 00 037103 1173 031052 035 00 0 00 031044 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1174 1175 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1176 ;*TO CHECK BIT INTERACTION. 1177 000004 XX=XX+XX 1178 IFE XX, 1179 031053 201 14 0 00 003773 MOVEI COR,3777-XX 1180 031054 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1181 031055 7 010 24 0 00 000013 CONI PAG,ACT 1182 031056 7 010 20 0 00 020000 CONO PAG,LTRPEN 1183 031057 312 14 0 00 000013 CAME COR,ACT 1184 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4-1 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0063 1185 1186 031060 036 13 0 00 037103 1187 031061 035 00 0 00 031053 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1188 1189 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1190 ;*TO CHECK BIT INTERACTION. 1191 000010 XX=XX+XX 1192 IFE XX, 1193 031062 201 14 0 00 003767 MOVEI COR,3777-XX 1194 031063 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1195 031064 7 010 24 0 00 000013 CONI PAG,ACT 1196 031065 7 010 20 0 00 020000 CONO PAG,LTRPEN 1197 031066 312 14 0 00 000013 CAME COR,ACT 1198 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1199 1200 031067 036 13 0 00 037103 1201 031070 035 00 0 00 031062 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1202 1203 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1204 ;*TO CHECK BIT INTERACTION. 1205 000020 XX=XX+XX 1206 IFE XX, 1207 031071 201 14 0 00 003757 MOVEI COR,3777-XX 1208 031072 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1209 031073 7 010 24 0 00 000013 CONI PAG,ACT 1210 031074 7 010 20 0 00 020000 CONO PAG,LTRPEN 1211 031075 312 14 0 00 000013 CAME COR,ACT 1212 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1213 1214 031076 036 13 0 00 037103 1215 031077 035 00 0 00 031071 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1216 1217 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1218 ;*TO CHECK BIT INTERACTION. 1219 000040 XX=XX+XX 1220 IFE XX, 1221 031100 201 14 0 00 003737 MOVEI COR,3777-XX 1222 031101 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1223 031102 7 010 24 0 00 000013 CONI PAG,ACT 1224 031103 7 010 20 0 00 020000 CONO PAG,LTRPEN 1225 031104 312 14 0 00 000013 CAME COR,ACT 1226 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1227 1228 031105 036 13 0 00 037103 1229 031106 035 00 0 00 031100 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1230 1231 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1232 ;*TO CHECK BIT INTERACTION. 1233 000100 XX=XX+XX 1234 IFE XX, 1235 031107 201 14 0 00 003677 MOVEI COR,3777-XX 1236 031110 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1237 031111 7 010 24 0 00 000013 CONI PAG,ACT 1238 031112 7 010 20 0 00 020000 CONO PAG,LTRPEN 1239 031113 312 14 0 00 000013 CAME COR,ACT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4-2 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0064 1240 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1241 1242 031114 036 13 0 00 037103 1243 031115 035 00 0 00 031107 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1244 1245 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1246 ;*TO CHECK BIT INTERACTION. 1247 000200 XX=XX+XX 1248 IFE XX, 1249 031116 201 14 0 00 003577 MOVEI COR,3777-XX 1250 031117 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1251 031120 7 010 24 0 00 000013 CONI PAG,ACT 1252 031121 7 010 20 0 00 020000 CONO PAG,LTRPEN 1253 031122 312 14 0 00 000013 CAME COR,ACT 1254 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1255 1256 031123 036 13 0 00 037103 1257 031124 035 00 0 00 031116 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1258 1259 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1260 ;*TO CHECK BIT INTERACTION. 1261 000400 XX=XX+XX 1262 IFE XX, 1263 031125 201 14 0 00 003377 MOVEI COR,3777-XX 1264 031126 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1265 031127 7 010 24 0 00 000013 CONI PAG,ACT 1266 031130 7 010 20 0 00 020000 CONO PAG,LTRPEN 1267 031131 312 14 0 00 000013 CAME COR,ACT 1268 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1269 1270 031132 036 13 0 00 037103 1271 031133 035 00 0 00 031125 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1272 1273 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1274 ;*TO CHECK BIT INTERACTION. 1275 001000 XX=XX+XX 1276 IFE XX, 1277 031134 201 14 0 00 002777 MOVEI COR,3777-XX 1278 031135 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1279 031136 7 010 24 0 00 000013 CONI PAG,ACT 1280 031137 7 010 20 0 00 020000 CONO PAG,LTRPEN 1281 031140 312 14 0 00 000013 CAME COR,ACT 1282 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1283 1284 031141 036 13 0 00 037103 1285 031142 035 00 0 00 031134 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1286 1287 ;*LOAD AND CHECK EXEC BASE REGISTER WITH A FLOATING ZERO 1288 ;*TO CHECK BIT INTERACTION. 1289 002000 XX=XX+XX 1290 IFE XX, 1291 031143 201 14 0 00 001777 MOVEI COR,3777-XX 1292 031144 7 010 20 0 14 000000 CONO PAG,(COR) ;LOAD EBR WITH A FLOATING 0 1293 031145 7 010 24 0 00 000013 CONI PAG,ACT 1294 031146 7 010 20 0 00 020000 CONO PAG,LTRPEN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 4-3 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC BASE REGISTER SEQ 0065 1295 031147 312 14 0 00 000013 CAME COR,ACT 1296 ERROR .-6,13,COR,ACT,EBR,FLOATING 0 1297 1298 031150 036 13 0 00 037103 1299 031151 035 00 0 00 031143 ERLOOP .-6 ;IF ERROR, LOOP TO .-6 1300 031152 367 15 0 00 030655 REPTLP EBRCK0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 5 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0066 1301 SUBTTL TEST USER BASE REGISTER 1302 1303 ;*LOAD USER BASE REGISTER WITH ALL ZERO'S. 1304 ;*USER BASE REGISTER SHOULD THEN BE CLEAR. 1305 1306 SUBTST^ 1307 031153 201 00 0 00 031153 MOVEI . 1308 031154 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 1309 031155 200 15 0 00 043737 UBRCK0: MOVE REPT,RPEAT 1310 031156 200 14 0 00 037106 MOVE COR,[LLACBL!LLDUSB,,400000] 1311 031157 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH 0'S 1312 031160 7 010 04 0 00 000013 DATAI PAG,ACT 1313 031161 620 14 0 00 400000 TRZ COR,400000 1314 031162 205 14 1 00 043727 MOVSI COR,@KLUBRX 1315 031163 312 14 0 00 000013 CAME COR,ACT 1316 ERROR UBRCK0+1,13,COR,ACT,UBR,ALL 0'S^ 1317 031164 036 13 0 00 037112 1318 031165 035 00 0 00 031156 ERLOOP UBRCK0+1 ;IF ERROR, LOOP TO UBRCK0+1 1319 1320 ;*LOAD USER BASE REGISTER WITH ALL ONE'S. 1321 ;*IF ANY BIT IS READ BACK THEN LOAD UBR SHOULD WORK. 1322 1323 031166 200 14 0 00 037115 UBRCK1: MOVE COR,[LLDUSB,,403777] 1324 031167 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH ALL ONES 1325 031170 7 010 04 0 00 000013 DATAI PAG,ACT 1326 031171 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1327 031172 620 14 0 00 400000 TRZ COR,400000 1328 031173 505 14 1 00 043727 HRLI COR,@KLUBRX 1329 031174 336 00 0 00 000013 SKIPN ACT ;CHECK FOR ANY BIT SET 1330 ERROR UBRCK1,13,COR,ACT,UBR,NO BITS SET^ 1331 031175 036 13 0 00 037117 1332 031176 035 00 0 00 031166 ERLOOP UBRCK1 ;IF ERROR, LOOP TO UBRCK1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0067 1333 000000 XX=0 1334 1335 SUBTST^ 1336 031177 201 00 0 00 031177 MOVEI . 1337 031200 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 1338 UBRCK2: REPEAT ^D11,< 1339 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1340 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1341 XX=XX+XX 1342 IFE XX, 1343 MOVE COR,[LLDUSB,,400000!XX] 1344 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1345 DATAI PAG,ACT 1346 DATAO PAG,[LLDUSB,,400000] 1347 TRZ COR,400000 1348 HRLI COR,@KLUBRX 1349 CAME COR,ACT 1350 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1> 1351 1352 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1353 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1354 000000 XX=XX+XX 1355 000001 IFE XX, 1356 031201 200 14 0 00 037122 MOVE COR,[LLDUSB,,400000!XX] 1357 031202 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1358 031203 7 010 04 0 00 000013 DATAI PAG,ACT 1359 031204 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1360 031205 620 14 0 00 400000 TRZ COR,400000 1361 031206 505 14 1 00 043727 HRLI COR,@KLUBRX 1362 031207 312 14 0 00 000013 CAME COR,ACT 1363 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1364 1365 031210 036 13 0 00 037123 1366 031211 035 00 0 00 031201 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1367 1368 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1369 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1370 000002 XX=XX+XX 1371 IFE XX, 1372 031212 200 14 0 00 037126 MOVE COR,[LLDUSB,,400000!XX] 1373 031213 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1374 031214 7 010 04 0 00 000013 DATAI PAG,ACT 1375 031215 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1376 031216 620 14 0 00 400000 TRZ COR,400000 1377 031217 505 14 1 00 043727 HRLI COR,@KLUBRX 1378 031220 312 14 0 00 000013 CAME COR,ACT 1379 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1380 1381 031221 036 13 0 00 037123 1382 031222 035 00 0 00 031212 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1383 1384 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1385 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1386 000004 XX=XX+XX 1387 IFE XX, DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6-1 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0068 1388 031223 200 14 0 00 037127 MOVE COR,[LLDUSB,,400000!XX] 1389 031224 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1390 031225 7 010 04 0 00 000013 DATAI PAG,ACT 1391 031226 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1392 031227 620 14 0 00 400000 TRZ COR,400000 1393 031230 505 14 1 00 043727 HRLI COR,@KLUBRX 1394 031231 312 14 0 00 000013 CAME COR,ACT 1395 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1396 1397 031232 036 13 0 00 037123 1398 031233 035 00 0 00 031223 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1399 1400 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1401 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1402 000010 XX=XX+XX 1403 IFE XX, 1404 031234 200 14 0 00 037130 MOVE COR,[LLDUSB,,400000!XX] 1405 031235 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1406 031236 7 010 04 0 00 000013 DATAI PAG,ACT 1407 031237 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1408 031240 620 14 0 00 400000 TRZ COR,400000 1409 031241 505 14 1 00 043727 HRLI COR,@KLUBRX 1410 031242 312 14 0 00 000013 CAME COR,ACT 1411 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1412 1413 031243 036 13 0 00 037123 1414 031244 035 00 0 00 031234 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1415 1416 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1417 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1418 000020 XX=XX+XX 1419 IFE XX, 1420 031245 200 14 0 00 037131 MOVE COR,[LLDUSB,,400000!XX] 1421 031246 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1422 031247 7 010 04 0 00 000013 DATAI PAG,ACT 1423 031250 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1424 031251 620 14 0 00 400000 TRZ COR,400000 1425 031252 505 14 1 00 043727 HRLI COR,@KLUBRX 1426 031253 312 14 0 00 000013 CAME COR,ACT 1427 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1428 1429 031254 036 13 0 00 037123 1430 031255 035 00 0 00 031245 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1431 1432 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1433 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1434 000040 XX=XX+XX 1435 IFE XX, 1436 031256 200 14 0 00 037132 MOVE COR,[LLDUSB,,400000!XX] 1437 031257 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1438 031260 7 010 04 0 00 000013 DATAI PAG,ACT 1439 031261 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1440 031262 620 14 0 00 400000 TRZ COR,400000 1441 031263 505 14 1 00 043727 HRLI COR,@KLUBRX 1442 031264 312 14 0 00 000013 CAME COR,ACT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6-2 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0069 1443 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1444 1445 031265 036 13 0 00 037123 1446 031266 035 00 0 00 031256 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1447 1448 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1449 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1450 000100 XX=XX+XX 1451 IFE XX, 1452 031267 200 14 0 00 037133 MOVE COR,[LLDUSB,,400000!XX] 1453 031270 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1454 031271 7 010 04 0 00 000013 DATAI PAG,ACT 1455 031272 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1456 031273 620 14 0 00 400000 TRZ COR,400000 1457 031274 505 14 1 00 043727 HRLI COR,@KLUBRX 1458 031275 312 14 0 00 000013 CAME COR,ACT 1459 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1460 1461 031276 036 13 0 00 037123 1462 031277 035 00 0 00 031267 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1463 1464 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1465 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1466 000200 XX=XX+XX 1467 IFE XX, 1468 031300 200 14 0 00 037134 MOVE COR,[LLDUSB,,400000!XX] 1469 031301 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1470 031302 7 010 04 0 00 000013 DATAI PAG,ACT 1471 031303 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1472 031304 620 14 0 00 400000 TRZ COR,400000 1473 031305 505 14 1 00 043727 HRLI COR,@KLUBRX 1474 031306 312 14 0 00 000013 CAME COR,ACT 1475 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1476 1477 031307 036 13 0 00 037123 1478 031310 035 00 0 00 031300 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1479 1480 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1481 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1482 000400 XX=XX+XX 1483 IFE XX, 1484 031311 200 14 0 00 037135 MOVE COR,[LLDUSB,,400000!XX] 1485 031312 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1486 031313 7 010 04 0 00 000013 DATAI PAG,ACT 1487 031314 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1488 031315 620 14 0 00 400000 TRZ COR,400000 1489 031316 505 14 1 00 043727 HRLI COR,@KLUBRX 1490 031317 312 14 0 00 000013 CAME COR,ACT 1491 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1492 1493 031320 036 13 0 00 037123 1494 031321 035 00 0 00 031311 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1495 1496 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1497 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 6-3 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0070 1498 001000 XX=XX+XX 1499 IFE XX, 1500 031322 200 14 0 00 037136 MOVE COR,[LLDUSB,,400000!XX] 1501 031323 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1502 031324 7 010 04 0 00 000013 DATAI PAG,ACT 1503 031325 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1504 031326 620 14 0 00 400000 TRZ COR,400000 1505 031327 505 14 1 00 043727 HRLI COR,@KLUBRX 1506 031330 312 14 0 00 000013 CAME COR,ACT 1507 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1508 1509 031331 036 13 0 00 037123 1510 031332 035 00 0 00 031322 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1511 1512 ;*CHECK OUT USER BASE REGISTER ONE FLOP AT A TIME. 1513 ;*ON A FAILURE CHECK CORRESPONDING FLOP AND CONTROL SIGNALS 1514 002000 XX=XX+XX 1515 IFE XX, 1516 031333 200 14 0 00 037137 MOVE COR,[LLDUSB,,400000!XX] 1517 031334 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 1 1518 031335 7 010 04 0 00 000013 DATAI PAG,ACT 1519 031336 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1520 031337 620 14 0 00 400000 TRZ COR,400000 1521 031340 505 14 1 00 043727 HRLI COR,@KLUBRX 1522 031341 312 14 0 00 000013 CAME COR,ACT 1523 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 1 1524 1525 031342 036 13 0 00 037123 1526 031343 035 00 0 00 031333 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 7 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0071 1527 ;*LOAD USER BASE REGISTER WITH ALL ONE'S AS ADDITIONAL CHECK. 1528 1529 031344 200 14 0 00 037115 UBRCK3: MOVE COR,[LLDUSB,,403777] 1530 031345 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH ALL ONES 1531 031346 7 010 04 0 00 000013 DATAI PAG,ACT 1532 031347 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1533 031350 620 14 0 00 400000 TRZ COR,400000 1534 031351 505 14 1 00 043727 HRLI COR,@KLUBRX 1535 031352 312 14 0 00 000013 CAME COR,ACT 1536 ERROR UBRCK3,13,COR,ACT,UBR,ALL 1'S^ 1537 031353 036 13 0 00 037140 1538 031354 035 00 0 00 031344 ERLOOP UBRCK3 ;IF ERROR, LOOP TO UBRCK3 1539 1540 000000 XX=0 1541 1542 UBRCK4: REPEAT ^D11,< 1543 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1544 ;*CHECK BIT INTERACTION. 1545 XX=XX+XX 1546 IFE XX, 1547 MOVE COR,[LLDUSB,,403777-XX] 1548 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1549 DATAI PAG,ACT 1550 DATAO PAG,[LLDUSB,,400000] 1551 TRZ COR,400000 1552 HRLI COR,@KLUBRX 1553 CAME COR,ACT 1554 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0> 1555 1556 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1557 ;*CHECK BIT INTERACTION. 1558 000000 XX=XX+XX 1559 000001 IFE XX, 1560 031355 200 14 0 00 037143 MOVE COR,[LLDUSB,,403777-XX] 1561 031356 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1562 031357 7 010 04 0 00 000013 DATAI PAG,ACT 1563 031360 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1564 031361 620 14 0 00 400000 TRZ COR,400000 1565 031362 505 14 1 00 043727 HRLI COR,@KLUBRX 1566 031363 312 14 0 00 000013 CAME COR,ACT 1567 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1568 1569 031364 036 13 0 00 037144 1570 031365 035 00 0 00 031355 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1571 1572 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1573 ;*CHECK BIT INTERACTION. 1574 000002 XX=XX+XX 1575 IFE XX, 1576 031366 200 14 0 00 037147 MOVE COR,[LLDUSB,,403777-XX] 1577 031367 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1578 031370 7 010 04 0 00 000013 DATAI PAG,ACT 1579 031371 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1580 031372 620 14 0 00 400000 TRZ COR,400000 1581 031373 505 14 1 00 043727 HRLI COR,@KLUBRX DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 7-1 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0072 1582 031374 312 14 0 00 000013 CAME COR,ACT 1583 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1584 1585 031375 036 13 0 00 037144 1586 031376 035 00 0 00 031366 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1587 1588 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1589 ;*CHECK BIT INTERACTION. 1590 000004 XX=XX+XX 1591 IFE XX, 1592 031377 200 14 0 00 037150 MOVE COR,[LLDUSB,,403777-XX] 1593 031400 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1594 031401 7 010 04 0 00 000013 DATAI PAG,ACT 1595 031402 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1596 031403 620 14 0 00 400000 TRZ COR,400000 1597 031404 505 14 1 00 043727 HRLI COR,@KLUBRX 1598 031405 312 14 0 00 000013 CAME COR,ACT 1599 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1600 1601 031406 036 13 0 00 037144 1602 031407 035 00 0 00 031377 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1603 1604 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1605 ;*CHECK BIT INTERACTION. 1606 000010 XX=XX+XX 1607 IFE XX, 1608 031410 200 14 0 00 037151 MOVE COR,[LLDUSB,,403777-XX] 1609 031411 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1610 031412 7 010 04 0 00 000013 DATAI PAG,ACT 1611 031413 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1612 031414 620 14 0 00 400000 TRZ COR,400000 1613 031415 505 14 1 00 043727 HRLI COR,@KLUBRX 1614 031416 312 14 0 00 000013 CAME COR,ACT 1615 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1616 1617 031417 036 13 0 00 037144 1618 031420 035 00 0 00 031410 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1619 1620 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1621 ;*CHECK BIT INTERACTION. 1622 000020 XX=XX+XX 1623 IFE XX, 1624 031421 200 14 0 00 037152 MOVE COR,[LLDUSB,,403777-XX] 1625 031422 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1626 031423 7 010 04 0 00 000013 DATAI PAG,ACT 1627 031424 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1628 031425 620 14 0 00 400000 TRZ COR,400000 1629 031426 505 14 1 00 043727 HRLI COR,@KLUBRX 1630 031427 312 14 0 00 000013 CAME COR,ACT 1631 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1632 1633 031430 036 13 0 00 037144 1634 031431 035 00 0 00 031421 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1635 1636 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 7-2 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0073 1637 ;*CHECK BIT INTERACTION. 1638 000040 XX=XX+XX 1639 IFE XX, 1640 031432 200 14 0 00 037153 MOVE COR,[LLDUSB,,403777-XX] 1641 031433 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1642 031434 7 010 04 0 00 000013 DATAI PAG,ACT 1643 031435 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1644 031436 620 14 0 00 400000 TRZ COR,400000 1645 031437 505 14 1 00 043727 HRLI COR,@KLUBRX 1646 031440 312 14 0 00 000013 CAME COR,ACT 1647 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1648 1649 031441 036 13 0 00 037144 1650 031442 035 00 0 00 031432 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1651 1652 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1653 ;*CHECK BIT INTERACTION. 1654 000100 XX=XX+XX 1655 IFE XX, 1656 031443 200 14 0 00 037154 MOVE COR,[LLDUSB,,403777-XX] 1657 031444 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1658 031445 7 010 04 0 00 000013 DATAI PAG,ACT 1659 031446 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1660 031447 620 14 0 00 400000 TRZ COR,400000 1661 031450 505 14 1 00 043727 HRLI COR,@KLUBRX 1662 031451 312 14 0 00 000013 CAME COR,ACT 1663 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1664 1665 031452 036 13 0 00 037144 1666 031453 035 00 0 00 031443 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1667 1668 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1669 ;*CHECK BIT INTERACTION. 1670 000200 XX=XX+XX 1671 IFE XX, 1672 031454 200 14 0 00 037155 MOVE COR,[LLDUSB,,403777-XX] 1673 031455 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1674 031456 7 010 04 0 00 000013 DATAI PAG,ACT 1675 031457 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1676 031460 620 14 0 00 400000 TRZ COR,400000 1677 031461 505 14 1 00 043727 HRLI COR,@KLUBRX 1678 031462 312 14 0 00 000013 CAME COR,ACT 1679 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1680 1681 031463 036 13 0 00 037144 1682 031464 035 00 0 00 031454 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1683 1684 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1685 ;*CHECK BIT INTERACTION. 1686 000400 XX=XX+XX 1687 IFE XX, 1688 031465 200 14 0 00 037156 MOVE COR,[LLDUSB,,403777-XX] 1689 031466 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1690 031467 7 010 04 0 00 000013 DATAI PAG,ACT 1691 031470 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 7-3 DSKEAM MAC 29-Mar-78 14:55 TEST USER BASE REGISTER SEQ 0074 1692 031471 620 14 0 00 400000 TRZ COR,400000 1693 031472 505 14 1 00 043727 HRLI COR,@KLUBRX 1694 031473 312 14 0 00 000013 CAME COR,ACT 1695 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1696 1697 031474 036 13 0 00 037144 1698 031475 035 00 0 00 031465 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1699 1700 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1701 ;*CHECK BIT INTERACTION. 1702 001000 XX=XX+XX 1703 IFE XX, 1704 031476 200 14 0 00 037157 MOVE COR,[LLDUSB,,403777-XX] 1705 031477 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1706 031500 7 010 04 0 00 000013 DATAI PAG,ACT 1707 031501 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1708 031502 620 14 0 00 400000 TRZ COR,400000 1709 031503 505 14 1 00 043727 HRLI COR,@KLUBRX 1710 031504 312 14 0 00 000013 CAME COR,ACT 1711 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1712 1713 031505 036 13 0 00 037144 1714 031506 035 00 0 00 031476 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1715 1716 ;*LOAD USER BASE REGISTER WITH A FLOATING ZERO 1717 ;*CHECK BIT INTERACTION. 1718 002000 XX=XX+XX 1719 IFE XX, 1720 031507 200 14 0 00 037160 MOVE COR,[LLDUSB,,403777-XX] 1721 031510 7 010 14 0 00 000014 DATAO PAG,COR ;LOAD UBR WITH A FLOATING 0 1722 031511 7 010 04 0 00 000013 DATAI PAG,ACT 1723 031512 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1724 031513 620 14 0 00 400000 TRZ COR,400000 1725 031514 505 14 1 00 043727 HRLI COR,@KLUBRX 1726 031515 312 14 0 00 000013 CAME COR,ACT 1727 ERROR .-^D8,13,COR,ACT,UBR,FLOATING 0 1728 1729 031516 036 13 0 00 037144 1730 031517 035 00 0 00 031507 ERLOOP .-^D8 ;IF ERROR, LOOP TO .-^D8 1731 031520 367 15 0 00 031156 REPTLP UBRCK0+1 1732 1733 XLIST 1734 LIST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 14 DSKEAM MAC 29-Mar-78 14:55 TEST PROCESSOR TRAPS SEQ 0075 1735 SUBTTL TEST PROCESSOR TRAPS 1736 1737 SALL 1738 037161 T=SIXBTZ PROCESSOR TRAP TEST 1739 LALL 1740 1741 SUBTST^ 1742 031521 201 00 0 00 031521 MOVEI . 1743 031522 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 1744 031523 200 15 0 00 043737 P0TRP0: MOVE REPT,RPEAT 1745 031524 7 010 20 0 00 020000 CONO PAG,LTRPEN 1746 031525 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 1747 1748 ;*TEST TRAP 3 TRAP 1749 1750 031526 200 07 0 00 037165 P0TRP1: MOVE AC,[JSR P0TP3] 1751 031527 202 07 0 00 000423 MOVEM AC,LTRP3T 1752 031530 7 010 20 0 00 020000 CONO PAG,LTRPEN 1753 031531 254 02 1 00 031532 JRSTF @.+1 1754 031532 000600 031533 TN0!TN1,,.+1 1755 031533 200 00 0 00 043732 P0TP3X: MOVE LTRP3SV 1756 031534 202 00 0 00 000423 MOVEM LTRP3T 1757 ERROR1 13,0,0,TRAP 3 FAILED,FATAL^ 1758 SALL 1759 031535 036 13 0 00 037172 1760 031536 254 00 0 00 031550 JRST P0PDLX-5 1761 1762 031537 000000 000000 P0TP3: 0 1763 031540 7 010 20 0 00 020000 CONO PAG,LTRPEN 1764 031541 200 00 0 00 043732 MOVE LTRP3SV 1765 031542 202 00 0 00 000423 MOVEM LTRP3T 1766 031543 200 14 0 00 037175 MOVE COR,[0,,P0TP3X] 1767 031544 200 13 0 00 031537 MOVE ACT,P0TP3 1768 031545 312 14 0 00 000013 CAME COR,ACT 1769 ERROR P0TRP1,13,COR,ACT,TRAP 3 SAVED PC^ 1770 031546 036 13 0 00 037201 1771 031547 035 00 0 00 031526 ERLOOP P0TRP1 ;IF ERROR, LOOP TO P0TRP1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 15 DSKEAM MAC 29-Mar-78 14:55 TEST PROCESSOR TRAPS SEQ 0076 1772 ;*TEST PUSHDOWN OVERFLOW TRAP 1773 1774 031550 200 07 0 00 037204 MOVE AC,[JSR P0PDL] 1775 031551 202 07 0 00 000422 MOVEM AC,LPDOVT 1776 031552 7 010 20 0 00 020000 CONO PAG,LTRPEN 1777 031553 254 02 1 00 031554 JRSTF @.+1 1778 031554 000400 031555 TN0,,.+1 1779 031555 200 00 0 00 043731 P0PDLX: MOVE LPDOVSV 1780 031556 202 00 0 00 000422 MOVEM LPDOVT 1781 ERROR1 13,0,0,TRAP 2 FAILED,FATAL^ 1782 031557 036 13 0 00 037210 1783 031560 254 00 0 00 031572 JRST P0AROX-5 1784 1785 031561 000000 000000 P0PDL: 0 1786 031562 7 010 20 0 00 020000 CONO PAG,LTRPEN 1787 031563 200 00 0 00 043731 MOVE LPDOVSV 1788 031564 202 00 0 00 000422 MOVEM LPDOVT 1789 031565 200 14 0 00 037213 MOVE COR,[0,,P0PDLX] 1790 031566 200 13 0 00 031561 MOVE ACT,P0PDL 1791 031567 312 14 0 00 000013 CAME COR,ACT 1792 ERROR P0TRP1,13,COR,ACT,TRAP 2 SAVED PC^ 1793 031570 036 13 0 00 037217 1794 031571 035 00 0 00 031526 ERLOOP P0TRP1 ;IF ERROR, LOOP TO P0TRP1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 16 DSKEAM MAC 29-Mar-78 14:55 TEST PROCESSOR TRAPS SEQ 0077 1795 ;*TEST OVERFLOW TRAP 1796 1797 031572 200 07 0 00 037222 MOVE AC,[JSR P0AROV] 1798 031573 202 07 0 00 000421 MOVEM AC,LAROVT 1799 031574 7 010 20 0 00 020000 CONO PAG,LTRPEN 1800 031575 254 02 1 00 031576 JRSTF @.+1 1801 031576 000200 031577 TN1,,.+1 1802 031577 200 00 0 00 043730 P0AROX: MOVE LAROVSV 1803 031600 202 00 0 00 000421 MOVEM LAROVT 1804 ERROR1 13,0,0,TRAP 1 FAILED,FATAL^ 1805 031601 036 13 0 00 037226 1806 031602 254 00 0 00 031615 JRST P0ARO1 1807 1808 031603 000000 000000 P0AROV: 0 1809 031604 7 010 20 0 00 020000 CONO PAG,LTRPEN 1810 031605 200 00 0 00 043730 MOVE LAROVSV 1811 031606 202 00 0 00 000421 MOVEM LAROVT 1812 031607 200 14 0 00 037231 MOVE COR,[0,,P0AROX] 1813 031610 200 13 0 00 031603 MOVE ACT,P0AROV 1814 031611 312 14 0 00 000013 CAME COR,ACT 1815 ERROR P0TRP1,13,COR,ACT,TRAP 1 SAVED PC^ 1816 031612 036 13 0 00 037235 1817 031613 035 00 0 00 031526 ERLOOP P0TRP1 ;IF ERROR, LOOP TO P0TRP1 1818 1819 031614 367 15 0 00 031524 REPTLP P0TRP0+1 1820 031615 P0ARO1: DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 17 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0078 1821 SUBTTL PDL TRAPPING TESTS 1822 1823 ;*THESE TEST FOR THE PUSHDOWN INSTRUCTIONS INSURE THAT THEY WILL 1824 ;*INDEED TRAP WHEN AN OVERFLOW OR UNDERFLOW CONDITION OCCURS. 1825 ;*THESE TEST ALSO VERIFY THE VALIDITY OF THE INFORMATION PROCESSED 1826 ;*BY THE INSTRUCTION, AS THEY SHOULD GIVE VALID RESULTS INDEPENDENT 1827 ;*OF WHETHER OR NOT THEY TRAP. 1828 1829 ;*TEST PUSH INSTRUCTION 1830 1831 SUBTST^ 1832 031615 201 00 0 00 031615 MOVEI . 1833 031616 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 1834 031617 200 15 0 00 043737 PDT0: MOVE REPT,RPEAT 1835 1836 031620 205 00 0 00 031625 PDT1: MOVSI PDT2 ;SHOULD TRAP HERE 1837 031621 541 00 0 00 031627 HRRI PDT3 ;AFTER TRAP 1838 031622 260 17 0 00 032331 GO PDSET ;SETUP TRAPPING 1839 1840 031623 200 01 0 00 037240 MOVE 1,[-1,,OVSTR1-1] ; SET PDL POINTER 1841 1842 031624 261 01 0 00 032365 PUSH 1,TSTWD ;PUSH SHOULD TRAP 1843 1844 031625 PDT2: ERROR PDT1,13,0,0,PUSH,PUSH DID NOT TRAP^ 1845 031625 036 13 0 00 037245 1846 031626 035 00 0 00 031620 ERLOOP PDT1 ;IF ERROR, LOOP TO PDT1 1847 1848 037250 C=[0,,OVSTR1] 1849 031627 312 01 0 00 037250 PDT3: CAME 1,C ;PDL POINTER OK ? 1850 ERROR PDT1,13,C,1,PUSH,DID NOT INCREMENT POINTER^ 1851 031630 036 13 0 00 037256 1852 031631 035 00 0 00 031620 ERLOOP PDT1 ;IF ERROR, LOOP TO PDT1 1853 1854 031632 200 01 0 00 032366 MOVE 1,OVSTR1 ;GET C(STK) 1855 031633 312 01 0 00 032365 CAME 1,TSTWD ;VERIFY CORRECT DEPOSIT OF DATA 1856 ERROR PDT1,13,TSTWD,1,PUSH,DID NOT STORE DATA^ 1857 031634 036 13 0 00 037265 1858 031635 035 00 0 00 031620 ERLOOP PDT1 ;IF ERROR, LOOP TO PDT1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 18 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0079 1859 ;*TEST PUSHJ INSTRUCTION 1860 1861 031636 205 00 0 00 031645 PDT4A: MOVSI PDT5 ;SHOULD TRAP 1862 031637 541 00 0 00 031647 HRRI PDT6 ;RETURN TO AFTER TRAP 1863 031640 260 17 0 00 032331 GO PDSET ;SETUP TRAPPING 1864 1865 031641 200 01 0 00 037240 MOVE 1,[-1,,OVSTR1-1] ;SET PTR 1866 1867 031642 260 01 0 00 031645 PUSHJ 1,PDT5 ;PUSHJ SHOULD TRAP 1868 1869 031643 PDT4: ERROR PDT4A,13,0,0,PUSHJ,DID NOT TRAP OR CALC EA^ 1870 031643 036 13 0 00 037275 1871 031644 035 00 0 00 031636 ERLOOP PDT4A ;IF ERROR, LOOP TO PDT4A 1872 1873 031645 PDT5: ERROR PDT4A,13,0,0,PUSHJ,DID NOT TRAP^ 1874 031645 036 13 0 00 037303 1875 031646 035 00 0 00 031636 ERLOOP PDT4A ;IF ERROR, LOOP TO PDT4A 1876 1877 037250 C=[0,,OVSTR1] 1878 031647 312 01 0 00 037250 PDT6: CAME 1,C 1879 ERROR PDT4A,13,C,1,PUSHJ,DID NOT INCREMENT POINTER^ 1880 031650 036 13 0 00 037306 1881 031651 035 00 0 00 031636 ERLOOP PDT4A ;IF ERROR, LOOP TO PDT4A 1882 1883 031652 200 01 0 00 032366 MOVE 1,OVSTR1 ;GET C(STK) 1884 031653 201 02 0 00 031643 MOVEI 2,PDT4 ;GET ADR WHERE TRAPPED 1885 031654 553 00 0 00 000001 HRRZS 1 ;CLEAR LH(AC1) 1886 031655 312 01 0 00 000002 CAME 1,2 ;AC1=AC2 ? 1887 ERROR PDT4A,13,2,1,PUSHJ,DID NOT SAVE RIGHT RET ADDR^ 1888 031656 036 13 0 00 037316 1889 031657 035 00 0 00 031636 ERLOOP PDT4A ;IF ERROR, LOOP TO PDT4A DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 19 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0080 1890 ;*TEST POP INSTRUCTION 1891 1892 031660 205 00 0 00 031670 PDT7: MOVSI PDT8 ;SHOULD TRAP HERE 1893 031661 541 00 0 00 031672 HRRI PDT9 ;RETURN TO AFTER TRAP 1894 031662 260 17 0 00 032331 GO PDSET ;SETUP TRAPPING 1895 1896 031663 201 01 0 00 032366 MOVEI 1,OVSTR1 ;SET PDL POINTER 1897 031664 200 00 0 00 032365 MOVE TSTWD# ;GET TEST WORD 1898 031665 202 00 0 00 032366 MOVEM OVSTR1# ;PUT IT ON STACK 1899 031666 400 02 0 00 000000 SETZ 2, ;CLEAR AC2 1900 1901 031667 262 01 0 00 000002 POP 1,2 ;POP SHOULD TRAP 1902 031670 PDT8: ERROR PDT7,13,0,0,POP,DID NOT TRAP^ 1903 031670 036 13 0 00 037322 1904 031671 035 00 0 00 031660 ERLOOP PDT7 ;IF ERROR, LOOP TO PDT7 1905 1906 031672 312 02 0 00 032365 PDT9: CAME 2,TSTWD ;AC2 RESTORED OK ? 1907 ERROR PDT7,13,TSTWD,2,POP,DID NOT RESTORE DATA^ 1908 031673 036 13 0 00 037331 1909 031674 035 00 0 00 031660 ERLOOP PDT7 ;IF ERROR, LOOP TO PDT7 1910 1911 037240 C=[-1,,OVSTR1-1] 1912 031675 312 01 0 00 037240 CAME 1,C ;PTR OK ? 1913 ERROR PDT7,13,C,1,POP,DID NOT DECREMENT POINTER^ 1914 031676 036 13 0 00 037341 1915 031677 035 00 0 00 031660 ERLOOP PDT7 ;IF ERROR, LOOP TO PDT7 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 20 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0081 1916 ;*TEST POPJ INSTRUCTION 1917 1918 031700 205 00 0 00 031711 PDT10: MOVSI PDT11A ;SHOULD TRAP TO HERE 1919 031701 541 00 0 00 031713 HRRI PDT12 ;RETURN HERE 1920 031702 260 17 0 00 032331 GO PDSET ;SETUP TRAPPING 1921 1922 031703 201 01 0 00 032366 MOVEI 1,OVSTR1 ;SETUP PDL STACK 1923 031704 201 00 0 00 031711 MOVEI PDT11A ;GET POPJ'S RETURN ADDRESS 1924 031705 202 00 0 00 032366 MOVEM OVSTR1 ;PUT ON STACK 1925 1926 031706 263 01 0 00 000000 POPJ 1, ;POPJ SHOULD TRAP 1927 1928 031707 PDT11: ERROR PDT10,13,0,0,POPJ,DID NOT TRAP OR GET RETURN ADR^ 1929 031707 036 13 0 00 037353 1930 031710 035 00 0 00 031700 ERLOOP PDT10 ;IF ERROR, LOOP TO PDT10 1931 1932 031711 PDT11A: ERROR PDT10,13,0,0,POPJ,DID NOT TRAP^ 1933 031711 036 13 0 00 037356 1934 031712 035 00 0 00 031700 ERLOOP PDT10 ;IF ERROR, LOOP TO PDT10 1935 1936 037240 C=[-1,,OVSTR1-1] 1937 031713 312 01 0 00 037240 PDT12: CAME 1,C 1938 ERROR PDT10,13,C,1,POPJ,DID NOT DECREMENT POINTER^ 1939 031714 036 13 0 00 037361 1940 031715 035 00 0 00 031700 ERLOOP PDT10 ;IF ERROR, LOOP TO PDT10 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 21 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0082 1941 ;*TEST OVERFLOW TRAP WITH "ASH" 1942 1943 031716 205 00 0 00 031723 ASHTST: MOVSI ASHTRP ;TRAP TO HERE 1944 031717 541 00 0 00 031727 HRRI ASHRET ;RETURN TO HERE 1945 031720 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 1946 1947 031721 200 02 0 00 037364 MOVE 2,[377777,,-1] 1948 1949 031722 240 02 0 00 000001 ASH 2,1 ;ASH SHOULD TRAP 1950 1951 031723 200 00 0 00 043730 ASHTRP: MOVE LAROVSV 1952 031724 202 00 0 00 000421 MOVEM LAROVT 1953 ERROR ASHTST,13,0,0,ASH OVERFLOW,DID NOT TRAP^ 1954 031725 036 13 0 00 037370 1955 031726 035 00 0 00 031716 ERLOOP ASHTST ;IF ERROR, LOOP TO ASHTST 1956 1957 037373 C=[377777,,-2] 1958 031727 200 00 0 00 043730 ASHRET: MOVE LAROVSV 1959 031730 202 00 0 00 000421 MOVEM LAROVT 1960 031731 312 02 0 00 037373 CAME 2,C ;INSURE AC HAS CHANGED 1961 ERROR ASHTST,13,C,2,ASH OVERFLOW,AC WRONG^ 1962 031732 036 13 0 00 037376 1963 031733 035 00 0 00 031716 ERLOOP ASHTST ;IF ERROR, LOOP TO ASHTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 22 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0083 1964 ;*TEST OVERFLOW TRAP WITH "ASHC" 1965 1966 031734 205 00 0 00 031742 ASHCTST:MOVSI ASHCTRP ;TRAP TO HERE 1967 031735 541 00 0 00 031746 HRRI ASHCRET ;RETURN TO HERE 1968 031736 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 1969 1970 031737 200 02 0 00 037364 MOVE 2,[377777,,-1] 1971 031740 201 03 0 00 000000 MOVEI 3,0 1972 1973 031741 244 02 0 00 000001 ASHC 2,1 ;ASHC SHOULD TRAP 1974 1975 031742 200 00 0 00 043730 ASHCTRP:MOVE LAROVSV 1976 031743 202 00 0 00 000421 MOVEM LAROVT 1977 ERROR ASHCTST,13,0,0,ASHC OVERFLOW,DID NOT TRAP^ 1978 031744 036 13 0 00 037404 1979 031745 035 00 0 00 031734 ERLOOP ASHCTST ;IF ERROR, LOOP TO ASHCTST 1980 1981 037373 C=[377777,,-2] 1982 031746 200 00 0 00 043730 ASHCRET:MOVE LAROVSV 1983 031747 202 00 0 00 000421 MOVEM LAROVT 1984 031750 312 02 0 00 037373 CAME 2,C ;INSURE AC HAS CHANGED 1985 ERROR ASHCTST,13,C,2,ASHC OVERFLOW,AC WRONG^ 1986 031751 036 13 0 00 037407 1987 031752 035 00 0 00 031734 ERLOOP ASHCTST ;IF ERROR, LOOP TO ASHCTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 23 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0084 1988 ;*TEST OVERFLOW TRAP WITH "MUL" 1989 1990 031753 205 00 0 00 031760 MULTST: MOVSI MULTRP ;TRAP TO HERE 1991 031754 541 00 0 00 031764 HRRI MULRET ;RETURN TO HERE 1992 031755 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 1993 1994 031756 200 02 0 00 037412 MOVE 2,[400000,,0] 1995 1996 031757 224 02 0 00 000002 MUL 2,2 ;MUL SHOULD TRAP 1997 1998 031760 200 00 0 00 043730 MULTRP: MOVE LAROVSV 1999 031761 202 00 0 00 000421 MOVEM LAROVT 2000 ERROR MULTST,13,0,0,MUL OVERFLOW,DID NOT TRAP^ 2001 031762 036 13 0 00 037416 2002 031763 035 00 0 00 031753 ERLOOP MULTST ;IF ERROR, LOOP TO MULTST 2003 2004 037412 C=[400000,,0] 2005 031764 200 00 0 00 043730 MULRET: MOVE LAROVSV 2006 031765 202 00 0 00 000421 MOVEM LAROVT 2007 031766 312 02 0 00 037412 CAME 2,C ;INSURE AC HAS CHANGED 2008 ERROR MULTST,13,C,2,MUL OVERFLOW,AC MODIFIED^ 2009 031767 036 13 0 00 037423 2010 031770 035 00 0 00 031753 ERLOOP MULTST ;IF ERROR, LOOP TO MULTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 24 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0085 2011 ;*TEST OVERFLOW TRAP WITH "IMUL" 2012 2013 031771 205 00 0 00 031776 IMULTST:MOVSI IMULTRP ;TRAP TO HERE 2014 031772 541 00 0 00 032002 HRRI IMULRET ;RETURN TO HERE 2015 031773 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2016 2017 031774 200 02 0 00 037412 MOVE 2,[400000,,0] 2018 2019 031775 220 02 0 00 000002 IMUL 2,2 ;IMUL SHOULD TRAP 2020 2021 031776 200 00 0 00 043730 IMULTRP:MOVE LAROVSV 2022 031777 202 00 0 00 000421 MOVEM LAROVT 2023 ERROR IMULTST,13,0,0,IMUL OVERFLOW,DID NOT TRAP^ 2024 032000 036 13 0 00 037431 2025 032001 035 00 0 00 031771 ERLOOP IMULTST ;IF ERROR, LOOP TO IMULTST 2026 2027 037412 C=[400000,,0] 2028 032002 200 00 0 00 043730 IMULRET:MOVE LAROVSV 2029 032003 202 00 0 00 000421 MOVEM LAROVT 2030 032004 312 02 0 00 037412 CAME 2,C ;INSURE AC HAS CHANGED 2031 ERROR IMULTST,13,C,2,IMUL OVERFLOW,AC MODIFIED^ 2032 032005 036 13 0 00 037434 2033 032006 035 00 0 00 031771 ERLOOP IMULTST ;IF ERROR, LOOP TO IMULTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 25 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0086 2034 ;*TEST OVERFLOW TRAP WITH "ADJBP" 2035 2036 032007 205 00 0 00 032014 ADJTST: MOVSI ADJTRP ;TRAP TO HERE 2037 032010 541 00 0 00 032020 HRRI ADJRET ;RETURN TO HERE 2038 032011 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2039 2040 032012 200 02 0 00 037437 MOVE 2,[017700,,0] 2041 2042 032013 133 01 0 00 000002 IBP 1,2 ;ADJBP SHOULD TRAP 2043 2044 032014 200 00 0 00 043730 ADJTRP: MOVE LAROVSV 2045 032015 202 00 0 00 000421 MOVEM LAROVT 2046 ERROR ADJTST,13,0,0,ADJBP OVERFLOW,DID NOT TRAP^ 2047 032016 036 13 0 00 037443 2048 032017 035 00 0 00 032007 ERLOOP ADJTST ;IF ERROR, LOOP TO ADJTST 2049 2050 032020 200 00 0 00 043730 ADJRET: MOVE LAROVSV 2051 032021 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 26 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0087 2052 ;*TEST OVERFLOW TRAP WITH "FSC" 2053 2054 032022 205 00 0 00 032027 FSCTST: MOVSI FSCTRP ;TRAP TO HERE 2055 032023 541 00 0 00 032033 HRRI FSCRET ;RETURN TO HERE 2056 032024 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2057 2058 032025 200 02 0 00 037446 MOVE 2,[-377400,,0] 2059 2060 032026 132 02 0 00 777400 FSC 2,-400 ;FSC SHOULD TRAP 2061 2062 032027 200 00 0 00 043730 FSCTRP: MOVE LAROVSV 2063 032030 202 00 0 00 000421 MOVEM LAROVT 2064 ERROR FSCTST,13,0,0,FSC OVERFLOW,DID NOT TRAP^ 2065 032031 036 13 0 00 037452 2066 032032 035 00 0 00 032022 ERLOOP FSCTST ;IF ERROR, LOOP TO FSCTST 2067 2068 032033 200 00 0 00 043730 FSCRET: MOVE LAROVSV 2069 032034 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 27 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0088 2070 ;*TEST OVERFLOW TRAP WITH "FIX" 2071 2072 032035 205 00 0 00 032042 FIXTST: MOVSI FIXTRP ;TRAP TO HERE 2073 032036 541 00 0 00 032046 HRRI FIXRET ;RETURN TO HERE 2074 032037 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2075 2076 032040 200 02 0 00 037455 MOVE 2,[244400,,0] 2077 2078 032041 122 02 0 00 000002 FIX 2,2 ;FIX SHOULD TRAP 2079 2080 032042 200 00 0 00 043730 FIXTRP: MOVE LAROVSV 2081 032043 202 00 0 00 000421 MOVEM LAROVT 2082 ERROR FIXTST,13,0,0,FIX OVERFLOW,DID NOT TRAP^ 2083 032044 036 13 0 00 037461 2084 032045 035 00 0 00 032035 ERLOOP FIXTST ;IF ERROR, LOOP TO FIXTST 2085 2086 037455 C=[244400,,0] 2087 032046 200 00 0 00 043730 FIXRET: MOVE LAROVSV 2088 032047 202 00 0 00 000421 MOVEM LAROVT 2089 032050 312 02 0 00 037455 CAME 2,C ;INSURE AC HAS CHANGED 2090 ERROR FIXTST,13,C,2,FIX OVERFLOW,AC MODIFIED^ 2091 032051 036 13 0 00 037464 2092 032052 035 00 0 00 032035 ERLOOP FIXTST ;IF ERROR, LOOP TO FIXTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 28 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0089 2093 ;*TEST OVERFLOW TRAP WITH "FIXR" 2094 2095 032053 205 00 0 00 032060 FIXRTST:MOVSI FIXRTRP ;TRAP TO HERE 2096 032054 541 00 0 00 032064 HRRI FIXRRET ;RETURN TO HERE 2097 032055 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2098 2099 032056 200 02 0 00 037455 MOVE 2,[244400,,0] 2100 2101 032057 126 02 0 00 000002 FIXR 2,2 ;FIXR SHOULD TRAP 2102 2103 032060 200 00 0 00 043730 FIXRTRP:MOVE LAROVSV 2104 032061 202 00 0 00 000421 MOVEM LAROVT 2105 ERROR FIXRTST,13,0,0,FIXR OVERFLOW,DID NOT TRAP^ 2106 032062 036 13 0 00 037472 2107 032063 035 00 0 00 032053 ERLOOP FIXRTST ;IF ERROR, LOOP TO FIXRTST 2108 2109 037455 C=[244400,,0] 2110 032064 200 00 0 00 043730 FIXRRET:MOVE LAROVSV 2111 032065 202 00 0 00 000421 MOVEM LAROVT 2112 032066 312 02 0 00 037455 CAME 2,C ;INSURE AC HAS CHANGED 2113 ERROR FIXRTST,13,C,2,FIXR OVERFLOW,AC MODIFIED^ 2114 032067 036 13 0 00 037475 2115 032070 035 00 0 00 032053 ERLOOP FIXRTST ;IF ERROR, LOOP TO FIXRTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 29 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0090 2116 ;*TEST OVERFLOW TRAP WITH "FAD" 2117 2118 032071 205 00 0 00 032076 FADTST: MOVSI FADTRP ;TRAP TO HERE 2119 032072 541 00 0 00 032102 HRRI FADRET ;RETURN TO HERE 2120 032073 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2121 2122 032074 200 02 0 00 037500 MOVE 2,[377400,,0] 2123 2124 032075 140 02 0 00 000002 FAD 2,2 ;FAD SHOULD TRAP 2125 2126 032076 200 00 0 00 043730 FADTRP: MOVE LAROVSV 2127 032077 202 00 0 00 000421 MOVEM LAROVT 2128 ERROR FADTST,13,0,0,FAD OVERFLOW,DID NOT TRAP^ 2129 032100 036 13 0 00 037504 2130 032101 035 00 0 00 032071 ERLOOP FADTST ;IF ERROR, LOOP TO FADTST 2131 2132 032102 200 00 0 00 043730 FADRET: MOVE LAROVSV 2133 032103 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 30 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0091 2134 ;*TEST OVERFLOW TRAP WITH "DFAD" 2135 2136 032104 205 00 0 00 032111 DFADTST:MOVSI DFADTRP ;TRAP TO HERE 2137 032105 541 00 0 00 032115 HRRI DFADRET ;RETURN TO HERE 2138 032106 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2139 2140 032107 200 02 0 00 037500 MOVE 2,[377400,,0] 2141 2142 032110 110 02 0 00 000002 DFAD 2,2 ;DFAD SHOULD TRAP 2143 2144 032111 200 00 0 00 043730 DFADTRP:MOVE LAROVSV 2145 032112 202 00 0 00 000421 MOVEM LAROVT 2146 ERROR DFADTST,13,0,0,DFAD OVERFLOW,DID NOT TRAP^ 2147 032113 036 13 0 00 037512 2148 032114 035 00 0 00 032104 ERLOOP DFADTST ;IF ERROR, LOOP TO DFADTST 2149 2150 032115 200 00 0 00 043730 DFADRET:MOVE LAROVSV 2151 032116 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 31 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0092 2152 ;*TEST OVERFLOW TRAP WITH "FSB" 2153 2154 032117 205 00 0 00 032125 FSBTST: MOVSI FSBTRP ;TRAP TO HERE 2155 032120 541 00 0 00 032131 HRRI FSBRET ;RETURN TO HERE 2156 032121 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2157 2158 032122 200 02 0 00 037446 MOVE 2,[400400,,0] 2159 032123 200 03 0 00 037500 MOVE 3,[377400,,0] 2160 2161 032124 150 02 0 00 000003 FSB 2,3 ;FSB SHOULD TRAP 2162 2163 032125 200 00 0 00 043730 FSBTRP: MOVE LAROVSV 2164 032126 202 00 0 00 000421 MOVEM LAROVT 2165 ERROR FSBTST,13,0,0,FSB OVERFLOW,DID NOT TRAP^ 2166 032127 036 13 0 00 037520 2167 032130 035 00 0 00 032117 ERLOOP FSBTST ;IF ERROR, LOOP TO FSBTST 2168 2169 032131 200 00 0 00 043730 FSBRET: MOVE LAROVSV 2170 032132 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 32 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0093 2171 ;*TEST OVERFLOW TRAP WITH "DFSB" 2172 2173 032133 205 00 0 00 032142 DFSBTST:MOVSI DFSBTRP ;TRAP TO HERE 2174 032134 541 00 0 00 032146 HRRI DFSBRET ;RETURN TO HERE 2175 032135 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2176 2177 032136 200 02 0 00 037446 MOVE 2,[400400,,0] 2178 032137 200 04 0 00 037500 MOVE 4,[377400,,0] 2179 032140 403 03 0 00 000005 SETZB 3,5 2180 2181 032141 111 02 0 00 000004 DFSB 2,4 ;DFSB SHOULD TRAP 2182 2183 032142 200 00 0 00 043730 DFSBTRP:MOVE LAROVSV 2184 032143 202 00 0 00 000421 MOVEM LAROVT 2185 ERROR DFSBTST,13,0,0,DFSB OVERFLOW,DID NOT TRAP^ 2186 032144 036 13 0 00 037526 2187 032145 035 00 0 00 032133 ERLOOP DFSBTST ;IF ERROR, LOOP TO DFSBTST 2188 2189 032146 200 00 0 00 043730 DFSBRET:MOVE LAROVSV 2190 032147 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 33 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0094 2191 ;*TEST OVERFLOW TRAP WITH "FMP" 2192 2193 032150 205 00 0 00 032155 FMPTST: MOVSI FMPTRP ;TRAP TO HERE 2194 032151 541 00 0 00 032161 HRRI FMPRET ;RETURN TO HERE 2195 032152 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2196 2197 032153 200 02 0 00 037500 MOVE 2,[377400,,0] 2198 2199 032154 160 02 0 00 000002 FMP 2,2 ;FMP SHOULD TRAP 2200 2201 032155 200 00 0 00 043730 FMPTRP: MOVE LAROVSV 2202 032156 202 00 0 00 000421 MOVEM LAROVT 2203 ERROR FMPTST,13,0,0,FMP OVERFLOW,DID NOT TRAP^ 2204 032157 036 13 0 00 037534 2205 032160 035 00 0 00 032150 ERLOOP FMPTST ;IF ERROR, LOOP TO FMPTST 2206 2207 032161 200 00 0 00 043730 FMPRET: MOVE LAROVSV 2208 032162 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 34 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0095 2209 ;*TEST OVERFLOW TRAP WITH "DFMP" 2210 2211 032163 205 00 0 00 032170 DFMPTST:MOVSI DFMPTRP ;TRAP TO HERE 2212 032164 541 00 0 00 032174 HRRI DFMPRET ;RETURN TO HERE 2213 032165 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2214 2215 032166 200 02 0 00 037500 MOVE 2,[377400,,0] 2216 2217 032167 112 02 0 00 000002 DFMP 2,2 ;DFMP SHOULD TRAP 2218 2219 032170 200 00 0 00 043730 DFMPTRP:MOVE LAROVSV 2220 032171 202 00 0 00 000421 MOVEM LAROVT 2221 ERROR DFMPTST,13,0,0,DFMP OVERFLOW,DID NOT TRAP^ 2222 032172 036 13 0 00 037542 2223 032173 035 00 0 00 032163 ERLOOP DFMPTST ;IF ERROR, LOOP TO DFMPTST 2224 2225 032174 200 00 0 00 043730 DFMPRET:MOVE LAROVSV 2226 032175 202 00 0 00 000421 MOVEM LAROVT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 35 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0096 2227 ;*TEST NO-DIVIDE TRAP WITH "DIV" 2228 2229 032176 205 00 0 00 032203 DIVTST: MOVSI DIVTRP ;TRAP TO HERE 2230 032177 541 00 0 00 032207 HRRI DIVRET ;RETURN TO HERE 2231 032200 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2232 2233 032201 403 02 0 00 000003 SETZB 2,3 ;CLEAR AC2 & AC3 2234 2235 032202 234 02 0 00 000002 DIV 2,2 ;DIV SHOULD TRAP 2236 2237 032203 200 00 0 00 043730 DIVTRP: MOVE LAROVSV 2238 032204 202 00 0 00 000421 MOVEM LAROVT 2239 ERROR DIVTST,13,0,0,DIV NO DIVIDE,DID NOT TRAP^ 2240 032205 036 13 0 00 037550 2241 032206 035 00 0 00 032176 ERLOOP DIVTST ;IF ERROR, LOOP TO DIVTST 2242 2243 037173 C=[0] 2244 032207 200 00 0 00 043730 DIVRET: MOVE LAROVSV 2245 032210 202 00 0 00 000421 MOVEM LAROVT 2246 032211 312 02 0 00 037173 CAME 2,C ;INSURE AC HAS NOT CHANGED 2247 ERROR DIVTST,13,C,2,DIV NO DIVIDE,AC MODIFIED^ 2248 032212 036 13 0 00 037553 2249 032213 035 00 0 00 032176 ERLOOP DIVTST ;IF ERROR, LOOP TO DIVTST 2250 2251 032214 312 03 0 00 037173 CAME 3,C 2252 ERROR DIVTST,13,C,3,DIV NO DIVIDE,AC+1 MODIFIED^ 2253 032215 036 13 0 00 037561 2254 032216 035 00 0 00 032176 ERLOOP DIVTST ;IF ERROR, LOOP TO DIVTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 36 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0097 2255 ;*TEST NO-DIVIDE TRAP WITH "IDIV" 2256 2257 032217 205 00 0 00 032224 IDIVTST:MOVSI IDIVTRP ;TRAP TO HERE 2258 032220 541 00 0 00 032230 HRRI IDIVRET ;RETURN TO HERE 2259 032221 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2260 2261 032222 403 02 0 00 000003 SETZB 2,3 ;CLEAR AC2 & AC3 2262 2263 032223 230 02 0 00 000002 IDIV 2,2 ;IDIV SHOULD TRAP 2264 2265 032224 200 00 0 00 043730 IDIVTRP:MOVE LAROVSV 2266 032225 202 00 0 00 000421 MOVEM LAROVT 2267 ERROR IDIVTST,13,0,0,IDIV NO DIVIDE,DID NOT TRAP^ 2268 032226 036 13 0 00 037567 2269 032227 035 00 0 00 032217 ERLOOP IDIVTST ;IF ERROR, LOOP TO IDIVTST 2270 2271 037173 C=[0] 2272 032230 200 00 0 00 043730 IDIVRET:MOVE LAROVSV 2273 032231 202 00 0 00 000421 MOVEM LAROVT 2274 032232 312 02 0 00 037173 CAME 2,C ;INSURE AC HAS NOT CHANGED 2275 ERROR IDIVTST,13,C,2,IDIV NO DIVIDE,AC MODIFIED^ 2276 032233 036 13 0 00 037572 2277 032234 035 00 0 00 032217 ERLOOP IDIVTST ;IF ERROR, LOOP TO IDIVTST 2278 2279 032235 312 03 0 00 037173 CAME 3,C 2280 ERROR IDIVTST,13,C,3,IDIV NO DIVIDE,AC+1 MODIFIED^ 2281 032236 036 13 0 00 037575 2282 032237 035 00 0 00 032217 ERLOOP IDIVTST ;IF ERROR, LOOP TO IDIVTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 37 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0098 2283 ;*TEST NO-DIVIDE TRAP WITH "FDV" 2284 2285 032240 205 00 0 00 032245 FDVTST: MOVSI FDVTRP ;TRAP TO HERE 2286 032241 541 00 0 00 032251 HRRI FDVRET ;RETURN TO HERE 2287 032242 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2288 2289 032243 403 02 0 00 000003 SETZB 2,3 ;CLEAR AC2 & AC3 2290 2291 032244 170 02 0 00 000002 FDV 2,2 ;FDV SHOULD TRAP 2292 2293 032245 200 00 0 00 043730 FDVTRP: MOVE LAROVSV 2294 032246 202 00 0 00 000421 MOVEM LAROVT 2295 ERROR FDVTST,13,0,0,FDV NO DIVIDE,DID NOT TRAP^ 2296 032247 036 13 0 00 037603 2297 032250 035 00 0 00 032240 ERLOOP FDVTST ;IF ERROR, LOOP TO FDVTST 2298 2299 037173 C=[0] 2300 032251 200 00 0 00 043730 FDVRET: MOVE LAROVSV 2301 032252 202 00 0 00 000421 MOVEM LAROVT 2302 032253 312 02 0 00 037173 CAME 2,C ;INSURE AC HAS NOT CHANGED 2303 ERROR FDVTST,13,C,2,FDV NO DIVIDE,AC MODIFIED^ 2304 032254 036 13 0 00 037606 2305 032255 035 00 0 00 032240 ERLOOP FDVTST ;IF ERROR, LOOP TO FDVTST 2306 2307 032256 312 03 0 00 037173 CAME 3,C 2308 ERROR FDVTST,13,C,3,FDV NO DIVIDE,AC+1 MODIFIED^ 2309 032257 036 13 0 00 037611 2310 032260 035 00 0 00 032240 ERLOOP FDVTST ;IF ERROR, LOOP TO FDVTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 38 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0099 2311 ;*TEST NO-DIVIDE TRAP WITH "FDVR" 2312 2313 032261 205 00 0 00 032266 FDVRTST:MOVSI FDVRTRP ;TRAP TO HERE 2314 032262 541 00 0 00 032272 HRRI FDVRRET ;RETURN TO HERE 2315 032263 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2316 2317 032264 403 02 0 00 000003 SETZB 2,3 ;CLEAR AC2 & AC3 2318 2319 032265 174 02 0 00 000002 FDVR 2,2 ;FDVR SHOULD TRAP 2320 2321 032266 200 00 0 00 043730 FDVRTRP:MOVE LAROVSV 2322 032267 202 00 0 00 000421 MOVEM LAROVT 2323 ERROR FDVRTST,13,0,0,FDVR NO DIVIDE,DID NOT TRAP^ 2324 032270 036 13 0 00 037617 2325 032271 035 00 0 00 032261 ERLOOP FDVRTST ;IF ERROR, LOOP TO FDVRTST 2326 2327 037173 C=[0] 2328 032272 200 00 0 00 043730 FDVRRET:MOVE LAROVSV 2329 032273 202 00 0 00 000421 MOVEM LAROVT 2330 032274 312 02 0 00 037173 CAME 2,C ;INSURE AC HAS NOT CHANGED 2331 ERROR FDVRTST,13,C,2,FDVR NO DIVIDE,AC MODIFIED^ 2332 032275 036 13 0 00 037622 2333 032276 035 00 0 00 032261 ERLOOP FDVRTST ;IF ERROR, LOOP TO FDVRTST 2334 2335 032277 312 03 0 00 037173 CAME 3,C 2336 ERROR FDVRTST,13,C,3,FDVR NO DIVIDE,AC+1 MODIFIED^ 2337 032300 036 13 0 00 037625 2338 032301 035 00 0 00 032261 ERLOOP FDVRTST ;IF ERROR, LOOP TO FDVRTST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 39 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0100 2339 ;*TEST NO-DIVIDE TRAP WITH "DFDV" 2340 2341 032302 205 00 0 00 032307 DFDVTST:MOVSI DFDVTRP ;TRAP TO HERE 2342 032303 541 00 0 00 032313 HRRI DFDVRET ;RETURN TO HERE 2343 032304 260 17 0 00 032327 GO ARSET ;SETUP TRAPPING 2344 2345 032305 403 02 0 00 000003 SETZB 2,3 ;CLEAR AC2 & AC3 2346 032306 113 02 0 00 000002 DFDV 2,2 ;DFDV SHOULD TRAP 2347 2348 032307 200 00 0 00 043730 DFDVTRP:MOVE LAROVSV 2349 032310 202 00 0 00 000421 MOVEM LAROVT 2350 ERROR DFDVTST,13,0,0,DFDV NO DIVIDE,DID NOT TRAP^ 2351 032311 036 13 0 00 037633 2352 032312 035 00 0 00 032302 ERLOOP DFDVTST ;IF ERROR, LOOP TO DFDVTST 2353 2354 037173 C=[0] 2355 032313 200 00 0 00 043730 DFDVRET:MOVE LAROVSV 2356 032314 202 00 0 00 000421 MOVEM LAROVT 2357 032315 312 02 0 00 037173 CAME 2,C ;INSURE AC HAS NOT CHANGED 2358 ERROR DFDVTST,13,C,2,DFDV NO DIVIDE,AC MODIFIED^ 2359 032316 036 13 0 00 037636 2360 032317 035 00 0 00 032302 ERLOOP DFDVTST ;IF ERROR, LOOP TO DFDVTST 2361 2362 032320 312 03 0 00 037173 CAME 3,C 2363 ERROR DFDVTST,13,C,3,DFDV NO DIVIDE,AC+1 MODIFIED^ 2364 032321 036 13 0 00 037641 2365 032322 035 00 0 00 032302 ERLOOP DFDVTST ;IF ERROR, LOOP TO DFDVTST 2366 2367 032323 367 15 0 00 031620 REPTLP PDT1 ;REPEAT LOOP 2368 2369 032324 200 00 0 00 043731 MOVE LPDOVSV 2370 032325 202 00 0 00 000422 MOVEM LPDOVT ;RESTORE TRAP 2371 032326 254 00 0 00 032371 JRST MAPCK0-2 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 40 DSKEAM MAC 29-Mar-78 14:55 PDL TRAPPING TESTS SEQ 0101 2372 ;*TRAPPING SUBROUTINES 2373 2374 032327 402 00 0 00 032364 ARSET: SETZM TRPTYP ;NOTE AR OVERFLOW 2375 032330 254 00 0 00 032332 JRST .+2 2376 2377 032331 476 00 0 00 032364 PDSET: SETOM TRPTYP ;NOTE PDL OVERFLOW 2378 2379 032332 552 00 0 00 032361 HRRZM RETO ;SAVE TRAP RETURN ADDRESS 2380 032333 556 00 0 00 032360 HLRZM SHTRP ;SAVE WHERE SHOULD TRAP 2381 2382 032334 201 00 0 00 000421 MOVEI LAROVT ;GET AR TRAP LOCATION 2383 032335 332 00 0 00 032364 SKIPE TRPTYP 2384 032336 201 00 0 00 000422 MOVEI LPDOVT ;GET PDL TRAP LOCATION 2385 032337 202 00 0 00 032363 MOVEM TRPLOC ;SAVE ADR OF TRAP LOCATION 2386 2387 032340 200 00 0 00 032344 MOVE TRINST ;GET EXEC TRAP INSTRUCTION 2388 032341 250 00 1 00 032363 EXCH @TRPLOC ;STORE NEW & GET OLD TRAP INST 2389 032342 202 00 0 00 032362 MOVEM TRPSAV ;SAVE TO RESTORE LATER 2390 032343 263 17 0 00 000000 RTN 2391 2392 032344 264 00 0 00 032345 TRINST: JSR EXCTRP ;THIS WILL SAVE PC 2393 032345 000000 000000 EXCTRP: 0 ;PC GOES HERE 2394 032346 261 17 0 00 000001 PUT 1 2395 032347 200 01 0 00 032362 MOVE 1,TRPSAV ;GET ORIGINAL TRAP INST 2396 032350 202 01 1 00 032363 MOVEM 1,@TRPLOC ;RESTORE IT 2397 2398 032351 200 01 0 00 032345 COMCHK: MOVE 1,EXCTRP ;GET TRAP PC 2399 032352 553 00 0 00 000001 HRRZS 1 ;CLEAR LH(AC0) 2400 032353 312 01 0 00 032360 CAME 1,SHTRP ;TRAP WHERE SHOULD ? 2401 ERROR PDT0,13,SHTRP,1,BAD TRAP^ 2402 032354 036 13 0 00 037646 2403 032355 035 00 0 00 031617 ERLOOP PDT0 ;IF ERROR, LOOP TO PDT0 2404 032356 262 17 0 00 000001 GET 1 2405 032357 254 02 1 00 032361 JRSTF @RETO ;RETURN TO PROG AT SUPPLIED ADR 2406 2407 ;*TRAP STORAGE 2408 2409 032360 000000 000000 SHTRP: 0 ;LOC WHERE SHOULD TRAP 2410 032361 000000 000000 RETO: 0 ;RETURN TO ADDRESS 2411 032362 000000 000000 TRPSAV: 0 ;ORIGINAL TRAP INST 2412 032363 000000 000000 TRPLOC: 0 ;ADR OF TRAP LOCATION 2413 032364 000000 000000 TRPTYP: 0 ;TRAP TYPE 0=AR, -1=PDL 2414 032365 123456 654321 TSTWD: 123456,,654321 ;TEST WORD 2415 032366 000000 000000 OVSTR1: 0 ;STACK FOR PDL TESTS 2416 032367 000000 000000 MTRZ: 0 2417 032370 000000 000000 MTRX: 0 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 41 DSKEAM MAC 29-Mar-78 14:55 TEST MAP INSTRUCTION SEQ 0102 2418 SUBTTL TEST MAP INSTRUCTION 2419 2420 SALL 2421 037651 T= SIXBTZ MAP INST TEST 2422 LALL 2423 2424 ;*PERFORM 'MAP' OF ADDRESS 0. 2425 ;*MAP READOUT SHOULD BE: 2426 ;*ACCESS, WRITEABLE, SOFTWARE, PAGED REF 2427 2428 SUBTST^ 2429 032371 201 00 0 00 032371 MOVEI . 2430 032372 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2431 032373 200 15 0 00 043737 MAPCK0: MOVE REPT,RPEAT 2432 032374 200 14 0 00 037654 MOVE COR,[161000,,0] 2433 032375 257 13 0 00 000000 MAP ACT,0 ;MAP FOR LOCATION 0 2434 032376 312 14 0 00 000013 CAME COR,ACT 2435 ERROR .-4,13,COR,ACT,MAP ADR 0,^ 2436 SALL 2437 032377 036 13 0 00 037657 2438 032400 035 00 0 00 032374 ERLOOP .-4 ;IF ERROR, LOOP TO .-4 2439 2440 ;*PERFORM 'MAP' OF ADDRESS 337000, 2441 ;*HIGHEST EXEC PAGED MEMORY ADDRESS. 2442 ;*MAP READOUT SHOULD BE: 2443 ;*ACCESS, WRITABLE, SOFTWARE, PAGED REF 2444 2445 032401 200 14 0 00 037662 MAPCK1: MOVE COR,[161000,,337000] 2446 032402 257 13 0 00 337000 MAP ACT,337000 ;MAP FOR LOCATION 337000 2447 032403 312 14 0 00 000013 CAME COR,ACT 2448 ERROR .-4,13,COR,ACT,MAP ADR 337000,^ 2449 032404 036 13 0 00 037666 2450 032405 035 00 0 00 032401 ERLOOP .-4 ;IF ERROR, LOOP TO .-4 2451 2452 ;*CLEAR PAGE MAP 2453 2454 032406 402 00 0 00 000200 MAPCK2: SETZM 200 2455 032407 200 07 0 00 037671 MOVE AC,[200,,201] 2456 032410 251 07 0 00 000417 BLT AC,417 ;CLEAR ALL OF PAGE MAP 2457 032411 7 010 20 0 00 020000 MAPCK9: CONO PAG,LTRPEN 2458 032412 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 42 DSKEAM MAC 29-Mar-78 14:55 TEST MAP INSTRUCTION SEQ 0103 2459 ;*PERFORM 'MAP' OF ADDRESS 400000, 2460 ;*LOWEST EPMP PAGING ADDRESS. 2461 ;*SINCE PAGE MAP IS CLEAR 2462 ;*MAP READOUT SHOULD BE: 2463 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2464 2465 032413 200 14 0 00 037672 MAPCK3: MOVE COR,[1000,,400000] 2466 032414 257 13 0 00 400000 MAP ACT,400000 2467 032415 312 14 0 00 000013 CAME COR,ACT 2468 ERROR MAPCK9,13,COR,ACT,MAP ADR 400000,PAGE MAP CLEAR^ 2469 032416 036 13 0 00 037701 2470 032417 035 00 0 00 032411 ERLOOP MAPCK9 ;IF ERROR, LOOP TO MAPCK9 2471 2472 ;*PERFORM 'MAP' OF ADDRESS 777000, 2473 ;*HIGHEST EPMP PAGING ADDRESS. 2474 ;*SINCE PAGE MAP IS CLEAR 2475 ;*MAP READOUT SHOULD BE: 2476 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2477 2478 032420 200 14 0 00 037704 MAPCK4: MOVE COR,[1000,,777000] 2479 032421 257 13 0 00 777000 MAP ACT,777000 2480 032422 312 14 0 00 000013 CAME COR,ACT 2481 ERROR MAPCK9,13,COR,ACT,MAP ADR 777000,PAGE MAP CLEAR^ 2482 032423 036 13 0 00 037710 2483 032424 035 00 0 00 032411 ERLOOP MAPCK9 ;IF ERROR, LOOP TO MAPCK9 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 43 DSKEAM MAC 29-Mar-78 14:55 TEST MAP INSTRUCTION SEQ 0104 2484 ;*SETUP EPMP FOR ADDRESS 400000 WITH ALL BUT ACCESS. 2485 ;*MAP READOUT SHOULD BE: 2486 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2487 ;*IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD 2488 ;*SHOULD HAVE NO EFFECT. 2489 2490 032425 205 07 0 00 377777 MAPCK5: MOVSI AC,377777 2491 032426 202 07 0 00 000200 MOVEM AC,200 ;SET PAGE MAP TO ALL BUT ACCESS 2492 032427 200 14 0 00 037672 MOVE COR,[1000,,400000] 2493 032430 257 13 0 00 400000 MAP ACT,400000 2494 032431 312 14 0 00 000013 CAME COR,ACT 2495 ERROR MAPCK9,13,COR,ACT,MAP ADR 400000,ALL BUT ACCESS^ 2496 032432 036 13 0 00 037716 2497 032433 035 00 0 00 032411 ERLOOP MAPCK9 ;IF ERROR, LOOP TO MAPCK9 2498 2499 ;*SETUP EPMP FOR ADDRESS 777000 WITH ALL BUT ACCESS. 2500 ;*MAP READOUT SHOULD BE: 2501 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2502 ;*IF ACCESS IS CLEAR REST OF BITS IN PAGE MAP WORD 2503 ;*SHOULD HAVE NO EFFECT. 2504 2505 032434 201 07 0 00 377777 MAPCK6: MOVEI AC,377777 2506 032435 202 07 0 00 000377 MOVEM AC,377 ;SET PAGE MAP TO ALL BUT ACCESS 2507 032436 200 14 0 00 037704 MOVE COR,[1000,,777000] 2508 032437 257 13 0 00 777000 MAP ACT,777000 2509 032440 312 14 0 00 000013 CAME COR,ACT 2510 ERROR MAPCK9,13,COR,ACT,MAP ADR 777000,ALL BUT ACCESS^ 2511 032441 036 13 0 00 037721 2512 032442 035 00 0 00 032411 ERLOOP MAPCK9 ;IF ERROR, LOOP TO MAPCK9 2513 2514 032443 367 15 0 00 032374 REPTLP MAPCK0+1 2515 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 44 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE FAIL TRAPPING SEQ 0105 2516 SUBTTL TEST PAGE FAIL TRAPPING 2517 2518 SALL 2519 037724 T= SIXBTZ PAGE FAIL TRAP TEST 2520 LALL 2521 2522 ;*DO A 'MOVE' FROM LOCATION 400000. 2523 ;*SINCE PAGE MAP IS CLEAR THIS SHOULD PAGE FAIL. 2524 2525 SUBTST^ 2526 032444 201 00 0 00 032444 MOVEI . 2527 032445 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2528 032446 200 15 0 00 043737 PFAIL0: MOVE REPT,RPEAT 2529 2530 032447 402 00 0 00 000200 SETZM 200 ;CLEAR EXEC PAGE MAP 2531 032450 200 07 0 00 037671 MOVE AC,[200,,201] 2532 032451 251 07 0 00 000377 BLT AC,377 2533 2534 032452 7 004 20 0 00 001040 CONO PI,CHNOFF!PICHN2 2535 032453 7 000 20 0 00 020402 CONO APR,LCNXER!LAPRP2 2536 032454 476 00 0 00 000500 SETOM LEUPFW ;PRESET PAGE FAIL WORD 2537 032455 476 00 0 00 000501 SETOM LPFWPC ;PRESET PAGE FAIL PC 2538 032456 7 010 20 0 00 020000 CONO PAG,LTRPEN 2539 032457 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2540 032460 201 07 0 00 032467 MOVEI AC,PFAIL1 2541 032461 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP PAGE FAULT TRAP 2542 2543 032462 477 00 0 00 000013 SETOB 0,ACT ;PRESET AC 2544 032463 200 13 0 00 400000 MOVE ACT,400000 ;MAKE PAGING REF, SHOULD FAULT 2545 ERROR PFAIL0+1,13,0,ACT,TRAP FAILED,REF TO 400000^ 2546 SALL 2547 032464 036 13 0 00 037735 2548 032465 035 00 0 00 032447 ERLOOP PFAIL0+1 ;IF ERROR, LOOP TO PFAIL0+1 2549 032466 254 00 0 00 032504 JRST PFAIL2 ;NO NEED TO CHECK PAGE FAIL WORD DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 45 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE FAIL TRAPPING SEQ 0106 2550 ;*PAGE FAULT TRAP SHOULD RETURN HERE 2551 2552 032467 476 00 0 00 000014 PFAIL1: SETOM COR 2553 032470 312 14 0 00 000013 CAME COR,ACT 2554 ERROR PFAIL0+1,13,COR,ACT,PAGE FAIL STORED IN AC,REF TO 400000^ 2555 032471 036 13 0 00 037744 2556 032472 035 00 0 00 032447 ERLOOP PFAIL0+1 ;IF ERROR, LOOP TO PFAIL0+1 2557 032473 200 13 0 00 000000 MOVE ACT,0 2558 032474 312 14 0 00 000013 CAME COR,ACT 2559 ERROR PFAIL0+1,13,COR,ACT,PAGE FAIL STORED IN 0,REF TO 400000^ 2560 032475 036 13 0 00 037753 2561 032476 035 00 0 00 032447 ERLOOP PFAIL0+1 ;IF ERROR, LOOP TO PFAIL0+1 2562 032477 200 14 0 00 037672 MOVE COR,[1000,,400000] ;SETUP CORRECT WORD 2563 032500 200 13 0 00 000500 MOVE ACT,LEUPFW ;GET PAGE FAIL WORD 2564 032501 312 14 0 00 000013 CAME COR,ACT 2565 ERROR PFAIL0+1,13,COR,ACT,PAGE FAIL WORD WRONG,REF TO 400000^ 2566 032502 036 13 0 00 037762 2567 032503 035 00 0 00 032447 ERLOOP PFAIL0+1 ;IF ERROR, LOOP TO PFAIL0+1 2568 2569 ;*PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY 2570 2571 032504 7 000 30 0 00 000400 PFAIL2: CONSZ APR,LNXMER 2572 ERROR PFAIL0+1,13,COR,ACT,NON-X-MEM,REF TO 400000^ 2573 032505 036 13 0 00 037767 2574 032506 035 00 0 00 032447 ERLOOP PFAIL0+1 ;IF ERROR, LOOP TO PFAIL0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 46 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE FAIL TRAPPING SEQ 0107 2575 ;*CHECK PAGE FAIL WORD FOR MAXIMUM ADDRESS 2576 ;*DO A 'MOVE' FROM LOCATION 777777. 2577 2578 032507 7 000 20 0 00 020402 PFAIL3: CONO APR,LCNXER!LAPRP2 2579 032510 402 00 0 00 000500 SETZM LEUPFW ;PRESET PAGE FAIL WORD 2580 032511 7 010 20 0 00 020000 CONO PAG,LTRPEN 2581 032512 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2582 032513 201 07 0 00 032522 MOVEI AC,PFAIL4 2583 032514 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP PAGE FAULT TRAP 2584 032515 403 00 0 00 000013 SETZB 0,ACT ;PRESET AC 2585 032516 200 13 0 00 777777 MOVE ACT,777777 ;MAKE PAGING REF, SHOULD FAULT 2586 ERROR PFAIL3,13,0,ACT,TRAP FAILED,REF TO 777777^ 2587 032517 036 13 0 00 037775 2588 032520 035 00 0 00 032507 ERLOOP PFAIL3 ;IF ERROR, LOOP TO PFAIL3 2589 032521 254 00 0 00 032537 JRST PFAIL5 2590 2591 ;*PAGE FAULT TRAP SHOULD RETURN HERE 2592 2593 032522 402 00 0 00 000014 PFAIL4: SETZM COR 2594 032523 312 14 0 00 000013 CAME COR,ACT 2595 ERROR PFAIL3,13,COR,ACT,PAGE FAIL STORED IN AC,REF TO 777777^ 2596 032524 036 13 0 00 040000 2597 032525 035 00 0 00 032507 ERLOOP PFAIL3 ;IF ERROR, LOOP TO PFAIL3 2598 032526 200 13 0 00 000000 MOVE ACT,0 2599 032527 312 14 0 00 000013 CAME COR,ACT 2600 ERROR PFAIL3,13,COR,ACT,PAGE FAIL STORED IN 0,REF TO 777777^ 2601 032530 036 13 0 00 040003 2602 032531 035 00 0 00 032507 ERLOOP PFAIL3 ;IF ERROR, LOOP TO PFAIL3 2603 032532 200 14 0 00 040006 MOVE COR,[1000,,777777] ;SETUP CORRECT WORD 2604 032533 200 13 0 00 000500 MOVE ACT,LEUPFW ;GET PAGE FAIL WORD 2605 032534 312 14 0 00 000013 CAME COR,ACT 2606 ERROR PFAIL3,13,COR,ACT,PAGE FAIL WORD WRONG,REF TO 777777^ 2607 032535 036 13 0 00 040007 2608 032536 035 00 0 00 032507 ERLOOP PFAIL3 ;IF ERROR, LOOP TO PFAIL3 2609 2610 ;*PAGE FAULT TRAP SHOULD NOT CAUSE NON-X-MEMORY 2611 2612 032537 7 000 30 0 00 000400 PFAIL5: CONSZ APR,LNXMER 2613 ERROR PFAIL3,13,COR,ACT,NON-X-MEM,REF TO 777777^ 2614 032540 036 13 0 00 040012 2615 032541 035 00 0 00 032507 ERLOOP PFAIL3 ;IF ERROR, LOOP TO PFAIL3 2616 2617 ;*RESET PAGE FAULT TRAP 2618 2619 032542 200 07 0 00 043736 PFAIL6: MOVE AC,PGFAIL 2620 032543 202 07 0 00 000502 MOVEM AC,LPGFTR 2621 032544 7 000 20 0 00 020402 CONO APR,LCNXER!LAPRP2 2622 032545 7 004 20 0 00 002040 CONO PI,LCHNON!LPICH2 ;RE-ENABLE INTERRUPTS 2623 2624 032546 367 15 0 00 032447 REPTLP PFAIL0+1 2625 XLIST 2626 LIST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 52 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC-PER-PROCESS MAPPING SEQ 0108 2627 SUBTTL TEST EXEC-PER-PROCESS MAPPING 2628 2629 SALL 2630 040015 T= SIXBTZ EXEC-PER-PROCESS MAP TEST 2631 LALL 2632 2633 SUBTST^ 2634 032547 201 00 0 00 032547 MOVEI . 2635 032550 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2636 032551 200 15 0 00 043737 EPPM0: MOVE REPT,RPEAT 2637 032552 402 00 0 00 000200 SETZM 200 ;CLEAR ALL OF PAGE MAP 2638 032553 200 07 0 00 037671 MOVE AC,[200,,201] 2639 032554 251 07 0 00 000417 BLT AC,417 2640 032555 7 010 20 0 00 020000 EPPM9: CONO PAG,LTRPEN 2641 032556 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2642 2643 ;*PERFORM 'MAP' OF ADDRESS 340000 2644 ;*LOWEST UPMP EXEC-PER-PROCESS ADDRESS. 2645 ;*SINCE PAGE MAP IS CLEAR 2646 ;*MAP READOUT SHOULD BE: 2647 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2648 2649 032557 200 14 0 00 040022 EPPM1: MOVE COR,[1000,,340000] 2650 032560 257 13 0 00 340000 MAP ACT,340000 2651 032561 312 14 0 00 000013 CAME COR,ACT 2652 ERROR EPPM9,13,COR,ACT,MAP ADR 340000,PAGE MAP CLEAR^ 2653 SALL 2654 032562 036 13 0 00 040026 2655 032563 035 00 0 00 032555 ERLOOP EPPM9 ;IF ERROR, LOOP TO EPPM9 2656 2657 ;*PERFORM 'MAP' OF ADDRESS 377000 2658 ;*HIGHEST UPMP EXEC-PER-PROCESS ADDRESS. 2659 ;*SINCE PAGE MAP IS CLEAR 2660 ;*MAP READOUT SHOULD BE: 2661 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2662 2663 032564 200 14 0 00 040031 EPPM2: MOVE COR,[1000,,377000] 2664 032565 257 13 0 00 377000 MAP ACT,377000 2665 032566 312 14 0 00 000013 CAME COR,ACT 2666 ERROR EPPM9,13,COR,ACT,MAP ADR 377000,PAGE MAP CLEAR^ 2667 032567 036 13 0 00 040035 2668 032570 035 00 0 00 032555 ERLOOP EPPM9 ;IF ERROR, LOOP TO EPPM9 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 53 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC-PER-PROCESS MAPPING SEQ 0109 2669 ;*SETUP UPMP FOR ADDRESS 340000 WITH ALL BUT ACCESS. 2670 ;*MAP READOUT SHOULD BE: 2671 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2672 2673 032571 205 07 0 00 377777 EPPM3: MOVSI AC,377777 2674 032572 202 07 0 00 000400 MOVEM AC,400 2675 032573 200 14 0 00 040022 MOVE COR,[1000,,340000] 2676 032574 257 13 0 00 340000 MAP ACT,340000 2677 032575 312 14 0 00 000013 CAME COR,ACT 2678 ERROR EPPM9,13,COR,ACT,MAP ADR 340000,ALL BUT ACCESS^ 2679 032576 036 13 0 00 040040 2680 032577 035 00 0 00 032555 ERLOOP EPPM9 ;IF ERROR, LOOP TO EPPM9 2681 2682 ;*SETUP UPMP FOR ADDRESS 377000 WITH ALL BUT ACCESS 2683 ;*MAP READOUT SHOULD BE: 2684 ;*PAGE FAIL, PAGING MEMORY NO MATCH. 2685 2686 032600 201 07 0 00 377777 EPPM4: MOVEI AC,377777 2687 032601 202 07 0 00 000417 MOVEM AC,417 2688 032602 200 14 0 00 040031 MOVE COR,[1000,,377000] 2689 032603 257 13 0 00 377000 MAP ACT,377000 2690 032604 312 14 0 00 000013 CAME COR,ACT 2691 ERROR EPPM9,13,COR,ACT,MAP ADR 377000,ALL BUT ACCESS^ 2692 032605 036 13 0 00 040043 2693 032606 035 00 0 00 032555 ERLOOP EPPM9 ;IF ERROR, LOOP TO EPPM9 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 54 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC-PER-PROCESS MAPPING SEQ 0110 2694 032607 201 07 0 00 740000 EPPM5: MOVEI AC,740000 2695 032610 202 07 0 00 000417 MOVEM AC,417 ;SETUP P-P MAP FOR PAGE 377 2696 032611 205 07 0 00 757777 MOVSI AC,757777 2697 032612 202 07 0 00 000400 MOVEM AC,400 ;SETUP P-P MAP FOR PAGE 340 2698 2699 ;*UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 377 WITH 2700 ;*ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 0. 2701 ;*'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP' 2702 ;*SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA 2703 ;*FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY 2704 ;*WITH PAGE ADDRESS 377. 2705 ;*THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT' 2706 ;*BY THE MAP INSTRUCTION. 2707 ;*READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG') 2708 ;*SHOULD BE: 2709 ;*PAGE 377',EXEC MEMORY SPACE, RELOAD COUNTER. 2710 2711 032613 7 010 20 0 00 020000 EPPM6: CONO PAG,LTRPEN ;CLEAR RELOAD CNTR 2712 032614 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2713 032615 200 14 0 00 037654 MOVE COR,[161000,,0] 2714 032616 257 13 0 00 377000 MAP ACT,377000 ;'MAP' 2715 032617 312 14 0 00 000013 CAME COR,ACT 2716 ERROR EPPM6,13,COR,ACT,MAP READOUT FAILURE,MAP ADR 377000^ 2717 032620 036 13 0 00 040052 2718 032621 035 00 0 00 032613 ERLOOP EPPM6 ;IF ERROR, LOOP TO EPPM6 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 55 DSKEAM MAC 29-Mar-78 14:55 TEST EXEC-PER-PROCESS MAPPING SEQ 0111 2719 ;*UPMP EXEC-PER-PROCESS MAP IS SETUP FOR PAGE 340 WITH 2720 ;*ACCESS, PUBLIC, WRITABLE, SOFTWARE AND ADR BITS 14-26 = 03777. 2721 ;*'DATAO PAG' CLEARS PAGING MEMORY THEREFORE 'MAP' 2722 ;*SHOULD DO REFILL CYCLE AND LOAD SCRATCHPAD MEMORY WITH DATA 2723 ;*FROM UPMP EXEC-PER-PROCESS MAP AND LOAD PAGING MEMORY 2724 ;*WITH PAGE ADDRESS 340. 2725 ;*THE DATA FROM THE SCRATCHPAD MEMORY IS READ INTO 'ACT' 2726 ;*BY THE MAP INSTRUCTION. 2727 ;*READOUT OF THE LOADED PAGING MEMORY (BY 'CONI PAG') 2728 ;*SHOULD BE: 2729 ;*PAGE 340',EXEC MEMORY SPACE, RELOAD COUNTER. 2730 2731 032622 7 010 20 0 00 020000 EPPM7: CONO PAG,LTRPEN 2732 032623 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2733 032624 200 14 0 00 040055 MOVE COR,[161003,,777000] 2734 032625 257 13 0 00 340000 MAP ACT,340000 ;'MAP' 2735 032626 312 14 0 00 000013 CAME COR,ACT 2736 ERROR EPPM7,13,COR,ACT,MAP READOUT FAILURE,MAP ADR 340000^ 2737 032627 036 13 0 00 040056 2738 032630 035 00 0 00 032622 ERLOOP EPPM7 ;IF ERROR, LOOP TO EPPM7 2739 2740 032631 367 15 0 00 032552 REPTLP EPPM0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 56 DSKEAM MAC 29-Mar-78 14:55 TEST PAGING AND SCRATCHPAD MEMORIES SEQ 0112 2741 SUBTTL TEST PAGING AND SCRATCHPAD MEMORIES 2742 2743 ;*PAGE MAP IS SETUP FOR 42 PAGES WITH DATA THAT PRODUCES 2744 ;*FLOATING BIT PATTERNS IN BOTH THE PAGING MEMORY 2745 ;*AND THE SCRATCHPAD MEMORY TO CHECK REGISTER AND BIT INTERACTION. 2746 ;*ALL PAGING ADDRESSES ARE SETUP SO PAGING MUST REFILL ON EVERY 2747 ;*OPERATION. THIS SHOULD VERIFY THAT THE PAGING REFILL OPERATION 2748 ;*AND THE PAGING AND SCRATCHPAD REGISTERS ARE OPERATIONAL. 2749 2750 SALL 2751 040061 T= SIXBTZ FLOATING BIT TEST 2752 LALL 2753 2754 SUBTST^ 2755 032632 201 00 0 00 032632 MOVEI . 2756 032633 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2757 032634 200 15 0 00 043737 AMTST4: MOVE REPT,RPEAT 2758 032635 402 00 0 00 000200 SETZM 200 ;CLEAR PAGE MAP 2759 032636 200 07 0 00 037671 MOVE AC,[200,,201] 2760 032637 251 07 0 00 000417 BLT AC,417 2761 2762 032640 205 05 0 00 777726 AMTST5: MOVSI INDX,-^D42 ;SETUP PAGE MAP FOR 2763 032641 200 07 0 05 035464 MOVE AC,AMTAB1(INDX) ;42 PAGES WITH DATA 2764 032642 550 10 0 00 000007 HRRZ AC1,AC ;THAT PRODUCES FLOATING 2765 032643 242 10 0 00 777777 LSH AC1,-1 ;BIT PATTERNS TO TEST 2766 032644 305 10 0 00 000200 CAIGE AC1,200 ;PAGING AND SCRATCHPAD 2767 032645 271 10 0 00 000220 ADDI AC1,220 ;MEMORIES. 2768 032646 606 07 0 00 000001 TRNN AC,1 2769 032647 502 07 0 10 000000 HLLM AC,(AC1) 2770 032650 602 07 0 00 000001 TRNE AC,1 2771 032651 546 07 0 10 000000 HLRM AC,(AC1) 2772 032652 253 05 0 00 032641 AOBJN INDX,AMTST5+1 2773 2774 032653 201 06 0 00 000144 MOVEI CNTR,^D100 ;CYCLE FLT BITS FOR 100 PASSES 2775 032654 205 05 0 00 777726 MOVSI INDX,-^D42 ;SETUP FOR 42 PAGING REF'S 2776 032655 201 11 0 00 000040 MOVEI AC2,^D32 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 57 DSKEAM MAC 29-Mar-78 14:55 TEST PAGING AND SCRATCHPAD MEMORIES SEQ 0113 2777 032656 7 010 20 0 00 020000 CONO PAG,LTRPEN 2778 032657 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2779 032660 554 14 0 05 035464 AMTST6: HLRZ COR,AMTAB1(INDX) ;SETUP FOR MAP READOUT 2780 032661 242 14 0 00 000011 LSH COR,^D9 2781 032662 621 14 0 00 000014 TLZ COR,14 ;ONLY 11 BITS OF RELOCATION 2782 032663 661 14 0 00 001000 TLO COR,1000 ;SET PAGED REF BIT 2783 032664 623 14 0 00 000400 TLZE COR,400 ;ACCESS 2784 032665 661 14 0 00 100000 TLO COR,100000 2785 032666 621 14 0 00 000200 TLZ COR,200 ;NO PUBLIC 2786 032667 623 14 0 00 000100 TLZE COR,100 ;WRITABLE 2787 032670 661 14 0 00 040000 TLO COR,40000 2788 032671 623 14 0 00 000040 TLZE COR,40 ;SOFTWARE 2789 032672 661 14 0 00 020000 TLO COR,20000 2790 032673 623 14 0 00 000020 TLZE COR,20 ;CACHE 2791 032674 661 14 0 00 002000 TLO COR,2000 2792 032675 550 07 0 05 035464 HRRZ AC,AMTAB1(INDX) ;SETUP MAPPING ADDRESS 2793 032676 242 07 0 00 000011 LSH AC,^D9 2794 032677 257 13 0 07 000000 MAP ACT,(AC) ;'MAP' 2795 032700 312 14 0 00 000013 CAME COR,ACT 2796 ERROR AMTST6-2,13,COR,ACT,MAP READOUT FAILURE,,AMTSTX^ 2797 SALL 2798 032701 036 13 0 00 040064 2799 032702 035 00 0 00 032656 ERLOOP AMTST6-2 ;IF ERROR, LOOP TO AMTST6-2 2800 2801 032703 253 05 0 00 032660 AOBJN INDX,AMTST6 ;DO 42 DIF REF 2802 2803 032704 365 06 0 00 032654 SOJGE CNTR,AMTST6-4 ;CYCLE MEMORIES, ETC. 2804 2805 032705 367 15 0 00 032635 REPTLP AMTST4+1 2806 032706 254 00 0 00 032714 JRST AMTST7-2 2807 2808 032707 037 02 0 00 040067 AMTSTX: PSIXM SIXBTZ ^ [SIXBIT\REF TO _\]^ 2809 032710 200 00 0 00 000007 MOVE AC 2810 032711 037 06 0 00 000000 PNT6 2811 032712 037 00 0 00 030242 PCRL 2812 032713 263 17 0 00 000000 RTN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 58 DSKEAM MAC 29-Mar-78 14:55 TEST PAGING AND SCRATCHPAD MEMORIES SEQ 0114 2813 ;*CLEAR PAGING MEMORY AND PAGE MAP 2814 ;*CHECK THAT ALL PREVIOUS REFERENCES TRAP 2815 ;*SHOULD IF AM IS REALLY CLEAR 2816 2817 SALL 2818 040071 T= SIXBTZ TRAP TEST 2819 LALL 2820 2821 SUBTST^ 2822 032714 201 00 0 00 032714 MOVEI . 2823 032715 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2824 032716 201 15 0 00 000001 AMTST7: MOVEI REPT,1 2825 032717 402 00 0 00 000200 SETZM 200 ;DO ONCE ONLY 2826 032720 200 07 0 00 037671 MOVE AC,[200,,201] 2827 032721 251 07 0 00 000417 BLT AC,417 ;CLEAR PAGE MAP 2828 032722 200 07 0 00 030024 MOVE AC,ITRCNT 2829 032723 602 07 0 00 000001 TRNE AC,1 ;ALTERNATE CLEARING AM 2830 032724 7 010 20 0 00 020000 CONO PAG,LTRPEN 2831 032725 606 07 0 00 000001 TRNN AC,1 2832 032726 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2833 032727 205 05 0 00 777726 MOVSI INDX,-^D42 2834 032730 201 07 0 00 032741 MOVEI AC,AMTST9 2835 032731 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE TRAP 2836 2837 032732 550 14 0 05 035464 AMTST8: HRRZ COR,AMTAB1(INDX) ;SETUP REFERANCE ADDRESS 2838 032733 242 14 0 00 000011 LSH COR,^D9 2839 032734 477 00 0 00 000013 SETOB 0,ACT 2840 032735 200 13 0 14 000000 MOVE ACT,(COR) ;SHOULD FAIL 2841 ERROR AMTST8,13,COR,ACT,TRAP FAILED,^ 2842 SALL 2843 032736 036 13 0 00 040076 2844 032737 035 00 0 00 032732 ERLOOP AMTST8 ;IF ERROR, LOOP TO AMTST8 2845 032740 254 00 0 00 032760 JRST AMTSTA DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 59 DSKEAM MAC 29-Mar-78 14:55 TEST PAGING AND SCRATCHPAD MEMORIES SEQ 0115 2846 032741 476 00 0 00 000014 AMTST9: SETOM COR 2847 032742 312 14 0 00 000013 CAME COR,ACT 2848 ERROR AMTST7,13,COR,ACT,PAGE FAIL STORED IN AC,^ 2849 032743 036 13 0 00 040101 2850 032744 035 00 0 00 032716 ERLOOP AMTST7 ;IF ERROR, LOOP TO AMTST7 2851 032745 200 13 0 00 000000 MOVE ACT,0 2852 032746 312 14 0 00 000013 CAME COR,ACT 2853 ERROR AMTST7,13,COR,ACT,PAGE FAIL STORED IN 0,^ 2854 032747 036 13 0 00 040104 2855 032750 035 00 0 00 032716 ERLOOP AMTST7 ;IF ERROR, LOOP TO AMTST7 2856 032751 550 14 0 05 035464 HRRZ COR,AMTAB1(INDX) ;SETUP CORRECT PAGE FAIL WORD 2857 032752 242 14 0 00 000011 LSH COR,^D9 2858 032753 661 14 0 00 001000 TLO COR,1000 ;SET PAGED REF BIT 2859 032754 200 13 0 00 000500 MOVE ACT,LEUPFW ;GET PAGE FAIL WORD 2860 032755 312 14 0 00 000013 CAME COR,ACT 2861 ERROR AMTST7,13,COR,ACT,PAGE FAIL WORD WRONG,^ 2862 032756 036 13 0 00 040107 2863 032757 035 00 0 00 032716 ERLOOP AMTST7 ;IF ERROR, LOOP TO AMTST7 2864 2865 032760 253 05 0 00 032732 AMTSTA: AOBJN INDX,AMTST8 2866 2867 032761 367 15 0 00 032717 REPTLP AMTST7+1 2868 2869 032762 200 07 0 00 043736 MOVE AC,PGFAIL ;RESET PAGE FAULT TRAP 2870 032763 202 07 0 00 000502 MOVEM AC,LPGFTR DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 60 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA READ SEQ 0116 2871 SUBTTL TEST PAGED DATA READ 2872 2873 ;*USING PAGING ADDRESSES 400XXX AND 777XXX 2874 2875 SALL 2876 040112 T= SIXBTZ PAGED DATA READ TEST 2877 LALL 2878 2879 SUBTST^ 2880 032764 201 00 0 00 032764 MOVEI . 2881 032765 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2882 032766 200 15 0 00 043737 PAGRDA: MOVE REPT,RPEAT 2883 032767 402 00 0 00 000200 SETZM 200 ;CLEAR AND SETUP PAGE MAP 2884 032770 200 07 0 00 037671 MOVE AC,[200,,201] 2885 032771 251 07 0 00 000417 BLT AC,417 2886 032772 205 07 0 00 740033 MOVSI AC,740000! 2887 032773 202 07 0 00 000200 MOVEM AC,200 2888 032774 201 07 0 00 740033 MOVEI AC,740000! 2889 032775 202 07 0 00 000377 MOVEM AC,377 2890 2891 ;*TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING. 2892 ;*'E' = PAGE 400 (HIGH ORDER 9 BITS), 2893 ;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR400' ADDRESS. 2894 ;*PAGE MAP RELOCATION BITS SETUP FOR 2895 ;*HIGH ORDER 9 BITS OF 'PGR400' ADDRESS. 2896 ;*THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS: 2897 ;*HIGH ORDER 9 BITS FROM PAGE MAP AND 2898 ;*LOW ORDER 9 BITS OF 'PGR400' ADDRESS. 2899 2900 032776 7 010 20 0 00 020000 PAGRDB: CONO PAG,LTRPEN ;CLEAR MEMORIES, ETC. 2901 032777 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2902 033000 200 14 0 00 033014 MOVE COR,PGR400 2903 033001 200 13 0 00 400014 MOVE ACT,400000! ;MAKE PAGED READ 2904 033002 312 14 0 00 000013 CAME COR,ACT 2905 ERROR PAGRDB,13,COR,ACT,DATA ERROR,ADR 400XXX^ 2906 SALL 2907 033003 036 13 0 00 040122 2908 033004 035 00 0 00 032776 ERLOOP PAGRDB ;IF ERROR, LOOP TO PAGRDB DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 61 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA READ SEQ 0117 2909 ;*TEST A 'MOVE' USING AN 'E' ADDRESS THAT CAUSES PAGING. 2910 ;*'E' = PAGE 777 (HIGH ORDER 9 BITS), 2911 ;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGR777' ADDRESS. 2912 ;*PAGE MAP RELOCATION BITS SETUP FOR 2913 ;*HIGH ORDER 9 BITS OF 'PGR777' ADDRESS. 2914 ;*THEREFORE ACTUAL ADDRESS FOR 'MOVE' IS: 2915 ;*HIGH ORDER 9 BITS FROM PAGE MAP AND 2916 ;*LOW ORDER 9 BITS OF 'PGR777' ADDRESS. 2917 2918 033005 200 14 0 00 033015 PAGRDC: MOVE COR,PGR777 2919 033006 200 13 0 00 400015 MOVE ACT,400000! ;MAKE PAGED READ 2920 033007 312 14 0 00 000013 CAME COR,ACT 2921 ERROR1 13,COR,ACT,DATA ERROR,ADR 777XXX^ 2922 033010 036 13 0 00 040127 2923 033011 035 00 0 00 033005 ERLOOP .-4 2924 2925 033012 367 15 0 00 032767 REPTLP PAGRDA+1 2926 2927 033013 254 00 0 00 033016 JRST PAGRD0-2 2928 2929 033014 377777 400000 PGR400: 377777,,400000 ;DATA FOR PAGE 400 2930 033015 000777 777000 PGR777: 000777,,777000 ;DATA FOR PAGE 777 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 62 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA READ SEQ 0118 2931 ;*TEST READ OF DATA FROM A DATA BLOCK 2932 ;*USING PAGED REFERENCES THAT POINT TO 2933 ;*CONSECUTIVE DATA WORDS IN AN EXEC UNPAGED 2934 ;*MEMORY AREA. 2935 ;*DATA CONSISTS OF COMPLEMENT OF AND 2936 ;*PAGING REFERENCE ADDRESS. 2937 2938 SUBTST^ 2939 033016 201 00 0 00 033016 MOVEI . 2940 033017 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 2941 033020 200 15 0 00 043737 PAGRD0: MOVE REPT,RPEAT 2942 033021 221 15 0 00 000012 IMULI REPT,^D10 ;FSTCYL=10 PASSES, REL=100 PASSES 2943 033022 205 05 0 00 777340 MOVSI INDX,-440 ;340-777=440 PAGES 2944 033023 201 07 0 00 000340 MOVEI AC,340 ;SETUP FOR FIRST PAGING ADDRESS 2945 2946 033024 200 10 0 00 000007 PAGRD1: MOVE AC1,AC ;SETUP DATA WORD 2947 033025 242 10 0 00 000011 LSH AC1,^D9 ;COMPL ADR,,PAGED ADR 2948 033026 661 10 0 00 777777 TLO AC1,-1 2949 033027 621 10 0 10 000000 TLZ AC1,(AC1) 2950 033030 202 10 0 05 043742 MOVEM AC1,PGRDTB(INDX) 2951 033031 602 07 0 00 000001 TRNE AC,1 2952 033032 254 00 0 00 033050 JRST PAGRD2 2953 033033 201 11 0 05 043742 MOVEI AC2,PGRDTB(INDX) 2954 033034 242 11 0 00 777767 LSH AC2,-^D9 ;SETUP PAGE MAP FOR EVEN HI-ORDER 2955 033035 271 11 0 00 740000 ADDI AC2,740000 ;INCLUDE ACCESS, ETC. 2956 033036 504 12 0 00 000011 HRL AC3,AC2 2957 033037 201 11 0 05 043743 MOVEI AC2,PGRDTB+1(INDX) 2958 033040 242 11 0 00 777767 LSH AC2,-^D9 ;SETUP PAGE MAP FOR ODD HI-ORDER 2959 033041 271 11 0 00 740000 ADDI AC2,740000 ;INCLUDE ACCESS, ETC. 2960 033042 540 12 0 00 000011 HRR AC3,AC2 2961 033043 550 10 0 00 000007 HRRZ AC1,AC ;SETUP PAGE MAP 2962 033044 242 10 0 00 777777 LSH AC1,-1 2963 033045 305 10 0 00 000200 CAIGE AC1,200 2964 033046 271 10 0 00 000220 ADDI AC1,220 2965 033047 202 12 0 10 000000 MOVEM AC3,(AC1) ;MOVE RELOCATION DATA TO PAGE MAP 2966 033050 350 00 0 00 000007 PAGRD2: AOS AC 2967 033051 253 05 0 00 033024 AOBJN INDX,PAGRD1 2968 2969 033052 7 010 20 0 00 020000 PAGRD3: CONO PAG,LTRPEN ;CLEAR AM, ETC. 2970 033053 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 2971 033054 205 05 0 00 777340 MOVSI INDX,-440 2972 033055 201 07 0 00 000340 MOVEI AC,340 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 63 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA READ SEQ 0119 2973 033056 200 14 0 00 000007 PAGRD4: MOVE COR,AC ;SETUP CORRECT RESULTS 2974 033057 242 14 0 00 000011 LSH COR,^D9 2975 033060 661 14 0 00 777777 TLO COR,-1 2976 033061 621 14 0 14 000000 TLZ COR,(COR) 2977 033062 201 10 0 05 043742 MOVEI AC1,PGRDTB(INDX) ;SETUP PAGING ADDRESS 2978 033063 405 10 0 00 000777 ANDI AC1,777 2979 033064 271 10 0 14 000000 ADDI AC1,(COR) 2980 033065 200 13 0 10 000000 MOVE ACT,(AC1) ;MAKE PAGED MEMORY READ 2981 033066 312 14 0 00 000013 CAME COR,ACT ;ADDRESSES GO FROM 340XXX TO 777XXX 2982 ERROR PAGRD4,13,COR,ACT,DATA ERROR,INC PAGING ADR'S,PAGRDX^ 2983 033067 036 13 0 00 040135 2984 033070 035 00 0 00 033056 ERLOOP PAGRD4 ;IF ERROR, LOOP TO PAGRD4 2985 033071 350 00 0 00 000007 AOS AC ;INCREMENT PAGING ADDRESS 2986 033072 253 05 0 00 033056 AOBJN INDX,PAGRD4 2987 2988 033073 205 05 0 00 777340 PAGRD5: MOVSI INDX,-440 2989 033074 201 07 0 00 000777 MOVEI AC,777 2990 2991 033075 200 14 0 00 000007 MOVE COR,AC ;MAKE REVERSE PAGED MEMORY READ 2992 033076 242 14 0 00 000011 LSH COR,^D9 ;ADDRESSES GO FROM 777XXX TO 340XXX 2993 033077 661 14 0 00 777777 TLO COR,-1 2994 033100 621 14 0 14 000000 TLZ COR,(COR) 2995 033101 201 10 0 00 044401 MOVEI AC1,PGRDTB+437 2996 033102 275 10 0 05 000000 SUBI AC1,(INDX) 2997 033103 405 10 0 00 000777 ANDI AC1,777 2998 033104 271 10 0 14 000000 ADDI AC1,(COR) 2999 033105 200 13 0 10 000000 MOVE ACT,(AC1) 3000 033106 312 14 0 00 000013 CAME COR,ACT 3001 ERROR PAGRD5+2,13,COR,ACT,DATA ERROR,REVERSE READ,PAGRDX^ 3002 033107 036 13 0 00 040143 3003 033110 035 00 0 00 033075 ERLOOP PAGRD5+2 ;IF ERROR, LOOP TO PAGRD5+2 3004 033111 370 00 0 00 000007 SOS AC 3005 033112 253 05 0 00 033075 AOBJN INDX,PAGRD5+2 3006 3007 033113 367 15 0 00 033052 REPTLP PAGRD3 3008 033114 254 00 0 00 033122 JRST PGWRTA-2 3009 3010 033115 037 02 0 00 040067 PAGRDX: PSIXM SIXBTZ ^ [SIXBIT\REF TO _\]^ 3011 033116 200 00 0 00 000010 MOVE AC1 3012 033117 037 06 0 00 000000 PNT6 3013 033120 037 00 0 00 030242 PCRL 3014 033121 263 17 0 00 000000 RTN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 64 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA WRITE SEQ 0120 3015 SUBTTL TEST PAGED DATA WRITE 3016 3017 ;*USING PAGING ADDRESS 400XXX AND 777XXX 3018 ;*PAGING REFERENCES POINT TO EXEC UNPAGED ADDRESSES. 3019 3020 SALL 3021 040146 T= SIXBTZ PAGED DATA WRITE TEST 3022 LALL 3023 3024 SUBTST^ 3025 033122 201 00 0 00 033122 MOVEI . 3026 033123 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3027 033124 200 15 0 00 043737 PGWRTA: MOVE REPT,RPEAT 3028 033125 402 00 0 00 000200 SETZM 200 ;CLEAR AND SETUP PAGE MAP 3029 033126 200 07 0 00 037671 MOVE AC,[200,,201] 3030 033127 251 07 0 00 000417 BLT AC,417 3031 033130 205 07 0 00 740033 MOVSI AC,740000! 3032 033131 202 07 0 00 000200 MOVEM AC,200 3033 033132 201 07 0 00 740033 MOVEI AC,740000! 3034 033133 202 07 0 00 000377 MOVEM AC,377 3035 3036 ;*TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING. 3037 ;*'E' = PAGE 400 (HIGH ORDER 9 BITS), 3038 ;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW400' ADDRESS. 3039 ;*PAGE MAP RELOCATION BITS SETUP FOR 3040 ;*HIGH ORDER 9 BITS OF 'PGW400' ADDRESS. 3041 ;*THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS: 3042 ;*HIGH ORDER 9 BITS FROM PAGE MAP AND 3043 ;*LOW ORDER 9 BITS OF 'PGW400' ADDRESS. 3044 3045 033134 7 010 20 0 00 020000 PGWTBB: CONO PAG,LTRPEN ;CLEAR MEMORIES, ETC. 3046 033135 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3047 033136 402 00 0 00 033170 SETZM PGW400 3048 033137 200 14 0 00 040152 MOVE COR,[377000,,400777] 3049 033140 202 14 0 00 400170 MOVEM COR,400000! ;MAKE PAGED WRITE 3050 033141 476 00 0 00 000013 SETOM ACT 3051 033142 200 13 0 00 400170 MOVE ACT,400000! ;PAGED REREAD VERIFY 3052 033143 312 14 0 00 000013 CAME COR,ACT 3053 ERROR PGWTBB,13,COR,ACT,PAGED REREAD,ADR 400XXX^ 3054 SALL 3055 033144 036 13 0 00 040156 3056 033145 035 00 0 00 033134 ERLOOP PGWTBB ;IF ERROR, LOOP TO PGWTBB 3057 033146 200 13 0 00 033170 MOVE ACT,PGW400 ;DIRECT REREAD VERIFY 3058 033147 312 14 0 00 000013 CAME COR,ACT 3059 ERROR PGWTBB,13,COR,ACT,DIRECT REREAD,ADR 400XXX^ 3060 033150 036 13 0 00 040164 3061 033151 035 00 0 00 033134 ERLOOP PGWTBB ;IF ERROR, LOOP TO PGWTBB DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 65 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA WRITE SEQ 0121 3062 ;*TEST A 'MOVEM' USING AN 'E' ADDRESS THAT CAUSES PAGING. 3063 ;*'E' = PAGE 777 (HIGH ORDER 9 BITS), 3064 ;*LOW ORDER 9 BITS ARE LOW ORDER 9 BITS OF 'PGW777' ADDRESS. 3065 ;*PAGE MAP RELOCATION BITS SETUP FOR 3066 ;*HIGH ORDER 9 BITS OF 'PGW777' ADDRESS. 3067 ;*THEREFORE ACTUAL ADDRESS FOR 'MOVEM' IS: 3068 ;*HIGH ORDER 9 BITS FROM PAGE MAP AND 3069 ;*LOW ORDER 9 BITS OF 'PGW777' ADDRESS. 3070 3071 033152 402 00 0 00 033171 PGWRTC: SETZM PGW777 3072 033153 200 14 0 00 040167 MOVE COR,[000777,,777000] 3073 033154 202 14 0 00 777171 MOVEM COR,777000! ;MAKE PAGED WRITE 3074 033155 476 00 0 00 000013 SETOM ACT 3075 033156 200 13 0 00 777171 MOVE ACT,777000! ;PAGED REREAD VERIFY 3076 033157 312 14 0 00 000013 CAME COR,ACT 3077 ERROR PGWRTC,13,COR,ACT,PAGED REREAD,ADR 777XXX^ 3078 033160 036 13 0 00 040170 3079 033161 035 00 0 00 033152 ERLOOP PGWRTC ;IF ERROR, LOOP TO PGWRTC 3080 033162 200 13 0 00 033171 MOVE ACT,PGW777 ;DIRECT REREAD VERIFY 3081 033163 312 14 0 00 000013 CAME COR,ACT 3082 ERROR PGWRTC,13,COR,ACT,DIRECT REREAD,ADR 777XXX^ 3083 033164 036 13 0 00 040173 3084 033165 035 00 0 00 033152 ERLOOP PGWRTC ;IF ERROR, LOOP TO PGWRTC 3085 3086 033166 367 15 0 00 033125 REPTLP PGWRTA+1 3087 3088 033167 254 00 0 00 033172 JRST PGWRT0-2 3089 3090 033170 000000 000000 PGW400: 0 ;PAGE 400 STORAGE LOCATION 3091 033171 000000 000000 PGW777: 0 ;PAGE 777 STORAGE LOCATION DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 66 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA WRITE SEQ 0122 3092 ;*TEST WRITE OF DATA USING PAGED ADDRESS. 3093 ;*DATA IS WRITTEN INTO CONSECUTIVE DATA WORDS 3094 ;*IN AN EXEC UNPAGED DATA AREA. 3095 ;*DATA CONSISTS OF PAGED ADR AND COMPLEMENT OF PAGED ADDRESS. 3096 3097 SUBTST^ 3098 033172 201 00 0 00 033172 MOVEI . 3099 033173 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3100 033174 200 15 0 00 043737 PGWRT0: MOVE REPT,RPEAT 3101 033175 221 15 0 00 000012 IMULI REPT,^D10 ;FSTCYL=10 PASSES, REL=100 PASSES 3102 033176 205 05 0 00 777560 MOVSI INDX,-440/2 3103 033177 201 07 0 00 000340 MOVEI AC,340 3104 3105 033200 201 11 0 05 043742 PGWRT1: MOVEI AC2,PGWRTB(INDX) 3106 033201 242 11 0 00 777767 LSH AC2,-^D9 3107 033202 271 11 0 00 740000 ADDI AC2,740000 3108 033203 504 12 0 00 000011 HRL AC3,AC2 3109 033204 201 11 0 05 043743 MOVEI AC2,PGWRTB+1(INDX) 3110 033205 242 11 0 00 777767 LSH AC2,-^D9 3111 033206 271 11 0 00 740000 ADDI AC2,740000 3112 033207 540 12 0 00 000011 HRR AC3,AC2 3113 033210 550 10 0 00 000007 HRRZ AC1,AC ;SETUP PAGE MAP 3114 033211 242 10 0 00 777777 LSH AC1,-1 3115 033212 305 10 0 00 000200 CAIGE AC1,200 3116 033213 271 10 0 00 000220 ADDI AC1,220 3117 033214 202 12 0 10 000000 MOVEM AC3,(AC1) 3118 033215 271 07 0 00 000002 ADDI AC,2 3119 033216 350 00 0 00 000005 AOS INDX 3120 033217 253 05 0 00 033200 AOBJN INDX,PGWRT1 3121 3122 033220 7 010 20 0 00 020000 PGWRT2: CONO PAG,LTRPEN ;CLEAR AM, ETC 3123 033221 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3124 033222 402 00 0 00 043742 SETZM PGWRTB ;CLEAR DATA AREA 3125 033223 200 07 0 00 040176 MOVE AC,[PGWRTB,,PGWRTB+1] 3126 033224 251 07 0 00 044402 BLT AC,PGWRTB+440 3127 033225 205 05 0 00 777340 MOVSI INDX,-440 3128 033226 201 07 0 00 000340 MOVEI AC,340 3129 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 67 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA WRITE SEQ 0123 3130 033227 200 14 0 00 000007 PGWRT3: MOVE COR,AC 3131 033230 242 14 0 00 000011 LSH COR,^D9 3132 033231 661 14 0 00 777777 TLO COR,-1 3133 033232 621 14 0 14 000000 TLZ COR,(COR) 3134 033233 201 10 0 05 043742 MOVEI AC1,PGWRTB(INDX) 3135 033234 405 10 0 00 000777 ANDI AC1,777 3136 033235 271 10 0 14 000000 ADDI AC1,(COR) 3137 3138 033236 202 14 0 10 000000 MOVEM COR,(AC1) ;MAKE PAGED MEMORY WRITE 3139 033237 476 00 0 00 000013 SETOM ACT 3140 033240 200 13 0 10 000000 MOVE ACT,(AC1) ;PAGED READ VERIFY 3141 033241 312 14 0 00 000013 CAME COR,ACT 3142 ERROR PGWRT3,13,COR,ACT,DATA ERROR,PAGED REREAD,PGWRTX^ 3143 033242 036 13 0 00 040177 3144 033243 035 00 0 00 033227 ERLOOP PGWRT3 ;IF ERROR, LOOP TO PGWRT3 3145 033244 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 3146 033245 312 14 0 00 000013 CAME COR,ACT 3147 ERROR PGWRT3,13,COR,ACT,DATA ERROR,DIRECT REREAD,PGWRTX^ 3148 033246 036 13 0 00 040202 3149 033247 035 00 0 00 033227 ERLOOP PGWRT3 ;IF ERROR, LOOP TO PGWRT3 3150 033250 350 00 0 00 000007 AOS AC 3151 033251 253 05 0 00 033227 AOBJN INDX,PGWRT3 3152 3153 033252 205 05 0 00 777340 PGWRT4: MOVSI INDX,-440 ;CHECK DATA WRITE BLOCK 3154 033253 201 07 0 00 000340 MOVEI AC,340 ;USING DIRECT ADDRESSING 3155 3156 033254 200 14 0 00 000007 MOVE COR,AC 3157 033255 242 14 0 00 000011 LSH COR,^D9 ;SETUP COMPARE WORD 3158 033256 661 14 0 00 777777 TLO COR,-1 3159 033257 621 14 0 14 000000 TLZ COR,(COR) 3160 033260 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 3161 033261 312 14 0 00 000013 CAME COR,ACT 3162 ERROR PGWRT2,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^ 3163 033262 036 13 0 00 040207 3164 033263 035 00 0 00 033220 ERLOOP PGWRT2 ;IF ERROR, LOOP TO PGWRT2 3165 033264 350 00 0 00 000007 AOS AC 3166 033265 253 05 0 00 033254 AOBJN INDX,PGWRT4+2 3167 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 68 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA WRITE SEQ 0124 3168 033266 402 00 0 00 043742 PGWRT5: SETZM PGWRTB ;CLEAR DATA AREA 3169 033267 200 07 0 00 040176 MOVE AC,[PGWRTB,,PGWRTB+1] 3170 033270 251 07 0 00 044401 BLT AC,PGWRTB+437 3171 033271 205 05 0 00 777340 MOVSI INDX,-440 3172 033272 201 07 0 00 000777 MOVEI AC,777 3173 3174 033273 200 14 0 00 000007 PGWRT6: MOVE COR,AC ;MAKE REVERSE PAGED MEMORY WRITE 3175 033274 242 14 0 00 000011 LSH COR,^D9 3176 033275 661 14 0 00 777777 TLO COR,-1 3177 033276 621 14 0 14 000000 TLZ COR,(COR) 3178 033277 201 10 0 00 044401 MOVEI AC1,PGWRTB+437 3179 033300 275 10 0 05 000000 SUBI AC1,(INDX) 3180 033301 405 10 0 00 000777 ANDI AC1,777 3181 033302 271 10 0 14 000000 ADDI AC1,(COR) 3182 033303 202 14 0 10 000000 MOVEM COR,(AC1) ;PERFORM PAGED WRITE 3183 033304 476 00 0 00 000013 SETOM ACT 3184 033305 200 13 0 10 000000 MOVE ACT,(AC1) ;PAGED REREAD VERIFY 3185 033306 312 14 0 00 000013 CAME COR,ACT 3186 ERROR PGWRT6,13,COR,ACT,DATA ERROR,REVERSE PAGED REREAD,PGWRTX^ 3187 033307 036 13 0 00 040216 3188 033310 035 00 0 00 033273 ERLOOP PGWRT6 ;IF ERROR, LOOP TO PGWRT6 3189 033311 201 11 0 00 044401 MOVEI AC2,PGWRTB+437 3190 033312 275 11 0 05 000000 SUBI AC2,(INDX) 3191 033313 200 13 0 11 000000 MOVE ACT,(AC2) 3192 033314 312 14 0 00 000013 CAME COR,ACT 3193 ERROR PGWRT6,13,COR,ACT,DATA ERROR,REVERSE DIRECT REREAD,PGWRTZ^ 3194 033315 036 13 0 00 040225 3195 033316 035 00 0 00 033273 ERLOOP PGWRT6 ;IF ERROR, LOOP TO PGWRT6 3196 033317 370 00 0 00 000007 SOS AC 3197 033320 253 05 0 00 033273 AOBJN INDX,PGWRT6 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 69 DSKEAM MAC 29-Mar-78 14:55 TEST PAGED DATA WRITE SEQ 0125 3198 033321 205 05 0 00 777340 PGWRT7: MOVSI INDX,-440 3199 033322 201 07 0 00 000340 MOVEI AC,340 3200 3201 033323 200 14 0 00 000007 MOVE COR,AC ;CHECK DATA WRITE BLOCK 3202 033324 242 14 0 00 000011 LSH COR,^D9 ;USING DIRECT ADDRESSING 3203 033325 661 14 0 00 777777 TLO COR,-1 3204 033326 621 14 0 14 000000 TLZ COR,(COR) 3205 033327 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 3206 033330 312 14 0 00 000013 CAME COR,ACT 3207 ERROR PGWRT5,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^ 3208 033331 036 13 0 00 040207 3209 033332 035 00 0 00 033266 ERLOOP PGWRT5 ;IF ERROR, LOOP TO PGWRT5 3210 033333 350 00 0 00 000007 AOS AC 3211 033334 253 05 0 00 033323 AOBJN INDX,PGWRT7+2 3212 3213 033335 367 15 0 00 033176 REPTLP PGWRT0+2 ;CYCLE 3214 033336 254 00 0 00 033356 JRST PFT0-2 3215 3216 033337 037 02 0 00 040067 PGWRTX: PSIXM SIXBTZ ^ [SIXBIT\REF TO _\]^ 3217 033340 200 00 0 00 000010 MOVE AC1 3218 033341 037 06 0 00 000000 PNT6 3219 033342 037 00 0 00 030242 PCRL 3220 033343 263 17 0 00 000000 RTN 3221 3222 033344 037 02 0 00 040067 PGWRTY: PSIXM SIXBTZ ^ [SIXBIT\REF TO _\]^ 3223 033345 201 00 0 05 043742 MOVEI PGWRTB(INDX) 3224 033346 037 06 0 00 000000 PNT6 3225 033347 037 00 0 00 030242 PCRL 3226 033350 263 17 0 00 000000 RTN 3227 3228 033351 037 02 0 00 040067 PGWRTZ: PSIXM SIXBTZ ^ [SIXBIT\REF TO _\]^ 3229 033352 200 00 0 00 000011 MOVE AC2 3230 033353 037 06 0 00 000000 PNT6 3231 033354 037 00 0 00 030242 PCRL 3232 033355 263 17 0 00 000000 RTN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 70 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE FAIL WORD SEQ 0126 3233 SUBTTL TEST PAGE FAIL WORD 3234 3235 SALL 3236 040230 T= SIXBTZ PAGE FAIL WORD TEST 3237 LALL 3238 3239 ;*VERIFY THAT THE PROPER PAGE FAIL CODE OCCURS ON A PAGED READ 3240 ;*TO AN AREA WITHOUT THE ACCESS BIT BUT WITH THE PUBLIC, 3241 ;*WRITEABLE,SOFTWARE & CACHE BIT. 3242 3243 SUBTST^ 3244 033356 201 00 0 00 033356 MOVEI . 3245 033357 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3246 033360 200 15 0 00 043737 PFT0: MOVE REPT,RPEAT 3247 033361 402 00 0 00 000200 SETZM 200 3248 033362 200 00 0 00 040234 MOVE [200,201] 3249 033363 251 00 0 00 000417 BLT 417 ;CLEAR PAGE MAP 3250 3251 033364 205 00 0 00 360033 MOVSI 360000! 3252 033365 202 00 0 00 000200 MOVEM 200 ;SETUP PAGE MAP WORD 3253 3254 033366 201 00 0 00 033402 MOVEI PFT2 3255 033367 202 00 0 00 000502 MOVEM LPGFTR ;SETUP FOR PAGE FAIL 3256 3257 033370 476 00 0 00 033170 PFT1: SETOM PGW400 3258 033371 7 010 20 0 00 020000 CONO PAG,LTRPEN 3259 033372 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3260 033373 402 00 0 00 000014 SETZM COR 3261 033374 403 00 0 00 000013 SETZB 0,ACT 3262 3263 033375 200 13 0 00 400170 MOVE ACT,400000! ;MAKE PAGED READ 3264 3265 033376 200 13 0 00 033170 MOVE ACT,PGW400 3266 ERROR PFT1,13,COR,ACT,TRAP FAILED,FATAL^ 3267 SALL 3268 033377 036 13 0 00 040235 3269 033400 035 00 0 00 033370 ERLOOP PFT1 ;IF ERROR, LOOP TO PFT1 3270 033401 254 00 0 00 033417 JRST PFT3 ;FATAL DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 71 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE FAIL WORD SEQ 0127 3271 033402 312 14 0 00 000013 PFT2: CAME COR,ACT 3272 ERROR PFT1,13,COR,ACT,PAGE FAIL STORED IN AC^ 3273 033403 036 13 0 00 040240 3274 033404 035 00 0 00 033370 ERLOOP PFT1 ;IF ERROR, LOOP TO PFT1 3275 3276 033405 200 13 0 00 000000 MOVE ACT,0 3277 033406 312 14 0 00 000013 CAME COR,ACT 3278 ERROR PFT1,13,COR,ACT,PAGE FAIL STORED IN 0^ 3279 033407 036 13 0 00 040243 3280 033410 035 00 0 00 033370 ERLOOP PFT1 ;IF ERROR, LOOP TO PFT1 3281 3282 033411 200 14 0 00 040246 MOVE COR,[001000,,400000!] 3283 033412 200 13 0 00 000500 MOVE ACT,LEUPFW 3284 033413 312 14 0 00 000013 CAME COR,ACT 3285 ERROR PFT1,13,COR,ACT,PAGE FAIL WORD WRONG^ 3286 033414 036 13 0 00 040247 3287 033415 035 00 0 00 033370 ERLOOP PFT1 ;IF ERROR, LOOP TO PFT1 3288 3289 033416 367 15 0 00 033361 REPTLP PFT0+1 3290 3291 033417 200 00 0 00 043736 PFT3: MOVE PGFAIL ;RESTORE PAGE FAIL 3292 033420 202 00 0 00 000502 MOVEM LPGFTR DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 72 DSKEAM MAC 29-Mar-78 14:55 TEST WRITE PROTECTED PAGING SEQ 0128 3293 SUBTTL TEST WRITE PROTECTED PAGING 3294 3295 ;*TRYING TO WRITE INTO A WRITE PROTECTED AREA 3296 ;*SHOULD CAUSE A PAGE FAILURE 3297 3298 SALL 3299 040252 T= SIXBTZ WRITE PROTECT TEST 3300 LALL 3301 3302 SUBTST^ 3303 033421 201 00 0 00 033421 MOVEI . 3304 033422 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3305 033423 200 15 0 00 043737 WRTP0: MOVE REPT,RPEAT 3306 033424 402 00 0 00 000200 SETZM 200 ;CLEAR AND SETUP PAGE MAP 3307 033425 200 07 0 00 037671 MOVE AC,[200,,201] 3308 033426 251 07 0 00 000417 BLT AC,417 3309 033427 205 07 0 00 640033 MOVSI AC,640000! 3310 033430 202 07 0 00 000200 MOVEM AC,200 3311 033431 201 07 0 00 400033 MOVEI AC,400000! 3312 033432 202 07 0 00 000377 MOVEM AC,377 3313 033433 201 07 0 00 033447 MOVEI AC,WRTPF 3314 033434 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 3315 3316 033435 402 00 0 00 033170 WRTP1: SETZM PGW400 3317 033436 7 010 20 0 00 020000 CONO PAG,LTRPEN 3318 033437 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3319 033440 402 00 0 00 000014 SETZM COR 3320 033441 403 00 0 00 000013 SETZB 0,ACT 3321 033442 476 00 0 00 400170 SETOM 400000! ;MAKE PAGED WRITE 3322 033443 200 13 0 00 033170 MOVE ACT,PGW400 3323 ERROR WRTP1,13,COR,ACT,TRAP FAILED,ADR 400XXX^ 3324 SALL 3325 033444 036 13 0 00 040256 3326 033445 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3327 033446 254 00 0 00 033435 JRST WRTP1 3328 3329 033447 402 00 0 00 000014 WRTPF: SETZM COR 3330 033450 312 14 0 00 000013 CAME COR,ACT 3331 ERROR WRTP1,13,COR,ACT,PAGE FAIL STORED IN AC,ADR 400XXX^ 3332 033451 036 13 0 00 040261 3333 033452 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3334 033453 200 13 0 00 000000 MOVE ACT,0 3335 033454 312 14 0 00 000013 CAME COR,ACT 3336 ERROR WRTP1,13,COR,ACT,PAGE FAIL STORED IN 0,ADR 400XXX^ 3337 033455 036 13 0 00 040264 3338 033456 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3339 033457 200 14 0 00 040267 MOVE COR,[131000,,400000!] 3340 033460 200 13 0 00 000500 MOVE ACT,LEUPFW 3341 033461 312 14 0 00 000013 CAME COR,ACT 3342 ERROR WRTP1,13,COR,ACT,PAGE FAIL WORD WRONG,ADR 400XXX^ 3343 033462 036 13 0 00 040270 3344 033463 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 73 DSKEAM MAC 29-Mar-78 14:55 TEST WRITE PROTECTED PAGING SEQ 0129 3345 033464 402 00 0 00 000014 WRTP2: SETZM COR 3346 033465 200 13 0 00 033170 MOVE ACT,PGW400 3347 033466 312 14 0 00 000013 CAME COR,ACT 3348 ERROR WRTP1,13,COR,ACT,DATA WORD WRONG,ADR 400XXX^ 3349 033467 036 13 0 00 040276 3350 033470 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3351 3352 033471 201 07 0 00 033502 WRTP3: MOVEI AC,WRTPF1 3353 033472 202 07 0 00 000502 MOVEM AC,LPGFTR 3354 033473 476 00 0 00 033171 SETOM PGW777 3355 033474 476 00 0 00 000014 SETOM COR 3356 033475 476 00 0 00 000013 SETOM ACT 3357 033476 402 00 0 00 777171 SETZM 777000! ;MAKE PAGED WRITE 3358 033477 200 13 0 00 033171 MOVE ACT,PGW777 3359 ERROR1 13,COR,ACT,TRAP FAILED,ADR 777XXX^ 3360 033500 036 13 0 00 040301 3361 033501 254 00 0 00 033471 JRST WRTP3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 74 DSKEAM MAC 29-Mar-78 14:55 TEST WRITE PROTECTED PAGING SEQ 0130 3362 033502 312 14 0 00 000013 WRTPF1: CAME COR,ACT 3363 ERROR WRTP1,13,COR,ACT,PAGE FAIL STORED IN AC,ADR 777XXX^ 3364 033503 036 13 0 00 040304 3365 033504 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3366 033505 200 14 0 00 040307 MOVE COR,[111000,,777000!] 3367 033506 200 13 0 00 000500 MOVE ACT,LEUPFW 3368 033507 312 14 0 00 000013 CAME COR,ACT 3369 ERROR WRTP1,13,COR,ACT,PAGE FAIL WORD WRONG,ADR 777XXX^ 3370 033510 036 13 0 00 040310 3371 033511 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3372 3373 033512 476 00 0 00 000014 WRTP4: SETOM COR 3374 033513 200 13 0 00 033171 MOVE ACT,PGW777 3375 033514 312 14 0 00 000013 CAME COR,ACT 3376 ERROR WRTP1,13,COR,ACT,DATA WORD WRONG,ADR 777XXX^ 3377 033515 036 13 0 00 040313 3378 033516 035 00 0 00 033435 ERLOOP WRTP1 ;IF ERROR, LOOP TO WRTP1 3379 3380 033517 367 15 0 00 033424 REPTLP WRTP0+1 3381 3382 033520 200 07 0 00 043736 MOVE AC,PGFAIL 3383 033521 202 07 0 00 000502 MOVEM AC,LPGFTR ;RESET PAGE FAIL TRAP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 75 DSKEAM MAC 29-Mar-78 14:55 PAGED BLT PAGING AND ADDRESSING TEST SEQ 0131 3384 SUBTTL PAGED BLT PAGING AND ADDRESSING TEST 3385 3386 ;*CHECKS THAT ADDRESSING FROM 340000 TO 777777 WORKS. 3387 ;*ALL PAGING REFERENCES RELOCATE INTO ACTUAL ADDRESSES 76000 TO 76777. 3388 ;*BLT USES ALL ADDRESS FROM 340000 TO 777777. 3389 3390 SALL 3391 040316 T= SIXBTZ PAGED BLT TEST 3392 LALL 3393 3394 SUBTST^ 3395 033522 201 00 0 00 033522 MOVEI . 3396 033523 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3397 033524 200 15 0 00 043737 BLT0: MOVE REPT,RPEAT 3398 033525 205 05 0 00 777560 MOVSI INDX,-440/2 ;SETUP PAGE MAP SO ALL ADDRESSES 3399 033526 201 07 0 00 000340 MOVEI AC,340 ;POINT TO 76XXX. 3400 033527 200 11 0 00 040321 MOVE AC2,[740076,,740076] 3401 033530 550 10 0 00 000007 BLT1: HRRZ AC1,AC 3402 033531 242 10 0 00 777777 LSH AC1,-1 3403 033532 305 10 0 00 000200 CAIGE AC1,200 3404 033533 271 10 0 00 000220 ADDI AC1,220 3405 033534 202 11 0 10 000000 MOVEM AC2,(AC1) 3406 033535 271 07 0 00 000002 ADDI AC,2 3407 033536 253 05 0 00 033530 AOBJN INDX,BLT1 3408 3409 033537 7 010 20 0 00 020000 BLT2: CONO PAG,LTRPEN ;CLEAR AM, ETC. 3410 033540 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3411 033541 402 00 0 00 340000 SETZM 340000 ;SET FIRST ADDRESS TO ALL ZEROS 3412 033542 200 07 0 00 040322 MOVE AC,[340000,,340001] 3413 033543 251 07 0 00 777777 BLT AC,777777 ;BLT TO MAXIMUM 3414 3415 033544 205 05 0 00 777000 BLT3: MOVSI INDX,-1000 ;CHECK DATA AREA WITH DIRECT ADDRESSING 3416 033545 201 14 0 05 076000 MOVEI COR,76000(INDX) 3417 033546 200 13 0 05 076000 MOVE ACT,76000(INDX) 3418 033547 312 13 0 00 037173 CAME ACT,[0] 3419 ERROR BLT1,13,COR,ACT,NOT ALL ZEROS,^ 3420 SALL 3421 033550 036 13 0 00 040326 3422 033551 035 00 0 00 033530 ERLOOP BLT1 ;IF ERROR, LOOP TO BLT1 3423 033552 253 05 0 00 033545 AOBJN INDX,BLT3+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 76 DSKEAM MAC 29-Mar-78 14:55 PAGED BLT PAGING AND ADDRESSING TEST SEQ 0132 3424 033553 7 010 20 0 00 020000 BLT4: CONO PAG,LTRPEN ;CLEAR AM, ETC. 3425 033554 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3426 033555 476 00 0 00 340000 SETOM 340000 ;SET FIRST ADDRESS TO ALL ONES 3427 033556 200 07 0 00 040322 MOVE AC,[340000,,340001] 3428 033557 251 07 0 00 777777 BLT AC,777777 ;BLT TO MAXIMUM 3429 3430 033560 205 05 0 00 777000 BLT5: MOVSI INDX,-1000 ;CHECK DATA AREA WITH DIRECT ADDRESSING 3431 033561 201 14 0 05 076000 MOVEI COR,76000(INDX) 3432 033562 200 13 0 05 076000 MOVE ACT,76000(INDX) 3433 033563 312 13 0 00 040331 CAME ACT,[-1] 3434 ERROR BLT4,13,COR,ACT,NOT ALL ONES,^ 3435 033564 036 13 0 00 040335 3436 033565 035 00 0 00 033553 ERLOOP BLT4 ;IF ERROR, LOOP TO BLT4 3437 033566 253 05 0 00 033561 AOBJN INDX,BLT5+1 3438 3439 033567 7 010 20 0 00 020000 BLT6: CONO PAG,LTRPEN ;CLEAR AM, ETC. 3440 033570 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3441 033571 200 13 0 00 040340 MOVE ACT,[525252,,525252] 3442 033572 202 13 0 00 340000 MOVEM ACT,340000 ;SET FIRST ADDRESS TO ALT BITS 3443 033573 200 07 0 00 040322 MOVE AC,[340000,,340001] 3444 033574 251 07 0 00 777777 BLT AC,777777 ;BLT TO MAXIMUM DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 77 DSKEAM MAC 29-Mar-78 14:55 PAGED BLT PAGING AND ADDRESSING TEST SEQ 0133 3445 033575 205 05 0 00 777000 BLT7: MOVSI INDX,-1000 ;CHECK DATA AREA WITH DIRECT ADDRESSING 3446 033576 201 14 0 05 076000 MOVEI COR,76000(INDX) 3447 033577 200 13 0 05 076000 MOVE ACT,76000(INDX) 3448 033600 312 13 0 00 040340 CAME ACT,[525252,,525252] 3449 ERROR BLT6,13,COR,ACT,NOT ALT BITS,^ 3450 033601 036 13 0 00 040344 3451 033602 035 00 0 00 033567 ERLOOP BLT6 ;IF ERROR, LOOP TO BLT6 3452 033603 253 05 0 00 033576 AOBJN INDX,BLT7+1 3453 3454 033604 7 010 20 0 00 020000 BLT8: CONO PAG,LTRPEN ;CLEAR AM, ETC. 3455 033605 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3456 033606 200 13 0 00 040347 MOVE ACT,[252525,,252525] 3457 033607 202 13 0 00 340000 MOVEM ACT,340000 ;SET FIRST ADDRESS TO ALT BITS 3458 033610 200 07 0 00 040322 MOVE AC,[340000,,340001] 3459 033611 251 07 0 00 777777 BLT AC,777777 ;BLT TO MAXIMUM 3460 3461 033612 205 05 0 00 777000 BLT9: MOVSI INDX,-1000 ;CHECK DATA AREA WITH DIRECT ADDRESSING 3462 033613 201 14 0 05 076000 MOVEI COR,76000(INDX) 3463 033614 200 13 0 05 076000 MOVE ACT,76000(INDX) 3464 033615 312 13 0 00 040347 CAME ACT,[252525,,252525] 3465 ERROR BLT8,13,COR,ACT,NOT ALT BITS,^ 3466 033616 036 13 0 00 040344 3467 033617 035 00 0 00 033604 ERLOOP BLT8 ;IF ERROR, LOOP TO BLT8 3468 033620 253 05 0 00 033613 AOBJN INDX,BLT9+1 3469 3470 033621 367 15 0 00 033525 REPTLP BLT0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 78 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0134 3471 SUBTTL TEST BASE REGISTER RELOCATION 3472 3473 ;*SETUP PAGE MAP PAGES AS PAGE 76 3474 ;*SETUP PAGE 0 PAGE MAP FOR ERRORS 3475 ;*SETUP BASE REGISTERS 3476 ;*TEST MUUO FOR PAGE 0 AND FOR PAGE 76 3477 ;*TEST THAT EXEC PAGE FAIL WORD STORES CORRECTLY 3478 ;*IN PAGE 76 USING USER BASE REGISTER RELOCATION. 3479 3480 SALL 3481 040350 T= SIXBTZ BASE REGISTER RELOCATION TEST 3482 LALL 3483 3484 SUBTST^ 3485 033622 201 00 0 00 033622 MOVEI . 3486 033623 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3487 033624 200 15 0 00 043737 RLBAS0: MOVE REPT,RPEAT 3488 033625 7 010 20 0 00 020000 CONO PAG,LTRPEN 3489 033626 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3490 033627 402 00 0 00 000200 SETZM 200 ;CLEAR PAGE 0 PAGE MAP 3491 033630 200 07 0 00 037671 MOVE AC,[200,,201] 3492 033631 251 07 0 00 000417 BLT AC,417 3493 033632 402 00 0 00 076200 SETZM 76200 ;CLEAR RELOC PAGE PAGE MAP 3494 033633 200 07 0 00 040355 MOVE AC,[76200,,76201] 3495 033634 251 07 0 00 076417 BLT AC,76417 3496 033635 200 00 0 00 040356 MOVE [540000,,540001] 3497 033636 202 00 0 00 076600 MOVEM 76600 ;SETUP LOWER EXEC PAGING 3498 033637 205 01 0 00 777621 MOVSI 1,-157 3499 033640 270 00 0 00 040357 ADD [2,,2] 3500 033641 202 00 0 01 076601 MOVEM 76601(1) 3501 033642 253 01 0 00 033640 AOBJN 1,.-2 3502 033643 200 00 0 00 000041 MOVE 41 3503 033644 202 00 0 00 076041 MOVEM 76000!LUUOI ;SETUP LUUO 3504 033645 200 00 0 00 000042 MOVE 42 3505 033646 202 00 0 00 076042 MOVEM 76000!42 ;SETUP INTERRUPT 3506 033647 200 00 0 00 000502 MOVE LPGFTR 3507 033650 202 00 0 00 076502 MOVEM 76000!LPGFTR ;SETUP PAGE FAIL 3508 033651 200 00 0 00 040360 MOVE [JFCL] 3509 033652 202 00 0 00 076421 MOVEM 76000!LAROVT ;SETUP ARITH TRAP 3510 033653 200 00 0 00 000422 MOVE LPDOVT 3511 033654 202 00 0 00 076422 MOVEM 76000!LPDOVT ;SETUP PDL OV TRAP 3512 033655 200 00 0 00 000423 MOVE LTRP3T 3513 033656 202 00 0 00 076423 MOVEM 76000!LTRP3T ;SETUP TRAP 3 TRAP 3514 033657 200 00 0 00 000430 MOVE LKNTRP 3515 033660 202 00 0 00 076430 MOVEM 76000!LKNTRP ;SETUP MUUO AS ERROR 3516 033661 202 00 0 00 076431 MOVEM 76000!LKTRP 3517 033662 202 00 0 00 076432 MOVEM 76000!LSNTRP 3518 033663 202 00 0 00 076433 MOVEM 76000!LSTRP 3519 033664 202 00 0 00 076434 MOVEM 76000!LCNTRP 3520 033665 202 00 0 00 076435 MOVEM 76000!LCTRP 3521 033666 202 00 0 00 076436 MOVEM 76000!LPNTRP 3522 033667 202 00 0 00 076437 MOVEM 76000!LPTRP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 79 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0135 3523 ;*TEST USER BASE REGISTER RELOCATION 3524 ;*BY USING AN MUUO OF 0,,654321. 3525 3526 ;*TEST MUUO FIRST WITH EPMP & UPMP AS PAGE 0. 3527 3528 033670 201 07 0 00 033703 RLBAS1: MOVEI AC,RLBMU1 ;SETUP MUUO TO RETURN 3529 033671 202 07 0 00 000430 MOVEM AC,LKNTRP ;FROM PAGE 0 3530 033672 201 07 0 00 033726 MOVEI AC,RLBMU3 3531 033673 202 07 0 00 076430 MOVEM AC,76000!LKNTRP ;FROM RELOCATED PAGE 3532 3533 033674 402 00 0 00 000014 RLBAS2: SETZM COR 3534 033675 201 13 0 00 033700 MOVEI ACT,.+3 3535 033676 254 02 1 00 033677 JRSTF @.+1 ;CLEAR FLAGS 3536 033677 000000 033700 .+1 3537 033700 000000 654321 RLBMU0: 0,,654321 ;DO AN MUUO OF 0,,654321 3538 ERROR RLBAS2,13,COR,ACT,MUUO FAILED,^ 3539 SALL 3540 033701 036 13 0 00 040367 3541 033702 035 00 0 00 033674 ERLOOP RLBAS2 ;IF ERROR, LOOP TO RLBAS2 3542 3543 033703 201 14 0 00 654321 RLBMU1: MOVEI COR,654321 3544 033704 200 13 0 00 000424 MOVE ACT,LMUUO 3545 033705 312 14 0 00 000013 CAME COR,ACT 3546 ERROR RLBAS2,13,COR,ACT,MUUO STORED WRONG,PAGE 0^ 3547 033706 036 13 0 00 040377 3548 033707 035 00 0 00 033674 ERLOOP RLBAS2 ;IF ERROR, LOOP TO RLBAS2 3549 033710 201 14 0 00 033701 MOVEI COR,RLBMU0+1 3550 033711 200 13 0 00 000425 MOVE ACT,LMUUOP 3551 033712 312 14 0 00 000013 CAME COR,ACT 3552 ERROR RLBAS2,13,COR,ACT,MUUO PC STORED WRONG,PAGE 0^ 3553 033713 036 13 0 00 040406 3554 033714 035 00 0 00 033674 ERLOOP RLBAS2 ;IF ERROR, LOOP TO RLBAS2 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 80 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0136 3555 ;*TEST THAT WITH UPMP RELOCATED TO PAGE 76 3556 ;*AN MUUO TRAPS CORRECTLY AND RETRIEVES NEW PC 3557 ;*FROM RELOCATED USER PAGE MAP PAGE. 3558 ;*ALSO TEST THAT MUUO AND TRAPPED PC GET STORED CORRECTLY 3559 ;*IN RELOCATED UPMP. 3560 3561 033715 7 010 14 0 00 040411 RLBAS3: DATAO PAG,[LLDUSB,,400076] ;RELOCATE USER BASE REG 3562 033716 402 00 0 00 000014 SETZM COR 3563 033717 201 13 0 00 033722 MOVEI ACT,.+3 3564 033720 254 02 1 00 033721 JRSTF @.+1 3565 033721 000000 033722 .+1 3566 033722 000000 123456 RLBMU2: 0,,123456 ;DO AN MUUO OF 0,,123456 3567 033723 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3568 ERROR RLBAS3,13,COR,ACT,MUUO FAILED,^ 3569 033724 036 13 0 00 040367 3570 033725 035 00 0 00 033715 ERLOOP RLBAS3 ;IF ERROR, LOOP TO RLBAS3 3571 3572 033726 7 010 14 0 00 037116 RLBMU3: DATAO PAG,[LLDUSB,,400000] 3573 033727 201 14 0 00 123456 MOVEI COR,123456 3574 033730 200 13 0 00 076424 MOVE ACT,76000!LMUUO 3575 033731 312 14 0 00 000013 CAME COR,ACT 3576 ERROR RLBAS3,13,COR,ACT,MUUO STORED WRONG,RELOCATED PAGE^ 3577 033732 036 13 0 00 040415 3578 033733 035 00 0 00 033715 ERLOOP RLBAS3 ;IF ERROR, LOOP TO RLBAS3 3579 033734 201 14 0 00 033723 MOVEI COR,RLBMU2+1 3580 033735 200 13 0 00 076425 MOVE ACT,76000!LMUUOP 3581 033736 312 14 0 00 000013 CAME COR,ACT 3582 ERROR RLBAS3,13,COR,ACT,MUUO PC STORED WRONG,RELOCATED PAGE^ 3583 033737 036 13 0 00 040420 3584 033740 035 00 0 00 033715 ERLOOP RLBAS3 ;IF ERROR, LOOP TO RLBAS3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 81 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0137 3585 ;*TEST USER BASE REGISTER RELOCATION 3586 ;*BY USING EXEC PAGE FAIL WORD 3587 3588 033741 200 07 0 00 043734 RLBAS4: MOVE AC,MUUOER# 3589 033742 202 07 0 00 000430 MOVEM AC,LKNTRP 3590 033743 202 07 0 00 076430 MOVEM AC,76000!LKNTRP 3591 033744 201 07 0 00 033755 MOVEI AC,RLPFL 3592 033745 202 07 0 00 076502 MOVEM AC,76000!LPGFTR ;SETUP PAGE FAIL TRAP 3593 033746 476 00 0 00 076500 RLPF1: SETOM 76000!LEUPFW 3594 033747 201 14 0 00 777777 MOVEI COR,777777 3595 033750 476 00 0 00 000013 SETOM ACT 3596 033751 7 010 14 0 00 040411 DATAO PAG,[LLDUSB,,400076] 3597 033752 200 13 0 00 777777 MOVE ACT,777777 ;SHOULD PAGE FAIL 3598 ERROR RLPF1,13,COR,ACT,PAGE FAIL FAILED,REF TO 777777^ 3599 033753 036 13 0 00 040426 3600 033754 035 00 0 00 033746 ERLOOP RLPF1 ;IF ERROR, LOOP TO RLPF1 3601 3602 033755 476 00 0 00 000014 RLPFL: SETOM COR 3603 033756 312 14 0 00 000013 CAME COR,ACT 3604 ERROR RLPF1,13,COR,ACT,PAGE FAIL STORED IN AC,REF TO 777777^ 3605 033757 036 13 0 00 040431 3606 033760 035 00 0 00 033746 ERLOOP RLPF1 ;IF ERROR, LOOP TO RLPF1 3607 033761 200 14 0 00 040006 MOVE COR,[1000,,777777] ;SETUP CORRECT WORD 3608 033762 200 13 0 00 076500 MOVE ACT,76000!LEUPFW 3609 033763 312 14 0 00 000013 CAME COR,ACT 3610 ERROR RLPF1,13,COR,ACT,PAGE FAIL WORD WRONG,REF TO 777777^ 3611 033764 036 13 0 00 040434 3612 033765 035 00 0 00 033746 ERLOOP RLPF1 ;IF ERROR, LOOP TO RLPF1 3613 3614 033766 7 010 14 0 00 037116 RLBAS5: DATAO PAG,[LLDUSB,,400000] 3615 033767 200 07 0 00 043736 MOVE AC,PGFAIL 3616 033770 202 07 0 00 000502 MOVEM AC,LPGFTR 3617 033771 367 15 0 00 033625 REPTLP RLBAS0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 82 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0138 3618 ;*TEST BASE REGISTER RELOCATION 3619 ;*BY USING EXEC-PER-PROCESS PAGING 3620 ;*AND PAGING REFILL DATA FROM RELOCATED PAGE 3621 ;*WITH USER BASE REGISTER SET TO PAGE 76. 3622 3623 SALL 3624 040437 T= SIXBTZ RELOCATED EXEC-PER-PROCESS PAGING 3625 LALL 3626 3627 SUBTST^ 3628 033772 201 00 0 00 033772 MOVEI . 3629 033773 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3630 033774 200 15 0 00 043737 RLBAS6: MOVE REPT,RPEAT 3631 033775 221 15 0 00 000012 IMULI REPT,^D10 ;FSTCYL=10 PASSES, REL=100 PASSES 3632 033776 205 05 0 00 777760 MOVSI INDX,-40/2 3633 033777 201 07 0 00 000340 MOVEI AC,340 3634 3635 034000 201 11 0 05 043742 RLWRT1: MOVEI AC2,PGWRTB(INDX) 3636 034001 242 11 0 00 777767 LSH AC2,-^D9 ;SETUP RELOCATED PAGE PAGE MAP 3637 034002 271 11 0 00 540000 ADDI AC2,540000 ;FOR RELOCATION OF PAGES 3638 034003 504 12 0 00 000011 HRL AC3,AC2 ;340-377 TO EXEC DATA AREA 3639 034004 201 11 0 05 043743 MOVEI AC2,PGWRTB+1(INDX) 3640 034005 242 11 0 00 777767 LSH AC2,-^D9 3641 034006 271 11 0 00 540000 ADDI AC2,540000 3642 034007 540 12 0 00 000011 HRR AC3,AC2 3643 034010 550 10 0 00 000007 HRRZ AC1,AC 3644 034011 242 10 0 00 777777 LSH AC1,-1 3645 034012 271 10 0 00 000220 ADDI AC1,220 3646 034013 202 12 0 10 076000 MOVEM AC3,76000(AC1) ;WRITE PAGING DATA 3647 034014 271 07 0 00 000002 ADDI AC,2 3648 034015 350 00 0 00 000005 AOS INDX 3649 034016 253 05 0 00 034000 AOBJN INDX,RLWRT1 3650 3651 034017 402 00 0 00 043742 RLWRT2: SETZM PGWRTB 3652 034020 200 07 0 00 040176 MOVE AC,[PGWRTB,,PGWRTB+1] 3653 034021 251 07 0 00 044001 BLT AC,PGWRTB+37 ;CLEAR DATA AREA 3654 034022 7 010 20 0 00 020000 CONO PAG,LTRPEN 3655 034023 7 010 14 0 00 040411 DATAO PAG,[LLDUSB,,400076] 3656 034024 205 05 0 00 777740 MOVSI INDX,-40 3657 034025 201 07 0 00 000340 MOVEI AC,340 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 83 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0139 3658 034026 200 14 0 00 000007 RLWRT3: MOVE COR,AC ;SETUP DATA 3659 034027 242 14 0 00 000011 LSH COR,^D9 ;AND PAGING ADDRESS 3660 034030 661 14 0 00 777777 TLO COR,-1 3661 034031 621 14 0 14 000000 TLZ COR,(COR) 3662 034032 201 10 0 05 043742 MOVEI AC1,PGWRTB(INDX) 3663 034033 405 10 0 00 000777 ANDI AC1,777 3664 034034 271 10 0 14 000000 ADDI AC1,(COR) 3665 3666 034035 202 14 0 10 000000 MOVEM COR,(AC1) ;MAKE PAGED MEMORY WRITE 3667 034036 200 13 0 10 000000 MOVE ACT,(AC1) ;PAGED READ VERIFY 3668 034037 312 14 0 00 000013 CAME COR,ACT 3669 ERROR RLWRT2,13,COR,ACT,DATA ERROR,PAGED REREAD,PGWRTX^ 3670 SALL 3671 034040 036 13 0 00 040445 3672 034041 035 00 0 00 034017 ERLOOP RLWRT2 ;IF ERROR, LOOP TO RLWRT2 3673 034042 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 3674 034043 312 14 0 00 000013 CAME COR,ACT 3675 ERROR RLWRT2,13,COR,ACT,DATA ERROR,DIRECT REREAD,PGWRTY^ 3676 034044 036 13 0 00 040450 3677 034045 035 00 0 00 034017 ERLOOP RLWRT2 ;IF ERROR, LOOP TO RLWRT2 3678 034046 350 00 0 00 000007 AOS AC 3679 034047 253 05 0 00 034026 AOBJN INDX,RLWRT3 3680 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 84 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0140 3681 034050 7 010 20 0 00 020000 RLWRT4: CONO PAG,LTRPEN 3682 034051 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3683 034052 205 05 0 00 777740 MOVSI INDX,-40 ;CHECK DATA BLOCK USING 3684 034053 201 07 0 00 000340 MOVEI AC,340 ;DIRECT ADDRESSING 3685 3686 034054 200 14 0 00 000007 MOVE COR,AC 3687 034055 242 14 0 00 000011 LSH COR,^D9 3688 034056 661 14 0 00 777777 TLO COR,-1 3689 034057 621 14 0 14 000000 TLZ COR,(COR) 3690 034060 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 3691 034061 312 14 0 00 000013 CAME COR,ACT 3692 ERROR RLWRT2,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^ 3693 034062 036 13 0 00 040453 3694 034063 035 00 0 00 034017 ERLOOP RLWRT2 ;IF ERROR, LOOP TO RLWRT2 3695 034064 350 00 0 00 000007 AOS AC 3696 034065 253 05 0 00 034054 AOBJN INDX,RLWRT4+4 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 85 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0141 3697 ;*TEST THAT A TRAP FROM THE EXEC-PER-PROCESS AREA 3698 ;*USES THE CORRECT BASE REGISTER 3699 3700 034066 7 010 20 0 00 020000 EPPT0: CONO PAG,LTRPEN 3701 034067 7 010 14 0 00 040411 DATAO PAG,[LLDUSB,,400076] 3702 3703 034070 200 00 0 00 040456 MOVE [JRST 1,340001] ;PORTAL 3704 034071 202 00 0 00 340000 MOVEM 340000 3705 034072 200 00 0 00 040457 MOVE [JRSTF @340002] ;SET FLAGS 3706 034073 202 00 0 00 340001 MOVEM 340001 3707 034074 200 00 0 00 040460 MOVE [TN0!TN1,,340003] ;TO CAUSE TRAP 3 3708 034075 202 00 0 00 340002 MOVEM 340002 3709 034076 200 00 0 00 040461 MOVE [JRST 340003] ;IF NO TRAP, HANG 3710 034077 202 00 0 00 340003 MOVEM 340003 3711 3712 034100 200 00 0 00 040462 MOVE [JSR EPPT2] ;SHOULD TRAP USING EBR 3713 034101 202 00 0 00 000423 MOVEM LTRP3T 3714 034102 200 00 0 00 040463 MOVE [JSR EPPT1] ;ERROR IF USED UBR 3715 034103 202 00 0 00 076423 MOVEM 76000!LTRP3T 3716 3717 034104 254 00 0 00 340000 JRST 340000 ;TO PER-PROCESS AREA 3718 3719 034105 000000 000000 EPPT1: 0 3720 034106 7 010 20 0 00 020000 CONO PAG,LTRPEN 3721 034107 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3722 ERROR RLBAS6+2,13,0,0,EPP ADR TRAP ERROR,TRAPPED USING UBR^ 3723 034110 036 13 0 00 040473 3724 034111 035 00 0 00 033776 ERLOOP RLBAS6+2 ;IF ERROR, LOOP TO RLBAS6+2 3725 034112 254 00 0 00 034125 JRST EPPT3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 86 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0142 3726 034113 000000 000000 EPPT2: 0 3727 034114 7 010 20 0 00 020000 CONO PAG,LTRPEN 3728 034115 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3729 034116 200 00 0 00 043732 MOVE LTRP3SV 3730 034117 202 00 0 00 000423 MOVEM LTRP3T 3731 034120 200 14 0 00 040476 MOVE COR,[0,,340003] 3732 034121 200 13 0 00 034113 MOVE ACT,EPPT2 3733 034122 312 14 0 00 000013 CAME COR,ACT 3734 ERROR RLBAS6+2,13,COR,ACT,EPP ADR TRAP ERROR,SAVED PC WRONG^ 3735 034123 036 13 0 00 040502 3736 034124 035 00 0 00 033776 ERLOOP RLBAS6+2 ;IF ERROR, LOOP TO RLBAS6+2 3737 3738 034125 367 15 0 00 033776 EPPT3: REPTLP RLBAS6+2 3739 3740 XLIST 3741 LIST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 89 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0143 3742 ;*TEST BASE REGISTER RELOCATION 3743 ;*BY USING PAGE FAULT TRAP 3744 3745 SUBTST^ 3746 034126 201 00 0 00 034126 MOVEI . 3747 034127 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3748 034130 200 15 0 00 043737 RLPFT0: MOVE REPT,RPEAT 3749 034131 7 010 20 0 00 020000 CONO PAG,LTRPEN 3750 034132 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3751 034133 201 07 0 00 034154 MOVEI AC,RLPFT1 3752 034134 202 07 0 00 076502 MOVEM AC,76000!LPGFTR ;SETUP PAGE PAGE FAULT 3753 034135 201 07 0 00 034147 MOVEI AC,RLPFT2 3754 034136 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP PAGE 0 PAGE FAULT 3755 3756 034137 402 00 0 00 076400 SETZM 76400 3757 034140 7 010 20 0 00 020000 CONO PAG,LTRPEN 3758 034141 7 010 14 0 00 040411 DATAO PAG,[LLDUSB,,400076] ;SETUP BASE REG 3759 034142 200 13 0 00 340000 RLPFT3: MOVE ACT,340000 ;DO PAGING, SHOULD FAULT 3760 034143 7 010 20 0 00 020000 CONO PAG,LTRPEN 3761 034144 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3762 ERROR1 13,COR,ACT,PAGE FAULT FAILED,FATAL^ 3763 034145 036 13 0 00 040510 3764 034146 254 00 0 00 034164 JRST RLPFT4 3765 3766 034147 7 010 20 0 00 020000 RLPFT2: CONO PAG,LTRPEN 3767 034150 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3768 034151 200 14 0 00 000500 MOVE COR,LEUPFW 3769 ERROR1 13,COR,ACT,RELOCATION FAILED,PAGE FAIL TRAPPED TO PAGE 0^ 3770 034152 036 13 0 00 040523 3771 034153 254 00 0 00 034164 JRST RLPFT4 ;FATAL 3772 3773 034154 7 010 20 0 00 020000 RLPFT1: CONO PAG,LTRPEN 3774 034155 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3775 034156 200 14 0 00 040022 MOVE COR,[1000,,340000] 3776 034157 200 13 0 00 076500 MOVE ACT,76000!LEUPFW 3777 034160 312 14 0 00 000013 CAME COR,ACT 3778 ERROR1 13,COR,ACT,RELOCATION SUCCEEDED,PAGE FAIL WORD WRONG^ 3779 034161 036 13 0 00 040532 3780 034162 035 00 0 00 034140 ERLOOP RLPFT3-2 3781 3782 034163 367 15 0 00 034131 REPTLP RLPFT0+1 3783 3784 034164 200 00 0 00 043736 RLPFT4: MOVE PGFAIL 3785 034165 202 00 0 00 000502 MOVEM LPGFTR DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 90 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0144 3786 ;*TEST BASE REGISTER RELOCATION 3787 ;*BY USING TRAPPING 3788 3789 SUBTST^ 3790 034166 201 00 0 00 034166 MOVEI . 3791 034167 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3792 034170 200 15 0 00 043737 RLTRP0: MOVE REPT,RPEAT 3793 034171 7 010 20 0 00 020000 CONO PAG,LTRPEN 3794 034172 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 3795 3796 ;*TEST RELOCATED TRAP 3 3797 3798 034173 200 07 0 00 040535 RLTRP1: MOVE AC,[JSR RLTP3] 3799 034174 202 07 0 00 076423 MOVEM AC,76000!LTRP3T 3800 034175 7 010 20 0 00 020076 CONO PAG,LTRPEN!76 3801 034176 254 02 1 00 034177 JRSTF @.+1 3802 034177 000600 034200 TN0!TN1,,.+1 3803 034200 7 010 20 0 00 020000 RLTP3X: CONO PAG,LTRPEN 3804 ERROR1 13,0,0,TRAP 3 FAILED,FATAL^ 3805 034201 036 13 0 00 040536 3806 034202 254 00 0 00 034212 JRST RLTP4 3807 3808 034203 000000 000000 RLTP3: 0 3809 034204 7 010 20 0 00 020000 CONO PAG,LTRPEN 3810 034205 200 14 0 00 040541 MOVE COR,[0,,RLTP3X] 3811 034206 200 13 0 00 034203 MOVE ACT,RLTP3 3812 034207 312 14 0 00 000013 CAME COR,ACT 3813 ERROR RLTRP1,13,COR,ACT,TRAP 3 SAVED PC^ 3814 034210 036 13 0 00 040542 3815 034211 035 00 0 00 034173 ERLOOP RLTRP1 ;IF ERROR, LOOP TO RLTRP1 3816 034212 RLTP4: DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 91 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0145 3817 ;*TEST RELOCATED TRAP 2 3818 3819 034212 200 07 0 00 040545 MOVE AC,[JSR RLPDL] 3820 034213 202 07 0 00 076422 MOVEM AC,76000!LPDOVT 3821 034214 7 010 20 0 00 020076 CONO PAG,LTRPEN!76 3822 034215 254 02 1 00 034216 JRSTF @.+1 3823 034216 000400 034217 TN0,,.+1 3824 034217 7 010 20 0 00 020000 RLPDLX: CONO PAG,LTRPEN 3825 ERROR1 13,0,0,TRAP 2 FAILED,FATAL^ 3826 034220 036 13 0 00 040546 3827 034221 254 00 0 00 034231 JRST RLPDL1 3828 3829 034222 000000 000000 RLPDL: 0 3830 034223 7 010 20 0 00 020000 CONO PAG,LTRPEN 3831 034224 200 14 0 00 040551 MOVE COR,[0,,RLPDLX] 3832 034225 200 13 0 00 034222 MOVE ACT,RLPDL 3833 034226 312 14 0 00 000013 CAME COR,ACT 3834 ERROR RLTRP1,13,COR,ACT,TRAP 2 SAVED PC^ 3835 034227 036 13 0 00 040552 3836 034230 035 00 0 00 034173 ERLOOP RLTRP1 ;IF ERROR, LOOP TO RLTRP1 3837 034231 RLPDL1: DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 92 DSKEAM MAC 29-Mar-78 14:55 TEST BASE REGISTER RELOCATION SEQ 0146 3838 ;*TEST RELOCATED TRAP 1 3839 3840 034231 200 07 0 00 040555 MOVE AC,[JSR RLAROV] 3841 034232 202 07 0 00 076421 MOVEM AC,76000!LAROVT 3842 034233 7 010 20 0 00 020076 CONO PAG,LTRPEN!76 3843 034234 254 02 1 00 034235 JRSTF @.+1 3844 034235 000200 034236 TN1,,.+1 3845 034236 7 010 20 0 00 020000 RLAROX: CONO PAG,LTRPEN 3846 ERROR1 13,0,0,TRAP 1 FAILED,FATAL^ 3847 034237 036 13 0 00 040556 3848 034240 254 00 0 00 034253 JRST RLARO1 3849 3850 034241 000000 000000 RLAROV: 0 3851 034242 7 010 20 0 00 020000 CONO PAG,LTRPEN 3852 034243 200 14 0 00 040561 MOVE COR,[0,,RLAROX] 3853 034244 200 13 0 00 034241 MOVE ACT,RLAROV 3854 034245 312 14 0 00 000013 CAME COR,ACT 3855 ERROR RLTRP1,13,COR,ACT,TRAP 1 SAVED PC^ 3856 034246 036 13 0 00 040562 3857 034247 035 00 0 00 034173 ERLOOP RLTRP1 ;IF ERROR, LOOP TO RLTRP1 3858 3859 034250 200 07 0 00 040360 MOVE AC,[JFCL] 3860 034251 202 07 0 00 076421 MOVEM AC,76000!LAROVT 3861 3862 034252 367 15 0 00 034171 REPTLP RLTRP0+1 3863 034253 RLARO1: DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 93 DSKEAM MAC 29-Mar-78 14:55 TEST INTERRUPT RELOCATION SEQ 0147 3864 SUBTTL TEST INTERRUPT RELOCATION 3865 3866 ;*SET PAGE 0 INTERRUPT LOCATIONS AS ERROR 3867 ;*SETUP RELOCATED PAGE INTERRUPT LOCATIONS FOR TESTING 3868 ;*RELOCATE EXEC BASE REGISTER 3869 ;*TEST INTERRUPTS 3870 3871 SALL 3872 040565 T=SIXBTZ RELOCATED INTERRUPT TEST 3873 LALL 3874 3875 SUBTST^ 3876 034253 201 00 0 00 034253 MOVEI . 3877 034254 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 3878 034255 200 15 0 00 043737 RLINT0: MOVE REPT,RPEAT 3879 034256 221 15 0 00 000012 IMULI REPT,^D10 ;FSTCYL=10 PASSES, REL =100 PASSES 3880 034257 200 00 0 00 040572 MOVE [JSR RLITR1] ;SETUP RELOC PAGE INTERRUPTS 3881 034260 202 00 0 00 076042 MOVEM 76000!42 3882 034261 200 00 0 00 040573 MOVE [JSR RLITR2] 3883 034262 202 00 0 00 076044 MOVEM 76000!44 3884 034263 200 00 0 00 040574 MOVE [JSR RLITR3] 3885 034264 202 00 0 00 076046 MOVEM 76000!46 3886 034265 200 00 0 00 040575 MOVE [JSR RLITR4] 3887 034266 202 00 0 00 076050 MOVEM 76000!50 3888 034267 200 00 0 00 040576 MOVE [JSR RLITR5] 3889 034270 202 00 0 00 076052 MOVEM 76000!52 3890 034271 200 00 0 00 040577 MOVE [JSR RLITR6] 3891 034272 202 00 0 00 076054 MOVEM 76000!54 3892 034273 200 00 0 00 040600 MOVE [JSR RLITR7] 3893 034274 202 00 0 00 076056 MOVEM 76000!56 3894 3895 034275 200 00 0 00 040601 MOVE [JSR RLIERR] ;SETUP PAGE 0 FOR ERROR 3896 034276 202 00 0 00 000056 MOVEM 56 3897 034277 202 00 0 00 000054 MOVEM 54 3898 034300 202 00 0 00 000052 MOVEM 52 3899 034301 202 00 0 00 000050 MOVEM 50 3900 034302 202 00 0 00 000046 MOVEM 46 3901 034303 202 00 0 00 000044 MOVEM 44 3902 034304 202 00 0 00 000042 MOVEM 42 3903 3904 034305 7 004 20 0 00 011400 RLINT1: CONO PI,LPICLR!LCHNOF!LPIOFF 3905 034306 7 000 20 0 00 200000 CONO APR,LIOCLR 3906 034307 254 00 0 00 034320 JRST RLINT2 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 94 DSKEAM MAC 29-Mar-78 14:55 TEST INTERRUPT RELOCATION SEQ 0148 3907 ;*PAGE 0 INTERRUPT ERROR HANDLER 3908 3909 034310 000000 000000 RLIERR: 0 3910 034311 7 010 20 0 00 020000 CONO PAG,LTRPEN 3911 034312 7 000 24 0 00 000014 CONI APR,COR 3912 034313 7 004 24 0 00 000013 CONI PI,ACT 3913 034314 7 000 20 0 00 200000 CONO APR,LIOCLR 3914 034315 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 3915 ERROR1 13,COR,ACT,PAGE 0 INTERRUPT ERROR,^ 3916 SALL 3917 034316 036 13 0 00 040611 3918 034317 254 00 0 00 034305 JRST RLINT1 3919 3920 ;*RELOCATED INTERRUPT MACRO'S 3921 3922 DEFINE RLITRX (PICHN,APRCHN)< 3923 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 3924 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 3925 ;*PAGE MAP RELOCATED TO PAGE 76. 3926 ;*INTERRUPT CHANNEL = APRCHN. 3927 3928 CONO PI,LCHNON!LPION!PICHN 3929 CONO APR,LSPAER!LEPAER!APRCHN 3930 MOVEI AC,1000 3931 SOJG AC,. 3932 HALT . ;IF NO INTERRUPT, FATAL 3933 > 3934 3935 DEFINE RLITRC (ITRCHN)< 3936 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = ITRCHN 3937 3938 0 ;RETURN, CHANNEL ITRCHN 3939 CONO APR,LDPAER!LCPAER 3940 CONO PI,LPICLR!LCHNOF!LPIOFF 3941 > DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 95 DSKEAM MAC 29-Mar-78 14:55 TEST INTERRUPT RELOCATION SEQ 0149 3942 034320 7 010 20 0 00 020076 RLINT2: CONO PAG,LTRPEN!76 3943 3944 LALL 3945 034321 RLINT3: RLITRX (1,7)^ 3946 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 3947 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 3948 ;*PAGE MAP RELOCATED TO PAGE 76. 3949 ;*INTERRUPT CHANNEL = 7 3950 3951 034321 7 004 20 0 00 002201 CONO PI,LCHNON!LPION!1 3952 034322 7 000 20 0 00 110207 CONO APR,LSPAER!LEPAER!7 3953 034323 201 07 0 00 001000 MOVEI AC,1000 3954 034324 367 07 0 00 034324 SOJG AC,. 3955 034325 254 04 0 00 034325 HALT . ;IF NO INTERRUPT, FATAL 3956 ^ 3957 034326 RLITR7: RLITRC (7)^ 3958 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 7 3959 3960 034326 000000 000000 0 ;RETURN, CHANNEL 7 3961 034327 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 3962 034330 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 3963 ^ 3964 3965 034331 RLINT4: RLITRX (2,6)^ 3966 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 3967 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 3968 ;*PAGE MAP RELOCATED TO PAGE 76. 3969 ;*INTERRUPT CHANNEL = 6 3970 3971 034331 7 004 20 0 00 002202 CONO PI,LCHNON!LPION!2 3972 034332 7 000 20 0 00 110206 CONO APR,LSPAER!LEPAER!6 3973 034333 201 07 0 00 001000 MOVEI AC,1000 3974 034334 367 07 0 00 034334 SOJG AC,. 3975 034335 254 04 0 00 034335 HALT . ;IF NO INTERRUPT, FATAL 3976 ^ 3977 034336 RLITR6: RLITRC (6)^ 3978 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 6 3979 3980 034336 000000 000000 0 ;RETURN, CHANNEL 6 3981 034337 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 3982 034340 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 3983 ^ 3984 3985 034341 RLINT5: RLITRX (4,5)^ 3986 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 3987 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 3988 ;*PAGE MAP RELOCATED TO PAGE 76. 3989 ;*INTERRUPT CHANNEL = 5 3990 3991 034341 7 004 20 0 00 002204 CONO PI,LCHNON!LPION!4 3992 034342 7 000 20 0 00 110205 CONO APR,LSPAER!LEPAER!5 3993 034343 201 07 0 00 001000 MOVEI AC,1000 3994 034344 367 07 0 00 034344 SOJG AC,. 3995 034345 254 04 0 00 034345 HALT . ;IF NO INTERRUPT, FATAL 3996 ^ DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 95-1 DSKEAM MAC 29-Mar-78 14:55 TEST INTERRUPT RELOCATION SEQ 0150 3997 034346 RLITR5: RLITRC (5)^ 3998 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 5 3999 4000 034346 000000 000000 0 ;RETURN, CHANNEL 5 4001 034347 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 4002 034350 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 4003 ^ 4004 4005 034351 RLINT6: RLITRX (10,4)^ 4006 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 4007 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 4008 ;*PAGE MAP RELOCATED TO PAGE 76. 4009 ;*INTERRUPT CHANNEL = 4 4010 4011 034351 7 004 20 0 00 002210 CONO PI,LCHNON!LPION!10 4012 034352 7 000 20 0 00 110204 CONO APR,LSPAER!LEPAER!4 4013 034353 201 07 0 00 001000 MOVEI AC,1000 4014 034354 367 07 0 00 034354 SOJG AC,. 4015 034355 254 04 0 00 034355 HALT . ;IF NO INTERRUPT, FATAL 4016 ^ 4017 034356 RLITR4: RLITRC (4)^ 4018 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 4 4019 4020 034356 000000 000000 0 ;RETURN, CHANNEL 4 4021 034357 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 4022 034360 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 4023 ^ 4024 4025 034361 RLINT7: RLITRX (20,3)^ 4026 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 4027 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 4028 ;*PAGE MAP RELOCATED TO PAGE 76. 4029 ;*INTERRUPT CHANNEL = 3 4030 4031 034361 7 004 20 0 00 002220 CONO PI,LCHNON!LPION!20 4032 034362 7 000 20 0 00 110203 CONO APR,LSPAER!LEPAER!3 4033 034363 201 07 0 00 001000 MOVEI AC,1000 4034 034364 367 07 0 00 034364 SOJG AC,. 4035 034365 254 04 0 00 034365 HALT . ;IF NO INTERRUPT, FATAL 4036 ^ 4037 034366 RLITR3: RLITRC (3)^ 4038 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 3 4039 4040 034366 000000 000000 0 ;RETURN, CHANNEL 3 4041 034367 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 4042 034370 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 4043 ^ 4044 4045 034371 RLINT8: RLITRX (40,2)^ 4046 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 4047 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 4048 ;*PAGE MAP RELOCATED TO PAGE 76. 4049 ;*INTERRUPT CHANNEL = 2 4050 4051 034371 7 004 20 0 00 002240 CONO PI,LCHNON!LPION!40 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 95-2 DSKEAM MAC 29-Mar-78 14:55 TEST INTERRUPT RELOCATION SEQ 0151 4052 034372 7 000 20 0 00 110202 CONO APR,LSPAER!LEPAER!2 4053 034373 201 07 0 00 001000 MOVEI AC,1000 4054 034374 367 07 0 00 034374 SOJG AC,. 4055 034375 254 04 0 00 034375 HALT . ;IF NO INTERRUPT, FATAL 4056 ^ 4057 034376 RLITR2: RLITRC (2)^ 4058 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 2 4059 4060 034376 000000 000000 0 ;RETURN, CHANNEL 2 4061 034377 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 4062 034400 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 4063 ^ 4064 4065 034401 RLINT9: RLITRX (100,1)^ 4066 ;*SETUP PI AND APR SO CLOCK INTERRUPTS ON PROPER CHANNEL. 4067 ;*INTERRUPT SHOULD PERFORM JSR INSTRUCTION FROM 4068 ;*PAGE MAP RELOCATED TO PAGE 76. 4069 ;*INTERRUPT CHANNEL = 1 4070 4071 034401 7 004 20 0 00 002300 CONO PI,LCHNON!LPION!100 4072 034402 7 000 20 0 00 110201 CONO APR,LSPAER!LEPAER!1 4073 034403 201 07 0 00 001000 MOVEI AC,1000 4074 034404 367 07 0 00 034404 SOJG AC,. 4075 034405 254 04 0 00 034405 HALT . ;IF NO INTERRUPT, FATAL 4076 ^ 4077 034406 RLITR1: RLITRC (1)^ 4078 ;*INTERRUPT RETURNED PROPERLY, INTERRUPT CHANNEL = 1 4079 4080 034406 000000 000000 0 ;RETURN, CHANNEL 1 4081 034407 7 000 20 0 00 060200 CONO APR,LDPAER!LCPAER 4082 034410 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 4083 ^ 4084 4085 034411 367 15 0 00 034305 REPTLP RLINT1 4086 4087 034412 7 010 20 0 00 020000 RLINTA: CONO PAG,LTRPEN 4088 034413 7 004 20 0 00 011400 CONO PI,LPICLR!LCHNOF!LPIOFF 4089 034414 7 000 20 0 00 260200 CONO APR,LIOCLR!LDPAER!LCPAER 4090 4091 034415 200 07 0 00 040614 MOVE AC,[JSR ITRCH1] ;RESET INTERRUPTS 4092 034416 202 07 0 00 000042 MOVEM AC,42 4093 034417 7 000 20 0 00 121600 CONO APR,LAPRAL 4094 034420 7 004 20 0 00 002300 CONO PI,LCHNON!LPION!LPICH1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 96 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE REFILL RELOCATION SEQ 0152 4095 SUBTTL TEST PAGE REFILL RELOCATION 4096 4097 ;*BY PUTTING REFILL DATA IN PAGE 76. 4098 ;*AND RELOCATING EXEC BASE REGISTER 4099 4100 SALL 4101 040615 T=SIXBTZ RELOCATED EPMP REFILL PAGING 4102 LALL 4103 4104 SUBTST^ 4105 034421 201 00 0 00 034421 MOVEI . 4106 034422 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4107 034423 200 15 0 00 043737 RLEPM0: MOVE REPT,RPEAT 4108 034424 221 15 0 00 000012 IMULI REPT,^D10 ;FSTCYL=10 PASSES, REL=100 PASSES 4109 034425 205 05 0 00 777600 MOVSI INDX,-400/2 4110 034426 201 07 0 00 000400 MOVEI AC,400 4111 4112 034427 201 11 0 05 043742 RLEPM1: MOVEI AC2,PGWRTB(INDX) ;SETUP RELOCATION DATA 4113 034430 242 11 0 00 777767 LSH AC2,-^D9 4114 034431 271 11 0 00 740000 ADDI AC2,740000 4115 034432 504 12 0 00 000011 HRL AC3,AC2 4116 034433 201 11 0 05 043743 MOVEI AC2,PGWRTB+1(INDX) 4117 034434 242 11 0 00 777767 LSH AC2,-^D9 4118 034435 271 11 0 00 740000 ADDI AC2,740000 4119 034436 540 12 0 00 000011 HRR AC3,AC2 4120 034437 550 10 0 00 000007 HRRZ AC1,AC ;SETUP PAGE MAP ADDRESS 4121 034440 242 10 0 00 777777 LSH AC1,-1 4122 034441 202 12 0 10 076000 MOVEM AC3,76000(AC1) ;PUT MAPPING DATA IN PAGE 76. 4123 034442 271 07 0 00 000002 ADDI AC,2 4124 034443 350 00 0 00 000005 AOS INDX 4125 034444 253 05 0 00 034427 AOBJN INDX,RLEPM1 4126 4127 034445 7 010 20 0 00 020000 RLEPM2: CONO PAG,LTRPEN ;CLEAR AM, ETC. 4128 034446 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4129 034447 402 00 0 00 043742 SETZM PGWRTB ;CLEAR DATA AREA 4130 034450 200 07 0 00 040176 MOVE AC,[PGWRTB,,PGWRTB+1] 4131 034451 251 07 0 00 044342 BLT AC,PGWRTB+400 4132 034452 205 05 0 00 777400 MOVSI INDX,-400 4133 034453 201 07 0 00 000400 MOVEI AC,400 4134 034454 7 010 20 0 00 020076 CONO PAG,LTRPEN!76 ;RELOC EXEC BASE REG 4135 034455 7 010 14 0 00 040411 DATAO PAG,[LLDUSB,,400076] DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 97 DSKEAM MAC 29-Mar-78 14:55 TEST PAGE REFILL RELOCATION SEQ 0153 4136 034456 200 14 0 00 000007 RLEPM3: MOVE COR,AC ;SETUP DATA 4137 034457 242 14 0 00 000011 LSH COR,^D9 4138 034460 661 14 0 00 777777 TLO COR,-1 4139 034461 621 14 0 14 000000 TLZ COR,(COR) 4140 034462 201 10 0 05 043742 MOVEI AC1,PGWRTB(INDX) ;SETUP PAGING ADDRESS 4141 034463 405 10 0 00 000777 ANDI AC1,777 4142 034464 271 10 0 14 000000 ADDI AC1,(COR) 4143 034465 202 14 0 10 000000 MOVEM COR,(AC1) ;MAKE PAGED MEMORY WRITE 4144 034466 200 13 0 10 000000 MOVE ACT,(AC1) ;PAGED READ VERIFY 4145 034467 7 010 20 0 00 020000 CONO PAG,LTRPEN 4146 034470 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4147 034471 312 14 0 00 000013 CAME COR,ACT 4148 ERROR RLEPM3-2,13,COR,ACT,DATA ERROR,PAGED REREAD,PGWRTX^ 4149 SALL 4150 034472 036 13 0 00 040622 4151 034473 035 00 0 00 034454 ERLOOP RLEPM3-2 ;IF ERROR, LOOP TO RLEPM3-2 4152 034474 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 4153 034475 312 14 0 00 000013 CAME COR,ACT 4154 ERROR RLEPM3-2,13,COR,ACT,DATA ERROR,DIRECT REREAD,PGWRTY^ 4155 034476 036 13 0 00 040625 4156 034477 035 00 0 00 034454 ERLOOP RLEPM3-2 ;IF ERROR, LOOP TO RLEPM3-2 4157 034500 350 00 0 00 000007 AOS AC 4158 034501 253 05 0 00 034454 AOBJN INDX,RLEPM3-2 4159 4160 034502 7 010 20 0 00 020000 RLEPM4: CONO PAG,LTRPEN 4161 034503 205 05 0 00 777400 MOVSI INDX,-400 ;CHECK DATA BLOCK 4162 034504 201 07 0 00 000400 MOVEI AC,400 ;USING DIRECT ADDRESSING 4163 034505 200 14 0 00 000007 MOVE COR,AC 4164 034506 242 14 0 00 000011 LSH COR,^D9 ;SETUP COMPARE WORD 4165 034507 661 14 0 00 777777 TLO COR,-1 4166 034510 621 14 0 14 000000 TLZ COR,(COR) 4167 034511 200 13 0 05 043742 MOVE ACT,PGWRTB(INDX) 4168 034512 312 14 0 00 000013 CAME COR,ACT 4169 ERROR RLEPM2,13,COR,ACT,DATA ERROR,DIRECT READ,PGWRTY^ 4170 034513 036 13 0 00 040630 4171 034514 035 00 0 00 034445 ERLOOP RLEPM2 ;IF ERROR, LOOP TO RLEPM2 4172 034515 350 00 0 00 000007 AOS AC 4173 034516 253 05 0 00 034505 AOBJN INDX,RLEPM4+3 4174 4175 034517 367 15 0 00 034425 REPTLP RLEPM0+2 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 98 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0154 4176 SUBTTL INSTRUCTION PAGE FAIL TESTING 4177 4178 ;*TEST BLOCK TRANSFER PAGE FAIL 4179 ;*SETUP 5 WORD BLT ACROSS PAGE BOUNDRY 4180 ;*FIRST PAGE DATA RELOCATION DATA IN PAGE MAP 4181 ;*SECOND PAGE DATA RELOCATION DATA NOT IN PAGE MAP 4182 ;*PERFORM BLT 4183 ;*SHOULD PAGE FAIL AFTER TRANSFERING 3 WORDS. 4184 ;*TEST PAGE FAIL, BLT AC, ETC. 4185 ;*REDO BLT, ON PAGE FAIL SETUP 2ND PAGE RELOCATION DATA AND CONTINUE BLT. 4186 ;*TEST FOR PROPER COMPLETION. 4187 4188 SALL 4189 040633 T=SIXBTZ BLT PAGE FAIL 4190 LALL 4191 4192 SUBTST^ 4193 034520 201 00 0 00 034520 MOVEI . 4194 034521 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4195 034522 200 15 0 00 043737 PFBLT0: MOVE REPT,RPEAT 4196 034523 402 00 0 00 000200 SETZM 200 ;CLEAR AND SETUP PAGE MAP 4197 034524 200 07 0 00 037671 MOVE AC,[200,,201] 4198 034525 251 07 0 00 000417 BLT AC,417 4199 034526 205 07 0 00 740075 MOVSI AC,740000!75 4200 034527 202 07 0 00 000200 MOVEM AC,200 ;ADDRESSES 400XXX RELOCATE TO PAGE 75. 4201 034530 201 07 0 00 034552 MOVEI AC,PFBLT3 4202 034531 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4203 4204 034532 403 14 0 00 075775 PFBLT1: SETZB COR,75775 ;CLEAR BLT DATA AREA 4205 034533 402 00 0 00 075776 SETZM 75776 4206 034534 402 00 0 00 075777 SETZM 75777 4207 034535 402 00 0 00 076000 SETZM 76000 4208 034536 402 00 0 00 076001 SETZM 76001 4209 034537 402 00 0 00 076002 SETZM 76002 4210 034540 476 00 0 00 000500 SETOM LEUPFW 4211 034541 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4212 034542 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4213 034543 254 02 1 00 034544 JRSTF @.+1 4214 034544 000000 034545 0,,.+1 4215 034545 476 00 0 00 400775 SETOM 400775 ;SET FIRST BLT ADDRESS 4216 034546 200 13 0 00 040636 MOVE ACT,[400775,,400776] 4217 4218 034547 251 13 0 00 401001 PFBLT2: BLT ACT,401001 ;DO PAGED BLT 4219 ERROR1 13,COR,ACT,TRAP FAILED,^ 4220 SALL 4221 034550 036 13 0 00 040641 4222 034551 254 00 0 00 034532 JRST PFBLT1 ;FATAL DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 99 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0155 4223 ;*BLT PAGE FAIL RETURN 4224 4225 034552 200 14 0 00 040644 PFBLT3: MOVE COR,[400777,,401000] 4226 034553 312 14 0 00 000013 CAME COR,ACT 4227 ERROR1 13,COR,ACT,BLT AC WRONG,^ 4228 034554 036 13 0 00 040650 4229 4230 034555 200 13 0 00 000500 MOVE ACT,LEUPFW 4231 034556 200 14 0 00 040653 MOVE COR,[011000,,401000] 4232 034557 312 14 0 00 000013 CAME COR,ACT 4233 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4234 034560 036 13 0 00 040654 4235 4236 034561 200 13 0 00 000501 MOVE ACT,LPFWPC 4237 034562 200 14 0 00 040657 MOVE COR,[0,,PFBLT2] 4238 034563 312 14 0 00 000013 CAME COR,ACT 4239 ERROR1 13,COR,ACT,,^ 4240 034564 036 13 0 00 040664 4241 4242 034565 476 00 0 00 000014 SETOM COR 4243 034566 200 13 0 00 075775 MOVE ACT,75775 4244 034567 312 14 0 00 000013 CAME COR,ACT 4245 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 400775^ 4246 034570 036 13 0 00 040674 4247 4248 034571 200 13 0 00 075776 MOVE ACT,75776 4249 034572 312 14 0 00 000013 CAME COR,ACT 4250 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 400776^ 4251 034573 036 13 0 00 040701 4252 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 100 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0156 4253 034574 200 13 0 00 075777 MOVE ACT,75777 4254 034575 312 14 0 00 000013 CAME COR,ACT 4255 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 400777^ 4256 034576 036 13 0 00 040706 4257 4258 034577 402 00 0 00 000014 SETZM COR 4259 034600 200 13 0 00 076000 MOVE ACT,76000 4260 034601 312 14 0 00 000013 CAME COR,ACT 4261 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 401000^ 4262 034602 036 13 0 00 040713 4263 4264 034603 200 13 0 00 076001 MOVE ACT,76001 4265 034604 312 14 0 00 000013 CAME COR,ACT 4266 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 401001^ 4267 034605 036 13 0 00 040720 4268 4269 034606 200 13 0 00 076002 MOVE ACT,76002 4270 034607 312 14 0 00 000013 CAME COR,ACT 4271 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 401002^ 4272 034610 036 13 0 00 040725 4273 4274 034611 035 00 0 00 034532 ERLOOP PFBLT1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 101 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0157 4275 ;*TEST BLT PAGE FAIL CONTINUE 4276 4277 034612 201 07 0 00 034662 PFBLT4: MOVEI AC,PFBLT5 4278 034613 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP PAGE FAIL TRAP 4279 034614 402 00 0 00 075775 SETZM 75775 ;CLEAR DATA AREA 4280 034615 402 00 0 00 075776 SETZM 75776 4281 034616 402 00 0 00 075777 SETZM 75777 4282 034617 402 00 0 00 076000 SETZM 76000 4283 034620 402 00 0 00 076001 SETZM 76001 4284 034621 402 00 0 00 076002 SETZM 76002 4285 034622 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4286 034623 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4287 034624 254 02 1 00 034625 JRSTF @.+1 4288 034625 000000 034626 0,,.+1 4289 034626 476 00 0 00 400775 SETOM 400775 ;SET FIRST BLT ADDRESS 4290 034627 200 07 0 00 040636 MOVE AC,[400775,,400776] 4291 4292 034630 251 07 0 00 401001 BLT AC,401001 ;PERFORM PAGED BLT 4293 4294 ;*BLT SHOULD PAGE FAIL 4295 ;*PAGE MAP IS THEN SETUP 4296 ;*AND BLT CONTINUED 4297 4298 034631 476 00 0 00 000014 SETOM COR 4299 034632 200 13 0 00 075775 MOVE ACT,75775 4300 034633 312 14 0 00 000013 CAME COR,ACT 4301 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 400775^ 4302 034634 036 13 0 00 040674 4303 4304 034635 200 13 0 00 075776 MOVE ACT,75776 4305 034636 312 14 0 00 000013 CAME COR,ACT 4306 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 400776^ 4307 034637 036 13 0 00 040701 4308 4309 034640 200 13 0 00 075777 MOVE ACT,75777 4310 034641 312 14 0 00 000013 CAME COR,ACT 4311 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 400777^ 4312 034642 036 13 0 00 040706 4313 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 102 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0158 4314 034643 200 13 0 00 076000 MOVE ACT,76000 4315 034644 312 14 0 00 000013 CAME COR,ACT 4316 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 401000^ 4317 034645 036 13 0 00 040713 4318 4319 034646 200 13 0 00 076001 MOVE ACT,76001 4320 034647 312 14 0 00 000013 CAME COR,ACT 4321 ERROR1 13,COR,ACT,BLT DATA WRONG,ADR 401001^ 4322 034650 036 13 0 00 040720 4323 4324 034651 402 00 0 00 000014 SETZM COR 4325 034652 200 13 0 00 076002 MOVE ACT,76002 4326 034653 312 14 0 00 000013 CAME COR,ACT 4327 ERROR1 13,COR,ACT,BLT WENT TOO FAR,ADR 401002^ 4328 034654 036 13 0 00 040733 4329 4330 034655 035 00 0 00 034552 ERLOOP PFBLT3 4331 4332 034656 367 15 0 00 034523 REPTLP PFBLT0+1 4333 4334 034657 200 07 0 00 043736 MOVE AC,PGFAIL 4335 034660 202 07 0 00 000502 MOVEM AC,LPGFTR ;RESET PAGE FAIL TRAP 4336 034661 254 00 0 00 034666 JRST PFBYT0-2 4337 4338 ;*ON PAGE FAIL, SETUP NEXT PAGE FOR BLT 4339 4340 034662 200 10 0 00 040736 PFBLT5: MOVE AC1,[740000!75,,740000!76] 4341 034663 202 10 0 00 000200 MOVEM AC1,200 ;SETUP PAGE MAP 4342 034664 7 010 20 0 00 020000 CONO PAG,LTRPEN 4343 034665 254 02 1 00 000501 JRSTF @LPFWPC ;RETURN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 103 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0159 4344 ;*TEST BYTE PAGE FAIL 4345 ;*FIRST TEST WITH BYTE DATA IN UNMAPPED PAGE 4346 ;*THEN TEST WITH BYTE POINTER IN UNMAPPED PAGE. 4347 4348 SALL 4349 040737 T=SIXBTZ BYTE PAGE FAIL 4350 LALL 4351 4352 SUBTST^ 4353 034666 201 00 0 00 034666 MOVEI . 4354 034667 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4355 034670 200 15 0 00 043737 PFBYT0: MOVE REPT,RPEAT 4356 034671 402 00 0 00 000200 SETZM 200 ;CLEAR PAGE MAP 4357 034672 200 07 0 00 037671 MOVE AC,[200,,201] 4358 034673 251 07 0 00 000417 BLT AC,417 4359 034674 201 07 0 00 034711 MOVEI AC,PFBYT3 4360 034675 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4361 4362 034676 402 00 0 00 000014 PFBYT1: SETZM COR ;SETUP DATA AREA AND AC 4363 034677 476 00 0 00 076000 SETOM 76000 4364 034700 476 00 0 00 000500 SETOM LEUPFW 4365 034701 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4366 034702 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4367 034703 254 02 1 00 034704 JRSTF @.+1 4368 034704 000000 034705 0,,.+1 4369 034705 200 13 0 00 040742 MOVE ACT,[POINT 6,400000] 4370 4371 034706 134 14 0 00 000013 PFBYT2: ILDB COR,ACT ;PERFORM BYTE INSTRUCTION 4372 ERROR1 13,COR,ACT,ILDB TRAP FAILED,^ 4373 SALL 4374 034707 036 13 0 00 040753 4375 034710 254 00 0 00 034676 JRST PFBYT1 ;FATAL DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 104 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0160 4376 ;*ILDB PAGE FAIL RETURN 4377 ;*BYTE POINTER SHOULD HAVE BEEN INCREMENTED 4378 ;*PAGE FAIL SHOULD HAVE OCCURRED WHEN DATA WAS FETCHED. 4379 4380 034711 332 00 0 00 000014 PFBYT3: SKIPE COR 4381 ERROR1 13,COR,ACT,ILDB CHANGED BYTE AC,^ 4382 034712 036 13 0 00 040762 4383 034713 200 14 0 00 040765 MOVE COR,[POINT 6,400000,5] 4384 034714 312 14 0 00 000013 CAME COR,ACT 4385 ERROR1 13,COR,ACT,ILDB POINTER WRONG,^ 4386 034715 036 13 0 00 040772 4387 034716 476 00 0 00 000014 SETOM COR 4388 034717 200 13 0 00 076000 MOVE ACT,76000 4389 034720 312 14 0 00 000013 CAME COR,ACT 4390 ERROR1 13,COR,ACT,ILDB MODIFIED BYTE SOURCE,ADR 400000^ 4391 034721 036 13 0 00 041004 4392 034722 200 13 0 00 000500 MOVE ACT,LEUPFW 4393 034723 200 14 0 00 037672 MOVE COR,[1000,,400000] 4394 034724 312 14 0 00 000013 CAME COR,ACT 4395 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4396 034725 036 13 0 00 041007 4397 034726 200 13 0 00 000501 MOVE ACT,LPFWPC 4398 034727 200 14 0 00 041012 MOVE COR,[BIS,,PFBYT2] 4399 034730 312 14 0 00 000013 CAME COR,ACT 4400 ERROR1 13,COR,ACT,,^ 4401 034731 036 13 0 00 041013 4402 4403 034732 035 00 0 00 034676 ERLOOP PFBYT1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 105 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0161 4404 ;*TEST DEPOSIT BYTE PAGE FAIL 4405 4406 034733 201 07 0 00 034746 PFBYT4: MOVEI AC,PFBYT6 4407 034734 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4408 034735 402 00 0 00 000014 SETZM COR 4409 034736 476 00 0 00 076000 SETOM 76000 ;SETUP DATA 4410 034737 476 00 0 00 000500 SETOM LEUPFW 4411 034740 254 02 1 00 034741 JRSTF @.+1 4412 034741 000000 034742 0,,.+1 4413 034742 200 13 0 00 040742 MOVE ACT,[POINT 6,400000] 4414 4415 034743 136 14 0 00 000013 PFBYT5: IDPB COR,ACT ;PERFORM DEPOSIT BYTE 4416 ERROR1 13,COR,ACT,IDPB TRAP FAILED,^ 4417 034744 036 13 0 00 041021 4418 034745 254 00 0 00 034733 JRST PFBYT4 ;FATAL 4419 4420 ;*IDPB PAGE FAIL RETURN 4421 4422 034746 332 00 0 00 000014 PFBYT6: SKIPE COR 4423 ERROR1 13,COR,ACT,IDPB CHANGED BYTE AC,^ 4424 034747 036 13 0 00 041030 4425 4426 034750 200 14 0 00 040765 MOVE COR,[POINT 6,400000,5] 4427 034751 312 14 0 00 000013 CAME COR,ACT 4428 ERROR1 13,COR,ACT,IDPB POINTER WRONG,^ 4429 034752 036 13 0 00 041037 4430 4431 034753 476 00 0 00 000014 SETOM COR 4432 034754 200 13 0 00 076000 MOVE ACT,76000 4433 034755 312 14 0 00 000013 CAME COR,ACT 4434 ERROR1 13,COR,ACT,IDPB MODIFIED BYTE DESTINATION,ADR 400000^ 4435 034756 036 13 0 00 041050 4436 4437 034757 200 13 0 00 000500 MOVE ACT,LEUPFW 4438 034760 200 14 0 00 037672 MOVE COR,[1000,,400000] 4439 034761 312 14 0 00 000013 CAME COR,ACT 4440 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4441 034762 036 13 0 00 041007 4442 4443 034763 200 13 0 00 000501 MOVE ACT,LPFWPC 4444 034764 200 14 0 00 041053 MOVE COR,[BIS,,PFBYT5] 4445 034765 312 14 0 00 000013 CAME COR,ACT 4446 ERROR1 13,COR,ACT,,^ 4447 034766 036 13 0 00 041013 4448 4449 034767 035 00 0 00 034733 ERLOOP PFBYT4 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 106 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0162 4450 ;*TEST BYTE POINTER FETCH PAGE FAIL 4451 ;*BYTE POINTER IN PAGED AREA WITH PAGE MAP CLEARED 4452 ;*THEREFORE PAGE FAIL SHOULD OCCUR ON POINTER FETCH 4453 ;*AND POINTER SHOULD NOT BE INCREMENTED. 4454 4455 034770 201 07 0 00 035005 PFBYT7: MOVEI AC,PFBYT9 4456 034771 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4457 034772 402 00 0 00 000014 SETZM COR 4458 034773 200 13 0 00 041054 MOVE ACT,[POINT 6,COR] 4459 034774 202 13 0 00 076000 MOVEM ACT,76000 ;SETUP POINTER 4460 034775 476 00 0 00 000500 SETOM LEUPFW 4461 034776 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4462 034777 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4463 035000 254 02 1 00 035001 JRSTF @.+1 4464 035001 000000 035002 0,,.+1 4465 4466 035002 134 14 0 00 400000 PFBYT8: ILDB COR,400000 ;PERFORM BYTE INSTRUCTION 4467 ERROR1 13,COR,ACT,POINTER FETCH TRAP FAILED,ADR 400000^ 4468 035003 036 13 0 00 041062 4469 035004 254 00 0 00 034770 JRST PFBYT7 ;FATAL 4470 4471 ;*POINTER FETCH PAGE FAIL RETURN 4472 4473 035005 332 00 0 00 000014 PFBYT9: SKIPE COR 4474 ERROR1 13,COR,ACT,POINTER FETCH MODIFIED BYTE AC,^ 4475 035006 036 13 0 00 041073 4476 4477 035007 200 14 0 00 041054 MOVE COR,[POINT 6,COR] 4478 035010 312 14 0 00 000013 CAME COR,ACT 4479 ERROR1 13,COR,ACT,AC 'ACT' MODIFIED,^ 4480 035011 036 13 0 00 041101 4481 4482 035012 200 13 0 00 076000 MOVE ACT,76000 4483 035013 312 14 0 00 000013 CAME COR,ACT 4484 ERROR1 13,COR,ACT,POINTER WRONG,ADR 400000^ 4485 035014 036 13 0 00 041107 4486 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 107 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0163 4487 035015 200 13 0 00 000500 MOVE ACT,LEUPFW 4488 035016 200 14 0 00 041112 MOVE COR,[011000,,400000] 4489 035017 312 14 0 00 000013 CAME COR,ACT 4490 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4491 035020 036 13 0 00 041007 4492 4493 035021 200 13 0 00 000501 MOVE ACT,LPFWPC 4494 035022 200 14 0 00 041113 MOVE COR,[0,,PFBYT8] 4495 035023 312 14 0 00 000013 CAME COR,ACT 4496 ERROR1 13,COR,ACT,,^ 4497 035024 036 13 0 00 041013 4498 4499 035025 035 00 0 00 034770 ERLOOP PFBYT7 4500 4501 035026 367 15 0 00 034671 REPTLP PFBYT0+1 4502 4503 035027 200 07 0 00 043736 MOVE AC,PGFAIL 4504 035030 202 00 0 00 000502 MOVEM LPGFTR ;RESET PAGE FAIL DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 108 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0164 4505 ;*TEST DOUBLE MOVE PAGE FAIL 4506 ;*FIRST PAGE FAIL ON FIRST OPERAND FETCH 4507 ;*OPERANDS FETCHED FROM PAGED AREA WITH PAGE MAP CLEAR. 4508 4509 SALL 4510 041114 T=SIXBTZ DOUBLE MOVE PAGE FAIL 4511 LALL 4512 4513 SUBTST^ 4514 035031 201 00 0 00 035031 MOVEI . 4515 035032 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4516 035033 200 15 0 00 043737 PFDMV0: MOVE REPT,RPEAT 4517 035034 402 00 0 00 000200 SETZM 200 ;CLEAR PAGE MAP 4518 035035 200 07 0 00 037671 MOVE AC,[200,,201] 4519 035036 251 07 0 00 000417 BLT AC,417 4520 035037 201 07 0 00 035054 MOVEI AC,PFDMV3 4521 035040 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4522 035041 403 13 0 00 076000 PFDMV1: SETZB ACT,76000 4523 035042 403 14 0 00 076001 SETZB COR,76001 4524 035043 477 07 0 00 000010 SETOB AC,AC1 ;SETUP OPERANDS 4525 035044 476 00 0 00 000500 SETOM LEUPFW 4526 035045 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4527 035046 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4528 035047 254 02 1 00 035050 JRSTF @.+1 4529 035050 000000 035051 0,,.+1 4530 4531 035051 120 07 0 00 400000 PFDMV2: DMOVE AC,400000 ;PERFORM DOUBLE MOVE 4532 ERROR1 13,COR,ACT,TRAP FAILED,ADR 400000^ 4533 SALL 4534 035052 036 13 0 00 041120 4535 035053 254 00 0 00 035041 JRST PFDMV1 ;FATAL 4536 4537 ;*PAGE FAIL RETURN 4538 4539 035054 476 00 0 00 000014 PFDMV3: SETOM COR 4540 035055 200 13 0 00 000007 MOVE ACT,AC 4541 035056 312 14 0 00 000013 CAME COR,ACT 4542 ERROR1 13,COR,ACT,DMOVE MODIFIED AC,FETCH FROM 400000^ 4543 035057 036 13 0 00 041131 4544 035060 200 13 0 00 000010 MOVE ACT,AC1 4545 035061 312 14 0 00 000013 CAME COR,ACT 4546 ERROR1 13,COR,ACT,DMOVE MODIFIED AC1,FETCH FROM 400001^ 4547 035062 036 13 0 00 041143 4548 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 109 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0165 4549 035063 200 13 0 00 000500 MOVE ACT,LEUPFW 4550 035064 200 14 0 00 037672 MOVE COR,[1000,,400000] 4551 035065 312 14 0 00 000013 CAME COR,ACT 4552 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4553 035066 036 13 0 00 041146 4554 4555 035067 200 13 0 00 000501 MOVE ACT,LPFWPC 4556 035070 200 14 0 00 041151 MOVE COR,[0,,PFDMV2] 4557 035071 312 14 0 00 000013 CAME COR,ACT 4558 ERROR1 13,COR,ACT,,^ 4559 035072 036 13 0 00 041152 4560 4561 035073 035 00 0 00 035041 ERLOOP PFDMV1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 110 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0166 4562 ;*PAGE FAIL DOUBLE MOVE ON SECOND WORD 4563 ;*DATA FOR FIRST OPERAND IN PAGE WITH RELOCATION DATA IN PAGE MAP. 4564 ;*DATA FOR SECOND OPERAND ACROSS PAGE BOUNDRY 4565 ;*PAGE MAP CLEAR FOR THAT PAGE. 4566 4567 035074 201 07 0 00 035114 PFDMV4: MOVEI AC,PFDMV6 4568 035075 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4569 035076 205 07 0 00 740075 MOVSI AC,740000!75 4570 035077 202 07 0 00 000200 MOVEM AC,200 ;SETUP 1ST WORD PAGE MAP 4571 035100 403 14 0 00 000013 SETZB COR,ACT 4572 035101 402 00 0 00 075777 SETZM 75777 ;SETUP OPERANDS 4573 035102 402 00 0 00 076000 SETZM 76000 4574 035103 477 07 0 00 000010 SETOB AC,AC1 4575 035104 476 00 0 00 000500 SETOM LEUPFW 4576 035105 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4577 035106 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4578 035107 254 02 1 00 035110 JRSTF @.+1 4579 035110 000000 035111 0,,.+1 4580 4581 035111 120 07 0 00 400777 PFDMV5: DMOVE AC,400777 ;PERFORM DOUBLE MOVE 4582 ERROR1 13,COR,ACT,TRAP FAILED,^ 4583 035112 036 13 0 00 041155 4584 035113 254 00 0 00 035074 JRST PFDMV4 ;FATAL 4585 4586 ;*PAGE FAIL RETURN 4587 4588 035114 476 00 0 00 000014 PFDMV6: SETOM COR 4589 035115 200 13 0 00 000007 MOVE ACT,AC 4590 035116 312 14 0 00 000013 CAME COR,ACT 4591 ERROR1 13,COR,ACT,DMOVE MODIFIED AC,FETCH FROM 400777^ 4592 035117 036 13 0 00 041163 4593 4594 035120 200 13 0 00 000010 MOVE ACT,AC1 4595 035121 312 14 0 00 000013 CAME COR,ACT 4596 ERROR1 13,COR,ACT,DMOVE MODIFIED AC1,FETCH FROM 401000^ 4597 035122 036 13 0 00 041171 4598 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 111 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0167 4599 035123 200 13 0 00 000500 MOVE ACT,LEUPFW 4600 035124 200 14 0 00 041174 MOVE COR,[1000,,401000] 4601 035125 312 14 0 00 000013 CAME COR,ACT 4602 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4603 035126 036 13 0 00 041146 4604 4605 035127 200 13 0 00 000501 MOVE ACT,LPFWPC 4606 035130 200 14 0 00 041175 MOVE COR,[0,,PFDMV5] 4607 035131 312 14 0 00 000013 CAME COR,ACT 4608 ERROR1 13,COR,ACT,,^ 4609 035132 036 13 0 00 041152 4610 4611 035133 035 00 0 00 035074 ERLOOP PFDMV4 4612 4613 035134 367 15 0 00 035034 REPTLP PFDMV0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 112 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0168 4614 ;*TEST DOUBLE MOVE TO MEMORY PAGE FAIL 4615 ;*FIRST TEST WITH DATA DESTINATION ADDRESSES IN A PAGED AREA 4616 ;*WITH THE PAGE MAP CLEAR. 4617 4618 SALL 4619 041176 T=SIXBTZ DBL MOVE TO MEM PAGE FAIL 4620 LALL 4621 4622 SUBTST^ 4623 035135 201 00 0 00 035135 MOVEI . 4624 035136 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4625 035137 200 15 0 00 043737 PFDMM0: MOVE REPT,RPEAT 4626 035140 402 00 0 00 000200 SETZM 200 ;CLEAR PAGE MAP 4627 035141 200 07 0 00 037671 MOVE AC,[200,,201] 4628 035142 251 07 0 00 000417 BLT AC,417 4629 035143 201 07 0 00 035162 MOVEI AC,PFDMM3 4630 035144 202 07 0 00 000502 MOVEM AC,LPGFTR ;SETUP FOR PAGE FAIL 4631 4632 035145 7 010 20 0 00 020000 PFDMM1: CONO PAG,LTRPEN ;CLEAR AM, ETC. 4633 035146 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4634 035147 403 13 0 00 076000 SETZB ACT,76000 4635 035150 403 14 0 00 076001 SETZB COR,76001 ;SETUP OPERANDS 4636 035151 477 07 0 00 000010 SETOB AC,AC1 4637 035152 476 00 0 00 000500 SETOM LEUPFW 4638 035153 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4639 035154 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4640 035155 254 02 1 00 035156 JRSTF @.+1 4641 035156 000000 035157 0,,.+1 4642 4643 035157 124 07 0 00 400000 PFDMM2: DMOVEM AC,400000 ;PERFORM DOUBLE MOVE 4644 ERROR1 13,COR,ACT,TRAP FAILED,ADR 400000^ 4645 SALL 4646 035160 036 13 0 00 041203 4647 035161 254 00 0 00 035145 JRST PFDMM1 ;FATAL 4648 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 113 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0169 4649 ;*PAGE FAIL RETURN 4650 4651 035162 402 00 0 00 000014 PFDMM3: SETZM COR 4652 035163 200 13 0 00 076000 MOVE ACT,76000 4653 035164 312 14 0 00 000013 CAME COR,ACT 4654 ERROR1 13,COR,ACT,DMOVEM MODIFIED AC DESTINATION,ADR 400000^ 4655 035165 036 13 0 00 041214 4656 4657 035166 200 13 0 00 076001 MOVE ACT,76001 4658 035167 312 14 0 00 000013 CAME COR,ACT 4659 ERROR1 13,COR,ACT,DMOVEM MODIFIED AC1 DESTINATION,ADR 400001^ 4660 035170 036 13 0 00 041227 4661 4662 035171 476 00 0 00 000014 SETOM COR 4663 035172 200 13 0 00 000007 MOVE ACT,AC 4664 035173 312 14 0 00 000013 CAME COR,ACT 4665 ERROR1 13,COR,ACT,DMOVEM MODIFIED AC,^ 4666 035174 036 13 0 00 041236 4667 4668 035175 200 13 0 00 000010 MOVE ACT,AC1 4669 035176 312 14 0 00 000013 CAME COR,ACT 4670 ERROR1 13,COR,ACT,DMOVEM MODIFIED AC1,^ 4671 035177 036 13 0 00 041245 4672 4673 035200 200 13 0 00 000500 MOVE ACT,LEUPFW 4674 035201 200 14 0 00 041250 MOVE COR,[011000,,400001] ;KS-10 DIFF FROM KL, KL =011000,,400000 4675 035202 312 14 0 00 000013 CAME COR,ACT 4676 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4677 035203 036 13 0 00 041251 4678 4679 035204 200 13 0 00 000501 MOVE ACT,LPFWPC 4680 035205 200 14 0 00 041254 MOVE COR,[0,,PFDMM2] 4681 035206 312 14 0 00 000013 CAME COR,ACT 4682 ERROR1 13,COR,ACT,,^ 4683 035207 036 13 0 00 041255 4684 4685 035210 035 00 0 00 035145 ERLOOP PFDMM1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 114 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0170 4686 ;*TEST DOUBLE MOVE TO MEMORY PAGE FAIL 4687 ;*PAGE FAIL ON SECOND WORD. 4688 ;*PAGE MAP SETUP SO FIRST OPERAND IS STORED IN PAGE 4689 ;*WITH RELOCATION DATA IN PAGE MAP. 4690 ;*SECOND OPERAND STORE IS ACROSS PAGE BOUNDRY WITH 4691 ;*PAGE MAP CLEAR FOR THAT PAGE. 4692 4693 035211 201 07 0 00 035230 PFDMM4: MOVEI AC,PFDMM6 4694 035212 202 07 0 00 000502 MOVEM AC,LPGFTR 4695 035213 205 07 0 00 740075 MOVSI AC,740000!75 4696 035214 202 07 0 00 000200 MOVEM AC,200 ;SETUP 1ST WORD PAGE MAP 4697 035215 402 00 0 00 075777 SETZM 75777 4698 035216 402 00 0 00 076000 SETZM 76000 4699 035217 477 07 0 00 000010 SETOB AC,AC1 4700 035220 476 00 0 00 000500 SETOM LEUPFW 4701 035221 7 010 20 0 00 020000 CONO PAG,LTRPEN ;CLEAR AM, ETC. 4702 035222 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4703 035223 254 02 1 00 035224 JRSTF @.+1 4704 035224 000000 035225 0,,.+1 4705 4706 035225 124 07 0 00 400777 PFDMM5: DMOVEM AC,400777 ;PERFORM DOUBLE MOVE 4707 ERROR1 13,COR,ACT,TRAP FAILED,2ND WORD DMOVEM^ 4708 035226 036 13 0 00 041263 4709 035227 254 00 0 00 035211 JRST PFDMM4 ;FATAL 4710 4711 ;*PAGE FAIL RETURN 4712 4713 035230 402 00 0 00 000014 PFDMM6: SETZM COR 4714 035231 200 13 0 00 075777 MOVE ACT,75777 4715 035232 312 14 0 00 000013 CAME COR,ACT 4716 ERROR1 13,COR,ACT,DMOVEM MODIFIED AC DESTINATION,ADR 400777^ 4717 035233 036 13 0 00 041266 4718 4719 035234 402 00 0 00 000014 SETZM COR 4720 035235 200 13 0 00 076000 MOVE ACT,76000 4721 035236 312 14 0 00 000013 CAME COR,ACT 4722 ERROR1 13,COR,ACT,DMOVEM MODIFIED AC1 DESTINATION,ADR 401000^ 4723 035237 036 13 0 00 041271 4724 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 115 DSKEAM MAC 29-Mar-78 14:55 INSTRUCTION PAGE FAIL TESTING SEQ 0171 4725 035240 200 13 0 00 000500 MOVE ACT,LEUPFW 4726 035241 200 14 0 00 040653 MOVE COR,[011000,,401000] 4727 035242 312 14 0 00 000013 CAME COR,ACT 4728 ERROR1 13,COR,ACT,PAGE FAIL WORD WRONG,^ 4729 035243 036 13 0 00 041251 4730 4731 035244 200 13 0 00 000501 MOVE ACT,LPFWPC 4732 035245 200 14 0 00 041274 MOVE COR,[0,,PFDMM5] 4733 035246 312 14 0 00 000013 CAME COR,ACT 4734 ERROR1 13,COR,ACT,,^ 4735 035247 036 13 0 00 041255 4736 4737 035250 035 00 0 00 035211 ERLOOP PFDMM4 4738 4739 035251 367 15 0 00 035140 REPTLP PFDMM0+1 4740 4741 035252 200 07 0 00 043736 MOVE AC,PGFAIL 4742 035253 202 07 0 00 000502 MOVEM AC,LPGFTR ;RESET PAGE FAIL DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 116 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0172 4743 SUBTTL TRAP INSTRUCTION PAGE FAIL TEST 4744 4745 ;*CAUSE A TRAP, THE TRAP "JSR" IS TO A PAGED ADDRESS THAT PAGE FAILS 4746 ;*PAGE FAIL ROUTINE VERIFIES PAGE FAIL INFO & CORRECT PC WORD 4747 ;*PAGE TABLE THEN SETUP AND TRAP CONTINUED 4748 ;*TRAP SHOULD THEN COMPLETE 4749 ;*TRAP HANDLER THEN VERIFIES CORRECT PC WORD 4750 4751 SALL 4752 041275 T= SIXBTZ TRAP INSTRUCTION PAGE FAIL 4753 LALL 4754 4755 SUBTST^ 4756 035254 201 00 0 00 035254 MOVEI . 4757 035255 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4758 035256 200 15 0 00 043737 TIPF0: MOVE REPT,RPEAT 4759 035257 402 00 0 00 000200 SETZM 200 ;CLEAR PAGE MAP 4760 035260 200 07 0 00 037671 MOVE AC,[200,,201] 4761 035261 251 07 0 00 000417 BLT AC,417 4762 4763 035262 201 07 0 00 035302 MOVEI AC,TIPF2 ;SETUP PAGE FAIL TRANSFER 4764 035263 202 07 0 00 000502 MOVEM AC,LPGFTR 4765 035264 200 07 0 00 041302 MOVE AC,[JSR 400000!] 4766 035265 202 07 0 00 000423 MOVEM AC,LTRP3T ;SETUP TRAP 3 TRANSFER 4767 4768 035266 476 00 0 00 000500 SETOM LEUPFW ;PRESET PAGE FAIL WORDS 4769 035267 476 00 0 00 000501 SETOM LPFWPC 4770 4771 035270 7 010 20 0 00 020000 CONO PAG,LTRPEN ;ENABLE TRAPPING 4772 035271 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4773 4774 035272 254 02 1 00 035273 JRSTF @.+1 ;CAUSE TRAP 3 4775 035273 000600 035277 TN0!TN1,,TIPFX 4776 4777 035274 7 010 20 0 00 020000 TIPF1: CONO PAG,LTRPEN ;IF GET HERE, TRAP DID NOT HAPPEN 4778 ERROR1 13,0,0,TRAP FAILED,FATAL^ 4779 SALL 4780 035275 036 13 0 00 041303 4781 035276 254 00 0 00 035256 JRST TIPF0 4782 4783 035277 7 010 20 0 00 020000 TIPFX: CONO PAG,LTRPEN 4784 ERROR1 13,0,0,JRSTF HAPPENED,NO TRAP^ 4785 035300 036 13 0 00 041313 4786 035301 254 00 0 00 035256 JRST TIPF0 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 117 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0173 4787 ;*HERE IF PAGE FAIL TRAP HAPPENED 4788 4789 035302 200 00 0 00 043736 TIPF2: MOVE PGFAIL ;RESTORE PAGE FAIL TRAP 4790 035303 202 00 0 00 000502 MOVEM LPGFTR 4791 4792 035304 200 14 0 00 041316 MOVE COR,[011000,,400000!] 4793 035305 200 13 0 00 000500 MOVE ACT,LEUPFW 4794 035306 312 14 0 00 000013 CAME COR,ACT 4795 ERROR TIPF0+1,13,COR,ACT,PAGE FAIL WORD WRONG^ 4796 035307 036 13 0 00 041317 4797 035310 035 00 0 00 035257 ERLOOP TIPF0+1 ;IF ERROR, LOOP TO TIPF0+1 4798 4799 035311 200 14 0 00 041322 MOVE COR,[TN0!TN1,,TIPFX] 4800 035312 200 13 0 00 000501 MOVE ACT,LPFWPC 4801 035313 312 14 0 00 000013 CAME COR,ACT 4802 ERROR TIPF0+1,13,COR,ACT,,PAGE FAIL^ 4803 035314 036 13 0 00 041323 4804 035315 035 00 0 00 035257 ERLOOP TIPF0+1 ;IF ERROR, LOOP TO TIPF0+1 4805 4806 035316 312 14 0 00 000013 CAME COR,ACT 4807 035317 254 00 0 00 035324 JRST TIPF3+4 ;IF SAVED PC WRONG, CAN'T CONT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 118 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0174 4808 ;*SETUP FOR PAGE FAIL TRAP CONTINUE 4809 4810 035320 205 07 0 00 540035 TIPF3: MOVSI AC,540000! 4811 035321 202 07 0 00 000200 MOVEM AC,200 ;SETUP PAGE MAP 4812 035322 7 010 20 0 00 020000 CONO PAG,LTRPEN ;***CAUSE REFILL*** 4813 4814 035323 254 02 1 00 000501 JRSTF @LPFWPC ;CONTINUE TRAP 4815 4816 ERROR1 13,0,0,PAGE FAIL CONTINUE FAILED,FATAL^ 4817 035324 036 13 0 00 041333 4818 035325 254 00 0 00 035344 JRST TIPF10-2 4819 4820 ;*HERE IF TRAP CONTINUED PROPERLY 4821 4822 035326 000000 000000 TIPF4: 0 ;JSR SHOULD COME HERE 4823 035327 200 00 0 00 043732 MOVE LTRP3SV 4824 035330 202 00 0 00 000423 MOVEM LTRP3T ;RESET TRAP 4825 035331 265 13 0 00 035332 JSP ACT,TIPF5 ;GET CURRENT RELOCATED PC 4826 035332 200 14 0 00 041336 TIPF5: MOVE COR,[0,,400000!] 4827 035333 312 14 0 00 000013 CAME COR,ACT 4828 ERROR TIPF0+1,13,COR,ACT,RELOCATION INCORRECT,PF CONTINUE^ 4829 035334 036 13 0 00 041345 4830 035335 035 00 0 00 035257 ERLOOP TIPF0+1 ;IF ERROR, LOOP TO TIPF0+1 4831 035336 200 14 0 00 041350 MOVE COR,[0,,TIPFX] 4832 035337 200 13 0 00 035326 MOVE ACT,TIPF4 4833 035340 312 14 0 00 000013 CAME COR,ACT 4834 ERROR TIPF0+1,13,COR,ACT,TRAP SAVED PC WRONG,PF CONTINUE^ 4835 035341 036 13 0 00 041355 4836 035342 035 00 0 00 035257 ERLOOP TIPF0+1 ;IF ERROR, LOOP TO TIPF0+1 4837 4838 035343 367 15 0 00 035257 REPTLP TIPF0+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 119 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0175 4839 ;*CAUSE A TRAP TO A PAGE FAIL PAGE 4840 ;*TRAP HANDLER THEN VERIFIES CORRECT PC WORD 4841 4842 SALL 4843 041360 T=SIXBTZ TRAP PAGE FAIL 4844 LALL 4845 4846 SUBTST^ 4847 035344 201 00 0 00 035344 MOVEI . 4848 035345 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4849 035346 200 15 0 00 043737 TIPF10: MOVE REPT,RPEAT 4850 035347 402 00 0 00 000200 SETZM 200 4851 035350 200 07 0 00 037671 MOVE AC,[200,,201] 4852 035351 251 07 0 00 000417 BLT AC,417 ;CLEAR PAGE MAP 4853 4854 035352 201 07 0 00 035410 MOVEI AC,TIPF12 ;SETUP PAGE FAIL TRANSFER 4855 035353 202 07 0 00 000502 MOVEM AC,LPGFTR 4856 035354 200 07 0 00 041363 MOVE AC,[JSR TIPF14] 4857 035355 202 07 0 00 000423 MOVEM AC,LTRP3T ;SETUP TRAP 3 TRANSFER 4858 4859 035356 476 00 0 00 000500 SETOM LEUPFW ;PRESET PAGE FAIL WORD 4860 035357 476 00 0 00 000501 SETOM LPFWPC 4861 4862 035360 7 010 20 0 00 020000 CONO PAG,LTRPEN 4863 035361 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4864 4865 035362 254 02 1 00 035363 JRSTF @.+1 ;CAUSE TRAP 3 4866 035363 000600 400373 TN0!TN1,,400000! 4867 4868 035364 7 010 20 0 00 020000 TIPF11: CONO PAG,LTRPEN 4869 035365 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4870 035366 200 00 0 00 043736 MOVE PGFAIL 4871 035367 202 00 0 00 000502 MOVEM LPGFTRP 4872 ERROR TIPF10,13,0,0,TRAP FAILED,FATAL^ 4873 SALL 4874 035370 036 13 0 00 041364 4875 035371 035 00 0 00 035346 ERLOOP TIPF10 ;IF ERROR, LOOP TO TIPF10 4876 035372 254 00 0 00 035346 JRST TIPF10 4877 4878 035373 7 010 20 0 00 020000 TIPF1X: CONO PAG,LTRPEN 4879 035374 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4880 035375 200 00 0 00 043736 MOVE PGFAIL 4881 035376 202 00 0 00 000502 MOVEM LPGFTR 4882 ERROR TIPF10,13,0,0,JRSTF HAPPENED,NO TRAP^ 4883 035377 036 13 0 00 041367 4884 035400 035 00 0 00 035346 ERLOOP TIPF10 ;IF ERROR, LOOP TO TIPF10 4885 035401 254 00 0 00 035346 JRST TIPF10 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 120 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0176 4886 ;*HERE IF TRAP HAPPENED WITHOUT PAGE FAIL 4887 4888 035402 000000 000000 TIPF14: 0 4889 035403 200 00 0 00 043736 MOVE PGFAIL 4890 035404 202 00 0 00 000502 MOVEM LPGFTR 4891 ERROR TIPF10,13,0,0,TRAP 3 HAPPENED,NO PAGE FAIL^ 4892 035405 036 13 0 00 041400 4893 035406 035 00 0 00 035346 ERLOOP TIPF10 ;IF ERROR, LOOP TO TIPF10 4894 035407 254 00 0 00 035346 JRST TIPF10 4895 4896 ;*HERE IF PAGE FAIL TRAP HAPPENED 4897 4898 035410 200 00 0 00 043736 TIPF12: MOVE PGFAIL 4899 035411 202 00 0 00 000502 MOVEM LPGFTR 4900 4901 035412 200 14 0 00 041403 MOVE COR,[001000,,400000!] 4902 035413 200 13 0 00 000500 MOVE ACT,LEUPFW 4903 035414 312 14 0 00 000013 CAME COR,ACT 4904 ERROR TIPF10+1,13,COR,ACT,PAGE FAIL WORD WRONG^ 4905 035415 036 13 0 00 041404 4906 035416 035 00 0 00 035347 ERLOOP TIPF10+1 ;IF ERROR, LOOP TO TIPF10+1 4907 4908 035417 200 14 0 00 041407 MOVE COR,[TN0!TN1,,400000!] 4909 035420 200 13 0 00 000501 MOVE ACT,LPFWPC 4910 035421 312 14 0 00 000013 CAME COR,ACT 4911 ERROR TIPF10+1,13,COR,ACT,,PAGE FAIL^ 4912 035422 036 13 0 00 041410 4913 035423 035 00 0 00 035347 ERLOOP TIPF10+1 ;IF ERROR, LOOP TO TIPF10+1 4914 4915 035424 367 15 0 00 035347 REPTLP TIPF10+1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 121 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0177 4916 ;*TEST I/O INSTRUCTION PAGE FAIL 4917 4918 SALL 4919 041413 T=SIXBTZ 4920 LALL 4921 4922 SUBTST^ 4923 035425 201 00 0 00 035425 MOVEI . 4924 035426 202 00 0 00 030051 MOVEM TESTPC ;SETUP SUBTEST PC ^ 4925 035427 200 15 0 00 043737 PFIO0: MOVE REPT,RPEAT 4926 035430 402 00 0 00 000200 SETZM 200 4927 035431 200 00 0 00 037671 MOVE [200,,201] 4928 035432 251 00 0 00 000417 BLT 417 ;CLEAR PAGE MAP 4929 4930 035433 201 00 0 00 035446 MOVEI PFIO3 4931 035434 202 00 0 00 000502 MOVEM LPGFTR ;SETUP FOR PAGE FAIL 4932 4933 035435 476 00 0 00 000500 PFIO1: SETOM LEUPFW ;SETUP PAGING 4934 035436 7 010 20 0 00 020000 CONO PAG,LTRPEN 4935 035437 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] 4936 035440 254 02 1 00 035441 JRSTF @.+1 4937 035441 000000 035442 0,,.+1 4938 4939 035442 7 000 24 0 00 400000 PFIO2: CONI APR,400000 ;PERFORM I/O INST PAGE FAIL 4940 ERROR PFIO1,13,0,0,CONI TRAP FAILED,FATAL^ 4941 SALL 4942 035443 036 13 0 00 041422 4943 035444 035 00 0 00 035435 ERLOOP PFIO1 ;IF ERROR, LOOP TO PFIO1 4944 035445 254 00 0 00 035435 JRST PFIO1 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 122 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0178 4945 035446 200 13 0 00 000500 PFIO3: MOVE ACT,LEUPFW 4946 035447 200 14 0 00 041112 MOVE COR,[011000,,400000] 4947 035450 312 14 0 00 000013 CAME COR,ACT 4948 ERROR PFIO1,13,COR,ACT,PAGE FAIL WORD WRONG,DATAI^ 4949 035451 036 13 0 00 041426 4950 035452 035 00 0 00 035435 ERLOOP PFIO1 ;IF ERROR, LOOP TO PFIO1 4951 4952 035453 200 13 0 00 000501 MOVE ACT,LPFWPC 4953 035454 200 14 0 00 041431 MOVE COR,[0,,PFIO2] 4954 035455 312 14 0 00 000013 CAME COR,ACT 4955 ERROR PFIO1,13,COR,ACT,,DATAI^ 4956 035456 036 13 0 00 041432 4957 035457 035 00 0 00 035435 ERLOOP PFIO1 ;IF ERROR, LOOP TO PFIO1 4958 4959 035460 367 15 0 00 035430 REPTLP PFIO0+1 4960 4961 035461 200 00 0 00 043736 MOVE PGFAIL 4962 035462 202 00 0 00 000502 MOVEM LPGFTR 4963 4964 035463 254 00 0 00 035542 JRST STMUUO 4965 4966 REPEAT 0,< 4967 4968 AN I/O PAGE FAILURE CAUSES THE KS-10 TO HALT, THEREFORE THE 4969 FOLLOWING TEST IS NOT PERFORMED. DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 123 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0179 4970 SUBTTL INTERRUPT INSTRUCTION PAGE FAIL 4971 4972 SALL 4973 T=SIXBTZ INTERRUPT INST PAGE FAIL 4974 LALL 4975 4976 ;*CAUSE AN INTERRUPT THAT HAS FOR ITS INTERRUPT HANDLING 4977 ;*INSTRUCTION A "JSR" TO A PAGE FAIL ADDRESS. 4978 ;*AN I/O PAGE FAIL INTERRUPT SHOULD OCCUR. 4979 4980 SUBTST 4981 INTPF0: MOVE REPT,RPEAT 4982 4983 ;*FIRST VERIFY THAT THE METER CAN CAUSE AN INTERRUPT 4984 4985 CONO PI,LPICLR 4986 CONO APR,LAPRAL!LAPRP1 4987 CONO PI,LCHNON!LPION!LPICHA 4988 MOVE [JSR INTPFA] 4989 MOVEM 514 ;SETUP METER VECTOR 4990 4991 MOVSI 0,77 4992 CONO TIM,63203 4993 CONO MTR,7 ;ASSIGN METER CHAN 7 4994 SOJGE 0,. ;WAIT FOR METER INTERRUPT 4995 CONO PI,PICLR 4996 ERROR INTPF0+1,13,0,0,NO METER INTERRUPT,FATAL 4997 JRST INTPF3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 124 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0180 4998 ;*NOW USE IT TO CAUSE I/O PAGE FAIL 4999 5000 INTPFA: 0 ;METER CAUSED INTERRUPT 5001 CONO MTR,0 ;GO AHEAD AND USE IT 5002 CONO PI,LPICLR 5003 CONO APR,LAPRAL!LAPRP1 5004 CONO PI,LCHNON!LPION!LPICHA 5005 5006 SETZM 200 5007 MOVE [200,,201] 5008 BLT 417 ;CLEAR PAGE MAP 5009 5010 MOVEI INTPF1 5011 MOVEM LPGFTR ;SETUP PAGE FAIL TRAP 5012 5013 MOVE [JSR 400000] 5014 MOVEM 514 ;SETUP METER INTERRUPT 5015 5016 MOVE [JSR INTPF2] 5017 MOVEM 42 ;SETUP I/O PAGE FAIL ERROR INTERRUPT 5018 5019 CONO PAG,LTRPEN 5020 DATAO PAG,[LLDUSB,,400000] 5021 5022 MOVSI 0,77 ;WAIT FOR METER INTERRUPT 5023 CONO TIM,63203 5024 CONO MTR,7 5025 SOJGE 0,. 5026 CONO PI,PICLR 5027 ERROR INTPF0+1,13,0,0,NO INTERRUPT,FATAL 5028 JRST INTPF3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 125 DSKEAM MAC 29-Mar-78 14:55 TRAP INSTRUCTION PAGE FAIL TEST SEQ 0181 5029 ;*IF PAGE FAIL HAPPENED, ERROR 5030 5031 INTPF1: CONO MTR,0 5032 CONO PI,PICLR 5033 ERROR INTPF0+1,13,LEUPFW,LPFWPC,PAGE FAILURE, 5035 JRST INTPF3 5036 5037 ;*APR ERROR INTERRUPT, CHECK PROPER CONDITIONS 5038 5039 INTPF2: 0 5040 CONO MTR,0 5041 CONO PI,PICLR 5042 CONI APR,ACT 5043 MOVE COR,[LIOPFE] 5044 TRNN ACT,LIOPFE 5045 ERROR INTPF0+1,13,COR,ACT,IO PAGE FAIL NOT SET 5046 5047 REPTLP INTPF0+1 5048 5049 INTPF3: CONO MTR,0 5050 CONO PI,LPICLR 5051 CONO PI,LCHNON!LPION!LPICHA 5052 CONO APR,LAPRAL!LAPRP1 5053 MOVE [JSR ITRCH1] 5054 MOVEM 42 ;RESET INTERRUPT SYSTEM 5055 5056 JRST BEGEND 5057 > DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 126 DSKEAM MAC 29-Mar-78 14:55 PAGING MEMORY FLOATING BIT TEST TABLE SEQ 0182 5058 SUBTTL PAGING MEMORY FLOATING BIT TEST TABLE 5059 5060 ;*LH = SCRATCHPAD DATA 5061 ;*RH = PAGING ADDRESS 5062 5063 035464 777777 000400 AMTAB1: 777777,,400 5064 035465 757776 000600 757776,,600 5065 035466 737775 000500 737775,,500 5066 035467 577773 000440 577773,,440 5067 035470 517767 000420 517767,,420 5068 035471 777757 000410 777757,,410 5069 035472 577737 000404 577737,,404 5070 035473 737677 000402 737677,,402 5071 035474 757577 000401 757577,,401 5072 035475 660000 000340 660000,,340 5073 035476 757377 000777 757377,,777 5074 035477 736777 000577 736777,,577 5075 035500 575777 000677 575777,,677 5076 035501 773777 000737 773777,,737 5077 035502 567777 000757 567777,,757 5078 035503 730000 000767 730000,,767 5079 035504 744000 000773 744000,,773 5080 035505 762000 000775 762000,,775 5081 035506 501000 000776 501000,,776 5082 035507 677777 000501 677777,,501 5083 035510 500400 000640 500400,,640 5084 035511 760200 000700 760200,,700 5085 035512 720100 000740 720100,,740 5086 035513 440000 000760 440000,,760 5087 035514 720040 000770 720040,,770 5088 035515 540020 000774 540020,,774 5089 035516 720010 000772 720010,,772 5090 035517 417777 000341 417777,,341 5091 035520 760004 000342 760004,,342 5092 035521 660000 000345 660000,,345 5093 035522 500002 000352 500002,,352 5094 035523 500001 000525 500001,,525 5095 035524 777777 000376 777777,,376 5096 035525 517777 000463 517777,,463 5097 035526 620000 000632 620000,,632 5098 035527 552525 000505 552525,,505 5099 035530 637777 000362 637777,,362 5100 035531 545252 000623 545252,,623 5101 035532 400000 000551 400000,,551 5102 035533 772525 000624 772525,,624 5103 035534 417777 000353 417777,,353 5104 035535 760000 000603 760000,,603 5105 035536 000000 000000 0 5106 035537 000000 000000 0 5107 035540 000000 000000 0 5108 035541 000000 000000 0 5109 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 127 DSKEAM MAC 29-Mar-78 14:55 MONITOR UUO TRAP TESTING SEQ 0183 5110 SUBTTL MONITOR UUO TRAP TESTING 5111 5112 ;*TEST MUUO TRAPPING TO 424(KERNAL NO TRAP) 5113 5114 SALL 5115 041435 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN KERNAL MODE 5116 LALL 5117 000424 A=MUUO ;DATA STORED 5118 035557 C=AXMUUO ;CORRECT DATA 5119 5120 035542 402 00 0 00 030116 STMUUO: SETZM SCOPE# ;CLEAR SCOPE 5121 035543 7 010 20 0 00 020000 CONO PAG,LTRPEN 5122 035544 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5123 035545 201 00 0 00 000040 AXMBEG: MOVEI 40 ;SET UP TEST 5124 035546 202 00 0 00 043726 MOVEM COUNT# ;COUNTER 5125 TNSET^ 5126 035547 201 00 0 00 035547 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5127 035550 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5128 ^ 5129 035551 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO 5130 035552 202 00 0 00 035557 MOVEM AXMUUO ;FOR EXECUTION 5131 035553 201 00 0 00 035562 AXMST: MOVEI AXMUPC ;SET UP UUO TRAP PC 5132 035554 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP 5133 035555 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO TRAP 5134 035556 402 00 0 00 000425 SETZM MUUO+1 ;LOCATIONS 5135 035557 000000 000000 AXMUUO: 0 ;THIS IS THE UUO 5136 ERROR1 13,C,0,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MONITOR UUO^ 5137 SALL 5138 035560 036 13 0 00 041457 5139 035561 035 02 0 00 035553 ERLP2 AXMST 5140 035562 336 00 0 00 043726 AXMUPC: SKIPN COUNT ;DONE 40 UUOS 5141 035563 254 00 0 00 035636 JRST AYMBEG ;YES DO NEXT SET 5142 035564 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO 5143 035565 272 00 0 00 035557 ADDM AXMUUO ;ADD IN FOR NEXT UUO 5144 035566 370 00 0 00 043726 SOS COUNT ;FIX UP COUNTER 5145 035567 254 00 0 00 035553 JRST AXMST ;LOOP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 128 DSKEAM MAC 29-Mar-78 14:55 MONITOR UUO TRAP TESTING SEQ 0184 5146 035602 C=MUUOXA ;CORRECT DATA 5147 035570 201 00 0 00 000010 MUU100: MOVEI 10 ;TEST COUNT 5148 035571 202 00 0 00 043726 MOVEM COUNT 5149 TNSET^ 5150 035572 201 00 0 00 035572 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5151 035573 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5152 035574 205 00 0 00 100000 MOVSI 1B20 ;FIRST MUUO (100) 5153 035575 202 00 0 00 035602 MOVEM MUUOXA ;STORE UUO TO EXECUTE 5154 035576 201 00 0 00 035605 MUUSTA: MOVEI MUXPCA ;SET UP UUO TRAP PC 5155 035577 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP 5156 035600 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO 5157 035601 402 00 0 00 000425 SETZM MUUO+1 ;AND NEXT 5158 035602 000000 000000 MUUOXA: 0 ;THIS LOC HAS MUUO 5159 ERROR1 13,C,0,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^ 5160 035603 036 13 0 00 041465 5161 035604 035 02 0 00 035576 ERLP2 MUUSTA 5162 035605 336 00 0 00 043726 MUXPCA: SKIPN COUNT ;FINISHED 5163 035606 254 00 0 00 035613 JRST MUU114 ;DO NEXT TEST SET 5164 035607 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO 5165 035610 272 00 0 00 035602 ADDM MUUOXA ;AND ADD IN TO OLD UUO 5166 035611 370 00 0 00 043726 SOS COUNT ;FIX UP COUNT 5167 035612 254 00 0 00 035576 JRST MUUSTA ;AND LOOP TEST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 129 DSKEAM MAC 29-Mar-78 14:55 MONITOR UUO TRAP TESTING SEQ 0185 5168 035625 C=MUUOXB ;CORRECT DATA 5169 035613 201 00 0 00 000004 MUU114: MOVEI 4 ;TEST COUNT 5170 035614 202 00 0 00 043726 MOVEM COUNT 5171 TNSET^ 5172 035615 201 00 0 00 035615 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5173 035616 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5174 035617 205 00 0 00 114000 MOVSI 114000 ;FIRST MUUO (114) 5175 035620 202 00 0 00 035625 MOVEM MUUOXB ;STORE UUO TO EXECUTE 5176 035621 201 00 0 00 035630 MUUSTB: MOVEI MUXPCB ;SET UP UUO TRAP PC 5177 035622 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP 5178 035623 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO 5179 035624 402 00 0 00 000425 SETZM MUUO+1 ;AND NEXT 5180 035625 000000 000000 MUUOXB: 0 ;THIS LOC HAS MUUO 5181 ERROR1 13,C,0,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^ 5182 035626 036 13 0 00 041470 5183 035627 035 02 0 00 035621 ERLP2 MUUSTB 5184 035630 336 00 0 00 043726 MUXPCB: SKIPN COUNT ;FINISHED 5185 035631 254 00 0 00 035613 JRST MUU114 ;DO NEXT TEST SET 5186 035632 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO 5187 035633 272 00 0 00 035602 ADDM MUUOXA ;AND ADD IN TO OLD UUO 5188 035634 370 00 0 00 043726 SOS COUNT ;FIX UP COUNT 5189 035635 254 00 0 00 035621 JRST MUUSTB ;AND LOOP TEST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 130 DSKEAM MAC 29-Mar-78 14:55 MONITOR UUO TRAP TESTING SEQ 0186 5190 ;*MONITOR UUO TEST - UUO STORE INTO 424 5191 5192 SALL 5193 041473 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424 5194 LALL 5195 000424 A=MUUO ;ACTUAL DATA STORED 5196 035650 C=AYMUUO ;CORRECT DATA LOCATION 5197 5198 035636 201 00 0 00 000040 AYMBEG: MOVEI 40 ;SET UP TEST COUNTER 5199 035637 202 00 0 00 043726 MOVEM COUNT 5200 TNSET^ 5201 035640 201 00 0 00 035640 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5202 035641 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5203 ^ 5204 035642 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO 5205 035643 202 00 0 00 035650 MOVEM AYMUUO ;FOR EXECUTION 5206 035644 201 00 0 00 035652 AYMST: MOVEI AYMUPC ;SET UP UUO TRAP 5207 035645 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP 5208 035646 402 00 0 00 000424 SETZM MUUO ;CLEAR MUUO TRAP 5209 035647 402 00 0 00 000425 SETZM MUUO+1 ;LOCATIONS 5210 035650 000000 000000 AYMUUO: 0 ;EXECUTE THIS UUO 5211 035651 254 04 0 00 035651 HALT . ;UUO DID NOT TRAP 5212 035652 200 00 0 00 000424 AYMUPC: MOVE MUUO ;GET WRITTEN UUO 5213 035653 312 00 0 00 035650 CAME AYMUUO ;STORED CORRECTLY? 5214 ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^ 5215 SALL 5216 035654 036 13 0 00 041512 5217 035655 035 02 0 00 035644 ERLP2 AYMST 5218 035656 336 00 0 00 043726 SKIPN COUNT ;DONE 40 UUO'S 5219 035657 254 00 0 00 035664 JRST AZMBEG ;DO NEXT SET 5220 035660 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO 5221 035661 272 00 0 00 035650 ADDM AYMUUO ;ADD IN FOR NEXT UUO 5222 035662 370 00 0 00 043726 SOS COUNT ;FIX UUO COUNTER 5223 035663 254 00 0 00 035644 JRST AYMST ;LOOP DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 131 DSKEAM MAC 29-Mar-78 14:55 MONITOR UUO TRAP TESTING SEQ 0187 5224 ;*MONITOR UUO - STORE CORRECT PC 5225 5226 SALL 5227 041515 T=SIXBTZ MONITOR UUO - STORE CORRECT PC 5228 LALL 5229 041523 C=[AZMUUO+1] ;CORRECT DATA 5230 000001 A=1 ;ACTUAL DATA 5231 5232 035664 402 00 0 00 000424 AZMBEG: SETZM MUUO ;CLEAR MONITOR UUO 5233 035665 402 00 0 00 000425 SETZM MUUO+1 ;TRAP LOCATIONS 5234 TNSET^ 5235 035666 201 00 0 00 035666 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5236 035667 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5237 ^ 5238 035670 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO 5239 035671 202 00 0 00 035674 MOVEM AZMUUO ;TO BE EXECUTED 5240 035672 201 00 0 00 035676 AZMST: MOVEI AZMUPC ;SET UP TRAP INSTRUCTION 5241 035673 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP 5242 035674 000000 000000 AZMUUO: 0 ;EXECUTABLE UUO 5243 035675 254 04 0 00 035675 HALT . ;SHOULDN'T UUO DID NOT TRAP 5244 035676 550 01 0 00 000425 AZMUPC: HRRZ 1,MUUO+1 ;GET THE PC OF THE UUO 5245 035677 302 01 0 00 035675 CAIE 1,AZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED 5246 ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,C(425) HAS PC STORED^ 5247 SALL 5248 035700 036 13 0 00 041536 5249 035701 035 02 0 00 035672 ERLP2 AZMST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 132 DSKEAM MAC 29-Mar-78 14:55 MONITOR UUO TRAP TESTING SEQ 0188 5250 ;*TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING 5251 ;*A MONITOR UUO 5252 5253 SALL 5254 041541 T=SIXBTZ MONITOR UUO - STORE E CORRECTLY 5255 LALL 5256 000001 A=1 ;ACTUAL DATA 5257 000007 C=7 ;CORRECT DATA 5258 5259 035702 201 07 0 00 001000 AWMBEG: MOVEI 7,1000 ;FIRST E FIELD TO TEST 5260 035703 201 00 0 00 035716 AWMST: MOVEI AWMUPC ;SET UP MUUO TRAP INSTUCTION 5261 035704 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP 5262 TNSET^ 5263 035705 201 00 0 00 035705 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5264 035706 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5265 ^ 5266 035707 402 00 0 00 000424 SETZM MUUO ;CLEAR MUUO TRAP LOCATIONS 5267 035710 402 00 0 00 000425 SETZM MUUO+1 5268 035711 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE 5269 035712 202 00 0 00 035714 MOVEM AWMUUO ;AND STORE IT 5270 035713 542 07 0 00 035714 HRRM 7,AWMUUO ;AN A NEW PC 5271 035714 000000 000000 AWMUUO: 0 ;THIS IS THE UUO 5272 035715 254 04 0 00 035715 HALT . ;SHOULD NOT HALT 5273 035716 550 01 0 00 000424 AWMUPC: HRRZ 1,MUUO 5274 035717 312 01 0 00 000007 CAME 1,7 ;CORRECT E STORED 5275 ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,C(424) HAS E VALUE STORED^ 5276 SALL 5277 035720 036 13 0 00 041562 5278 035721 035 02 0 00 035703 ERLP2 AWMST 5279 035722 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD 5280 035723 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS? 5281 035724 254 00 0 00 035726 JRST BXMBEG ;NEXT SET OF TESTS 5282 035725 254 00 0 00 035703 JRST AWMST ;LOOP TEST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 133 DSKEAM MAC 29-Mar-78 14:55 TEST MUUO'S IN CONCEALED MODE SEQ 0189 5283 SUBTTL TEST MUUO'S IN CONCEALED MODE 5284 5285 ;*MONITOR UUO TEST - TRAPPING IN CONCEALED MODE 5286 5287 SALL 5288 041565 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN CONCEALED MODE 5289 LALL 5290 044424 A=UPMP+MUUO ;DATA STORED 5291 035753 C=BXMUUO ;CORRECT DATA 5292 5293 035726 BXMBEG: TNSET^ 5294 035726 201 00 0 00 035726 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5295 035727 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5296 ^ 5297 PAGECN^ 5298 035730 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5299 035731 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5300 ^ 5301 035732 201 00 0 00 000040 MOVEI 40 ;SET UP TEST 5302 035733 202 00 0 00 043726 MOVEM COUNT# ;COUNTER 5303 035734 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO 5304 035735 202 00 0 00 035753 MOVEM BXMUUO ;FOR EXECUTION 5305 035736 260 17 0 00 037025 BXMST: GO PAGE1 5306 035737 201 00 0 00 035756 MOVEI BXMUPC ;SET UP UUO TRAP PC 5307 035740 202 00 0 00 044434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP 5308 035741 201 00 0 00 035764 MOVEI BXERR ;SET WRONG TRAP ERROR 5309 035742 202 00 0 00 044430 MOVEM UPMP+KNTRP 5310 035743 202 00 0 00 044436 MOVEM UPMP+PNTRP 5311 035744 202 00 0 00 044432 MOVEM UPMP+SNTRP 5312 035745 202 00 0 00 044431 MOVEM UPMP+KTRP 5313 035746 202 00 0 00 044433 MOVEM UPMP+STRP 5314 035747 202 00 0 00 044437 MOVEM UPMP+PTRP 5315 035750 202 00 0 00 044435 MOVEM UPMP+CTRP 5316 035751 402 00 0 00 044424 SETZM UPMP+MUUO ;CLEAR UUO TRAP 5317 035752 402 00 0 00 044425 SETZM UPMP+MUUO+1 ;LOCATIONS 5318 035753 000000 000000 BXMUUO: 0 ;THIS IS THE UUO 5319 ERROR1 13,C,A,MUUO DID NOT TRAP IN CONCEALED MODE,C(CORRECT)=MONITOR UUO^ 5320 SALL 5321 035754 036 13 0 00 041603 5322 035755 035 02 0 00 035736 ERLP2 BXMST 5323 035756 336 00 0 00 043726 BXMUPC: SKIPN COUNT ;DONE 40 UUOS 5324 035757 254 00 0 00 035766 JRST BYMBEG ;YES DO NEXT SET 5325 035760 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO 5326 035761 272 00 0 00 035753 ADDM BXMUUO ;ADD IN FOR NEXT UUO 5327 035762 370 00 0 00 043726 SOS COUNT ;FIX UP COUNTER 5328 035763 254 00 0 00 035736 JRST BXMST ;LOOP 5329 035764 BXERR: ERROR1 13,C,A,MUUO TRAPPED TO INCORRECT TRAP LOCATION,^ 5330 035764 036 13 0 00 041615 5331 035765 035 02 0 00 035736 ERLP2 BXMST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 134 DSKEAM MAC 29-Mar-78 14:55 TEST MUUO'S IN CONCEALED MODE SEQ 0190 5332 ;*MONITOR UUO TEST - UUO STORE INTO 424 5333 5334 SALL 5335 041473 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424 5336 LALL 5337 044424 A=UPMP+MUUO ;ACTUAL DATA STORED 5338 036007 C=BYMUUO ;CORRECT DATA LOCATION 5339 5340 035766 BYMBEG: PAGECN^ 5341 035766 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5342 035767 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5343 ^ 5344 035770 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER 5345 035771 202 00 0 00 043726 MOVEM COUNT 5346 TNSET^ 5347 035772 201 00 0 00 035772 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5348 035773 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5349 ^ 5350 035774 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO 5351 035775 202 00 0 00 036007 MOVEM BYMUUO ;FOR EXECUTION 5352 035776 260 17 0 00 037025 BYMST: GO PAGE1 5353 035777 201 00 0 00 036012 MOVEI BYMUPC ;SET UP UUO TRAP 5354 036000 202 00 0 00 044434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP 5355 036001 201 00 0 00 036024 MOVEI BYERR ;IN CASE WE GO TO THE WRONG TRAP 5356 036002 202 00 0 00 044430 MOVEM UPMP+KNTRP 5357 036003 202 00 0 00 044432 MOVEM UPMP+SNTRP 5358 036004 202 00 0 00 044436 MOVEM UPMP+PNTRP ;SET UP THE OTHER TRAP LOCATIONS 5359 036005 402 00 0 00 044424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP 5360 036006 402 00 0 00 044425 SETZM UPMP+MUUO+1 ;LOCATIONS 5361 036007 000000 000000 BYMUUO: 0 ;EXECUTE THIS UUO 5362 ERROR1 13,C,A,MUUO DID NOT TRAP,^ 5363 SALL 5364 036010 036 13 0 00 041623 5365 036011 035 02 0 00 035776 ERLP2 BYMST 5366 036012 200 00 0 00 044424 BYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO 5367 036013 312 00 0 00 036007 CAME BYMUUO ;STORED CORRECTLY? 5368 ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^ 5369 036014 036 13 0 00 041626 5370 036015 035 02 0 00 035776 ERLP2 BYMST 5371 036016 336 00 0 00 043726 SKIPN COUNT ;DONE 40 UUO'S 5372 036017 254 00 0 00 036026 JRST BZMBEG ;DO NEXT SET 5373 036020 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO 5374 036021 272 00 0 00 036007 ADDM BYMUUO ;ADD IN FOR NEXT UUO 5375 036022 370 00 0 00 043726 SOS COUNT ;FIX UUO COUNTER 5376 036023 254 00 0 00 035776 JRST BYMST ;LOOP 5377 036024 BYERR: ERROR1 13,C,A,MUUO TRAPED TO INCORRECT TRAP LOCATION,^ 5378 036024 036 13 0 00 041640 5379 036025 035 02 0 00 035776 ERLP2 BYMST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 135 DSKEAM MAC 29-Mar-78 14:55 TEST MUUO'S IN CONCEALED MODE SEQ 0191 5380 ;*MONITOR UUO - STORING THE CORRECT PC 5381 5382 SALL 5383 041643 T=SIXBTZ MONITOR UUO - STORING THE CORRECT PC 5384 LALL 5385 041652 C=[BZMUUO+1] ;CORRECT DATA 5386 000001 A=1 ;ACTUAL DATA 5387 5388 036026 BZMBEG: TNSET^ 5389 036026 201 00 0 00 036026 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5390 036027 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5391 ^ 5392 PAGECN^ 5393 036030 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5394 036031 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5395 ^ 5396 036032 402 00 0 00 044424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO 5397 036033 402 00 0 00 044425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS 5398 036034 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO 5399 036035 202 00 0 00 036045 MOVEM BZMUUO ;TO BE EXECUTED 5400 036036 260 17 0 00 037025 BZMST: GO PAGE1 5401 036037 201 00 0 00 036047 MOVEI BZMUPC ;SET UP TRAP INSTRUCTION 5402 036040 202 00 0 00 044434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP 5403 036041 201 00 0 00 036054 MOVEI BZERR ;SET UP TRAP FOR INCORRECT TRAP 5404 036042 202 00 0 00 044430 MOVEM UPMP+KNTRP ;INTO KERNAL NO TRAP 5405 036043 202 00 0 00 044432 MOVEM UPMP+SNTRP 5406 036044 202 00 0 00 044436 MOVEM UPMP+PNTRP 5407 036045 000000 000000 BZMUUO: 0 ;EXECUTABLE UUO 5408 036046 254 04 0 00 036046 HALT . ;SHOULDN'T UUO DID NOT TRAP 5409 036047 550 01 0 00 044425 BZMUPC: HRRZ 1,UPMP+MUUO+1 ;GET THE PC OF THE UUO 5410 036050 302 01 0 00 036046 CAIE 1,BZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED 5411 ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^ 5412 SALL 5413 036051 036 13 0 00 041653 5414 036052 035 02 0 00 036036 ERLP2 BZMST 5415 036053 254 00 0 00 036056 JRST BWMBEG ;GO TO NEXT SET 5416 036054 BZERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^ 5417 036054 036 13 0 00 041664 5418 036055 035 02 0 00 036036 ERLP2 BZMST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 136 DSKEAM MAC 29-Mar-78 14:55 TEST MUUO'S IN CONCEALED MODE SEQ 0192 5419 ;*MUUO STORING THE CORRECT E FIELD 5420 5421 SALL 5422 041667 T=SIXBTZ MUUO STORING THE CORRECT E FIELD 5423 LALL 5424 000001 A=1 ;ACTUAL DATA 5425 000007 C=7 ;CORRECT DATA 5426 5427 036056 BWMBEG: PAGECN^ 5428 036056 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5429 036057 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5430 ^ 5431 TNSET^ 5432 036060 201 00 0 00 036060 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5433 036061 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5434 ^ 5435 036062 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST 5436 036063 260 17 0 00 037025 BWMST: GO PAGE1 5437 036064 201 00 0 00 036102 MOVEI BWMUPC ;SET UP MUUO TRAP INSTUCTION 5438 036065 202 00 0 00 044434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP 5439 036066 201 00 0 00 036113 MOVEI BWERR ;SET UP FOR INCORRECT TRAP 5440 036067 202 00 0 00 044436 MOVEM UPMP+PNTRP 5441 036070 202 00 0 00 044432 MOVEM UPMP+SNTRP 5442 036071 202 00 0 00 044430 MOVEM UPMP+KNTRP 5443 036072 402 00 0 00 044424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS 5444 036073 402 00 0 00 044425 SETZM UPMP+MUUO+1 5445 036074 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE 5446 036075 202 00 0 00 036077 MOVEM BWMUUO ;AND STORE IT 5447 036076 542 07 0 00 036077 HRRM 7,BWMUUO ;AN A NEW PC 5448 036077 000000 000000 BWMUUO: 0 ;THIS IS THE UUO 5449 ERROR1 13,C,A,MUUO DID NOT TRAP IN CONCEALED,^ 5450 SALL 5451 036100 036 13 0 00 041703 5452 036101 035 02 0 00 036063 ERLP2 BWMST 5453 036102 550 01 0 00 044424 BWMUPC: HRRZ 1,UPMP+MUUO 5454 036103 312 01 0 00 000007 CAME 1,7 ;CORRECT E STORED 5455 ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^ 5456 036104 036 13 0 00 041706 5457 036105 035 02 0 00 036063 ERLP2 BWMST 5458 036106 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD 5459 036107 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS? 5460 036110 254 00 0 00 036115 JRST TRAP0 ;NEXT SET 5461 036111 254 00 0 00 036063 JRST BWMST ;LOOP TEST 5462 036112 254 00 0 00 036115 JRST TRAP0 ;GO TO NEXT SET 5463 036113 BWERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^ 5464 036113 036 13 0 00 041711 5465 036114 035 02 0 00 036063 ERLP2 BWMST DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 137 DSKEAM MAC 29-Mar-78 14:55 TRAP TESTING SEQ 0193 5466 SUBTTL TRAP TESTING 5467 5468 ;*CAUSE TRAPS VIA JRSTF INSTRUCTION 5469 ;*TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO 5470 ;*AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP 5471 ;*TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0 5472 5473 SALL 5474 041714 T=SIXBTZ AROV TRAP TEST 5475 LALL 5476 041717 C=[AROVTP] ;CORRECT DATA 5477 000000 A=0 ;ACTUAL DATA 5478 036115 400 00 0 00 000000 TRAP0: SETZ ;CLEAR AC0 5479 TNSET^ 5480 036116 201 00 0 00 036116 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5481 036117 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5482 ^ 5483 036120 700 04 0 00 200000 RESET 5484 036121 264 00 0 00 037005 TRPSET 5485 036122 7 010 20 0 00 020000 TRAP0A: CONO PAG,LTRPEN 5486 036123 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS 5487 036124 200 00 0 00 041720 MOVE [XWD TN1,.+2] ;TRAP PC WORD FOR JRSTF 5488 036125 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF 5489 036126 302 00 0 00 000421 CAIE 0,AROVTP ;TRAP DID NOT OCCUR 5490 ERROR1 13,C,A,AROV DID NOT TRAP TO 421,^ 5491 SALL 5492 036127 036 13 0 00 041726 5493 036130 035 02 0 00 036122 ERLP2 TRAP0A 5494 5495 ;*TEST PUSHDOWN LIST OVERFLOW TRAP TO 422 5496 SALL 5497 041731 T=SIXBTZ PDLOV TRAP TEST 5498 LALL 5499 041734 C=[PDOVTP] ;CORRECT DATA 5500 000000 A=0 ;ACTUAL DATA 5501 5502 036131 400 00 0 00 000000 TRAP1: SETZ ;CLEAR AC0 5503 TNSET^ 5504 036132 201 00 0 00 036132 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5505 036133 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5506 ^ 5507 036134 700 04 0 00 200000 RESET 5508 036135 264 00 0 00 037005 TRPSET 5509 036136 7 010 20 0 00 020000 TRAP1A: CONO PAG,LTRPEN 5510 036137 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS 5511 036140 200 00 0 00 041735 MOVE [XWD TN0,.+2] ;TRAP PC WORD FOR JRSTF 5512 036141 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF 5513 036142 302 00 0 00 000422 CAIE 0,PDOVTP ;TRAP DID NOT OCCUR 5514 ERROR1 13,C,A,PDOVTP DID NOT TRAP TO 422,^ 5515 SALL 5516 036143 036 13 0 00 041743 5517 036144 035 02 0 00 036136 ERLP2 TRAP1A DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 138 DSKEAM MAC 29-Mar-78 14:55 TRAP TESTING SEQ 0194 5518 ;*TRAP3 TRAP TEST TRAPPING TO 423 5519 5520 SALL 5521 041746 T=SIXBTZ TRAP3 TRAP TEST 5522 LALL 5523 041751 C=[TRP3TP] ;CORRECT DATA 5524 000000 A=0 ;ACTUAL DATA 5525 036145 400 00 0 00 000000 TRP02: SETZ ;CLEAR AC0 5526 TNSET^ 5527 036146 201 00 0 00 036146 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5528 036147 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5529 ^ 5530 036150 700 04 0 00 200000 RESET 5531 036151 264 00 0 00 037005 TRPSET 5532 036152 7 010 20 0 00 020000 CONO PAG,LTRPEN 5533 036153 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS 5534 036154 200 00 0 00 041752 TRAP2A: MOVE [XWD TN0!TN1,.+2] ;PC FOR JRSTF 5535 036155 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF 5536 036156 302 00 0 00 000423 CAIE 0,TRP3TP ;TRAP DID NOT OCCUR 5537 ERROR1 13,C,A,TRAP3 TRAP DID NOT TRAP TO 423,^ 5538 SALL 5539 036157 036 13 0 00 041761 5540 036160 035 02 0 00 036154 ERLP2 TRAP2A DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 139 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0195 5541 SUBTTL FLAG SETTING 5542 000001 MODE=1 5543 5544 FLGTST USERF,^ 5545 ;*TRY TO SET USERF VIA MONITOR UUO TRAP 5546 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5547 5548 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5549 041764 C=[USERF,,..0001] ;CORRECT FLAGS AND PC 5550 5551 036161 7 010 20 0 00 020000 ..0002: CONO PAG,LTRPEN 5552 036162 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5553 TNSET^ 5554 036163 201 00 0 00 036163 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5555 036164 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5556 ^ 5557 036165 255 17 0 00 036166 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5558 036166 336 00 0 00 041765 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5559 036167 254 00 0 00 036172 JRST .+3 5560 PAGECN^ 5561 036170 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5562 036171 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5563 ^ 5564 036172 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5565 036173 202 00 0 00 036207 MOVEM ..0003 ;STORE UUO TO DO 5566 036174 200 00 0 00 041764 MOVE [USERF,,..0001] ;PC AND FLAGS TO RESTORE 5567 036175 202 00 0 00 044434 MOVEM UPMP+CNTRP 5568 036176 202 00 0 00 044435 MOVEM UPMP+CTRP 5569 036177 202 00 0 00 044436 MOVEM UPMP+PNTRP 5570 036200 202 00 0 00 044437 MOVEM UPMP+PTRP 5571 036201 202 00 0 00 044432 MOVEM UPMP+SNTRP 5572 036202 202 00 0 00 044433 MOVEM UPMP+STRP 5573 036203 202 00 0 00 000430 MOVEM KNTRP 5574 036204 202 00 0 00 000431 MOVEM KTRP 5575 036205 402 00 0 00 044424 SETZM UPMP+MUUO 5576 036206 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5577 036207 000000 000000 ..0003: 0 ;HERE IS THE UUO 5578 ERROR ..0002,13,0,0,MUUO DID NOT CAUSE TRAP^ 5579 SALL 5580 036210 036 13 0 00 041772 5581 036211 035 00 0 00 036161 ERLOOP ..0002 ;IF ERROR, LOOP TO ..0002 5582 036212 265 01 0 00 036213 ..0001: JSP 1,.+1 ;GET FLAGS 5583 036213 607 01 0 00 010000 TLNN 1,USERF ;ARE USERF(S) SET? 5584 ERROR ..0002,13,C,A,MUUO DID NOT RE-ENTER USER-MODE^ 5585 SALL 5586 036214 036 13 0 00 042003 5587 036215 035 00 0 00 036161 ERLOOP ..0002 ;IF ERROR, LOOP TO ..0002 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 140 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0196 5588 ;*THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER 5589 ;*MODE RESTORE VIA MUUO 5590 5591 036216 200 00 0 00 042006 USRRTN: MOVE [UEXT] ;PC FOR RETURN 5592 036217 202 00 0 00 044430 MOVEM UPMP+KNTRP 5593 036220 202 00 0 00 044436 MOVEM UPMP+PNTRP 5594 036221 202 00 0 00 044432 MOVEM UPMP+SNTRP 5595 036222 202 00 0 00 044434 MOVEM UPMP+CNTRP 5596 036223 202 00 0 00 044433 MOVEM UPMP+STRP 5597 036224 202 00 0 00 044431 MOVEM UPMP+KTRP 5598 036225 202 00 0 00 044435 MOVEM UPMP+CTRP 5599 036226 202 00 0 00 044437 MOVEM UPMP+PTRP 5600 036227 205 00 0 00 040000 MOVSI 1B21 5601 036230 202 00 0 00 036231 MOVEM .+1 ;UUO TO GET US OUT 5602 036231 000000 000000 USREXT: 0 ;DO THIS UUO TO EXIT TO KERNAL 5603 036232 254 04 0 00 036232 HALT . ;FATAL ERROR (DID NOT ENTER KERNAL 5604 036233 265 00 0 00 036234 UEXT: JSP .+1 ;GET FLAGS 5605 036234 603 00 0 00 010000 TLNE USERF ;STILL IN USER MODE 5606 036235 254 04 0 00 036236 HALT .+1 ;FATAL - TRAPPED FROM UUO BUT STILL 5607 036236 254 00 0 00 036237 JRST .+1 ;IN USER MODE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0197 5608 000001 MODE=1 5609 FLGTST EXIOT,^ 5610 ;*TRY TO SET EXIOT VIA MONITOR UUO TRAP 5611 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5612 5613 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5614 042007 C=[EXIOT,,..0004] ;CORRECT FLAGS AND PC 5615 5616 036237 7 010 20 0 00 020000 ..0005: CONO PAG,LTRPEN 5617 036240 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5618 TNSET^ 5619 036241 201 00 0 00 036241 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5620 036242 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5621 ^ 5622 036243 255 17 0 00 036244 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5623 036244 336 00 0 00 041765 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5624 036245 254 00 0 00 036250 JRST .+3 5625 PAGECN^ 5626 036246 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5627 036247 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5628 ^ 5629 036250 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5630 036251 202 00 0 00 036265 MOVEM ..0006 ;STORE UUO TO DO 5631 036252 200 00 0 00 042007 MOVE [EXIOT,,..0004] ;PC AND FLAGS TO RESTORE 5632 036253 202 00 0 00 044434 MOVEM UPMP+CNTRP 5633 036254 202 00 0 00 044435 MOVEM UPMP+CTRP 5634 036255 202 00 0 00 044436 MOVEM UPMP+PNTRP 5635 036256 202 00 0 00 044437 MOVEM UPMP+PTRP 5636 036257 202 00 0 00 044432 MOVEM UPMP+SNTRP 5637 036260 202 00 0 00 044433 MOVEM UPMP+STRP 5638 036261 202 00 0 00 000430 MOVEM KNTRP 5639 036262 202 00 0 00 000431 MOVEM KTRP 5640 036263 402 00 0 00 044424 SETZM UPMP+MUUO 5641 036264 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5642 036265 000000 000000 ..0006: 0 ;HERE IS THE UUO 5643 ERROR ..0005,13,0,0,MUUO DID NOT CAUSE TRAP^ 5644 SALL 5645 036266 036 13 0 00 041772 5646 036267 035 00 0 00 036237 ERLOOP ..0005 ;IF ERROR, LOOP TO ..0005 5647 036270 265 01 0 00 036271 ..0004: JSP 1,.+1 ;GET FLAGS 5648 036271 607 01 0 00 004000 TLNN 1,EXIOT ;ARE EXIOT(S) SET? 5649 ERROR ..0005,13,C,A,MMUO DID NOT SET EXIOT FLAG^ 5650 SALL 5651 036272 036 13 0 00 042015 5652 036273 035 00 0 00 036237 ERLOOP ..0005 ;IF ERROR, LOOP TO ..0005 5653 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-1 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0198 5654 000000 MODE=0 5655 FLGTST AROV,^ 5656 ;*TRY TO SET AROV VIA MONITOR UUO TRAP 5657 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5658 5659 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5660 042020 C=[AROV,,..0007] ;CORRECT FLAGS AND PC 5661 5662 036274 7 010 20 0 00 020000 ..0010: CONO PAG,LTRPEN 5663 036275 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5664 TNSET^ 5665 036276 201 00 0 00 036276 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5666 036277 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5667 ^ 5668 036300 255 17 0 00 036301 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5669 036301 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5670 036302 254 00 0 00 036305 JRST .+3 5671 PAGECN^ 5672 036303 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5673 036304 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5674 ^ 5675 036305 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5676 036306 202 00 0 00 036322 MOVEM ..0011 ;STORE UUO TO DO 5677 036307 200 00 0 00 042020 MOVE [AROV,,..0007] ;PC AND FLAGS TO RESTORE 5678 036310 202 00 0 00 044434 MOVEM UPMP+CNTRP 5679 036311 202 00 0 00 044435 MOVEM UPMP+CTRP 5680 036312 202 00 0 00 044436 MOVEM UPMP+PNTRP 5681 036313 202 00 0 00 044437 MOVEM UPMP+PTRP 5682 036314 202 00 0 00 044432 MOVEM UPMP+SNTRP 5683 036315 202 00 0 00 044433 MOVEM UPMP+STRP 5684 036316 202 00 0 00 000430 MOVEM KNTRP 5685 036317 202 00 0 00 000431 MOVEM KTRP 5686 036320 402 00 0 00 044424 SETZM UPMP+MUUO 5687 036321 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5688 036322 000000 000000 ..0011: 0 ;HERE IS THE UUO 5689 ERROR ..0010,13,0,0,MUUO DID NOT CAUSE TRAP^ 5690 SALL 5691 036323 036 13 0 00 041772 5692 036324 035 00 0 00 036274 ERLOOP ..0010 ;IF ERROR, LOOP TO ..0010 5693 036325 265 01 0 00 036326 ..0007: JSP 1,.+1 ;GET FLAGS 5694 036326 607 01 0 00 400000 TLNN 1,AROV ;ARE AROV(S) SET? 5695 ERROR ..0010,13,C,A,MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG^ 5696 SALL 5697 036327 036 13 0 00 042030 5698 036330 035 00 0 00 036274 ERLOOP ..0010 ;IF ERROR, LOOP TO ..0010 5699 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-2 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0199 5700 FLGTST CRY0,^ 5701 ;*TRY TO SET CRY0 VIA MONITOR UUO TRAP 5702 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5703 5704 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5705 042033 C=[CRY0,,..0012] ;CORRECT FLAGS AND PC 5706 5707 036331 7 010 20 0 00 020000 ..0013: CONO PAG,LTRPEN 5708 036332 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5709 TNSET^ 5710 036333 201 00 0 00 036333 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5711 036334 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5712 ^ 5713 036335 255 17 0 00 036336 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5714 036336 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5715 036337 254 00 0 00 036342 JRST .+3 5716 PAGECN^ 5717 036340 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5718 036341 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5719 ^ 5720 036342 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5721 036343 202 00 0 00 036357 MOVEM ..0014 ;STORE UUO TO DO 5722 036344 200 00 0 00 042033 MOVE [CRY0,,..0012] ;PC AND FLAGS TO RESTORE 5723 036345 202 00 0 00 044434 MOVEM UPMP+CNTRP 5724 036346 202 00 0 00 044435 MOVEM UPMP+CTRP 5725 036347 202 00 0 00 044436 MOVEM UPMP+PNTRP 5726 036350 202 00 0 00 044437 MOVEM UPMP+PTRP 5727 036351 202 00 0 00 044432 MOVEM UPMP+SNTRP 5728 036352 202 00 0 00 044433 MOVEM UPMP+STRP 5729 036353 202 00 0 00 000430 MOVEM KNTRP 5730 036354 202 00 0 00 000431 MOVEM KTRP 5731 036355 402 00 0 00 044424 SETZM UPMP+MUUO 5732 036356 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5733 036357 000000 000000 ..0014: 0 ;HERE IS THE UUO 5734 ERROR ..0013,13,0,0,MUUO DID NOT CAUSE TRAP^ 5735 SALL 5736 036360 036 13 0 00 041772 5737 036361 035 00 0 00 036331 ERLOOP ..0013 ;IF ERROR, LOOP TO ..0013 5738 036362 265 01 0 00 036363 ..0012: JSP 1,.+1 ;GET FLAGS 5739 036363 607 01 0 00 200000 TLNN 1,CRY0 ;ARE CRY0(S) SET? 5740 ERROR ..0013,13,C,A,MUUO DID NOT SET CRY0 FLAG^ 5741 SALL 5742 036364 036 13 0 00 042041 5743 036365 035 00 0 00 036331 ERLOOP ..0013 ;IF ERROR, LOOP TO ..0013 5744 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-3 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0200 5745 FLGTST CRY1,^ 5746 ;*TRY TO SET CRY1 VIA MONITOR UUO TRAP 5747 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5748 5749 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5750 042044 C=[CRY1,,..0015] ;CORRECT FLAGS AND PC 5751 5752 036366 7 010 20 0 00 020000 ..0016: CONO PAG,LTRPEN 5753 036367 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5754 TNSET^ 5755 036370 201 00 0 00 036370 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5756 036371 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5757 ^ 5758 036372 255 17 0 00 036373 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5759 036373 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5760 036374 254 00 0 00 036377 JRST .+3 5761 PAGECN^ 5762 036375 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5763 036376 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5764 ^ 5765 036377 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5766 036400 202 00 0 00 036414 MOVEM ..0017 ;STORE UUO TO DO 5767 036401 200 00 0 00 042044 MOVE [CRY1,,..0015] ;PC AND FLAGS TO RESTORE 5768 036402 202 00 0 00 044434 MOVEM UPMP+CNTRP 5769 036403 202 00 0 00 044435 MOVEM UPMP+CTRP 5770 036404 202 00 0 00 044436 MOVEM UPMP+PNTRP 5771 036405 202 00 0 00 044437 MOVEM UPMP+PTRP 5772 036406 202 00 0 00 044432 MOVEM UPMP+SNTRP 5773 036407 202 00 0 00 044433 MOVEM UPMP+STRP 5774 036410 202 00 0 00 000430 MOVEM KNTRP 5775 036411 202 00 0 00 000431 MOVEM KTRP 5776 036412 402 00 0 00 044424 SETZM UPMP+MUUO 5777 036413 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5778 036414 000000 000000 ..0017: 0 ;HERE IS THE UUO 5779 ERROR ..0016,13,0,0,MUUO DID NOT CAUSE TRAP^ 5780 SALL 5781 036415 036 13 0 00 041772 5782 036416 035 00 0 00 036366 ERLOOP ..0016 ;IF ERROR, LOOP TO ..0016 5783 036417 265 01 0 00 036420 ..0015: JSP 1,.+1 ;GET FLAGS 5784 036420 607 01 0 00 100000 TLNN 1,CRY1 ;ARE CRY1(S) SET? 5785 ERROR ..0016,13,C,A,MUUO DID NOT SET CRY1 FLAG^ 5786 SALL 5787 036421 036 13 0 00 042052 5788 036422 035 00 0 00 036366 ERLOOP ..0016 ;IF ERROR, LOOP TO ..0016 5789 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-4 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0201 5790 FLGTST FOV,^ 5791 ;*TRY TO SET FOV VIA MONITOR UUO TRAP 5792 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5793 5794 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5795 042055 C=[FOV,,..0020] ;CORRECT FLAGS AND PC 5796 5797 036423 7 010 20 0 00 020000 ..0021: CONO PAG,LTRPEN 5798 036424 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5799 TNSET^ 5800 036425 201 00 0 00 036425 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5801 036426 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5802 ^ 5803 036427 255 17 0 00 036430 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5804 036430 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5805 036431 254 00 0 00 036434 JRST .+3 5806 PAGECN^ 5807 036432 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5808 036433 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5809 ^ 5810 036434 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5811 036435 202 00 0 00 036451 MOVEM ..0022 ;STORE UUO TO DO 5812 036436 200 00 0 00 042055 MOVE [FOV,,..0020] ;PC AND FLAGS TO RESTORE 5813 036437 202 00 0 00 044434 MOVEM UPMP+CNTRP 5814 036440 202 00 0 00 044435 MOVEM UPMP+CTRP 5815 036441 202 00 0 00 044436 MOVEM UPMP+PNTRP 5816 036442 202 00 0 00 044437 MOVEM UPMP+PTRP 5817 036443 202 00 0 00 044432 MOVEM UPMP+SNTRP 5818 036444 202 00 0 00 044433 MOVEM UPMP+STRP 5819 036445 202 00 0 00 000430 MOVEM KNTRP 5820 036446 202 00 0 00 000431 MOVEM KTRP 5821 036447 402 00 0 00 044424 SETZM UPMP+MUUO 5822 036450 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5823 036451 000000 000000 ..0022: 0 ;HERE IS THE UUO 5824 ERROR ..0021,13,0,0,MUUO DID NOT CAUSE TRAP^ 5825 SALL 5826 036452 036 13 0 00 041772 5827 036453 035 00 0 00 036423 ERLOOP ..0021 ;IF ERROR, LOOP TO ..0021 5828 036454 265 01 0 00 036455 ..0020: JSP 1,.+1 ;GET FLAGS 5829 036455 607 01 0 00 040000 TLNN 1,FOV ;ARE FOV(S) SET? 5830 ERROR ..0021,13,C,A,MUUO DID NOT SET FOV FLAG^ 5831 SALL 5832 036456 036 13 0 00 042063 5833 036457 035 00 0 00 036423 ERLOOP ..0021 ;IF ERROR, LOOP TO ..0021 5834 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-5 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0202 5835 FLGTST BIS,^ 5836 ;*TRY TO SET BIS VIA MONITOR UUO TRAP 5837 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5838 5839 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5840 042066 C=[BIS,,..0023] ;CORRECT FLAGS AND PC 5841 5842 036460 7 010 20 0 00 020000 ..0024: CONO PAG,LTRPEN 5843 036461 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5844 TNSET^ 5845 036462 201 00 0 00 036462 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5846 036463 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5847 ^ 5848 036464 255 17 0 00 036465 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5849 036465 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5850 036466 254 00 0 00 036471 JRST .+3 5851 PAGECN^ 5852 036467 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5853 036470 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5854 ^ 5855 036471 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5856 036472 202 00 0 00 036506 MOVEM ..0025 ;STORE UUO TO DO 5857 036473 200 00 0 00 042066 MOVE [BIS,,..0023] ;PC AND FLAGS TO RESTORE 5858 036474 202 00 0 00 044434 MOVEM UPMP+CNTRP 5859 036475 202 00 0 00 044435 MOVEM UPMP+CTRP 5860 036476 202 00 0 00 044436 MOVEM UPMP+PNTRP 5861 036477 202 00 0 00 044437 MOVEM UPMP+PTRP 5862 036500 202 00 0 00 044432 MOVEM UPMP+SNTRP 5863 036501 202 00 0 00 044433 MOVEM UPMP+STRP 5864 036502 202 00 0 00 000430 MOVEM KNTRP 5865 036503 202 00 0 00 000431 MOVEM KTRP 5866 036504 402 00 0 00 044424 SETZM UPMP+MUUO 5867 036505 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5868 036506 000000 000000 ..0025: 0 ;HERE IS THE UUO 5869 ERROR ..0024,13,0,0,MUUO DID NOT CAUSE TRAP^ 5870 SALL 5871 036507 036 13 0 00 041772 5872 036510 035 00 0 00 036460 ERLOOP ..0024 ;IF ERROR, LOOP TO ..0024 5873 036511 265 01 0 00 036512 ..0023: JSP 1,.+1 ;GET FLAGS 5874 036512 607 01 0 00 020000 TLNN 1,BIS ;ARE BIS(S) SET? 5875 ERROR ..0024,13,C,A,MUUO DID NOT SET BIS FLAG^ 5876 SALL 5877 036513 036 13 0 00 042074 5878 036514 035 00 0 00 036460 ERLOOP ..0024 ;IF ERROR, LOOP TO ..0024 5879 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-6 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0203 5880 FLGTST FXU,^ 5881 ;*TRY TO SET FXU VIA MONITOR UUO TRAP 5882 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5883 5884 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5885 042077 C=[FXU,,..0026] ;CORRECT FLAGS AND PC 5886 5887 036515 7 010 20 0 00 020000 ..0027: CONO PAG,LTRPEN 5888 036516 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5889 TNSET^ 5890 036517 201 00 0 00 036517 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5891 036520 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5892 ^ 5893 036521 255 17 0 00 036522 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5894 036522 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5895 036523 254 00 0 00 036526 JRST .+3 5896 PAGECN^ 5897 036524 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5898 036525 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5899 ^ 5900 036526 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5901 036527 202 00 0 00 036543 MOVEM ..0030 ;STORE UUO TO DO 5902 036530 200 00 0 00 042077 MOVE [FXU,,..0026] ;PC AND FLAGS TO RESTORE 5903 036531 202 00 0 00 044434 MOVEM UPMP+CNTRP 5904 036532 202 00 0 00 044435 MOVEM UPMP+CTRP 5905 036533 202 00 0 00 044436 MOVEM UPMP+PNTRP 5906 036534 202 00 0 00 044437 MOVEM UPMP+PTRP 5907 036535 202 00 0 00 044432 MOVEM UPMP+SNTRP 5908 036536 202 00 0 00 044433 MOVEM UPMP+STRP 5909 036537 202 00 0 00 000430 MOVEM KNTRP 5910 036540 202 00 0 00 000431 MOVEM KTRP 5911 036541 402 00 0 00 044424 SETZM UPMP+MUUO 5912 036542 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5913 036543 000000 000000 ..0030: 0 ;HERE IS THE UUO 5914 ERROR ..0027,13,0,0,MUUO DID NOT CAUSE TRAP^ 5915 SALL 5916 036544 036 13 0 00 041772 5917 036545 035 00 0 00 036515 ERLOOP ..0027 ;IF ERROR, LOOP TO ..0027 5918 036546 265 01 0 00 036547 ..0026: JSP 1,.+1 ;GET FLAGS 5919 036547 607 01 0 00 000100 TLNN 1,FXU ;ARE FXU(S) SET? 5920 ERROR ..0027,13,C,A,MUUO DID NOT SET FXU FLAG^ 5921 SALL 5922 036550 036 13 0 00 042105 5923 036551 035 00 0 00 036515 ERLOOP ..0027 ;IF ERROR, LOOP TO ..0027 5924 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-7 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0204 5925 FLGTST DCK,^ 5926 ;*TRY TO SET DCK VIA MONITOR UUO TRAP 5927 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5928 5929 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5930 042110 C=[DCK,,..0031] ;CORRECT FLAGS AND PC 5931 5932 036552 7 010 20 0 00 020000 ..0032: CONO PAG,LTRPEN 5933 036553 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5934 TNSET^ 5935 036554 201 00 0 00 036554 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5936 036555 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5937 ^ 5938 036556 255 17 0 00 036557 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5939 036557 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5940 036560 254 00 0 00 036563 JRST .+3 5941 PAGECN^ 5942 036561 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5943 036562 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5944 ^ 5945 036563 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5946 036564 202 00 0 00 036600 MOVEM ..0033 ;STORE UUO TO DO 5947 036565 200 00 0 00 042110 MOVE [DCK,,..0031] ;PC AND FLAGS TO RESTORE 5948 036566 202 00 0 00 044434 MOVEM UPMP+CNTRP 5949 036567 202 00 0 00 044435 MOVEM UPMP+CTRP 5950 036570 202 00 0 00 044436 MOVEM UPMP+PNTRP 5951 036571 202 00 0 00 044437 MOVEM UPMP+PTRP 5952 036572 202 00 0 00 044432 MOVEM UPMP+SNTRP 5953 036573 202 00 0 00 044433 MOVEM UPMP+STRP 5954 036574 202 00 0 00 000430 MOVEM KNTRP 5955 036575 202 00 0 00 000431 MOVEM KTRP 5956 036576 402 00 0 00 044424 SETZM UPMP+MUUO 5957 036577 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 5958 036600 000000 000000 ..0033: 0 ;HERE IS THE UUO 5959 ERROR ..0032,13,0,0,MUUO DID NOT CAUSE TRAP^ 5960 SALL 5961 036601 036 13 0 00 041772 5962 036602 035 00 0 00 036552 ERLOOP ..0032 ;IF ERROR, LOOP TO ..0032 5963 036603 265 01 0 00 036604 ..0031: JSP 1,.+1 ;GET FLAGS 5964 036604 607 01 0 00 000040 TLNN 1,DCK ;ARE DCK(S) SET? 5965 ERROR ..0032,13,C,A,MUUO DID NOT SET DCK FLAG^ 5966 SALL 5967 036605 036 13 0 00 042116 5968 036606 035 00 0 00 036552 ERLOOP ..0032 ;IF ERROR, LOOP TO ..0032 5969 PAGE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 141-8 DSKEAM MAC 29-Mar-78 14:55 FLAG SETTING SEQ 0205 5970 FLGTST CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,^ 5972 ;*TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP 5973 ;*TRAPS TO ANY MODE IS OK FOR THIS TEST 5974 5975 000001 A=1 ;ACTUAL FLAGS AND PC STORED 5976 042121 C=[CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034] ;CORRECT FLAGS AND PC 5977 5978 036607 7 010 20 0 00 020000 ..0035: CONO PAG,LTRPEN 5979 036610 7 010 14 0 00 037116 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER 5980 TNSET^ 5981 036611 201 00 0 00 036611 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 5982 036612 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 5983 ^ 5984 036613 255 17 0 00 036614 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS 5985 036614 336 00 0 00 037173 SKIPN [MODE] ;DONT PAGE IF MODE = 0 5986 036615 254 00 0 00 036620 JRST .+3 5987 PAGECN^ 5988 036616 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 5989 036617 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 5990 ^ 5991 036620 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO 5992 036621 202 00 0 00 036635 MOVEM ..0036 ;STORE UUO TO DO 5993 036622 200 00 0 00 042121 MOVE [CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034] ;PC AND FLAGS TO RESTORE 5994 036623 202 00 0 00 044434 MOVEM UPMP+CNTRP 5995 036624 202 00 0 00 044435 MOVEM UPMP+CTRP 5996 036625 202 00 0 00 044436 MOVEM UPMP+PNTRP 5997 036626 202 00 0 00 044437 MOVEM UPMP+PTRP 5998 036627 202 00 0 00 044432 MOVEM UPMP+SNTRP 5999 036630 202 00 0 00 044433 MOVEM UPMP+STRP 6000 036631 202 00 0 00 000430 MOVEM KNTRP 6001 036632 202 00 0 00 000431 MOVEM KTRP 6002 036633 402 00 0 00 044424 SETZM UPMP+MUUO 6003 036634 402 00 0 00 044425 SETZM UPMP+MUUOPC ;CLEAR WORK AREAS 6004 036635 000000 000000 ..0036: 0 ;HERE IS THE UUO 6005 ERROR ..0035,13,0,0,MUUO DID NOT CAUSE TRAP^ 6006 SALL 6007 036636 036 13 0 00 041772 6008 036637 035 00 0 00 036607 ERLOOP ..0035 ;IF ERROR, LOOP TO ..0035 6009 036640 265 01 0 00 036641 ..0034: JSP 1,.+1 ;GET FLAGS 6010 TLNN 1,CRY0+CRY1+AROV+FOV+FXU+DCK+BIS ;ARE CRY0+CRY1+AROV+FOV+FXU 6011 036641 607 01 0 00 760140 +DCK+BIS(S) SET? 6012 ERROR ..0035,13,C,A,MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS FLAGS^ 6013 SALL 6014 036642 036 13 0 00 042133 6015 036643 035 00 0 00 036607 ERLOOP ..0035 ;IF ERROR, LOOP TO ..0035 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 142 DSKEAM MAC 29-Mar-78 14:55 TEST IOT'S IN CONCEALED MODE SEQ 0206 6016 SUBTTL TEST IOT'S IN CONCEALED MODE 6017 6018 SALL 6019 042136 T=SIXBTZ IOT MUUO^CONCEALED MODE 6020 LALL 6021 044424 A=UPMP+MUUO 6022 036670 C=IOTCM1 6023 6024 036644 IOTCM: TNSET^ 6025 036644 201 00 0 00 036644 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 6026 036645 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 6027 ^ 6028 PAGECN^ 6029 036646 476 00 0 00 043725 SETOM CNSFLG ;INFORM PAGE ROUTINE 6030 036647 260 17 0 00 037016 GO PAGSET ;THAT I WANT CONCEALED MODE 6031 ^ 6032 6033 036650 402 00 0 00 000010 SETZM 10 ;INIT COUNTER 6034 6035 036651 200 00 0 10 036717 IOTCM0: MOVE IOTTAB(10) ;SETUP IOT FOR EXECUTION 6036 036652 202 00 0 00 036670 MOVEM IOTCM1 6037 6038 036653 260 17 0 00 037025 GO PAGE1 6039 036654 201 00 0 00 036676 MOVEI IOTCM3 ;SETUP MUUO TRAP PC 6040 036655 202 00 0 00 044434 MOVEM UPMP+CNTRP 6041 036656 201 00 0 00 036674 MOVEI IOTCM2 ;SETUP FOR INCORRECT TRAP 6042 036657 202 00 0 00 044430 MOVEM UPMP+KNTRP 6043 036660 202 00 0 00 044436 MOVEM UPMP+PNTRP 6044 036661 202 00 0 00 044432 MOVEM UPMP+SNTRP 6045 036662 202 00 0 00 044431 MOVEM UPMP+KTRP 6046 036663 202 00 0 00 044433 MOVEM UPMP+STRP 6047 036664 202 00 0 00 044437 MOVEM UPMP+PTRP 6048 036665 202 00 0 00 044435 MOVEM UPMP+CTRP 6049 6050 036666 402 00 0 00 044424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS 6051 036667 403 00 0 00 044425 SETZB 0,UPMP+MUUO+1 6052 6053 036670 000000 000000 IOTCM1: 0 ;DO "IOT" 6054 6055 ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^ 6056 SALL 6057 036671 036 13 0 00 042146 6058 036672 035 02 0 00 036651 ERLP2 IOTCM0 6059 036673 254 00 0 00 036676 JRST IOTCM3 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 143 DSKEAM MAC 29-Mar-78 14:55 TEST IOT'S IN CONCEALED MODE SEQ 0207 6060 036674 IOTCM2: ERROR1 13,C,A,IOT DID NOT TRAP TO PROPER TRAP^ 6061 036674 036 13 0 00 042157 6062 036675 035 02 0 00 036651 ERLP2 IOTCM0 6063 6064 036676 200 00 0 00 044424 IOTCM3: MOVE UPMP+MUUO ;GET SAVED MUUO 6065 036677 312 00 0 00 036670 CAME IOTCM1 6066 ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^ 6067 036700 036 13 0 00 042170 6068 036701 035 02 0 00 036651 ERLP2 IOTCM0 6069 6070 042173 C=[IOTCM1+1] 6071 000001 A=1 6072 6073 036702 550 01 0 00 044425 HRRZ 1,UPMP+MUUO+1 ;GET SAVED PC 6074 036703 302 01 0 00 036671 CAIE 1,IOTCM1+1 6075 ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC,,IOTCMX^ 6076 036704 036 13 0 00 042202 6077 036705 035 02 0 00 036651 ERLP2 IOTCM0 6078 6079 036706 350 00 0 00 000010 AOS 10 6080 036707 302 10 0 00 000013 CAIE 10,^D11 ;DONE ALL ILLEGAL IOT'S ? 6081 036710 254 00 0 00 036651 JRST IOTCM0 ;NOT YET 6082 036711 254 00 0 00 036733 JRST UBLT ;YES, TO NEXT TEST 6083 6084 036712 IOTCMX: PMSG ^ 6085 036712 037 02 0 00 042205 PSIXM [SIXBIT\IOT = _\]^ 6086 036713 200 00 0 00 036670 MOVE IOTCM1 6087 036714 037 13 0 00 000000 PNTHW 6088 036715 037 00 0 00 030242 PCRL 6089 036716 263 17 0 00 000000 RTN DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 144 DSKEAM MAC 29-Mar-78 14:55 TEST IOT'S IN CONCEALED MODE SEQ 0208 6090 ;*ILLEGAL USER MODE IOT TABLE 6091 6092 036717 7 000 20 0 00 000000 IOTTAB: CONO 6093 036720 7 000 24 0 00 000000 CONI 6094 036721 7 000 14 0 00 000000 DATAO 6095 036722 7 000 04 0 00 000000 DATAI 6096 036723 7 000 30 0 00 000000 CONSZ 6097 036724 7 000 34 0 00 000000 CONSO 6098 036725 7 000 10 0 00 000000 BLKO 6099 036726 7 000 00 0 00 000000 BLKI 6100 036727 254 04 0 00 000000 HALT 6101 036730 254 12 0 00 000000 JEN 6102 036731 254 10 0 00 000000 JRST 10, 6103 036732 254 04 0 00 000000 HALT DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 145 DSKEAM MAC 29-Mar-78 14:55 TEST USER MODE ADDRESSING SEQ 0209 6104 SUBTTL TEST USER MODE ADDRESSING 6105 6106 ;*USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER 6107 6108 SALL 6109 042207 T=SIXBTZ USER MODE CONCEALED^MAXIMUM BLOCK TRANSFER 6110 LALL 6111 6112 044424 A=UPMP+MUUO 6113 042217 C=[HALT 13] 6114 6115 036733 UBLT: 6116 036733 UBLT3: TNSET^ 6117 036733 201 00 0 00 036733 MOVEI . ;STORE THIS PC IN CASE WE GET LOST 6118 036734 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST 6119 ^ 6120 036735 201 00 0 00 540045 UBLT4: MOVEI <_-^D9>!540000 6121 036736 504 00 0 00 000000 HRL ;SETUP PAGE TABLE ENTRY 6122 036737 205 01 0 00 777400 MOVSI 1,-1000/2 ;SO ALL PAGES POINT TO SAME 512 WORDS 6123 036740 202 00 0 01 044000 MOVEM UPMP(1) 6124 036741 253 01 0 00 036740 AOBJN 1,.-1 6125 6126 036742 200 10 0 00 042220 MOVE 10,[JRST 1,11] ;PORTAL 6127 036743 200 11 0 00 042221 MOVE 11,[SETOM 20] ;SET FIRST LOC 6128 036744 200 12 0 00 042222 MOVE 12,[BLT 7,777777] ;MAX BLT 6129 036745 200 13 0 00 042217 MOVE 13,[HALT 13] ;MUUO TO GET BACK TO EXEC 6130 036746 200 07 0 00 042223 MOVE 7,[20,,21] ;BLT START ADDRESSES 6131 6132 036747 201 00 0 00 036766 MOVEI UBLT5 ;SETUP FOR TERMINATION MUUO 6133 036750 202 00 0 00 044434 MOVEM UPMP+CNTRP 6134 036751 201 00 0 00 036777 MOVEI UBLT6 ;SETUP FOR ERROR TERMINATION MUUO 6135 036752 202 00 0 00 044435 MOVEM UPMP+CTRP 6136 036753 202 00 0 00 044436 MOVEM UPMP+PNTRP 6137 036754 202 00 0 00 044437 MOVEM UPMP+PTRP 6138 6139 036755 402 00 0 00 044424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS 6140 036756 402 00 0 00 044425 SETZM UPMP+MUUO+1 6141 6142 036757 200 00 0 00 042224 MOVE [0,,UPMP+LPGFTRP] ;SETUP FOR PAGE FAIL 6143 036760 202 00 0 00 044502 MOVEM UPMP+LPGFTRP ;HANDLE VIA MUUO 6144 6145 036761 7 010 20 0 00 020000 CONO PAG,LTRPEN 6146 036762 7 010 14 0 00 042225 DATAO PAG,[LLDUSB,,400000!] 6147 6148 036763 254 02 1 00 036764 JRSTF @.+1 ;GO TO USER MODE 6149 036764 010000 000010 USERF,,10 ;IN THE AC'S 6150 036765 254 04 0 00 036765 HALT . DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 146 DSKEAM MAC 29-Mar-78 14:55 TEST USER MODE ADDRESSING SEQ 0210 6151 036766 200 00 0 00 044424 UBLT5: MOVE UPMP+MUUO ;COMPLETED, CHECK RESULTS 6152 036767 312 00 0 00 042217 CAME [HALT 13] 6153 ERROR1 13,C,A,INCORRECT TERMINATION MUUO^ 6154 SALL 6155 036770 036 13 0 00 042233 6156 036771 035 02 0 00 036735 ERLP2 UBLT4 6157 6158 044425 A=UPMP+MUUO+1 6159 042236 C=[USERF,,14] 6160 6161 036772 200 00 0 00 044425 MOVE UPMP+MUUO+1 6162 036773 312 00 0 00 042236 CAME [USERF,,14] 6163 ERROR1 13,C,A,INCORRECT TERMINATION PC^ 6164 036774 036 13 0 00 042244 6165 036775 035 02 0 00 036735 ERLP2 UBLT4 6166 036776 254 00 0 00 037003 JRST UBLT7 6167 6168 000005 C=5 6169 000006 A=6 6170 6171 036777 200 05 0 00 044500 UBLT6: MOVE 5,UPMP+LEUPFW 6172 037000 200 06 0 00 044425 MOVE 6,UPMP+MUUO+1 6173 ERROR1 13,C,A,PAGE FAILURE,^ 6174 037001 036 13 0 00 042257 6175 037002 035 02 0 00 036735 ERLP2 UBLT4 6176 6177 037003 254 00 0 00 037004 UBLT7: JRST LAST 6178 6179 037004 254 00 0 00 030057 LAST: JRST BEGEND DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 147 DSKEAM MAC 29-Mar-78 14:55 SPECIAL PROGRAM SUBROUTINES SEQ 0211 6180 SUBTTL SPECIAL PROGRAM SUBROUTINES 6181 6182 IFNDEF PAGSIZ, 6183 6184 037005 000000 000000 TRAPST: 0 ;FOR JSR 6185 037006 202 00 0 00 043740 MOVEM XAC0# ;SAVE AC0 6186 037007 200 00 0 00 042262 MOVE [TPLST,,421] ;BLT POINTER 6187 037010 251 00 0 00 000423 BLT 423 ;FILL LOCATIONS 6188 037011 200 00 0 00 043740 MOVE XAC0 ;RESTORE AC0 6189 037012 254 00 1 00 037005 JRST @TRAPST ;RETURN 6190 6191 037013 201 00 0 00 000421 TPLST: MOVEI 421 6192 037014 201 00 0 00 000422 MOVEI 422 6193 037015 201 00 0 00 000423 MOVEI 423 6194 6195 ;*PAGE TABLE SETUP 6196 6197 037016 205 01 0 00 777754 PAGSET: MOVSI 1,-PAGSIZ ;SET UP PAGE COUNT 6198 037017 200 00 0 00 042263 MOVE [737776,,737777] ;ADDRESS 6199 037020 332 00 0 00 043725 SKIPE CNSFLG# ;IF CONCEALED DONT SET PUBLIC 6200 037021 200 00 0 00 042264 MOVE [537776,,537777] 6201 037022 270 00 0 00 040357 ADD [2,,2] ;NEW ADRESS 6202 037023 202 00 0 01 044000 MOVEM UPMP(1) ;STORE PAGE MAP 6203 037024 253 01 0 00 037022 AOBJN 1,.-2 ;LOOP TILL DONE 6204 037025 265 01 0 00 037026 PAGE1: JSP 1,.+1 6205 037026 603 01 0 00 010000 TLNE 1,USERF ;IF IN USER MODE FORGET PAGE RESET 6206 037027 263 17 0 00 000000 POPJ P, ;EXIT DIRECTLY 6207 037030 7 010 20 0 00 020000 CONO PAG,LTRPEN 6208 037031 7 010 14 0 00 042225 DATAO PAG,[LLDUSB,,400000!] 6209 037032 254 02 1 00 037033 JRSTF @.+1 ;ENTER USER MODE 6210 037033 010000 037034 USERF,,.+1 ;ENTRY FLAG 6211 037034 254 01 0 00 037035 JRST 1,.+1 ;ENTRY 6212 037035 265 00 0 00 037036 JSP .+1 ;GET FLAGS 6213 037036 607 00 0 00 010000 TLNN USERF ;DID WE GET INTO USER MODE? 6214 ERROR1 13,C,A,ENTRY TO USER MODE UNSUCESSFUL,JRSTF FAILED^ 6215 037037 036 13 0 00 042276 6216 037040 035 02 0 00 037016 ERLP2 PAGSET 6217 037041 263 17 0 00 000000 POPJ P, ;RETURN TO CALLING SEQUENCE DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0212 6218 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 6219 6220 ;PROGRAM LITERALS 6221 6222 XLIST 6223 IFNDEF $LPAPER, 6224 037042 LIT 6225 037042 42 41 63 45 00 62 6226 037043 45 47 51 63 64 45 6227 037044 62 00 64 45 63 64 6228 037045 77 00 00 00 00 00 6229 037046 45 42 62 77 00 00 6230 037047 41 54 54 00 00 20 6231 037050 07 63 77 00 00 00 6232 037051 037042 037046 6233 037052 000014 000013 6234 037053 037047 000000 6235 037054 56 57 00 42 51 64 6236 037055 63 00 63 45 64 77 6237 037056 037042 037046 6238 037057 000014 000013 6239 037060 037054 000000 6240 037061 64 62 41 60 00 45 6241 037062 56 41 42 54 45 00 6242 037063 42 51 64 77 00 00 6243 037064 037042 037046 6244 037065 000014 000013 6245 037066 037061 000000 6246 037067 46 54 57 41 64 51 6247 037070 56 47 00 21 77 00 6248 037071 037042 037046 6249 037072 000014 000013 6250 037073 037067 000000 6251 037074 41 54 54 00 21 07 6252 037075 63 77 00 00 00 00 6253 037076 037042 037046 6254 037077 000014 000013 6255 037100 037074 000000 6256 037101 46 54 57 41 64 51 6257 037102 56 47 00 20 77 00 6258 037103 037042 037046 6259 037104 000014 000013 6260 037105 037101 000000 6261 037106 500000 400000 6262 037107 65 42 62 77 00 00 6263 037110 41 54 54 00 20 07 6264 037111 63 77 00 00 00 00 6265 037112 037042 037107 6266 037113 000014 000013 6267 037114 037110 000000 6268 037115 100000 403777 6269 037116 100000 400000 6270 037117 037042 037107 6271 037120 000014 000013 6272 037121 037054 000000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0213 6273 037122 100000 400001 6274 037123 037042 037107 6275 037124 000014 000013 6276 037125 037067 000000 6277 037126 100000 400002 6278 037127 100000 400004 6279 037130 100000 400010 6280 037131 100000 400020 6281 037132 100000 400040 6282 037133 100000 400100 6283 037134 100000 400200 6284 037135 100000 400400 6285 037136 100000 401000 6286 037137 100000 402000 6287 037140 037042 037107 6288 037141 000014 000013 6289 037142 037074 000000 6290 037143 100000 403776 6291 037144 037042 037107 6292 037145 000014 000013 6293 037146 037101 000000 6294 037147 100000 403775 6295 037150 100000 403773 6296 037151 100000 403767 6297 037152 100000 403757 6298 037153 100000 403737 6299 037154 100000 403677 6300 037155 100000 403577 6301 037156 100000 403377 6302 037157 100000 402777 6303 037160 100000 401777 6304 037161 60 62 57 43 45 63 6305 037162 63 57 62 00 64 62 6306 037163 41 60 00 64 45 63 6307 037164 64 77 00 00 00 00 6308 037165 264 00 0 00 031537 6309 037166 64 62 41 60 00 23 6310 037167 00 46 41 51 54 45 6311 037170 44 77 00 00 00 00 6312 037171 46 41 64 41 54 77 6313 037172 037161 037166 6314 037173 000000 000000 6315 037174 037171 000000 6316 037175 000000 031533 6317 037176 64 62 41 60 00 23 6318 037177 00 63 41 66 45 44 6319 037200 00 60 43 77 00 00 6320 037201 037161 037176 6321 037202 000014 000013 6322 037203 037045 000000 6323 037204 264 00 0 00 031561 6324 037205 64 62 41 60 00 22 6325 037206 00 46 41 51 54 45 6326 037207 44 77 00 00 00 00 6327 037210 037161 037205 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0214 6328 037211 000000 000000 6329 037212 037171 000000 6330 037213 000000 031555 6331 037214 64 62 41 60 00 22 6332 037215 00 63 41 66 45 44 6333 037216 00 60 43 77 00 00 6334 037217 037161 037214 6335 037220 000014 000013 6336 037221 037045 000000 6337 037222 264 00 0 00 031603 6338 037223 64 62 41 60 00 21 6339 037224 00 46 41 51 54 45 6340 037225 44 77 00 00 00 00 6341 037226 037161 037223 6342 037227 000000 000000 6343 037230 037171 000000 6344 037231 000000 031577 6345 037232 64 62 41 60 00 21 6346 037233 00 63 41 66 45 44 6347 037234 00 60 43 77 00 00 6348 037235 037161 037232 6349 037236 000014 000013 6350 037237 037045 000000 6351 037240 777777 032365 6352 037241 60 65 63 50 77 00 6353 037242 60 65 63 50 00 44 6354 037243 51 44 00 56 57 64 6355 037244 00 64 62 41 60 77 6356 037245 037161 037241 6357 037246 000000 000000 6358 037247 037242 000000 6359 037250 000000 032366 6360 037251 44 51 44 00 56 57 6361 037252 64 00 51 56 43 62 6362 037253 45 55 45 56 64 00 6363 037254 60 57 51 56 64 45 6364 037255 62 77 00 00 00 00 6365 037256 037161 037241 6366 037257 037250 000001 6367 037260 037251 000000 6368 037261 44 51 44 00 56 57 6369 037262 64 00 63 64 57 62 6370 037263 45 00 44 41 64 41 6371 037264 77 00 00 00 00 00 6372 037265 037161 037241 6373 037266 032365 000001 6374 037267 037261 000000 6375 037270 60 65 63 50 52 77 6376 037271 44 51 44 00 56 57 6377 037272 64 00 64 62 41 60 6378 037273 00 57 62 00 43 41 6379 037274 54 43 00 45 41 77 6380 037275 037161 037270 6381 037276 000000 000000 6382 037277 037271 000000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-3 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0215 6383 037300 44 51 44 00 56 57 6384 037301 64 00 64 62 41 60 6385 037302 77 00 00 00 00 00 6386 037303 037161 037270 6387 037304 000000 000000 6388 037305 037300 000000 6389 037306 037161 037270 6390 037307 037250 000001 6391 037310 037251 000000 6392 037311 44 51 44 00 56 57 6393 037312 64 00 63 41 66 45 6394 037313 00 62 51 47 50 64 6395 037314 00 62 45 64 00 41 6396 037315 44 44 62 77 00 00 6397 037316 037161 037270 6398 037317 000002 000001 6399 037320 037311 000000 6400 037321 60 57 60 77 00 00 6401 037322 037161 037321 6402 037323 000000 000000 6403 037324 037300 000000 6404 037325 44 51 44 00 56 57 6405 037326 64 00 62 45 63 64 6406 037327 57 62 45 00 44 41 6407 037330 64 41 77 00 00 00 6408 037331 037161 037321 6409 037332 032365 000002 6410 037333 037325 000000 6411 037334 44 51 44 00 56 57 6412 037335 64 00 44 45 43 62 6413 037336 45 55 45 56 64 00 6414 037337 60 57 51 56 64 45 6415 037340 62 77 00 00 00 00 6416 037341 037161 037321 6417 037342 037240 000001 6418 037343 037334 000000 6419 037344 60 57 60 52 77 00 6420 037345 44 51 44 00 56 57 6421 037346 64 00 64 62 41 60 6422 037347 00 57 62 00 47 45 6423 037350 64 00 62 45 64 65 6424 037351 62 56 00 41 44 62 6425 037352 77 00 00 00 00 00 6426 037353 037161 037344 6427 037354 000000 000000 6428 037355 037345 000000 6429 037356 037161 037344 6430 037357 000000 000000 6431 037360 037300 000000 6432 037361 037161 037344 6433 037362 037240 000001 6434 037363 037334 000000 6435 037364 377777 777777 6436 037365 41 63 50 00 57 66 6437 037366 45 62 46 54 57 67 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-4 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0216 6438 037367 77 00 00 00 00 00 6439 037370 037161 037365 6440 037371 000000 000000 6441 037372 037300 000000 6442 037373 377777 777776 6443 037374 41 43 00 67 62 57 6444 037375 56 47 77 00 00 00 6445 037376 037161 037365 6446 037377 037373 000002 6447 037400 037374 000000 6448 037401 41 63 50 43 00 57 6449 037402 66 45 62 46 54 57 6450 037403 67 77 00 00 00 00 6451 037404 037161 037401 6452 037405 000000 000000 6453 037406 037300 000000 6454 037407 037161 037401 6455 037410 037373 000002 6456 037411 037374 000000 6457 037412 400000 000000 6458 037413 55 65 54 00 57 66 6459 037414 45 62 46 54 57 67 6460 037415 77 00 00 00 00 00 6461 037416 037161 037413 6462 037417 000000 000000 6463 037420 037300 000000 6464 037421 41 43 00 55 57 44 6465 037422 51 46 51 45 44 77 6466 037423 037161 037413 6467 037424 037412 000002 6468 037425 037421 000000 6469 037426 51 55 65 54 00 57 6470 037427 66 45 62 46 54 57 6471 037430 67 77 00 00 00 00 6472 037431 037161 037426 6473 037432 000000 000000 6474 037433 037300 000000 6475 037434 037161 037426 6476 037435 037412 000002 6477 037436 037421 000000 6478 037437 017700 000000 6479 037440 41 44 52 42 60 00 6480 037441 57 66 45 62 46 54 6481 037442 57 67 77 00 00 00 6482 037443 037161 037440 6483 037444 000000 000000 6484 037445 037300 000000 6485 037446 400400 000000 6486 037447 46 63 43 00 57 66 6487 037450 45 62 46 54 57 67 6488 037451 77 00 00 00 00 00 6489 037452 037161 037447 6490 037453 000000 000000 6491 037454 037300 000000 6492 037455 244400 000000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-5 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0217 6493 037456 46 51 70 00 57 66 6494 037457 45 62 46 54 57 67 6495 037460 77 00 00 00 00 00 6496 037461 037161 037456 6497 037462 000000 000000 6498 037463 037300 000000 6499 037464 037161 037456 6500 037465 037455 000002 6501 037466 037421 000000 6502 037467 46 51 70 62 00 57 6503 037470 66 45 62 46 54 57 6504 037471 67 77 00 00 00 00 6505 037472 037161 037467 6506 037473 000000 000000 6507 037474 037300 000000 6508 037475 037161 037467 6509 037476 037455 000002 6510 037477 037421 000000 6511 037500 377400 000000 6512 037501 46 41 44 00 57 66 6513 037502 45 62 46 54 57 67 6514 037503 77 00 00 00 00 00 6515 037504 037161 037501 6516 037505 000000 000000 6517 037506 037300 000000 6518 037507 44 46 41 44 00 57 6519 037510 66 45 62 46 54 57 6520 037511 67 77 00 00 00 00 6521 037512 037161 037507 6522 037513 000000 000000 6523 037514 037300 000000 6524 037515 46 63 42 00 57 66 6525 037516 45 62 46 54 57 67 6526 037517 77 00 00 00 00 00 6527 037520 037161 037515 6528 037521 000000 000000 6529 037522 037300 000000 6530 037523 44 46 63 42 00 57 6531 037524 66 45 62 46 54 57 6532 037525 67 77 00 00 00 00 6533 037526 037161 037523 6534 037527 000000 000000 6535 037530 037300 000000 6536 037531 46 55 60 00 57 66 6537 037532 45 62 46 54 57 67 6538 037533 77 00 00 00 00 00 6539 037534 037161 037531 6540 037535 000000 000000 6541 037536 037300 000000 6542 037537 44 46 55 60 00 57 6543 037540 66 45 62 46 54 57 6544 037541 67 77 00 00 00 00 6545 037542 037161 037537 6546 037543 000000 000000 6547 037544 037300 000000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-6 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0218 6548 037545 44 51 66 00 56 57 6549 037546 00 44 51 66 51 44 6550 037547 45 77 00 00 00 00 6551 037550 037161 037545 6552 037551 000000 000000 6553 037552 037300 000000 6554 037553 037161 037545 6555 037554 037173 000002 6556 037555 037421 000000 6557 037556 41 43 13 21 00 55 6558 037557 57 44 51 46 51 45 6559 037560 44 77 00 00 00 00 6560 037561 037161 037545 6561 037562 037173 000003 6562 037563 037556 000000 6563 037564 51 44 51 66 00 56 6564 037565 57 00 44 51 66 51 6565 037566 44 45 77 00 00 00 6566 037567 037161 037564 6567 037570 000000 000000 6568 037571 037300 000000 6569 037572 037161 037564 6570 037573 037173 000002 6571 037574 037421 000000 6572 037575 037161 037564 6573 037576 037173 000003 6574 037577 037556 000000 6575 037600 46 44 66 00 56 57 6576 037601 00 44 51 66 51 44 6577 037602 45 77 00 00 00 00 6578 037603 037161 037600 6579 037604 000000 000000 6580 037605 037300 000000 6581 037606 037161 037600 6582 037607 037173 000002 6583 037610 037421 000000 6584 037611 037161 037600 6585 037612 037173 000003 6586 037613 037556 000000 6587 037614 46 44 66 62 00 56 6588 037615 57 00 44 51 66 51 6589 037616 44 45 77 00 00 00 6590 037617 037161 037614 6591 037620 000000 000000 6592 037621 037300 000000 6593 037622 037161 037614 6594 037623 037173 000002 6595 037624 037421 000000 6596 037625 037161 037614 6597 037626 037173 000003 6598 037627 037556 000000 6599 037630 44 46 44 66 00 56 6600 037631 57 00 44 51 66 51 6601 037632 44 45 77 00 00 00 6602 037633 037161 037630 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-7 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0219 6603 037634 000000 000000 6604 037635 037300 000000 6605 037636 037161 037630 6606 037637 037173 000002 6607 037640 037421 000000 6608 037641 037161 037630 6609 037642 037173 000003 6610 037643 037556 000000 6611 037644 42 41 44 00 64 62 6612 037645 41 60 77 00 00 00 6613 037646 037161 037644 6614 037647 032360 000001 6615 037650 037045 000000 6616 037651 55 41 60 00 51 56 6617 037652 63 64 00 64 45 63 6618 037653 64 77 00 00 00 00 6619 037654 161000 000000 6620 037655 55 41 60 00 41 44 6621 037656 62 00 20 77 00 00 6622 037657 037651 037655 6623 037660 000014 000013 6624 037661 037045 000000 6625 037662 161000 337000 6626 037663 55 41 60 00 41 44 6627 037664 62 00 23 23 27 20 6628 037665 20 20 77 00 00 00 6629 037666 037651 037663 6630 037667 000014 000013 6631 037670 037045 000000 6632 037671 000200 000201 6633 037672 001000 400000 6634 037673 55 41 60 00 41 44 6635 037674 62 00 24 20 20 20 6636 037675 20 20 77 00 00 00 6637 037676 60 41 47 45 00 55 6638 037677 41 60 00 43 54 45 6639 037700 41 62 77 00 00 00 6640 037701 037651 037673 6641 037702 000014 000013 6642 037703 037676 000000 6643 037704 001000 777000 6644 037705 55 41 60 00 41 44 6645 037706 62 00 27 27 27 20 6646 037707 20 20 77 00 00 00 6647 037710 037651 037705 6648 037711 000014 000013 6649 037712 037676 000000 6650 037713 41 54 54 00 42 65 6651 037714 64 00 41 43 43 45 6652 037715 63 63 77 00 00 00 6653 037716 037651 037673 6654 037717 000014 000013 6655 037720 037713 000000 6656 037721 037651 037705 6657 037722 000014 000013 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-8 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0220 6658 037723 037713 000000 6659 037724 60 41 47 45 00 46 6660 037725 41 51 54 00 64 62 6661 037726 41 60 00 64 45 63 6662 037727 64 77 00 00 00 00 6663 037730 64 62 41 60 00 46 6664 037731 41 51 54 45 44 77 6665 037732 62 45 46 00 64 57 6666 037733 00 24 20 20 20 20 6667 037734 20 77 00 00 00 00 6668 037735 037724 037730 6669 037736 000000 000013 6670 037737 037732 000000 6671 037740 60 41 47 45 00 46 6672 037741 41 51 54 00 63 64 6673 037742 57 62 45 44 00 51 6674 037743 56 00 41 43 77 00 6675 037744 037724 037740 6676 037745 000014 000013 6677 037746 037732 000000 6678 037747 60 41 47 45 00 46 6679 037750 41 51 54 00 63 64 6680 037751 57 62 45 44 00 51 6681 037752 56 00 20 77 00 00 6682 037753 037724 037747 6683 037754 000014 000013 6684 037755 037732 000000 6685 037756 60 41 47 45 00 46 6686 037757 41 51 54 00 67 57 6687 037760 62 44 00 67 62 57 6688 037761 56 47 77 00 00 00 6689 037762 037724 037756 6690 037763 000014 000013 6691 037764 037732 000000 6692 037765 56 57 56 15 70 15 6693 037766 55 45 55 77 00 00 6694 037767 037724 037765 6695 037770 000014 000013 6696 037771 037732 000000 6697 037772 62 45 46 00 64 57 6698 037773 00 27 27 27 27 27 6699 037774 27 77 00 00 00 00 6700 037775 037724 037730 6701 037776 000000 000013 6702 037777 037772 000000 6703 040000 037724 037740 6704 040001 000014 000013 6705 040002 037772 000000 6706 040003 037724 037747 6707 040004 000014 000013 6708 040005 037772 000000 6709 040006 001000 777777 6710 040007 037724 037756 6711 040010 000014 000013 6712 040011 037772 000000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-9 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0221 6713 040012 037724 037765 6714 040013 000014 000013 6715 040014 037772 000000 6716 040015 45 70 45 43 15 60 6717 040016 45 62 15 60 62 57 6718 040017 43 45 63 63 00 55 6719 040020 41 60 00 64 45 63 6720 040021 64 77 00 00 00 00 6721 040022 001000 340000 6722 040023 55 41 60 00 41 44 6723 040024 62 00 23 24 20 20 6724 040025 20 20 77 00 00 00 6725 040026 040015 040023 6726 040027 000014 000013 6727 040030 037676 000000 6728 040031 001000 377000 6729 040032 55 41 60 00 41 44 6730 040033 62 00 23 27 27 20 6731 040034 20 20 77 00 00 00 6732 040035 040015 040032 6733 040036 000014 000013 6734 040037 037676 000000 6735 040040 040015 040023 6736 040041 000014 000013 6737 040042 037713 000000 6738 040043 040015 040032 6739 040044 000014 000013 6740 040045 037713 000000 6741 040046 55 41 60 00 62 45 6742 040047 41 44 57 65 64 00 6743 040050 46 41 51 54 65 62 6744 040051 45 77 00 00 00 00 6745 040052 040015 040046 6746 040053 000014 000013 6747 040054 040032 000000 6748 040055 161003 777000 6749 040056 040015 040046 6750 040057 000014 000013 6751 040060 040023 000000 6752 040061 46 54 57 41 64 51 6753 040062 56 47 00 42 51 64 6754 040063 00 64 45 63 64 77 6755 040064 040061 040046 6756 040065 000014 000013 6757 040066 037045 032707 6758 040067 62 45 46 00 64 57 6759 040070 00 77 00 00 00 00 6760 040071 64 62 41 60 00 64 6761 040072 45 63 64 77 00 00 6762 040073 62 45 46 00 64 57 6763 040074 00 10 43 57 62 62 6764 040075 45 43 64 11 77 00 6765 040076 040071 037730 6766 040077 000014 000013 6767 040100 040073 000000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-10 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0222 6768 040101 040071 037740 6769 040102 000014 000013 6770 040103 037045 000000 6771 040104 040071 037747 6772 040105 000014 000013 6773 040106 037045 000000 6774 040107 040071 037756 6775 040110 000014 000013 6776 040111 037045 000000 6777 040112 60 41 47 45 44 00 6778 040113 44 41 64 41 00 62 6779 040114 45 41 44 00 64 45 6780 040115 63 64 77 00 00 00 6781 040116 44 41 64 41 00 45 6782 040117 62 62 57 62 77 00 6783 040120 41 44 62 00 24 20 6784 040121 20 70 70 70 77 00 6785 040122 040112 040116 6786 040123 000014 000013 6787 040124 040120 000000 6788 040125 41 44 62 00 27 27 6789 040126 27 70 70 70 77 00 6790 040127 040112 040116 6791 040130 000014 000013 6792 040131 040125 000000 6793 040132 51 56 43 00 60 41 6794 040133 47 51 56 47 00 41 6795 040134 44 62 07 63 77 00 6796 040135 040112 040116 6797 040136 000014 000013 6798 040137 040132 033115 6799 040140 62 45 66 45 62 63 6800 040141 45 00 62 45 41 44 6801 040142 77 00 00 00 00 00 6802 040143 040112 040116 6803 040144 000014 000013 6804 040145 040140 033115 6805 040146 60 41 47 45 44 00 6806 040147 44 41 64 41 00 67 6807 040150 62 51 64 45 00 64 6808 040151 45 63 64 77 00 00 6809 040152 377000 400777 6810 040153 60 41 47 45 44 00 6811 040154 62 45 62 45 41 44 6812 040155 77 00 00 00 00 00 6813 040156 040146 040153 6814 040157 000014 000013 6815 040160 040120 000000 6816 040161 44 51 62 45 43 64 6817 040162 00 62 45 62 45 41 6818 040163 44 77 00 00 00 00 6819 040164 040146 040161 6820 040165 000014 000013 6821 040166 040120 000000 6822 040167 000777 777000 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-11 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0223 6823 040170 040146 040153 6824 040171 000014 000013 6825 040172 040125 000000 6826 040173 040146 040161 6827 040174 000014 000013 6828 040175 040125 000000 6829 040176 043742 043743 6830 040177 040146 040116 6831 040200 000014 000013 6832 040201 040153 033337 6833 040202 040146 040116 6834 040203 000014 000013 6835 040204 040161 033337 6836 040205 44 51 62 45 43 64 6837 040206 00 62 45 41 44 77 6838 040207 040146 040116 6839 040210 000014 000013 6840 040211 040205 033344 6841 040212 62 45 66 45 62 63 6842 040213 45 00 60 41 47 45 6843 040214 44 00 62 45 62 45 6844 040215 41 44 77 00 00 00 6845 040216 040146 040116 6846 040217 000014 000013 6847 040220 040212 033337 6848 040221 62 45 66 45 62 63 6849 040222 45 00 44 51 62 45 6850 040223 43 64 00 62 45 62 6851 040224 45 41 44 77 00 00 6852 040225 040146 040116 6853 040226 000014 000013 6854 040227 040221 033351 6855 040230 60 41 47 45 00 46 6856 040231 41 51 54 00 67 57 6857 040232 62 44 00 64 45 63 6858 040233 64 77 00 00 00 00 6859 040234 000000 000201 6860 040235 040230 037730 6861 040236 000014 000013 6862 040237 037171 000000 6863 040240 040230 037740 6864 040241 000014 000013 6865 040242 037045 000000 6866 040243 040230 037747 6867 040244 000014 000013 6868 040245 037045 000000 6869 040246 001000 400170 6870 040247 040230 037756 6871 040250 000014 000013 6872 040251 037045 000000 6873 040252 67 62 51 64 45 00 6874 040253 60 62 57 64 45 43 6875 040254 64 00 64 45 63 64 6876 040255 77 00 00 00 00 00 6877 040256 040252 037730 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-12 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0224 6878 040257 000014 000013 6879 040260 040120 000000 6880 040261 040252 037740 6881 040262 000014 000013 6882 040263 040120 000000 6883 040264 040252 037747 6884 040265 000014 000013 6885 040266 040120 000000 6886 040267 131000 400170 6887 040270 040252 037756 6888 040271 000014 000013 6889 040272 040120 000000 6890 040273 44 41 64 41 00 67 6891 040274 57 62 44 00 67 62 6892 040275 57 56 47 77 00 00 6893 040276 040252 040273 6894 040277 000014 000013 6895 040300 040120 000000 6896 040301 040252 037730 6897 040302 000014 000013 6898 040303 040125 000000 6899 040304 040252 037740 6900 040305 000014 000013 6901 040306 040125 000000 6902 040307 111000 777171 6903 040310 040252 037756 6904 040311 000014 000013 6905 040312 040125 000000 6906 040313 040252 040273 6907 040314 000014 000013 6908 040315 040125 000000 6909 040316 60 41 47 45 44 00 6910 040317 42 54 64 00 64 45 6911 040320 63 64 77 00 00 00 6912 040321 740076 740076 6913 040322 340000 340001 6914 040323 56 57 64 00 41 54 6915 040324 54 00 72 45 62 57 6916 040325 63 77 00 00 00 00 6917 040326 040316 040323 6918 040327 000014 000013 6919 040330 040073 000000 6920 040331 777777 777777 6921 040332 56 57 64 00 41 54 6922 040333 54 00 57 56 45 63 6923 040334 77 00 00 00 00 00 6924 040335 040316 040332 6925 040336 000014 000013 6926 040337 040073 000000 6927 040340 525252 525252 6928 040341 56 57 64 00 41 54 6929 040342 64 00 42 51 64 63 6930 040343 77 00 00 00 00 00 6931 040344 040316 040341 6932 040345 000014 000013 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-13 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0225 6933 040346 040073 000000 6934 040347 252525 252525 6935 040350 42 41 63 45 00 62 6936 040351 45 47 51 63 64 45 6937 040352 62 00 62 45 54 57 6938 040353 43 41 64 51 57 56 6939 040354 00 64 45 63 64 77 6940 040355 076200 076201 6941 040356 540000 540001 6942 040357 000002 000002 6943 040360 255 00 0 00 000000 6944 040361 55 65 65 57 00 46 6945 040362 41 51 54 45 44 77 6946 040363 43 57 62 35 55 65 6947 040364 65 57 14 00 41 43 6948 040365 64 35 55 65 65 57 6949 040366 00 41 44 62 77 00 6950 040367 040350 040361 6951 040370 000014 000013 6952 040371 040363 000000 6953 040372 55 65 65 57 00 63 6954 040373 64 57 62 45 44 00 6955 040374 67 62 57 56 47 77 6956 040375 60 41 47 45 00 20 6957 040376 77 00 00 00 00 00 6958 040377 040350 040372 6959 040400 000014 000013 6960 040401 040375 000000 6961 040402 55 65 65 57 00 60 6962 040403 43 00 63 64 57 62 6963 040404 45 44 00 67 62 57 6964 040405 56 47 77 00 00 00 6965 040406 040350 040402 6966 040407 000014 000013 6967 040410 040375 000000 6968 040411 100000 400076 6969 040412 62 45 54 57 43 41 6970 040413 64 45 44 00 60 41 6971 040414 47 45 77 00 00 00 6972 040415 040350 040372 6973 040416 000014 000013 6974 040417 040412 000000 6975 040420 040350 040402 6976 040421 000014 000013 6977 040422 040412 000000 6978 040423 60 41 47 45 00 46 6979 040424 41 51 54 00 46 41 6980 040425 51 54 45 44 77 00 6981 040426 040350 040423 6982 040427 000014 000013 6983 040430 037772 000000 6984 040431 040350 037740 6985 040432 000014 000013 6986 040433 037772 000000 6987 040434 040350 037756 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-14 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0226 6988 040435 000014 000013 6989 040436 037772 000000 6990 040437 62 45 54 57 43 41 6991 040440 64 45 44 00 45 70 6992 040441 45 43 15 60 45 62 6993 040442 15 60 62 57 43 45 6994 040443 63 63 00 60 41 47 6995 040444 51 56 47 77 00 00 6996 040445 040437 040116 6997 040446 000014 000013 6998 040447 040153 033337 6999 040450 040437 040116 7000 040451 000014 000013 7001 040452 040161 033344 7002 040453 040437 040116 7003 040454 000014 000013 7004 040455 040205 033344 7005 040456 254 01 0 00 340001 7006 040457 254 02 1 00 340002 7007 040460 000600 340003 7008 040461 254 00 0 00 340003 7009 040462 264 00 0 00 034113 7010 040463 264 00 0 00 034105 7011 040464 45 60 60 00 41 44 7012 040465 62 00 64 62 41 60 7013 040466 00 45 62 62 57 62 7014 040467 77 00 00 00 00 00 7015 040470 64 62 41 60 60 45 7016 040471 44 00 65 63 51 56 7017 040472 47 00 65 42 62 77 7018 040473 040437 040464 7019 040474 000000 000000 7020 040475 040470 000000 7021 040476 000000 340003 7022 040477 63 41 66 45 44 00 7023 040500 60 43 00 67 62 57 7024 040501 56 47 77 00 00 00 7025 040502 040437 040464 7026 040503 000014 000013 7027 040504 040477 000000 7028 040505 60 41 47 45 00 46 7029 040506 41 65 54 64 00 46 7030 040507 41 51 54 45 44 77 7031 040510 040437 040505 7032 040511 000014 000013 7033 040512 037171 000000 7034 040513 62 45 54 57 43 41 7035 040514 64 51 57 56 00 46 7036 040515 41 51 54 45 44 77 7037 040516 60 41 47 45 00 46 7038 040517 41 51 54 00 64 62 7039 040520 41 60 60 45 44 00 7040 040521 64 57 00 60 41 47 7041 040522 45 00 20 77 00 00 7042 040523 040437 040513 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-15 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0227 7043 040524 000014 000013 7044 040525 040516 000000 7045 040526 62 45 54 57 43 41 7046 040527 64 51 57 56 00 63 7047 040530 65 43 43 45 45 44 7048 040531 45 44 77 00 00 00 7049 040532 040437 040526 7050 040533 000014 000013 7051 040534 037756 000000 7052 040535 264 00 0 00 034203 7053 040536 040437 037166 7054 040537 000000 000000 7055 040540 037171 000000 7056 040541 000000 034200 7057 040542 040437 037176 7058 040543 000014 000013 7059 040544 037045 000000 7060 040545 264 00 0 00 034222 7061 040546 040437 037205 7062 040547 000000 000000 7063 040550 037171 000000 7064 040551 000000 034217 7065 040552 040437 037214 7066 040553 000014 000013 7067 040554 037045 000000 7068 040555 264 00 0 00 034241 7069 040556 040437 037223 7070 040557 000000 000000 7071 040560 037171 000000 7072 040561 000000 034236 7073 040562 040437 037232 7074 040563 000014 000013 7075 040564 037045 000000 7076 040565 62 45 54 57 43 41 7077 040566 64 45 44 00 51 56 7078 040567 64 45 62 62 65 60 7079 040570 64 00 64 45 63 64 7080 040571 77 00 00 00 00 00 7081 040572 264 00 0 00 034406 7082 040573 264 00 0 00 034376 7083 040574 264 00 0 00 034366 7084 040575 264 00 0 00 034356 7085 040576 264 00 0 00 034346 7086 040577 264 00 0 00 034336 7087 040600 264 00 0 00 034326 7088 040601 264 00 0 00 034310 7089 040602 60 41 47 45 00 20 7090 040603 00 51 56 64 45 62 7091 040604 62 65 60 64 00 45 7092 040605 62 62 57 62 77 00 7093 040606 43 57 62 35 41 60 7094 040607 62 14 00 41 43 64 7095 040610 35 60 51 77 00 00 7096 040611 040565 040602 7097 040612 000014 000013 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-16 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0228 7098 040613 040606 000000 7099 040614 264 00 0 00 030104 7100 040615 62 45 54 57 43 41 7101 040616 64 45 44 00 45 60 7102 040617 55 60 00 62 45 46 7103 040620 51 54 54 00 60 41 7104 040621 47 51 56 47 77 00 7105 040622 040615 040116 7106 040623 000014 000013 7107 040624 040153 033337 7108 040625 040615 040116 7109 040626 000014 000013 7110 040627 040161 033344 7111 040630 040615 040116 7112 040631 000014 000013 7113 040632 040205 033344 7114 040633 42 54 64 00 60 41 7115 040634 47 45 00 46 41 51 7116 040635 54 77 00 00 00 00 7117 040636 400775 400776 7118 040637 41 43 64 35 42 54 7119 040640 64 00 41 43 77 00 7120 040641 040633 037730 7121 040642 000014 000013 7122 040643 040637 000000 7123 040644 400777 401000 7124 040645 42 54 64 00 41 43 7125 040646 00 67 62 57 56 47 7126 040647 77 00 00 00 00 00 7127 040650 040633 040645 7128 040651 000014 000013 7129 040652 037045 000000 7130 040653 011000 401000 7131 040654 040633 037756 7132 040655 000014 000013 7133 040656 037045 000000 7134 040657 000000 034547 7135 040660 63 41 66 45 44 00 7136 040661 46 54 41 47 63 14 7137 040662 14 60 43 00 67 62 7138 040663 57 56 47 77 00 00 7139 040664 040633 040660 7140 040665 000014 000013 7141 040666 037045 000000 7142 040667 42 54 64 00 44 41 7143 040670 64 41 00 67 62 57 7144 040671 56 47 77 00 00 00 7145 040672 41 44 62 00 24 20 7146 040673 20 27 27 25 77 00 7147 040674 040633 040667 7148 040675 000014 000013 7149 040676 040672 000000 7150 040677 41 44 62 00 24 20 7151 040700 20 27 27 26 77 00 7152 040701 040633 040667 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-17 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0229 7153 040702 000014 000013 7154 040703 040677 000000 7155 040704 41 44 62 00 24 20 7156 040705 20 27 27 27 77 00 7157 040706 040633 040667 7158 040707 000014 000013 7159 040710 040704 000000 7160 040711 41 44 62 00 24 20 7161 040712 21 20 20 20 77 00 7162 040713 040633 040667 7163 040714 000014 000013 7164 040715 040711 000000 7165 040716 41 44 62 00 24 20 7166 040717 21 20 20 21 77 00 7167 040720 040633 040667 7168 040721 000014 000013 7169 040722 040716 000000 7170 040723 41 44 62 00 24 20 7171 040724 21 20 20 22 77 00 7172 040725 040633 040667 7173 040726 000014 000013 7174 040727 040723 000000 7175 040730 42 54 64 00 67 45 7176 040731 56 64 00 64 57 57 7177 040732 00 46 41 62 77 00 7178 040733 040633 040730 7179 040734 000014 000013 7180 040735 040723 000000 7181 040736 740075 740076 7182 040737 42 71 64 45 00 60 7183 040740 41 47 45 00 46 41 7184 040741 51 54 77 00 00 00 7185 040742 44 06 0 00 400000 7186 040743 51 54 44 42 00 64 7187 040744 62 41 60 00 46 41 7188 040745 51 54 45 44 77 00 7189 040746 41 43 64 35 60 57 7190 040747 51 56 64 45 62 14 7191 040750 00 43 57 62 35 42 7192 040751 71 64 45 00 41 43 7193 040752 77 00 00 00 00 00 7194 040753 040737 040743 7195 040754 000014 000013 7196 040755 040746 000000 7197 040756 51 54 44 42 00 43 7198 040757 50 41 56 47 45 44 7199 040760 00 42 71 64 45 00 7200 040761 41 43 77 00 00 00 7201 040762 040737 040756 7202 040763 000014 000013 7203 040764 040746 000000 7204 040765 36 06 0 00 400000 7205 040766 51 54 44 42 00 60 7206 040767 57 51 56 64 45 62 7207 040770 00 67 62 57 56 47 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-18 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0230 7208 040771 77 00 00 00 00 00 7209 040772 040737 040766 7210 040773 000014 000013 7211 040774 037045 000000 7212 040775 51 54 44 42 00 55 7213 040776 57 44 51 46 51 45 7214 040777 44 00 42 71 64 45 7215 041000 00 63 57 65 62 43 7216 041001 45 77 00 00 00 00 7217 041002 41 44 62 00 24 20 7218 041003 20 20 20 20 77 00 7219 041004 040737 040775 7220 041005 000014 000013 7221 041006 041002 000000 7222 041007 040737 037756 7223 041010 000014 000013 7224 041011 037045 000000 7225 041012 020000 034706 7226 041013 040737 040660 7227 041014 000014 000013 7228 041015 037045 000000 7229 041016 51 44 60 42 00 64 7230 041017 62 41 60 00 46 41 7231 041020 51 54 45 44 77 00 7232 041021 040737 041016 7233 041022 000014 000013 7234 041023 040746 000000 7235 041024 51 44 60 42 00 43 7236 041025 50 41 56 47 45 44 7237 041026 00 42 71 64 45 00 7238 041027 41 43 77 00 00 00 7239 041030 040737 041024 7240 041031 000014 000013 7241 041032 040746 000000 7242 041033 51 44 60 42 00 60 7243 041034 57 51 56 64 45 62 7244 041035 00 67 62 57 56 47 7245 041036 77 00 00 00 00 00 7246 041037 040737 041033 7247 041040 000014 000013 7248 041041 037045 000000 7249 041042 51 44 60 42 00 55 7250 041043 57 44 51 46 51 45 7251 041044 44 00 42 71 64 45 7252 041045 00 44 45 63 64 51 7253 041046 56 41 64 51 57 56 7254 041047 77 00 00 00 00 00 7255 041050 040737 041042 7256 041051 000014 000013 7257 041052 041002 000000 7258 041053 020000 034743 7259 041054 44 06 0 00 000014 7260 041055 60 57 51 56 64 45 7261 041056 62 00 46 45 64 43 7262 041057 50 00 64 62 41 60 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-19 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0231 7263 041060 00 46 41 51 54 45 7264 041061 44 77 00 00 00 00 7265 041062 040737 041055 7266 041063 000014 000013 7267 041064 041002 000000 7268 041065 60 57 51 56 64 45 7269 041066 62 00 46 45 64 43 7270 041067 50 00 55 57 44 51 7271 041070 46 51 45 44 00 42 7272 041071 71 64 45 00 41 43 7273 041072 77 00 00 00 00 00 7274 041073 040737 041065 7275 041074 000014 000013 7276 041075 037045 000000 7277 041076 41 43 00 07 41 43 7278 041077 64 07 00 55 57 44 7279 041100 51 46 51 45 44 77 7280 041101 040737 041076 7281 041102 000014 000013 7282 041103 037045 000000 7283 041104 60 57 51 56 64 45 7284 041105 62 00 67 62 57 56 7285 041106 47 77 00 00 00 00 7286 041107 040737 041104 7287 041110 000014 000013 7288 041111 041002 000000 7289 041112 011000 400000 7290 041113 000000 035002 7291 041114 44 57 65 42 54 45 7292 041115 00 55 57 66 45 00 7293 041116 60 41 47 45 00 46 7294 041117 41 51 54 77 00 00 7295 041120 041114 037730 7296 041121 000014 000013 7297 041122 041002 000000 7298 041123 44 55 57 66 45 00 7299 041124 55 57 44 51 46 51 7300 041125 45 44 00 41 43 77 7301 041126 46 45 64 43 50 00 7302 041127 46 62 57 55 00 24 7303 041130 20 20 20 20 20 77 7304 041131 041114 041123 7305 041132 000014 000013 7306 041133 041126 000000 7307 041134 44 55 57 66 45 00 7308 041135 55 57 44 51 46 51 7309 041136 45 44 00 41 43 21 7310 041137 77 00 00 00 00 00 7311 041140 46 45 64 43 50 00 7312 041141 46 62 57 55 00 24 7313 041142 20 20 20 20 21 77 7314 041143 041114 041134 7315 041144 000014 000013 7316 041145 041140 000000 7317 041146 041114 037756 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-20 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0232 7318 041147 000014 000013 7319 041150 037045 000000 7320 041151 000000 035051 7321 041152 041114 040660 7322 041153 000014 000013 7323 041154 037045 000000 7324 041155 041114 037730 7325 041156 000014 000013 7326 041157 037045 000000 7327 041160 46 45 64 43 50 00 7328 041161 46 62 57 55 00 24 7329 041162 20 20 27 27 27 77 7330 041163 041114 041123 7331 041164 000014 000013 7332 041165 041160 000000 7333 041166 46 45 64 43 50 00 7334 041167 46 62 57 55 00 24 7335 041170 20 21 20 20 20 77 7336 041171 041114 041134 7337 041172 000014 000013 7338 041173 041166 000000 7339 041174 001000 401000 7340 041175 000000 035111 7341 041176 44 42 54 00 55 57 7342 041177 66 45 00 64 57 00 7343 041200 55 45 55 00 60 41 7344 041201 47 45 00 46 41 51 7345 041202 54 77 00 00 00 00 7346 041203 041176 037730 7347 041204 000014 000013 7348 041205 041002 000000 7349 041206 44 55 57 66 45 55 7350 041207 00 55 57 44 51 46 7351 041210 51 45 44 00 41 43 7352 041211 00 44 45 63 64 51 7353 041212 56 41 64 51 57 56 7354 041213 77 00 00 00 00 00 7355 041214 041176 041206 7356 041215 000014 000013 7357 041216 041002 000000 7358 041217 44 55 57 66 45 55 7359 041220 00 55 57 44 51 46 7360 041221 51 45 44 00 41 43 7361 041222 21 00 44 45 63 64 7362 041223 51 56 41 64 51 57 7363 041224 56 77 00 00 00 00 7364 041225 41 44 62 00 24 20 7365 041226 20 20 20 21 77 00 7366 041227 041176 041217 7367 041230 000014 000013 7368 041231 041225 000000 7369 041232 44 55 57 66 45 55 7370 041233 00 55 57 44 51 46 7371 041234 51 45 44 00 41 43 7372 041235 77 00 00 00 00 00 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-21 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0233 7373 041236 041176 041232 7374 041237 000014 000013 7375 041240 037045 000000 7376 041241 44 55 57 66 45 55 7377 041242 00 55 57 44 51 46 7378 041243 51 45 44 00 41 43 7379 041244 21 77 00 00 00 00 7380 041245 041176 041241 7381 041246 000014 000013 7382 041247 037045 000000 7383 041250 011000 400001 7384 041251 041176 037756 7385 041252 000014 000013 7386 041253 037045 000000 7387 041254 000000 035157 7388 041255 041176 040660 7389 041256 000014 000013 7390 041257 037045 000000 7391 041260 22 56 44 00 67 57 7392 041261 62 44 00 44 55 57 7393 041262 66 45 55 77 00 00 7394 041263 041176 037730 7395 041264 000014 000013 7396 041265 041260 000000 7397 041266 041176 041206 7398 041267 000014 000013 7399 041270 040704 000000 7400 041271 041176 041217 7401 041272 000014 000013 7402 041273 040711 000000 7403 041274 000000 035225 7404 041275 64 62 41 60 00 51 7405 041276 56 63 64 62 65 43 7406 041277 64 51 57 56 00 60 7407 041300 41 47 45 00 46 41 7408 041301 51 54 77 00 00 00 7409 041302 264 00 0 00 400326 7410 041303 041275 037730 7411 041304 000000 000000 7412 041305 037171 000000 7413 041306 52 62 63 64 46 00 7414 041307 50 41 60 60 45 56 7415 041310 45 44 77 00 00 00 7416 041311 56 57 00 64 62 41 7417 041312 60 77 00 00 00 00 7418 041313 041275 041306 7419 041314 000000 000000 7420 041315 041311 000000 7421 041316 011000 400326 7422 041317 041275 037756 7423 041320 000014 000013 7424 041321 037045 000000 7425 041322 000600 035277 7426 041323 041275 040660 7427 041324 000014 000013 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-22 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0234 7428 041325 041116 000000 7429 041326 60 41 47 45 00 46 7430 041327 41 51 54 00 43 57 7431 041330 56 64 51 56 65 45 7432 041331 00 46 41 51 54 45 7433 041332 44 77 00 00 00 00 7434 041333 041275 041326 7435 041334 000000 000000 7436 041335 037171 000000 7437 041336 000000 400332 7438 041337 62 45 54 57 43 41 7439 041340 64 51 57 56 00 51 7440 041341 56 43 57 62 62 45 7441 041342 43 64 77 00 00 00 7442 041343 60 46 00 43 57 56 7443 041344 64 51 56 65 45 77 7444 041345 041275 041337 7445 041346 000014 000013 7446 041347 041343 000000 7447 041350 000000 035277 7448 041351 64 62 41 60 00 63 7449 041352 41 66 45 44 00 60 7450 041353 43 00 67 62 57 56 7451 041354 47 77 00 00 00 00 7452 041355 041275 041351 7453 041356 000014 000013 7454 041357 041343 000000 7455 041360 64 62 41 60 00 60 7456 041361 41 47 45 00 46 41 7457 041362 51 54 77 00 00 00 7458 041363 264 00 0 00 035402 7459 041364 041360 037730 7460 041365 000000 000000 7461 041366 037171 000000 7462 041367 041360 041306 7463 041370 000000 000000 7464 041371 041311 000000 7465 041372 64 62 41 60 00 23 7466 041373 00 50 41 60 60 45 7467 041374 56 45 44 77 00 00 7468 041375 56 57 00 60 41 47 7469 041376 45 00 46 41 51 54 7470 041377 77 00 00 00 00 00 7471 041400 041360 041372 7472 041401 000000 000000 7473 041402 041375 000000 7474 041403 001000 400373 7475 041404 041360 037756 7476 041405 000014 000013 7477 041406 037045 000000 7478 041407 000600 400373 7479 041410 041360 040660 7480 041411 000014 000013 7481 041412 041116 000000 7482 041413 51 17 57 00 51 56 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-23 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0235 7483 041414 63 64 00 60 41 47 7484 041415 45 00 46 41 51 54 7485 041416 77 00 00 00 00 00 7486 041417 43 57 56 51 00 64 7487 041420 62 41 60 00 46 41 7488 041421 51 54 45 44 77 00 7489 041422 041413 041417 7490 041423 000000 000000 7491 041424 037171 000000 7492 041425 44 41 64 41 51 77 7493 041426 041413 037756 7494 041427 000014 000013 7495 041430 041425 000000 7496 041431 000000 035442 7497 041432 041413 040660 7498 041433 000014 000013 7499 041434 041425 000000 7500 041435 55 57 56 51 64 57 7501 041436 62 00 65 65 57 00 7502 041437 64 45 63 64 00 15 7503 041440 00 64 62 41 60 60 7504 041441 51 56 47 00 51 56 7505 041442 00 53 45 62 56 41 7506 041443 54 00 55 57 44 45 7507 041444 77 00 00 00 00 00 7508 041445 55 65 65 57 00 44 7509 041446 51 44 00 56 57 64 7510 041447 00 64 62 41 60 00 7511 041450 51 56 00 53 45 62 7512 041451 56 41 54 00 55 57 7513 041452 44 45 77 00 00 00 7514 041453 43 10 43 57 62 62 7515 041454 45 43 64 11 35 55 7516 041455 57 56 51 64 57 62 7517 041456 00 65 65 57 77 00 7518 041457 041435 041445 7519 041460 035557 000000 7520 041461 041453 000000 7521 041462 43 10 43 57 62 62 7522 041463 45 43 64 11 35 55 7523 041464 65 65 57 77 00 00 7524 041465 041435 041445 7525 041466 035602 000000 7526 041467 041462 000000 7527 041470 041435 041445 7528 041471 035625 000000 7529 041472 041462 000000 7530 041473 55 57 56 51 64 57 7531 041474 62 00 65 65 57 00 7532 041475 64 45 63 64 00 15 7533 041476 00 65 65 57 00 63 7534 041477 64 57 62 45 00 51 7535 041500 56 64 57 00 24 22 7536 041501 24 77 00 00 00 00 7537 041502 43 57 56 64 45 56 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-24 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0236 7538 041503 64 63 00 57 46 00 7539 041504 24 22 24 00 51 63 7540 041505 00 56 57 64 00 45 7541 041506 61 65 41 54 00 64 7542 041507 57 00 45 70 45 43 7543 041510 65 64 45 44 00 65 7544 041511 65 57 77 00 00 00 7545 041512 041473 041502 7546 041513 035650 000424 7547 041514 037045 000000 7548 041515 55 57 56 51 64 57 7549 041516 62 00 65 65 57 00 7550 041517 15 00 63 64 57 62 7551 041520 45 00 43 57 62 62 7552 041521 45 43 64 00 60 43 7553 041522 77 00 00 00 00 00 7554 041523 000000 035675 7555 041524 55 65 65 57 00 44 7556 041525 51 44 00 56 57 64 7557 041526 00 63 64 57 62 45 7558 041527 00 64 50 45 00 43 7559 041530 57 62 62 45 43 64 7560 041531 00 60 43 77 00 00 7561 041532 43 10 24 22 25 11 7562 041533 00 50 41 63 00 60 7563 041534 43 00 63 64 57 62 7564 041535 45 44 77 00 00 00 7565 041536 041515 041524 7566 041537 041523 000001 7567 041540 041532 000000 7568 041541 55 57 56 51 64 57 7569 041542 62 00 65 65 57 00 7570 041543 15 00 63 64 57 62 7571 041544 45 00 45 00 43 57 7572 041545 62 62 45 43 64 54 7573 041546 71 77 00 00 00 00 7574 041547 55 65 65 57 00 44 7575 041550 51 44 00 56 57 64 7576 041551 00 63 64 57 62 45 7577 041552 00 45 00 43 57 62 7578 041553 62 45 43 64 54 71 7579 041554 77 00 00 00 00 00 7580 041555 43 10 24 22 24 11 7581 041556 00 50 41 63 00 45 7582 041557 00 66 41 54 65 45 7583 041560 00 63 64 57 62 45 7584 041561 44 77 00 00 00 00 7585 041562 041541 041547 7586 041563 000007 000001 7587 041564 041555 000000 7588 041565 55 57 56 51 64 57 7589 041566 62 00 65 65 57 00 7590 041567 64 45 63 64 00 15 7591 041570 00 64 62 41 60 60 7592 041571 51 56 47 00 51 56 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-25 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0237 7593 041572 00 43 57 56 43 45 7594 041573 41 54 45 44 00 55 7595 041574 57 44 45 77 00 00 7596 041575 55 65 65 57 00 44 7597 041576 51 44 00 56 57 64 7598 041577 00 64 62 41 60 00 7599 041600 51 56 00 43 57 56 7600 041601 43 45 41 54 45 44 7601 041602 00 55 57 44 45 77 7602 041603 041565 041575 7603 041604 035753 044424 7604 041605 041453 000000 7605 041606 55 65 65 57 00 64 7606 041607 62 41 60 60 45 44 7607 041610 00 64 57 00 51 56 7608 041611 43 57 62 62 45 43 7609 041612 64 00 64 62 41 60 7610 041613 00 54 57 43 41 64 7611 041614 51 57 56 77 00 00 7612 041615 041565 041606 7613 041616 035753 044424 7614 041617 037045 000000 7615 041620 55 65 65 57 00 44 7616 041621 51 44 00 56 57 64 7617 041622 00 64 62 41 60 77 7618 041623 041473 041620 7619 041624 036007 044424 7620 041625 037045 000000 7621 041626 041473 041502 7622 041627 036007 044424 7623 041630 037045 000000 7624 041631 55 65 65 57 00 64 7625 041632 62 41 60 45 44 00 7626 041633 64 57 00 51 56 43 7627 041634 57 62 62 45 43 64 7628 041635 00 64 62 41 60 00 7629 041636 54 57 43 41 64 51 7630 041637 57 56 77 00 00 00 7631 041640 041473 041631 7632 041641 036007 044424 7633 041642 037045 000000 7634 041643 55 57 56 51 64 57 7635 041644 62 00 65 65 57 00 7636 041645 15 00 63 64 57 62 7637 041646 51 56 47 00 64 50 7638 041647 45 00 43 57 62 62 7639 041650 45 43 64 00 60 43 7640 041651 77 00 00 00 00 00 7641 041652 000000 036046 7642 041653 041643 041524 7643 041654 041652 000001 7644 041655 037045 000000 7645 041656 55 65 65 57 00 44 7646 041657 51 44 00 56 57 64 7647 041660 00 64 62 41 60 00 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-26 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0238 7648 041661 64 57 00 43 57 62 7649 041662 62 45 43 64 00 64 7650 041663 62 41 60 77 00 00 7651 041664 041643 041656 7652 041665 041652 000001 7653 041666 037045 000000 7654 041667 55 65 65 57 00 63 7655 041670 64 57 62 51 56 47 7656 041671 00 64 50 45 00 43 7657 041672 57 62 62 45 43 64 7658 041673 00 45 00 46 51 45 7659 041674 54 44 77 00 00 00 7660 041675 55 65 65 57 00 44 7661 041676 51 44 00 56 57 64 7662 041677 00 64 62 41 60 00 7663 041700 51 56 00 43 57 56 7664 041701 43 45 41 54 45 44 7665 041702 77 00 00 00 00 00 7666 041703 041667 041675 7667 041704 000007 000001 7668 041705 037045 000000 7669 041706 041667 041547 7670 041707 000007 000001 7671 041710 037045 000000 7672 041711 041667 041656 7673 041712 000007 000001 7674 041713 037045 000000 7675 041714 41 62 57 66 00 64 7676 041715 62 41 60 00 64 45 7677 041716 63 64 77 00 00 00 7678 041717 000000 000421 7679 041720 000200 036126 7680 041721 41 62 57 66 00 44 7681 041722 51 44 00 56 57 64 7682 041723 00 64 62 41 60 00 7683 041724 64 57 00 24 22 21 7684 041725 77 00 00 00 00 00 7685 041726 041714 041721 7686 041727 041717 000000 7687 041730 037045 000000 7688 041731 60 44 54 57 66 00 7689 041732 64 62 41 60 00 64 7690 041733 45 63 64 77 00 00 7691 041734 000000 000422 7692 041735 000400 036142 7693 041736 60 44 57 66 64 60 7694 041737 00 44 51 44 00 56 7695 041740 57 64 00 64 62 41 7696 041741 60 00 64 57 00 24 7697 041742 22 22 77 00 00 00 7698 041743 041731 041736 7699 041744 041734 000000 7700 041745 037045 000000 7701 041746 64 62 41 60 23 00 7702 041747 64 62 41 60 00 64 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-27 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0239 7703 041750 45 63 64 77 00 00 7704 041751 000000 000423 7705 041752 000600 036156 7706 041753 64 62 41 60 23 00 7707 041754 64 62 41 60 00 44 7708 041755 51 44 00 56 57 64 7709 041756 00 64 62 41 60 00 7710 041757 64 57 00 24 22 23 7711 041760 77 00 00 00 00 00 7712 041761 041746 041753 7713 041762 041751 000000 7714 041763 037045 000000 7715 041764 010000 036212 7716 041765 000000 000001 7717 041766 55 65 65 57 00 44 7718 041767 51 44 00 56 57 64 7719 041770 00 43 41 65 63 45 7720 041771 00 64 62 41 60 77 7721 041772 041746 041766 7722 041773 000000 000000 7723 041774 037045 000000 7724 041775 55 65 65 57 00 44 7725 041776 51 44 00 56 57 64 7726 041777 00 62 45 15 45 56 7727 042000 64 45 62 00 65 63 7728 042001 45 62 15 55 57 44 7729 042002 45 77 00 00 00 00 7730 042003 041746 041775 7731 042004 041764 000001 7732 042005 037045 000000 7733 042006 000000 036233 7734 042007 004000 036270 7735 042010 55 55 65 57 00 44 7736 042011 51 44 00 56 57 64 7737 042012 00 63 45 64 00 45 7738 042013 70 51 57 64 00 46 7739 042014 54 41 47 77 00 00 7740 042015 041746 042010 7741 042016 042007 000001 7742 042017 037045 000000 7743 042020 400000 036325 7744 042021 55 65 65 57 00 44 7745 042022 51 44 00 56 57 64 7746 042023 00 63 45 64 00 41 7747 042024 62 51 64 50 55 45 7748 042025 64 51 43 00 57 66 7749 042026 45 62 46 54 57 67 7750 042027 00 46 54 41 47 77 7751 042030 041746 042021 7752 042031 042020 000001 7753 042032 037045 000000 7754 042033 200000 036362 7755 042034 55 65 65 57 00 44 7756 042035 51 44 00 56 57 64 7757 042036 00 63 45 64 00 43 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-28 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0240 7758 042037 62 71 20 00 46 54 7759 042040 41 47 77 00 00 00 7760 042041 041746 042034 7761 042042 042033 000001 7762 042043 037045 000000 7763 042044 100000 036417 7764 042045 55 65 65 57 00 44 7765 042046 51 44 00 56 57 64 7766 042047 00 63 45 64 00 43 7767 042050 62 71 21 00 46 54 7768 042051 41 47 77 00 00 00 7769 042052 041746 042045 7770 042053 042044 000001 7771 042054 037045 000000 7772 042055 040000 036454 7773 042056 55 65 65 57 00 44 7774 042057 51 44 00 56 57 64 7775 042060 00 63 45 64 00 46 7776 042061 57 66 00 46 54 41 7777 042062 47 77 00 00 00 00 7778 042063 041746 042056 7779 042064 042055 000001 7780 042065 037045 000000 7781 042066 020000 036511 7782 042067 55 65 65 57 00 44 7783 042070 51 44 00 56 57 64 7784 042071 00 63 45 64 00 42 7785 042072 51 63 00 46 54 41 7786 042073 47 77 00 00 00 00 7787 042074 041746 042067 7788 042075 042066 000001 7789 042076 037045 000000 7790 042077 000100 036546 7791 042100 55 65 65 57 00 44 7792 042101 51 44 00 56 57 64 7793 042102 00 63 45 64 00 46 7794 042103 70 65 00 46 54 41 7795 042104 47 77 00 00 00 00 7796 042105 041746 042100 7797 042106 042077 000001 7798 042107 037045 000000 7799 042110 000040 036603 7800 042111 55 65 65 57 00 44 7801 042112 51 44 00 56 57 64 7802 042113 00 63 45 64 00 44 7803 042114 43 53 00 46 54 41 7804 042115 47 77 00 00 00 00 7805 042116 041746 042111 7806 042117 042110 000001 7807 042120 037045 000000 7808 042121 760140 036640 7809 042122 55 65 65 57 00 44 7810 042123 51 44 00 56 57 64 7811 042124 00 63 45 64 00 43 7812 042125 62 71 20 13 43 62 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-29 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0241 7813 042126 71 21 13 41 62 57 7814 042127 66 13 46 57 66 13 7815 042130 46 70 65 13 44 43 7816 042131 53 13 42 51 63 00 7817 042132 46 54 41 47 63 77 7818 042133 041746 042122 7819 042134 042121 000001 7820 042135 037045 000000 7821 042136 51 57 64 00 55 65 7822 042137 65 57 76 43 57 56 7823 042140 43 45 41 54 45 44 7824 042141 00 55 57 44 45 77 7825 042142 51 57 64 00 44 51 7826 042143 44 00 56 57 64 00 7827 042144 64 62 41 60 77 00 7828 042145 43 35 51 57 64 77 7829 042146 042136 042142 7830 042147 036670 044424 7831 042150 042145 000000 7832 042151 51 57 64 00 44 51 7833 042152 44 00 56 57 64 00 7834 042153 64 62 41 60 00 64 7835 042154 57 00 60 62 57 60 7836 042155 45 62 00 64 62 41 7837 042156 60 77 00 00 00 00 7838 042157 042136 042151 7839 042160 036670 044424 7840 042161 037045 000000 7841 042162 43 57 56 64 45 56 7842 042163 64 63 00 57 46 00 7843 042164 24 22 24 00 56 57 7844 042165 64 00 45 70 45 43 7845 042166 65 64 45 44 00 51 7846 042167 57 64 77 00 00 00 7847 042170 042136 042162 7848 042171 036670 044424 7849 042172 037045 000000 7850 042173 000000 036671 7851 042174 51 57 64 00 55 65 7852 042175 65 57 00 44 51 44 7853 042176 00 56 57 64 00 63 7854 042177 64 57 62 45 00 43 7855 042200 57 62 62 45 43 64 7856 042201 00 60 43 77 00 00 7857 042202 042136 042174 7858 042203 042173 000001 7859 042204 037045 036712 7860 042205 51 57 64 00 35 00 7861 042206 77 00 00 00 00 00 7862 042207 65 63 45 62 00 55 7863 042210 57 44 45 00 43 57 7864 042211 56 43 45 41 54 45 7865 042212 44 76 55 41 70 51 7866 042213 55 65 55 00 42 54 7867 042214 57 43 53 00 64 62 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-30 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0242 7868 042215 41 56 63 46 45 62 7869 042216 77 00 00 00 00 00 7870 042217 254 04 0 00 000013 7871 042220 254 01 0 00 000011 7872 042221 476 00 0 00 000020 7873 042222 251 07 0 00 777777 7874 042223 000020 000021 7875 042224 000000 044502 7876 042225 100000 400044 7877 042226 51 56 43 57 62 62 7878 042227 45 43 64 00 64 45 7879 042230 62 55 51 56 41 64 7880 042231 51 57 56 00 55 65 7881 042232 65 57 77 00 00 00 7882 042233 042207 042226 7883 042234 042217 044424 7884 042235 037045 000000 7885 042236 010000 000014 7886 042237 51 56 43 57 62 62 7887 042240 45 43 64 00 64 45 7888 042241 62 55 51 56 41 64 7889 042242 51 57 56 00 60 43 7890 042243 77 00 00 00 00 00 7891 042244 042207 042237 7892 042245 042236 044425 7893 042246 037045 000000 7894 042247 60 41 47 45 00 46 7895 042250 41 51 54 65 62 45 7896 042251 77 00 00 00 00 00 7897 042252 43 57 62 62 45 43 7898 042253 64 35 60 46 00 67 7899 042254 57 62 44 14 00 41 7900 042255 43 64 65 41 54 35 7901 042256 60 46 00 60 43 77 7902 042257 042207 042247 7903 042260 000005 000006 7904 042261 042252 000000 7905 042262 037013 000421 7906 042263 737776 737777 7907 042264 537776 537777 7908 042265 45 56 64 62 71 00 7909 042266 64 57 00 65 63 45 7910 042267 62 00 55 57 44 45 7911 042270 00 65 56 63 65 43 7912 042271 45 63 63 46 65 54 7913 042272 77 00 00 00 00 00 7914 042273 52 62 63 64 46 00 7915 042274 46 41 51 54 45 44 7916 042275 77 00 00 00 00 00 7917 042276 042207 042265 7918 042277 000005 000006 7919 042300 042273 000000 7920 LIST 7921 043624 000000 000000 ENDSLD: 0 7922 DSKEA DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC - VER 0,1 MACRO %53(1020) 15:12 29-Mar-78 Page 1-31 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0243 7923 IFDEF DEBUG,< 7924 043625 PATCH: BLOCK DEBUG ;PATCHING AREA 7925 > 7926 7927 ;PROGRAM VARIABLES 7928 043725 VAR 7929 7930 IFDEF PGMEND,< 7931 043741 000000 000000 END: 0 7932 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 043742 CPU TIME USED 00:30.973 36P CORE USED A 5117# 5195# 5216 5230# 5248 5256# 5277 5290# 5321 5330 5337# 5364 5369 5378 5386# 5413 5417 5424# 5451 5456 5464 5477# 5492 5500# 5516 5524# 5539 5548# SEQ 0244 5586 5613# 5651 5659# 5697 5704# 5742 5749# 5787 5794# 5832 5839# 5877 5884# 5922 5929# 5967 5975# 6014 6021# 6057 6061 6067 6071# 6076 6112# 6155 6158# 6164 6169# 6174 6215 ABORT 260# AC 37# 890 892 893 1750 1751 1774 1775 1797 1798 2455 2456 2490 2491 2505 2506 2531 2532 2540 2541 2582 2583 2619 2620 2638 2639 2673 2674 2686 2687 2694 2695 2696 2697 2759 2760 2763 2764 2768 2769 2770 2771 2792 2793 2794 2809 2826 2827 2828 2829 2831 2834 2835 2869 2870 2884 2885 2886 2887 2888 2889 2944 2946 2951 2961 2966 2972 2973 2985 2989 2991 3004 3029 3030 3031 3032 3033 3034 3103 3113 3118 3125 3126 3128 3130 3150 3154 3156 3165 3169 3170 3172 3174 3196 3199 3201 3210 3307 3308 3309 3310 3311 3312 3313 3314 3352 3353 3382 3383 3399 3401 3406 3412 3413 3427 3428 3443 3444 3458 3459 3491 3492 3494 3495 3528 3529 3530 3531 3588 3589 3590 3591 3592 3615 3616 3633 3643 3647 3652 3653 3657 3658 3678 3684 3686 3695 3751 3752 3753 3754 3798 3799 3819 3820 3840 3841 3859 3860 3953 3954 3973 3974 3993 3994 4013 4014 4033 4034 4053 4054 4073 4074 4091 4092 4110 4120 4123 4130 4131 4133 4136 4157 4162 4163 4172 4197 4198 4199 4200 4201 4202 4277 4278 4290 4292 4334 4335 4357 4358 4359 4360 4406 4407 4455 4456 4503 4518 4519 4520 4521 4524 4531 4540 4567 4568 4569 4570 4574 4581 4589 4627 4628 4629 4630 4636 4643 4663 4693 4694 4695 4696 4699 4706 4741 4742 4760 4761 4763 4764 4765 4766 4810 4811 4851 4852 4854 4855 4856 4857 AC1 38# 2764 2765 2766 2767 2769 2771 2946 2947 2948 2949 2950 2961 2962 2963 2964 2965 2977 2978 2979 2980 2995 2996 2997 2998 2999 3011 3113 3114 3115 3116 3117 3134 3135 3136 3138 3140 3178 3179 3180 3181 3182 3184 3217 3401 3402 3403 3404 3405 3643 3644 3645 3646 3662 3663 3664 3666 3667 4120 4121 4122 4140 4141 4142 4143 4144 4340 4341 4524 4544 4574 4594 4636 4668 4699 AC2 39# 2776 2953 2954 2955 2956 2957 2958 2959 2960 3105 3106 3107 3108 3109 3110 3111 3112 3189 3190 3191 3229 3400 3405 3635 3636 3637 3638 3639 3640 3641 3642 4112 4113 4114 4115 4116 4117 4118 4119 AC3 40# 2956 2960 2965 3108 3112 3117 3638 3642 3646 4115 4119 4122 ACT 41# 914 915 918 929 931 933 943 945 947 972 974 977 986 988 991 1000 1002 1005 1014 1016 1019 1028 1030 1033 1042 1044 1047 1056 1058 1061 1070 1072 1075 1084 1086 1089 1098 1100 1103 1112 1114 1117 1124 1126 1128 1153 1155 1158 1167 1169 1172 1181 1183 1186 1195 1197 1200 1209 1211 1214 1223 1225 1228 1237 1239 1242 1251 1253 1256 1265 1267 1270 1279 1281 1284 1293 1295 1298 1312 1315 1317 1325 1329 1331 1358 1362 1365 1374 1378 1381 1390 1394 1397 1406 1410 1413 1422 1426 1429 1438 1442 1445 1454 1458 1461 1470 1474 1477 1486 1490 1493 1502 1506 1509 1518 1522 1525 1531 1535 1537 1562 1566 1569 1578 1582 1585 1594 1598 1601 1610 1614 1617 1626 1630 1633 1642 1646 1649 1658 1662 1665 1674 1678 1681 1690 1694 1697 1706 1710 1713 1722 1726 1729 1767 1768 1770 1790 1791 1793 1813 1814 1816 2433 2434 2437 2446 2447 2449 2466 2467 2469 2479 2480 2482 2493 2494 2496 2508 2509 2511 2543 2544 2547 2553 2555 2557 2558 2560 2563 2564 2566 2573 2584 2585 2587 2594 2596 2598 2599 2601 2604 2605 2607 2614 2650 2651 2654 2664 2665 2667 2676 2677 2679 2689 2690 2692 2714 2715 2717 2734 2735 2737 2794 2795 2798 2839 2840 2843 2847 2849 2851 2852 2854 2859 2860 2862 2903 2904 2907 2919 2920 2922 2980 2981 2983 2999 3000 3002 3050 3051 3052 3055 3057 3058 3060 3074 3075 3076 3078 3080 3081 3083 3139 3140 3141 3143 3145 3146 3148 3160 3161 3163 3183 3184 3185 3187 3191 3192 3194 3205 3206 3208 3261 3263 3265 3268 3271 3273 3276 3277 3279 3283 3284 SEQ 0245 3286 3320 3322 3325 3330 3332 3334 3335 3337 3340 3341 3343 3346 3347 3349 3356 3358 3360 3362 3364 3367 3368 3370 3374 3375 3377 3417 3418 3421 3432 3433 3435 3441 3442 3447 3448 3450 3456 3457 3463 3464 3466 3534 3540 3544 3545 3547 3550 3551 3553 3563 3569 3574 3575 3577 3580 3581 3583 3595 3597 3599 3603 3605 3608 3609 3611 3667 3668 3671 3673 3674 3676 3690 3691 3693 3732 3733 3735 3759 3763 3770 3776 3777 3779 3811 3812 3814 3832 3833 3835 3853 3854 3856 3912 3917 4144 4147 4150 4152 4153 4155 4167 4168 4170 4216 4218 4221 4226 4228 4230 4232 4234 4236 4238 4240 4243 4244 4246 4248 4249 4251 4253 4254 4256 4259 4260 4262 4264 4265 4267 4269 4270 4272 4299 4300 4302 4304 4305 4307 4309 4310 4312 4314 4315 4317 4319 4320 4322 4325 4326 4328 4369 4371 4374 4382 4384 4386 4388 4389 4391 4392 4394 4396 4397 4399 4401 4413 4415 4417 4424 4427 4429 4432 4433 4435 4437 4439 4441 4443 4445 4447 4458 4459 4468 4475 4478 4480 4482 4483 4485 4487 4489 4491 4493 4495 4497 4522 4534 4540 4541 4543 4544 4545 4547 4549 4551 4553 4555 4557 4559 4571 4583 4589 4590 4592 4594 4595 4597 4599 4601 4603 4605 4607 4609 4634 4646 4652 4653 4655 4657 4658 4660 4663 4664 4666 4668 4669 4671 4673 4675 4677 4679 4681 4683 4708 4714 4715 4717 4720 4721 4723 4725 4727 4729 4731 4733 4735 4793 4794 4796 4800 4801 4803 4806 4825 4827 4829 4832 4833 4835 4902 4903 4905 4909 4910 4912 4945 4947 4949 4952 4954 4956 ADJRET 2037 2050# ADJTRP 2036 2044# ADJTST 2036# 2048 ALTMGO 610# AMTAB1 2763 2779 2792 2837 2856 5063# AMTST4 2757# 2805 AMTST5 2762# 2772 AMTST6 2779# 2799 2801 2803 AMTST7 2806 2824# 2850 2855 2863 2867 AMTST8 2837# 2844 2865 AMTST9 2834 2846# AMTSTA 2845 2865# AMTSTX 2798 2808# APR 206 2535 2571 2578 2612 2621 3905 3911 3913 3952 3961 3972 3981 3992 4001 4012 4021 4032 4041 4052 4061 4072 4081 4089 4093 4939 AROV 524# 5660 5677 5694 5976 5993 6010 AROVTP 233# 524# 5476 5489 AROVU 524# ARSET 1945 1968 1992 2015 2038 2056 2074 2097 2120 2138 2156 2175 2195 2213 2231 2259 2287 2315 2343 2374# ASHCRE 1967 1982# ASHCTR 1966 1975# ASHCTS 1966# 1979 1987 ASHRET 1944 1958# ASHTRP 1943 1951# ASHTST 1943# 1955 1963 AST 725# ATSIN 726# AWMBEG 5259# AWMST 5260# 5278 5282 AWMUPC 5260 5273# AWMUUO 5269 5270 5271# SEQ 0246 AXMBEG 5123# AXMST 5131# 5139 5145 AXMUPC 5131 5140# AXMUUO 5118 5130 5135# 5143 AYMBEG 5141 5198# AYMST 5206# 5217 5223 AYMUPC 5206 5212# AYMUUO 5196 5205 5210# 5213 5221 AZMBEG 5219 5232# AZMST 5240# 5249 AZMUPC 5240 5244# AZMUUO 5229 5239 5242# 5245 BEGEND 606# 6179 BEGIN 31 32 97 100 101 102 103 104 105 537# 7932 BEGIN1 553# 607 898 BELL 729# BIS 524# 4398 4444 5840 5857 5874 5976 5993 6010 BLT0 3397# 3470 BLT1 3401# 3407 3422 BLT2 3409# BLT3 3415# 3423 BLT4 3424# 3436 BLT5 3430# 3437 BLT6 3439# 3451 BLT7 3445# 3452 BLT8 3454# 3467 BLT9 3461# 3468 BWERR 5439 5463# BWMBEG 5415 5427# BWMST 5436# 5452 5457 5461 5465 BWMUPC 5437 5453# BWMUUO 5446 5447 5448# BXERR 5308 5329# BXMBEG 5281 5293# BXMST 5305# 5322 5328 5331 BXMUPC 5306 5323# BXMUUO 5291 5304 5318# 5326 BYERR 5355 5377# BYMBEG 5324 5340# BYMST 5352# 5365 5370 5376 5379 BYMUPC 5353 5366# BYMUUO 5338 5351 5361# 5367 5374 BZERR 5403 5416# BZMBEG 5372 5388# BZMST 5400# 5414 5418 BZMUPC 5401 5409# BZMUUO 5385 5399 5407# 5410 C 1848# 1849 1851 1877# 1878 1880 1911# 1912 1914 1936# 1937 1939 1957# 1960 1962 1981# 1984 1986 2004# 2007 2009 2027# 2030 2032 2086# 2089 2091 2109# 2112 2114 2243# 2246 2248 2251 2253 2271# 2274 2276 2279 2281 2299# 2302 2304 2307 2309 2327# 2330 2332 2335 2337 2354# 2357 2359 2362 2364 5118# 5138 5146# 5160 5168# 5182 5196# 5216 5229# 5248 5257# 5277 5291# 5321 5330 5338# 5364 5369 5378 5385# 5413 5417 5425# 5451 5456 5464 5476# 5492 5499# SEQ 0247 5516 5523# 5539 5549# 5586 5614# 5651 5660# 5697 5705# 5742 5750# 5787 5795# 5832 5840# 5877 5885# 5922 5930# 5967 5976# 6014 6022# 6057 6061 6067 6070# 6076 6113# 6155 6159# 6164 6168# 6174 6215 CCA 524# CHAIN 280# CHNOFF 524# 2534 CHNON 524# CLKU 524# CLOCKF 592# CNSFLG 5298 5341 5393 5428 5561 5626 5672 5717 5762 5807 5852 5897 5942 5988 6029 6199# 6199 CNTLC 609# CNTR 36# 2774 2803 CNTRP 242# 524# 5307 5354 5402 5438 5567 5595 5632 5678 5723 5768 5813 5858 5903 5948 5994 6040 6133 COMCHK 2398# COMMA 718# CONSW 593# COR 42# 912 913 915 918 927 928 933 941 942 945 947 970 971 974 977 984 985 988 991 998 999 1002 1005 1012 1013 1016 1019 1026 1027 1030 1033 1040 1041 1044 1047 1054 1055 1058 1061 1068 1069 1072 1075 1082 1083 1086 1089 1096 1097 1100 1103 1110 1111 1114 1117 1122 1123 1126 1128 1151 1152 1155 1158 1165 1166 1169 1172 1179 1180 1183 1186 1193 1194 1197 1200 1207 1208 1211 1214 1221 1222 1225 1228 1235 1236 1239 1242 1249 1250 1253 1256 1263 1264 1267 1270 1277 1278 1281 1284 1291 1292 1295 1298 1310 1311 1313 1314 1315 1317 1323 1324 1327 1328 1331 1356 1357 1360 1361 1362 1365 1372 1373 1376 1377 1378 1381 1388 1389 1392 1393 1394 1397 1404 1405 1408 1409 1410 1413 1420 1421 1424 1425 1426 1429 1436 1437 1440 1441 1442 1445 1452 1453 1456 1457 1458 1461 1468 1469 1472 1473 1474 1477 1484 1485 1488 1489 1490 1493 1500 1501 1504 1505 1506 1509 1516 1517 1520 1521 1522 1525 1529 1530 1533 1534 1535 1537 1560 1561 1564 1565 1566 1569 1576 1577 1580 1581 1582 1585 1592 1593 1596 1597 1598 1601 1608 1609 1612 1613 1614 1617 1624 1625 1628 1629 1630 1633 1640 1641 1644 1645 1646 1649 1656 1657 1660 1661 1662 1665 1672 1673 1676 1677 1678 1681 1688 1689 1692 1693 1694 1697 1704 1705 1708 1709 1710 1713 1720 1721 1724 1725 1726 1729 1766 1768 1770 1789 1791 1793 1812 1814 1816 2432 2434 2437 2445 2447 2449 2465 2467 2469 2478 2480 2482 2492 2494 2496 2507 2509 2511 2552 2553 2555 2558 2560 2562 2564 2566 2573 2593 2594 2596 2599 2601 2603 2605 2607 2614 2649 2651 2654 2663 2665 2667 2675 2677 2679 2688 2690 2692 2713 2715 2717 2733 2735 2737 2779 2780 2781 2782 2783 2784 2785 2786 2787 2788 2789 2790 2791 2795 2798 2837 2838 2840 2843 2846 2847 2849 2852 2854 2856 2857 2858 2860 2862 2902 2904 2907 2918 2920 2922 2973 2974 2975 2976 2979 2981 2983 2991 2992 2993 2994 2998 3000 3002 3048 3049 3052 3055 3058 3060 3072 3073 3076 3078 3081 3083 3130 3131 3132 3133 3136 3138 3141 3143 3146 3148 3156 3157 3158 3159 3161 3163 3174 3175 3176 3177 3181 3182 3185 3187 3192 3194 3201 3202 3203 3204 3206 3208 3260 3268 3271 3273 3277 3279 3282 3284 3286 3319 3325 3329 3330 3332 3335 3337 3339 3341 3343 3345 3347 3349 3355 3360 3362 3364 3366 3368 3370 3373 3375 3377 3416 3421 3431 3435 3446 3450 3462 3466 3533 3540 3543 3545 3547 3549 3551 3553 3562 3569 3573 3575 3577 3579 3581 3583 3594 3599 3602 3603 3605 3607 3609 3611 3658 3659 3660 3661 3664 3666 3668 3671 3674 3676 3686 3687 3688 3689 3691 3693 3731 SEQ 0248 3733 3735 3763 3768 3770 3775 3777 3779 3810 3812 3814 3831 3833 3835 3852 3854 3856 3911 3917 4136 4137 4138 4139 4142 4143 4147 4150 4153 4155 4163 4164 4165 4166 4168 4170 4204 4221 4225 4226 4228 4231 4232 4234 4237 4238 4240 4242 4244 4246 4249 4251 4254 4256 4258 4260 4262 4265 4267 4270 4272 4298 4300 4302 4305 4307 4310 4312 4315 4317 4320 4322 4324 4326 4328 4362 4371 4374 4380 4382 4383 4384 4386 4387 4389 4391 4393 4394 4396 4398 4399 4401 4408 4415 4417 4422 4424 4426 4427 4429 4431 4433 4435 4438 4439 4441 4444 4445 4447 4457 4458 4466 4468 4473 4475 4477 4478 4480 4483 4485 4488 4489 4491 4494 4495 4497 4523 4534 4539 4541 4543 4545 4547 4550 4551 4553 4556 4557 4559 4571 4583 4588 4590 4592 4595 4597 4600 4601 4603 4606 4607 4609 4635 4646 4651 4653 4655 4658 4660 4662 4664 4666 4669 4671 4674 4675 4677 4680 4681 4683 4708 4713 4715 4717 4719 4721 4723 4726 4727 4729 4732 4733 4735 4792 4794 4796 4799 4801 4803 4806 4826 4827 4829 4831 4833 4835 4901 4903 4905 4908 4910 4912 4946 4947 4949 4953 4954 4956 COUNT 5124# 5124 5140 5144 5148 5162 5166 5170 5184 5188 5199 5218 5222 5302# 5302 5323 5327 5345 5371 5375 CPOPJ 613# CPOPJ1 611# CRLF 410 411 713# CRLF2 414 415 715# CRY0 524# 5705 5722 5739 5976 5993 6010 CRY1 524# 5750 5767 5784 5976 5993 6010 CSHFLG 772# 869 CSHMEM 773# CTRP 243# 524# 5315 5568 5598 5633 5679 5724 5769 5814 5859 5904 5949 5995 6048 6135 CYCL60 766# DCK 524# 5930 5947 5964 5976 5993 6010 DDTLNK 294# 551 DDTSRT 551# DEBUG 30# 7923 7924 DECVER 4# 10 15 572 DF22F 677# DFADRE 2137 2150# DFADTR 2136 2144# DFADTS 2136# 2148 DFDVRE 2342 2355# DFDVTR 2341 2348# DFDVTS 2341# 2352 2360 2365 DFMPRE 2212 2225# DFMPTR 2211 2219# DFMPTS 2211# 2223 DFSBRE 2174 2189# DFSBTR 2173 2183# DFSBTS 2173# 2187 DIAGMN 540# DING 266# DIVRET 2230 2244# DIVTRP 2229 2237# DIVTST 2229# 2241 2249 2254 DOLLAR 732# DSKUPD 577 SEQ 0249 EBIT0 524# EBIT1 524# EBIT10 524# EBIT11 524# EBIT12 524# EBIT13 524# EBIT14 524# EBIT15 524# EBIT2 524# EBIT3 524# EBIT4 524# EBIT5 524# EBIT6 524# EBIT7 524# EBIT8 524# EBIT9 524# EBRC1A 941# 948 EBRCK0 894 911# 919 1300 EBRCK1 927# 934 EBRCK2 954# EBRCK3 1122# 1129 EBRCK4 1135# END 49 50 51 227 7931# END1 51# ENDFIX 852# ENDSLD 7921# EPPM0 2636# 2740 EPPM1 2649# EPPM2 2663# EPPM3 2673# EPPM4 2686# EPPM5 2694# EPPM6 2711# 2718 EPPM7 2731# 2738 EPPM9 2640# 2655 2668 2680 2693 EPPT0 3700# EPPT1 3714 3719# EPPT2 3712 3726# 3732 EPPT3 3725 3738# ERMORE 626# EROLD 486 ERRPC 597# 888 ERRTLS 598# 897 ERSTOP 269# EXCASB 28# 575 EXCTRP 2392 2393# 2398 EXIOT 524# 5614 5631 5648 FADRET 2119 2132# FADTRP 2118 2126# FADTST 2118# 2130 FDVRET 2286 2300# FDVRRE 2314 2328# FDVRTR 2313 2321# SEQ 0250 FDVRTS 2313# 2325 2333 2338 FDVTRP 2285 2293# FDVTST 2285# 2297 2305 2310 FIXRET 2073 2087# FIXRRE 2096 2110# FIXRTR 2095 2103# FIXRTS 2095# 2107 2115 FIXTRP 2072 2080# FIXTST 2072# 2084 2092 FMPRET 2194 2207# FMPTRP 2193 2201# FMPTST 2193# 2205 FOV 524# 5795 5812 5829 5976 5993 6010 FOVU 524# FRDLNK 292# FSBRET 2155 2169# FSBTRP 2154 2163# FSBTST 2154# 2167 FSCRET 2055 2068# FSCTRP 2054 2062# FSCTST 2054# 2066 FSELNK 291# FXU 524# 5885 5902 5919 5976 5993 6010 HYPEN 723# IDIVRE 2258 2272# IDIVTR 2257 2265# IDIVTS 2257# 2269 2277 2282 IMULRE 2014 2028# IMULTR 2013 2021# IMULTS 2013# 2025 2033 INDX 43# 2762 2763 2772 2775 2779 2792 2801 2833 2837 2856 2865 2943 2950 2953 2957 2967 2971 2977 2986 2988 2996 3005 3102 3105 3109 3119 3120 3127 3134 3145 3151 3153 3160 3166 3171 3179 3190 3197 3198 3205 3211 3223 3398 3407 3415 3416 3417 3423 3430 3431 3432 3437 3445 3446 3447 3452 3461 3462 3463 3468 3632 3635 3639 3648 3649 3656 3662 3673 3679 3683 3690 3696 4109 4112 4116 4124 4125 4132 4140 4152 4158 4161 4167 4173 INHCSH 277# INHPAG 274# IOCLR 524# IOTCM 6024# IOTCM0 6035# 6058 6062 6068 6077 6081 IOTCM1 6022 6036 6053# 6065 6070 6074 6086 IOTCM2 6041 6060# IOTCM3 6039 6059 6064# IOTCMX 6076 6084# IOTTAB 6035 6092# ITERAT 114# 570 ITRCH1 630# 4091 ITRCNT 570# 2828 JOB41 524# JOBAPR 524# JOBCNI 524# SEQ 0251 JOBDDT 524# JOBFF 524# JOBOPC 524# JOBREL 524# JOBREN 524# JOBSA 524# JOBSYM 524# JOBTPC 524# JOBUSY 524# JOBUUO 524# JOBVER 524# KAIFLG 587# KLFLG 588# KLUBRX 873# 873 1314 1328 1361 1377 1393 1409 1425 1441 1457 1473 1489 1505 1521 1534 1565 1581 1597 1613 1629 1645 1661 1677 1693 1709 1725 KNTRP 238# 524# 5132 5155 5177 5207 5241 5261 5309 5356 5404 5442 5573 5592 5638 5684 5729 5774 5819 5864 5909 5954 6000 6042 KTRP 239# 524# 5312 5574 5597 5639 5685 5730 5775 5820 5865 5910 5955 6001 6045 LACLK 524# LACLKE 524# LAPRAL 524# 4093 LAPRP1 524# LAPRP2 524# 2535 2578 2621 LAPRP3 524# LAPRP4 524# LAPRP5 524# LAPRP6 524# LAPRP7 524# LAROVS 885# 885 1802 1810 1951 1958 1975 1982 1998 2005 2021 2028 2044 2050 2062 2068 2080 2087 2103 2110 2126 2132 2144 2150 2163 2169 2183 2189 2201 2207 2219 2225 2237 2244 2265 2272 2293 2300 2321 2328 2348 2355 LAROVT 127# 140# 884 1798 1803 1811 1952 1959 1976 1983 1999 2006 2022 2029 2045 2051 2063 2069 2081 2088 2104 2111 2127 2133 2145 2151 2164 2170 2184 2190 2202 2208 2220 2226 2238 2245 2266 2273 2294 2301 2322 2329 2349 2356 2382 3509 3841 3860 LAST 6177 6179# LCHNOF 524# 3904 3914 3962 3982 4002 4022 4042 4062 4082 4088 LCHNON 524# 2622 3951 3971 3991 4011 4031 4051 4071 4094 LCNTRP 152# 3519 LCNTXT 146# 524# LCNXER 524# 2535 2578 2621 LCPAER 524# 3961 3981 4001 4021 4041 4061 4081 4089 LCPSFT 524# LCPWRF 524# LCTRP 153# 3520 LDATAF 524# LDLNK 293# 540 542 LDNXER 524# LDPAER 524# 3961 3981 4001 4021 4041 4061 4081 4089 LDPSFT 524# LDPWRF 524# LEBXMH 161# 524# SEQ 0252 LEBXML 162# 524# LENXER 524# LEPAER 524# 3952 3972 3992 4012 4032 4052 4072 LEPSFT 524# LEPWRF 524# LEUPFW 157# 524# 2536 2563 2579 2604 2859 3283 3340 3367 3593 3608 3768 3776 4210 4230 4364 4392 4410 4437 4460 4487 4525 4549 4575 4599 4637 4673 4700 4725 4768 4793 4859 4902 4933 4945 6171 LEXCMP 524# LFLGCL 524# LFLGDS 524# LFLGEN 524# LFLGST 524# LFP 727# LINSTF 524# LINT 524# LIOCLR 524# 3905 3913 4089 LIP 247# LKNTRP 148# 878 3514 3515 3529 3531 3589 3590 LKTRP 149# 3516 LLACBL 524# 1310 LLDUSB 524# 1310 1323 1326 1356 1359 1372 1375 1388 1391 1404 1407 1420 1423 1436 1439 1452 1455 1468 1471 1484 1487 1500 1503 1516 1519 1529 1532 1560 1563 1576 1579 1592 1595 1608 1611 1624 1627 1640 1643 1656 1659 1672 1675 1688 1691 1704 1707 1720 1723 1746 2458 2539 2581 2641 2712 2732 2778 2832 2901 2970 3046 3123 3259 3318 3410 3425 3440 3455 3489 3561 3567 3572 3596 3614 3655 3682 3701 3721 3728 3750 3758 3761 3767 3774 3794 4128 4135 4146 4212 4286 4366 4462 4527 4577 4633 4639 4702 4772 4863 4869 4879 4935 5122 5486 5510 5533 5552 5617 5663 5708 5753 5798 5843 5888 5933 5979 6146 6208 LMBXMH 163# 524# LMBXML 164# 524# LMUUO 144# 3544 3574 LMUUOP 145# 3550 3580 LNXMEN 524# LNXMER 524# 2571 2612 LOOPER 268# LPAREN 524# LPARER 524# LPDOVS 883# 883 1779 1787 2369 LPDOVT 128# 141# 882 1775 1780 1788 2370 2384 3510 3511 3820 LPFWPC 158# 524# 2537 4236 4343 4397 4443 4493 4555 4605 4679 4731 4769 4800 4814 4860 4909 4952 LPGFTR 159# 524# 876 2541 2583 2620 2835 2870 3255 3292 3314 3353 3383 3506 3507 3592 3616 3752 3754 3785 4202 4278 4335 4360 4407 4456 4504 4521 4568 4630 4694 4742 4764 4790 4855 4871 4881 4890 4899 4931 4962 6142 6143 LPICH1 524# 4094 LPICH2 524# 2622 LPICH3 524# LPICH4 524# LPICH5 524# LPICH6 524# SEQ 0253 LPICH7 524# LPICHA 524# LPICLR 524# 3904 3914 3962 3982 4002 4022 4042 4062 4082 4088 LPIIP1 524# LPIIP2 524# LPIIP3 524# LPIIP4 524# LPIIP5 524# LPIIP6 524# LPIIP7 524# LPIOFF 524# 3904 3914 3962 3982 4002 4022 4042 4062 4082 4088 LPION 524# 3951 3971 3991 4011 4031 4051 4071 4094 LPNTRP 154# 3521 LPRCH1 524# LPRCH2 524# LPRCH3 524# LPRCH4 524# LPRCH5 524# LPRCH6 524# LPRCH7 524# LPRFMH 133# 524# LPRFML 134# 524# LPSFT 524# LPSFTE 524# LPTRP 155# 3522 LPWRFE 524# LPWRFL 524# LREQSE 524# LRQCLR 524# LSECMO 524# LSMODE 524# LSNTRP 150# 3517 LSNXER 524# LSPAER 524# 3952 3972 3992 4012 4032 4052 4072 LSPSFT 524# LSPWRF 524# LSTRP 151# 3518 LTBASH 131# 524# LTBASL 132# 524# LTRP3S 881# 881 1755 1764 3729 4823 LTRP3T 129# 142# 880 1751 1756 1765 3512 3513 3713 3715 3730 3799 4766 4824 4857 LTRPAE 524# LTRPEN 524# 941 944 973 987 1001 1015 1029 1043 1057 1071 1085 1099 1113 1125 1154 1168 1182 1196 1210 1224 1238 1252 1266 1280 1294 1745 1752 1763 1776 1786 1799 1809 2457 2538 2580 2640 2711 2731 2777 2830 2900 2969 3045 3122 3258 3317 3409 3424 3439 3454 3488 3654 3681 3700 3720 3727 3749 3757 3760 3766 3773 3793 3800 3803 3809 3821 3824 3830 3842 3845 3851 3910 3942 4087 4127 4134 4145 4160 4211 4285 4342 4365 4461 4526 4576 4632 4638 4701 4771 4777 4783 4812 4862 4868 4878 4934 5121 5485 5509 5532 5551 5616 5662 5707 5752 5797 5842 5887 5932 5978 6145 6207 LUSCMP 524# SEQ 0254 LUUO 524# LUUO1 657 658 LUUO10 657 662 LUUO11 657 662 LUUO12 657 663 LUUO13 657 663 LUUO14 657 664 LUUO15 657 664 LUUO16 657 665 LUUO17 657 665 LUUO2 657 659 LUUO20 657 666 LUUO21 657 666 LUUO22 657 667 LUUO23 657 667 LUUO24 657 668 LUUO25 657 668 LUUO26 657 669 LUUO27 657 669 LUUO3 657 659 LUUO30 657 670 LUUO31 657 670 LUUO32 657 671 LUUO33 657 671 LUUO4 657 660 LUUO5 657 660 LUUO6 657 661 LUUO7 657 661 LUUOI 524# 874 3503 LUUOIS 875# 875 LWRITE 524# MAPCK0 2371 2431# 2514 MAPCK1 2445# MAPCK2 2454# MAPCK3 2465# MAPCK4 2478# MAPCK5 2490# MAPCK6 2505# MAPCK9 2457# 2470 2483 2497 2512 MAPNEW 678# MARGIN 600# MCNVER 3# 10 15 572 MEMLOW 680# MEMMAP 578 MEMSIZ 681# MEMTOT 679# MINUS 722# MODDVC 276# MODDVL 31# 475 573 MODDVU 32# 476 574 MODE 5542# 5558 5608# 5623 5654# 5669 5714 5759 5804 5849 5894 5939 5985 MODLNK 295# 537 MONCTL 590# SEQ 0255 MONFLG 589# MONTEN 591# MONTYP 804# MPVU 524# MTRX 2417# MTRZ 2416# MULRET 1991 2005# MULTRP 1990 1998# MULTST 1990# 2002 2010 MUU100 5147# MUU114 5163 5169# 5185 MUUO 236# 524# 5117 5133 5134 5156 5157 5178 5179 5195 5208 5209 5212 5232 5233 5244 5266 5267 5273 5290 5316 5317 5337 5359 5360 5366 5396 5397 5409 5443 5444 5453 5575 5640 5686 5731 5776 5821 5866 5911 5956 6002 6021 6050 6051 6064 6073 6112 6139 6140 6151 6158 6161 6172 MUUOER 879 3588# 3588 MUUOPC 237# 524# 5576 5641 5687 5732 5777 5822 5867 5912 5957 6003 MUUOXA 5146 5153 5158# 5165 5187 MUUOXB 5168 5175 5180# MUUSTA 5154# 5161 5167 MUUSTB 5176# 5183 5189 MUXPCA 5154 5162# MUXPCB 5176 5184# MXFLG 886# 886 NOPNT 264# NXMU 524# OPRSEL 278# OPTIME 692# OVSTR1 1840 1848 1854 1865 1877 1883 1896 1898# 1898 1911 1922 1924 1936 2415# P 321 322 323 324 524# 612 6206 6217 P0ARO1 1806 1820# P0AROV 1797 1808# 1813 P0AROX 1783 1802# 1812 P0PDL 1774 1785# 1790 P0PDLX 1760 1779# 1789 P0TP3 1750 1762# 1767 P0TP3X 1755# 1766 P0TRP0 1744# 1819 P0TRP1 1750# 1771 1794 1817 PAG 524# 913 914 928 929 930 942 943 944 971 972 973 985 986 987 999 1000 1001 1013 1014 1015 1027 1028 1029 1041 1042 1043 1055 1056 1057 1069 1070 1071 1083 1084 1085 1097 1098 1099 1111 1112 1113 1123 1124 1125 1152 1153 1154 1166 1167 1168 1180 1181 1182 1194 1195 1196 1208 1209 1210 1222 1223 1224 1236 1237 1238 1250 1251 1252 1264 1265 1266 1278 1279 1280 1292 1293 1294 1311 1312 1324 1325 1326 1357 1358 1359 1373 1374 1375 1389 1390 1391 1405 1406 1407 1421 1422 1423 1437 1438 1439 1453 1454 1455 1469 1470 1471 1485 1486 1487 1501 1502 1503 1517 1518 1519 1530 1531 1532 1561 1562 1563 1577 1578 1579 1593 1594 1595 1609 1610 1611 1625 1626 1627 1641 1642 1643 1657 1658 1659 1673 1674 1675 1689 1690 1691 1705 1706 1707 1721 1722 1723 1745 1746 1752 1763 1776 1786 1799 1809 2457 2458 2538 2539 2580 2581 2640 2641 2711 2712 2731 2732 2777 2778 2830 2832 2900 2901 2969 2970 3045 3046 3122 3123 3258 3259 3317 3318 3409 3410 3424 3425 3439 3440 3454 3455 SEQ 0256 3488 3489 3561 3567 3572 3596 3614 3654 3655 3681 3682 3700 3701 3720 3721 3727 3728 3749 3750 3757 3758 3760 3761 3766 3767 3773 3774 3793 3794 3800 3803 3809 3821 3824 3830 3842 3845 3851 3910 3942 4087 4127 4128 4134 4135 4145 4146 4160 4211 4212 4285 4286 4342 4365 4366 4461 4462 4526 4527 4576 4577 4632 4633 4638 4639 4701 4702 4771 4772 4777 4783 4812 4862 4863 4868 4869 4878 4879 4934 4935 5121 5122 5485 5486 5509 5510 5532 5533 5551 5552 5616 5617 5662 5663 5707 5708 5752 5753 5797 5798 5842 5843 5887 5888 5932 5933 5978 5979 6145 6146 6207 6208 PAGE1 5305 5352 5400 5436 6038 6204# PAGRD0 2927 2941# PAGRD1 2946# 2967 PAGRD2 2952 2966# PAGRD3 2969# 3007 PAGRD4 2973# 2984 2986 PAGRD5 2988# 3003 3005 PAGRDA 2882# 2925 PAGRDB 2900# 2908 PAGRDC 2918# PAGRDX 2983 3002 3010# PAGSET 5299 5342 5394 5429 5562 5627 5673 5718 5763 5808 5853 5898 5943 5989 6030 6197# 6216 PAGSIZ 6182 6197 PALERS 270# PAREA1 107# 568 PAREA2 108# 569 PAREA3 109# 566 PAREA4 110# 567 PAREA5 111# 579 PAREA6 112# 580 PAREA7 579# PAREA8 580# PARU 524# PASCNT 594# 896 PATCH 7924# PDISF 689# PDLOVU 524# PDOVTP 234# 524# 5499 5513 PDSET 1838 1863 1894 1920 2377# PDT0 1834# 2403 PDT1 1836# 1846 1852 1858 2367 PDT10 1918# 1930 1934 1940 PDT11 1928# PDT11A 1918 1923 1932# PDT12 1919 1937# PDT2 1836 1844# PDT3 1837 1849# PDT4 1869# 1884 PDT4A 1861# 1871 1875 1881 1889 PDT5 1861 1867 1873# PDT6 1862 1878# PDT7 1892# 1904 1909 1915 PDT8 1892 1902# PDT9 1893 1906# SEQ 0257 PERIOD 719# PFAIL0 2528# 2548 2556 2561 2567 2574 2624 PFAIL1 2540 2552# PFAIL2 2549 2571# PFAIL3 2578# 2588 2597 2602 2608 2615 PFAIL4 2582 2593# PFAIL5 2589 2612# PFAIL6 2619# PFBLT0 4195# 4332 PFBLT1 4204# 4222 4274 PFBLT2 4218# 4237 PFBLT3 4201 4225# 4330 PFBLT4 4277# PFBLT5 4277 4340# PFBYT0 4336 4355# 4501 PFBYT1 4362# 4375 4403 PFBYT2 4371# 4398 PFBYT3 4359 4380# PFBYT4 4406# 4418 4449 PFBYT5 4415# 4444 PFBYT6 4406 4422# PFBYT7 4455# 4469 4499 PFBYT8 4466# 4494 PFBYT9 4455 4473# PFDMM0 4625# 4739 PFDMM1 4632# 4647 4685 PFDMM2 4643# 4680 PFDMM3 4629 4651# PFDMM4 4693# 4709 4737 PFDMM5 4706# 4732 PFDMM6 4693 4713# PFDMV0 4516# 4613 PFDMV1 4522# 4535 4561 PFDMV2 4531# 4556 PFDMV3 4520 4539# PFDMV4 4567# 4584 4611 PFDMV5 4581# 4606 PFDMV6 4567 4588# PFIO0 4925# 4959 PFIO1 4933# 4943 4944 4950 4957 PFIO2 4939# 4953 PFIO3 4930 4945# PFSTRT 546# PFT0 3214 3246# 3289 PFT1 3257# 3269 3274 3280 3287 PFT2 3254 3271# PFT3 3270 3291# PGFAIL 877# 877 2619 2869 3291 3382 3615 3784 4334 4503 4741 4789 4870 4880 4889 4898 4961 PGMEND 29# 7930 PGMNAM 571 855# PGR400 2886 2902 2903 2929# PGR777 2888 2918 2919 2930# SEQ 0258 PGRDTB 49# 2950 2953 2957 2977 2995 PGW400 3031 3047 3049 3051 3057 3090# 3251 3257 3263 3265 3282 3309 3316 3321 3322 3339 3346 PGW777 3033 3071 3073 3075 3080 3091# 3311 3354 3357 3358 3366 3374 PGWRT0 3088 3100# 3213 PGWRT1 3105# 3120 PGWRT2 3122# 3164 PGWRT3 3130# 3144 3149 3151 PGWRT4 3153# 3166 PGWRT5 3168# 3209 PGWRT6 3174# 3188 3195 3197 PGWRT7 3198# 3211 PGWRTA 3008 3027# 3086 PGWRTB 50# 3105 3109 3124 3125 3126 3134 3145 3160 3168 3169 3170 3178 3189 3205 3223 3635 3639 3651 3652 3653 3662 3673 3690 4112 4116 4129 4130 4131 4140 4152 4167 PGWRTC 3071# 3079 3084 PGWRTX 3143 3148 3187 3216# 3671 4150 PGWRTY 3163 3208 3222# 3676 3693 4155 4170 PGWRTZ 3194 3228# PGWTBB 3045# 3056 3061 PI 2534 2622 3904 3912 3914 3951 3962 3971 3982 3991 4002 4011 4022 4031 4042 4051 4062 4071 4082 4088 4094 PICHN1 524# PICHN2 524# 2534 PICHN3 524# PICHN4 524# PICHN5 524# PICHN6 524# PICHN7 524# PICHNA 524# PICLR 524# PIOFF 524# PION 524# PLIST 758# 758 PLISTE 758 760# PLISTS 759# PLUS 724# PNTENB 688# PNTEXT 567# PNTFLG 687# PNTINH 690# PNTLPT 265# PNTNAM 566# PNTRP 244# 524# 5310 5358 5406 5440 5569 5593 5634 5680 5725 5770 5815 5860 5905 5950 5996 6043 6136 PNTSPC 691# PTRP 245# 524# 5314 5570 5599 5635 5681 5726 5771 5816 5861 5906 5951 5997 6047 6137 PVPAGI 785# 870 QUEST 730# RADIX 733# RADLSC 735# SEQ 0259 RADLSP 734# RANDBS 568# REENTR 548# RELIAB 272# 891 REPT 122 524# 911 1309 1744 1834 2431 2528 2636 2757 2824 2882 2941 2942 3027 3100 3101 3246 3305 3397 3487 3630 3631 3748 3792 3878 3879 4107 4108 4195 4355 4516 4625 4758 4849 4925 REPT1 524# REPTU 646# REQSET 524# RESRT1 96 623# RESRT2 624# RETO 2379 2405 2410# RETURN 555# RLARO1 3848 3863# RLAROV 3840 3850# 3853 RLAROX 3845# 3852 RLBAS0 3487# 3617 RLBAS1 3528# RLBAS2 3533# 3541 3548 3554 RLBAS3 3561# 3570 3578 3584 RLBAS4 3588# RLBAS5 3614# RLBAS6 3630# 3724 3736 3738 RLBMU0 3537# 3549 RLBMU1 3528 3543# RLBMU2 3566# 3579 RLBMU3 3530 3572# RLEPM0 4107# 4175 RLEPM1 4112# 4125 RLEPM2 4127# 4171 RLEPM3 4136# 4151 4156 4158 RLEPM4 4160# 4173 RLIERR 3895 3909# RLINT0 3878# RLINT1 3904# 3918 4085 RLINT2 3906 3942# RLINT3 3945# RLINT4 3965# RLINT5 3985# RLINT6 4005# RLINT7 4025# RLINT8 4045# RLINT9 4065# RLINTA 4087# RLITR1 3880 4077# RLITR2 3882 4057# RLITR3 3884 4037# RLITR4 3886 4017# RLITR5 3888 3997# RLITR6 3890 3977# RLITR7 3892 3957# RLPDL 3819 3829# 3832 SEQ 0260 RLPDL1 3827 3837# RLPDLX 3824# 3831 RLPF1 3593# 3600 3606 3612 RLPFL 3591 3602# RLPFT0 3748# 3782 RLPFT1 3751 3773# RLPFT2 3753 3766# RLPFT3 3759# 3780 RLPFT4 3764 3771 3784# RLTP3 3798 3808# 3811 RLTP3X 3803# 3810 RLTP4 3806 3816# RLTRP0 3792# 3862 RLTRP1 3798# 3815 3836 3857 RLWRT1 3635# 3649 RLWRT2 3651# 3672 3677 3694 RLWRT3 3658# 3679 RLWRT4 3681# 3696 RPEAT 893# 893 911 1309 1744 1834 2431 2528 2636 2757 2882 2941 3027 3100 3246 3305 3397 3487 3630 3748 3792 3878 4107 4195 4355 4516 4625 4758 4849 4925 RSTART 261# RTP 728# RUNFLG 595# SADR1 95# 544 SADR10 104# 560 SADR11 105# 561 SADR2 96# 546 SADR3 97# 548 SADR4 98# SADR5 99# 609 SADR6 100# 610 SADR7 101# 557 SADR8 102# 558 SADR9 103# 559 SBINIT 334 554# SCOPE 647# 887 5120# 5120 SFSRT1 95 896# SFSTRT 544# SHTRP 2380 2400 2402 2409# SLASH 731# SM10 835# SNTRP 240# 524# 5311 5357 5405 5441 5571 5594 5636 5682 5727 5772 5817 5862 5907 5952 5998 6044 SPACE 720# SRTDDT 98 550# START 538 867# START1 557# START2 558# START3 559# START4 560# START5 561# STARTA 553 887# SEQ 0261 STMUUO 4964 5120# STRP 241# 524# 5313 5572 5596 5637 5683 5728 5773 5818 5863 5908 5953 5999 6046 SUBLNK 296# 554 SWPTAB 841# SWTEXR 569# SYSEXR 542# T 902# 918 933 947 977 991 1005 1019 1033 1047 1061 1075 1089 1103 1117 1128 1158 1172 1186 1200 1214 1228 1242 1256 1270 1284 1298 1317 1331 1365 1381 1397 1413 1429 1445 1461 1477 1493 1509 1525 1537 1569 1585 1601 1617 1633 1649 1665 1681 1697 1713 1729 1738# 1759 1770 1782 1793 1805 1816 1845 1851 1857 1870 1874 1880 1888 1903 1908 1914 1929 1933 1939 1954 1962 1978 1986 2001 2009 2024 2032 2047 2065 2083 2091 2106 2114 2129 2147 2166 2186 2204 2222 2240 2248 2253 2268 2276 2281 2296 2304 2309 2324 2332 2337 2351 2359 2364 2402 2421# 2437 2449 2469 2482 2496 2511 2519# 2547 2555 2560 2566 2573 2587 2596 2601 2607 2614 2630# 2654 2667 2679 2692 2717 2737 2751# 2798 2818# 2843 2849 2854 2862 2876# 2907 2922 2983 3002 3021# 3055 3060 3078 3083 3143 3148 3163 3187 3194 3208 3236# 3268 3273 3279 3286 3299# 3325 3332 3337 3343 3349 3360 3364 3370 3377 3391# 3421 3435 3450 3466 3481# 3540 3547 3553 3569 3577 3583 3599 3605 3611 3624# 3671 3676 3693 3723 3735 3763 3770 3779 3805 3814 3826 3835 3847 3856 3872# 3917 4101# 4150 4155 4170 4189# 4221 4228 4234 4240 4246 4251 4256 4262 4267 4272 4302 4307 4312 4317 4322 4328 4349# 4374 4382 4386 4391 4396 4401 4417 4424 4429 4435 4441 4447 4468 4475 4480 4485 4491 4497 4510# 4534 4543 4547 4553 4559 4583 4592 4597 4603 4609 4619# 4646 4655 4660 4666 4671 4677 4683 4708 4717 4723 4729 4735 4752# 4780 4785 4796 4803 4817 4829 4835 4843# 4874 4883 4892 4905 4912 4919# 4942 4949 4956 5115# 5138 5160 5182 5193# 5216 5227# 5248 5254# 5277 5288# 5321 5330 5335# 5364 5369 5378 5383# 5413 5417 5422# 5451 5456 5464 5474# 5492 5497# 5516 5521# 5539 5580 5586 5645 5651 5691 5697 5736 5742 5781 5787 5826 5832 5871 5877 5916 5922 5961 5967 6007 6014 6019# 6057 6061 6067 6076 6109# 6155 6164 6174 6215 TAB 721# TESTPC 596# 868 910 926 940 953 1134 1308 1337 1743 1833 2430 2527 2635 2756 2823 2881 2940 3026 3099 3245 3304 3396 3486 3629 3747 3791 3877 4106 4194 4354 4515 4624 4757 4848 4924 5127 5151 5173 5202 5236 5264 5295 5348 5390 5433 5481 5505 5528 5555 5620 5666 5711 5756 5801 5846 5891 5936 5982 6026 6118 TICKS 599# TIPF0 4758# 4781 4786 4797 4804 4830 4836 4838 TIPF1 4777# TIPF10 4818 4849# 4875 4876 4884 4885 4893 4894 4906 4913 4915 TIPF11 4868# TIPF12 4854 4898# TIPF14 4856 4888# TIPF1X 4866 4878# 4901 4908 TIPF2 4763 4789# TIPF3 4807 4810# TIPF4 4765 4792 4822# 4832 TIPF5 4825 4826# 4826 TIPFX 4775 4783# 4799 4810 4831 TN0 53# 248# 524# 1754 1778 3707 3802 3823 4775 4799 4866 4908 5511 5534 TN1 54# 249# 524# 1754 1801 3707 3802 3844 4775 4799 4866 4908 5487 5534 SEQ 0262 TOTALS 262# TPLST 6186 6191# TRAP0 5460 5462 5478# TRAP0A 5485# 5493 TRAP1 5502# TRAP1A 5509# 5517 TRAP2A 5534# 5540 TRAPST 204 6184# 6189 TRINST 2387 2392# TRP02 5525# TRP3TP 235# 524# 5523 5536 TRPLOC 2385 2388 2396 2412# TRPSAV 2389 2395 2411# TRPTYP 2374 2377 2383 2413# TSTWD 1842 1855 1857 1897# 1897 1906 1908 2414# TTNBRF 779# TTYFIL 695# TTYSPD 696# TXTINH 273# UBAVEC 524# UBLT 6082 6115# UBLT3 6116# UBLT4 6120# 6156 6165 6175 UBLT5 6132 6151# UBLT6 6134 6171# UBLT7 6166 6177# UBRCK0 1309# 1318 1731 UBRCK1 1323# 1332 UBRCK2 1338# UBRCK3 1529# 1538 UBRCK4 1542# UEXT 5591 5604# UPMP 227 227# 5290 5307 5309 5310 5311 5312 5313 5314 5315 5316 5317 5337 5354 5356 5357 5358 5359 5360 5366 5396 5397 5402 5404 5405 5406 5409 5438 5440 5441 5442 5443 5444 5453 5567 5568 5569 5570 5571 5572 5575 5576 5592 5593 5594 5595 5596 5597 5598 5599 5632 5633 5634 5635 5636 5637 5640 5641 5678 5679 5680 5681 5682 5683 5686 5687 5723 5724 5725 5726 5727 5728 5731 5732 5768 5769 5770 5771 5772 5773 5776 5777 5813 5814 5815 5816 5817 5818 5821 5822 5858 5859 5860 5861 5862 5863 5866 5867 5903 5904 5905 5906 5907 5908 5911 5912 5948 5949 5950 5951 5952 5953 5956 5957 5994 5995 5996 5997 5998 5999 6002 6003 6021 6040 6042 6043 6044 6045 6046 6047 6048 6050 6051 6064 6073 6112 6120 6123 6133 6135 6136 6137 6139 6140 6142 6143 6146 6151 6158 6161 6171 6172 6202 6208 USER 586# USERF 524# 5549 5566 5583 5605 6149 6159 6162 6205 6210 6213 USRASB 576 USRCRF 705# USREXT 5602# USRLFF 704# USRRTN 5591# UUODIS 658# UUOEXT 614# SEQ 0263 UUORTN 615# UUOSKP 612# WRTP0 3305# 3380 WRTP1 3316# 3326 3327 3333 3338 3344 3350 3365 3371 3378 WRTP2 3345# WRTP3 3352# 3361 WRTP4 3373# WRTPF 3313 3329# WRTPF1 3352 3362# XAC0 6185# 6185 6188 XX 949# 968 968# 969 969# 970 982 982# 983 984 996 996# 997 998 1010 1010# 1011 1012 1024 1024# 1025 1026 1038 1038# 1039 1040 1052 1052# 1053 1054 1066 1066# 1067 1068 1080 1080# 1081 1082 1094 1094# 1095 1096 1108 1108# 1109 1110 1130# 1149 1149# 1150 1150# 1151 1163 1163# 1164 1165 1177 1177# 1178 1179 1191 1191# 1192 1193 1205 1205# 1206 1207 1219 1219# 1220 1221 1233 1233# 1234 1235 1247 1247# 1248 1249 1261 1261# 1262 1263 1275 1275# 1276 1277 1289 1289# 1290 1291 1333# 1354 1354# 1355 1355# 1356 1370 1370# 1371 1372 1386 1386# 1387 1388 1402 1402# 1403 1404 1418 1418# 1419 1420 1434 1434# 1435 1436 1450 1450# 1451 1452 1466 1466# 1467 1468 1482 1482# 1483 1484 1498 1498# 1499 1500 1514 1514# 1515 1516 1540# 1558 1558# 1559 1559# 1560 1574 1574# 1575 1576 1590 1590# 1591 1592 1606 1606# 1607 1608 1622 1622# 1623 1624 1638 1638# 1639 1640 1654 1654# 1655 1656 1670 1670# 1671 1672 1686 1686# 1687 1688 1702 1702# 1703 1704 1718 1718# 1719 1720 $$MUUO 810# $$OUTE 816# $$TAX1 828# $$TAX2 829# $$TOGG 822# $$UUO 799# $ACC0 637# $BEND1 607# $BEND2 99 608# $CHRIN 698# $CRLF 700# $DEVCH 524# $DSKUP 577# $DVOFF 694# $EMODE 575# $FFF 702# $IBUF 750# $INEXT 752# $INNM 751# $ITRHL 618# $ITRX1 619# $LPAPE 6223 $MMAP 578# $MODVL 573# $MODVU 574# $OBUF 741# $ONETM 601# $OUTEX 743# $OUTNM 742# SEQ 0264 $PAPER 524 $PARER 625# $PNAME 571# $PSHER 629# $PVER 572# $RSRTX 621# $RSRTY 622# $SPAG1 641# $START 538# $SVAPR 639# $SVPAG 640# $SVPI 638# $SVUPC 644# $SVUUO 643# $TABF 701# $TTCHR 697# $TWCNT 693# $TYPNB 699# $UMODE 576# $UORTX 616# $USRHL 620# $UUOER 617# 658 $VTF 703# %ACTFL 650# %ACTUL 651# %COREC 649# %CORFL 648# %DISCR 652# %ERHI1 791# %ERHI2 792# %ERHI3 793# ..0001 5549 5566 5582# ..0002 5551# 5581 5587 ..0003 5565 5577# ..0004 5614 5631 5647# ..0005 5616# 5646 5652 ..0006 5630 5642# ..0007 5660 5677 5693# ..0010 5662# 5692 5698 ..0011 5676 5688# ..0012 5705 5722 5738# ..0013 5707# 5737 5743 ..0014 5721 5733# ..0015 5750 5767 5783# ..0016 5752# 5782 5788 ..0017 5766 5778# ..0020 5795 5812 5828# ..0021 5797# 5827 5833 ..0022 5811 5823# ..0023 5840 5857 5873# ..0024 5842# 5872 5878 ..0025 5856 5868# ..0026 5885 5902 5918# SEQ 0265 ..0027 5887# 5917 5923 ..0030 5901 5913# ..0031 5930 5947 5963# ..0032 5932# 5962 5968 ..0033 5946 5958# ..0034 5976 5993 6009# ..0035 5978# 6008 6015 ..0036 5992 6004# .JB41 524# .JBAPR 524# .JBCNI 524# .JBDDT 524# .JBFF 524# .JBOPC 524# .JBREL 524# .JBREN 524# .JBSA 524# .JBSYM 524# .JBTPC 524# .JBUSY 524# .JBUUO 524# .JBVER 524# APRID 524# BCIO 524# SEQ 0266 BCIOB 524# BSIO 524# BSIOB 524# CFLUSH 446# CINVAL 445# CLOKOP 440# CLRPT 524# CWRTBI 447# DROPDV 407# ENDUUO 453# 606 EOPUUO 454# 608 ERLOOP 494# 919 934 948 978 992 1006 1020 1034 1048 1062 1076 1090 1104 1118 1129 1159 1173 1187 1201 1215 1229 1243 1257 1271 1285 1299 1318 1332 1366 1382 1398 1414 1430 1446 1462 1478 1494 1510 1526 1538 1570 1586 1602 1618 1634 1650 1666 1682 1698 1714 1730 1771 1794 1817 1846 1852 1858 1871 1875 1881 1889 1904 1909 1915 1930 1934 1940 1955 1963 1979 1987 2002 2010 2025 2033 2048 2066 2084 2092 2107 2115 2130 2148 2167 2187 2205 2223 2241 2249 2254 2269 2277 2282 2297 2305 2310 2325 2333 2338 2352 2360 2365 2403 2438 2450 2470 2483 2497 2512 2548 2556 2561 2567 2574 2588 2597 2602 2608 2615 2655 2668 2680 2693 2718 2738 2799 2844 2850 2855 2863 2908 2923 2984 3003 3056 3061 3079 3084 3144 3149 3164 3188 3195 3209 3269 3274 3280 3287 3326 3333 3338 3344 3350 3365 3371 3378 3422 3436 3451 3467 3541 3548 3554 3570 3578 3584 3600 3606 3612 3672 3677 3694 3724 3736 3780 3815 3836 3857 4151 4156 4171 4274 4330 4403 4449 4499 4561 4611 4685 4737 4797 4804 4830 4836 4875 4884 4893 4906 4913 4943 4950 4957 5581 5587 5646 5652 5692 5698 5737 5743 5782 5788 5827 5833 5872 5878 5917 5923 5962 5968 6008 6015 ERLP1 495# ERLP2 496# 5139 5161 5183 5217 5249 5278 5322 5331 5365 5370 5379 5414 5418 5452 5457 5465 5493 5517 5540 6058 6062 6068 6077 6156 6165 6175 6216 ERRHLT 341# ERROR 503# 916 932 946 975 989 1003 1017 1031 1045 1059 1073 1087 1101 1115 1127 1156 1170 1184 1198 1212 1226 1240 1254 1268 1282 1296 1316 1330 1363 1379 1395 1411 1427 1443 1459 1475 1491 1507 1523 1536 1567 1583 1599 1615 1631 1647 1663 1679 1695 1711 1727 1769 1792 1815 1844 1850 1856 1869 1873 1879 1887 1902 1907 1913 1928 1932 1938 1953 1961 1977 1985 2000 2008 2023 2031 2046 2064 2082 2090 2105 2113 2128 2146 2165 2185 2203 2221 2239 2247 2252 2267 2275 2280 2295 2303 2308 2323 2331 2336 2350 2358 2363 2401 2435 2448 2468 2481 2495 2510 2545 2554 2559 2565 2572 2586 2595 2600 2606 2613 2652 2666 2678 2691 2716 2736 2796 2841 2848 2853 2861 2905 2982 3001 3053 3059 3077 3082 3142 3147 3162 3186 3193 3207 3266 3272 3278 3285 3323 3331 3336 3342 3348 3363 3369 3376 3419 3434 3449 3465 3538 3546 3552 3568 3576 3582 3598 3604 3610 3669 3675 3692 3722 3734 3813 3834 3855 4148 4154 4169 4795 4802 4828 4834 4872 4882 4891 4904 4911 4940 4948 4955 5578 5584 5643 5649 5689 5695 5734 5740 5779 5785 5824 5830 5869 5875 5914 5920 5959 5965 6005 6012 ERROR1 514# 1757 1781 1804 2921 3359 3762 3769 3778 3804 3825 3846 3915 4219 4227 4233 4239 4245 4250 4255 4261 4266 4271 4301 4306 4311 4316 4321 4327 4372 4381 4385 4390 4395 4400 4416 4423 4428 4434 4440 4446 4467 4474 4479 4484 4490 4496 4532 4542 4546 4552 4558 4582 4591 4596 4602 4608 4644 4654 4659 4665 4670 4676 4682 4707 4716 4722 4728 4734 4778 4784 4816 5136 5159 5181 5214 5246 5275 5319 5329 5362 5368 5377 5411 SEQ 0267 5416 5449 5455 5463 5490 5514 5537 6055 6060 6066 6075 6153 6163 6173 6214 ERUUO 493# 918 933 947 977 991 1005 1019 1033 1047 1061 1075 1089 1103 1117 1128 1158 1172 1186 1200 1214 1228 1242 1256 1270 1284 1298 1317 1331 1365 1381 1397 1413 1429 1445 1461 1477 1493 1509 1525 1537 1569 1585 1601 1617 1633 1649 1665 1681 1697 1713 1729 1759 1770 1782 1793 1805 1816 1845 1851 1857 1870 1874 1880 1888 1903 1908 1914 1929 1933 1939 1954 1962 1978 1986 2001 2009 2024 2032 2047 2065 2083 2091 2106 2114 2129 2147 2166 2186 2204 2222 2240 2248 2253 2268 2276 2281 2296 2304 2309 2324 2332 2337 2351 2359 2364 2402 2437 2449 2469 2482 2496 2511 2547 2555 2560 2566 2573 2587 2596 2601 2607 2614 2654 2667 2679 2692 2717 2737 2798 2843 2849 2854 2862 2907 2922 2983 3002 3055 3060 3078 3083 3143 3148 3163 3187 3194 3208 3268 3273 3279 3286 3325 3332 3337 3343 3349 3360 3364 3370 3377 3421 3435 3450 3466 3540 3547 3553 3569 3577 3583 3599 3605 3611 3671 3676 3693 3723 3735 3763 3770 3779 3805 3814 3826 3835 3847 3856 3917 4150 4155 4170 4221 4228 4234 4240 4246 4251 4256 4262 4267 4272 4302 4307 4312 4317 4322 4328 4374 4382 4386 4391 4396 4401 4417 4424 4429 4435 4441 4447 4468 4475 4480 4485 4491 4497 4534 4543 4547 4553 4559 4583 4592 4597 4603 4609 4646 4655 4660 4666 4671 4677 4683 4708 4717 4723 4729 4735 4780 4785 4796 4803 4817 4829 4835 4874 4883 4892 4905 4912 4942 4949 4956 5138 5160 5182 5216 5248 5277 5321 5330 5364 5369 5378 5413 5417 5451 5456 5464 5492 5516 5539 5580 5586 5645 5651 5691 5697 5736 5742 5781 5787 5826 5832 5871 5877 5916 5922 5961 5967 6007 6014 6057 6061 6067 6076 6155 6164 6174 6215 FATAL 340# FLGTST 167# 5544 5609 5655 5700 5745 5790 5835 5880 5925 5970 FRD36 482# FRD8 483# FREAD 481# FSELEC 480# GET 324# 2404 GO 321# 1838 1863 1894 1920 1945 1968 1992 2015 2038 2056 2074 2097 2120 2138 2156 2175 2195 2213 2231 2259 2287 2315 2343 5299 5305 5342 5352 5394 5400 5429 5436 5562 5627 5673 5718 5763 5808 5853 5898 5943 5989 6030 6038 HALT 101 102 103 104 105 326# 627 3955 3975 3995 4015 4035 4055 4075 5211 5243 5272 5408 5603 5606 6100 6103 6113 6129 6150 6152 JEN 328# 6101 JRSTF 327# 1753 1777 1800 2405 3535 3564 3705 3801 3822 3843 4213 4287 4343 4367 4411 4463 4528 4578 4640 4703 4774 4814 4865 4936 5488 5512 5535 6148 6209 MAP 47# 2433 2446 2466 2479 2493 2508 2650 2664 2676 2689 2714 2734 2794 MAPADR 463# MAPCNK 464# MAPMEM 460# MAPPNT 466# MAPSET 465# MEMSEG 462# MEMZRO 461# MODPCP 473# MODPCU 472# MOVMEM 208# SEQ 0268 MTROP 441# NAME 7# 10 PAGECN 213# 5297 5340 5392 5427 5560 5625 5671 5716 5761 5806 5851 5896 5941 5987 6028 PAGEPN 217# PBELL 416# PCRL 410# 2811 3013 3219 3225 3231 6088 PCRL2 414# PCRL2F 415# PCRLF 411# PFORCE 418# PGMINT 334# 871 PJRST 325# PMSG 420# 6084 PMSGF 423# PNT1 376# PNT11 390# PNT11F 391# PNT1F 377# PNT2 378# PNT2F 379# PNT3 380# PNT3F 381# PNT4 382# PNT4F 383# PNT5 384# PNT5F 385# PNT6 386# 2810 3012 3218 3224 3230 PNT6F 387# PNT7 388# PNT7F 389# PNTA 362# PNTADF 393# PNTADR 392# PNTAF 363# PNTAL 364# PNTALF 365# PNTCHF 375# PNTCHR 374# PNTCI 372# PNTCIF 373# PNTCW 408# PNTCWF 409# PNTDCF 401# PNTDEC 400# PNTDS 402# PNTDSF 403# PNTHW 396# 6087 PNTHWF 397# PNTMSF 369# PNTMSG 368# PNTNM 404# PNTOCF 399# SEQ 0269 PNTOCS 398# PNTOCT 394# PNTOTF 395# PNTSIX 405# PNTSXF 406# PSIXL 366# PSIXLF 367# PSIXM 370# 2808 3010 3216 3222 3228 6085 PSIXMF 371# PSP 412# PSPF 413# PUT 323# 2394 RDAPR 524# RDCSB 524# RDCSTM 524# RDEBR 524# RDHSB 524# RDINT 524# RDIO 524# RDIOB 524# RDPI 524# RDPUR 524# RDSPB 524# RDTIM 524# RDUBR 524# REPTLP 122# 1300 1731 1819 2367 2514 2624 2740 2805 2867 2925 3007 3086 3213 3289 3380 3470 3617 3738 3782 3862 4085 4175 4332 4501 4613 4739 4838 4915 4959 REPTUO 497# RESET 206# 5483 5507 5530 RLITRC 3935# 3957 3977 3997 4017 4037 4057 4077 RLITRX 3922# 3945 3965 3985 4005 4025 4045 4065 RTN 322# 614 2390 2812 3014 3220 3226 3232 6089 S 123 125 136 138 252# 254 258 287 289 298 301 316 317 319 330 332 336 338 343 347 489 491 524 529 535 562 564 582 584 602 604 633 635 653 655 673 675 683 685 706 711 737 739 746 748 754 756 762 764 768 770 775 777 781 783 787 789 795 797 800 802 806 808 812 814 818 820 824 826 831 833 837 839 843 845 847 849 SIXBTZ 429# 902 1738 2421 2519 2630 2751 2808 2818 2876 3010 3021 3216 3222 3228 3236 3299 3391 3481 3624 3872 4101 4189 4349 4510 4619 4752 4843 4919 5115 5193 5227 5254 5288 5335 5383 5422 5474 5497 5521 6019 6109 SUBTST 118# 908 924 938 951 1132 1306 1335 1741 1831 2428 2525 2633 2754 2821 2879 2938 3024 3097 3243 3302 3394 3484 3627 3745 3789 3875 4104 4192 4352 4513 4622 4755 4846 4922 SWITCH 435# 889 TIOE 524# TIOEB 524# TION 524# TIONB 524# TNSET 222# 5125 5149 5171 5200 5234 5262 5293 5346 5388 5431 5479 5503 5526 5553 5618 5664 5709 5754 5799 5844 5889 5934 5980 6024 6116 TRPSET 204# 5484 5508 5531 SEQ 0270 TTALTM 356# TTICHR 349# TTICLR 359# TTICNV 354# TTIDEC 353# TTINO 351# TTIOCT 352# TTIYES 350# TTLOOK 355# TTSIXB 357# TTYINP 358# WRAPR 524# WRCSB 524# WRCSTM 524# WREBR 524# WRHSB 524# WRINT 524# WRIO 524# WRIOB 524# WRPI 524# WRPUR 524# WRSPB 524# WRTIM 524# WRUBR 524# ADD 3499 6201 ADDI 2767 2955 2959 2964 2979 2998 3107 3111 3116 3118 3136 3181 3404 3406 SEQ 0271 3637 3641 3645 3647 3664 4114 4118 4123 4142 5279 5458 ADDM 5143 5165 5187 5221 5326 5374 ANDI 2978 2997 3135 3180 3663 4141 AOBJN 2772 2801 2865 2967 2986 3005 3120 3151 3166 3197 3211 3407 3423 3437 3452 3468 3501 3649 3679 3696 4125 4158 4173 6124 6203 AOS 612 2966 2985 3119 3150 3165 3210 3648 3678 3695 4124 4157 4172 6079 ASCII 713 715 718 719 720 721 723 724 725 726 727 728 730 731 732 ASCIZ 855 ASH 1949 ASHC 1973 BLKI 6099 BLKO 6098 BLOCK 681 741 744 750 753 759 7924 BLT 2456 2532 2639 2760 2827 2885 3030 3126 3170 3249 3308 3413 3428 3444 3459 3492 3495 3653 4131 4198 4218 4292 4358 4519 4628 4761 4852 4928 6128 6187 BYTE 729 CAIE 5245 5410 5489 5513 5536 6074 6080 CAIGE 2766 2963 3115 3403 CAME 915 945 974 988 1002 1016 1030 1044 1058 1072 1086 1100 1114 1126 1155 1169 1183 1197 1211 1225 1239 1253 1267 1281 1295 1315 1362 1378 1394 1410 1426 1442 1458 1474 1490 1506 1522 1535 1566 1582 1598 1614 1630 1646 1662 1678 1694 1710 1726 1768 1791 1814 1849 1855 1878 1886 1906 1912 1937 1960 1984 2007 2030 2089 2112 2246 2251 2274 2279 2302 2307 2330 2335 2357 2362 2400 2434 2447 2467 2480 2494 2509 2553 2558 2564 2594 2599 2605 2651 2665 2677 2690 2715 2735 2795 2847 2852 2860 2904 2920 2981 3000 3052 3058 3076 3081 3141 3146 3161 3185 3192 3206 3271 3277 3284 3330 3335 3341 3347 3362 3368 3375 3418 3433 3448 3464 3545 3551 3575 3581 3603 3609 3668 3674 3691 3733 3777 3812 3833 3854 4147 4153 4168 4226 4232 4238 4244 4249 4254 4260 4265 4270 4300 4305 4310 4315 4320 4326 4384 4389 4394 4399 4427 4433 4439 4445 4478 4483 4489 4495 4541 4545 4551 4557 4590 4595 4601 4607 4653 4658 4664 4669 4675 4681 4715 4721 4727 4733 4794 4801 4806 4827 4833 4903 4910 4947 4954 5213 5274 5367 5454 6065 6152 6162 COMMEN 56 CONI 914 929 943 972 986 1000 1014 1028 1042 1056 1070 1084 1098 1112 1124 1153 1167 1181 1195 1209 1223 1237 1251 1265 1279 1293 3911 3912 4939 6093 CONO 206 913 928 930 942 944 971 973 985 987 999 1001 1013 1015 1027 1029 1041 1043 1055 1057 1069 1071 1083 1085 1097 1099 1111 1113 1123 1125 1152 1154 1166 1168 1180 1182 1194 1196 1208 1210 1222 1224 1236 1238 1250 1252 1264 1266 1278 1280 1292 1294 1745 1752 1763 1776 1786 1799 1809 2457 2534 2535 2538 2578 2580 2621 2622 2640 2711 2731 2777 2830 2900 2969 3045 3122 3258 3317 3409 3424 3439 3454 3488 3654 3681 3700 3720 3727 3749 3757 3760 3766 3773 3793 3800 3803 3809 3821 3824 3830 3842 3845 3851 3904 3905 3910 3913 3914 3942 3951 3952 3961 3962 3971 3972 3981 3982 3991 3992 4001 4002 4011 4012 4021 4022 4031 4032 4041 4042 4051 4052 4061 4062 4071 4072 4081 4082 4087 4088 4089 4093 4094 4127 4134 4145 4160 4211 4285 4342 4365 4461 4526 4576 4632 4638 4701 4771 4777 4783 4812 4862 4868 4878 4934 5121 5485 5509 5532 5551 5616 5662 5707 5752 5797 5842 5887 5932 5978 6092 6145 6207 CONSO 6097 SEQ 0272 CONSZ 2571 2612 6096 DATAI 1312 1325 1358 1374 1390 1406 1422 1438 1454 1470 1486 1502 1518 1531 1562 1578 1594 1610 1626 1642 1658 1674 1690 1706 1722 6095 DATAO 1311 1324 1326 1357 1359 1373 1375 1389 1391 1405 1407 1421 1423 1437 1439 1453 1455 1469 1471 1485 1487 1501 1503 1517 1519 1530 1532 1561 1563 1577 1579 1593 1595 1609 1611 1625 1627 1641 1643 1657 1659 1673 1675 1689 1691 1705 1707 1721 1723 1746 2458 2539 2581 2641 2712 2732 2778 2832 2901 2970 3046 3123 3259 3318 3410 3425 3440 3455 3489 3561 3567 3572 3596 3614 3655 3682 3701 3721 3728 3750 3758 3761 3767 3774 3794 4128 4135 4146 4212 4286 4366 4462 4527 4577 4633 4639 4702 4772 4863 4869 4879 4935 5122 5486 5510 5533 5552 5617 5663 5708 5753 5798 5843 5888 5933 5979 6094 6146 6208 DEFINE 7 118 167 208 213 217 222 252 420 423 429 503 514 3922 3935 DFAD 2142 DFDV 2346 DFMP 2217 DFSB 2181 DIV 2235 DMOVE 4531 4581 DMOVEM 4643 4706 END 7932 EXCH 2388 FAD 2124 FDV 2291 FDVR 2319 FIX 2078 FIXR 2101 FMP 2199 FSB 2161 FSC 2060 HLLM 2769 HLRM 2771 HLRZ 2779 HLRZM 2380 HRL 2956 3108 3638 4115 6121 HRLI 1328 1361 1377 1393 1409 1425 1441 1457 1473 1489 1505 1521 1534 1565 1581 1597 1613 1629 1645 1661 1677 1693 1709 1725 HRR 2960 3112 3642 4119 HRRI 1837 1862 1893 1919 1944 1967 1991 2014 2037 2055 2073 2096 2119 2137 2155 2174 2194 2212 2230 2258 2286 2314 2342 HRRM 5270 5447 HRRZ 2764 2792 2837 2856 2961 3113 3401 3643 4120 5244 5273 5409 5453 6073 HRRZM 2379 HRRZS 1885 2399 IBP 2042 IDIV 2263 IDPB 4415 IFDEF 524 575 576 577 578 7923 7930 IFE 969 983 997 1011 1025 1039 1053 1067 1081 1095 1109 1150 1164 1178 1192 1206 1220 1234 1248 1262 1276 1290 1355 1371 1387 1403 1419 1435 1451 1467 1483 1499 1515 1559 1575 1591 1607 1623 1639 1655 1671 1687 1703 1719 SEQ 0273 IFNDEF 227 475 476 486 575 576 577 578 657 6182 6223 ILDB 4371 4466 IMUL 2019 IMULI 2942 3101 3631 3879 4108 JFCL 615 616 617 618 619 620 621 622 623 624 625 626 3508 3859 5557 5622 5668 5713 5758 5803 5848 5893 5938 5984 JRST 325 326 327 328 537 538 540 542 544 546 548 551 553 554 607 894 898 1760 1783 1806 2371 2375 2549 2589 2806 2845 2927 2952 3008 3088 3214 3270 3327 3361 3703 3709 3717 3725 3764 3771 3806 3827 3848 3906 3918 4222 4336 4375 4418 4469 4535 4584 4647 4709 4781 4786 4807 4818 4876 4885 4894 4944 4964 5141 5145 5163 5167 5185 5189 5219 5223 5281 5282 5324 5328 5372 5376 5415 5460 5461 5462 5559 5607 5624 5670 5715 5760 5805 5850 5895 5940 5986 6059 6081 6082 6102 6126 6166 6177 6179 6189 6211 JSP 334 4825 5582 5604 5647 5693 5738 5783 5828 5873 5918 5963 6009 6204 6212 JSR 204 1750 1774 1797 2392 3712 3714 3798 3819 3840 3880 3882 3884 3886 3888 3890 3892 3895 4091 4765 4856 LALL 8 903 1739 2422 2520 2631 2752 2819 2877 3022 3237 3300 3392 3482 3625 3873 3944 4102 4190 4350 4511 4620 4753 4844 4920 5116 5194 5228 5255 5289 5336 5384 5423 5475 5498 5522 5545 5582 5610 5647 5656 5693 5701 5738 5746 5783 5791 5828 5836 5873 5881 5918 5926 5963 5972 6009 6020 6110 LIST 7 486 524 657 1734 2626 3741 6223 7920 LIT 6224 LOC 14 527 851 LSH 2765 2780 2793 2838 2857 2947 2954 2958 2962 2974 2992 3106 3110 3114 3131 3157 3175 3202 3402 3636 3640 3644 3659 3687 4113 4117 4121 4137 4164 MOVE 874 876 878 880 882 884 911 1309 1310 1323 1356 1372 1388 1404 1420 1436 1452 1468 1484 1500 1516 1529 1560 1576 1592 1608 1624 1640 1656 1672 1688 1704 1720 1744 1750 1755 1764 1766 1767 1774 1779 1787 1789 1790 1797 1802 1810 1812 1813 1834 1840 1854 1865 1883 1897 1947 1951 1958 1970 1975 1982 1994 1998 2005 2017 2021 2028 2040 2044 2050 2058 2062 2068 2076 2080 2087 2099 2103 2110 2122 2126 2132 2140 2144 2150 2158 2159 2163 2169 2177 2178 2183 2189 2197 2201 2207 2215 2219 2225 2237 2244 2265 2272 2293 2300 2321 2328 2348 2355 2369 2387 2395 2398 2431 2432 2445 2455 2465 2478 2492 2507 2528 2531 2544 2557 2562 2563 2585 2598 2603 2604 2619 2636 2638 2649 2663 2675 2688 2713 2733 2757 2759 2763 2809 2826 2828 2840 2851 2859 2869 2882 2884 2902 2903 2918 2919 2941 2946 2973 2980 2991 2999 3011 3027 3029 3048 3051 3057 3072 3075 3080 3100 3125 3130 3140 3145 3156 3160 3169 3174 3184 3191 3201 3205 3217 3229 3246 3248 3263 3265 3276 3282 3283 3291 3305 3307 3322 3334 3339 3340 3346 3358 3366 3367 3374 3382 3397 3400 3412 3417 3427 3432 3441 3443 3447 3456 3458 3463 3487 3491 3494 3496 3502 3504 3506 3508 3510 3512 3514 3544 3550 3574 3580 3588 3597 3607 3608 3615 3630 3652 3658 3667 3673 3686 3690 3703 3705 3707 3709 3712 3714 3729 3731 3732 3748 3759 3768 3775 3776 3784 3792 3798 3810 3811 3819 3831 3832 3840 3852 3853 3859 3878 3880 3882 3884 3886 3888 3890 3892 3895 4091 4107 4130 4136 4144 4152 4163 4167 4195 4197 4216 4225 4230 4231 4236 4237 4243 4248 4253 4259 4264 4269 4290 4299 4304 4309 4314 4319 4325 4334 4340 4355 4357 4369 4383 4388 4392 4393 4397 4398 4413 4426 4432 4437 4438 4443 4444 4458 4477 4482 4487 4488 4493 4494 4503 4516 SEQ 0274 4518 4540 4544 4549 4550 4555 4556 4589 4594 4599 4600 4605 4606 4625 4627 4652 4657 4663 4668 4673 4674 4679 4680 4714 4720 4725 4726 4731 4732 4741 4758 4760 4765 4789 4792 4793 4799 4800 4823 4826 4831 4832 4849 4851 4856 4870 4880 4889 4898 4901 4902 4908 4909 4925 4927 4945 4946 4952 4953 4961 5212 5366 5487 5511 5534 5566 5591 5631 5677 5722 5767 5812 5857 5902 5947 5993 6035 6064 6086 6126 6127 6128 6129 6130 6142 6151 6161 6171 6172 6186 6188 6198 6200 MOVEI 867 872 890 892 909 912 925 927 939 941 952 970 984 998 1012 1026 1040 1054 1068 1082 1096 1110 1122 1133 1151 1165 1179 1193 1207 1221 1235 1249 1263 1277 1291 1307 1336 1742 1832 1884 1896 1922 1923 1971 2382 2384 2429 2505 2526 2540 2582 2634 2686 2694 2755 2774 2776 2822 2824 2834 2880 2888 2939 2944 2953 2957 2972 2977 2989 2995 3025 3033 3098 3103 3105 3109 3128 3134 3154 3172 3178 3189 3199 3223 3244 3254 3303 3311 3313 3352 3395 3399 3416 3431 3446 3462 3485 3528 3530 3534 3543 3549 3563 3573 3579 3591 3594 3628 3633 3635 3639 3657 3662 3684 3746 3751 3753 3790 3876 3953 3973 3993 4013 4033 4053 4073 4105 4110 4112 4116 4133 4140 4162 4193 4201 4277 4353 4359 4406 4455 4514 4520 4567 4623 4629 4693 4756 4763 4847 4854 4923 4930 5123 5126 5131 5147 5150 5154 5169 5172 5176 5198 5201 5206 5235 5240 5259 5260 5263 5294 5301 5306 5308 5344 5347 5353 5355 5389 5401 5403 5432 5435 5437 5439 5480 5504 5527 5554 5619 5665 5710 5755 5800 5845 5890 5935 5981 6025 6039 6041 6117 6120 6132 6134 6191 6192 6193 MOVEM 868 873 875 877 879 881 883 885 893 910 926 940 953 1134 1308 1337 1743 1751 1756 1765 1775 1780 1788 1798 1803 1811 1833 1898 1924 1952 1959 1976 1983 1999 2006 2022 2029 2045 2051 2063 2069 2081 2088 2104 2111 2127 2133 2145 2151 2164 2170 2184 2190 2202 2208 2220 2226 2238 2245 2266 2273 2294 2301 2322 2329 2349 2356 2370 2385 2389 2396 2430 2491 2506 2527 2541 2583 2620 2635 2674 2687 2695 2697 2756 2823 2835 2870 2881 2887 2889 2940 2950 2965 3026 3032 3034 3049 3073 3099 3117 3138 3182 3245 3252 3255 3292 3304 3310 3312 3314 3353 3383 3396 3405 3442 3457 3486 3497 3500 3503 3505 3507 3509 3511 3513 3515 3516 3517 3518 3519 3520 3521 3522 3529 3531 3589 3590 3592 3616 3629 3646 3666 3704 3706 3708 3710 3713 3715 3730 3747 3752 3754 3785 3791 3799 3820 3841 3860 3877 3881 3883 3885 3887 3889 3891 3893 3896 3897 3898 3899 3900 3901 3902 4092 4106 4122 4143 4194 4200 4202 4278 4335 4341 4354 4360 4407 4456 4459 4504 4515 4521 4568 4570 4624 4630 4694 4696 4742 4757 4764 4766 4790 4811 4824 4848 4855 4857 4871 4881 4890 4899 4924 4931 4962 5124 5127 5130 5132 5148 5151 5153 5155 5170 5173 5175 5177 5199 5202 5205 5207 5236 5239 5241 5261 5264 5269 5295 5302 5304 5307 5309 5310 5311 5312 5313 5314 5315 5345 5348 5351 5354 5356 5357 5358 5390 5399 5402 5404 5405 5406 5433 5438 5440 5441 5442 5446 5481 5505 5528 5555 5565 5567 5568 5569 5570 5571 5572 5573 5574 5592 5593 5594 5595 5596 5597 5598 5599 5601 5620 5630 5632 5633 5634 5635 5636 5637 5638 5639 5666 5676 5678 5679 5680 5681 5682 5683 5684 5685 5711 5721 5723 5724 5725 5726 5727 5728 5729 5730 5756 5766 5768 5769 5770 5771 5772 5773 5774 5775 5801 5811 5813 5814 5815 5816 5817 5818 5819 5820 5846 5856 5858 5859 5860 5861 5862 5863 5864 5865 5891 5901 5903 5904 5905 5906 5907 5908 5909 5910 5936 5946 5948 5949 5950 5951 5952 5953 5954 5955 5982 5992 5994 5995 5996 5997 5998 5999 6000 6001 6026 6036 6040 6042 6043 6044 6045 6046 6047 6048 6118 6123 6133 6135 6136 6137 6143 6185 6202 MOVSI 1314 1836 1861 1892 1918 1943 1966 1990 2013 2036 2054 2072 2095 2118 2136 2154 2173 2193 2211 2229 2257 2285 2313 2341 2490 2673 2696 2762 SEQ 0275 2775 2833 2886 2943 2971 2988 3031 3102 3127 3153 3171 3198 3251 3309 3398 3415 3430 3445 3461 3498 3632 3656 3683 4109 4132 4161 4199 4569 4695 4810 5129 5142 5152 5164 5174 5186 5204 5220 5238 5268 5303 5325 5350 5373 5398 5445 5564 5600 5629 5675 5720 5765 5810 5855 5900 5945 5991 6122 6197 MUL 1996 NOSYM 23 OPDEF 47 122 204 206 321 322 323 324 325 326 327 328 334 340 341 349 350 351 352 353 354 355 356 357 358 359 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 418 435 440 441 445 446 447 453 454 460 461 462 463 464 465 466 472 473 480 481 482 483 493 494 495 496 497 524 PAGE 5653 5699 5744 5789 5834 5879 5924 5969 POINT 4369 4383 4413 4426 4458 4477 POP 324 1901 POPJ 322 1926 6206 6217 PUSH 323 1842 PUSHJ 321 1867 REPEAT 954 1135 1338 1542 1734 2626 3741 4966 SALL 901 917 933 947 977 991 1005 1019 1033 1047 1061 1075 1089 1103 1117 1128 1158 1172 1186 1200 1214 1228 1242 1256 1270 1284 1298 1317 1331 1365 1381 1397 1413 1429 1445 1461 1477 1493 1509 1525 1537 1569 1585 1601 1617 1633 1649 1665 1681 1697 1713 1729 1737 1758 1770 1782 1793 1805 1816 1845 1851 1857 1870 1874 1880 1888 1903 1908 1914 1929 1933 1939 1954 1962 1978 1986 2001 2009 2024 2032 2047 2065 2083 2091 2106 2114 2129 2147 2166 2186 2204 2222 2240 2248 2253 2268 2276 2281 2296 2304 2309 2324 2332 2337 2351 2359 2364 2402 2420 2436 2449 2469 2482 2496 2511 2518 2546 2555 2560 2566 2573 2587 2596 2601 2607 2614 2629 2653 2667 2679 2692 2717 2737 2750 2797 2817 2842 2849 2854 2862 2875 2906 2922 2983 3002 3020 3054 3060 3078 3083 3143 3148 3163 3187 3194 3208 3235 3267 3273 3279 3286 3298 3324 3332 3337 3343 3349 3360 3364 3370 3377 3390 3420 3435 3450 3466 3480 3539 3547 3553 3569 3577 3583 3599 3605 3611 3623 3670 3676 3693 3723 3735 3763 3770 3779 3805 3814 3826 3835 3847 3856 3871 3916 4100 4149 4155 4170 4188 4220 4228 4234 4240 4246 4251 4256 4262 4267 4272 4302 4307 4312 4317 4322 4328 4348 4373 4382 4386 4391 4396 4401 4417 4424 4429 4435 4441 4447 4468 4475 4480 4485 4491 4497 4509 4533 4543 4547 4553 4559 4583 4592 4597 4603 4609 4618 4645 4655 4660 4666 4671 4677 4683 4708 4717 4723 4729 4735 4751 4779 4785 4796 4803 4817 4829 4835 4842 4873 4883 4892 4905 4912 4918 4941 4949 4956 5114 5137 5160 5182 5192 5215 5226 5247 5253 5276 5287 5320 5330 5334 5363 5369 5378 5382 5412 5417 5421 5450 5456 5464 5473 5491 5496 5515 5520 5538 5579 5585 5644 5650 5690 5696 5735 5741 5780 5786 5825 5831 5870 5876 5915 5921 5960 5966 6006 6013 6018 6056 6061 6067 6076 6108 6154 6164 6174 6215 SETOB 2543 2839 4524 4574 4636 4699 SETOM 869 870 2377 2536 2537 2552 2846 3050 3074 3139 3183 3257 3321 3354 3355 3356 3373 3426 3593 3595 3602 4210 4215 4242 4289 4298 4363 4364 4387 4409 4410 4431 4460 4525 4539 4575 4588 4637 4662 4700 4768 4769 4859 4860 4933 5298 5341 5393 5428 5561 5626 5672 5717 5762 5807 5852 5897 5942 5988 6029 6127 SEQ 0276 SETZ 1899 5478 5502 5525 SETZB 2179 2233 2261 2289 2317 2345 2584 3261 3320 4204 4522 4523 4571 4634 4635 6051 SETZM 886 887 888 896 897 2374 2454 2530 2579 2593 2637 2758 2825 2883 3028 3047 3071 3124 3168 3247 3260 3306 3316 3319 3329 3345 3357 3411 3490 3493 3533 3562 3651 3756 4129 4196 4205 4206 4207 4208 4209 4258 4279 4280 4281 4282 4283 4284 4324 4356 4362 4408 4457 4517 4572 4573 4626 4651 4697 4698 4713 4719 4759 4850 4926 5120 5133 5134 5156 5157 5178 5179 5208 5209 5232 5233 5266 5267 5316 5317 5359 5360 5396 5397 5443 5444 5575 5576 5640 5641 5686 5687 5731 5732 5776 5777 5821 5822 5866 5867 5911 5912 5956 5957 6002 6003 6033 6050 6139 6140 SIXBIT 109 742 743 751 752 902 918 933 947 977 991 1005 1019 1033 1047 1061 1075 1089 1103 1117 1128 1158 1172 1186 1200 1214 1228 1242 1256 1270 1284 1298 1317 1331 1365 1381 1397 1413 1429 1445 1461 1477 1493 1509 1525 1537 1569 1585 1601 1617 1633 1649 1665 1681 1697 1713 1729 1738 1759 1770 1782 1793 1805 1816 1845 1851 1857 1870 1874 1880 1888 1903 1908 1914 1929 1933 1939 1954 1962 1978 1986 2001 2009 2024 2032 2047 2065 2083 2091 2106 2114 2129 2147 2166 2186 2204 2222 2240 2248 2253 2268 2276 2281 2296 2304 2309 2324 2332 2337 2351 2359 2364 2402 2421 2437 2449 2469 2482 2496 2511 2519 2547 2555 2560 2566 2573 2587 2596 2601 2607 2614 2630 2654 2667 2679 2692 2717 2737 2751 2798 2808 2818 2843 2849 2854 2862 2876 2907 2922 2983 3002 3010 3021 3055 3060 3078 3083 3143 3148 3163 3187 3194 3208 3216 3222 3228 3236 3268 3273 3279 3286 3299 3325 3332 3337 3343 3349 3360 3364 3370 3377 3391 3421 3435 3450 3466 3481 3540 3547 3553 3569 3577 3583 3599 3605 3611 3624 3671 3676 3693 3723 3735 3763 3770 3779 3805 3814 3826 3835 3847 3856 3872 3917 4101 4150 4155 4170 4189 4221 4228 4234 4240 4246 4251 4256 4262 4267 4272 4302 4307 4312 4317 4322 4328 4349 4374 4382 4386 4391 4396 4401 4417 4424 4429 4435 4441 4447 4468 4475 4480 4485 4491 4497 4510 4534 4543 4547 4553 4559 4583 4592 4597 4603 4609 4619 4646 4655 4660 4666 4671 4677 4683 4708 4717 4723 4729 4735 4752 4780 4785 4796 4803 4817 4829 4835 4843 4874 4883 4892 4905 4912 4919 4942 4949 4956 5115 5138 5160 5182 5193 5216 5227 5248 5254 5277 5288 5321 5330 5335 5364 5369 5378 5383 5413 5417 5422 5451 5456 5464 5474 5492 5497 5516 5521 5539 5580 5586 5645 5651 5691 5697 5736 5742 5781 5787 5826 5832 5871 5877 5916 5922 5961 5967 6007 6014 6019 6057 6061 6067 6076 6085 6109 6155 6164 6174 6215 SKIPE 2383 4380 4422 4473 6199 SKIPN 931 1329 5140 5162 5184 5218 5323 5371 5558 5623 5669 5714 5759 5804 5849 5894 5939 5985 SOJG 122 3954 3974 3994 4014 4034 4054 4074 SOJGE 2803 SOS 3004 3196 5144 5166 5188 5222 5327 5375 SUBI 2996 3179 3190 SUBTTL 24 165 202 250 285 487 524 525 853 899 1301 1735 1821 2418 2516 2627 2741 2871 3015 3233 3293 3384 3471 3864 4095 4176 4743 5058 5110 5283 5466 5541 6016 6104 6180 6218 TITLE 12 TLNE 5280 5459 5605 6205 TLNN 891 5583 5648 5694 5739 5784 5829 5874 5919 5964 6010 6213 TLO 2782 2784 2787 2789 2791 2858 2948 2975 2993 3132 3158 3176 3203 3660 3688 4138 4165 TLZ 2781 2785 2949 2976 2994 3133 3159 3177 3204 3661 3689 4139 4166 SEQ 0277 TLZE 2783 2786 2788 2790 TRNE 2770 2829 2951 TRNN 2768 2831 TRZ 1313 1327 1360 1376 1392 1408 1424 1440 1456 1472 1488 1504 1520 1533 1564 1580 1596 1612 1628 1644 1660 1676 1692 1708 1724 VAR 7928 XALL 919 934 948 978 992 1006 1020 1034 1048 1062 1076 1090 1104 1118 1129 1159 1173 1187 1201 1215 1229 1243 1257 1271 1285 1299 1318 1332 1366 1382 1398 1414 1430 1446 1462 1478 1494 1510 1526 1538 1570 1586 1602 1618 1634 1650 1666 1682 1698 1714 1730 1760 1771 1783 1794 1806 1817 1846 1852 1858 1871 1875 1881 1889 1904 1909 1915 1930 1934 1940 1955 1963 1979 1987 2002 2010 2025 2033 2048 2066 2084 2092 2107 2115 2130 2148 2167 2187 2205 2223 2241 2249 2254 2269 2277 2282 2297 2305 2310 2325 2333 2338 2352 2360 2365 2403 2438 2450 2470 2483 2497 2512 2548 2556 2561 2567 2574 2588 2597 2602 2608 2615 2655 2668 2680 2693 2718 2738 2799 2844 2850 2855 2863 2908 2923 2984 3003 3056 3061 3079 3084 3144 3149 3164 3188 3195 3209 3269 3274 3280 3287 3326 3333 3338 3344 3350 3361 3365 3371 3378 3422 3436 3451 3467 3541 3548 3554 3570 3578 3584 3600 3606 3612 3672 3677 3694 3724 3736 3764 3771 3780 3806 3815 3827 3836 3848 3857 3918 4151 4156 4171 4222 4229 4235 4241 4247 4252 4257 4263 4268 4273 4303 4308 4313 4318 4323 4329 4375 4383 4387 4392 4397 4402 4418 4425 4430 4436 4442 4448 4469 4476 4481 4486 4492 4498 4535 4544 4548 4554 4560 4584 4593 4598 4604 4610 4647 4656 4661 4667 4672 4678 4684 4709 4718 4724 4730 4736 4781 4786 4797 4804 4818 4830 4836 4875 4884 4893 4906 4913 4943 4950 4957 5139 5161 5183 5217 5249 5278 5322 5331 5365 5370 5379 5414 5418 5452 5457 5465 5493 5517 5540 5581 5587 5646 5652 5692 5698 5737 5743 5782 5788 5827 5833 5872 5878 5917 5923 5962 5968 6008 6015 6058 6062 6068 6077 6156 6165 6175 6216 XLIST 6 485 523 656 1733 2625 3740 6222 XWD 5487 5511 5534 rtl/mem/0000700000175100010010000000000012061535457 10624 5ustar RobNonertl/mem/mem.v0000700000175100010010000001700212061517366 11573 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Memory Interface //! //! \details //! This module is simply a wrapper for the external memory. //! //! Memory Status Register Write (IO addresses o100000) //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) |EH|UE|RE|PE| |PF| | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | | FCB |ED| //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! Memory Status Register Read (IO addresses o100000) //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) |EH|UE|RE|PE|EE| ECP |PF| 0| ERA | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | ERA | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! //! EH : Error Hold - Always read as 0. Writes //! ignored. //! UE : Uncorrectable Error - Always read as 0. Writes //! ignored. //! RE : Refresh Error - Always read as 0. Writes //! ignored. //! PE : Parity Error - Read/Writes PE bit. //! EE : ECC Enable - Reads back inverse value set //! by write to bit ED bit. //! Writes ignored. See ED bit //! below. //! PF : Power Failure - Initialized to 1 at power-up, //! Writing zero clears PF. //! ED : ECC Disable - Always read as 0. //! Writing zero sets EE bit, //! Writing one clears EE bit. //! FCB : Force Check Bits - Always read as 0. Writes //! ignored. //! ERA : Error Read Address - Always read as 0. Writes //! ignored. //! \todo //! //! \file //! mem.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // module MEM(clk, rst, clken, busREQI, busACKO, busADDRI, busDATAI, busDATAO, ssramCLK, ssramADDR, ssramDATA, ssramADV, ssramWR); input clk; // Clock input rst; // Reset input clken; // Clock enable input busREQI; // Memory Request In output busACKO; // Memory Acknowledge Out input [0:35] busADDRI; // Address Address In input [0:35] busDATAI; // Data in output [0:35] busDATAO; // Data out output ssramCLK; // SSRAM Clock output [0:22] ssramADDR; // SSRAM Address Bus inout [0:35] ssramDATA; // SSRAM Data Bus output ssramADV; // SSRAM Advance (burst) output ssramWR; // SSRAM Write // // Memory Status is Device 0 // wire [ 0: 3] ubaDEV = 4'b0000; // // Memory flags // // Details: // busADDRI[ 0:13] is flags // busADDRI[14:35] is address // wire busREAD = busADDRI[ 3]; wire busWRITE = busADDRI[ 5]; wire busIO = busADDRI[10]; wire [ 0: 3] busDEV = busADDRI[14:17]; wire [16:35] busADDR = busADDRI[16:35]; // // Memory Status Register (IO Address 100000) // // Details // Only the PE, EE, and PF change... and they are not really // implemented. // // FIXME: // SIMH igores writes to this register and reads zeros // always // reg statPE; // Parity Error reg statEE; // ECC Enabled reg statPF; // Power Failure always @(negedge clk or posedge rst) begin if (rst) begin statPE <= 1'b0; statEE <= 1'b1; statPF <= 1'b1; end else if (clken) begin if (busIO & busWRITE & (busDEV[0:3] == ubaDEV) & (busADDR == 18'o100000)) begin statPE <= busDATAI[ 3]; statPF <= busDATAI[12] & statPF; statEE <= ~busDATAI[35]; end end end wire statREG = {3'b0, statPE, statEE, 7'b0, statPF, 23'b0}; // // Bus Multiplexer // // Details // This selects between SSRAM and the Memory Status Register. // // FIXME // Only 32K of memory is implemented. // reg busACKO; reg [0:35] busDATAO; always @(busIO or busADDR or busREAD or busWRITE or ssramDATA or statREG) begin if (busIO & (busADDR == 18'o100000)) begin busACKO <= 1'b1; busDATAO <= statREG; // synthesis translate_off if (busREAD) $display("Memory Status Register Read.\n"); else if (busWRITE) $display("Memory Status Register Written.\n"); // synthesis translate_on end else if (~busIO & (busADDR < 32768)) begin busACKO <= 1'b1; busDATAO <= ssramDATA; end else begin busACKO <= 1'b0; busDATAO <= ssramDATA; end end // // SSRAM Interface // // FIXME: // This is not setup for SSRAM. // assign ssramCLK = clk; assign ssramADV = 1'b0; assign ssramWR = busWRITE & ~busIO; assign ssramADDR = {3'b0, busADDR[16:35]}; assign ssramDATA = (ssramWR) ? busDATAI : 36'bz; endmodule rtl/ssram.awk0000700000175100010010000001131012061517370 11670 0ustar RobNone# # This script reads a DEC listing file and extracts the object # code. # # # Start # BEGIN { FS="[ ]"; printf " //\n"; printf " // " filename "\n"; printf " // Do not edit this file.\n" printf " // It was created by an awk script.\n" printf " //\n"; printf " \n"; } # # IO Instructions # # These looks like: # #" xxx xxxxxx 7 xxx xx x xx xxxxxx /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7] [0-7][0-7][0-7] [0-7][0-7] [0-7] [0-7][0-7] [0-7][0-7][0-7][0-7][0-7][0-7].*/ { data1 = strtonum("0" substr($3, 1, 1)); data2 = strtonum("0" substr($3, 3, 3)); data3 = strtonum("0" substr($3, 7, 2)); data4 = strtonum("0" substr($3, 10, 1)); data5 = strtonum("0" substr($3, 12, 2)); data6 = substr($3, 15, 6); #print $2 " # " $3; data = sprintf("%06o%s", data1*0100000+data2*0100+data3*010+data4*020+data5, data6); i = strtonum("0" $2) map[i] = data; } # # CLRAPR Instructions # # These looks like: # #" xxx xxxxxx xxx xx xx xx xxxxxx /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7][0-7] [0-7][0-7] [0-7][0-7] [0-7][0-7] [0-7][0-7][0-7][0-7][0-7][0-7].*/ { data1 = strtonum("0" substr($3, 1, 3)); data2 = strtonum("0" substr($3, 5, 2)); data3 = strtonum("0" substr($3, 8, 2)); data4 = strtonum("0" substr($3, 11, 2)); data5 = substr($3, 14, 6); data = sprintf("%03o%03o%s", data1, or(data2*010, or(data3, data4)), data5); i = strtonum("0" $2) map[i] = data; } # # Sixbit # 6x 6-bit characters span the 36-bit word # # These looks like: # #" xxx aaaaaa dd dd dd dd dd dd " # /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7] [0-7][0-7] [0-7][0-7] [0-7][0-7] [0-7][0-7] [0-7][0-7].*/ { data1 = substr($3, 1, 2); data2 = substr($3, 4, 2); data3 = substr($3, 7, 2); data4 = substr($3, 10, 2); data5 = substr($3, 13, 2); data6 = substr($3, 16, 2); #print $2, (data1 data2 data3 data4 data5 data6) i = strtonum("0" $2) map[i] = (data1 data2 data3 data4 data5 data6) } # # ASCII # 5x 7-bit characters are left justified in the 36-bit word. # # These looks like: # #" xxx aaaaaa ddd ddd ddd ddd ddd " # /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7][0-7] [0-7][0-7][0-7] [0-7][0-7][0-7] [0-7][0-7][0-7] [0-7][0-7][0-7].*/ { data1 = lshift(and(strtonum("0" substr($3, 1, 3)), 0177), 29) data2 = lshift(and(strtonum("0" substr($3, 5, 3)), 0177), 22) data3 = lshift(and(strtonum("0" substr($3, 9, 3)), 0177), 15) data4 = lshift(and(strtonum("0" substr($3, 13, 3)), 0177), 8) data5 = lshift(and(strtonum("0" substr($3, 17, 3)), 0177), 1) data = sprintf("%012o", or(data1, or(data2, or(data3, or(data4, data5))))) #print $2 " " data i = strtonum("0" $2) map[i] = data } # # BYTE # 1x 8-bit byte is left justified in the 36-bit word. # # These looks like: # #" xxx aaaaaa ddd 0000000000 " # /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7][0-7] 0000000000.*/ { data = sprintf("%012o", lshift(and(strtonum("0" substr($3, 1, 3)), 0177), 28)) #print $2 " " data i = strtonum("0" $2) map[i] = data } # # 030651 123 124 122 125 103 # 1 2 3 1 2 4 1 2 2 1 2 5 1 0 3 # 001 010 011 001 010 100 001 010 010 001 010 101 001 000 011 # xx xx xx xx xx # # 1 010 011 1 010 100 1 010 010 1 010 101 1 000 011 # 101 001 110 101 001 010 010 101 010 110 000 11x # # OPCODES # # These looks like: # #" xxx aaaaaa ddd dd d dd dddddd " # /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7][0-7] [0-7][0-7] [0-7] [0-7][0-7] [0-7][0-7][0-7][0-7][0-7][0-7].*/ { data1 = substr($3, 1, 3) data2 = substr($3, 5, 2) data3 = substr($3, 8, 1) data4 = substr($3, 10, 2) data5 = substr($3, 13, 6) val2 = strtonum("0" data2) val3 = strtonum("0" data3) val4 = strtonum("0" data4) val = val2 * 32 + val3 * 16 + val4; data = sprintf("%s%03o%s", data1, val, data5); #print $2, data i = strtonum("0" $2) map[i] = data } # # Definitions # # These looks like: # #" xxx aaaaaa dddddd dddddd " # /^.*\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7][0-7][0-7][0-7][0-7]\t[0-7][0-7][0-7][0-7][0-7][0-7].*/ { #print $2, ($3 $4) i = strtonum("0" $2) map[i] = ($3 $4) } # # Write Sorted output to file # END { for (i = 0; i < 077777; i++) { if (map[i] != "") { printf " SSRAM[%05d] = 36'o%s; // %06o\n", i, map[i], i } else { #printf " SSRAM[%05d] = 36'o%s; // %06o (unused)\n", i, "000000000000", i } } } rtl/ssram.dat 444 00017510001001 531227 12061677322 11625 0ustar RobNone // // MAINDEC-10-DSKCC.txt // Do not edit this file. // It was created by an awk script. // SSRAM[00095] = 36'o000000000001; // 000137 SSRAM[12288] = 36'o254020027776; // 030000 SSRAM[12289] = 36'o254000030617; // 030001 SSRAM[12290] = 36'o254020027774; // 030002 SSRAM[12291] = 36'o254020027774; // 030003 SSRAM[12292] = 36'o254000030000; // 030004 SSRAM[12293] = 36'o254000030076; // 030005 SSRAM[12294] = 36'o254000030600; // 030006 SSRAM[12295] = 36'o254020027775; // 030007 SSRAM[12296] = 36'o254000030622; // 030010 SSRAM[12297] = 36'o254020027777; // 030011 SSRAM[12298] = 36'o000000000000; // 030012 SSRAM[12299] = 36'o254200030000; // 030013 SSRAM[12300] = 36'o254200030000; // 030014 SSRAM[12301] = 36'o254200030000; // 030015 SSRAM[12302] = 36'o254200030000; // 030016 SSRAM[12303] = 36'o254200030000; // 030017 SSRAM[12304] = 36'o446353434300; // 030020 SSRAM[12305] = 36'o546064000000; // 030021 SSRAM[12306] = 36'o000000000000; // 030022 SSRAM[12307] = 36'o000000000000; // 030023 SSRAM[12308] = 36'o000000000001; // 030024 SSRAM[12309] = 36'o000000030602; // 030025 SSRAM[12310] = 36'o000000000001; // 030026 SSRAM[12311] = 36'o000000030000; // 030027 SSRAM[12312] = 36'o000000030000; // 030030 SSRAM[12313] = 36'o777777777777; // 030031 SSRAM[12314] = 36'o777777777777; // 030032 SSRAM[12315] = 36'o000000000000; // 030033 SSRAM[12316] = 36'o000000000000; // 030034 SSRAM[12317] = 36'o000000000000; // 030035 SSRAM[12318] = 36'o000000000000; // 030036 SSRAM[12319] = 36'o000000000000; // 030037 SSRAM[12320] = 36'o000000000000; // 030040 SSRAM[12321] = 36'o777777777777; // 030041 SSRAM[12322] = 36'o777777777777; // 030042 SSRAM[12323] = 36'o000000000000; // 030043 SSRAM[12324] = 36'o000000000000; // 030044 SSRAM[12325] = 36'o000000000000; // 030045 SSRAM[12326] = 36'o000000000000; // 030046 SSRAM[12327] = 36'o000000000000; // 030047 SSRAM[12328] = 36'o000000000000; // 030050 SSRAM[12329] = 36'o000000000000; // 030051 SSRAM[12330] = 36'o000000000000; // 030052 SSRAM[12331] = 36'o000000000000; // 030053 SSRAM[12332] = 36'o000000000000; // 030054 SSRAM[12333] = 36'o000000000000; // 030055 SSRAM[12334] = 36'o000000000000; // 030056 SSRAM[12335] = 36'o037500000004; // 030057 SSRAM[12336] = 36'o254000030010; // 030060 SSRAM[12337] = 36'o037700000004; // 030061 SSRAM[12338] = 36'o000000030061; // 030062 SSRAM[12339] = 36'o000000030000; // 030063 SSRAM[12340] = 36'o350017000000; // 030064 SSRAM[12341] = 36'o263740000000; // 030065 SSRAM[12342] = 36'o255000000000; // 030066 SSRAM[12343] = 36'o255000000000; // 030067 SSRAM[12344] = 36'o255000000000; // 030070 SSRAM[12345] = 36'o255000000000; // 030071 SSRAM[12346] = 36'o255000000000; // 030072 SSRAM[12347] = 36'o255000000000; // 030073 SSRAM[12348] = 36'o255000000000; // 030074 SSRAM[12349] = 36'o255000000000; // 030075 SSRAM[12350] = 36'o255000000000; // 030076 SSRAM[12351] = 36'o255000000000; // 030077 SSRAM[12352] = 36'o255000000000; // 030100 SSRAM[12353] = 36'o255000000000; // 030101 SSRAM[12354] = 36'o254200030102; // 030102 SSRAM[12355] = 36'o000000000000; // 030103 SSRAM[12356] = 36'o000000000000; // 030104 SSRAM[12357] = 36'o000000000000; // 030105 SSRAM[12358] = 36'o000000000000; // 030106 SSRAM[12359] = 36'o000000000000; // 030107 SSRAM[12360] = 36'o000000000000; // 030110 SSRAM[12361] = 36'o000000000000; // 030111 SSRAM[12362] = 36'o000000000000; // 030112 SSRAM[12363] = 36'o000000000000; // 030113 SSRAM[12364] = 36'o000000000000; // 030114 SSRAM[12365] = 36'o000000000000; // 030115 SSRAM[12366] = 36'o000000000000; // 030116 SSRAM[12367] = 36'o000000000000; // 030117 SSRAM[12368] = 36'o000000000000; // 030120 SSRAM[12369] = 36'o000000000000; // 030121 SSRAM[12370] = 36'o000000000000; // 030122 SSRAM[12371] = 36'o000000000000; // 030123 SSRAM[12372] = 36'o036503030070; // 030124 SSRAM[12373] = 36'o036503036503; // 030125 SSRAM[12374] = 36'o036503036503; // 030126 SSRAM[12375] = 36'o036503036503; // 030127 SSRAM[12376] = 36'o036503036503; // 030130 SSRAM[12377] = 36'o036503036503; // 030131 SSRAM[12378] = 36'o030070030070; // 030132 SSRAM[12379] = 36'o030070030070; // 030133 SSRAM[12380] = 36'o030070030070; // 030134 SSRAM[12381] = 36'o030070030070; // 030135 SSRAM[12382] = 36'o030070030070; // 030136 SSRAM[12383] = 36'o030070030070; // 030137 SSRAM[12384] = 36'o030070030070; // 030140 SSRAM[12385] = 36'o030070030070; // 030141 SSRAM[12386] = 36'o000000000000; // 030142 SSRAM[12387] = 36'o000000000000; // 030143 SSRAM[12388] = 36'o000000000000; // 030144 SSRAM[12389] = 36'o000000000000; // 030145 SSRAM[12431] = 36'o000000000000; // 030217 SSRAM[12432] = 36'o000000000000; // 030220 SSRAM[12433] = 36'o000000000000; // 030221 SSRAM[12434] = 36'o000000000000; // 030222 SSRAM[12435] = 36'o000000000000; // 030223 SSRAM[12436] = 36'o000000000000; // 030224 SSRAM[12437] = 36'o000000000000; // 030225 SSRAM[12438] = 36'o000000000000; // 030226 SSRAM[12439] = 36'o000000000000; // 030227 SSRAM[12440] = 36'o000000000000; // 030230 SSRAM[12441] = 36'o000000000000; // 030231 SSRAM[12442] = 36'o000000000000; // 030232 SSRAM[12443] = 36'o000000000000; // 030233 SSRAM[12444] = 36'o000000000000; // 030234 SSRAM[12445] = 36'o000000000000; // 030235 SSRAM[12446] = 36'o000000000000; // 030236 SSRAM[12447] = 36'o000000000000; // 030237 SSRAM[12448] = 36'o000000000000; // 030240 SSRAM[12449] = 36'o000000000000; // 030241 SSRAM[12450] = 36'o064240000000; // 030242 SSRAM[12451] = 36'o064241505000; // 030243 SSRAM[12452] = 36'o260000000000; // 030244 SSRAM[12453] = 36'o270000000000; // 030245 SSRAM[12454] = 36'o200000000000; // 030246 SSRAM[12455] = 36'o044000000000; // 030247 SSRAM[12456] = 36'o264000000000; // 030250 SSRAM[12457] = 36'o254000000000; // 030251 SSRAM[12458] = 36'o250000000000; // 030252 SSRAM[12459] = 36'o400000000000; // 030253 SSRAM[12460] = 36'o240000000000; // 030254 SSRAM[12461] = 36'o244000000000; // 030255 SSRAM[12462] = 36'o016000000000; // 030256 SSRAM[12463] = 36'o374000000000; // 030257 SSRAM[12464] = 36'o274000000000; // 030260 SSRAM[12465] = 36'o220000000000; // 030261 SSRAM[12466] = 36'o000000000012; // 030262 SSRAM[12467] = 36'o000000000040; // 030263 SSRAM[12468] = 36'o000000000012; // 030264 SSRAM[12472] = 36'o606251566400; // 030270 SSRAM[12473] = 36'o605664000000; // 030271 SSRAM[12479] = 36'o606251566400; // 030277 SSRAM[12480] = 36'o605664000000; // 030300 SSRAM[12483] = 36'o777577030303; // 030303 SSRAM[12612] = 36'o000000000000; // 030504 SSRAM[12613] = 36'o000000000000; // 030505 SSRAM[12614] = 36'o000000000000; // 030506 SSRAM[12615] = 36'o000000000000; // 030507 SSRAM[12616] = 36'o000000000000; // 030510 SSRAM[12617] = 36'o000000000000; // 030511 SSRAM[12618] = 36'o000000000000; // 030512 SSRAM[12619] = 36'o000000000000; // 030513 SSRAM[12620] = 36'o000000000000; // 030514 SSRAM[12621] = 36'o000000000000; // 030515 SSRAM[12622] = 36'o000000000000; // 030516 SSRAM[12623] = 36'o000000000000; // 030517 SSRAM[12624] = 36'o000000000000; // 030520 SSRAM[12625] = 36'o000000000000; // 030521 SSRAM[12626] = 36'o000000000000; // 030522 SSRAM[12627] = 36'o000000000000; // 030523 SSRAM[12628] = 36'o777777777777; // 030524 SSRAM[12629] = 36'o000000000000; // 030525 SSRAM[12671] = 36'o000000000000; // 030577 SSRAM[12672] = 36'o037240000002; // 030600 SSRAM[12673] = 36'o040000036671; // 030601 SSRAM[12674] = 36'o064250442606; // 030602 SSRAM[12675] = 36'o516632352212; // 030603 SSRAM[12676] = 36'o465006230144; // 030604 SSRAM[12677] = 36'o301010142254; // 030605 SSRAM[12678] = 36'o406350342610; // 030606 SSRAM[12679] = 36'o202231651650; // 030607 SSRAM[12680] = 36'o512530352222; // 030610 SSRAM[12681] = 36'o476344042222; // 030611 SSRAM[12682] = 36'o406171647646; // 030612 SSRAM[12683] = 36'o522230320106; // 030613 SSRAM[12684] = 36'o315005042246; // 030614 SSRAM[12685] = 36'o456070324432; // 030615 SSRAM[12686] = 36'o050000000000; // 030616 SSRAM[12687] = 36'o265000030011; // 030617 SSRAM[12688] = 36'o200000036672; // 030620 SSRAM[12689] = 36'o202000036612; // 030621 SSRAM[12690] = 36'o254000030623; // 030622 SSRAM[12691] = 36'o201400030623; // 030623 SSRAM[12692] = 36'o202400030051; // 030624 SSRAM[12693] = 36'o201400000010; // 030625 SSRAM[12694] = 36'o202400037141; // 030626 SSRAM[12695] = 36'o200100036673; // 030627 SSRAM[12696] = 36'o122200000002; // 030630 SSRAM[12697] = 36'o312100036673; // 030631 SSRAM[12698] = 36'o005100000011; // 030632 SSRAM[12699] = 36'o321400030627; // 030633 SSRAM[12700] = 36'o201400030634; // 030634 SSRAM[12701] = 36'o202400030051; // 030635 SSRAM[12702] = 36'o201400000010; // 030636 SSRAM[12703] = 36'o202400037141; // 030637 SSRAM[12704] = 36'o402000000002; // 030640 SSRAM[12705] = 36'o122200000002; // 030641 SSRAM[12706] = 36'o302200000000; // 030642 SSRAM[12707] = 36'o003200000101; // 030643 SSRAM[12708] = 36'o321400030640; // 030644 SSRAM[12709] = 36'o205100201400; // 030645 SSRAM[12710] = 36'o551140000001; // 030646 SSRAM[12711] = 36'o122200000002; // 030647 SSRAM[12712] = 36'o312200000003; // 030650 SSRAM[12713] = 36'o003200000201; // 030651 SSRAM[12714] = 36'o321400030645; // 030652 SSRAM[12715] = 36'o205100202400; // 030653 SSRAM[12716] = 36'o551140000002; // 030654 SSRAM[12717] = 36'o122200000002; // 030655 SSRAM[12718] = 36'o312200000003; // 030656 SSRAM[12719] = 36'o003200000202; // 030657 SSRAM[12720] = 36'o321400030653; // 030660 SSRAM[12721] = 36'o205100203400; // 030661 SSRAM[12722] = 36'o551140000004; // 030662 SSRAM[12723] = 36'o122200000002; // 030663 SSRAM[12724] = 36'o312200000003; // 030664 SSRAM[12725] = 36'o003200000203; // 030665 SSRAM[12726] = 36'o321400030661; // 030666 SSRAM[12727] = 36'o205100204400; // 030667 SSRAM[12728] = 36'o551140000010; // 030670 SSRAM[12729] = 36'o122200000002; // 030671 SSRAM[12730] = 36'o312200000003; // 030672 SSRAM[12731] = 36'o003200000204; // 030673 SSRAM[12732] = 36'o321400030667; // 030674 SSRAM[12733] = 36'o205100205400; // 030675 SSRAM[12734] = 36'o551140000020; // 030676 SSRAM[12735] = 36'o122200000002; // 030677 SSRAM[12736] = 36'o312200000003; // 030700 SSRAM[12737] = 36'o003200000205; // 030701 SSRAM[12738] = 36'o321400030675; // 030702 SSRAM[12739] = 36'o205100206400; // 030703 SSRAM[12740] = 36'o551140000040; // 030704 SSRAM[12741] = 36'o122200000002; // 030705 SSRAM[12742] = 36'o312200000003; // 030706 SSRAM[12743] = 36'o003200000206; // 030707 SSRAM[12744] = 36'o321400030703; // 030710 SSRAM[12745] = 36'o205100207400; // 030711 SSRAM[12746] = 36'o551140000100; // 030712 SSRAM[12747] = 36'o122200000002; // 030713 SSRAM[12748] = 36'o312200000003; // 030714 SSRAM[12749] = 36'o003200000207; // 030715 SSRAM[12750] = 36'o321400030711; // 030716 SSRAM[12751] = 36'o205100210400; // 030717 SSRAM[12752] = 36'o551140000200; // 030720 SSRAM[12753] = 36'o122200000002; // 030721 SSRAM[12754] = 36'o312200000003; // 030722 SSRAM[12755] = 36'o003200000210; // 030723 SSRAM[12756] = 36'o321400030717; // 030724 SSRAM[12757] = 36'o205100211400; // 030725 SSRAM[12758] = 36'o551140000400; // 030726 SSRAM[12759] = 36'o122200000002; // 030727 SSRAM[12760] = 36'o312200000003; // 030730 SSRAM[12761] = 36'o003200000211; // 030731 SSRAM[12762] = 36'o321400030725; // 030732 SSRAM[12763] = 36'o205100212400; // 030733 SSRAM[12764] = 36'o551140001000; // 030734 SSRAM[12765] = 36'o122200000002; // 030735 SSRAM[12766] = 36'o312200000003; // 030736 SSRAM[12767] = 36'o003200000212; // 030737 SSRAM[12768] = 36'o321400030733; // 030740 SSRAM[12769] = 36'o205100213400; // 030741 SSRAM[12770] = 36'o551140002000; // 030742 SSRAM[12771] = 36'o122200000002; // 030743 SSRAM[12772] = 36'o312200000003; // 030744 SSRAM[12773] = 36'o003200000213; // 030745 SSRAM[12774] = 36'o321400030741; // 030746 SSRAM[12775] = 36'o205100214400; // 030747 SSRAM[12776] = 36'o551140004000; // 030750 SSRAM[12777] = 36'o122200000002; // 030751 SSRAM[12778] = 36'o312200000003; // 030752 SSRAM[12779] = 36'o003200000214; // 030753 SSRAM[12780] = 36'o321400030747; // 030754 SSRAM[12781] = 36'o205100215400; // 030755 SSRAM[12782] = 36'o551140010000; // 030756 SSRAM[12783] = 36'o122200000002; // 030757 SSRAM[12784] = 36'o312200000003; // 030760 SSRAM[12785] = 36'o003200000215; // 030761 SSRAM[12786] = 36'o321400030755; // 030762 SSRAM[12787] = 36'o205100216400; // 030763 SSRAM[12788] = 36'o551140020000; // 030764 SSRAM[12789] = 36'o122200000002; // 030765 SSRAM[12790] = 36'o312200000003; // 030766 SSRAM[12791] = 36'o003200000216; // 030767 SSRAM[12792] = 36'o321400030763; // 030770 SSRAM[12793] = 36'o205100217400; // 030771 SSRAM[12794] = 36'o551140040000; // 030772 SSRAM[12795] = 36'o122200000002; // 030773 SSRAM[12796] = 36'o312200000003; // 030774 SSRAM[12797] = 36'o003200000217; // 030775 SSRAM[12798] = 36'o321400030771; // 030776 SSRAM[12799] = 36'o205100220400; // 030777 SSRAM[12800] = 36'o551140100000; // 031000 SSRAM[12801] = 36'o122200000002; // 031001 SSRAM[12802] = 36'o312200000003; // 031002 SSRAM[12803] = 36'o003200000220; // 031003 SSRAM[12804] = 36'o321400030777; // 031004 SSRAM[12805] = 36'o205100221400; // 031005 SSRAM[12806] = 36'o551140200000; // 031006 SSRAM[12807] = 36'o122200000002; // 031007 SSRAM[12808] = 36'o312200000003; // 031010 SSRAM[12809] = 36'o003200000221; // 031011 SSRAM[12810] = 36'o321400031005; // 031012 SSRAM[12811] = 36'o205100222400; // 031013 SSRAM[12812] = 36'o551140400000; // 031014 SSRAM[12813] = 36'o122200000002; // 031015 SSRAM[12814] = 36'o312200000003; // 031016 SSRAM[12815] = 36'o003200000222; // 031017 SSRAM[12816] = 36'o321400031013; // 031020 SSRAM[12817] = 36'o205100223400; // 031021 SSRAM[12818] = 36'o205140000001; // 031022 SSRAM[12819] = 36'o122200000002; // 031023 SSRAM[12820] = 36'o312200000003; // 031024 SSRAM[12821] = 36'o003200000301; // 031025 SSRAM[12822] = 36'o321400031021; // 031026 SSRAM[12823] = 36'o205100224400; // 031027 SSRAM[12824] = 36'o205140000002; // 031030 SSRAM[12825] = 36'o122200000002; // 031031 SSRAM[12826] = 36'o312200000003; // 031032 SSRAM[12827] = 36'o003200000302; // 031033 SSRAM[12828] = 36'o321400031027; // 031034 SSRAM[12829] = 36'o205100225400; // 031035 SSRAM[12830] = 36'o205140000004; // 031036 SSRAM[12831] = 36'o122200000002; // 031037 SSRAM[12832] = 36'o312200000003; // 031040 SSRAM[12833] = 36'o003200000303; // 031041 SSRAM[12834] = 36'o321400031035; // 031042 SSRAM[12835] = 36'o205100226400; // 031043 SSRAM[12836] = 36'o205140000010; // 031044 SSRAM[12837] = 36'o122200000002; // 031045 SSRAM[12838] = 36'o312200000003; // 031046 SSRAM[12839] = 36'o003200000304; // 031047 SSRAM[12840] = 36'o321400031043; // 031050 SSRAM[12841] = 36'o205100227400; // 031051 SSRAM[12842] = 36'o205140000020; // 031052 SSRAM[12843] = 36'o122200000002; // 031053 SSRAM[12844] = 36'o312200000003; // 031054 SSRAM[12845] = 36'o003200000305; // 031055 SSRAM[12846] = 36'o321400031051; // 031056 SSRAM[12847] = 36'o205100230400; // 031057 SSRAM[12848] = 36'o205140000040; // 031060 SSRAM[12849] = 36'o122200000002; // 031061 SSRAM[12850] = 36'o312200000003; // 031062 SSRAM[12851] = 36'o003200000306; // 031063 SSRAM[12852] = 36'o321400031057; // 031064 SSRAM[12853] = 36'o205100231400; // 031065 SSRAM[12854] = 36'o205140000100; // 031066 SSRAM[12855] = 36'o122200000002; // 031067 SSRAM[12856] = 36'o312200000003; // 031070 SSRAM[12857] = 36'o003200000307; // 031071 SSRAM[12858] = 36'o321400031065; // 031072 SSRAM[12859] = 36'o205100232400; // 031073 SSRAM[12860] = 36'o205140000200; // 031074 SSRAM[12861] = 36'o122200000002; // 031075 SSRAM[12862] = 36'o312200000003; // 031076 SSRAM[12863] = 36'o003200000310; // 031077 SSRAM[12864] = 36'o321400031073; // 031100 SSRAM[12865] = 36'o205100233400; // 031101 SSRAM[12866] = 36'o205140000400; // 031102 SSRAM[12867] = 36'o122200000002; // 031103 SSRAM[12868] = 36'o312200000003; // 031104 SSRAM[12869] = 36'o003200000311; // 031105 SSRAM[12870] = 36'o321400031101; // 031106 SSRAM[12871] = 36'o205100234400; // 031107 SSRAM[12872] = 36'o205140001000; // 031110 SSRAM[12873] = 36'o122200000002; // 031111 SSRAM[12874] = 36'o312200000003; // 031112 SSRAM[12875] = 36'o003200000312; // 031113 SSRAM[12876] = 36'o321400031107; // 031114 SSRAM[12877] = 36'o205100235400; // 031115 SSRAM[12878] = 36'o205140002000; // 031116 SSRAM[12879] = 36'o122200000002; // 031117 SSRAM[12880] = 36'o312200000003; // 031120 SSRAM[12881] = 36'o003200000313; // 031121 SSRAM[12882] = 36'o321400031115; // 031122 SSRAM[12883] = 36'o205100236400; // 031123 SSRAM[12884] = 36'o205140004000; // 031124 SSRAM[12885] = 36'o122200000002; // 031125 SSRAM[12886] = 36'o312200000003; // 031126 SSRAM[12887] = 36'o003200000314; // 031127 SSRAM[12888] = 36'o321400031123; // 031130 SSRAM[12889] = 36'o205100237400; // 031131 SSRAM[12890] = 36'o205140010000; // 031132 SSRAM[12891] = 36'o122200000002; // 031133 SSRAM[12892] = 36'o312200000003; // 031134 SSRAM[12893] = 36'o003200000315; // 031135 SSRAM[12894] = 36'o321400031131; // 031136 SSRAM[12895] = 36'o205100240400; // 031137 SSRAM[12896] = 36'o205140020000; // 031140 SSRAM[12897] = 36'o122200000002; // 031141 SSRAM[12898] = 36'o312200000003; // 031142 SSRAM[12899] = 36'o003200000316; // 031143 SSRAM[12900] = 36'o321400031137; // 031144 SSRAM[12901] = 36'o205100241400; // 031145 SSRAM[12902] = 36'o205140040000; // 031146 SSRAM[12903] = 36'o122200000002; // 031147 SSRAM[12904] = 36'o312200000003; // 031150 SSRAM[12905] = 36'o003200000317; // 031151 SSRAM[12906] = 36'o321400031145; // 031152 SSRAM[12907] = 36'o205100242400; // 031153 SSRAM[12908] = 36'o205140100000; // 031154 SSRAM[12909] = 36'o122200000002; // 031155 SSRAM[12910] = 36'o312200000003; // 031156 SSRAM[12911] = 36'o003200000320; // 031157 SSRAM[12912] = 36'o321400031153; // 031160 SSRAM[12913] = 36'o205100243400; // 031161 SSRAM[12914] = 36'o205140200000; // 031162 SSRAM[12915] = 36'o122200000002; // 031163 SSRAM[12916] = 36'o312200000003; // 031164 SSRAM[12917] = 36'o003200000321; // 031165 SSRAM[12918] = 36'o321400031161; // 031166 SSRAM[12919] = 36'o205100201000; // 031167 SSRAM[12920] = 36'o661100000400; // 031170 SSRAM[12921] = 36'o122200000002; // 031171 SSRAM[12922] = 36'o302200000001; // 031172 SSRAM[12923] = 36'o003200000501; // 031173 SSRAM[12924] = 36'o321400031167; // 031174 SSRAM[12925] = 36'o205100202000; // 031175 SSRAM[12926] = 36'o661100000200; // 031176 SSRAM[12927] = 36'o122200000002; // 031177 SSRAM[12928] = 36'o302200000001; // 031200 SSRAM[12929] = 36'o003200000502; // 031201 SSRAM[12930] = 36'o321400031175; // 031202 SSRAM[12931] = 36'o205100203000; // 031203 SSRAM[12932] = 36'o661100000100; // 031204 SSRAM[12933] = 36'o122200000002; // 031205 SSRAM[12934] = 36'o302200000001; // 031206 SSRAM[12935] = 36'o003200000503; // 031207 SSRAM[12936] = 36'o321400031203; // 031210 SSRAM[12937] = 36'o205100204000; // 031211 SSRAM[12938] = 36'o661100000040; // 031212 SSRAM[12939] = 36'o122200000002; // 031213 SSRAM[12940] = 36'o302200000001; // 031214 SSRAM[12941] = 36'o003200000504; // 031215 SSRAM[12942] = 36'o321400031211; // 031216 SSRAM[12943] = 36'o205100205000; // 031217 SSRAM[12944] = 36'o661100000020; // 031220 SSRAM[12945] = 36'o122200000002; // 031221 SSRAM[12946] = 36'o302200000001; // 031222 SSRAM[12947] = 36'o003200000505; // 031223 SSRAM[12948] = 36'o321400031217; // 031224 SSRAM[12949] = 36'o205100206000; // 031225 SSRAM[12950] = 36'o661100000010; // 031226 SSRAM[12951] = 36'o122200000002; // 031227 SSRAM[12952] = 36'o302200000001; // 031230 SSRAM[12953] = 36'o003200000506; // 031231 SSRAM[12954] = 36'o321400031225; // 031232 SSRAM[12955] = 36'o205100207000; // 031233 SSRAM[12956] = 36'o661100000004; // 031234 SSRAM[12957] = 36'o122200000002; // 031235 SSRAM[12958] = 36'o302200000001; // 031236 SSRAM[12959] = 36'o003200000507; // 031237 SSRAM[12960] = 36'o321400031233; // 031240 SSRAM[12961] = 36'o205100210000; // 031241 SSRAM[12962] = 36'o661100000002; // 031242 SSRAM[12963] = 36'o122200000002; // 031243 SSRAM[12964] = 36'o302200000001; // 031244 SSRAM[12965] = 36'o003200000510; // 031245 SSRAM[12966] = 36'o321400031241; // 031246 SSRAM[12967] = 36'o205100211000; // 031247 SSRAM[12968] = 36'o661100000001; // 031250 SSRAM[12969] = 36'o122200000002; // 031251 SSRAM[12970] = 36'o302200000001; // 031252 SSRAM[12971] = 36'o003200000511; // 031253 SSRAM[12972] = 36'o321400031247; // 031254 SSRAM[12973] = 36'o205100212000; // 031255 SSRAM[12974] = 36'o541100400000; // 031256 SSRAM[12975] = 36'o122200000002; // 031257 SSRAM[12976] = 36'o302200000001; // 031260 SSRAM[12977] = 36'o003200000601; // 031261 SSRAM[12978] = 36'o321400031255; // 031262 SSRAM[12979] = 36'o205100213000; // 031263 SSRAM[12980] = 36'o541100200000; // 031264 SSRAM[12981] = 36'o122200000002; // 031265 SSRAM[12982] = 36'o302200000001; // 031266 SSRAM[12983] = 36'o003200000602; // 031267 SSRAM[12984] = 36'o321400031263; // 031270 SSRAM[12985] = 36'o205100214000; // 031271 SSRAM[12986] = 36'o541100100000; // 031272 SSRAM[12987] = 36'o122200000002; // 031273 SSRAM[12988] = 36'o302200000001; // 031274 SSRAM[12989] = 36'o003200000603; // 031275 SSRAM[12990] = 36'o321400031271; // 031276 SSRAM[12991] = 36'o205100215000; // 031277 SSRAM[12992] = 36'o541100040000; // 031300 SSRAM[12993] = 36'o122200000002; // 031301 SSRAM[12994] = 36'o302200000001; // 031302 SSRAM[12995] = 36'o003200000604; // 031303 SSRAM[12996] = 36'o321400031277; // 031304 SSRAM[12997] = 36'o205100216000; // 031305 SSRAM[12998] = 36'o541100020000; // 031306 SSRAM[12999] = 36'o122200000002; // 031307 SSRAM[13000] = 36'o302200000001; // 031310 SSRAM[13001] = 36'o003200000605; // 031311 SSRAM[13002] = 36'o321400031305; // 031312 SSRAM[13003] = 36'o205100217000; // 031313 SSRAM[13004] = 36'o541100010000; // 031314 SSRAM[13005] = 36'o122200000002; // 031315 SSRAM[13006] = 36'o302200000001; // 031316 SSRAM[13007] = 36'o003200000606; // 031317 SSRAM[13008] = 36'o321400031313; // 031320 SSRAM[13009] = 36'o205100220000; // 031321 SSRAM[13010] = 36'o541100004000; // 031322 SSRAM[13011] = 36'o122200000002; // 031323 SSRAM[13012] = 36'o302200000001; // 031324 SSRAM[13013] = 36'o003200000607; // 031325 SSRAM[13014] = 36'o321400031321; // 031326 SSRAM[13015] = 36'o205100221000; // 031327 SSRAM[13016] = 36'o541100002000; // 031330 SSRAM[13017] = 36'o122200000002; // 031331 SSRAM[13018] = 36'o302200000001; // 031332 SSRAM[13019] = 36'o003200000610; // 031333 SSRAM[13020] = 36'o321400031327; // 031334 SSRAM[13021] = 36'o205100222000; // 031335 SSRAM[13022] = 36'o541100001000; // 031336 SSRAM[13023] = 36'o122200000002; // 031337 SSRAM[13024] = 36'o302200000001; // 031340 SSRAM[13025] = 36'o003200000611; // 031341 SSRAM[13026] = 36'o321400031335; // 031342 SSRAM[13027] = 36'o205100223000; // 031343 SSRAM[13028] = 36'o541100000400; // 031344 SSRAM[13029] = 36'o122200000002; // 031345 SSRAM[13030] = 36'o302200000001; // 031346 SSRAM[13031] = 36'o003200000612; // 031347 SSRAM[13032] = 36'o321400031343; // 031350 SSRAM[13033] = 36'o205100224000; // 031351 SSRAM[13034] = 36'o541100000200; // 031352 SSRAM[13035] = 36'o122200000002; // 031353 SSRAM[13036] = 36'o302200000001; // 031354 SSRAM[13037] = 36'o003200000613; // 031355 SSRAM[13038] = 36'o321400031351; // 031356 SSRAM[13039] = 36'o205100225000; // 031357 SSRAM[13040] = 36'o541100000100; // 031360 SSRAM[13041] = 36'o122200000002; // 031361 SSRAM[13042] = 36'o302200000001; // 031362 SSRAM[13043] = 36'o003200000614; // 031363 SSRAM[13044] = 36'o321400031357; // 031364 SSRAM[13045] = 36'o205100226000; // 031365 SSRAM[13046] = 36'o541100000040; // 031366 SSRAM[13047] = 36'o122200000002; // 031367 SSRAM[13048] = 36'o302200000001; // 031370 SSRAM[13049] = 36'o003200000615; // 031371 SSRAM[13050] = 36'o321400031365; // 031372 SSRAM[13051] = 36'o205100227000; // 031373 SSRAM[13052] = 36'o541100000020; // 031374 SSRAM[13053] = 36'o122200000002; // 031375 SSRAM[13054] = 36'o302200000001; // 031376 SSRAM[13055] = 36'o003200000616; // 031377 SSRAM[13056] = 36'o321400031373; // 031400 SSRAM[13057] = 36'o205100230000; // 031401 SSRAM[13058] = 36'o541100000010; // 031402 SSRAM[13059] = 36'o122200000002; // 031403 SSRAM[13060] = 36'o302200000001; // 031404 SSRAM[13061] = 36'o003200000617; // 031405 SSRAM[13062] = 36'o321400031401; // 031406 SSRAM[13063] = 36'o205100231000; // 031407 SSRAM[13064] = 36'o541100000004; // 031410 SSRAM[13065] = 36'o122200000002; // 031411 SSRAM[13066] = 36'o302200000001; // 031412 SSRAM[13067] = 36'o003200000620; // 031413 SSRAM[13068] = 36'o321400031407; // 031414 SSRAM[13069] = 36'o205100232000; // 031415 SSRAM[13070] = 36'o541100000002; // 031416 SSRAM[13071] = 36'o122200000002; // 031417 SSRAM[13072] = 36'o302200000001; // 031420 SSRAM[13073] = 36'o003200000621; // 031421 SSRAM[13074] = 36'o321400031415; // 031422 SSRAM[13075] = 36'o205100233000; // 031423 SSRAM[13076] = 36'o541100000001; // 031424 SSRAM[13077] = 36'o122200000002; // 031425 SSRAM[13078] = 36'o302200000001; // 031426 SSRAM[13079] = 36'o003200000622; // 031427 SSRAM[13080] = 36'o321400031423; // 031430 SSRAM[13081] = 36'o205100576000; // 031431 SSRAM[13082] = 36'o661100000400; // 031432 SSRAM[13083] = 36'o561140777777; // 031433 SSRAM[13084] = 36'o122200000002; // 031434 SSRAM[13085] = 36'o312200000003; // 031435 SSRAM[13086] = 36'o003200000701; // 031436 SSRAM[13087] = 36'o321400031431; // 031437 SSRAM[13088] = 36'o205100575000; // 031440 SSRAM[13089] = 36'o661100000400; // 031441 SSRAM[13090] = 36'o561140777776; // 031442 SSRAM[13091] = 36'o122200000002; // 031443 SSRAM[13092] = 36'o312200000003; // 031444 SSRAM[13093] = 36'o003200000702; // 031445 SSRAM[13094] = 36'o321400031440; // 031446 SSRAM[13095] = 36'o205100575000; // 031447 SSRAM[13096] = 36'o661100000200; // 031450 SSRAM[13097] = 36'o561140777775; // 031451 SSRAM[13098] = 36'o122200000002; // 031452 SSRAM[13099] = 36'o312200000003; // 031453 SSRAM[13100] = 36'o003200001001; // 031454 SSRAM[13101] = 36'o321400031447; // 031455 SSRAM[13102] = 36'o205100574000; // 031456 SSRAM[13103] = 36'o661100000300; // 031457 SSRAM[13104] = 36'o561140777773; // 031460 SSRAM[13105] = 36'o122200000002; // 031461 SSRAM[13106] = 36'o312200000003; // 031462 SSRAM[13107] = 36'o003200001002; // 031463 SSRAM[13108] = 36'o321400031456; // 031464 SSRAM[13109] = 36'o205100573000; // 031465 SSRAM[13110] = 36'o661100000340; // 031466 SSRAM[13111] = 36'o561140777767; // 031467 SSRAM[13112] = 36'o122200000002; // 031470 SSRAM[13113] = 36'o312200000003; // 031471 SSRAM[13114] = 36'o003200001003; // 031472 SSRAM[13115] = 36'o321400031465; // 031473 SSRAM[13116] = 36'o205100572000; // 031474 SSRAM[13117] = 36'o661100000360; // 031475 SSRAM[13118] = 36'o561140777757; // 031476 SSRAM[13119] = 36'o122200000002; // 031477 SSRAM[13120] = 36'o312200000003; // 031500 SSRAM[13121] = 36'o003200001004; // 031501 SSRAM[13122] = 36'o321400031474; // 031502 SSRAM[13123] = 36'o205100571000; // 031503 SSRAM[13124] = 36'o661100000370; // 031504 SSRAM[13125] = 36'o561140777737; // 031505 SSRAM[13126] = 36'o122200000002; // 031506 SSRAM[13127] = 36'o312200000003; // 031507 SSRAM[13128] = 36'o003200001005; // 031510 SSRAM[13129] = 36'o321400031503; // 031511 SSRAM[13130] = 36'o205100570000; // 031512 SSRAM[13131] = 36'o661100000374; // 031513 SSRAM[13132] = 36'o561140777677; // 031514 SSRAM[13133] = 36'o122200000002; // 031515 SSRAM[13134] = 36'o312200000003; // 031516 SSRAM[13135] = 36'o003200001006; // 031517 SSRAM[13136] = 36'o321400031512; // 031520 SSRAM[13137] = 36'o205100567000; // 031521 SSRAM[13138] = 36'o661100000376; // 031522 SSRAM[13139] = 36'o561140777577; // 031523 SSRAM[13140] = 36'o122200000002; // 031524 SSRAM[13141] = 36'o312200000003; // 031525 SSRAM[13142] = 36'o003200001007; // 031526 SSRAM[13143] = 36'o321400031521; // 031527 SSRAM[13144] = 36'o205100566000; // 031530 SSRAM[13145] = 36'o661100000377; // 031531 SSRAM[13146] = 36'o561140777377; // 031532 SSRAM[13147] = 36'o122200000002; // 031533 SSRAM[13148] = 36'o312200000003; // 031534 SSRAM[13149] = 36'o003200001010; // 031535 SSRAM[13150] = 36'o321400031530; // 031536 SSRAM[13151] = 36'o205100565377; // 031537 SSRAM[13152] = 36'o541100400000; // 031540 SSRAM[13153] = 36'o561140776777; // 031541 SSRAM[13154] = 36'o122200000002; // 031542 SSRAM[13155] = 36'o312200000003; // 031543 SSRAM[13156] = 36'o003200001101; // 031544 SSRAM[13157] = 36'o321400031537; // 031545 SSRAM[13158] = 36'o205100564377; // 031546 SSRAM[13159] = 36'o541100600000; // 031547 SSRAM[13160] = 36'o561140775777; // 031550 SSRAM[13161] = 36'o122200000002; // 031551 SSRAM[13162] = 36'o312200000003; // 031552 SSRAM[13163] = 36'o003200001102; // 031553 SSRAM[13164] = 36'o321400031546; // 031554 SSRAM[13165] = 36'o205100563377; // 031555 SSRAM[13166] = 36'o541100700000; // 031556 SSRAM[13167] = 36'o561140773777; // 031557 SSRAM[13168] = 36'o122200000002; // 031560 SSRAM[13169] = 36'o312200000003; // 031561 SSRAM[13170] = 36'o003200001103; // 031562 SSRAM[13171] = 36'o321400031555; // 031563 SSRAM[13172] = 36'o205100562377; // 031564 SSRAM[13173] = 36'o541100740000; // 031565 SSRAM[13174] = 36'o561140767777; // 031566 SSRAM[13175] = 36'o122200000002; // 031567 SSRAM[13176] = 36'o312200000003; // 031570 SSRAM[13177] = 36'o003200001104; // 031571 SSRAM[13178] = 36'o321400031564; // 031572 SSRAM[13179] = 36'o205100561377; // 031573 SSRAM[13180] = 36'o541100760000; // 031574 SSRAM[13181] = 36'o561140757777; // 031575 SSRAM[13182] = 36'o122200000002; // 031576 SSRAM[13183] = 36'o312200000003; // 031577 SSRAM[13184] = 36'o003200001105; // 031600 SSRAM[13185] = 36'o321400031573; // 031601 SSRAM[13186] = 36'o205100560377; // 031602 SSRAM[13187] = 36'o541100770000; // 031603 SSRAM[13188] = 36'o561140737777; // 031604 SSRAM[13189] = 36'o122200000002; // 031605 SSRAM[13190] = 36'o312200000003; // 031606 SSRAM[13191] = 36'o003200001106; // 031607 SSRAM[13192] = 36'o321400031602; // 031610 SSRAM[13193] = 36'o205100557377; // 031611 SSRAM[13194] = 36'o541100774000; // 031612 SSRAM[13195] = 36'o561140677777; // 031613 SSRAM[13196] = 36'o122200000002; // 031614 SSRAM[13197] = 36'o312200000003; // 031615 SSRAM[13198] = 36'o003200001107; // 031616 SSRAM[13199] = 36'o321400031611; // 031617 SSRAM[13200] = 36'o205100556377; // 031620 SSRAM[13201] = 36'o541100776000; // 031621 SSRAM[13202] = 36'o561140577777; // 031622 SSRAM[13203] = 36'o122200000002; // 031623 SSRAM[13204] = 36'o312200000003; // 031624 SSRAM[13205] = 36'o003200001110; // 031625 SSRAM[13206] = 36'o321400031620; // 031626 SSRAM[13207] = 36'o205100555377; // 031627 SSRAM[13208] = 36'o541100777000; // 031630 SSRAM[13209] = 36'o561140377777; // 031631 SSRAM[13210] = 36'o122200000002; // 031632 SSRAM[13211] = 36'o312200000003; // 031633 SSRAM[13212] = 36'o003200001111; // 031634 SSRAM[13213] = 36'o321400031627; // 031635 SSRAM[13214] = 36'o205100554377; // 031636 SSRAM[13215] = 36'o541100777400; // 031637 SSRAM[13216] = 36'o525140777776; // 031640 SSRAM[13217] = 36'o122200000002; // 031641 SSRAM[13218] = 36'o312200000003; // 031642 SSRAM[13219] = 36'o003200001201; // 031643 SSRAM[13220] = 36'o321400031636; // 031644 SSRAM[13221] = 36'o205100553377; // 031645 SSRAM[13222] = 36'o541100777600; // 031646 SSRAM[13223] = 36'o525140777775; // 031647 SSRAM[13224] = 36'o122200000002; // 031650 SSRAM[13225] = 36'o312200000003; // 031651 SSRAM[13226] = 36'o003200001202; // 031652 SSRAM[13227] = 36'o321400031645; // 031653 SSRAM[13228] = 36'o205100552377; // 031654 SSRAM[13229] = 36'o541100777700; // 031655 SSRAM[13230] = 36'o525140777773; // 031656 SSRAM[13231] = 36'o122200000002; // 031657 SSRAM[13232] = 36'o312200000003; // 031660 SSRAM[13233] = 36'o003200001203; // 031661 SSRAM[13234] = 36'o321400031654; // 031662 SSRAM[13235] = 36'o205100551377; // 031663 SSRAM[13236] = 36'o541100777740; // 031664 SSRAM[13237] = 36'o525140777767; // 031665 SSRAM[13238] = 36'o122200000002; // 031666 SSRAM[13239] = 36'o312200000003; // 031667 SSRAM[13240] = 36'o003200001204; // 031670 SSRAM[13241] = 36'o321400031663; // 031671 SSRAM[13242] = 36'o205100550377; // 031672 SSRAM[13243] = 36'o541100777760; // 031673 SSRAM[13244] = 36'o525140777757; // 031674 SSRAM[13245] = 36'o122200000002; // 031675 SSRAM[13246] = 36'o312200000003; // 031676 SSRAM[13247] = 36'o003200001205; // 031677 SSRAM[13248] = 36'o321400031672; // 031700 SSRAM[13249] = 36'o205100547377; // 031701 SSRAM[13250] = 36'o541100777770; // 031702 SSRAM[13251] = 36'o525140777737; // 031703 SSRAM[13252] = 36'o122200000002; // 031704 SSRAM[13253] = 36'o312200000003; // 031705 SSRAM[13254] = 36'o003200001206; // 031706 SSRAM[13255] = 36'o321400031701; // 031707 SSRAM[13256] = 36'o205100546377; // 031710 SSRAM[13257] = 36'o541100777774; // 031711 SSRAM[13258] = 36'o525140777677; // 031712 SSRAM[13259] = 36'o122200000002; // 031713 SSRAM[13260] = 36'o312200000003; // 031714 SSRAM[13261] = 36'o003200001207; // 031715 SSRAM[13262] = 36'o321400031710; // 031716 SSRAM[13263] = 36'o205100545377; // 031717 SSRAM[13264] = 36'o541100777776; // 031720 SSRAM[13265] = 36'o525140777577; // 031721 SSRAM[13266] = 36'o122200000002; // 031722 SSRAM[13267] = 36'o312200000003; // 031723 SSRAM[13268] = 36'o003200001210; // 031724 SSRAM[13269] = 36'o321400031717; // 031725 SSRAM[13270] = 36'o205100544377; // 031726 SSRAM[13271] = 36'o541100777777; // 031727 SSRAM[13272] = 36'o525140777377; // 031730 SSRAM[13273] = 36'o122200000002; // 031731 SSRAM[13274] = 36'o312200000003; // 031732 SSRAM[13275] = 36'o003200001211; // 031733 SSRAM[13276] = 36'o321400031726; // 031734 SSRAM[13277] = 36'o525100543377; // 031735 SSRAM[13278] = 36'o505140776777; // 031736 SSRAM[13279] = 36'o541140777776; // 031737 SSRAM[13280] = 36'o122200000002; // 031740 SSRAM[13281] = 36'o312200000003; // 031741 SSRAM[13282] = 36'o003200001301; // 031742 SSRAM[13283] = 36'o321400031735; // 031743 SSRAM[13284] = 36'o525100542377; // 031744 SSRAM[13285] = 36'o505140775777; // 031745 SSRAM[13286] = 36'o541140777774; // 031746 SSRAM[13287] = 36'o122200000002; // 031747 SSRAM[13288] = 36'o312200000003; // 031750 SSRAM[13289] = 36'o003200001302; // 031751 SSRAM[13290] = 36'o321400031744; // 031752 SSRAM[13291] = 36'o525100541377; // 031753 SSRAM[13292] = 36'o505140773777; // 031754 SSRAM[13293] = 36'o541140777770; // 031755 SSRAM[13294] = 36'o122200000002; // 031756 SSRAM[13295] = 36'o312200000003; // 031757 SSRAM[13296] = 36'o003200001303; // 031760 SSRAM[13297] = 36'o321400031753; // 031761 SSRAM[13298] = 36'o525100540377; // 031762 SSRAM[13299] = 36'o505140767777; // 031763 SSRAM[13300] = 36'o541140777760; // 031764 SSRAM[13301] = 36'o122200000002; // 031765 SSRAM[13302] = 36'o312200000003; // 031766 SSRAM[13303] = 36'o003200001304; // 031767 SSRAM[13304] = 36'o321400031762; // 031770 SSRAM[13305] = 36'o525100537377; // 031771 SSRAM[13306] = 36'o505140757777; // 031772 SSRAM[13307] = 36'o541140777740; // 031773 SSRAM[13308] = 36'o122200000002; // 031774 SSRAM[13309] = 36'o312200000003; // 031775 SSRAM[13310] = 36'o003200001305; // 031776 SSRAM[13311] = 36'o321400031771; // 031777 SSRAM[13312] = 36'o525100536377; // 032000 SSRAM[13313] = 36'o505140737777; // 032001 SSRAM[13314] = 36'o541140777700; // 032002 SSRAM[13315] = 36'o122200000002; // 032003 SSRAM[13316] = 36'o312200000003; // 032004 SSRAM[13317] = 36'o003200001306; // 032005 SSRAM[13318] = 36'o321400032000; // 032006 SSRAM[13319] = 36'o525100535377; // 032007 SSRAM[13320] = 36'o505140677777; // 032010 SSRAM[13321] = 36'o541140777600; // 032011 SSRAM[13322] = 36'o122200000002; // 032012 SSRAM[13323] = 36'o312200000003; // 032013 SSRAM[13324] = 36'o003200001307; // 032014 SSRAM[13325] = 36'o321400032007; // 032015 SSRAM[13326] = 36'o525100534377; // 032016 SSRAM[13327] = 36'o505140577777; // 032017 SSRAM[13328] = 36'o541140777400; // 032020 SSRAM[13329] = 36'o122200000002; // 032021 SSRAM[13330] = 36'o312200000003; // 032022 SSRAM[13331] = 36'o003200001310; // 032023 SSRAM[13332] = 36'o321400032016; // 032024 SSRAM[13333] = 36'o525100243777; // 032025 SSRAM[13334] = 36'o505140377777; // 032026 SSRAM[13335] = 36'o541140777400; // 032027 SSRAM[13336] = 36'o122200000002; // 032030 SSRAM[13337] = 36'o312200000003; // 032031 SSRAM[13338] = 36'o003200001401; // 032032 SSRAM[13339] = 36'o321400032025; // 032033 SSRAM[13340] = 36'o205100576000; // 032034 SSRAM[13341] = 36'o541100000001; // 032035 SSRAM[13342] = 36'o476000000003; // 032036 SSRAM[13343] = 36'o122200000002; // 032037 SSRAM[13344] = 36'o312200000003; // 032040 SSRAM[13345] = 36'o003200001501; // 032041 SSRAM[13346] = 36'o321400032034; // 032042 SSRAM[13347] = 36'o515100576200; // 032043 SSRAM[13348] = 36'o476000000003; // 032044 SSRAM[13349] = 36'o122200000002; // 032045 SSRAM[13350] = 36'o312200000003; // 032046 SSRAM[13351] = 36'o003200001601; // 032047 SSRAM[13352] = 36'o321400032043; // 032050 SSRAM[13353] = 36'o205100576200; // 032051 SSRAM[13354] = 36'o541100000001; // 032052 SSRAM[13355] = 36'o476000000003; // 032053 SSRAM[13356] = 36'o122200000002; // 032054 SSRAM[13357] = 36'o312200000003; // 032055 SSRAM[13358] = 36'o003200001701; // 032056 SSRAM[13359] = 36'o321400032051; // 032057 SSRAM[13360] = 36'o205100577000; // 032060 SSRAM[13361] = 36'o541100000001; // 032061 SSRAM[13362] = 36'o122200000002; // 032062 SSRAM[13363] = 36'o302200000000; // 032063 SSRAM[13364] = 36'o003200002001; // 032064 SSRAM[13365] = 36'o321400032060; // 032065 SSRAM[13366] = 36'o205100577400; // 032066 SSRAM[13367] = 36'o122200000002; // 032067 SSRAM[13368] = 36'o302200000000; // 032070 SSRAM[13369] = 36'o003200002101; // 032071 SSRAM[13370] = 36'o321400032066; // 032072 SSRAM[13371] = 36'o205100600000; // 032073 SSRAM[13372] = 36'o541100000001; // 032074 SSRAM[13373] = 36'o122200000002; // 032075 SSRAM[13374] = 36'o302200000000; // 032076 SSRAM[13375] = 36'o003200002201; // 032077 SSRAM[13376] = 36'o321400032073; // 032100 SSRAM[13377] = 36'o525100177777; // 032101 SSRAM[13378] = 36'o122200000002; // 032102 SSRAM[13379] = 36'o302200000000; // 032103 SSRAM[13380] = 36'o003200002301; // 032104 SSRAM[13381] = 36'o321400032101; // 032105 SSRAM[13382] = 36'o205100200400; // 032106 SSRAM[13383] = 36'o122200000002; // 032107 SSRAM[13384] = 36'o302200000000; // 032110 SSRAM[13385] = 36'o003200002401; // 032111 SSRAM[13386] = 36'o321400032106; // 032112 SSRAM[13387] = 36'o525100200777; // 032113 SSRAM[13388] = 36'o122200000002; // 032114 SSRAM[13389] = 36'o302200000000; // 032115 SSRAM[13390] = 36'o003200002501; // 032116 SSRAM[13391] = 36'o321400032113; // 032117 SSRAM[13392] = 36'o525100201577; // 032120 SSRAM[13393] = 36'o122200000002; // 032121 SSRAM[13394] = 36'o302200000001; // 032122 SSRAM[13395] = 36'o003200002601; // 032123 SSRAM[13396] = 36'o321400032120; // 032124 SSRAM[13397] = 36'o205100201600; // 032125 SSRAM[13398] = 36'o122200000002; // 032126 SSRAM[13399] = 36'o302200000001; // 032127 SSRAM[13400] = 36'o003200002701; // 032130 SSRAM[13401] = 36'o321400032125; // 032131 SSRAM[13402] = 36'o525100201777; // 032132 SSRAM[13403] = 36'o122200000002; // 032133 SSRAM[13404] = 36'o302200000001; // 032134 SSRAM[13405] = 36'o003200003001; // 032135 SSRAM[13406] = 36'o321400032132; // 032136 SSRAM[13407] = 36'o201400032137; // 032137 SSRAM[13408] = 36'o202400030051; // 032140 SSRAM[13409] = 36'o201400000010; // 032141 SSRAM[13410] = 36'o202400037141; // 032142 SSRAM[13411] = 36'o515100576200; // 032143 SSRAM[13412] = 36'o202100036501; // 032144 SSRAM[13413] = 36'o476000000003; // 032145 SSRAM[13414] = 36'o122200036501; // 032146 SSRAM[13415] = 36'o312200000003; // 032147 SSRAM[13416] = 36'o003200003011; // 032150 SSRAM[13417] = 36'o321400032143; // 032151 SSRAM[13418] = 36'o200100036673; // 032152 SSRAM[13419] = 36'o126200000002; // 032153 SSRAM[13420] = 36'o312100036673; // 032154 SSRAM[13421] = 36'o005100003051; // 032155 SSRAM[13422] = 36'o321400032152; // 032156 SSRAM[13423] = 36'o205100576000; // 032157 SSRAM[13424] = 36'o541100000001; // 032160 SSRAM[13425] = 36'o561140777776; // 032161 SSRAM[13426] = 36'o126200000002; // 032162 SSRAM[13427] = 36'o312200000003; // 032163 SSRAM[13428] = 36'o003200003101; // 032164 SSRAM[13429] = 36'o321400032157; // 032165 SSRAM[13430] = 36'o205100576200; // 032166 SSRAM[13431] = 36'o476000000003; // 032167 SSRAM[13432] = 36'o126200000002; // 032170 SSRAM[13433] = 36'o312200000003; // 032171 SSRAM[13434] = 36'o003200003201; // 032172 SSRAM[13435] = 36'o321400032166; // 032173 SSRAM[13436] = 36'o205100576200; // 032174 SSRAM[13437] = 36'o541100000001; // 032175 SSRAM[13438] = 36'o476000000003; // 032176 SSRAM[13439] = 36'o126200000002; // 032177 SSRAM[13440] = 36'o312200000003; // 032200 SSRAM[13441] = 36'o003200003301; // 032201 SSRAM[13442] = 36'o321400032174; // 032202 SSRAM[13443] = 36'o205100577000; // 032203 SSRAM[13444] = 36'o541100000001; // 032204 SSRAM[13445] = 36'o476000000003; // 032205 SSRAM[13446] = 36'o126200000002; // 032206 SSRAM[13447] = 36'o312200000003; // 032207 SSRAM[13448] = 36'o003200003401; // 032210 SSRAM[13449] = 36'o321400032203; // 032211 SSRAM[13450] = 36'o205100577400; // 032212 SSRAM[13451] = 36'o126200000002; // 032213 SSRAM[13452] = 36'o302200000000; // 032214 SSRAM[13453] = 36'o003200003501; // 032215 SSRAM[13454] = 36'o321400032212; // 032216 SSRAM[13455] = 36'o205100600000; // 032217 SSRAM[13456] = 36'o541100000001; // 032220 SSRAM[13457] = 36'o126200000002; // 032221 SSRAM[13458] = 36'o302200000000; // 032222 SSRAM[13459] = 36'o003200003601; // 032223 SSRAM[13460] = 36'o321400032217; // 032224 SSRAM[13461] = 36'o525100177777; // 032225 SSRAM[13462] = 36'o126200000002; // 032226 SSRAM[13463] = 36'o302200000000; // 032227 SSRAM[13464] = 36'o003200003701; // 032230 SSRAM[13465] = 36'o321400032225; // 032231 SSRAM[13466] = 36'o205100200400; // 032232 SSRAM[13467] = 36'o126200000002; // 032233 SSRAM[13468] = 36'o302200000001; // 032234 SSRAM[13469] = 36'o003200004001; // 032235 SSRAM[13470] = 36'o321400032232; // 032236 SSRAM[13471] = 36'o525100200777; // 032237 SSRAM[13472] = 36'o126200000002; // 032240 SSRAM[13473] = 36'o302200000001; // 032241 SSRAM[13474] = 36'o003200004101; // 032242 SSRAM[13475] = 36'o321400032237; // 032243 SSRAM[13476] = 36'o525100201577; // 032244 SSRAM[13477] = 36'o126200000002; // 032245 SSRAM[13478] = 36'o302200000001; // 032246 SSRAM[13479] = 36'o003200004201; // 032247 SSRAM[13480] = 36'o321400032244; // 032250 SSRAM[13481] = 36'o205100201600; // 032251 SSRAM[13482] = 36'o126200000002; // 032252 SSRAM[13483] = 36'o302200000002; // 032253 SSRAM[13484] = 36'o003200004301; // 032254 SSRAM[13485] = 36'o321400032251; // 032255 SSRAM[13486] = 36'o525100201777; // 032256 SSRAM[13487] = 36'o126200000002; // 032257 SSRAM[13488] = 36'o302200000002; // 032260 SSRAM[13489] = 36'o003200004401; // 032261 SSRAM[13490] = 36'o321400032256; // 032262 SSRAM[13491] = 36'o205100576000; // 032263 SSRAM[13492] = 36'o541100000001; // 032264 SSRAM[13493] = 36'o202100036501; // 032265 SSRAM[13494] = 36'o561140777776; // 032266 SSRAM[13495] = 36'o126200036501; // 032267 SSRAM[13496] = 36'o312200000003; // 032270 SSRAM[13497] = 36'o003200004411; // 032271 SSRAM[13498] = 36'o321400032263; // 032272 SSRAM[13499] = 36'o255400032274; // 032273 SSRAM[13500] = 36'o265200032275; // 032274 SSRAM[13501] = 36'o255400032277; // 032275 SSRAM[13502] = 36'o254000032300; // 032276 SSRAM[13503] = 36'o013200004501; // 032277 SSRAM[13504] = 36'o321400032273; // 032300 SSRAM[13505] = 36'o255400032302; // 032301 SSRAM[13506] = 36'o205100244400; // 032302 SSRAM[13507] = 36'o477200000003; // 032303 SSRAM[13508] = 36'o122200000002; // 032304 SSRAM[13509] = 36'o312200000003; // 032305 SSRAM[13510] = 36'o003200004601; // 032306 SSRAM[13511] = 36'o265240032310; // 032307 SSRAM[13512] = 36'o255400032312; // 032310 SSRAM[13513] = 36'o013240004601; // 032311 SSRAM[13514] = 36'o321400032301; // 032312 SSRAM[13515] = 36'o255400032314; // 032313 SSRAM[13516] = 36'o525100243777; // 032314 SSRAM[13517] = 36'o561140777400; // 032315 SSRAM[13518] = 36'o621140400000; // 032316 SSRAM[13519] = 36'o122200000002; // 032317 SSRAM[13520] = 36'o312200000003; // 032320 SSRAM[13521] = 36'o003200004701; // 032321 SSRAM[13522] = 36'o265240032323; // 032322 SSRAM[13523] = 36'o255400032325; // 032323 SSRAM[13524] = 36'o254000032326; // 032324 SSRAM[13525] = 36'o013240004701; // 032325 SSRAM[13526] = 36'o321400032313; // 032326 SSRAM[13527] = 36'o255400032330; // 032327 SSRAM[13528] = 36'o205100533400; // 032330 SSRAM[13529] = 36'o477200000003; // 032331 SSRAM[13530] = 36'o122200000002; // 032332 SSRAM[13531] = 36'o312200000003; // 032333 SSRAM[13532] = 36'o003200005001; // 032334 SSRAM[13533] = 36'o265240032336; // 032335 SSRAM[13534] = 36'o255400032340; // 032336 SSRAM[13535] = 36'o013240005001; // 032337 SSRAM[13536] = 36'o321400032327; // 032340 SSRAM[13537] = 36'o255400032342; // 032341 SSRAM[13538] = 36'o205100534000; // 032342 SSRAM[13539] = 36'o660100000001; // 032343 SSRAM[13540] = 36'o551140000400; // 032344 SSRAM[13541] = 36'o661140400000; // 032345 SSRAM[13542] = 36'o122200000002; // 032346 SSRAM[13543] = 36'o312200000003; // 032347 SSRAM[13544] = 36'o003200005101; // 032350 SSRAM[13545] = 36'o265240032352; // 032351 SSRAM[13546] = 36'o255400032354; // 032352 SSRAM[13547] = 36'o254000032355; // 032353 SSRAM[13548] = 36'o013240005101; // 032354 SSRAM[13549] = 36'o321400032341; // 032355 SSRAM[13550] = 36'o200100036674; // 032356 SSRAM[13551] = 36'o127200000002; // 032357 SSRAM[13552] = 36'o312100036674; // 032360 SSRAM[13553] = 36'o005100005151; // 032361 SSRAM[13554] = 36'o321400032356; // 032362 SSRAM[13555] = 36'o205100200000; // 032363 SSRAM[13556] = 36'o205140243400; // 032364 SSRAM[13557] = 36'o127200000002; // 032365 SSRAM[13558] = 36'o312200000003; // 032366 SSRAM[13559] = 36'o003200005201; // 032367 SSRAM[13560] = 36'o321400032363; // 032370 SSRAM[13561] = 36'o205100100000; // 032371 SSRAM[13562] = 36'o205140242400; // 032372 SSRAM[13563] = 36'o127200000002; // 032373 SSRAM[13564] = 36'o312200000003; // 032374 SSRAM[13565] = 36'o003200005202; // 032375 SSRAM[13566] = 36'o321400032371; // 032376 SSRAM[13567] = 36'o205100040000; // 032377 SSRAM[13568] = 36'o205140241400; // 032400 SSRAM[13569] = 36'o127200000002; // 032401 SSRAM[13570] = 36'o312200000003; // 032402 SSRAM[13571] = 36'o003200005203; // 032403 SSRAM[13572] = 36'o321400032377; // 032404 SSRAM[13573] = 36'o205100020000; // 032405 SSRAM[13574] = 36'o205140240400; // 032406 SSRAM[13575] = 36'o127200000002; // 032407 SSRAM[13576] = 36'o312200000003; // 032410 SSRAM[13577] = 36'o003200005204; // 032411 SSRAM[13578] = 36'o321400032405; // 032412 SSRAM[13579] = 36'o205100010000; // 032413 SSRAM[13580] = 36'o205140237400; // 032414 SSRAM[13581] = 36'o127200000002; // 032415 SSRAM[13582] = 36'o312200000003; // 032416 SSRAM[13583] = 36'o003200005205; // 032417 SSRAM[13584] = 36'o321400032413; // 032420 SSRAM[13585] = 36'o205100004000; // 032421 SSRAM[13586] = 36'o205140236400; // 032422 SSRAM[13587] = 36'o127200000002; // 032423 SSRAM[13588] = 36'o312200000003; // 032424 SSRAM[13589] = 36'o003200005206; // 032425 SSRAM[13590] = 36'o321400032421; // 032426 SSRAM[13591] = 36'o205100002000; // 032427 SSRAM[13592] = 36'o205140235400; // 032430 SSRAM[13593] = 36'o127200000002; // 032431 SSRAM[13594] = 36'o312200000003; // 032432 SSRAM[13595] = 36'o003200005207; // 032433 SSRAM[13596] = 36'o321400032427; // 032434 SSRAM[13597] = 36'o205100001000; // 032435 SSRAM[13598] = 36'o205140234400; // 032436 SSRAM[13599] = 36'o127200000002; // 032437 SSRAM[13600] = 36'o312200000003; // 032440 SSRAM[13601] = 36'o003200005210; // 032441 SSRAM[13602] = 36'o321400032435; // 032442 SSRAM[13603] = 36'o205100000400; // 032443 SSRAM[13604] = 36'o205140233400; // 032444 SSRAM[13605] = 36'o127200000002; // 032445 SSRAM[13606] = 36'o312200000003; // 032446 SSRAM[13607] = 36'o003200005211; // 032447 SSRAM[13608] = 36'o321400032443; // 032450 SSRAM[13609] = 36'o205100000200; // 032451 SSRAM[13610] = 36'o205140232400; // 032452 SSRAM[13611] = 36'o127200000002; // 032453 SSRAM[13612] = 36'o312200000003; // 032454 SSRAM[13613] = 36'o003200005212; // 032455 SSRAM[13614] = 36'o321400032451; // 032456 SSRAM[13615] = 36'o205100000100; // 032457 SSRAM[13616] = 36'o205140231400; // 032460 SSRAM[13617] = 36'o127200000002; // 032461 SSRAM[13618] = 36'o312200000003; // 032462 SSRAM[13619] = 36'o003200005213; // 032463 SSRAM[13620] = 36'o321400032457; // 032464 SSRAM[13621] = 36'o205100000040; // 032465 SSRAM[13622] = 36'o205140230400; // 032466 SSRAM[13623] = 36'o127200000002; // 032467 SSRAM[13624] = 36'o312200000003; // 032470 SSRAM[13625] = 36'o003200005214; // 032471 SSRAM[13626] = 36'o321400032465; // 032472 SSRAM[13627] = 36'o205100000020; // 032473 SSRAM[13628] = 36'o205140227400; // 032474 SSRAM[13629] = 36'o127200000002; // 032475 SSRAM[13630] = 36'o312200000003; // 032476 SSRAM[13631] = 36'o003200005215; // 032477 SSRAM[13632] = 36'o321400032473; // 032500 SSRAM[13633] = 36'o205100000010; // 032501 SSRAM[13634] = 36'o205140226400; // 032502 SSRAM[13635] = 36'o127200000002; // 032503 SSRAM[13636] = 36'o312200000003; // 032504 SSRAM[13637] = 36'o003200005216; // 032505 SSRAM[13638] = 36'o321400032501; // 032506 SSRAM[13639] = 36'o205100000004; // 032507 SSRAM[13640] = 36'o205140225400; // 032510 SSRAM[13641] = 36'o127200000002; // 032511 SSRAM[13642] = 36'o312200000003; // 032512 SSRAM[13643] = 36'o003200005217; // 032513 SSRAM[13644] = 36'o321400032507; // 032514 SSRAM[13645] = 36'o205100000002; // 032515 SSRAM[13646] = 36'o205140224400; // 032516 SSRAM[13647] = 36'o127200000002; // 032517 SSRAM[13648] = 36'o312200000003; // 032520 SSRAM[13649] = 36'o003200005220; // 032521 SSRAM[13650] = 36'o321400032515; // 032522 SSRAM[13651] = 36'o205100000001; // 032523 SSRAM[13652] = 36'o205140223400; // 032524 SSRAM[13653] = 36'o127200000002; // 032525 SSRAM[13654] = 36'o312200000003; // 032526 SSRAM[13655] = 36'o003200005221; // 032527 SSRAM[13656] = 36'o321400032523; // 032530 SSRAM[13657] = 36'o551100400000; // 032531 SSRAM[13658] = 36'o205140222400; // 032532 SSRAM[13659] = 36'o127200000002; // 032533 SSRAM[13660] = 36'o312200000003; // 032534 SSRAM[13661] = 36'o003200005301; // 032535 SSRAM[13662] = 36'o321400777773; // 032536 SSRAM[13663] = 36'o551100200000; // 032537 SSRAM[13664] = 36'o205140221400; // 032540 SSRAM[13665] = 36'o127200000002; // 032541 SSRAM[13666] = 36'o312200000003; // 032542 SSRAM[13667] = 36'o003200005302; // 032543 SSRAM[13668] = 36'o321400777773; // 032544 SSRAM[13669] = 36'o551100100000; // 032545 SSRAM[13670] = 36'o205140220400; // 032546 SSRAM[13671] = 36'o127200000002; // 032547 SSRAM[13672] = 36'o312200000003; // 032550 SSRAM[13673] = 36'o003200005303; // 032551 SSRAM[13674] = 36'o321400777773; // 032552 SSRAM[13675] = 36'o551100040000; // 032553 SSRAM[13676] = 36'o205140217400; // 032554 SSRAM[13677] = 36'o127200000002; // 032555 SSRAM[13678] = 36'o312200000003; // 032556 SSRAM[13679] = 36'o003200005304; // 032557 SSRAM[13680] = 36'o321400777773; // 032560 SSRAM[13681] = 36'o551100020000; // 032561 SSRAM[13682] = 36'o205140216400; // 032562 SSRAM[13683] = 36'o127200000002; // 032563 SSRAM[13684] = 36'o312200000003; // 032564 SSRAM[13685] = 36'o003200005305; // 032565 SSRAM[13686] = 36'o321400777773; // 032566 SSRAM[13687] = 36'o551100010000; // 032567 SSRAM[13688] = 36'o205140215400; // 032570 SSRAM[13689] = 36'o127200000002; // 032571 SSRAM[13690] = 36'o312200000003; // 032572 SSRAM[13691] = 36'o003200005306; // 032573 SSRAM[13692] = 36'o321400777773; // 032574 SSRAM[13693] = 36'o551100004000; // 032575 SSRAM[13694] = 36'o205140214400; // 032576 SSRAM[13695] = 36'o127200000002; // 032577 SSRAM[13696] = 36'o312200000003; // 032600 SSRAM[13697] = 36'o003200005307; // 032601 SSRAM[13698] = 36'o321400777773; // 032602 SSRAM[13699] = 36'o551100002000; // 032603 SSRAM[13700] = 36'o205140213400; // 032604 SSRAM[13701] = 36'o127200000002; // 032605 SSRAM[13702] = 36'o312200000003; // 032606 SSRAM[13703] = 36'o003200005310; // 032607 SSRAM[13704] = 36'o321400777773; // 032610 SSRAM[13705] = 36'o551100001000; // 032611 SSRAM[13706] = 36'o205140212400; // 032612 SSRAM[13707] = 36'o127200000002; // 032613 SSRAM[13708] = 36'o312200000003; // 032614 SSRAM[13709] = 36'o003200005311; // 032615 SSRAM[13710] = 36'o321400777773; // 032616 SSRAM[13711] = 36'o551100000400; // 032617 SSRAM[13712] = 36'o205140211400; // 032620 SSRAM[13713] = 36'o127200000002; // 032621 SSRAM[13714] = 36'o312200000003; // 032622 SSRAM[13715] = 36'o003200005312; // 032623 SSRAM[13716] = 36'o321400777773; // 032624 SSRAM[13717] = 36'o551100000200; // 032625 SSRAM[13718] = 36'o205140210400; // 032626 SSRAM[13719] = 36'o127200000002; // 032627 SSRAM[13720] = 36'o312200000003; // 032630 SSRAM[13721] = 36'o003200005313; // 032631 SSRAM[13722] = 36'o321400777773; // 032632 SSRAM[13723] = 36'o551100000100; // 032633 SSRAM[13724] = 36'o205140207400; // 032634 SSRAM[13725] = 36'o127200000002; // 032635 SSRAM[13726] = 36'o312200000003; // 032636 SSRAM[13727] = 36'o003200005314; // 032637 SSRAM[13728] = 36'o321400777773; // 032640 SSRAM[13729] = 36'o551100000040; // 032641 SSRAM[13730] = 36'o205140206400; // 032642 SSRAM[13731] = 36'o127200000002; // 032643 SSRAM[13732] = 36'o312200000003; // 032644 SSRAM[13733] = 36'o003200005315; // 032645 SSRAM[13734] = 36'o321400777773; // 032646 SSRAM[13735] = 36'o551100000020; // 032647 SSRAM[13736] = 36'o205140205400; // 032650 SSRAM[13737] = 36'o127200000002; // 032651 SSRAM[13738] = 36'o312200000003; // 032652 SSRAM[13739] = 36'o003200005316; // 032653 SSRAM[13740] = 36'o321400777773; // 032654 SSRAM[13741] = 36'o551100000010; // 032655 SSRAM[13742] = 36'o205140204400; // 032656 SSRAM[13743] = 36'o127200000002; // 032657 SSRAM[13744] = 36'o312200000003; // 032660 SSRAM[13745] = 36'o003200005317; // 032661 SSRAM[13746] = 36'o321400777773; // 032662 SSRAM[13747] = 36'o551100000004; // 032663 SSRAM[13748] = 36'o205140203400; // 032664 SSRAM[13749] = 36'o127200000002; // 032665 SSRAM[13750] = 36'o312200000003; // 032666 SSRAM[13751] = 36'o003200005320; // 032667 SSRAM[13752] = 36'o321400777773; // 032670 SSRAM[13753] = 36'o551100000002; // 032671 SSRAM[13754] = 36'o205140202400; // 032672 SSRAM[13755] = 36'o127200000002; // 032673 SSRAM[13756] = 36'o312200000003; // 032674 SSRAM[13757] = 36'o003200005321; // 032675 SSRAM[13758] = 36'o321400777773; // 032676 SSRAM[13759] = 36'o551100000001; // 032677 SSRAM[13760] = 36'o205140201400; // 032700 SSRAM[13761] = 36'o127200000002; // 032701 SSRAM[13762] = 36'o312200000003; // 032702 SSRAM[13763] = 36'o003200005322; // 032703 SSRAM[13764] = 36'o321400777773; // 032704 SSRAM[13765] = 36'o205100400000; // 032705 SSRAM[13766] = 36'o205140533400; // 032706 SSRAM[13767] = 36'o127200000002; // 032707 SSRAM[13768] = 36'o312200000003; // 032710 SSRAM[13769] = 36'o003200005401; // 032711 SSRAM[13770] = 36'o321400032705; // 032712 SSRAM[13771] = 36'o205100600000; // 032713 SSRAM[13772] = 36'o205140534400; // 032714 SSRAM[13773] = 36'o127200000002; // 032715 SSRAM[13774] = 36'o312200000003; // 032716 SSRAM[13775] = 36'o003200005402; // 032717 SSRAM[13776] = 36'o321400032713; // 032720 SSRAM[13777] = 36'o205100700000; // 032721 SSRAM[13778] = 36'o205140535400; // 032722 SSRAM[13779] = 36'o127200000002; // 032723 SSRAM[13780] = 36'o312200000003; // 032724 SSRAM[13781] = 36'o003200005403; // 032725 SSRAM[13782] = 36'o321400032721; // 032726 SSRAM[13783] = 36'o205100740000; // 032727 SSRAM[13784] = 36'o205140536400; // 032730 SSRAM[13785] = 36'o127200000002; // 032731 SSRAM[13786] = 36'o312200000003; // 032732 SSRAM[13787] = 36'o003200005404; // 032733 SSRAM[13788] = 36'o321400032727; // 032734 SSRAM[13789] = 36'o205100760000; // 032735 SSRAM[13790] = 36'o205140537400; // 032736 SSRAM[13791] = 36'o127200000002; // 032737 SSRAM[13792] = 36'o312200000003; // 032740 SSRAM[13793] = 36'o003200005405; // 032741 SSRAM[13794] = 36'o321400032735; // 032742 SSRAM[13795] = 36'o205100770000; // 032743 SSRAM[13796] = 36'o205140540400; // 032744 SSRAM[13797] = 36'o127200000002; // 032745 SSRAM[13798] = 36'o312200000003; // 032746 SSRAM[13799] = 36'o003200005406; // 032747 SSRAM[13800] = 36'o321400032743; // 032750 SSRAM[13801] = 36'o205100774000; // 032751 SSRAM[13802] = 36'o205140541400; // 032752 SSRAM[13803] = 36'o127200000002; // 032753 SSRAM[13804] = 36'o312200000003; // 032754 SSRAM[13805] = 36'o003200005407; // 032755 SSRAM[13806] = 36'o321400032751; // 032756 SSRAM[13807] = 36'o205100776000; // 032757 SSRAM[13808] = 36'o205140542400; // 032760 SSRAM[13809] = 36'o127200000002; // 032761 SSRAM[13810] = 36'o312200000003; // 032762 SSRAM[13811] = 36'o003200005410; // 032763 SSRAM[13812] = 36'o321400032757; // 032764 SSRAM[13813] = 36'o205100777000; // 032765 SSRAM[13814] = 36'o205140543400; // 032766 SSRAM[13815] = 36'o127200000002; // 032767 SSRAM[13816] = 36'o312200000003; // 032770 SSRAM[13817] = 36'o003200005411; // 032771 SSRAM[13818] = 36'o321400032765; // 032772 SSRAM[13819] = 36'o205100777400; // 032773 SSRAM[13820] = 36'o205140544400; // 032774 SSRAM[13821] = 36'o127200000002; // 032775 SSRAM[13822] = 36'o312200000003; // 032776 SSRAM[13823] = 36'o003200005412; // 032777 SSRAM[13824] = 36'o321400032773; // 033000 SSRAM[13825] = 36'o205100777600; // 033001 SSRAM[13826] = 36'o205140545400; // 033002 SSRAM[13827] = 36'o127200000002; // 033003 SSRAM[13828] = 36'o312200000003; // 033004 SSRAM[13829] = 36'o003200005413; // 033005 SSRAM[13830] = 36'o321400033001; // 033006 SSRAM[13831] = 36'o205100777700; // 033007 SSRAM[13832] = 36'o205140546400; // 033010 SSRAM[13833] = 36'o127200000002; // 033011 SSRAM[13834] = 36'o312200000003; // 033012 SSRAM[13835] = 36'o003200005414; // 033013 SSRAM[13836] = 36'o321400033007; // 033014 SSRAM[13837] = 36'o205100777740; // 033015 SSRAM[13838] = 36'o205140547400; // 033016 SSRAM[13839] = 36'o127200000002; // 033017 SSRAM[13840] = 36'o312200000003; // 033020 SSRAM[13841] = 36'o003200005415; // 033021 SSRAM[13842] = 36'o321400033015; // 033022 SSRAM[13843] = 36'o205100777760; // 033023 SSRAM[13844] = 36'o205140550400; // 033024 SSRAM[13845] = 36'o127200000002; // 033025 SSRAM[13846] = 36'o312200000003; // 033026 SSRAM[13847] = 36'o003200005416; // 033027 SSRAM[13848] = 36'o321400033023; // 033030 SSRAM[13849] = 36'o205100777770; // 033031 SSRAM[13850] = 36'o205140551400; // 033032 SSRAM[13851] = 36'o127200000002; // 033033 SSRAM[13852] = 36'o312200000003; // 033034 SSRAM[13853] = 36'o003200005417; // 033035 SSRAM[13854] = 36'o321400033031; // 033036 SSRAM[13855] = 36'o205100777774; // 033037 SSRAM[13856] = 36'o205140552400; // 033040 SSRAM[13857] = 36'o127200000002; // 033041 SSRAM[13858] = 36'o312200000003; // 033042 SSRAM[13859] = 36'o003200005420; // 033043 SSRAM[13860] = 36'o321400033037; // 033044 SSRAM[13861] = 36'o205100777776; // 033045 SSRAM[13862] = 36'o205140553400; // 033046 SSRAM[13863] = 36'o127200000002; // 033047 SSRAM[13864] = 36'o312200000003; // 033050 SSRAM[13865] = 36'o003200005421; // 033051 SSRAM[13866] = 36'o321400033045; // 033052 SSRAM[13867] = 36'o205100777777; // 033053 SSRAM[13868] = 36'o205140554400; // 033054 SSRAM[13869] = 36'o127200000002; // 033055 SSRAM[13870] = 36'o312200000003; // 033056 SSRAM[13871] = 36'o003200005422; // 033057 SSRAM[13872] = 36'o321400033053; // 033060 SSRAM[13873] = 36'o561100400000; // 033061 SSRAM[13874] = 36'o205140555400; // 033062 SSRAM[13875] = 36'o127200000002; // 033063 SSRAM[13876] = 36'o312200000003; // 033064 SSRAM[13877] = 36'o003200005501; // 033065 SSRAM[13878] = 36'o321400033061; // 033066 SSRAM[13879] = 36'o561100600000; // 033067 SSRAM[13880] = 36'o205140556400; // 033070 SSRAM[13881] = 36'o127200000002; // 033071 SSRAM[13882] = 36'o312200000003; // 033072 SSRAM[13883] = 36'o003200005502; // 033073 SSRAM[13884] = 36'o321400033067; // 033074 SSRAM[13885] = 36'o561100700000; // 033075 SSRAM[13886] = 36'o205140557400; // 033076 SSRAM[13887] = 36'o127200000002; // 033077 SSRAM[13888] = 36'o312200000003; // 033100 SSRAM[13889] = 36'o003200005503; // 033101 SSRAM[13890] = 36'o321400033075; // 033102 SSRAM[13891] = 36'o561100740000; // 033103 SSRAM[13892] = 36'o205140560400; // 033104 SSRAM[13893] = 36'o127200000002; // 033105 SSRAM[13894] = 36'o312200000003; // 033106 SSRAM[13895] = 36'o003200005504; // 033107 SSRAM[13896] = 36'o321400033103; // 033110 SSRAM[13897] = 36'o561100760000; // 033111 SSRAM[13898] = 36'o205140561400; // 033112 SSRAM[13899] = 36'o127200000002; // 033113 SSRAM[13900] = 36'o312200000003; // 033114 SSRAM[13901] = 36'o003200005505; // 033115 SSRAM[13902] = 36'o321400033111; // 033116 SSRAM[13903] = 36'o561100770000; // 033117 SSRAM[13904] = 36'o205140562400; // 033120 SSRAM[13905] = 36'o127200000002; // 033121 SSRAM[13906] = 36'o312200000003; // 033122 SSRAM[13907] = 36'o003200005506; // 033123 SSRAM[13908] = 36'o321400033117; // 033124 SSRAM[13909] = 36'o561100774000; // 033125 SSRAM[13910] = 36'o205140563400; // 033126 SSRAM[13911] = 36'o127200000002; // 033127 SSRAM[13912] = 36'o312200000003; // 033130 SSRAM[13913] = 36'o003200005507; // 033131 SSRAM[13914] = 36'o321400033125; // 033132 SSRAM[13915] = 36'o561100776000; // 033133 SSRAM[13916] = 36'o205140564400; // 033134 SSRAM[13917] = 36'o127200000002; // 033135 SSRAM[13918] = 36'o312200000003; // 033136 SSRAM[13919] = 36'o003200005510; // 033137 SSRAM[13920] = 36'o321400033133; // 033140 SSRAM[13921] = 36'o561100777000; // 033141 SSRAM[13922] = 36'o205140565400; // 033142 SSRAM[13923] = 36'o127200000002; // 033143 SSRAM[13924] = 36'o312200000003; // 033144 SSRAM[13925] = 36'o003200005511; // 033145 SSRAM[13926] = 36'o321400033141; // 033146 SSRAM[13927] = 36'o561100777400; // 033147 SSRAM[13928] = 36'o205140566400; // 033150 SSRAM[13929] = 36'o127200000002; // 033151 SSRAM[13930] = 36'o312200000003; // 033152 SSRAM[13931] = 36'o003200005512; // 033153 SSRAM[13932] = 36'o321400033147; // 033154 SSRAM[13933] = 36'o561100777600; // 033155 SSRAM[13934] = 36'o205140567400; // 033156 SSRAM[13935] = 36'o127200000002; // 033157 SSRAM[13936] = 36'o312200000003; // 033160 SSRAM[13937] = 36'o003200005513; // 033161 SSRAM[13938] = 36'o321400033155; // 033162 SSRAM[13939] = 36'o561100777700; // 033163 SSRAM[13940] = 36'o205140570400; // 033164 SSRAM[13941] = 36'o127200000002; // 033165 SSRAM[13942] = 36'o312200000003; // 033166 SSRAM[13943] = 36'o003200005514; // 033167 SSRAM[13944] = 36'o321400033163; // 033170 SSRAM[13945] = 36'o561100777740; // 033171 SSRAM[13946] = 36'o205140571400; // 033172 SSRAM[13947] = 36'o127200000002; // 033173 SSRAM[13948] = 36'o312200000003; // 033174 SSRAM[13949] = 36'o003200005515; // 033175 SSRAM[13950] = 36'o321400033171; // 033176 SSRAM[13951] = 36'o561100777760; // 033177 SSRAM[13952] = 36'o205140572400; // 033200 SSRAM[13953] = 36'o127200000002; // 033201 SSRAM[13954] = 36'o312200000003; // 033202 SSRAM[13955] = 36'o003200005516; // 033203 SSRAM[13956] = 36'o321400033177; // 033204 SSRAM[13957] = 36'o561100777770; // 033205 SSRAM[13958] = 36'o205140573400; // 033206 SSRAM[13959] = 36'o127200000002; // 033207 SSRAM[13960] = 36'o312200000003; // 033210 SSRAM[13961] = 36'o003200005517; // 033211 SSRAM[13962] = 36'o321400033205; // 033212 SSRAM[13963] = 36'o561100777774; // 033213 SSRAM[13964] = 36'o205140574400; // 033214 SSRAM[13965] = 36'o127200000002; // 033215 SSRAM[13966] = 36'o312200000003; // 033216 SSRAM[13967] = 36'o003200005520; // 033217 SSRAM[13968] = 36'o321400033213; // 033220 SSRAM[13969] = 36'o561100777776; // 033221 SSRAM[13970] = 36'o205140575400; // 033222 SSRAM[13971] = 36'o127200000002; // 033223 SSRAM[13972] = 36'o312200000003; // 033224 SSRAM[13973] = 36'o003200005521; // 033225 SSRAM[13974] = 36'o321400033221; // 033226 SSRAM[13975] = 36'o561100777777; // 033227 SSRAM[13976] = 36'o205140576400; // 033230 SSRAM[13977] = 36'o127200000002; // 033231 SSRAM[13978] = 36'o312200000003; // 033232 SSRAM[13979] = 36'o003200005522; // 033233 SSRAM[13980] = 36'o321400033227; // 033234 SSRAM[13981] = 36'o403100000003; // 033235 SSRAM[13982] = 36'o127200000002; // 033236 SSRAM[13983] = 36'o312200000003; // 033237 SSRAM[13984] = 36'o003200005601; // 033240 SSRAM[13985] = 36'o321400033235; // 033241 SSRAM[13986] = 36'o201100777400; // 033242 SSRAM[13987] = 36'o505100377777; // 033243 SSRAM[13988] = 36'o525140243777; // 033244 SSRAM[13989] = 36'o127200000002; // 033245 SSRAM[13990] = 36'o312200000003; // 033246 SSRAM[13991] = 36'o003200005701; // 033247 SSRAM[13992] = 36'o321400033242; // 033250 SSRAM[13993] = 36'o561100777000; // 033251 SSRAM[13994] = 36'o621100400000; // 033252 SSRAM[13995] = 36'o525140243777; // 033253 SSRAM[13996] = 36'o541140777776; // 033254 SSRAM[13997] = 36'o127200000002; // 033255 SSRAM[13998] = 36'o312200000003; // 033256 SSRAM[13999] = 36'o003200006001; // 033257 SSRAM[14000] = 36'o321400033251; // 033260 SSRAM[14001] = 36'o561100776400; // 033261 SSRAM[14002] = 36'o621100400000; // 033262 SSRAM[14003] = 36'o525140243777; // 033263 SSRAM[14004] = 36'o541140777775; // 033264 SSRAM[14005] = 36'o127200000002; // 033265 SSRAM[14006] = 36'o312200000003; // 033266 SSRAM[14007] = 36'o003200006002; // 033267 SSRAM[14008] = 36'o321400033261; // 033270 SSRAM[14009] = 36'o561100775400; // 033271 SSRAM[14010] = 36'o621100400000; // 033272 SSRAM[14011] = 36'o525140243777; // 033273 SSRAM[14012] = 36'o541140777773; // 033274 SSRAM[14013] = 36'o127200000002; // 033275 SSRAM[14014] = 36'o312200000003; // 033276 SSRAM[14015] = 36'o003200006003; // 033277 SSRAM[14016] = 36'o321400033271; // 033300 SSRAM[14017] = 36'o561100773400; // 033301 SSRAM[14018] = 36'o621100400000; // 033302 SSRAM[14019] = 36'o525140243777; // 033303 SSRAM[14020] = 36'o541140777767; // 033304 SSRAM[14021] = 36'o127200000002; // 033305 SSRAM[14022] = 36'o312200000003; // 033306 SSRAM[14023] = 36'o003200006004; // 033307 SSRAM[14024] = 36'o321400033301; // 033310 SSRAM[14025] = 36'o561100767400; // 033311 SSRAM[14026] = 36'o621100400000; // 033312 SSRAM[14027] = 36'o525140243777; // 033313 SSRAM[14028] = 36'o541140777757; // 033314 SSRAM[14029] = 36'o127200000002; // 033315 SSRAM[14030] = 36'o312200000003; // 033316 SSRAM[14031] = 36'o003200006005; // 033317 SSRAM[14032] = 36'o321400033311; // 033320 SSRAM[14033] = 36'o561100757400; // 033321 SSRAM[14034] = 36'o621100400000; // 033322 SSRAM[14035] = 36'o525140243777; // 033323 SSRAM[14036] = 36'o541140777737; // 033324 SSRAM[14037] = 36'o127200000002; // 033325 SSRAM[14038] = 36'o312200000003; // 033326 SSRAM[14039] = 36'o003200006006; // 033327 SSRAM[14040] = 36'o321400033321; // 033330 SSRAM[14041] = 36'o561100737400; // 033331 SSRAM[14042] = 36'o621100400000; // 033332 SSRAM[14043] = 36'o525140243777; // 033333 SSRAM[14044] = 36'o541140777677; // 033334 SSRAM[14045] = 36'o127200000002; // 033335 SSRAM[14046] = 36'o312200000003; // 033336 SSRAM[14047] = 36'o003200006007; // 033337 SSRAM[14048] = 36'o321400033331; // 033340 SSRAM[14049] = 36'o561100677400; // 033341 SSRAM[14050] = 36'o621100400000; // 033342 SSRAM[14051] = 36'o525140243777; // 033343 SSRAM[14052] = 36'o541140777577; // 033344 SSRAM[14053] = 36'o127200000002; // 033345 SSRAM[14054] = 36'o312200000003; // 033346 SSRAM[14055] = 36'o003200006010; // 033347 SSRAM[14056] = 36'o321400033341; // 033350 SSRAM[14057] = 36'o561100577400; // 033351 SSRAM[14058] = 36'o621100400000; // 033352 SSRAM[14059] = 36'o525140243777; // 033353 SSRAM[14060] = 36'o541140777377; // 033354 SSRAM[14061] = 36'o127200000002; // 033355 SSRAM[14062] = 36'o312200000003; // 033356 SSRAM[14063] = 36'o003200006011; // 033357 SSRAM[14064] = 36'o321400033351; // 033360 SSRAM[14065] = 36'o561100377400; // 033361 SSRAM[14066] = 36'o621100400000; // 033362 SSRAM[14067] = 36'o525140243777; // 033363 SSRAM[14068] = 36'o541140776777; // 033364 SSRAM[14069] = 36'o127200000002; // 033365 SSRAM[14070] = 36'o312200000003; // 033366 SSRAM[14071] = 36'o003200006012; // 033367 SSRAM[14072] = 36'o321400033361; // 033370 SSRAM[14073] = 36'o525100377776; // 033371 SSRAM[14074] = 36'o541100777400; // 033372 SSRAM[14075] = 36'o525140243777; // 033373 SSRAM[14076] = 36'o541140775777; // 033374 SSRAM[14077] = 36'o127200000002; // 033375 SSRAM[14078] = 36'o312200000003; // 033376 SSRAM[14079] = 36'o003200006101; // 033377 SSRAM[14080] = 36'o321400033371; // 033400 SSRAM[14081] = 36'o525100377775; // 033401 SSRAM[14082] = 36'o541100777400; // 033402 SSRAM[14083] = 36'o525140243777; // 033403 SSRAM[14084] = 36'o541140773777; // 033404 SSRAM[14085] = 36'o127200000002; // 033405 SSRAM[14086] = 36'o312200000003; // 033406 SSRAM[14087] = 36'o003200006102; // 033407 SSRAM[14088] = 36'o321400033401; // 033410 SSRAM[14089] = 36'o525100377773; // 033411 SSRAM[14090] = 36'o541100777400; // 033412 SSRAM[14091] = 36'o525140243777; // 033413 SSRAM[14092] = 36'o541140767777; // 033414 SSRAM[14093] = 36'o127200000002; // 033415 SSRAM[14094] = 36'o312200000003; // 033416 SSRAM[14095] = 36'o003200006103; // 033417 SSRAM[14096] = 36'o321400033411; // 033420 SSRAM[14097] = 36'o525100377767; // 033421 SSRAM[14098] = 36'o541100777400; // 033422 SSRAM[14099] = 36'o525140243777; // 033423 SSRAM[14100] = 36'o541140757777; // 033424 SSRAM[14101] = 36'o127200000002; // 033425 SSRAM[14102] = 36'o312200000003; // 033426 SSRAM[14103] = 36'o003200006104; // 033427 SSRAM[14104] = 36'o321400033421; // 033430 SSRAM[14105] = 36'o525100377757; // 033431 SSRAM[14106] = 36'o541100777400; // 033432 SSRAM[14107] = 36'o525140243777; // 033433 SSRAM[14108] = 36'o541140737777; // 033434 SSRAM[14109] = 36'o127200000002; // 033435 SSRAM[14110] = 36'o312200000003; // 033436 SSRAM[14111] = 36'o003200006105; // 033437 SSRAM[14112] = 36'o321400033431; // 033440 SSRAM[14113] = 36'o525100377737; // 033441 SSRAM[14114] = 36'o541100777400; // 033442 SSRAM[14115] = 36'o525140243777; // 033443 SSRAM[14116] = 36'o541140677777; // 033444 SSRAM[14117] = 36'o127200000002; // 033445 SSRAM[14118] = 36'o312200000003; // 033446 SSRAM[14119] = 36'o003200006106; // 033447 SSRAM[14120] = 36'o321400033441; // 033450 SSRAM[14121] = 36'o525100377677; // 033451 SSRAM[14122] = 36'o541100777400; // 033452 SSRAM[14123] = 36'o525140243777; // 033453 SSRAM[14124] = 36'o541140577777; // 033454 SSRAM[14125] = 36'o127200000002; // 033455 SSRAM[14126] = 36'o312200000003; // 033456 SSRAM[14127] = 36'o003200006107; // 033457 SSRAM[14128] = 36'o321400033451; // 033460 SSRAM[14129] = 36'o525100377577; // 033461 SSRAM[14130] = 36'o541100777400; // 033462 SSRAM[14131] = 36'o525140243777; // 033463 SSRAM[14132] = 36'o541140377777; // 033464 SSRAM[14133] = 36'o127200000002; // 033465 SSRAM[14134] = 36'o312200000003; // 033466 SSRAM[14135] = 36'o003200006110; // 033467 SSRAM[14136] = 36'o321400033461; // 033470 SSRAM[14137] = 36'o525100377377; // 033471 SSRAM[14138] = 36'o541100777400; // 033472 SSRAM[14139] = 36'o525140243776; // 033473 SSRAM[14140] = 36'o127200000002; // 033474 SSRAM[14141] = 36'o312200000003; // 033475 SSRAM[14142] = 36'o003200006201; // 033476 SSRAM[14143] = 36'o321400033471; // 033477 SSRAM[14144] = 36'o525100376777; // 033500 SSRAM[14145] = 36'o541100777400; // 033501 SSRAM[14146] = 36'o525140243775; // 033502 SSRAM[14147] = 36'o127200000002; // 033503 SSRAM[14148] = 36'o312200000003; // 033504 SSRAM[14149] = 36'o003200006202; // 033505 SSRAM[14150] = 36'o321400033500; // 033506 SSRAM[14151] = 36'o525100375777; // 033507 SSRAM[14152] = 36'o541100777400; // 033510 SSRAM[14153] = 36'o525140243773; // 033511 SSRAM[14154] = 36'o127200000002; // 033512 SSRAM[14155] = 36'o312200000003; // 033513 SSRAM[14156] = 36'o003200006203; // 033514 SSRAM[14157] = 36'o321400033507; // 033515 SSRAM[14158] = 36'o525100373777; // 033516 SSRAM[14159] = 36'o541100777400; // 033517 SSRAM[14160] = 36'o525140243767; // 033520 SSRAM[14161] = 36'o127200000002; // 033521 SSRAM[14162] = 36'o312200000003; // 033522 SSRAM[14163] = 36'o003200006204; // 033523 SSRAM[14164] = 36'o321400033516; // 033524 SSRAM[14165] = 36'o525100367777; // 033525 SSRAM[14166] = 36'o541100777400; // 033526 SSRAM[14167] = 36'o525140243757; // 033527 SSRAM[14168] = 36'o127200000002; // 033530 SSRAM[14169] = 36'o312200000003; // 033531 SSRAM[14170] = 36'o003200006205; // 033532 SSRAM[14171] = 36'o321400033525; // 033533 SSRAM[14172] = 36'o525100357777; // 033534 SSRAM[14173] = 36'o541100777400; // 033535 SSRAM[14174] = 36'o525140243737; // 033536 SSRAM[14175] = 36'o127200000002; // 033537 SSRAM[14176] = 36'o312200000003; // 033540 SSRAM[14177] = 36'o003200006206; // 033541 SSRAM[14178] = 36'o321400033534; // 033542 SSRAM[14179] = 36'o525100337777; // 033543 SSRAM[14180] = 36'o541100777400; // 033544 SSRAM[14181] = 36'o525140243677; // 033545 SSRAM[14182] = 36'o127200000002; // 033546 SSRAM[14183] = 36'o312200000003; // 033547 SSRAM[14184] = 36'o003200006207; // 033550 SSRAM[14185] = 36'o321400033543; // 033551 SSRAM[14186] = 36'o525100277777; // 033552 SSRAM[14187] = 36'o541100777400; // 033553 SSRAM[14188] = 36'o525140243577; // 033554 SSRAM[14189] = 36'o127200000002; // 033555 SSRAM[14190] = 36'o312200000003; // 033556 SSRAM[14191] = 36'o003200006210; // 033557 SSRAM[14192] = 36'o321400033552; // 033560 SSRAM[14193] = 36'o205100200000; // 033561 SSRAM[14194] = 36'o541100000400; // 033562 SSRAM[14195] = 36'o205140243400; // 033563 SSRAM[14196] = 36'o541140000001; // 033564 SSRAM[14197] = 36'o127200000002; // 033565 SSRAM[14198] = 36'o312200000003; // 033566 SSRAM[14199] = 36'o003200006301; // 033567 SSRAM[14200] = 36'o321400033561; // 033570 SSRAM[14201] = 36'o205100200000; // 033571 SSRAM[14202] = 36'o541100001000; // 033572 SSRAM[14203] = 36'o205140243400; // 033573 SSRAM[14204] = 36'o541140000002; // 033574 SSRAM[14205] = 36'o127200000002; // 033575 SSRAM[14206] = 36'o312200000003; // 033576 SSRAM[14207] = 36'o003200006302; // 033577 SSRAM[14208] = 36'o321400033571; // 033600 SSRAM[14209] = 36'o205100200000; // 033601 SSRAM[14210] = 36'o541100002000; // 033602 SSRAM[14211] = 36'o205140243400; // 033603 SSRAM[14212] = 36'o541140000004; // 033604 SSRAM[14213] = 36'o127200000002; // 033605 SSRAM[14214] = 36'o312200000003; // 033606 SSRAM[14215] = 36'o003200006303; // 033607 SSRAM[14216] = 36'o321400033601; // 033610 SSRAM[14217] = 36'o205100200000; // 033611 SSRAM[14218] = 36'o541100004000; // 033612 SSRAM[14219] = 36'o205140243400; // 033613 SSRAM[14220] = 36'o541140000010; // 033614 SSRAM[14221] = 36'o127200000002; // 033615 SSRAM[14222] = 36'o312200000003; // 033616 SSRAM[14223] = 36'o003200006304; // 033617 SSRAM[14224] = 36'o321400033611; // 033620 SSRAM[14225] = 36'o205100200000; // 033621 SSRAM[14226] = 36'o541100010000; // 033622 SSRAM[14227] = 36'o205140243400; // 033623 SSRAM[14228] = 36'o541140000020; // 033624 SSRAM[14229] = 36'o127200000002; // 033625 SSRAM[14230] = 36'o312200000003; // 033626 SSRAM[14231] = 36'o003200006305; // 033627 SSRAM[14232] = 36'o321400033621; // 033630 SSRAM[14233] = 36'o205100200000; // 033631 SSRAM[14234] = 36'o541100020000; // 033632 SSRAM[14235] = 36'o205140243400; // 033633 SSRAM[14236] = 36'o541140000040; // 033634 SSRAM[14237] = 36'o127200000002; // 033635 SSRAM[14238] = 36'o312200000003; // 033636 SSRAM[14239] = 36'o003200006306; // 033637 SSRAM[14240] = 36'o321400033631; // 033640 SSRAM[14241] = 36'o205100200000; // 033641 SSRAM[14242] = 36'o541100040000; // 033642 SSRAM[14243] = 36'o205140243400; // 033643 SSRAM[14244] = 36'o541140000100; // 033644 SSRAM[14245] = 36'o127200000002; // 033645 SSRAM[14246] = 36'o312200000003; // 033646 SSRAM[14247] = 36'o003200006307; // 033647 SSRAM[14248] = 36'o321400033641; // 033650 SSRAM[14249] = 36'o205100200000; // 033651 SSRAM[14250] = 36'o541100100000; // 033652 SSRAM[14251] = 36'o205140243400; // 033653 SSRAM[14252] = 36'o541140000200; // 033654 SSRAM[14253] = 36'o127200000002; // 033655 SSRAM[14254] = 36'o312200000003; // 033656 SSRAM[14255] = 36'o003200006310; // 033657 SSRAM[14256] = 36'o321400033651; // 033660 SSRAM[14257] = 36'o205100200000; // 033661 SSRAM[14258] = 36'o541100200000; // 033662 SSRAM[14259] = 36'o205140243400; // 033663 SSRAM[14260] = 36'o541140000400; // 033664 SSRAM[14261] = 36'o127200000002; // 033665 SSRAM[14262] = 36'o312200000003; // 033666 SSRAM[14263] = 36'o003200006311; // 033667 SSRAM[14264] = 36'o321400033661; // 033670 SSRAM[14265] = 36'o205100200000; // 033671 SSRAM[14266] = 36'o541100400000; // 033672 SSRAM[14267] = 36'o205140243400; // 033673 SSRAM[14268] = 36'o541140001000; // 033674 SSRAM[14269] = 36'o127200000002; // 033675 SSRAM[14270] = 36'o312200000003; // 033676 SSRAM[14271] = 36'o003200006312; // 033677 SSRAM[14272] = 36'o321400033671; // 033700 SSRAM[14273] = 36'o205100200001; // 033701 SSRAM[14274] = 36'o205140243400; // 033702 SSRAM[14275] = 36'o541140002000; // 033703 SSRAM[14276] = 36'o127200000002; // 033704 SSRAM[14277] = 36'o312200000003; // 033705 SSRAM[14278] = 36'o003200006401; // 033706 SSRAM[14279] = 36'o321400033701; // 033707 SSRAM[14280] = 36'o205100200002; // 033710 SSRAM[14281] = 36'o205140243400; // 033711 SSRAM[14282] = 36'o541140004000; // 033712 SSRAM[14283] = 36'o127200000002; // 033713 SSRAM[14284] = 36'o312200000003; // 033714 SSRAM[14285] = 36'o003200006402; // 033715 SSRAM[14286] = 36'o321400033710; // 033716 SSRAM[14287] = 36'o205100200004; // 033717 SSRAM[14288] = 36'o205140243400; // 033720 SSRAM[14289] = 36'o541140010000; // 033721 SSRAM[14290] = 36'o127200000002; // 033722 SSRAM[14291] = 36'o312200000003; // 033723 SSRAM[14292] = 36'o003200006403; // 033724 SSRAM[14293] = 36'o321400033717; // 033725 SSRAM[14294] = 36'o205100200010; // 033726 SSRAM[14295] = 36'o205140243400; // 033727 SSRAM[14296] = 36'o541140020000; // 033730 SSRAM[14297] = 36'o127200000002; // 033731 SSRAM[14298] = 36'o312200000003; // 033732 SSRAM[14299] = 36'o003200006404; // 033733 SSRAM[14300] = 36'o321400033726; // 033734 SSRAM[14301] = 36'o205100200020; // 033735 SSRAM[14302] = 36'o205140243400; // 033736 SSRAM[14303] = 36'o541140040000; // 033737 SSRAM[14304] = 36'o127200000002; // 033740 SSRAM[14305] = 36'o312200000003; // 033741 SSRAM[14306] = 36'o003200006405; // 033742 SSRAM[14307] = 36'o321400033735; // 033743 SSRAM[14308] = 36'o205100200040; // 033744 SSRAM[14309] = 36'o205140243400; // 033745 SSRAM[14310] = 36'o541140100000; // 033746 SSRAM[14311] = 36'o127200000002; // 033747 SSRAM[14312] = 36'o312200000003; // 033750 SSRAM[14313] = 36'o003200006406; // 033751 SSRAM[14314] = 36'o321400033744; // 033752 SSRAM[14315] = 36'o205100200100; // 033753 SSRAM[14316] = 36'o205140243400; // 033754 SSRAM[14317] = 36'o541140200000; // 033755 SSRAM[14318] = 36'o127200000002; // 033756 SSRAM[14319] = 36'o312200000003; // 033757 SSRAM[14320] = 36'o003200006407; // 033760 SSRAM[14321] = 36'o321400033753; // 033761 SSRAM[14322] = 36'o205100200200; // 033762 SSRAM[14323] = 36'o205140243400; // 033763 SSRAM[14324] = 36'o541140400000; // 033764 SSRAM[14325] = 36'o127200000002; // 033765 SSRAM[14326] = 36'o312200000003; // 033766 SSRAM[14327] = 36'o003200006410; // 033767 SSRAM[14328] = 36'o321400033762; // 033770 SSRAM[14329] = 36'o205100200400; // 033771 SSRAM[14330] = 36'o205140243401; // 033772 SSRAM[14331] = 36'o127200000002; // 033773 SSRAM[14332] = 36'o312200000003; // 033774 SSRAM[14333] = 36'o003200006501; // 033775 SSRAM[14334] = 36'o321400033771; // 033776 SSRAM[14335] = 36'o205100201000; // 033777 SSRAM[14336] = 36'o205140243402; // 034000 SSRAM[14337] = 36'o127200000002; // 034001 SSRAM[14338] = 36'o312200000003; // 034002 SSRAM[14339] = 36'o003200006502; // 034003 SSRAM[14340] = 36'o321400033777; // 034004 SSRAM[14341] = 36'o205100202000; // 034005 SSRAM[14342] = 36'o205140243404; // 034006 SSRAM[14343] = 36'o127200000002; // 034007 SSRAM[14344] = 36'o312200000003; // 034010 SSRAM[14345] = 36'o003200006503; // 034011 SSRAM[14346] = 36'o321400034005; // 034012 SSRAM[14347] = 36'o205100204000; // 034013 SSRAM[14348] = 36'o205140243410; // 034014 SSRAM[14349] = 36'o127200000002; // 034015 SSRAM[14350] = 36'o312200000003; // 034016 SSRAM[14351] = 36'o003200006504; // 034017 SSRAM[14352] = 36'o321400034013; // 034020 SSRAM[14353] = 36'o205100210000; // 034021 SSRAM[14354] = 36'o205140243420; // 034022 SSRAM[14355] = 36'o127200000002; // 034023 SSRAM[14356] = 36'o312200000003; // 034024 SSRAM[14357] = 36'o003200006505; // 034025 SSRAM[14358] = 36'o321400034021; // 034026 SSRAM[14359] = 36'o205100220000; // 034027 SSRAM[14360] = 36'o205140243440; // 034030 SSRAM[14361] = 36'o127200000002; // 034031 SSRAM[14362] = 36'o312200000003; // 034032 SSRAM[14363] = 36'o003200006506; // 034033 SSRAM[14364] = 36'o321400034027; // 034034 SSRAM[14365] = 36'o205100240000; // 034035 SSRAM[14366] = 36'o205140243500; // 034036 SSRAM[14367] = 36'o127200000002; // 034037 SSRAM[14368] = 36'o312200000003; // 034040 SSRAM[14369] = 36'o003200006507; // 034041 SSRAM[14370] = 36'o321400034035; // 034042 SSRAM[14371] = 36'o205100300000; // 034043 SSRAM[14372] = 36'o205140243600; // 034044 SSRAM[14373] = 36'o127200000002; // 034045 SSRAM[14374] = 36'o312200000003; // 034046 SSRAM[14375] = 36'o003200006510; // 034047 SSRAM[14376] = 36'o321400034043; // 034050 SSRAM[14377] = 36'o205100400000; // 034051 SSRAM[14378] = 36'o541100000400; // 034052 SSRAM[14379] = 36'o205140534000; // 034053 SSRAM[14380] = 36'o541140000001; // 034054 SSRAM[14381] = 36'o127200000002; // 034055 SSRAM[14382] = 36'o312200000003; // 034056 SSRAM[14383] = 36'o003200006601; // 034057 SSRAM[14384] = 36'o321400034051; // 034060 SSRAM[14385] = 36'o205100400000; // 034061 SSRAM[14386] = 36'o541100001000; // 034062 SSRAM[14387] = 36'o205140534000; // 034063 SSRAM[14388] = 36'o541140000002; // 034064 SSRAM[14389] = 36'o127200000002; // 034065 SSRAM[14390] = 36'o312200000003; // 034066 SSRAM[14391] = 36'o003200006602; // 034067 SSRAM[14392] = 36'o321400034061; // 034070 SSRAM[14393] = 36'o205100400000; // 034071 SSRAM[14394] = 36'o541100002000; // 034072 SSRAM[14395] = 36'o205140534000; // 034073 SSRAM[14396] = 36'o541140000004; // 034074 SSRAM[14397] = 36'o127200000002; // 034075 SSRAM[14398] = 36'o312200000003; // 034076 SSRAM[14399] = 36'o003200006603; // 034077 SSRAM[14400] = 36'o321400034071; // 034100 SSRAM[14401] = 36'o205100400000; // 034101 SSRAM[14402] = 36'o541100004000; // 034102 SSRAM[14403] = 36'o205140534000; // 034103 SSRAM[14404] = 36'o541140000010; // 034104 SSRAM[14405] = 36'o127200000002; // 034105 SSRAM[14406] = 36'o312200000003; // 034106 SSRAM[14407] = 36'o003200006604; // 034107 SSRAM[14408] = 36'o321400034101; // 034110 SSRAM[14409] = 36'o205100400000; // 034111 SSRAM[14410] = 36'o541100010000; // 034112 SSRAM[14411] = 36'o205140534000; // 034113 SSRAM[14412] = 36'o541140000020; // 034114 SSRAM[14413] = 36'o127200000002; // 034115 SSRAM[14414] = 36'o312200000003; // 034116 SSRAM[14415] = 36'o003200006605; // 034117 SSRAM[14416] = 36'o321400034111; // 034120 SSRAM[14417] = 36'o205100400000; // 034121 SSRAM[14418] = 36'o541100020000; // 034122 SSRAM[14419] = 36'o205140534000; // 034123 SSRAM[14420] = 36'o541140000040; // 034124 SSRAM[14421] = 36'o127200000002; // 034125 SSRAM[14422] = 36'o312200000003; // 034126 SSRAM[14423] = 36'o003200006606; // 034127 SSRAM[14424] = 36'o321400034121; // 034130 SSRAM[14425] = 36'o205100400000; // 034131 SSRAM[14426] = 36'o541100040000; // 034132 SSRAM[14427] = 36'o205140534000; // 034133 SSRAM[14428] = 36'o541140000100; // 034134 SSRAM[14429] = 36'o127200000002; // 034135 SSRAM[14430] = 36'o312200000003; // 034136 SSRAM[14431] = 36'o003200006607; // 034137 SSRAM[14432] = 36'o321400034131; // 034140 SSRAM[14433] = 36'o205100400000; // 034141 SSRAM[14434] = 36'o541100100000; // 034142 SSRAM[14435] = 36'o205140534000; // 034143 SSRAM[14436] = 36'o541140000200; // 034144 SSRAM[14437] = 36'o127200000002; // 034145 SSRAM[14438] = 36'o312200000003; // 034146 SSRAM[14439] = 36'o003200006610; // 034147 SSRAM[14440] = 36'o321400034141; // 034150 SSRAM[14441] = 36'o205100400000; // 034151 SSRAM[14442] = 36'o541100200000; // 034152 SSRAM[14443] = 36'o205140534000; // 034153 SSRAM[14444] = 36'o541140000400; // 034154 SSRAM[14445] = 36'o127200000002; // 034155 SSRAM[14446] = 36'o312200000003; // 034156 SSRAM[14447] = 36'o003200006611; // 034157 SSRAM[14448] = 36'o321400034151; // 034160 SSRAM[14449] = 36'o205100400000; // 034161 SSRAM[14450] = 36'o541100400000; // 034162 SSRAM[14451] = 36'o205140534000; // 034163 SSRAM[14452] = 36'o541140001000; // 034164 SSRAM[14453] = 36'o127200000002; // 034165 SSRAM[14454] = 36'o312200000003; // 034166 SSRAM[14455] = 36'o003200006612; // 034167 SSRAM[14456] = 36'o321400034161; // 034170 SSRAM[14457] = 36'o205100400001; // 034171 SSRAM[14458] = 36'o205140534000; // 034172 SSRAM[14459] = 36'o541140002000; // 034173 SSRAM[14460] = 36'o127200000002; // 034174 SSRAM[14461] = 36'o312200000003; // 034175 SSRAM[14462] = 36'o003200006701; // 034176 SSRAM[14463] = 36'o321400034171; // 034177 SSRAM[14464] = 36'o205100400002; // 034200 SSRAM[14465] = 36'o205140534000; // 034201 SSRAM[14466] = 36'o541140004000; // 034202 SSRAM[14467] = 36'o127200000002; // 034203 SSRAM[14468] = 36'o312200000003; // 034204 SSRAM[14469] = 36'o003200006702; // 034205 SSRAM[14470] = 36'o321400034200; // 034206 SSRAM[14471] = 36'o205100400004; // 034207 SSRAM[14472] = 36'o205140534000; // 034210 SSRAM[14473] = 36'o541140010000; // 034211 SSRAM[14474] = 36'o127200000002; // 034212 SSRAM[14475] = 36'o312200000003; // 034213 SSRAM[14476] = 36'o003200006703; // 034214 SSRAM[14477] = 36'o321400034207; // 034215 SSRAM[14478] = 36'o205100400010; // 034216 SSRAM[14479] = 36'o205140534000; // 034217 SSRAM[14480] = 36'o541140020000; // 034220 SSRAM[14481] = 36'o127200000002; // 034221 SSRAM[14482] = 36'o312200000003; // 034222 SSRAM[14483] = 36'o003200006704; // 034223 SSRAM[14484] = 36'o321400034216; // 034224 SSRAM[14485] = 36'o205100400020; // 034225 SSRAM[14486] = 36'o205140534000; // 034226 SSRAM[14487] = 36'o541140040000; // 034227 SSRAM[14488] = 36'o127200000002; // 034230 SSRAM[14489] = 36'o312200000003; // 034231 SSRAM[14490] = 36'o003200006705; // 034232 SSRAM[14491] = 36'o321400034225; // 034233 SSRAM[14492] = 36'o205100400040; // 034234 SSRAM[14493] = 36'o205140534000; // 034235 SSRAM[14494] = 36'o541140100000; // 034236 SSRAM[14495] = 36'o127200000002; // 034237 SSRAM[14496] = 36'o312200000003; // 034240 SSRAM[14497] = 36'o003200006706; // 034241 SSRAM[14498] = 36'o321400034234; // 034242 SSRAM[14499] = 36'o205100400100; // 034243 SSRAM[14500] = 36'o205140534000; // 034244 SSRAM[14501] = 36'o541140200000; // 034245 SSRAM[14502] = 36'o127200000002; // 034246 SSRAM[14503] = 36'o312200000003; // 034247 SSRAM[14504] = 36'o003200006707; // 034250 SSRAM[14505] = 36'o321400034243; // 034251 SSRAM[14506] = 36'o205100400200; // 034252 SSRAM[14507] = 36'o205140534000; // 034253 SSRAM[14508] = 36'o541140400000; // 034254 SSRAM[14509] = 36'o127200000002; // 034255 SSRAM[14510] = 36'o312200000003; // 034256 SSRAM[14511] = 36'o003200006710; // 034257 SSRAM[14512] = 36'o321400034252; // 034260 SSRAM[14513] = 36'o205100400400; // 034261 SSRAM[14514] = 36'o205140534001; // 034262 SSRAM[14515] = 36'o127200000002; // 034263 SSRAM[14516] = 36'o312200000003; // 034264 SSRAM[14517] = 36'o003200007001; // 034265 SSRAM[14518] = 36'o321400034261; // 034266 SSRAM[14519] = 36'o205100401000; // 034267 SSRAM[14520] = 36'o205140534002; // 034270 SSRAM[14521] = 36'o127200000002; // 034271 SSRAM[14522] = 36'o312200000003; // 034272 SSRAM[14523] = 36'o003200007002; // 034273 SSRAM[14524] = 36'o321400034267; // 034274 SSRAM[14525] = 36'o205100402000; // 034275 SSRAM[14526] = 36'o205140534004; // 034276 SSRAM[14527] = 36'o127200000002; // 034277 SSRAM[14528] = 36'o312200000003; // 034300 SSRAM[14529] = 36'o003200007003; // 034301 SSRAM[14530] = 36'o321400034275; // 034302 SSRAM[14531] = 36'o205100404000; // 034303 SSRAM[14532] = 36'o205140534010; // 034304 SSRAM[14533] = 36'o127200000002; // 034305 SSRAM[14534] = 36'o312200000003; // 034306 SSRAM[14535] = 36'o003200007004; // 034307 SSRAM[14536] = 36'o321400034303; // 034310 SSRAM[14537] = 36'o205100410000; // 034311 SSRAM[14538] = 36'o205140534020; // 034312 SSRAM[14539] = 36'o127200000002; // 034313 SSRAM[14540] = 36'o312200000003; // 034314 SSRAM[14541] = 36'o003200007005; // 034315 SSRAM[14542] = 36'o321400034311; // 034316 SSRAM[14543] = 36'o205100420000; // 034317 SSRAM[14544] = 36'o205140534040; // 034320 SSRAM[14545] = 36'o127200000002; // 034321 SSRAM[14546] = 36'o312200000003; // 034322 SSRAM[14547] = 36'o003200007006; // 034323 SSRAM[14548] = 36'o321400034317; // 034324 SSRAM[14549] = 36'o205100440000; // 034325 SSRAM[14550] = 36'o205140534100; // 034326 SSRAM[14551] = 36'o127200000002; // 034327 SSRAM[14552] = 36'o312200000003; // 034330 SSRAM[14553] = 36'o003200007007; // 034331 SSRAM[14554] = 36'o321400034325; // 034332 SSRAM[14555] = 36'o205100500000; // 034333 SSRAM[14556] = 36'o205140534200; // 034334 SSRAM[14557] = 36'o127200000002; // 034335 SSRAM[14558] = 36'o312200000003; // 034336 SSRAM[14559] = 36'o003200007010; // 034337 SSRAM[14560] = 36'o321400034333; // 034340 SSRAM[14561] = 36'o205100577777; // 034341 SSRAM[14562] = 36'o541100777400; // 034342 SSRAM[14563] = 36'o525140534377; // 034343 SSRAM[14564] = 36'o127200000002; // 034344 SSRAM[14565] = 36'o312200000003; // 034345 SSRAM[14566] = 36'o003200007101; // 034346 SSRAM[14567] = 36'o321400034341; // 034347 SSRAM[14568] = 36'o205100577777; // 034350 SSRAM[14569] = 36'o541100777000; // 034351 SSRAM[14570] = 36'o205140534377; // 034352 SSRAM[14571] = 36'o541140777776; // 034353 SSRAM[14572] = 36'o127200000002; // 034354 SSRAM[14573] = 36'o312200000003; // 034355 SSRAM[14574] = 36'o003200007201; // 034356 SSRAM[14575] = 36'o321400034350; // 034357 SSRAM[14576] = 36'o205100577777; // 034360 SSRAM[14577] = 36'o541100776400; // 034361 SSRAM[14578] = 36'o205140534377; // 034362 SSRAM[14579] = 36'o541140777775; // 034363 SSRAM[14580] = 36'o127200000002; // 034364 SSRAM[14581] = 36'o312200000003; // 034365 SSRAM[14582] = 36'o003200007202; // 034366 SSRAM[14583] = 36'o321400034360; // 034367 SSRAM[14584] = 36'o205100577777; // 034370 SSRAM[14585] = 36'o541100775400; // 034371 SSRAM[14586] = 36'o205140534377; // 034372 SSRAM[14587] = 36'o541140777773; // 034373 SSRAM[14588] = 36'o127200000002; // 034374 SSRAM[14589] = 36'o312200000003; // 034375 SSRAM[14590] = 36'o003200007203; // 034376 SSRAM[14591] = 36'o321400034370; // 034377 SSRAM[14592] = 36'o205100577777; // 034400 SSRAM[14593] = 36'o541100773400; // 034401 SSRAM[14594] = 36'o205140534377; // 034402 SSRAM[14595] = 36'o541140777767; // 034403 SSRAM[14596] = 36'o127200000002; // 034404 SSRAM[14597] = 36'o312200000003; // 034405 SSRAM[14598] = 36'o003200007204; // 034406 SSRAM[14599] = 36'o321400034400; // 034407 SSRAM[14600] = 36'o205100577777; // 034410 SSRAM[14601] = 36'o541100767400; // 034411 SSRAM[14602] = 36'o205140534377; // 034412 SSRAM[14603] = 36'o541140777757; // 034413 SSRAM[14604] = 36'o127200000002; // 034414 SSRAM[14605] = 36'o312200000003; // 034415 SSRAM[14606] = 36'o003200007205; // 034416 SSRAM[14607] = 36'o321400034410; // 034417 SSRAM[14608] = 36'o205100577777; // 034420 SSRAM[14609] = 36'o541100757400; // 034421 SSRAM[14610] = 36'o205140534377; // 034422 SSRAM[14611] = 36'o541140777737; // 034423 SSRAM[14612] = 36'o127200000002; // 034424 SSRAM[14613] = 36'o312200000003; // 034425 SSRAM[14614] = 36'o003200007206; // 034426 SSRAM[14615] = 36'o321400034420; // 034427 SSRAM[14616] = 36'o205100577777; // 034430 SSRAM[14617] = 36'o541100737400; // 034431 SSRAM[14618] = 36'o205140534377; // 034432 SSRAM[14619] = 36'o541140777677; // 034433 SSRAM[14620] = 36'o127200000002; // 034434 SSRAM[14621] = 36'o312200000003; // 034435 SSRAM[14622] = 36'o003200007207; // 034436 SSRAM[14623] = 36'o321400034430; // 034437 SSRAM[14624] = 36'o205100577777; // 034440 SSRAM[14625] = 36'o541100677400; // 034441 SSRAM[14626] = 36'o205140534377; // 034442 SSRAM[14627] = 36'o541140777577; // 034443 SSRAM[14628] = 36'o127200000002; // 034444 SSRAM[14629] = 36'o312200000003; // 034445 SSRAM[14630] = 36'o003200007210; // 034446 SSRAM[14631] = 36'o321400034440; // 034447 SSRAM[14632] = 36'o205100577777; // 034450 SSRAM[14633] = 36'o541100577400; // 034451 SSRAM[14634] = 36'o205140534377; // 034452 SSRAM[14635] = 36'o541140777377; // 034453 SSRAM[14636] = 36'o127200000002; // 034454 SSRAM[14637] = 36'o312200000003; // 034455 SSRAM[14638] = 36'o003200007211; // 034456 SSRAM[14639] = 36'o321400034450; // 034457 SSRAM[14640] = 36'o205100577777; // 034460 SSRAM[14641] = 36'o541100377400; // 034461 SSRAM[14642] = 36'o205140534377; // 034462 SSRAM[14643] = 36'o541140776777; // 034463 SSRAM[14644] = 36'o127200000002; // 034464 SSRAM[14645] = 36'o312200000003; // 034465 SSRAM[14646] = 36'o003200007212; // 034466 SSRAM[14647] = 36'o321400034460; // 034467 SSRAM[14648] = 36'o205100577776; // 034470 SSRAM[14649] = 36'o541100777400; // 034471 SSRAM[14650] = 36'o205140534377; // 034472 SSRAM[14651] = 36'o541140775777; // 034473 SSRAM[14652] = 36'o127200000002; // 034474 SSRAM[14653] = 36'o312200000003; // 034475 SSRAM[14654] = 36'o003200007301; // 034476 SSRAM[14655] = 36'o321400034470; // 034477 SSRAM[14656] = 36'o205100577775; // 034500 SSRAM[14657] = 36'o541100777400; // 034501 SSRAM[14658] = 36'o205140534377; // 034502 SSRAM[14659] = 36'o541140773777; // 034503 SSRAM[14660] = 36'o127200000002; // 034504 SSRAM[14661] = 36'o312200000003; // 034505 SSRAM[14662] = 36'o003200007302; // 034506 SSRAM[14663] = 36'o321400034500; // 034507 SSRAM[14664] = 36'o205100577773; // 034510 SSRAM[14665] = 36'o541100777400; // 034511 SSRAM[14666] = 36'o205140534377; // 034512 SSRAM[14667] = 36'o541140767777; // 034513 SSRAM[14668] = 36'o127200000002; // 034514 SSRAM[14669] = 36'o312200000003; // 034515 SSRAM[14670] = 36'o003200007303; // 034516 SSRAM[14671] = 36'o321400034510; // 034517 SSRAM[14672] = 36'o205100577767; // 034520 SSRAM[14673] = 36'o541100777400; // 034521 SSRAM[14674] = 36'o205140534377; // 034522 SSRAM[14675] = 36'o541140757777; // 034523 SSRAM[14676] = 36'o127200000002; // 034524 SSRAM[14677] = 36'o312200000003; // 034525 SSRAM[14678] = 36'o003200007304; // 034526 SSRAM[14679] = 36'o321400034520; // 034527 SSRAM[14680] = 36'o205100577757; // 034530 SSRAM[14681] = 36'o541100777400; // 034531 SSRAM[14682] = 36'o205140534377; // 034532 SSRAM[14683] = 36'o541140737777; // 034533 SSRAM[14684] = 36'o127200000002; // 034534 SSRAM[14685] = 36'o312200000003; // 034535 SSRAM[14686] = 36'o003200007305; // 034536 SSRAM[14687] = 36'o321400034530; // 034537 SSRAM[14688] = 36'o205100577737; // 034540 SSRAM[14689] = 36'o541100777400; // 034541 SSRAM[14690] = 36'o205140534377; // 034542 SSRAM[14691] = 36'o541140677777; // 034543 SSRAM[14692] = 36'o127200000002; // 034544 SSRAM[14693] = 36'o312200000003; // 034545 SSRAM[14694] = 36'o003200007306; // 034546 SSRAM[14695] = 36'o321400034540; // 034547 SSRAM[14696] = 36'o205100577677; // 034550 SSRAM[14697] = 36'o541100777400; // 034551 SSRAM[14698] = 36'o205140534377; // 034552 SSRAM[14699] = 36'o541140577777; // 034553 SSRAM[14700] = 36'o127200000002; // 034554 SSRAM[14701] = 36'o312200000003; // 034555 SSRAM[14702] = 36'o003200007307; // 034556 SSRAM[14703] = 36'o321400034550; // 034557 SSRAM[14704] = 36'o205100577577; // 034560 SSRAM[14705] = 36'o541100777400; // 034561 SSRAM[14706] = 36'o205140534377; // 034562 SSRAM[14707] = 36'o541140377777; // 034563 SSRAM[14708] = 36'o127200000002; // 034564 SSRAM[14709] = 36'o312200000003; // 034565 SSRAM[14710] = 36'o003200007310; // 034566 SSRAM[14711] = 36'o321400034560; // 034567 SSRAM[14712] = 36'o205100577377; // 034570 SSRAM[14713] = 36'o541100777400; // 034571 SSRAM[14714] = 36'o525140534376; // 034572 SSRAM[14715] = 36'o127200000002; // 034573 SSRAM[14716] = 36'o312200000003; // 034574 SSRAM[14717] = 36'o003200007401; // 034575 SSRAM[14718] = 36'o321400034570; // 034576 SSRAM[14719] = 36'o205100576777; // 034577 SSRAM[14720] = 36'o541100777400; // 034600 SSRAM[14721] = 36'o525140534375; // 034601 SSRAM[14722] = 36'o127200000002; // 034602 SSRAM[14723] = 36'o312200000003; // 034603 SSRAM[14724] = 36'o003200007402; // 034604 SSRAM[14725] = 36'o321400034577; // 034605 SSRAM[14726] = 36'o205100575777; // 034606 SSRAM[14727] = 36'o541100777400; // 034607 SSRAM[14728] = 36'o525140534373; // 034610 SSRAM[14729] = 36'o127200000002; // 034611 SSRAM[14730] = 36'o312200000003; // 034612 SSRAM[14731] = 36'o003200007403; // 034613 SSRAM[14732] = 36'o321400034606; // 034614 SSRAM[14733] = 36'o205100573777; // 034615 SSRAM[14734] = 36'o541100777400; // 034616 SSRAM[14735] = 36'o525140534367; // 034617 SSRAM[14736] = 36'o127200000002; // 034620 SSRAM[14737] = 36'o312200000003; // 034621 SSRAM[14738] = 36'o003200007404; // 034622 SSRAM[14739] = 36'o321400034615; // 034623 SSRAM[14740] = 36'o205100567777; // 034624 SSRAM[14741] = 36'o541100777400; // 034625 SSRAM[14742] = 36'o525140534357; // 034626 SSRAM[14743] = 36'o127200000002; // 034627 SSRAM[14744] = 36'o312200000003; // 034630 SSRAM[14745] = 36'o003200007405; // 034631 SSRAM[14746] = 36'o321400034624; // 034632 SSRAM[14747] = 36'o205100557777; // 034633 SSRAM[14748] = 36'o541100777400; // 034634 SSRAM[14749] = 36'o525140534337; // 034635 SSRAM[14750] = 36'o127200000002; // 034636 SSRAM[14751] = 36'o312200000003; // 034637 SSRAM[14752] = 36'o003200007406; // 034640 SSRAM[14753] = 36'o321400034633; // 034641 SSRAM[14754] = 36'o205100537777; // 034642 SSRAM[14755] = 36'o541100777400; // 034643 SSRAM[14756] = 36'o525140534277; // 034644 SSRAM[14757] = 36'o127200000002; // 034645 SSRAM[14758] = 36'o312200000003; // 034646 SSRAM[14759] = 36'o003200007407; // 034647 SSRAM[14760] = 36'o321400034642; // 034650 SSRAM[14761] = 36'o205100477777; // 034651 SSRAM[14762] = 36'o541100777400; // 034652 SSRAM[14763] = 36'o525140534177; // 034653 SSRAM[14764] = 36'o127200000002; // 034654 SSRAM[14765] = 36'o312200000003; // 034655 SSRAM[14766] = 36'o003200007410; // 034656 SSRAM[14767] = 36'o321400034651; // 034657 SSRAM[14768] = 36'o205100200000; // 034660 SSRAM[14769] = 36'o541100000177; // 034661 SSRAM[14770] = 36'o205140243400; // 034662 SSRAM[14771] = 36'o127200000002; // 034663 SSRAM[14772] = 36'o312200000003; // 034664 SSRAM[14773] = 36'o003200007501; // 034665 SSRAM[14774] = 36'o321400034660; // 034666 SSRAM[14775] = 36'o205100200000; // 034667 SSRAM[14776] = 36'o541100000200; // 034670 SSRAM[14777] = 36'o205140243400; // 034671 SSRAM[14778] = 36'o541140000001; // 034672 SSRAM[14779] = 36'o127200000002; // 034673 SSRAM[14780] = 36'o312200000003; // 034674 SSRAM[14781] = 36'o003200007601; // 034675 SSRAM[14782] = 36'o321400034667; // 034676 SSRAM[14783] = 36'o561100777600; // 034677 SSRAM[14784] = 36'o621100200000; // 034700 SSRAM[14785] = 36'o525140534377; // 034701 SSRAM[14786] = 36'o127200000002; // 034702 SSRAM[14787] = 36'o312200000003; // 034703 SSRAM[14788] = 36'o003200007701; // 034704 SSRAM[14789] = 36'o321400034677; // 034705 SSRAM[14790] = 36'o561100777601; // 034706 SSRAM[14791] = 36'o621100200000; // 034707 SSRAM[14792] = 36'o515140534400; // 034710 SSRAM[14793] = 36'o127200000002; // 034711 SSRAM[14794] = 36'o312200000003; // 034712 SSRAM[14795] = 36'o003200010001; // 034713 SSRAM[14796] = 36'o321400034706; // 034714 SSRAM[14797] = 36'o205100200000; // 034715 SSRAM[14798] = 36'o541100000177; // 034716 SSRAM[14799] = 36'o202100036501; // 034717 SSRAM[14800] = 36'o205140243400; // 034720 SSRAM[14801] = 36'o127200036501; // 034721 SSRAM[14802] = 36'o312200000003; // 034722 SSRAM[14803] = 36'o003200010011; // 034723 SSRAM[14804] = 36'o321400034715; // 034724 SSRAM[14805] = 36'o200100036675; // 034725 SSRAM[14806] = 36'o200140036676; // 034726 SSRAM[14807] = 36'o120200000002; // 034727 SSRAM[14808] = 36'o312100036675; // 034730 SSRAM[14809] = 36'o005100010051; // 034731 SSRAM[14810] = 36'o312140036676; // 034732 SSRAM[14811] = 36'o006140010051; // 034733 SSRAM[14812] = 36'o321400034725; // 034734 SSRAM[14813] = 36'o200440036677; // 034735 SSRAM[14814] = 36'o200500036677; // 034736 SSRAM[14815] = 36'o200200036700; // 034737 SSRAM[14816] = 36'o200240036701; // 034740 SSRAM[14817] = 36'o120200036702; // 034741 SSRAM[14818] = 36'o312200000011; // 034742 SSRAM[14819] = 36'o003200010101; // 034743 SSRAM[14820] = 36'o312240000012; // 034744 SSRAM[14821] = 36'o004240010102; // 034745 SSRAM[14822] = 36'o321400034735; // 034746 SSRAM[14823] = 36'o200440036704; // 034747 SSRAM[14824] = 36'o200500036704; // 034750 SSRAM[14825] = 36'o200200036700; // 034751 SSRAM[14826] = 36'o200240036701; // 034752 SSRAM[14827] = 36'o120200036704; // 034753 SSRAM[14828] = 36'o312200000011; // 034754 SSRAM[14829] = 36'o003200010201; // 034755 SSRAM[14830] = 36'o312240000012; // 034756 SSRAM[14831] = 36'o004240010202; // 034757 SSRAM[14832] = 36'o321400034747; // 034760 SSRAM[14833] = 36'o200440036677; // 034761 SSRAM[14834] = 36'o200500036704; // 034762 SSRAM[14835] = 36'o200200036700; // 034763 SSRAM[14836] = 36'o200240036701; // 034764 SSRAM[14837] = 36'o120200036703; // 034765 SSRAM[14838] = 36'o312200000011; // 034766 SSRAM[14839] = 36'o003200010301; // 034767 SSRAM[14840] = 36'o312240000012; // 034770 SSRAM[14841] = 36'o004240010302; // 034771 SSRAM[14842] = 36'o321400034761; // 034772 SSRAM[14843] = 36'o200440036704; // 034773 SSRAM[14844] = 36'o200500036677; // 034774 SSRAM[14845] = 36'o200200036700; // 034775 SSRAM[14846] = 36'o200240036701; // 034776 SSRAM[14847] = 36'o120200036705; // 034777 SSRAM[14848] = 36'o312200000011; // 035000 SSRAM[14849] = 36'o003200010401; // 035001 SSRAM[14850] = 36'o312240000012; // 035002 SSRAM[14851] = 36'o004240010402; // 035003 SSRAM[14852] = 36'o321400034773; // 035004 SSRAM[14853] = 36'o200440036674; // 035005 SSRAM[14854] = 36'o200500036707; // 035006 SSRAM[14855] = 36'o200200036700; // 035007 SSRAM[14856] = 36'o200240036701; // 035010 SSRAM[14857] = 36'o120200036710; // 035011 SSRAM[14858] = 36'o312200000011; // 035012 SSRAM[14859] = 36'o003200010501; // 035013 SSRAM[14860] = 36'o312240000012; // 035014 SSRAM[14861] = 36'o004240010502; // 035015 SSRAM[14862] = 36'o321400035005; // 035016 SSRAM[14863] = 36'o200440036707; // 035017 SSRAM[14864] = 36'o200500036674; // 035020 SSRAM[14865] = 36'o200200036700; // 035021 SSRAM[14866] = 36'o200240036701; // 035022 SSRAM[14867] = 36'o120200036707; // 035023 SSRAM[14868] = 36'o312200000011; // 035024 SSRAM[14869] = 36'o003200010601; // 035025 SSRAM[14870] = 36'o312240000012; // 035026 SSRAM[14871] = 36'o004240010602; // 035027 SSRAM[14872] = 36'o321400035017; // 035030 SSRAM[14873] = 36'o201140035031; // 035031 SSRAM[14874] = 36'o202140030051; // 035032 SSRAM[14875] = 36'o201140000003; // 035033 SSRAM[14876] = 36'o202140037141; // 035034 SSRAM[14877] = 36'o202740037151; // 035035 SSRAM[14878] = 36'o200200036704; // 035036 SSRAM[14879] = 36'o200240036704; // 035037 SSRAM[14880] = 36'o200740036700; // 035040 SSRAM[14881] = 36'o200000036701; // 035041 SSRAM[14882] = 36'o120740036704; // 035042 SSRAM[14883] = 36'o316740000004; // 035043 SSRAM[14884] = 36'o254000035050; // 035044 SSRAM[14885] = 36'o202740000016; // 035045 SSRAM[14886] = 36'o200740037151; // 035046 SSRAM[14887] = 36'o003700010701; // 035047 SSRAM[14888] = 36'o316000000005; // 035050 SSRAM[14889] = 36'o254000035055; // 035051 SSRAM[14890] = 36'o202000000016; // 035052 SSRAM[14891] = 36'o200740037151; // 035053 SSRAM[14892] = 36'o004700010702; // 035054 SSRAM[14893] = 36'o200740037151; // 035055 SSRAM[14894] = 36'o321140035035; // 035056 SSRAM[14895] = 36'o201400035057; // 035057 SSRAM[14896] = 36'o202400030051; // 035060 SSRAM[14897] = 36'o201400000010; // 035061 SSRAM[14898] = 36'o202400037141; // 035062 SSRAM[14899] = 36'o403200000005; // 035063 SSRAM[14900] = 36'o477100000003; // 035064 SSRAM[14901] = 36'o551140777777; // 035065 SSRAM[14902] = 36'o477440000012; // 035066 SSRAM[14903] = 36'o551500777777; // 035067 SSRAM[14904] = 36'o120200000002; // 035070 SSRAM[14905] = 36'o312200000011; // 035071 SSRAM[14906] = 36'o003200011001; // 035072 SSRAM[14907] = 36'o312240000012; // 035073 SSRAM[14908] = 36'o004240011001; // 035074 SSRAM[14909] = 36'o321400035065; // 035075 SSRAM[14910] = 36'o403200000005; // 035076 SSRAM[14911] = 36'o477140000004; // 035077 SSRAM[14912] = 36'o551200777777; // 035100 SSRAM[14913] = 36'o477440000012; // 035101 SSRAM[14914] = 36'o551500777777; // 035102 SSRAM[14915] = 36'o120200000003; // 035103 SSRAM[14916] = 36'o312200000011; // 035104 SSRAM[14917] = 36'o003200011002; // 035105 SSRAM[14918] = 36'o312240000012; // 035106 SSRAM[14919] = 36'o004240011002; // 035107 SSRAM[14920] = 36'o321400035100; // 035110 SSRAM[14921] = 36'o403200000005; // 035111 SSRAM[14922] = 36'o477200000005; // 035112 SSRAM[14923] = 36'o551240777777; // 035113 SSRAM[14924] = 36'o477440000012; // 035114 SSRAM[14925] = 36'o551500777777; // 035115 SSRAM[14926] = 36'o120200000004; // 035116 SSRAM[14927] = 36'o312200000011; // 035117 SSRAM[14928] = 36'o003200011003; // 035120 SSRAM[14929] = 36'o312240000012; // 035121 SSRAM[14930] = 36'o004240011003; // 035122 SSRAM[14931] = 36'o321400035113; // 035123 SSRAM[14932] = 36'o403200000005; // 035124 SSRAM[14933] = 36'o477240000006; // 035125 SSRAM[14934] = 36'o551300777777; // 035126 SSRAM[14935] = 36'o477440000012; // 035127 SSRAM[14936] = 36'o551500777777; // 035130 SSRAM[14937] = 36'o120200000005; // 035131 SSRAM[14938] = 36'o312200000011; // 035132 SSRAM[14939] = 36'o003200011004; // 035133 SSRAM[14940] = 36'o312240000012; // 035134 SSRAM[14941] = 36'o004240011004; // 035135 SSRAM[14942] = 36'o321400035126; // 035136 SSRAM[14943] = 36'o403200000005; // 035137 SSRAM[14944] = 36'o477300000007; // 035140 SSRAM[14945] = 36'o551340777777; // 035141 SSRAM[14946] = 36'o477440000012; // 035142 SSRAM[14947] = 36'o551500777777; // 035143 SSRAM[14948] = 36'o120200000006; // 035144 SSRAM[14949] = 36'o312200000011; // 035145 SSRAM[14950] = 36'o003200011005; // 035146 SSRAM[14951] = 36'o312240000012; // 035147 SSRAM[14952] = 36'o004240011005; // 035150 SSRAM[14953] = 36'o321400035141; // 035151 SSRAM[14954] = 36'o120100036675; // 035152 SSRAM[14955] = 36'o121200000002; // 035153 SSRAM[14956] = 36'o312100036675; // 035154 SSRAM[14957] = 36'o005100011051; // 035155 SSRAM[14958] = 36'o312140036676; // 035156 SSRAM[14959] = 36'o006140011052; // 035157 SSRAM[14960] = 36'o321400035152; // 035160 SSRAM[14961] = 36'o120200036700; // 035161 SSRAM[14962] = 36'o460440036677; // 035162 SSRAM[14963] = 36'o400500000000; // 035163 SSRAM[14964] = 36'o271440000001; // 035164 SSRAM[14965] = 36'o121200036702; // 035165 SSRAM[14966] = 36'o312200000011; // 035166 SSRAM[14967] = 36'o003200011101; // 035167 SSRAM[14968] = 36'o312240000012; // 035170 SSRAM[14969] = 36'o004240011102; // 035171 SSRAM[14970] = 36'o321400035161; // 035172 SSRAM[14971] = 36'o120200036700; // 035173 SSRAM[14972] = 36'o460440036677; // 035174 SSRAM[14973] = 36'o210500036712; // 035175 SSRAM[14974] = 36'o621500400000; // 035176 SSRAM[14975] = 36'o121200036713; // 035177 SSRAM[14976] = 36'o312200000011; // 035200 SSRAM[14977] = 36'o003200011201; // 035201 SSRAM[14978] = 36'o312240000012; // 035202 SSRAM[14979] = 36'o004240011202; // 035203 SSRAM[14980] = 36'o321400035173; // 035204 SSRAM[14981] = 36'o120200036700; // 035205 SSRAM[14982] = 36'o460440036704; // 035206 SSRAM[14983] = 36'o210500036712; // 035207 SSRAM[14984] = 36'o621500400000; // 035210 SSRAM[14985] = 36'o121200036715; // 035211 SSRAM[14986] = 36'o312200000011; // 035212 SSRAM[14987] = 36'o003200011301; // 035213 SSRAM[14988] = 36'o312240000012; // 035214 SSRAM[14989] = 36'o004240011302; // 035215 SSRAM[14990] = 36'o321400035205; // 035216 SSRAM[14991] = 36'o120200036700; // 035217 SSRAM[14992] = 36'o460440036712; // 035220 SSRAM[14993] = 36'o400500000000; // 035221 SSRAM[14994] = 36'o271440000001; // 035222 SSRAM[14995] = 36'o121200036712; // 035223 SSRAM[14996] = 36'o312200000011; // 035224 SSRAM[14997] = 36'o003200011401; // 035225 SSRAM[14998] = 36'o312240000012; // 035226 SSRAM[14999] = 36'o004240011402; // 035227 SSRAM[15000] = 36'o321400035217; // 035230 SSRAM[15001] = 36'o120200036700; // 035231 SSRAM[15002] = 36'o460440036707; // 035232 SSRAM[15003] = 36'o210500036717; // 035233 SSRAM[15004] = 36'o621500400000; // 035234 SSRAM[15005] = 36'o121200036720; // 035235 SSRAM[15006] = 36'o312200000011; // 035236 SSRAM[15007] = 36'o003200011501; // 035237 SSRAM[15008] = 36'o312240000012; // 035240 SSRAM[15009] = 36'o004240011502; // 035241 SSRAM[15010] = 36'o321400035231; // 035242 SSRAM[15011] = 36'o120200036700; // 035243 SSRAM[15012] = 36'o460440036674; // 035244 SSRAM[15013] = 36'o210500036722; // 035245 SSRAM[15014] = 36'o621500400000; // 035246 SSRAM[15015] = 36'o121200036723; // 035247 SSRAM[15016] = 36'o312200000011; // 035250 SSRAM[15017] = 36'o003200011601; // 035251 SSRAM[15018] = 36'o312240000012; // 035252 SSRAM[15019] = 36'o004240011602; // 035253 SSRAM[15020] = 36'o321400035243; // 035254 SSRAM[15021] = 36'o201140035255; // 035255 SSRAM[15022] = 36'o202140030051; // 035256 SSRAM[15023] = 36'o201140000003; // 035257 SSRAM[15024] = 36'o202140037141; // 035260 SSRAM[15025] = 36'o202740037151; // 035261 SSRAM[15026] = 36'o120740036700; // 035262 SSRAM[15027] = 36'o460200036677; // 035263 SSRAM[15028] = 36'o210240036712; // 035264 SSRAM[15029] = 36'o621240400000; // 035265 SSRAM[15030] = 36'o121740036713; // 035266 SSRAM[15031] = 36'o316740000004; // 035267 SSRAM[15032] = 36'o254000035274; // 035270 SSRAM[15033] = 36'o202740000016; // 035271 SSRAM[15034] = 36'o200740037151; // 035272 SSRAM[15035] = 36'o003700011701; // 035273 SSRAM[15036] = 36'o316000000005; // 035274 SSRAM[15037] = 36'o254000035301; // 035275 SSRAM[15038] = 36'o202740000016; // 035276 SSRAM[15039] = 36'o200740037151; // 035277 SSRAM[15040] = 36'o004000011702; // 035300 SSRAM[15041] = 36'o200740037151; // 035301 SSRAM[15042] = 36'o321140035261; // 035302 SSRAM[15043] = 36'o201400035303; // 035303 SSRAM[15044] = 36'o202400030051; // 035304 SSRAM[15045] = 36'o201400000010; // 035305 SSRAM[15046] = 36'o202400037141; // 035306 SSRAM[15047] = 36'o120200036700; // 035307 SSRAM[15048] = 36'o460440036677; // 035310 SSRAM[15049] = 36'o210500036725; // 035311 SSRAM[15050] = 36'o621500400000; // 035312 SSRAM[15051] = 36'o120100036726; // 035313 SSRAM[15052] = 36'o121200000002; // 035314 SSRAM[15053] = 36'o312200000011; // 035315 SSRAM[15054] = 36'o003200012001; // 035316 SSRAM[15055] = 36'o312240000012; // 035317 SSRAM[15056] = 36'o004240012001; // 035320 SSRAM[15057] = 36'o321400035311; // 035321 SSRAM[15058] = 36'o120200036700; // 035322 SSRAM[15059] = 36'o460440036677; // 035323 SSRAM[15060] = 36'o210500036725; // 035324 SSRAM[15061] = 36'o621500400000; // 035325 SSRAM[15062] = 36'o120140036726; // 035326 SSRAM[15063] = 36'o121200000003; // 035327 SSRAM[15064] = 36'o312200000011; // 035330 SSRAM[15065] = 36'o003200012002; // 035331 SSRAM[15066] = 36'o312240000012; // 035332 SSRAM[15067] = 36'o004240012002; // 035333 SSRAM[15068] = 36'o321400035324; // 035334 SSRAM[15069] = 36'o120200036700; // 035335 SSRAM[15070] = 36'o460440036677; // 035336 SSRAM[15071] = 36'o210500036725; // 035337 SSRAM[15072] = 36'o621500400000; // 035340 SSRAM[15073] = 36'o120200036726; // 035341 SSRAM[15074] = 36'o121200000004; // 035342 SSRAM[15075] = 36'o312200000011; // 035343 SSRAM[15076] = 36'o003200012003; // 035344 SSRAM[15077] = 36'o312240000012; // 035345 SSRAM[15078] = 36'o004240012003; // 035346 SSRAM[15079] = 36'o321400035337; // 035347 SSRAM[15080] = 36'o120200036700; // 035350 SSRAM[15081] = 36'o460440036677; // 035351 SSRAM[15082] = 36'o210500036725; // 035352 SSRAM[15083] = 36'o621500400000; // 035353 SSRAM[15084] = 36'o120240036726; // 035354 SSRAM[15085] = 36'o121200000005; // 035355 SSRAM[15086] = 36'o312200000011; // 035356 SSRAM[15087] = 36'o003200012004; // 035357 SSRAM[15088] = 36'o312240000012; // 035360 SSRAM[15089] = 36'o004240012004; // 035361 SSRAM[15090] = 36'o321400035352; // 035362 SSRAM[15091] = 36'o120200036700; // 035363 SSRAM[15092] = 36'o460440036677; // 035364 SSRAM[15093] = 36'o210500036725; // 035365 SSRAM[15094] = 36'o621500400000; // 035366 SSRAM[15095] = 36'o120300036726; // 035367 SSRAM[15096] = 36'o121200000006; // 035370 SSRAM[15097] = 36'o312200000011; // 035371 SSRAM[15098] = 36'o003200012005; // 035372 SSRAM[15099] = 36'o312240000012; // 035373 SSRAM[15100] = 36'o004240012005; // 035374 SSRAM[15101] = 36'o321400035365; // 035375 SSRAM[15102] = 36'o120200036700; // 035376 SSRAM[15103] = 36'o460440036730; // 035377 SSRAM[15104] = 36'o400500000000; // 035400 SSRAM[15105] = 36'o271440000001; // 035401 SSRAM[15106] = 36'o121200036730; // 035402 SSRAM[15107] = 36'o312200000011; // 035403 SSRAM[15108] = 36'o003200012101; // 035404 SSRAM[15109] = 36'o312240000012; // 035405 SSRAM[15110] = 36'o004240012102; // 035406 SSRAM[15111] = 36'o321400035376; // 035407 SSRAM[15112] = 36'o120200036700; // 035410 SSRAM[15113] = 36'o460440036677; // 035411 SSRAM[15114] = 36'o400500000000; // 035412 SSRAM[15115] = 36'o271440000001; // 035413 SSRAM[15116] = 36'o121200036731; // 035414 SSRAM[15117] = 36'o312200000011; // 035415 SSRAM[15118] = 36'o003200012201; // 035416 SSRAM[15119] = 36'o312240000012; // 035417 SSRAM[15120] = 36'o004240012202; // 035420 SSRAM[15121] = 36'o321400035410; // 035421 SSRAM[15122] = 36'o120200036700; // 035422 SSRAM[15123] = 36'o460440036730; // 035423 SSRAM[15124] = 36'o400500000000; // 035424 SSRAM[15125] = 36'o271440000001; // 035425 SSRAM[15126] = 36'o121200036732; // 035426 SSRAM[15127] = 36'o312200000011; // 035427 SSRAM[15128] = 36'o003200012301; // 035430 SSRAM[15129] = 36'o312240000012; // 035431 SSRAM[15130] = 36'o004240012302; // 035432 SSRAM[15131] = 36'o321400035422; // 035433 SSRAM[15132] = 36'o255740035435; // 035434 SSRAM[15133] = 36'o265200035436; // 035435 SSRAM[15134] = 36'o603200700000; // 035436 SSRAM[15135] = 36'o013200012401; // 035437 SSRAM[15136] = 36'o321400035434; // 035440 SSRAM[15137] = 36'o255740035442; // 035441 SSRAM[15138] = 36'o121240036702; // 035442 SSRAM[15139] = 36'o265200035444; // 035443 SSRAM[15140] = 36'o621200027777; // 035444 SSRAM[15141] = 36'o603200010000; // 035445 SSRAM[15142] = 36'o254000035460; // 035446 SSRAM[15143] = 36'o336000030524; // 035447 SSRAM[15144] = 36'o254000035455; // 035450 SSRAM[15145] = 36'o312200036734; // 035451 SSRAM[15146] = 36'o013200012501; // 035452 SSRAM[15147] = 36'o321400035441; // 035453 SSRAM[15148] = 36'o254000035470; // 035454 SSRAM[15149] = 36'o312200036734; // 035455 SSRAM[15150] = 36'o013200012501; // 035456 SSRAM[15151] = 36'o254000035453; // 035457 SSRAM[15152] = 36'o336000030524; // 035460 SSRAM[15153] = 36'o254000035465; // 035461 SSRAM[15154] = 36'o312200036735; // 035462 SSRAM[15155] = 36'o013200012501; // 035463 SSRAM[15156] = 36'o254000035453; // 035464 SSRAM[15157] = 36'o312200036735; // 035465 SSRAM[15158] = 36'o013200012501; // 035466 SSRAM[15159] = 36'o254000035453; // 035467 SSRAM[15160] = 36'o254000035471; // 035470 SSRAM[15161] = 36'o255740035472; // 035471 SSRAM[15162] = 36'o121240036730; // 035472 SSRAM[15163] = 36'o265200035474; // 035473 SSRAM[15164] = 36'o621200027777; // 035474 SSRAM[15165] = 36'o603200010000; // 035475 SSRAM[15166] = 36'o254000035510; // 035476 SSRAM[15167] = 36'o336000030524; // 035477 SSRAM[15168] = 36'o254000035505; // 035500 SSRAM[15169] = 36'o312200036736; // 035501 SSRAM[15170] = 36'o013200012601; // 035502 SSRAM[15171] = 36'o321400035471; // 035503 SSRAM[15172] = 36'o254000035520; // 035504 SSRAM[15173] = 36'o312200036737; // 035505 SSRAM[15174] = 36'o013200012601; // 035506 SSRAM[15175] = 36'o254000035503; // 035507 SSRAM[15176] = 36'o336000030524; // 035510 SSRAM[15177] = 36'o254000035515; // 035511 SSRAM[15178] = 36'o312200036740; // 035512 SSRAM[15179] = 36'o013200012601; // 035513 SSRAM[15180] = 36'o254000035503; // 035514 SSRAM[15181] = 36'o312200036740; // 035515 SSRAM[15182] = 36'o013200012601; // 035516 SSRAM[15183] = 36'o254000035503; // 035517 SSRAM[15184] = 36'o254000035521; // 035520 SSRAM[15185] = 36'o255740035522; // 035521 SSRAM[15186] = 36'o121240036731; // 035522 SSRAM[15187] = 36'o265200035524; // 035523 SSRAM[15188] = 36'o621200027777; // 035524 SSRAM[15189] = 36'o603200010000; // 035525 SSRAM[15190] = 36'o254000035540; // 035526 SSRAM[15191] = 36'o336000030524; // 035527 SSRAM[15192] = 36'o254000035535; // 035530 SSRAM[15193] = 36'o312200036741; // 035531 SSRAM[15194] = 36'o013200012701; // 035532 SSRAM[15195] = 36'o321400035521; // 035533 SSRAM[15196] = 36'o254000035550; // 035534 SSRAM[15197] = 36'o312200036741; // 035535 SSRAM[15198] = 36'o013200012701; // 035536 SSRAM[15199] = 36'o254000035533; // 035537 SSRAM[15200] = 36'o336000030524; // 035540 SSRAM[15201] = 36'o254000035545; // 035541 SSRAM[15202] = 36'o312200036742; // 035542 SSRAM[15203] = 36'o013200012701; // 035543 SSRAM[15204] = 36'o254000035533; // 035544 SSRAM[15205] = 36'o312200036742; // 035545 SSRAM[15206] = 36'o013200012701; // 035546 SSRAM[15207] = 36'o254000035533; // 035547 SSRAM[15208] = 36'o254000035551; // 035550 SSRAM[15209] = 36'o255740035552; // 035551 SSRAM[15210] = 36'o121240036732; // 035552 SSRAM[15211] = 36'o265200035554; // 035553 SSRAM[15212] = 36'o621200027777; // 035554 SSRAM[15213] = 36'o603200010000; // 035555 SSRAM[15214] = 36'o254000035570; // 035556 SSRAM[15215] = 36'o336000030524; // 035557 SSRAM[15216] = 36'o254000035565; // 035560 SSRAM[15217] = 36'o312200036743; // 035561 SSRAM[15218] = 36'o013200013001; // 035562 SSRAM[15219] = 36'o321400035551; // 035563 SSRAM[15220] = 36'o254000035600; // 035564 SSRAM[15221] = 36'o312200036744; // 035565 SSRAM[15222] = 36'o013200013001; // 035566 SSRAM[15223] = 36'o254000035563; // 035567 SSRAM[15224] = 36'o336000030524; // 035570 SSRAM[15225] = 36'o254000035575; // 035571 SSRAM[15226] = 36'o312200036745; // 035572 SSRAM[15227] = 36'o013200013001; // 035573 SSRAM[15228] = 36'o254000035563; // 035574 SSRAM[15229] = 36'o312200036745; // 035575 SSRAM[15230] = 36'o013200013001; // 035576 SSRAM[15231] = 36'o254000035563; // 035577 SSRAM[15232] = 36'o254000035601; // 035600 SSRAM[15233] = 36'o120200036675; // 035601 SSRAM[15234] = 36'o124200000002; // 035602 SSRAM[15235] = 36'o312200036675; // 035603 SSRAM[15236] = 36'o003200013051; // 035604 SSRAM[15237] = 36'o312240036676; // 035605 SSRAM[15238] = 36'o004240013051; // 035606 SSRAM[15239] = 36'o321400035601; // 035607 SSRAM[15240] = 36'o120200036700; // 035610 SSRAM[15241] = 36'o202200036501; // 035611 SSRAM[15242] = 36'o202240036502; // 035612 SSRAM[15243] = 36'o120200036702; // 035613 SSRAM[15244] = 36'o124200036501; // 035614 SSRAM[15245] = 36'o120200036501; // 035615 SSRAM[15246] = 36'o312200036677; // 035616 SSRAM[15247] = 36'o005200013101; // 035617 SSRAM[15248] = 36'o312240036677; // 035620 SSRAM[15249] = 36'o006240013102; // 035621 SSRAM[15250] = 36'o321400035610; // 035622 SSRAM[15251] = 36'o120200036700; // 035623 SSRAM[15252] = 36'o202200036501; // 035624 SSRAM[15253] = 36'o202240036502; // 035625 SSRAM[15254] = 36'o120200036704; // 035626 SSRAM[15255] = 36'o124200036501; // 035627 SSRAM[15256] = 36'o120200036501; // 035630 SSRAM[15257] = 36'o312200036704; // 035631 SSRAM[15258] = 36'o005200013201; // 035632 SSRAM[15259] = 36'o312240036704; // 035633 SSRAM[15260] = 36'o006240013202; // 035634 SSRAM[15261] = 36'o321400035623; // 035635 SSRAM[15262] = 36'o120200036700; // 035636 SSRAM[15263] = 36'o202200036501; // 035637 SSRAM[15264] = 36'o202240036502; // 035640 SSRAM[15265] = 36'o120200036703; // 035641 SSRAM[15266] = 36'o124200036501; // 035642 SSRAM[15267] = 36'o120200036501; // 035643 SSRAM[15268] = 36'o312200036677; // 035644 SSRAM[15269] = 36'o005200013301; // 035645 SSRAM[15270] = 36'o312240036704; // 035646 SSRAM[15271] = 36'o006240013302; // 035647 SSRAM[15272] = 36'o321400035636; // 035650 SSRAM[15273] = 36'o120200036700; // 035651 SSRAM[15274] = 36'o202200036501; // 035652 SSRAM[15275] = 36'o202240036502; // 035653 SSRAM[15276] = 36'o120200036705; // 035654 SSRAM[15277] = 36'o124200036501; // 035655 SSRAM[15278] = 36'o120200036501; // 035656 SSRAM[15279] = 36'o312200036704; // 035657 SSRAM[15280] = 36'o005200013401; // 035660 SSRAM[15281] = 36'o312240036677; // 035661 SSRAM[15282] = 36'o006240013402; // 035662 SSRAM[15283] = 36'o321400035651; // 035663 SSRAM[15284] = 36'o120200036700; // 035664 SSRAM[15285] = 36'o202200036501; // 035665 SSRAM[15286] = 36'o202240036502; // 035666 SSRAM[15287] = 36'o120200036710; // 035667 SSRAM[15288] = 36'o124200036501; // 035670 SSRAM[15289] = 36'o120200036501; // 035671 SSRAM[15290] = 36'o312200036674; // 035672 SSRAM[15291] = 36'o005200013501; // 035673 SSRAM[15292] = 36'o312240036707; // 035674 SSRAM[15293] = 36'o006240013502; // 035675 SSRAM[15294] = 36'o321400035664; // 035676 SSRAM[15295] = 36'o120200036700; // 035677 SSRAM[15296] = 36'o202200036501; // 035700 SSRAM[15297] = 36'o202240036502; // 035701 SSRAM[15298] = 36'o120200036707; // 035702 SSRAM[15299] = 36'o124200036501; // 035703 SSRAM[15300] = 36'o120200036501; // 035704 SSRAM[15301] = 36'o312200036707; // 035705 SSRAM[15302] = 36'o005200013601; // 035706 SSRAM[15303] = 36'o312240036674; // 035707 SSRAM[15304] = 36'o006240013602; // 035710 SSRAM[15305] = 36'o321400035677; // 035711 SSRAM[15306] = 36'o201140035712; // 035712 SSRAM[15307] = 36'o202140030051; // 035713 SSRAM[15308] = 36'o201140000003; // 035714 SSRAM[15309] = 36'o202140037141; // 035715 SSRAM[15310] = 36'o202740037151; // 035716 SSRAM[15311] = 36'o120740036700; // 035717 SSRAM[15312] = 36'o202740036501; // 035720 SSRAM[15313] = 36'o202000036502; // 035721 SSRAM[15314] = 36'o120740036704; // 035722 SSRAM[15315] = 36'o124740036501; // 035723 SSRAM[15316] = 36'o120740036501; // 035724 SSRAM[15317] = 36'o316740036704; // 035725 SSRAM[15318] = 36'o254000035732; // 035726 SSRAM[15319] = 36'o202740000016; // 035727 SSRAM[15320] = 36'o200740037151; // 035730 SSRAM[15321] = 36'o005700013701; // 035731 SSRAM[15322] = 36'o316000036704; // 035732 SSRAM[15323] = 36'o254000035737; // 035733 SSRAM[15324] = 36'o202740000016; // 035734 SSRAM[15325] = 36'o200740037151; // 035735 SSRAM[15326] = 36'o006000013702; // 035736 SSRAM[15327] = 36'o200740037151; // 035737 SSRAM[15328] = 36'o321140035716; // 035740 SSRAM[15329] = 36'o201400035741; // 035741 SSRAM[15330] = 36'o202400030051; // 035742 SSRAM[15331] = 36'o201400000010; // 035743 SSRAM[15332] = 36'o202400037141; // 035744 SSRAM[15333] = 36'o120100036700; // 035745 SSRAM[15334] = 36'o120200036746; // 035746 SSRAM[15335] = 36'o124200000002; // 035747 SSRAM[15336] = 36'o312100036704; // 035750 SSRAM[15337] = 36'o005100014001; // 035751 SSRAM[15338] = 36'o312140036725; // 035752 SSRAM[15339] = 36'o006140014001; // 035753 SSRAM[15340] = 36'o321400035745; // 035754 SSRAM[15341] = 36'o120140036700; // 035755 SSRAM[15342] = 36'o120200036746; // 035756 SSRAM[15343] = 36'o124200000003; // 035757 SSRAM[15344] = 36'o312140036704; // 035760 SSRAM[15345] = 36'o005140014002; // 035761 SSRAM[15346] = 36'o312200036725; // 035762 SSRAM[15347] = 36'o006200014002; // 035763 SSRAM[15348] = 36'o321400035755; // 035764 SSRAM[15349] = 36'o120200036700; // 035765 SSRAM[15350] = 36'o120200036746; // 035766 SSRAM[15351] = 36'o124200000004; // 035767 SSRAM[15352] = 36'o312200036704; // 035770 SSRAM[15353] = 36'o005200014003; // 035771 SSRAM[15354] = 36'o312240036725; // 035772 SSRAM[15355] = 36'o006240014003; // 035773 SSRAM[15356] = 36'o321400035765; // 035774 SSRAM[15357] = 36'o120240036700; // 035775 SSRAM[15358] = 36'o120200036746; // 035776 SSRAM[15359] = 36'o124200000005; // 035777 SSRAM[15360] = 36'o312240036704; // 036000 SSRAM[15361] = 36'o005240014004; // 036001 SSRAM[15362] = 36'o260740036016; // 036002 SSRAM[15363] = 36'o006300014004; // 036003 SSRAM[15364] = 36'o321400035775; // 036004 SSRAM[15365] = 36'o120300036700; // 036005 SSRAM[15366] = 36'o120200036746; // 036006 SSRAM[15367] = 36'o124200000006; // 036007 SSRAM[15368] = 36'o312300036704; // 036010 SSRAM[15369] = 36'o005300014005; // 036011 SSRAM[15370] = 36'o312340036725; // 036012 SSRAM[15371] = 36'o006340014005; // 036013 SSRAM[15372] = 36'o321400036005; // 036014 SSRAM[15373] = 36'o254000036026; // 036015 SSRAM[15374] = 36'o332000030041; // 036016 SSRAM[15375] = 36'o254000036023; // 036017 SSRAM[15376] = 36'o316300036704; // 036020 SSRAM[15377] = 36'o350017000000; // 036021 SSRAM[15378] = 36'o263740000000; // 036022 SSRAM[15379] = 36'o316300036725; // 036023 SSRAM[15380] = 36'o350017000000; // 036024 SSRAM[15381] = 36'o263740000000; // 036025 SSRAM[15382] = 36'o332000030041; // 036026 SSRAM[15383] = 36'o254000036051; // 036027 SSRAM[15384] = 36'o201400036030; // 036030 SSRAM[15385] = 36'o202400030051; // 036031 SSRAM[15386] = 36'o201400000010; // 036032 SSRAM[15387] = 36'o202400037141; // 036033 SSRAM[15388] = 36'o120200036675; // 036034 SSRAM[15389] = 36'o477100000003; // 036035 SSRAM[15390] = 36'o254120036037; // 036036 SSRAM[15391] = 36'o020000036040; // 036037 SSRAM[15392] = 36'o124200000002; // 036040 SSRAM[15393] = 36'o312100036704; // 036041 SSRAM[15394] = 36'o005100014021; // 036042 SSRAM[15395] = 36'o312140000005; // 036043 SSRAM[15396] = 36'o006140014021; // 036044 SSRAM[15397] = 36'o265300036046; // 036045 SSRAM[15398] = 36'o603300020000; // 036046 SSRAM[15399] = 36'o013300014021; // 036047 SSRAM[15400] = 36'o321400036034; // 036050 SSRAM[15401] = 36'o120200036675; // 036051 SSRAM[15402] = 36'o125200000002; // 036052 SSRAM[15403] = 36'o312200036675; // 036053 SSRAM[15404] = 36'o003200014051; // 036054 SSRAM[15405] = 36'o312240036676; // 036055 SSRAM[15406] = 36'o004240014051; // 036056 SSRAM[15407] = 36'o321400036051; // 036057 SSRAM[15408] = 36'o120200036700; // 036060 SSRAM[15409] = 36'o124200036501; // 036061 SSRAM[15410] = 36'o120200036702; // 036062 SSRAM[15411] = 36'o121440036702; // 036063 SSRAM[15412] = 36'o125200036501; // 036064 SSRAM[15413] = 36'o120200036501; // 036065 SSRAM[15414] = 36'o312200000011; // 036066 SSRAM[15415] = 36'o005200014101; // 036067 SSRAM[15416] = 36'o312240000012; // 036070 SSRAM[15417] = 36'o006240014102; // 036071 SSRAM[15418] = 36'o321400036060; // 036072 SSRAM[15419] = 36'o120200036700; // 036073 SSRAM[15420] = 36'o124200036501; // 036074 SSRAM[15421] = 36'o120200036713; // 036075 SSRAM[15422] = 36'o121440036713; // 036076 SSRAM[15423] = 36'o125200036501; // 036077 SSRAM[15424] = 36'o120200036501; // 036100 SSRAM[15425] = 36'o312200000011; // 036101 SSRAM[15426] = 36'o005200014201; // 036102 SSRAM[15427] = 36'o312240000012; // 036103 SSRAM[15428] = 36'o006240014202; // 036104 SSRAM[15429] = 36'o321400036073; // 036105 SSRAM[15430] = 36'o120200036700; // 036106 SSRAM[15431] = 36'o124200036501; // 036107 SSRAM[15432] = 36'o120200036715; // 036110 SSRAM[15433] = 36'o121440036715; // 036111 SSRAM[15434] = 36'o125200036501; // 036112 SSRAM[15435] = 36'o120200036501; // 036113 SSRAM[15436] = 36'o312200000011; // 036114 SSRAM[15437] = 36'o005200014301; // 036115 SSRAM[15438] = 36'o312240000012; // 036116 SSRAM[15439] = 36'o006240014302; // 036117 SSRAM[15440] = 36'o321400036106; // 036120 SSRAM[15441] = 36'o120200036700; // 036121 SSRAM[15442] = 36'o124200036501; // 036122 SSRAM[15443] = 36'o120200036712; // 036123 SSRAM[15444] = 36'o121440036712; // 036124 SSRAM[15445] = 36'o125200036501; // 036125 SSRAM[15446] = 36'o120200036501; // 036126 SSRAM[15447] = 36'o312200000011; // 036127 SSRAM[15448] = 36'o005200014401; // 036130 SSRAM[15449] = 36'o312240000012; // 036131 SSRAM[15450] = 36'o006240014402; // 036132 SSRAM[15451] = 36'o321400036121; // 036133 SSRAM[15452] = 36'o120200036700; // 036134 SSRAM[15453] = 36'o124200036501; // 036135 SSRAM[15454] = 36'o120200036720; // 036136 SSRAM[15455] = 36'o121440036720; // 036137 SSRAM[15456] = 36'o125200036501; // 036140 SSRAM[15457] = 36'o120200036501; // 036141 SSRAM[15458] = 36'o312200000011; // 036142 SSRAM[15459] = 36'o005200014501; // 036143 SSRAM[15460] = 36'o312240000012; // 036144 SSRAM[15461] = 36'o006240014502; // 036145 SSRAM[15462] = 36'o321400036134; // 036146 SSRAM[15463] = 36'o120200036700; // 036147 SSRAM[15464] = 36'o124200036501; // 036150 SSRAM[15465] = 36'o120200036723; // 036151 SSRAM[15466] = 36'o121440036723; // 036152 SSRAM[15467] = 36'o125200036501; // 036153 SSRAM[15468] = 36'o120200036501; // 036154 SSRAM[15469] = 36'o312200000011; // 036155 SSRAM[15470] = 36'o005200014601; // 036156 SSRAM[15471] = 36'o312240000012; // 036157 SSRAM[15472] = 36'o006240014602; // 036160 SSRAM[15473] = 36'o321400036147; // 036161 SSRAM[15474] = 36'o201140036162; // 036162 SSRAM[15475] = 36'o202140030051; // 036163 SSRAM[15476] = 36'o201140000003; // 036164 SSRAM[15477] = 36'o202140037141; // 036165 SSRAM[15478] = 36'o120740036700; // 036166 SSRAM[15479] = 36'o124740036501; // 036167 SSRAM[15480] = 36'o120740036713; // 036170 SSRAM[15481] = 36'o121200036713; // 036171 SSRAM[15482] = 36'o125740036501; // 036172 SSRAM[15483] = 36'o120740036501; // 036173 SSRAM[15484] = 36'o316740000004; // 036174 SSRAM[15485] = 36'o254000036201; // 036175 SSRAM[15486] = 36'o202740000016; // 036176 SSRAM[15487] = 36'o200740037151; // 036177 SSRAM[15488] = 36'o005700014701; // 036200 SSRAM[15489] = 36'o316000000005; // 036201 SSRAM[15490] = 36'o254000036206; // 036202 SSRAM[15491] = 36'o202740000016; // 036203 SSRAM[15492] = 36'o200740037151; // 036204 SSRAM[15493] = 36'o006000014702; // 036205 SSRAM[15494] = 36'o200740037151; // 036206 SSRAM[15495] = 36'o321140036166; // 036207 SSRAM[15496] = 36'o201400036210; // 036210 SSRAM[15497] = 36'o202400030051; // 036211 SSRAM[15498] = 36'o201400000010; // 036212 SSRAM[15499] = 36'o202400037141; // 036213 SSRAM[15500] = 36'o120100036700; // 036214 SSRAM[15501] = 36'o120200036726; // 036215 SSRAM[15502] = 36'o121440000004; // 036216 SSRAM[15503] = 36'o125200000002; // 036217 SSRAM[15504] = 36'o312100000011; // 036220 SSRAM[15505] = 36'o005100015001; // 036221 SSRAM[15506] = 36'o312140000012; // 036222 SSRAM[15507] = 36'o006140015001; // 036223 SSRAM[15508] = 36'o321400036214; // 036224 SSRAM[15509] = 36'o120140036700; // 036225 SSRAM[15510] = 36'o120200036726; // 036226 SSRAM[15511] = 36'o121440000004; // 036227 SSRAM[15512] = 36'o125200000003; // 036230 SSRAM[15513] = 36'o312140000011; // 036231 SSRAM[15514] = 36'o005140015002; // 036232 SSRAM[15515] = 36'o312200000012; // 036233 SSRAM[15516] = 36'o006200015002; // 036234 SSRAM[15517] = 36'o321400036225; // 036235 SSRAM[15518] = 36'o120200036700; // 036236 SSRAM[15519] = 36'o120200036726; // 036237 SSRAM[15520] = 36'o121440000004; // 036240 SSRAM[15521] = 36'o125200000004; // 036241 SSRAM[15522] = 36'o312200000011; // 036242 SSRAM[15523] = 36'o005200015003; // 036243 SSRAM[15524] = 36'o312240000012; // 036244 SSRAM[15525] = 36'o006240015003; // 036245 SSRAM[15526] = 36'o321400036236; // 036246 SSRAM[15527] = 36'o120240036700; // 036247 SSRAM[15528] = 36'o120200036726; // 036250 SSRAM[15529] = 36'o121440000004; // 036251 SSRAM[15530] = 36'o336000030041; // 036252 SSRAM[15531] = 36'o212440000012; // 036253 SSRAM[15532] = 36'o125200000005; // 036254 SSRAM[15533] = 36'o312240000011; // 036255 SSRAM[15534] = 36'o005240015004; // 036256 SSRAM[15535] = 36'o312300000012; // 036257 SSRAM[15536] = 36'o006300015004; // 036260 SSRAM[15537] = 36'o321400036247; // 036261 SSRAM[15538] = 36'o120300036700; // 036262 SSRAM[15539] = 36'o120200036726; // 036263 SSRAM[15540] = 36'o121440000004; // 036264 SSRAM[15541] = 36'o125200000006; // 036265 SSRAM[15542] = 36'o312300000011; // 036266 SSRAM[15543] = 36'o005300015005; // 036267 SSRAM[15544] = 36'o312340000012; // 036270 SSRAM[15545] = 36'o006340015005; // 036271 SSRAM[15546] = 36'o321400036262; // 036272 SSRAM[15547] = 36'o120200036700; // 036273 SSRAM[15548] = 36'o124200036501; // 036274 SSRAM[15549] = 36'o120200036730; // 036275 SSRAM[15550] = 36'o121440036730; // 036276 SSRAM[15551] = 36'o125200036501; // 036277 SSRAM[15552] = 36'o120200036501; // 036300 SSRAM[15553] = 36'o312200000011; // 036301 SSRAM[15554] = 36'o005200015101; // 036302 SSRAM[15555] = 36'o312240000012; // 036303 SSRAM[15556] = 36'o006240015102; // 036304 SSRAM[15557] = 36'o321400036273; // 036305 SSRAM[15558] = 36'o120200036700; // 036306 SSRAM[15559] = 36'o124200036501; // 036307 SSRAM[15560] = 36'o120200036731; // 036310 SSRAM[15561] = 36'o121440036731; // 036311 SSRAM[15562] = 36'o125200036501; // 036312 SSRAM[15563] = 36'o120200036501; // 036313 SSRAM[15564] = 36'o312200000011; // 036314 SSRAM[15565] = 36'o005200015201; // 036315 SSRAM[15566] = 36'o312240000012; // 036316 SSRAM[15567] = 36'o006240015202; // 036317 SSRAM[15568] = 36'o321400036306; // 036320 SSRAM[15569] = 36'o120200036700; // 036321 SSRAM[15570] = 36'o124200036501; // 036322 SSRAM[15571] = 36'o120200036732; // 036323 SSRAM[15572] = 36'o121440036732; // 036324 SSRAM[15573] = 36'o125200036501; // 036325 SSRAM[15574] = 36'o120200036501; // 036326 SSRAM[15575] = 36'o312200000011; // 036327 SSRAM[15576] = 36'o005200015301; // 036330 SSRAM[15577] = 36'o312240000012; // 036331 SSRAM[15578] = 36'o006240015302; // 036332 SSRAM[15579] = 36'o321400036321; // 036333 SSRAM[15580] = 36'o255740036335; // 036334 SSRAM[15581] = 36'o120200036702; // 036335 SSRAM[15582] = 36'o125200036501; // 036336 SSRAM[15583] = 36'o265200036340; // 036337 SSRAM[15584] = 36'o621200027777; // 036340 SSRAM[15585] = 36'o603200010000; // 036341 SSRAM[15586] = 36'o254000036354; // 036342 SSRAM[15587] = 36'o336000030524; // 036343 SSRAM[15588] = 36'o254000036351; // 036344 SSRAM[15589] = 36'o312200036750; // 036345 SSRAM[15590] = 36'o013200015401; // 036346 SSRAM[15591] = 36'o321400036334; // 036347 SSRAM[15592] = 36'o254000036364; // 036350 SSRAM[15593] = 36'o312200036750; // 036351 SSRAM[15594] = 36'o013200015401; // 036352 SSRAM[15595] = 36'o254000036347; // 036353 SSRAM[15596] = 36'o336000030524; // 036354 SSRAM[15597] = 36'o254000036361; // 036355 SSRAM[15598] = 36'o312200036751; // 036356 SSRAM[15599] = 36'o013200015401; // 036357 SSRAM[15600] = 36'o254000036347; // 036360 SSRAM[15601] = 36'o312200036751; // 036361 SSRAM[15602] = 36'o013200015401; // 036362 SSRAM[15603] = 36'o254000036347; // 036363 SSRAM[15604] = 36'o254000036365; // 036364 SSRAM[15605] = 36'o255740036366; // 036365 SSRAM[15606] = 36'o120200036730; // 036366 SSRAM[15607] = 36'o125200036501; // 036367 SSRAM[15608] = 36'o265200036371; // 036370 SSRAM[15609] = 36'o621200027777; // 036371 SSRAM[15610] = 36'o603200010000; // 036372 SSRAM[15611] = 36'o254000036405; // 036373 SSRAM[15612] = 36'o336000030524; // 036374 SSRAM[15613] = 36'o254000036402; // 036375 SSRAM[15614] = 36'o312200036752; // 036376 SSRAM[15615] = 36'o013200015501; // 036377 SSRAM[15616] = 36'o321400036365; // 036400 SSRAM[15617] = 36'o254000036415; // 036401 SSRAM[15618] = 36'o312200036753; // 036402 SSRAM[15619] = 36'o013200015501; // 036403 SSRAM[15620] = 36'o254000036400; // 036404 SSRAM[15621] = 36'o336000030524; // 036405 SSRAM[15622] = 36'o254000036412; // 036406 SSRAM[15623] = 36'o312200036754; // 036407 SSRAM[15624] = 36'o013200015501; // 036410 SSRAM[15625] = 36'o254000036400; // 036411 SSRAM[15626] = 36'o312200036754; // 036412 SSRAM[15627] = 36'o013200015501; // 036413 SSRAM[15628] = 36'o254000036400; // 036414 SSRAM[15629] = 36'o254000036416; // 036415 SSRAM[15630] = 36'o255740036417; // 036416 SSRAM[15631] = 36'o120200036731; // 036417 SSRAM[15632] = 36'o125200036501; // 036420 SSRAM[15633] = 36'o265200036422; // 036421 SSRAM[15634] = 36'o621200027777; // 036422 SSRAM[15635] = 36'o603200010000; // 036423 SSRAM[15636] = 36'o254000036436; // 036424 SSRAM[15637] = 36'o336000030524; // 036425 SSRAM[15638] = 36'o254000036433; // 036426 SSRAM[15639] = 36'o312200036755; // 036427 SSRAM[15640] = 36'o013200015601; // 036430 SSRAM[15641] = 36'o321400036416; // 036431 SSRAM[15642] = 36'o254000036446; // 036432 SSRAM[15643] = 36'o312200036755; // 036433 SSRAM[15644] = 36'o013200015601; // 036434 SSRAM[15645] = 36'o254000036431; // 036435 SSRAM[15646] = 36'o336000030524; // 036436 SSRAM[15647] = 36'o254000036443; // 036437 SSRAM[15648] = 36'o312200036756; // 036440 SSRAM[15649] = 36'o013200015601; // 036441 SSRAM[15650] = 36'o254000036431; // 036442 SSRAM[15651] = 36'o312200036756; // 036443 SSRAM[15652] = 36'o013200015601; // 036444 SSRAM[15653] = 36'o254000036431; // 036445 SSRAM[15654] = 36'o254000036447; // 036446 SSRAM[15655] = 36'o255740036450; // 036447 SSRAM[15656] = 36'o120200036732; // 036450 SSRAM[15657] = 36'o125200036501; // 036451 SSRAM[15658] = 36'o265200036453; // 036452 SSRAM[15659] = 36'o621200027777; // 036453 SSRAM[15660] = 36'o603200010000; // 036454 SSRAM[15661] = 36'o254000036467; // 036455 SSRAM[15662] = 36'o336000030524; // 036456 SSRAM[15663] = 36'o254000036464; // 036457 SSRAM[15664] = 36'o312200036757; // 036460 SSRAM[15665] = 36'o013200015701; // 036461 SSRAM[15666] = 36'o321400036447; // 036462 SSRAM[15667] = 36'o254000036477; // 036463 SSRAM[15668] = 36'o312200036760; // 036464 SSRAM[15669] = 36'o013200015701; // 036465 SSRAM[15670] = 36'o254000036462; // 036466 SSRAM[15671] = 36'o336000030524; // 036467 SSRAM[15672] = 36'o254000036474; // 036470 SSRAM[15673] = 36'o312200036761; // 036471 SSRAM[15674] = 36'o013200015701; // 036472 SSRAM[15675] = 36'o254000036462; // 036473 SSRAM[15676] = 36'o312200036761; // 036474 SSRAM[15677] = 36'o013200015701; // 036475 SSRAM[15678] = 36'o254000036462; // 036476 SSRAM[15679] = 36'o254000036500; // 036477 SSRAM[15680] = 36'o254000030057; // 036500 SSRAM[15683] = 36'o202000037145; // 036503 SSRAM[15684] = 36'o202040037146; // 036504 SSRAM[15685] = 36'o202100037147; // 036505 SSRAM[15686] = 36'o350000030053; // 036506 SSRAM[15687] = 36'o550000030114; // 036507 SSRAM[15688] = 36'o316000030052; // 036510 SSRAM[15689] = 36'o350000037142; // 036511 SSRAM[15690] = 36'o200000037142; // 036512 SSRAM[15691] = 36'o504000030114; // 036513 SSRAM[15692] = 36'o402000037143; // 036514 SSRAM[15693] = 36'o037400000002; // 036515 SSRAM[15694] = 36'o603000040000; // 036516 SSRAM[15695] = 36'o254000036631; // 036517 SSRAM[15696] = 36'o200040030113; // 036520 SSRAM[15697] = 36'o242040777745; // 036521 SSRAM[15698] = 36'o202040037144; // 036522 SSRAM[15699] = 36'o200000037145; // 036523 SSRAM[15700] = 36'o200040037146; // 036524 SSRAM[15701] = 36'o335020037141; // 036525 SSRAM[15702] = 36'o254000036663; // 036526 SSRAM[15703] = 36'o402000037142; // 036527 SSRAM[15704] = 36'o331000030043; // 036530 SSRAM[15705] = 36'o254000036535; // 036531 SSRAM[15706] = 36'o336000037150; // 036532 SSRAM[15707] = 36'o037200000002; // 036533 SSRAM[15708] = 36'o476000037150; // 036534 SSRAM[15709] = 36'o336000030047; // 036535 SSRAM[15710] = 36'o254000036542; // 036536 SSRAM[15711] = 36'o037100036762; // 036537 SSRAM[15712] = 36'o200000030047; // 036540 SSRAM[15713] = 36'o037640000000; // 036541 SSRAM[15714] = 36'o037100036766; // 036542 SSRAM[15715] = 36'o550000030114; // 036543 SSRAM[15716] = 36'o202000030052; // 036544 SSRAM[15717] = 36'o037300000000; // 036545 SSRAM[15718] = 36'o037100036770; // 036546 SSRAM[15719] = 36'o200040030113; // 036547 SSRAM[15720] = 36'o242040777751; // 036550 SSRAM[15721] = 36'o405040000017; // 036551 SSRAM[15722] = 36'o200001000000; // 036552 SSRAM[15723] = 36'o307040000001; // 036553 SSRAM[15724] = 36'o200001037145; // 036554 SSRAM[15725] = 36'o037540000000; // 036555 SSRAM[15726] = 36'o200000030046; // 036556 SSRAM[15727] = 36'o603000000200; // 036557 SSRAM[15728] = 36'o254000036627; // 036560 SSRAM[15729] = 36'o200040037144; // 036561 SSRAM[15730] = 36'o307040000001; // 036562 SSRAM[15731] = 36'o254000036567; // 036563 SSRAM[15732] = 36'o037000030242; // 036564 SSRAM[15733] = 36'o200001036613; // 036565 SSRAM[15734] = 36'o037740000000; // 036566 SSRAM[15735] = 36'o037100036772; // 036567 SSRAM[15736] = 36'o201000036612; // 036570 SSRAM[15737] = 36'o037000000000; // 036571 SSRAM[15738] = 36'o550000030113; // 036572 SSRAM[15739] = 36'o602000700000; // 036573 SSRAM[15740] = 36'o254000036610; // 036574 SSRAM[15741] = 36'o602000070000; // 036575 SSRAM[15742] = 36'o254000036606; // 036576 SSRAM[15743] = 36'o602000007000; // 036577 SSRAM[15744] = 36'o254000036604; // 036600 SSRAM[15745] = 36'o037140000000; // 036601 SSRAM[15746] = 36'o037000030242; // 036602 SSRAM[15747] = 36'o254000036627; // 036603 SSRAM[15748] = 36'o037200000000; // 036604 SSRAM[15749] = 36'o254000036602; // 036605 SSRAM[15750] = 36'o037240000000; // 036606 SSRAM[15751] = 36'o254000036602; // 036607 SSRAM[15752] = 36'o037300000000; // 036610 SSRAM[15753] = 36'o254000036602; // 036611 SSRAM[15754] = 36'o000000000000; // 036612 SSRAM[15755] = 36'o000000000000; // 036613 SSRAM[15756] = 36'o000000036677; // 036614 SSRAM[15757] = 36'o000000036677; // 036615 SSRAM[15758] = 36'o000000036775; // 036616 SSRAM[15759] = 36'o000000037000; // 036617 SSRAM[15760] = 36'o000000037003; // 036620 SSRAM[15761] = 36'o000000037006; // 036621 SSRAM[15762] = 36'o000000037011; // 036622 SSRAM[15763] = 36'o000000037015; // 036623 SSRAM[15764] = 36'o000000037021; // 036624 SSRAM[15765] = 36'o000000037025; // 036625 SSRAM[15766] = 36'o000000037030; // 036626 SSRAM[15767] = 36'o256000030101; // 036627 SSRAM[15768] = 36'o037400000002; // 036630 SSRAM[15769] = 36'o037340000003; // 036631 SSRAM[15770] = 36'o254000036636; // 036632 SSRAM[15771] = 36'o201000036636; // 036633 SSRAM[15772] = 36'o202000000130; // 036634 SSRAM[15773] = 36'o254020030063; // 036635 SSRAM[15774] = 36'o200000030046; // 036636 SSRAM[15775] = 36'o603000002000; // 036637 SSRAM[15776] = 36'o037600000004; // 036640 SSRAM[15777] = 36'o607000004000; // 036641 SSRAM[15778] = 36'o476000037143; // 036642 SSRAM[15779] = 36'o603000010000; // 036643 SSRAM[15780] = 36'o037040000007; // 036644 SSRAM[15781] = 36'o200100037147; // 036645 SSRAM[15782] = 36'o200040037146; // 036646 SSRAM[15783] = 36'o476020037141; // 036647 SSRAM[15784] = 36'o336000037143; // 036650 SSRAM[15785] = 36'o254000036661; // 036651 SSRAM[15786] = 36'o350020037141; // 036652 SSRAM[15787] = 36'o350020037141; // 036653 SSRAM[15788] = 36'o331000030043; // 036654 SSRAM[15789] = 36'o254000036661; // 036655 SSRAM[15790] = 36'o200000030053; // 036656 SSRAM[15791] = 36'o301000000024; // 036657 SSRAM[15792] = 36'o254000036667; // 036660 SSRAM[15793] = 36'o200000037145; // 036661 SSRAM[15794] = 36'o254000030065; // 036662 SSRAM[15795] = 36'o200000030046; // 036663 SSRAM[15796] = 36'o607000001000; // 036664 SSRAM[15797] = 36'o254000036631; // 036665 SSRAM[15798] = 36'o254000036527; // 036666 SSRAM[15799] = 36'o037200037033; // 036667 SSRAM[15800] = 36'o254000030061; // 036670 SSRAM[15801] = 36'o457051640000; // 036671 SSRAM[15802] = 36'o416060000000; // 036672 SSRAM[15803] = 36'o233525252525; // 036673 SSRAM[15804] = 36'o252525252525; // 036674 SSRAM[15805] = 36'o631463146314; // 036675 SSRAM[15806] = 36'o424242131313; // 036676 SSRAM[15807] = 36'o000000000000; // 036677 SSRAM[15808] = 36'o707070707070; // 036700 SSRAM[15809] = 36'o070707070707; // 036701 SSRAM[15810] = 36'o000000000000; // 036702 SSRAM[15811] = 36'o000000000000; // 036703 SSRAM[15812] = 36'o777777777777; // 036704 SSRAM[15813] = 36'o777777777777; // 036705 SSRAM[15814] = 36'o000000000000; // 036706 SSRAM[15815] = 36'o525252525252; // 036707 SSRAM[15816] = 36'o252525252525; // 036710 SSRAM[15817] = 36'o525252525252; // 036711 SSRAM[15818] = 36'o000000000001; // 036712 SSRAM[15819] = 36'o000000000000; // 036713 SSRAM[15820] = 36'o000000000001; // 036714 SSRAM[15821] = 36'o777777777777; // 036715 SSRAM[15822] = 36'o000000000001; // 036716 SSRAM[15823] = 36'o252525252526; // 036717 SSRAM[15824] = 36'o525252525252; // 036720 SSRAM[15825] = 36'o252525252526; // 036721 SSRAM[15826] = 36'o525252525253; // 036722 SSRAM[15827] = 36'o252525252525; // 036723 SSRAM[15828] = 36'o525252525253; // 036724 SSRAM[15829] = 36'o000000777777; // 036725 SSRAM[15830] = 36'o000000000000; // 036726 SSRAM[15831] = 36'o000000777777; // 036727 SSRAM[15832] = 36'o400000000000; // 036730 SSRAM[15833] = 36'o000000000000; // 036731 SSRAM[15834] = 36'o400000000000; // 036732 SSRAM[15835] = 36'o400000000000; // 036733 SSRAM[15836] = 36'o300000035444; // 036734 SSRAM[15837] = 36'o310000035444; // 036735 SSRAM[15838] = 36'o500000035474; // 036736 SSRAM[15839] = 36'o100000035474; // 036737 SSRAM[15840] = 36'o510000035474; // 036740 SSRAM[15841] = 36'o300000035524; // 036741 SSRAM[15842] = 36'o310000035524; // 036742 SSRAM[15843] = 36'o500000035554; // 036743 SSRAM[15844] = 36'o100000035554; // 036744 SSRAM[15845] = 36'o510000035554; // 036745 SSRAM[15846] = 36'o777777777777; // 036746 SSRAM[15847] = 36'o000000777777; // 036747 SSRAM[15848] = 36'o300000036340; // 036750 SSRAM[15849] = 36'o310000036340; // 036751 SSRAM[15850] = 36'o500000036371; // 036752 SSRAM[15851] = 36'o100000036371; // 036753 SSRAM[15852] = 36'o510000036371; // 036754 SSRAM[15853] = 36'o300000036422; // 036755 SSRAM[15854] = 36'o310000036422; // 036756 SSRAM[15855] = 36'o500000036453; // 036757 SSRAM[15856] = 36'o100000036453; // 036760 SSRAM[15857] = 36'o510000036453; // 036761 SSRAM[15858] = 36'o766445636400; // 036762 SSRAM[15859] = 36'o604163630043; // 036763 SSRAM[15860] = 36'o576556640035; // 036764 SSRAM[15861] = 36'o007700000000; // 036765 SSRAM[15862] = 36'o766043003500; // 036766 SSRAM[15863] = 36'o000077000000; // 036767 SSRAM[15864] = 36'o766245636554; // 036770 SSRAM[15865] = 36'o640000350077; // 036771 SSRAM[15866] = 36'o764641655464; // 036772 SSRAM[15867] = 36'o005665554245; // 036773 SSRAM[15868] = 36'o620035007700; // 036774 SSRAM[15869] = 36'o415210141522; // 036775 SSRAM[15870] = 36'o202150144630; // 036776 SSRAM[15871] = 36'o426100000000; // 036777 SSRAM[15872] = 36'o415210141526; // 037000 SSRAM[15873] = 36'o305224043202; // 037001 SSRAM[15874] = 36'o446310542000; // 037002 SSRAM[15875] = 36'o415210524500; // 037003 SSRAM[15876] = 36'o432031146212; // 037004 SSRAM[15877] = 36'o420000000000; // 037005 SSRAM[15878] = 36'o415210525542; // 037006 SSRAM[15879] = 36'o245010640622; // 037007 SSRAM[15880] = 36'o462130400000; // 037010 SSRAM[15881] = 36'o415210324202; // 037011 SSRAM[15882] = 36'o416445124500; // 037012 SSRAM[15883] = 36'o432031146212; // 037013 SSRAM[15884] = 36'o420000000000; // 037014 SSRAM[15885] = 36'o415210324202; // 037015 SSRAM[15886] = 36'o416445330522; // 037016 SSRAM[15887] = 36'o245010640622; // 037017 SSRAM[15888] = 36'o462130400000; // 037020 SSRAM[15889] = 36'o415210324202; // 037021 SSRAM[15890] = 36'o416305124500; // 037022 SSRAM[15891] = 36'o432031146212; // 037023 SSRAM[15892] = 36'o420000000000; // 037024 SSRAM[15893] = 36'o415210324212; // 037025 SSRAM[15894] = 36'o245224043202; // 037026 SSRAM[15895] = 36'o446310542000; // 037027 SSRAM[15896] = 36'o432310143500; // 037030 SSRAM[15897] = 36'o432031146212; // 037031 SSRAM[15898] = 36'o420000000000; // 037032 SSRAM[15899] = 36'o764570434545; // 037033 SSRAM[15900] = 36'o444544004154; // 037034 SSRAM[15901] = 36'o545767454400; // 037035 SSRAM[15902] = 36'o456262576263; // 037036 SSRAM[15903] = 36'o767700000000; // 037037 SSRAM[15904] = 36'o000000000000; // 037040 SSRAM[15978] = 36'o000000000000; // 037152 rtl/status.txt 444 00017510001001 3616 12061407026 12016 0ustar RobNonexTest Status DSKAAA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 1) Test Pass DSKABA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 2) Test Pass DSKACA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 3) Test Pass DSKADA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 4) Test Pass DSKAEA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 5) Test Pass DSKAFA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 6) Test Pass DSKAGA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 7) Test Pass DSKAHA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 8) Test Hangs at PC=33316 DSKAIA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC ( 9) Test Pass DSKAJA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) Test Pass DSKAKA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (11) Test Pass DSKALA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (12) Test Pass DSKAMA0 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (13) Test Pass DSKBAA0 DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY DIAGNOSTIC (1) Test Pass DSKCAA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (1) Test Pass DSKCBA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (2) Test Pass DSKCCA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (3) Test Fail DSKCDA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (4) Test Pass DSKCEA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (5) Test Fail DSKCFC0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (6) Test Fail DSKCGB0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (7) Test Fail DSKDAB0 DECSYSTEM 2020 CPU & MEMORY RELIABILITY DIAGNOSTIC DSKEAA0 DECSYSTEM 2020 PAGING HARDWARE DIAGNOSTIC DSKEBA0 KS10 - CACHE DIAGNOSTIC DSKECB0 KS10 - KL-PAGING DIAGNOSTIC DSKFAA0 DECSYSTEM 2020 INSTRUCTION TIMING DIAGNOSTIC DSQDCC0 DECSYSTEM 2020 DIAGNOSTIC MONITOR TODO: 1. NI_DISP : fix memory cycle. 2. CPU : fix memory timing. 3. mem.awk : fix to work on sixbit 4. Search for FIXME is the code. rtl/testbench.v 444 00017510001001 25474 12061677252 12140 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor Testbench //! //! \brief //! //! \details //! //! \todo //! //! \file //! testbench.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `undef SIMCTY `undef SIMSSMON `define EOF 32'hFFFF_FFFF module testbench; // // Clock an things // reg clk; // Clock reg reset; // Reset wire runLED; // Run LED // // Console Interfaces // wire [7:0] cslAD; // Multiplexed Address/Data Bus reg [7:0] cslADOUT; // Address/Data Bus Out wire [7:0] cslADIN; // Data Bus In reg cslALE; // Address Latch Enable reg cslRD_N; // Read Strobe reg cslWR_N; // Write Strobe wire cslINTR_N; // Console Interrupt wire cslINTR = ~cslINTR_N; // // DZ11 Serial Interface // wire [0:3] RXD; // Received RS-232 Data wire [0:3] TXD; // Transmitted RS-232 Data // // SSRAM // wire ssramCLK; // SSRAM Clock wire [0:22] ssramADDR; // SSRAM Address Bus wire [0:35] ssramDATA; // SSRAM Data Bus wire ssramADV; // SSRAM Advance wire ssramWR; // SSRAM Write // // Data to KS10 // parameter [0:35] valREGSTATUS = 36'o000005_003000; `ifdef SIMSSMON parameter [0:35] valREGCIR = 36'o254000_020000; `else // parameter [0:35] valREGCIR = 36'o254000_030600; // parameter [0:35] valREGCIR = 36'o254000_030660; // parameter [0:35] valREGCIR = 36'o254000_030620; parameter [0:35] valREGCIR = 36'o254000_030622; `endif // // Register Addresses // parameter [7:0] addrREGADDR = 8'h00; parameter [7:0] addrREGDATA = 8'h10; parameter [7:0] addrREGSTATUS = 8'h20; parameter [7:0] addrREGCIR = 8'h30; // // Task to write to KS10 memory // // Details // Write address. Write data. // task cslWRKS10MEM; input [18:35] address; input [ 0:35] data; begin cslWRITE (addrREGADDR, {18'o010000, address}); cslWRITE (addrREGDATA, data); cslWRITEb(addrREGSTATUS+4, 8'h01); end endtask // // Task to read from KS10 memory // task cslRDKS10MEM; input [18:35] address; output [ 0:35] data; begin cslWRITE (addrREGADDR, {18'o040000, address}); cslWRITEb(addrREGSTATUS+4, 8'h01); #40; cslREAD (addrREGDATA, data); end endtask // // Task to write a word to console register // // Note: // A 36-bit write requires 5 byte operations. // task cslWRITE; input [7: 0] addr; input [0:35] data; begin cslWRITEb(addr+3, {4'b0, data[0:3]}); cslWRITEb(addr+4, data[ 4:11]); cslWRITEb(addr+5, data[12:19]); cslWRITEb(addr+6, data[20:27]); cslWRITEb(addr+7, data[28:35]); #100; end endtask // // Task to read word from console register // // Note: // A 36-bit read requires 5 byte operations. // task cslREAD; input [7:0] addr; output reg [0:35] data; begin cslREADb(addr+3, data[ 0: 3]); cslREADb(addr+4, data[ 4:11]); cslREADb(addr+5, data[12:19]); cslREADb(addr+6, data[20:27]); cslREADb(addr+7, data[28:35]); #100; end endtask // // Task to write byte to console register // task cslWRITEb; input [7:0] addr; input [7:0] data; begin #50 cslADOUT = addr; #5 cslALE = 1; #5 cslADOUT = data; #5 cslALE = 0; #5 cslWR_N = 0; #50 cslWR_N = 1; end endtask; // // Task to read byte from console register // task cslREADb; input [7:0] addr; output reg [7:0] data; begin #5 cslADOUT = addr; #5 cslALE = 1; #5 cslALE = 0; #5 cslRD_N = 0; #25 data = cslAD; #25 cslRD_N = 1; end endtask; // // Initialization // reg [0:35] temp; initial begin $display("KS10 Simulation Starting"); // // Initial state // clk = 0; reset = 1; cslALE = 0; cslWR_N = 1; cslRD_N = 1; // // Release reset at 95 nS // #95 reset = 1'b0; // // Write to Console Instruction Register // cslWRITE(addrREGCIR, valREGCIR); // // Write to Control/Status Register // Set EXEC, RUN, and release RESET // cslWRITE(addrREGSTATUS, valREGSTATUS); // // Readback Console Instruction Register // cslREAD(addrREGCIR, temp); // // Initialize Console Status // cslWRKS10MEM(18'o000031, 36'b0); cslWRKS10MEM(18'o000036, 36'b0); cslWRKS10MEM(18'o025741, 36'b0); cslWRKS10MEM(18'o026040, 36'b0); cslWRKS10MEM(18'o030024, 36'b0); cslWRKS10MEM(18'o030037, 36'b0); end // // Clock generator // // Details // Clock is inverted every ten nS // always #10 clk = ~clk; assign cslAD = (~cslRD_N) ? 8'bz : cslADOUT; // // KS10 // KS10 uKS10 (.clk (clk), .reset (reset), .RXD (RXD), .TXD (TXD), .cslALE (cslALE), .cslAD (cslAD), .cslRD_N (cslRD_N), .cslWR_N (cslWR_N), .cslINTR_N (cslINTR_N), .ssramCLK (ssramCLK), .ssramADDR (ssramADDR), .ssramDATA (ssramDATA), .ssramWR (ssramWR), .ssramADV (ssramADV), .runLED (runLED) ); // // Display run/halt status // always @(negedge runLED) $display("KS10 CPU Halted at t = %f us.", $time / 1.0e3); always @(posedge runLED) $display("KS10 CPU Unhalted at t = %f us", $time / 1.0e3); // // Handle Startup. // // Details // The Microcode will always halt at startup. Catch the halt // at startup (only). When this occurs momentarily push the // continue button to continue execution. Otherwise let the // KS10 halt. // always @(negedge runLED) begin if ($time > 13000 && $time < 15000) begin cslWRITEb(8'h25, 8'h16); cslWRITEb(8'h25, 8'h14); end end // // PDP10 Memory Initialization // // Note: // We initialize the PDP10 memory with the diagnostic // code. This saves having to figure out how to load // the code into memory by some other means. // // Object code is extracted from the listing file by a // 'simple' AWK script and is included below. // reg [0:35] SSRAM [0:32767]; initial begin `include "ssram.dat" end // // Synchronous RAM // // Details // This is KS10 memory. // // Note: // Only 32K is implemented. This is sufficient to run the // MAINDEC diagnostics. Adding more memory makes the // simulation run very slow. // // FIXME // This is temporary // reg [0:14] rd_addr; wire [0:14] wr_addr = ssramADDR[8:22]; always @(negedge clk or posedge reset) begin if (reset) ; else if (ssramWR) SSRAM[wr_addr] <= ssramDATA; rd_addr <= wr_addr; end assign ssramDATA = (ssramWR) ? 36'bz : SSRAM[rd_addr]; `ifdef SIMCTY // // File IO // integer cty_ofile; integer cty_ifile; initial begin cty_ofile = $fopen("cty_out.txt", "w"); cty_ifile = $fopen("cty_in.txt", "r"); #1500000; $fclose(cty_ofile); $fclose(cty_ifile); $finish; end // // CTY Output Processing // // Note: // A Console Interrupt (cslINTR asserted) may indicate that a // character is available to print or that a character can be // accepted by the KS10, or both, or neither. // reg [0:35] dataCOUT; parameter [18:35] addrCOUT = 18'o000033; always @(posedge clk or posedge reset) begin if (reset) dataCOUT <= 36'b0; else if (cslINTR) begin //$display("KS10 CPU has interrupted the console at t = %f us", $time / 1.0e3); // // Read CTYOUT Memory Location // cslRDKS10MEM(addrCOUT, dataCOUT); // // Print character if character is available. // Zero the flag when done printing. // if (dataCOUT[27]) begin if ((dataCOUT[28:35] >= 8'h20) && (dataCOUT[28:35] < 8'h7f)) $display("KS10 CTY Output: \"%s\"", dataCOUT[28:35]); else $display("KS10 CTY Output: \"%02x\"", dataCOUT[28:35]); $fwrite(cty_ofile, "%s", dataCOUT[28:35]); cslWRKS10MEM(addrCOUT, 36'b0); end end end `endif endmodule rtl/uba/0000700000175100010010000000000012061535446 10613 5ustar RobNonertl/uba/dz11/0000700000175100010010000000000012061535433 11366 5ustar RobNonertl/uba/dz11/dz11.v0000500000175100010010000002775112061517366 12356 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 DZ11 //! //! \details //! Important addresses: //! //! \todo //! //! \file //! dz11.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none module DZ11(clk, rst, clken, TXD, RXD, curINTR_NUM, busINTR, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO); input clk; // Clock input rst; // Reset input clken; // Clock enable input [0: 3] RXD; // Received Serial Data output [0: 3] TXD; // Transmitted Serial Data input [0: 2] curINTR_NUM; // Current Interrupt Priority output [1: 7] busINTR; // Unibus Interrupt Request input busREQI; // Unibus Request In output busREQO; // Unibus Request Out input busACKI; // Unibus Acknowledge In output busACKO; // Unibus Acknowledge Out input [0:35] busADDRI; // Bus Address In output [0:35] busADDRO; // Bus Address Out input [0:35] busDATAI; // Unibus Data In output [0:35] busDATAO; // Unibus Data Out // // DZ Unibus Parameters // parameter [14:17] dz1DEV = 4'd3; // Device 3 parameter [18:35] dz1VECT = 18'o000340; // Interrupt Vector parameter [18:35] dz1WRU = 18'o200000; // WRU Response parameter [ 7: 4] dz1INTR = 4'b0010; // Interrupt 5 parameter [18:35] csrADDR = 18'o760010; // CSR Address parameter [18:35] rbufADDR = 18'o760012; // RBUF Address parameter [18:35] lprADDR = 18'o760014; // LPR Address parameter [18:35] tcrADDR = 18'o760014; // TCR Address parameter [18:35] msrADDR = 18'o760016; // MSR Address parameter [18:35] tdrADDR = 18'o760016; // TDR Address // // Memory Address and Flags // // Details: // busADDRI[ 0:13] is flags // busADDRI[14:35] is address // wire busREAD = busADDRI[ 3]; // 1 = Read Cycle (IO or Memory) wire busWRITE = busADDRI[ 5]; // 1 = Write Cycle (IO or Memory) wire busIO = busADDRI[10]; // 1 = IO Cycle, 0 = Memory Cycle wire busIOBYTE = busADDRI[13]; // 1 = Unibus Byte IO Operation wire [14:17] busDEV = busADDRI[14:17]; // Unibus Device Number wire [18:35] busADDR = busADDRI[18:35]; // Unibus Address // // Unibus Reset // wire ubaRESET; // // CSR Register // // Details // CSR is read/write and can be accessed as bytes or words // // Note // The LSB decodes bytes // wire csrREAD = busIO & busREAD & (busDEV == dz1DEV) & (busADDR[18:34] == csrADDR[18:34]); wire csrWRITE = busIO & busWRITE & (busDEV == dz1DEV) & (busADDR[18:34] == csrADDR[18:34]); wire csrWRITEH = ((csrWRITE & busIOBYTE & (busADDRI[35] == 1'b1)) | (csrWRITE & ~busIOBYTE)); wire csrWRITEL = ((csrWRITE & busIOBYTE & (busADDRI[35] == 1'b0)) | (csrWRITE & ~busIOBYTE)); reg csrTIE; reg csrSAE; reg csrRIE; reg csrMSE; reg csrCLR; reg csrMAINT; always @(posedge clk or posedge rst) begin if (rst) begin csrTIE <= 1'b0; csrSAE <= 1'b0; csrRIE <= 1'b0; csrMSE <= 1'b0; csrCLR <= 1'b0; csrMAINT <= 1'b0; end else begin if (csrWRITEH) begin csrTIE <= busDATAI[21]; csrSAE <= busDATAI[23]; end if (csrWRITEL) begin csrRIE <= busDATAI[29]; csrMSE <= busDATAI[30]; csrCLR <= busDATAI[31]; csrMAINT <= busDATAI[32]; end end end wire [2:0] csrTLINE = 3'b0; wire csrRDONE = csrRIE & csrSAE; wire csrSA = 1'b0; wire csrTRDY = 1'b0; wire [0:35] regCSR = {20'b0, csrTRDY, csrTIE, csrSA, csrSAE, 1'b0, csrTLINE[2:0], csrRDONE, csrRIE, csrMSE, csrCLR, csrMAINT, 3'b0}; // // RBUF Register // // Details // RBUF is read only and can only be read as words // // Note // The LSB decodes bytes // wire rxfifoEMPTY; wire rxfifoFULL; wire [0:10] rxfifoDOUT; wire rbufREAD = busIO & busREAD & ~busIOBYTE & (busDEV == dz1DEV) & (busADDR[18:34] == rbufADDR[18:34]); wire [0:15] regRBUF = {~rxfifoEMPTY, 4'b0, rxfifoDOUT}; // // LPR Register // // Details // LPR is write only and can only be written as words // // Note // The LSB decodes bytes // wire lprWRITE = busIO & busWRITE & ~busIOBYTE & (busDEV == dz1DEV) & (busADDR[18:34] == lprADDR [18:34]); reg lprRXON; reg [0:3] lprBR[0:3]; always @(posedge clk or posedge rst) begin if (rst) begin lprRXON <= 1'b0; lprBR[0] <= 4'b0; lprBR[1] <= 4'b0; lprBR[2] <= 4'b0; lprBR[3] <= 4'b0; end else if (lprWRITE) begin lprRXON <= busDATAI[23]; if (busDATAI[33] == 1'b0) lprBR[busDATAI[33:34]] <= busDATAI[24:27]; end end // // TCR Reguster // // Details // TCR is read/write and can be accessed as bytes or words // // Note // The LSB decodes bytes // wire tcrREAD = busIO & busREAD & (busDEV == dz1DEV) & (busADDR[18:34] == tcrADDR[18:34]); wire tcrWRITE = busIO & busWRITE & (busDEV == dz1DEV) & (busADDR[18:34] == tcrADDR[18:34]); wire tcrWRITEH = ((tcrWRITE & busIOBYTE & (busADDRI[35] == 1'b1)) | (tcrWRITE & ~busIOBYTE)); wire tcrWRITEL = ((tcrWRITE & busIOBYTE & (busADDRI[35] == 1'b0)) | (tcrWRITE & ~busIOBYTE)); reg [16:0] regTCR; always @(posedge clk or posedge rst) begin if (rst) regTCR <= 16'b0; else begin if (tcrWRITEH) regTCR[16:8] <= busDATAI[20:27]; if (tcrWRITEL) regTCR[ 7:0] <= busDATAI[28:35]; end end // // MSR Register // // Details // MSR can be accessed as bytes or words // // Note // The LSB decodes bytes // wire msrREAD = busIO & busREAD & (busDEV == dz1DEV) & (busADDR[18:34] == msrADDR[18:34]); wire [0:35] regMSR = 36'b0; // // TDR Register // // Details // TDR can be accessed as bytes or words // // Note // The LSB decodes bytes // wire tdrWRITE = busIO & busWRITE & (busDEV == dz1DEV) & (busADDR[18:34] == tdrADDR[18:34]); wire tdrWRITEH = ((tdrWRITE & busIOBYTE & (busADDRI[35] == 1'b1)) | (tdrWRITE & ~busIOBYTE)); wire tdrWRITEL = ((tdrWRITE & busIOBYTE & (busADDRI[35] == 1'b0)) | (tdrWRITE & ~busIOBYTE)); // // KS10 Interface // wire ubaACKO; wire [ 0:35] ubaDATAO; wire [17: 0] ubaADDRI; wire pageVALID; wire forceRPW; wire fastMODE; wire enable16; wire [7:4] ubaINTA; UBA DZUBA (.clk (clk), .rst (rst), .clken (clken), .ubaDEV (dz1DEV), .ubaVECT (dz1VECT), .ubaWRU (dz1WRU), .ubaINTR (dz1INTR), .ubaINTA (ubaINTA), .ubaRESET (ubaRESET), .busREQI (busREQI), .busREQO (busREQO), .busACKI (busACKI), .busACKO (ubaACKO), .busADDRI (busADDRI), .busADDRO (busADDRO), .busDATAI (busDATAI), .busDATAO (ubaDATAO), .busINTR (busINTR), .ubaADDRI (ubaADDRI), .pageVALID (pageVALID), .forceRPW (forceRPW), .fastMODE (fastMODE), .enable16 (enable16) ); // // UART Interfaces // wire [0:7] ttyTXDATA[0:3]; wire [0:7] ttyRXDATA[0:3]; wire clkBR [0:3]; wire ttyTXLOAD[0:3]; wire ttyTXINTR[0:3]; wire ttyRXINTR[0:3]; // // Generate Array of UARTS // genvar i; generate for (i = 0; i < 4; i = i+1) begin : uartINTF // // UART Baud Rate Generators // eUART_BRG ttyBRG (.clk (clk), .rst (rst), .uartBR (lprBR[i]), .clkBR (clkBR[i]) ); // // UART Transmitters // eUART_TX ttyTX (.clk (clk), .rst (rst), .clkBR (clkBR[i]), .data (ttyTXDATA[i]), .load (ttyTXLOAD[i]), .intr (ttyTXINTR[i]), .txd (TXD[i]) ); // // UART Receivers // eUART_RX ttyRX (.clk (clk), .rst (rst), .clkBR (clkBR[i]), .rxd (RXD[i]), .intr (ttyRXINTR[i]), .data (ttyRXDATA[i]) ); end endgenerate // // RBUF FIFO // fifo64x11 rxfifo (.clk (clk), .rst (rst), .clken (clken), .din (), .wr (), .dout (), .rd (), .full (rxfifoFULL), .empty (rxfifoEMPTY) ); // // // reg busACKO; reg [0:35] busDATAO; always @(csrREAD or regCSR or rbufREAD or regRBUF or tcrREAD or regTCR or msrREAD or regMSR or ubaACKO or ubaDATAO) begin busACKO = 1'b0; busDATAO = 36'bx; if (csrREAD) begin busACKO = 1'b1; busDATAO = regCSR; end if (rbufREAD) begin busACKO = 1'b1; busDATAO = regRBUF; end if (tcrREAD) begin busACKO = 1'b1; busDATAO = regTCR; end if (msrREAD) begin busACKO = 1'b1; busDATAO = regMSR; end if (ubaACKO) begin busACKO = ubaACKO; busDATAO = ubaDATAO; end end endmodule rtl/uba/dz11/fifo.v0000500000175100010010000000622512061517366 12513 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! FIFO //! //! \details //! //! \todo //! //! \file //! fifo64x11.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none module fifo64x11(clk, rst, clken, din, wr, dout, rd, full, empty); input clk; // Clock input rst; // Reset input clken; // Clock enable input [0:10] din; // Data Input input wr; // Push Data into FIFO output [0:10] dout; // Data Output input rd; // Pop Data from FIFO output full; // FIFO full output empty; // FIFO empty // // Write Pointer // reg [0:5] wr_pointer; always @ (posedge clk or posedge rst) begin if (rst) wr_pointer <= 0; else if (wr) wr_pointer <= wr_pointer + 6'b1; end // // Read Pointer // reg [0:5] rd_pointer; always @ (posedge clk or posedge rst) begin if (rst) rd_pointer <= 0; else if (rd) rd_pointer <= rd_pointer + 6'b1; end // // FIFO Empty // // Details // The FIFO is empty when the read pointer is the same as // the write pointer. // assign empty = (rd_pointer == wr_pointer); // // FIFO Full // // Details // The FIFO is full when the write pointer is one behind // the read pointer. I.e., if you add another item to // the FIFO, the FIFO will indicate empty. // wire [0:6] next = wr_pointer + 1'b1; assign full = (rd_pointer == next); // // Dual Port RAM // reg [0:10] DPRAM[0:63]; reg [0:10] dout; always @(posedge clk) begin if (clken) begin if (wr) DPRAM[wr_pointer] = din; dout <= DPRAM[rd_pointer]; end end endmodule rtl/uba/dz11/uart/0000700000175100010010000000000012061535437 12345 5ustar RobNonertl/uba/dz11/uart/ascii_types.vhd0000700000175100010010000001005012061517366 15364 0ustar RobNone------------------------------------------------------------------- --! --! PDP-8 Processor --! --! \brief --! ASCII Definitions --! --! \details --! This package contains ASCII character constants. --! --! \file --! ascii_types.vhd --! --! \author --! Rob Doyle - doyle (at) cox (dot) net --! -------------------------------------------------------------------- -- -- Copyright (C) 2009, 2010, 2011, 2012 Rob Doyle -- -- This source file may be used and distributed without -- restriction provided that this copyright statement is not -- removed from the file and that any derivative work contains -- the original copyright notice and the associated disclaimer. -- -- This source file is free software; you can redistribute it -- and/or modify it under the terms of the GNU Lesser General -- Public License as published by the Free Software Foundation; -- version 2.1 of the License. -- -- This source is distributed in the hope that it will be -- useful, but WITHOUT ANY WARRANTY; without even the implied -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -- PURPOSE. See the GNU Lesser General Public License for more -- details. -- -- You should have received a copy of the GNU Lesser General -- Public License along with this source; if not, download it -- from http://www.gnu.org/licenses/lgpl.txt -- -------------------------------------------------------------------- -- -- Comments are formatted for doxygen -- library ieee; --! IEEE Library use ieee.std_logic_1164.all; --! IEEE 1164 -- --! Type definitions required for ASCII -- package ascii_types is subtype ascii_t is std_logic_vector(0 to 7); constant ascii_LF : ascii_t := x"0a"; --! CR constant ascii_CR : ascii_t := x"0d"; --! LF constant ascii_DC1 : ascii_t := x"11"; --! DC1 constant ascii_XON : ascii_t := x"11"; --! XON (^Q) constant ascii_DC3 : ascii_t := x"13"; --! DC3 constant ascii_XOFF : ascii_t := x"13"; --! XOFF (^S) constant ascii_ESC : ascii_t := x"1b"; --! ESC constant ascii_0 : ascii_t := x"30"; --! '0' constant ascii_1 : ascii_t := x"31"; --! '1' constant ascii_2 : ascii_t := x"32"; --! '2' constant ascii_3 : ascii_t := x"33"; --! '3' constant ascii_4 : ascii_t := x"34"; --! '4' constant ascii_5 : ascii_t := x"35"; --! '5' constant ascii_6 : ascii_t := x"36"; --! '6' constant ascii_7 : ascii_t := x"37"; --! '7' constant ascii_8 : ascii_t := x"38"; --! '8' constant ascii_9 : ascii_t := x"39"; --! '9' constant ascii_COLN : ascii_t := x"3a"; --! ':' constant ascii_SEMI : ascii_t := x"3b"; --! ';' constant ascii_LT : ascii_t := x"3c"; --! '<' constant ascii_EQ : ascii_t := x"3d"; --! '=' constant ascii_GT : ascii_t := x"3e"; --! '>' constant ascii_QM : ascii_t := x"3f"; --! '?' constant ascii_AT : ascii_t := x"40"; --! '@' constant ascii_A : ascii_t := x"41"; --! 'A' constant ascii_B : ascii_t := x"42"; --! 'B' constant ascii_C : ascii_t := x"43"; --! 'C' constant ascii_D : ascii_t := x"44"; --! 'D' constant ascii_H : ascii_t := x"48"; --! 'H' constant ascii_I : ascii_t := x"49"; --! 'I' constant ascii_J : ascii_t := x"4a"; --! 'J' constant ascii_K : ascii_t := x"4b"; --! 'K' constant ascii_R : ascii_t := x"52"; --! 'R' constant ascii_RBR : ascii_t := x"5b"; --! '[' constant ascii_f : ascii_t := x"66"; --! 'f' constant ascii_l : ascii_t := x"6c"; --! 'l' constant ascii_m : ascii_t := x"6d"; --! 'm' constant ascii_p : ascii_t := x"70"; --! 'p' constant ascii_s : ascii_t := x"73"; --! 's' constant ascii_st : ascii_t := x"74"; --! 't' constant ascii_u : ascii_t := x"75"; --! 'u' end ascii_types; rtl/uba/dz11/uart/demet.vhd0000700000175100010010000000457412061517366 14164 0ustar RobNone-------------------------------------------------------------------- --! --! PDP-8 Processor --! --! \brief --! This device synchronizes the input to a clock signal. --! --! \details --! TBD --! --! \file --! demet.vhd --! --! \author --! Rob Doyle - doyle (at) cox (dot) net --! -------------------------------------------------------------------- -- -- Copyright (C) 2011 Rob Doyle -- -- This source file may be used and distributed without -- restriction provided that this copyright statement is not -- removed from the file and that any derivative work contains -- the original copyright notice and the associated disclaimer. -- -- This source file is free software; you can redistribute it -- and/or modify it under the terms of the GNU Lesser General -- Public License as published by the Free Software Foundation; -- version 2.1 of the License. -- -- This source is distributed in the hope that it will be -- useful, but WITHOUT ANY WARRANTY; without even the implied -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -- PURPOSE. See the GNU Lesser General Public License for more -- details. -- -- You should have received a copy of the GNU Lesser General -- Public License along with this source; if not, download it -- from http://www.gnu.org/licenses/lgpl.txt -- -------------------------------------------------------------------- -- -- Comments are formatted for doxygen -- library ieee; --! IEEE Library use ieee.std_logic_1164.all; --! IEEE 1164 -- --! Signal Synchronization Primitive Entity -- entity eDEMET is port ( clk : in std_logic; --! Clock rst : in std_logic; --! Async Reset i : in std_logic; --! In o : out std_logic --! Out ); end eDEMET; -- --! Signal Synchronization Primitive RTL -- architecture rtl of eDEMET is signal temp : std_logic; --! Temp signal begin -- --! Synchronize input to clock signal -- pDEMET : process (clk, rst) begin if rst = '1' then temp <= '0'; o <= '0'; elsif (clk'event and clk = '1') then temp <= i; o <= temp; end if; end process pDEMET; end rtl; rtl/uba/dz11/uart/uart_brg.vhd0000700000175100010010000000757212061517366 14674 0ustar RobNone-------------------------------------------------------------------- --! --! PDP-8 Processor --! --! \brief --! UART Baud Rate Generator --! --! \details --! This is a programmable frequency divider that generates --! common baud rates. --! --! \file --! uart_brg.vhd --! --! \author --! Rob Doyle - doyle (at) cox (dot) net --! -------------------------------------------------------------------- -- -- Copyright (C) 2009, 2010, 2011, 2012 Rob Doyle -- -- This source file may be used and distributed without -- restriction provided that this copyright statement is not -- removed from the file and that any derivative work contains -- the original copyright notice and the associated disclaimer. -- -- This source file is free software; you can redistribute it -- and/or modify it under the terms of the GNU Lesser General -- Public License as published by the Free Software Foundation; -- version 2.1 of the License. -- -- This source is distributed in the hope that it will be -- useful, but WITHOUT ANY WARRANTY; without even the implied -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -- PURPOSE. See the GNU Lesser General Public License for more -- details. -- -- You should have received a copy of the GNU Lesser General -- Public License along with this source; if not, download it -- from http://www.gnu.org/licenses/lgpl.txt -- -------------------------------------------------------------------- -- -- Comments are formatted for doxygen -- library ieee; --! IEEE Library use ieee.std_logic_1164.all; --! IEEE 1164 use work.uart_types.all; --! UART Types -- --! UART Serial Interface Baud Rate Generator Entity -- entity eUART_BRG is port ( clk : in std_logic; --! Clock rst : in std_logic; --! Reset uartBR : in uartBR_t; --! Baud Rate Select clkBR : out std_logic --! Baud Rate Clock Enable ); end eUART_BRG; -- --! UART Serial Interface Baud Rate Generator RTL -- architecture rtl of eUART_BRG is constant clkfreq : integer := 50000000; constant clkdiv : integer := 16; begin -- --! Programmable Clock Divider. --! This process generates a clkBR signal that is suitable for --! use as a 16x Baud Rate clock. Both UART Transmitters and --! UART Receivers require this 16x clock. -- UART_CLKDIV : process(clk, rst) variable count : integer range 0 to 4095; begin if rst = '1' then clkBR <= '0'; count := 0; elsif rising_edge(clk) then if count = 0 then case uartBR is when uartBR1200 => -- 1,200 (-0.016%) count := clkfreq/clkdiv/1200; when uartBR2400 => -- 2,400 (-0.032%) count := clkfreq/clkdiv/2400; when uartBR4800 => -- 4,800 (-0.032%) count := clkfreq/clkdiv/4800; when uartBR9600 => -- 9,600 (+0.16%) count := clkfreq/clkdiv/9600; when uartBR19200 => -- 19,200 (+0.16%) count := clkfreq/clkdiv/19200; when uartBR38400 => -- 38,400 (+0.16%) count := clkfreq/clkdiv/38400; when uartBR57600 => -- 57,600 (+0.94%) count := clkfreq/clkdiv/57600; when uartBR115200 => -- 115,200 (+1.35%) count := clkfreq/clkdiv/115200; when others => null; end case; clkBR <= '1'; else count := count - 1; clkBR <= '0'; end if; end if; end process UART_CLKDIV; end rtl; rtl/uba/dz11/uart/uart_rx.vhd0000700000175100010010000002664312061517366 14553 0ustar RobNone-------------------------------------------------------------------- --! --! PDP-8 Processor --! --! \brief --! KL8E Generic UART Receiver --! --! \details --! The UART Receiver is hard configured for: --! - 8 data bits --! - no parity --! - 1 stop bit --! --! \note --! This UART primitive receiver is kept simple --! intentionally and is therefore unbuffered. If you --! require a double buffered UART, then you will need to --! layer a set of buffers on top of this device. --! --! \file --! uart_rx.vhd --! --! \author --! Rob Doyle - doyle (at) cox (dot) net --! -------------------------------------------------------------------- -- -- Copyright (C) 2009, 2010, 2011, 2012 Rob Doyle -- -- This source file may be used and distributed without -- restriction provided that this copyright statement is not -- removed from the file and that any derivative work contains -- the original copyright notice and the associated disclaimer. -- -- This source file is free software; you can redistribute it -- and/or modify it under the terms of the GNU Lesser General -- Public License as published by the Free Software Foundation; -- version 2.1 of the License. -- -- This source is distributed in the hope that it will be -- useful, but WITHOUT ANY WARRANTY; without even the implied -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -- PURPOSE. See the GNU Lesser General Public License for more -- details. -- -- You should have received a copy of the GNU Lesser General -- Public License along with this source; if not, download it -- from http://www.gnu.org/licenses/lgpl.txt -- -------------------------------------------------------------------- -- -- Comments are formatted for doxygen -- library ieee; --! IEEE Library use ieee.std_logic_1164.all; --! IEEE 1164 use work.ascii_types.all; --! ASCII Types use work.uart_types.all; --! UART Types -- --! KL8E Generic UART Receiver Entity -- entity eUART_RX is port ( clk : in std_logic; --! Clock rst : in std_logic; --! Reset clkBR : in std_logic; --! Clock Enable (for Baud Rate) rxd : in std_logic; --! Serial Data In intr : out std_logic; --! Data Received data : out ascii_t --! Data Output ); end eUART_RX; -- --! KL8E Generic UART Receiver RTL -- architecture rtl of eUART_RX is type state_t is (stateIdle, --! Idle stateStart, --! Working on Start Bit stateBit0, --! Working on Bit 0 stateBit1, --! Working on Bit 1 stateBit2, --! Working on Bit 2 stateBit3, --! Working on Bit 3 stateBit4, --! Working on Bit 4 stateBit5, --! Working on Bit 5 stateBit6, --! Working on Bit 6 stateBit7, --! Working on Bit 7 stateStop, --! Working on Stop Bit stateDone); --! Generate Intr signal state : state_t; --! Receiver State signal rxReg : ascii_t; --! Receiver Register signal rxdd : std_logic; --! Synchronized RXD begin -- --! Synchronize the Received Data to this clock domain. -- iDEMET : entity work.eDEMET (rtl) port map ( clk => clk, rst => rst, i => rxd, o => rxdd ); -- --! UART Receiver: --! The clkBR is 16 clocks per bit. The UART receives LSB first. --! --! The state machine is initialized to the idle state where it --! looks for a start bit. When it find the 'edge' of the start --! bit starts the state machine which does the following: --! --! -# Continuously sample the start bit for half a bit period. --! If the start bit is narrower than half a bit then, go back --! to the idle state and look for a real start bit. Othewise, --! -# Delay one bit time from the middle of the Start bit and --! sample bit D7 (LSB), then --! -# Delay one bit time from the middle of D7 and sample bit D6, then --! -# Delay one bit time from the middle of D6 and sample bit D5, then --! -# Delay one bit time from the middle of D5 and sample bit D4, then --! -# Delay one bit time from the middle of D4 and sample bit D3, then --! -# Delay one bit time from the middle of D3 and sample bit D2, then --! -# Delay one bit time from the middle of D2 and sample bit D1, then --! -# Delay one bit time from the middle of D1 and sample bit D0, then --! -# Delay one bit time from the middle of D0 and sample Stop --! Bit, then --! -# Generate INTR pulse for one clock cycle, then --! -# go back to idle state and wait for a stop bit. --! UARTRX : process(clk, rst) variable brdiv : integer range 0 to 15; begin if rst = '1' then state <= stateIdle; rxReg <= (others => '0'); brdiv := 0; elsif rising_edge(clk) then case state is -- -- Reciever is Idle -- when stateIdle => if clkBR = '1' then if rxdd = '0' then state <= stateStart; brdiv := 8; end if; end if; -- -- Receive Start Bit -- when stateStart => if clkBR = '1' then if rxdd = '0' then if brdiv = 0 then brdiv := 15; state <= stateBit7; else brdiv := brdiv - 1; end if; else state <= stateIdle; end if; end if; -- -- Receive Bit 7 (LSB) -- when stateBit7 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit6; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 6 -- when stateBit6 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit5; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 5 -- when stateBit5 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit4; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 4 -- when stateBit4 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit3; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 3 -- when stateBit3 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit2; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 2 -- when stateBit2 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit1; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 1 -- when stateBit1 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateBit0; else brdiv := brdiv - 1; end if; end if; -- -- Receive Bit 0 (MSB) -- when stateBit0 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; rxReg <= rxdd & rxReg(0 to 6); state <= stateStop; else brdiv := brdiv - 1; end if; end if; -- -- Receive Stop Bit -- when stateStop => if clkBR = '1' then if brdiv = 0 then state <= stateDone; else brdiv := brdiv - 1; end if; end if; -- -- Generate Interrupt -- when stateDone => state <= stateIdle; end case; end if; end process UARTRX; data <= rxReg; intr <= '1' when state = stateDone else '0'; end rtl; rtl/uba/dz11/uart/uart_tx.vhd0000700000175100010010000002503512061517366 14547 0ustar RobNone-------------------------------------------------------------------- --! --! PDP-8 Processor --! --! \brief --! KL8E Generic UART Transmitter --! --! \details --! The UART Transmitter is hard configured for: --! - 8 data bits --! - no parity --! - 1 stop bit --! --! To transmit a word of data, provide the data on the data --! bus and assert the 'load' input for a clock cycle. When --! the data is sent, the 'intr' output will be asserted for --! a single clock cycle. --! --! \note --! This UART primitive transmitter is kept simple --! intentionally and is therefore unbuffered. If you --! require a double buffered UART, then you will need to --! layer a set of buffers on top of this device. --! --! \file --! uart_tx.vhd --! --! \author --! Rob Doyle - doyle (at) cox (dot) net --! -------------------------------------------------------------------- -- -- Copyright (C) 2009, 2010, 2011, 2012 Rob Doyle -- -- This source file may be used and distributed without -- restriction provided that this copyright statement is not -- removed from the file and that any derivative work contains -- the original copyright notice and the associated disclaimer. -- -- This source file is free software; you can redistribute it -- and/or modify it under the terms of the GNU Lesser General -- Public License as published by the Free Software Foundation; -- version 2.1 of the License. -- -- This source is distributed in the hope that it will be -- useful, but WITHOUT ANY WARRANTY; without even the implied -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -- PURPOSE. See the GNU Lesser General Public License for more -- details. -- -- You should have received a copy of the GNU Lesser General -- Public License along with this source; if not, download it -- from http://www.gnu.org/licenses/lgpl.txt -- -------------------------------------------------------------------- -- -- Comments are formatted for doxygen -- library ieee; --! IEEE Library use ieee.std_logic_1164.all; --! IEEE 1164 use work.ascii_types.all; --! ASCII Types use work.uart_types.all; --! UART Types -- --! KL8E Generic UART Transmitter Entity -- entity eUART_TX is port ( clk : in std_logic; --! Clock rst : in std_logic; --! Reset clkBR : in std_logic; --! Clock Enable (for Baud Rate) data : in ascii_t; --! Data Input load : in std_logic; --! Load Data intr : out std_logic; --! Interrupt txd : out std_logic --! Serial Data Out ); end eUART_TX; -- --! KL8E Generic UART Transmitter RTL -- architecture rtl of eUART_TX is type state_t is (stateIdle, --! Idle stateStart, --! Working on Start Bit stateBit0, --! Working on Bit 0 stateBit1, --! Working on Bit 1 stateBit2, --! Working on Bit 2 stateBit3, --! Working on Bit 3 stateBit4, --! Working on Bit 4 stateBit5, --! Working on Bit 5 stateBit6, --! Working on Bit 6 stateBit7, --! Working on Bit 7 stateStop1, --! Working on Stop Bit stateDone); --! Generate Interrupt signal state : state_t; --! Transmitter State signal txReg : ascii_t; --! Transmitter Register begin -- --! UART Transmitter: --! --! The clkBR is 16 clocks per bit. The UART transmits LSB first. --! --! When the load input is asserted, the data is loaded into the --! Transmit Register and the state machine is started. --! --! Once the state machine is started, it proceeds as follows: --! -# Send Start Bit, then --! -# Send bit 7 (LSB) --! -# Send bit 6 --! -# Send bit 5 --! -# Send bit 4 --! -# Send bit 3 --! -# Send bit 2 --! -# Send bit 1 --! -# Send bit 0 (MSB) --! -# Send Stop Bit 1 --! -# Send Stop Bit 2 --! -# Trigger Interrupt output -- UARTTX : process(clk, rst) variable brdiv : integer range 0 to 15; begin if rst = '1' then brdiv := 0; txReg <= (others => '0'); state <= stateIdle; elsif rising_edge(clk) then case state is -- -- Transmitter is sitting idle -- when stateIdle => if load = '1' then brdiv := 15; txReg <= data; state <= stateStart; end if; -- -- Sending Start Bit -- when stateStart => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit7; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 7 (LSB) -- when stateBit7 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit6; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 6 -- when stateBit6 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit5; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 5 -- when stateBit5 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit4; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 4 -- when stateBit4 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit3; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 3 -- when stateBit3 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit2; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 2 -- when stateBit2 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit1; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 1 -- when stateBit1 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateBit0; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit 0 -- when stateBit0 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateStop1; else brdiv := brdiv - 1; end if; end if; -- -- Sending Bit Stop Bit 1 -- when stateStop1 => if clkBR = '1' then if brdiv = 0 then brdiv := 15; state <= stateDone; else brdiv := brdiv - 1; end if; end if; -- -- Done State. Trigger Interrupt output. -- when stateDone => state <= stateIdle; end case; end if; end process UARTTX; -- -- Data selector for TXD -- with state select txd <= '1' when stateIdle, '0' when stateStart, txReg(7) when stateBit7, txReg(6) when stateBit6, txReg(5) when stateBit5, txReg(4) when stateBit4, txReg(3) when stateBit3, txReg(2) when stateBit2, txReg(1) when stateBit1, txReg(0) when stateBit0, '1' when stateStop1, '1' when others; -- -- Interrupt -- intr <= '1' when state = stateDone else '0'; end rtl; rtl/uba/dz11/uart/uart_types.vhd0000700000175100010010000000616312061517366 15261 0ustar RobNone------------------------------------------------------------------- --! --! PDP-8 Processor --! --! \brief --! UART Interface Type Definitions --! --! \details --! This package contains all the type information that is --! required to use and UART-based Serial Interface device. --! --! The UART-based devices are: --! -# KL8E Serial Interface (TTY1 and TTY2) --! -# PR8E Serial Line Printer (LPR) --! -# PR8E Interface to Serial Paper Tape Reader --! --! \file --! uart_types.vhd --! --! \author --! Rob Doyle - doyle (at) cox (dot) net --! -------------------------------------------------------------------- -- -- Copyright (C) 2009, 2010, 2011, 2012 Rob Doyle -- -- This source file may be used and distributed without -- restriction provided that this copyright statement is not -- removed from the file and that any derivative work contains -- the original copyright notice and the associated disclaimer. -- -- This source file is free software; you can redistribute it -- and/or modify it under the terms of the GNU Lesser General -- Public License as published by the Free Software Foundation; -- version 2.1 of the License. -- -- This source is distributed in the hope that it will be -- useful, but WITHOUT ANY WARRANTY; without even the implied -- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -- PURPOSE. See the GNU Lesser General Public License for more -- details. -- -- You should have received a copy of the GNU Lesser General -- Public License along with this source; if not, download it -- from http://www.gnu.org/licenses/lgpl.txt -- -------------------------------------------------------------------- -- -- Comments are formatted for doxygen -- library ieee; use ieee.std_logic_1164.all; -- --! Type definitions required for UARTS -- package uart_types is -- -- Baud Rate Select -- subtype uartBR_t is std_logic_vector(0 to 3); --! Baud Rate Configuration type constant uartBR1200 : uartBR_t := "0000"; --! 1200 Baud constant uartBR2400 : uartBR_t := "0001"; --! 2400 Baud constant uartBR4800 : uartBR_t := "0010"; --! 4800 Baud constant uartBR9600 : uartBR_t := "0011"; --! 9600 Baud constant uartBR19200 : uartBR_t := "0100"; --! 19200 Baud constant uartBR38400 : uartBR_t := "0101"; --! 38400 Baud constant uartBR57600 : uartBR_t := "0110"; --! 57600 Baud constant uartBR115200 : uartBR_t := "0111"; --! 115200 Baud -- -- Handshaking Select -- subtype uartHS_t is std_logic_vector(0 to 1); --! Handshaking type constant uartHSnone : uartHS_t := "00"; --! No handshaking constant uartHShw : uartHS_t := "01"; --! Hardware handshaking constant uartHSsw : uartHS_t := "10"; --! Software (XON/XOFF) handshaking constant uartHSres : uartHS_t := "11"; --! Reserved end uart_types; rtl/uba/lp20/0000700000175100010010000000000012042650002 11351 5ustar RobNonertl/uba/rh11/0000700000175100010010000000000012042647136 11365 5ustar RobNonertl/uba/uba.v0000700000175100010010000003161012061517366 11556 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Unibus Adapter //! //! \details //! Important addresses: //! //! 763000-763077 : UBA paging RAM //! 763100 : UBA Status Register //! 763101 : UBA Maintenace Register //! //! \todo //! //! \file //! uba.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // `default_nettype none module UBA(clk, rst, clken, ubaDEV, ubaVECT, ubaWRU, ubaINTR, ubaINTA, ubaRESET, busREQI, busREQO, busACKI, busACKO, busADDRI, busADDRO, busDATAI, busDATAO, busINTR, ubaADDRI, pageVALID, forceRPW, fastMODE, enable16 ); input clk; // Clock input rst; // Reset input clken; // Clock enable input [ 0: 3] ubaDEV; // Unibus Device Number input [18:35] ubaVECT; // Unibus Interrupt Vector input [18:35] ubaWRU; // Unibus WRU Response input [ 7: 4] ubaINTR; // Interrupt Request output [ 7: 4] ubaINTA; // Interrupt Acknowledge output ubaRESET; // Reset Command Output input busREQI; // Unibus Request In output busREQO; // Unibus Request Out input busACKI; // Unibus Acknowledge In output busACKO; // Unibus Acknowledge Out input [ 0:35] busADDRI; // Bus Address In output [ 0:35] busADDRO; // Bus Address Out input [ 0:35] busDATAI; // Unibus Data In output [ 0:35] busDATAO; // Unibus Data Out output [ 1: 7] busINTR; // Unibus Interrupt Request input [17: 0] ubaADDRI; // Unpaged Unibus Address (little endian) output pageVALID; // Page Valid output forceRPW; // Force RPW output fastMODE; // fastMODE output enable16; // enable16 // // Addresses // parameter [18:29] pageADDR = 12'o7630; // Paging RAM Address parameter [18:35] statADDR = 18'o763100; // Status Register Address parameter [18:35] maintADDR = 18'o763101; // Maintenance Register Address // // Memory flags // // Details: // busADDRI[ 0:13] is flags // busADDRI[14:35] is address // wire busREAD = busADDRI[ 3]; // 1 = Read Cycle (IO or Memory) wire busWRITE = busADDRI[ 5]; // 1 = Write Cycle (IO or Memory) wire busIO = busADDRI[10]; // 1 = IO Cycle, 0 = Memory Cycle1 wire busWRU = busADDRI[11]; // 1 = Read interrupt controller number wire busVECT = busADDRI[12]; // 1 = Read interrupt vector wire busIOBYTE = busADDRI[13]; // 1 = Unibus Byte IO Operation wire busPI = busADDRI[15:17]; // Unibus PI Request wire [14:17] busDEV = busADDRI[14:17]; // Unibus Device Number wire [18:35] busADDR = busADDRI[18:35]; // Address // // Address Decoding // wire pageREAD = busIO & busREAD & (busDEV == ubaDEV) & (busADDR == pageADDR); wire pageWRITE = busIO & busWRITE & (busDEV == ubaDEV) & (busADDR == pageADDR); wire statWRITE = busIO & busWRITE & (busDEV == ubaDEV) & (busADDR == statADDR); wire statREAD = busIO & busREAD & (busDEV == ubaDEV) & (busADDR == statADDR); wire vectREAD = busIO & busREAD & (busDEV == ubaDEV) & busVECT; wire wruREAD = busWRU & busREAD; // // Unibus Reset // wire ubaRESET; // // Inputs from Unibus Devices // wire setNXM = 1'b0; wire setNXD = 1'b0; // // // Trace // UBA3/E8 // wire statINTHI = intREQ[7] | intREQ[6]; wire statINTLO = intREQ[5] | intREQ[4]; // // Unibus Interrupt Request // wire vectREQ = 1'b0; reg [7:4] intREQ; always @(posedge clk or posedge rst) begin if (rst) intREQ <= 4'b0; else if (vectREQ) intREQ <= ubaINTR; end // // Low Priority Interrupt // // Trace // UBA3/E180 // reg [1:7] ubaINTRH; always @(statINTHI or statPIH) begin if (statINTHI) case (statPIH) 0: ubaINTRH <= 7'b0000000; 1: ubaINTRH <= 7'b1000000; 2: ubaINTRH <= 7'b0100000; 3: ubaINTRH <= 7'b0010000; 4: ubaINTRH <= 7'b0001000; 5: ubaINTRH <= 7'b0000100; 6: ubaINTRH <= 7'b0000010; 7: ubaINTRH <= 7'b0000001; endcase else ubaINTRH <= 7'b0000000; end // // High Priority Interrupt // // Trace // UBA3/E182 // reg [1:7] ubaINTRL; always @(statINTLO or statPIL) begin if (statINTLO) case (statPIL) 0: ubaINTRL <= 7'b0000000; 1: ubaINTRL <= 7'b1000000; 2: ubaINTRL <= 7'b0100000; 3: ubaINTRL <= 7'b0010000; 4: ubaINTRL <= 7'b0001000; 5: ubaINTRL <= 7'b0000100; 6: ubaINTRL <= 7'b0000010; 7: ubaINTRL <= 7'b0000001; endcase else ubaINTRL <= 7'b0000000; end // // Unibus Interrupt Request // // Trace // UBA3/E179 // UBA3/E181 // assign busINTR = ubaINTRL | ubaINTRH; // // Unibus Interrupt Acknowledge // // Trace // UBA7/E27 // UBA7/E39 // UBA7/E53 // UBA7/E113 // UBA7/E184 // UBA7/E185 // reg [7:4] ubaINTA; always @(posedge clk or posedge rst) begin if (rst) ubaINTA = 4'b0; else begin if (wruREAD & statINTHI & (busPI == statPIH)) begin if (intREQ[7]) ubaINTA = 4'b1000; else if (intREQ[6]) ubaINTA = 4'b0100; else ubaINTA = 4'b0000; end else if (wruREAD & statINTLO & (busPI == statPIL)) begin if (intREQ[5]) ubaINTA = 4'b0010; else if (intREQ[4]) ubaINTA = 4'b0001; else ubaINTA = 4'b0000; end else ubaINTA = 4'b0000; end end // // Unibus Status Register (IO Address 763100) // // Details: // // 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // (LH) | | // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // // 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // (RH) |TM|BM|PE|ND| |HI|LO|PF| |DX|IN| PIH | PIL | // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // // Register Definitions // // NM : Time Out - Set by NXM. Cleared by // writing a 1. // BM : Bad Memory Data - Always read as 0. Writes // are ignored. // PE : Bus Parity Error - Always read as 0. Writes // are ignored. // ND : Non-existant Device - Set by NXD. Cleared by // writing a 1. // HI : Hi level intr pend - IRQ on BR7 or BR6. Writes // are ignored. // LO : Lo level intr pend - IRQ on BR5 or BR4. Writes // are ignored. // PF : Power Fail - Always read as 0. Writes // are ignored. // DX : Diable Transfer - Read/Write. Does nothing. // IN : Initialize - Always read as 0. Writing // 1 resets all Unibus Devices. // PIH : Hi level PIA - R/W // PIL : Lo level PIA - R/W // reg statNM; reg statND; reg statDX; reg [0:2] statPIH; reg [0:2] statPIL; always @(posedge clk or posedge rst) begin if (rst) begin statNM <= 1'b0; statND <= 1'b0; statDX <= 1'b0; statPIH <= 3'b0; statPIL <= 3'b0; end else if (clken) begin if (statWRITE) begin statNM <= statNM & ~busDATAI[18]; statND <= statND & ~busDATAI[21]; statDX <= busDATAI[28]; statPIH <= busDATAI[30:32]; statPIL <= busDATAI[33:35]; end else begin statNM <= statNM | setNXM; statND <= statNM | setNXD; end end end wire [0:35] regSTAT = {18'b0, statNM, 2'b0, statND, 2'b0, statINTHI, statINTLO, 2'b0, statDX, 1'b0, statPIH, statPIL}; assign ubaRESET = statWRITE & busADDRI[29]; // // Unibus Maintenance Register (IO Address 763101) // // Details // SIMH reads this register as zero always and ignores writes. // // 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // (LH) | | // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // // 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // (RH) | |CR| // +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ // // // CR : Change Register - Always read as 0. Writes // are ignored. // // // Unibus Pager // // Details // Unibus Paging RAM is 763000 - 763077 // wire [ 0:35] pagDATAO; // Paging RAM to KS10 Data wire [16:35] pagADDRO; // Pager output UBAPAG uUBAPAG (.clk(clk), .rst(rst), .pagWRITE(pageWRITE), .busADDRI(busADDRI), .busDATAI(busDATAI), .pagDATAO(pagDATAO), .ubaADDRI(ubaADDRI), .pagADDRO(pagADDRO), .pagVALID(pageVALID), .forceRPW(forceRPW), .enable16(enable16), .fastMode(fastMODE) ); // // BUS MUX // reg busACKO; reg [0:35] busDATAO; always @(pageREAD or pagDATAO or statREAD or regSTAT or vectREAD or ubaVECT or wruREAD or ubaWRU) begin busACKO = 1'b0; busDATAO = 36'bx; if (pageREAD) begin busACKO = 1'b1; busDATAO = pagDATAO; end if (statREAD) begin busACKO = 1'b1; busDATAO = regSTAT; end if (vectREAD) begin busACKO = 1'b1; busDATAO = {18'b0, ubaVECT}; end if (wruREAD) begin busACKO = 1'b1; busDATAO = {18'b0, ubaWRU}; end end // // Bus Request // assign busREQO = 0; endmodule rtl/uba/ubapag.v0000700000175100010010000001503412061517366 12250 0ustar RobNone//////////////////////////////////////////////////////////////////// //! //! KS-10 Processor //! //! \brief //! KS-10 Unibus Paging //! //! \details //! The page table translates Unibus addresses to phyical //! addresses. There are 64 virtual pages which map to 2048 //! physical pages. //! //! 17 16 11 10 2 1 0 //! +-+--------------------+--------------------+-+-+ //! |0| Virtual Page Number| Word Number |W|B| //! +-+--------------------+--------------------+-+-+ //! |6 |9 //! | | //! \ / | //! +-------+-------+ | //! | Page | | //! | Translation | | //! +-------+-------+ | //! | | //! | | //! \ /11 \ /9 //! +------------------------+------------------------+ //! | Physical Page Number | Word Number | //! +------------------------+------------------------+ //! 16 26 27 35 //! //! //! Paging RAM Write //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) | | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) |FR|ES|FM|VA| 0| 0| 0| PPN | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! //! Paging RAM Read //! //! 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (LH) | | 0|FR|ES|FM|VA| | PPN | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! (RH) | PPN (cont) | | //! +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ //! //! Paging RAM Definitions //! //! FR : Force Read-Pause-Write (AKA Read Reverse in the //! documents). //! ES : Enable 16-bit Unibus Transfers. Disable 18-bit //! Unibus transfers. //! FM : Fast Transfer Mode. In this mode, both odd and //! even words of Unibus data are transferred during //! a single KS10 memory operation (i.e., all 36 bits). //! VA : Page valid. This bit is set to one when the page //! data is loaded. //! PPN : Physical Page Number. //! //! \todo //! //! \file //! ubapag.v //! //! \author //! Rob Doyle - doyle (at) cox (dot) net //! //////////////////////////////////////////////////////////////////// // // Copyright (C) 2012 Rob Doyle // // This source file may be used and distributed without // restriction provided that this copyright statement is not // removed from the file and that any derivative work contains // the original copyright notice and the associated disclaimer. // // This source file is free software; you can redistribute it // and/or modify it under the terms of the GNU Lesser General // Public License as published by the Free Software Foundation; // version 2.1 of the License. // // This source is distributed in the hope that it will be // useful, but WITHOUT ANY WARRANTY; without even the implied // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR // PURPOSE. See the GNU Lesser General Public License for more // details. // // You should have received a copy of the GNU Lesser General // Public License along with this source; if not, download it // from http://www.gnu.org/licenses/lgpl.txt // //////////////////////////////////////////////////////////////////// // // Comments are formatted for doxygen // module UBAPAG(clk, rst, pagWRITE, busADDRI, busDATAI, pagDATAO, ubaADDRI, pagADDRO, pagVALID, forceRPW, enable16, fastMode); input clk; // Clock input rst; // Reset input pagWRITE; // Write to Paging RAM input [ 0:35] busADDRI; // KS10 Address to Paging RAM input [ 0:35] busDATAI; // KS10 Data to Paging RAM output [ 0:35] pagDATAO; // Paging RAM to KS10 Data input [17: 0] ubaADDRI; // Unpaged Unibus Address (little endian) output [16:35] pagADDRO; // Paging RAM to KS10 Addr output pagVALID; // Page Valide output forceRPW; // Force Read/Pause/Write output enable16; // Enable 16-bit transfers output fastMode; // Fast Mode // // Paging RAM // // Details // The Unibus Paging RAM is 64x15 bits. // // The implementation is different than the KS10 implementation. // I have chosen to use a Dual Port RAM which allows the KS10 bus // interface to be implemented on one port (Read/Write) and the // Unibus Paging to be implemented on the second port (Read-only). // // This saves a whole ton of multiplexers and uses some free DPRAM. // // Note // Unibus Paging RAM parity is not implemented. // // KS10 write to Paging RAM // wire [0: 5] addr = busADDRI[30:35]; reg [0:14] pagRAM[0:63]; always @(negedge clk) begin if (pagWRITE) pagRAM[addr] <= {busDATAI[18:21], busDATAI[25:35]}; end // // KS10 readback of Paging RAM // assign pagDATAO = {5'b0, pagRAM[addr][0:3], 7'b0, pagRAM[addr][4:14], 9'b0}; // // Unibus Paging // // Note // See figure in file header for additional information on paging. // // Unibus addresses are little-endian. // wire [0:5] vpn = ubaADDRI[16:11]; // Virtual Page Number assign forceRPW = pagRAM[vpn][0]; assign enable16 = pagRAM[vpn][1]; assign fastMode = pagRAM[vpn][2]; assign pagVALID = pagRAM[vpn][3]; assign pagADDRO = {pagRAM[vpn][4:14], ubaADDRI[10:2]}; endmodule rtl/MAINDEC-10-DSKCC.txt 444 0 0 2570144 12061677222 12231 0ustar 0 0 ;DSKCC IDENTIFICATION -------------- PRODUCT CODE: AH-E329A-DD DIAGNOSTIC CODE: DSKCC PRODUCT NAME: DSKCCA0 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (3) VERSION: 0.1 DATE RELEASED: MARCH 1978 MAINTAINED BY: DIAGNOSTIC ENGINEERING AUTHOR: JOHN R. KIRCHOFF COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT CORPORATION. THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL EQUIPMENT CORPORATION. MAINDEC-10-DSKCC.TXT PAGE 2 SEQ 0003 TABLE OF CONTENTS ----------------- 1.0 ABSTRACT 2.0 REQUIREMENTS 2.1 EQUIPMENT 2.2 STORAGE 2.3 PRELIMINARY PROGRAMS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE 3.2 STARTING PROCEDURE 3.3 OPERATING PROCEDURE 4.0 DATA SWITCH FUNCTIONS 5.0 ERRORS 6.0 ITERATION COUNTER 7.0 CYCLE TIME 8.0 OPERATIONAL VARIATIONS 9.0 MISCELLANEOUS 10.0 LISTING MAINDEC-10-DSKCC.TXT PAGE 3 SEQ 0004 1.0 ABSTRACT THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE THIRD IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR DIAGNOSTICS. THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR AND MICRO-CODE FLOATING POINT INSTRUCTIONS: FIX, FIXR, FLTR. IT ALSO TEST THE DOUBLE PRECISION MOVES: DMOVE, DMOVN, DMOVEM AND DMOVNM. 2.0 REQUIREMENTS 2.1 EQUIPMENT A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY CONSOLE PROCESSOR CONSOLE TELETYPE LOAD DEVICE 2.2 STORAGE THE PROGRAM RUNS WITHIN 32K OF MEMORY. 2.3 PRELIMINARY PROGRAMS PREVIOUS PROCESSOR DIAGNOSTICS 3.0 PROGRAM PROCEDURES 3.1 LOADING PROCEDURE ****** NOTE ****** THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE PROGRAM BE RESIDENT IN THE DECSYSTEM 2020. FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES. MAINDEC-10-DSKCC.TXT PAGE 4 SEQ 0005 3.2 STARTING PROCEDURE A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO 4.0 DATA SWITCH FUNCTIONS). RUN UNDER "SMMON". THE FOLLOWING QUESTIONS WILL BE ASKED TO SELECT THE OPERATIONAL SWITCHES: TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) - IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS ARE ASKED AND THE OPERATOR RESPONDS BY TYPING THE ANSWER AS SIX OCTAL DIGITS REPRESENTING THE DESIRED SWITCH SETTINGS. SPECIFY LH SWITCHES IN OCTAL- SPECIFY RH SWITCHES IN OCTAL- IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR THE SWITCH SETTINGS. IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES ARE USED. THIS IS ONLY VALID UPON RESTARTING OF AN INTERRUPTED PROGRAM. MAINDEC-10-DSKCC.TXT PAGE 5 SEQ 0006 3.3 OPERATING PROCEDURE A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA SWITCHES SHOULD BE SET TO 0. B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING. THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT TO BE ISOLATED AND REPLACED AND/OR REPAIRED. C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'. THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH SETTINGS FOR DEBUGGING PURPOSES. D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING ERRORS ON THE LINE PRINTER. E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT BUT HALT THE PROGRAM POINTING TO THE ERROR. MAINDEC-10-DSKCC.TXT PAGE 6 SEQ 0007 4.0 DATA SWITCH FUNCTIONS SWITCH STATE FUNCTION ------ ----- -------- 0 ABORT 0 NORMAL OPERATION 1 ABORT AT END OF PASS 1 RSTART NOT USED 2 TOTALS NOT USED 3 NOPNT 0 NORMAL TYPEOUT 1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED) 4 PNTLPT 0 NORMAL OUTPUT TO TTY 1 PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 5 DING 0 NO FUNCTION 1 RING TTY BELL ON ERROR 6 LOOPER 0 PROCEED TO NEXT TEST 1 ENTER SCOPE LOOP ON TEST ERROR 7 ERSTOP 0 NO FUNCTION 1 HALT ON TEST ERROR 8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING 1 PRINT ALL ERRORS, EVEN IF SAME ERROR 9 RELIAB NOT USED 10 TXTINH 0 PRINT FULL ERROR MESSAGES. 1 INHIBIT COMMENT PORTION OF ERROR MESSAGES. 11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE 1 INHIBIT PAGING AND TRAPPING 12 MODDVC NOT USED 13 INHCSH 0 ALLOW CACHE USE 1 INHIBIT CACHE MAINDEC-10-DSKCC.TXT PAGE 7 SEQ 0008 5.0 ERRORS ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR NUMBER AND THE CONTENTS OF AN APPLICABLE AC. THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING. THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY BE MADE AT SOME FUTURE DATE. IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET. 6.0 ITERATION COUNTER THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE CONSOLE PROCESSOR. 7.0 CYCLE TIME THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS, ETC. MAINDEC-10-DSKCC.TXT PAGE 8 SEQ 0009 8.0 OPERATIONAL VARIATIONS A. DIAGNOSTIC MONITOR THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE PROGRAM IS USED IN THIS MANNER. THEY ARE: 1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM AND STARTS IT AT LOCATION 30002. 2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR CONTROL WORD. LH = 0, STAND-ALONE OPERATION -1, RUNNING UNDER DIAGNOSTIC MONITOR RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER DIAGNOSTIC MONITOR CONTROL. B. USER MODE TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING OUTPUT FILE IS 'DSKCC.LPT' EXAMPLE DEVICE ASSIGNMENT: .ASSIGN DSK DEV IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN RETURN TO DIAMON COMMAND MODE. MAINDEC-10-DSKCC.TXT PAGE 9 SEQ 0010 8.0 OPERATIONAL VARIATIONS (CON'T) THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.). IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' COMMAND. C. SYSTEM EXERCISER START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN 'SWTEXR' LOC 30023. 9.0 MISCELLANEOUS THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET (0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE. 10.0 LISTING HISTORY FILE FOR DSKCC SEQ 0011 ---------------------- --------------------------------------------------------------- CODE: MAINDEC-10-DSKCC TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (3) VERSION: 0.1 DATE: MARCH 1978 REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10. --------------------------------------------------------------- DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1 DSKCCT MAC 29-Mar-78 11:34 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012 1 ;MAINDEC-10-DSKCC 2 3 000000 MCNVER=0 4 000001 DECVER=1 5 6 XLIST 7 LIST 8 LALL 9 10 NAME \MCNVER,\DECVER^ 11 12 TITLE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 ^ 13 14 XALL 15 16 ;COPYRIGHT 1978 17 ;DIGITAL EQUIPMENT CORPORATION 18 ;MARLBORO, MASS. 01752 19 20 ;JOHN R. KIRCHOFF 21 22 000137 LOC 137 23 000137 000000 000001 MCNVER,,DECVER 24 NOSYM DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0013 25 SUBTTL DIAGNOSTIC PARAMETERS 26 27 ;OPERATOR DEFINITIONS 28 29 001000 000000 OPDEF ER1 [1B8] 30 002000 000000 OPDEF ER2 [2B8] 31 003000 000000 OPDEF ER3 [3B8] 32 004000 000000 OPDEF ER4 [4B8] 33 005000 000000 OPDEF ER5 [5B8] 34 006000 000000 OPDEF ER6 [6B8] 35 007000 000000 OPDEF ER7 [7B8] 36 010000 000000 OPDEF ER10 [10B8] 37 011000 000000 OPDEF ER11 [11B8] 38 012000 000000 OPDEF ER12 [12B8] 39 013000 000000 OPDEF ER13 [13B8] 40 41 036503 LUUO1==ERRMES 42 036503 LUUO2==ERRMES 43 036503 LUUO3==ERRMES 44 036503 LUUO4==ERRMES 45 036503 LUUO5==ERRMES 46 036503 LUUO6==ERRMES 47 036503 LUUO7==ERRMES 48 036503 LUUO10==ERRMES 49 036503 LUUO11==ERRMES 50 036503 LUUO12==ERRMES 51 036503 LUUO13==ERRMES 52 53 ;SUBROUTINE ASSEMBLY DEFINITIONS 54 55 000100 DEBUG=100 56 000001 EXCASB=1 57 000001 USRASB=1 58 000001 PGMEND=1 59 000001 ERDIAG=1 60 000001 EROLD=1 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0014 61 ;MACROS 62 63 DEFINE SAVEAC (A,B)< 64 MOVEI AC+2,. 65 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC 66 MOVEI AC+2,&17 ;INFORM ERROR ROUTINE WHICH 67 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION> 68 69 ;BEGIN ASSEMBLY PARAMETERS 70 71 030000 SADR1=BEGIN 72 030076 SADR2=RESRT1 73 030600 SADR3=RENTR1 74 030007 SADR4=SRTDDT 75 030061 SADR5=$BEND2 76 030000 SADR6=BEGIN 77 254200 030000 SADR7=HALT BEGIN 78 254200 030000 SADR8=HALT BEGIN 79 254200 030000 SADR9=HALT BEGIN 80 254200 030000 SADR10=HALT BEGIN 81 254200 030000 SADR11=HALT BEGIN 82 83 000000 PAREA1=0 84 000000 PAREA2=0 85 446353 434300 PAREA3=SIXBIT/DSKCC/ 86 546064 000000 PAREA4=SIXBIT/LPT/ 87 000000 PAREA5=0 88 000000 PAREA6=0 89 90 000001 ITERAT=1 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0015 91 DEFINE DMVE (L,A,B,C,D) < 92 ;THIS MACRO TESTS THE DMOVE INSTRUCTION 93 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 94 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 95 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION. 96 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS 97 ;[XWD A,B] AND [XWD C,D], RESPECTIVELY. THE TEST PASSES IF THESE 98 ;COMPARISONS AGREE. 99 100 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS 101 MOVE AC+6,[XWD C,D] ;FOR COMPARISON 102 MOVE AC,[XWD 707070,707070] 103 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 104 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D 105 XWD C,D] ;FROM MEMORY TO AC, AC+1 106 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 107 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B 108 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 109 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = C,D 110 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> 111 112 113 DEFINE DMVE17 (L,T,A,B,C,D) < 114 ;THIS MACRO TESTS THE DMOVE INSTRUCTION 115 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 116 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 117 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION. 118 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST 119 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 120 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 121 122 Q'T'0: MOVEM AC,%SV17# ;SAVE AC17 123 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS 124 MOVE AC+6,[XWD C,D] ;FOR COMPARISON 125 MOVE AC,[XWD 707070,707070] 126 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 127 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D 128 XWD C,D] ;FROM MEMORY TO AC, AC+1 129 Q'T'3: CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 130 JRST .+4 ;HERE IF NO ERROR 131 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS 132 MOVE AC,%SV17 ;RESTORE P 133 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B 134 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 135 JRST .+4 ;HERE IF NO ERROR 136 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD 137 MOVE AC,%SV17 ;RESTORE P 138 ER4 AC-1,L'2 139 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 140 JUMPL SAC,Q'T'0 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0016 141 DEFINE DMVN (L,A,B,C,D) < 142 ;THIS MACRO TESTS THE DMOVN INSTRUCTION 143 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 144 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 145 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA 146 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED 147 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST 148 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 149 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 150 151 Q'L'0: DMOVE AC,[XWD 707070,707070 152 XWD 070707,070707] ;INITIALIZE AC,AC+1 153 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON 154 IFIDN <0,0>,< 155 SETZ AC+6, 156 ADDI AC+5,1 > 157 IFIDN <400000,0>,< 158 SETZ AC+6, 159 ADDI AC+5,1 > 160 IFDIF <0,0>,< 161 IFDIF <400000,0>,< 162 MOVN AC+6,[XWD C,D] 163 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 164 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ; 165 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1 166 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 167 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B 168 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 169 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D 170 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0017 171 DEFINE DMVN17 (L,A,B,C,D) < 172 ;THIS MACRO TESTS THE DMOVN INSTRUCTION 173 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS. 174 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 175 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA 176 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED 177 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST 178 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 179 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 180 181 Q'L'0: MOVEM AC,%SV17 ;SAVE P 182 DMOVE AC,[XWD 707070,707070 183 XWD 070707,070707] ;INITIALIZE AC,AC+1 184 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON 185 IFIDN <0,0>,< 186 SETZ AC+6, 187 ADDI AC+5,1 > 188 IFIDN <400000,0>,< 189 SETZ AC+6, 190 ADDI AC+5,1 > 191 IFDIF <0,0>,< 192 IFDIF <400000,0>,< 193 MOVN AC+6,[XWD C,D] 194 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 195 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ; 196 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1 197 CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 198 JRST .+4 ;HERE IF TESTS OK 199 MOVEM AC,AC-1 ;SAVE BAD WORD 200 MOVE AC,%SV17 ;RESTORE P 201 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B 202 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 203 JRST .+4 ;HERE IF TESTS OK 204 MOVEM AC,AC-1 205 MOVE AC,%SV17 ;RESTORE P 206 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D 207 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY 208 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0018 209 DEFINE DMVNF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) < 210 ;**KS10** 211 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 212 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 213 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 214 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 215 216 ;**KL10** 217 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 218 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 219 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 220 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 221 222 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 223 DMOVN AC+1,[XWD A,B ;*DMOVN TEST 224 XWD C,D] 225 JSP AC,.+1 ;READ FLAGS 226 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK 227 TLNE AC,USERF ;IN USER MODE ? 228 JRST Q'L'4 ;YES 229 SKIPN SM10 ;KL10 ? 230 JRST Q'L'3 ;YES 231 ;KS10 EXEC MODE 232 CAME AC,[KSEF,,Q'L'1] 233 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 234 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH 235 JRST Q'L'6 236 ;KL10 EXEC MODE 237 Q'L'3: CAME AC,[KLEF,,Q'L'1] 238 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 239 JRST Q'L'2 240 ;KL10/KS10 USER MODE 241 Q'L'4: SKIPN SM10 ;KL10 ? 242 JRST Q'L'5 ;YES 243 ;KS10 USER MODE 244 CAME AC,[KSUF,,Q'L'1] 245 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 246 JRST Q'L'2 247 ;KL10 USER MODE 248 Q'L'5: CAME AC,[KLUF,,Q'L'1] 249 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 250 JRST Q'L'2 251 252 Q'L'6: JRST .+1> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 8 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0019 253 DEFINE DMVM (L,A,B,C,D) < 254 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION 255 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 256 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS. 257 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 258 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA 259 ;THE DMOVEM INSTRUCTION. C(TSTWD) AND C(TSTWD+1) ARE THEN 260 ;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 261 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 262 263 Q'L'0: DMOVE AC,[XWD 707070,707070 264 XWD 070707,070707] ;INITIALIZE TEST WORDS 265 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 266 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 267 DMOVE AC,[XWD A,B 268 XWD C,D] ;INITIALIZE AC,AC+1 269 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 270 ;TO MEMORY (TSTWD, TSTWD+1) 271 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 272 CAME AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY? 273 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B 274 CAME AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY? 275 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D 276 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> 277 278 DEFINE DMVNM (L,A,B,C,D) < 279 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION 280 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 281 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS. 282 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 283 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY 284 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION. 285 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE 286 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST 287 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 288 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 289 290 Q'L'0: DMOVE AC,[XWD 707070,707070 291 XWD 070707,070707] 292 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 293 DMOVE AC,[XWD A,B 294 XWD C,D] ;INITIALIZE AC,AC+1 295 DMOVN AC+5,[XWD A,B 296 XWD C,D] ;SET-UP TO CHECK RESULTS 297 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 298 ;TO MEMORY (TSTWD, TSTWD+1) 299 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 300 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 301 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B 302 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 303 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D 304 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 9 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0020 305 DEFINE DMVM17 (L,A,B,C,D) < 306 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION 307 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 308 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS. 309 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED 310 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION. 311 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST 312 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 313 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 314 315 Q'L'0: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP 316 DMOVE AC,[XWD 707070,707070 317 XWD 070707,070707] ;INITIALIZE TEST WORDS 318 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 319 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 320 DMOVE AC,[XWD A,B 321 XWD C,D] ;INITIALIZE AC,AC+1 322 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 323 ;TO MEMORY (TSTWD, TSTWD+1) 324 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 325 CAMN AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY? 326 JRST .+4 ;HERE IF TESTS OK 327 MOVEM AC,AC-1 ;SAVE BAD WORD 328 MOVE AC,%SV17 ;RESTORE P 329 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B 330 CAMN AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY? 331 JRST .+4 ;HERE IF TESTS OK 332 MOVEM AC,AC-1 ;SAVE BAD WORD 333 MOVE AC,%SV17 ;RESTORE P 334 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D 335 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 336 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 10 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0021 337 DEFINE DMVNM17 (L,A,B,C,D) < 338 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION 339 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE 340 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS. 341 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY 342 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY 343 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION. 344 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE 345 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST 346 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY. 347 ;THE TEST PASSES IF THESE COMPARISONS AGREE. 348 349 Q'L'0: DMOVE AC,[XWD 707070,707070 350 XWD 070707,070707] 351 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 352 DMOVE AC,[XWD A,B 353 XWD C,D] ;INITIALIZE AC,AC+1 354 DMOVN AC+5,[XWD A,B 355 XWD C,D] ;SET-UP TO CHECK RESULTS 356 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 357 ;TO MEMORY (TSTWD, TSTWD+1) 358 359 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 360 CAMN AC,&17 ;WAS TSTWD LOADED CORRECTLY? 361 JRST .+4 362 MOVEM AC,AC-1 ;SAVE BAD WORD 363 MOVE AC,%SV17 ;RESTORE P 364 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B 365 CAMN AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 366 JRST .+4 ;HERE IF TESTS OK 367 MOVEM AC,AC-1 ;SAVE BAD WORD 368 MOVE AC,%SV17 369 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D 370 MOVE AC,%SV17 371 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 11 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0022 372 DEFINE DMVNMF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) < 373 ;**KS10** 374 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 375 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 376 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 377 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 378 379 ;**KL10** 380 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW 381 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED; 382 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED. 383 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS. 384 385 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 386 DMOVE AC,[XWD A,B 387 XWD C,D] ;SETUP INITIAL 388 DMOVNM AC,TSTWD ;*DMOVNM TEST 389 JSP AC,.+1 ;READ FLAGS 390 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK 391 TLNE AC,USERF ;IN USER MODE ? 392 JRST Q'L'4 ;YES 393 SKIPN SM10 ;KL10 ? 394 JRST Q'L'3 ;YES 395 ;KS10 EXEC MODE 396 CAME AC,[KSEF,,Q'L'1] 397 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 398 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH 399 JRST Q'L'6 400 ;KL10 EXEC MODE 401 Q'L'3: CAME AC,[KLEF,,Q'L'1] 402 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 403 JRST Q'L'2 404 ;KL10/KS10 USER MODE 405 Q'L'4: SKIPN SM10 ;KL10 ? 406 JRST Q'L'5 ;YES 407 ;KS10 USER MODE 408 CAME AC,[KSUF,,Q'L'1] 409 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 410 JRST Q'L'2 411 ;KL10 USER MODE 412 Q'L'5: CAME AC,[KLUF,,Q'L'1] 413 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET 414 JRST Q'L'2 415 416 Q'L'6: JRST .+1> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 12 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0023 417 DEFINE DFA (T,A,B,C,D,E,F,G,H,I,M,K,L) < 418 R'T'00: DMOVE AC,[A,,B 419 C,,D] 420 DFAD AC,[E,,F 421 G,,H] 422 CAME AC,[I,,M] 423 ER3 AC,T'01 424 CAME AC+1,[K,,L] 425 ER4 AC+1,T'01 426 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 427 428 DEFINE DFS (T,A,B,C,D,E,F,G,H,I,M,K,L) < 429 R'T'00: DMOVE AC,[A,,B 430 C,,D] 431 DFSB AC,[E,,F 432 G,,H] 433 CAME AC,[I,,M] 434 ER3 AC,T'01 435 CAME AC+1,[K,,L] 436 ER4 AC+1,T'01 437 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 438 439 DEFINE DFM (T,A,B,C,D,E,F,G,H,I,M,K,L) < 440 R'T'00: DMOVE AC,[A,,B 441 C,,D] 442 DFMP AC,[E,,F 443 G,,H] 444 CAME AC,[I,,M] 445 ER3 AC,T'01 446 CAME AC+1,[K,,L] 447 ER4 AC+1,T'01 448 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> 449 450 DEFINE DFD (T,A,B,C,D,E,F,G,H,I,M,K,L) < 451 R'T'00: DMOVE AC,[A,,B 452 C,,D] 453 DFDV AC,[E,,F 454 G,,H] 455 CAME AC,[I,,M] 456 ER3 AC,T'01 457 CAME AC+1,[K,,L] 458 ER4 AC+1,T'01 459 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 13 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0024 460 DEFINE DFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) < 461 DMOVE AC,[A,,B 462 C,,D] 463 DFAD AC,[E,,F 464 G,,H] 465 CAME AC,[I,,M] 466 ER3 AC,T 467 CAME AC+1,[K,,L] 468 ER4 AC+1,T 469 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH> 470 471 DEFINE SDFA (T,A,B,C,D,E,F,G,H,I,M,K,L) < 472 S'T'00: DMOVE AC,[A,,B 473 C,,D] 474 DFAD AC,[E,,F 475 G,,H] 476 CAME AC,[I,,M] 477 ER3 AC,T'01 478 CAME AC+1,[K,,L] 479 ER4 AC+1,T'01 480 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> 481 482 DEFINE SDFS (T,A,B,C,D,E,F,G,H,I,M,K,L) < 483 S'T'00: DMOVE AC,[A,,B 484 C,,D] 485 DFSB AC,[E,,F 486 G,,H] 487 CAME AC,[I,,M] 488 ER3 AC,T'01 489 CAME AC+1,[K,,L] 490 ER4 AC+1,T'01 491 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> 492 493 DEFINE SDFM (T,A,B,C,D,E,F,G,H,I,M,K,L) < 494 S'T'00: DMOVE AC,[A,,B 495 C,,D] 496 DFMP AC,[E,,F 497 G,,H] 498 CAME AC,[I,,M] 499 ER3 AC,T'01 500 CAME AC+1,[K,,L] 501 ER4 AC+1,T'01 502 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 14 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0025 503 DEFINE SDFMKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) < 504 S'T'00: DMOVE AC,[A,,B 505 C,,D] 506 DFMP AC,[E,,F 507 G,,H] 508 SKIPE KLFLG 509 JRST S'T'05 510 CAME AC,[I,,M] 511 ER3 AC,T'01 512 CAME AC+1,[K,,L] 513 ER4 AC+1,T'01 514 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH 515 JRST S'T'07 516 517 S'T'05: CAME AC,[KL1,,KL2] 518 ER3 AC,T'01 519 CAME AC+1,[KL3,,KL4] 520 ER4 AC+1,T'01 521 JRST S'T'06 522 523 S'T'07: JRST .+1 > 524 525 DEFINE SDFD (T,A,B,C,D,E,F,G,H,I,M,K,L) < 526 S'T'00: DMOVE AC,[A,,B 527 C,,D] 528 DFDV AC,[E,,F 529 G,,H] 530 CAME AC,[I,,M] 531 ER3 AC,T'01 532 CAME AC+1,[K,,L] 533 ER4 AC+1,T'01 534 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 15 DSKCCT MAC 29-Mar-78 11:34 DIAGNOSTIC PARAMETERS SEQ 0026 535 DEFINE SDFDKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) < 536 S'T'00: DMOVE AC,[A,,B 537 C,,D] 538 DFDV AC,[E,,F 539 G,,H] 540 SKIPN SM10 541 JRST S'T'05 542 CAME AC,[I,,M] 543 ER3 AC,T'01 544 CAME AC+1,[K,,L] 545 ER4 AC+1,T'01 546 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH 547 JRST S'T'07 548 549 S'T'05: CAME AC,[KL1,,KL2] 550 ER3 AC,T'01 551 CAME AC+1,[KL3,,KL4] 552 ER4 AC+1,T'01 553 JRST S'T'06 554 555 S'T'07: JRST .+1 > 556 557 DEFINE SDFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) < 558 DMOVE AC,[A,,B 559 C,,D] 560 DFAD AC,[E,,F 561 G,,H] 562 CAME AC,[I,,M] 563 ER3 AC,T 564 CAME AC+1,[K,,L] 565 ER4 AC+1,T 566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH> DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1 PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0027 567 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 568 569 DEFINE S,<;*********************************************************************> 570 571 S^;*********************************************************************^ 572 ;*DATA SWITCHES 573 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE 574 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS 575 S^;*********************************************************************^ 576 577 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION 578 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS 579 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE 580 581 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED) 582 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE) 583 010000 DING== 010000 ;RING BELL ON ERROR 584 585 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR 586 002000 ERSTOP==002000 ;HALT ON TEST ERROR 587 001000 PALERS==001000 ;PRINT ALL ERRORS 588 589 000400 RELIAB==000400 ;RELIABILITY MODE 590 000200 TXTINH==000200 ;INHIBIT ERROR TEXT 591 000100 INHPAG==000100 ;INHIBIT PAGING 592 593 000040 MODDVC==000040 ;MODIFY DEVICE CODE 594 000020 INHCSH==000020 ;INHIBIT CACHE 595 000010 OPRSEL==000010 ;OPERATOR SELECTION 596 597 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH 598 599 ;SWITCH 16 RESERVED 600 601 ;SWITCH 17 RESERVED !!! DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0028 602 SUBTTL PROGRAM/SUBROUTINE PARAMETERS 603 604 S^;*********************************************************************^ 605 ;*SPECIAL SUBPROGRAM LINKAGES 606 S^;*********************************************************************^ 607 608 027772 FSELNK= 27772 ;FILE SELECT LINK 609 027773 FRDLNK= 27773 ;FILE READ LINK 610 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS 611 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS 612 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS 613 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS 614 615 S^;*********************************************************************^ 616 ;*SPECIAL SUBROUTINE FATAL HALTS 617 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE 618 S^;*********************************************************************^ 619 620 ;ADDRESS TAG REASON 621 ;--------------------- 622 623 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION 624 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR 625 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR 626 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT 627 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL 628 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET 629 ; 1016 CPIERR ;CPU INITIALIZATION ERROR 630 ; 1017 EOPERR ;END OF PROGRAM ERROR 631 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT 632 633 S^;*********************************************************************^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0029 634 S^;*********************************************************************^ 635 ;OPERATOR DEFINITIONS (NON-UUO'S) 636 S^;*********************************************************************^ 637 638 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL 639 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN 640 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST 641 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST 642 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S 643 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT 644 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT 645 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT 646 647 S^;*********************************************************************^ 648 ;*SUBROUTINE INITIALIZATION CALL 649 S^;*********************************************************************^ 650 651 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION 652 653 S^;*********************************************************************^ 654 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION). 655 S^;*********************************************************************^ 656 657 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT 658 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT 659 660 S^;*********************************************************************^ 661 ;*TERMINAL INPUT UUO'S 662 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE 663 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE. 664 S^;*********************************************************************^ 665 666 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER 667 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y 668 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N 669 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD 670 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD 671 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD 672 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK 673 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK 674 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD 675 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT 676 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0030 677 ;*TERMINAL OUTPUT UUO'S. 678 679 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD 680 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED 681 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE 682 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED 683 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE 684 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED 685 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE 686 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED 687 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE 688 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED 689 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE 690 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED 691 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER 692 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED 693 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT 694 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED 695 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS 696 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED 697 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS 698 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED 699 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS 700 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED 701 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS 702 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED 703 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS 704 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED 705 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS 706 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED 707 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS 708 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED. 709 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS 710 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED 711 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL 712 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED 713 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6 714 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED 715 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S 716 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED 717 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S 718 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED 719 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S 720 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0031 721 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME 722 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD 723 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED 724 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE 725 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD 726 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED 727 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED 728 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED 729 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE 730 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED 731 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) 732 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED 733 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL 734 735 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE 736 737 DEFINE PMSG (ARG),< 738 PSIXM [SIXBIT\ARG'_\]> 739 740 DEFINE PMSGF (ARG),< 741 PSIXMF [SIXBIT\ARG'_\]> 742 743 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING 744 ;* CONSERVES CORE OVER ASCIZ 745 746 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]> 747 748 ;*CONSOLE SWITCH INPUT UUO. 749 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF 750 ;* USER MODE. 751 752 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES 753 754 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION 755 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR. 756 757 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK 758 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER 759 760 ;*KS-10 CACHE OPERATION UUO'S 761 762 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE 763 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH 764 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6 PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0032 765 ;*END OF PASS/PROGRAM UUOS 766 767 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT, 768 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC. 769 770 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS 771 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO 772 773 ;*MEMORY MANAGEMENT UUO'S 774 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING, 775 ;*ADDRESS CONVERSION, ETC... 776 777 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY 778 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY 779 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT 780 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT 781 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK 782 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP 783 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP 784 785 ;*DEVICE CODE MODIFICATION UUO 786 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO 787 ;*IOT'S TO A DIFFERENT DEVICE CODE. 788 789 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER 790 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM 791 792 030000 IFNDEF MODDVL, 793 030000 IFNDEF MODDVU, 794 795 ;*"DIAMON" FILE SELECTION AND READ UUOS 796 797 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION 798 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA 799 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA 800 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA 801 802 XLIST 803 LIST DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0033 804 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 805 806 030000 LOC 30000 807 808 S^;*********************************************************************^ 809 ;*PROGRAM STARTING ADDRESSES 810 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS 811 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE 812 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER 813 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS. 814 S^;*********************************************************************^ 815 816 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START 817 030001 254 00 0 00 030617 $START: JRST START ;MODE CHECK STARTING ADDRESS 818 819 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START 820 821 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START 822 823 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START 824 825 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART 826 827 030006 254 00 0 00 030600 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY) 828 829 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT" 830 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START 831 832 030010 254 00 0 00 030622 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE) 833 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE 834 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE 835 836 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS 837 030014 254200 030000 START2: SADR8 ; " 838 030015 254200 030000 START3: SADR9 ; " 839 030016 254200 030000 START4: SADR10 ; " 840 030017 254200 030000 START5: SADR11 ; " DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0034 841 S^;*********************************************************************^ 842 ;*PROGRAM FIXED PARAMETER AREA 843 S^;*********************************************************************^ 844 845 030020 446353 434300 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME 846 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION 847 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER 848 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES 849 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS 850 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME 851 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL 852 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT 853 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT 854 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED 855 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED 856 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE 857 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS 858 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER 859 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER 860 861 S^;*********************************************************************^ 862 ;*PROGRAM VARIABLE PARAMETER AREA 863 S^;*********************************************************************^ 864 865 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG 866 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10 867 030041 777777 777777 KLFLG: -1 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10 868 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG 869 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG 870 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10 871 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG 872 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS 873 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT 874 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG 875 030051 000000 000000 TESTPC: 0 ;SUBTEST PC 876 030052 000000 000000 ERRPC: 0 ;ERROR PC 877 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS 878 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME 879 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE 880 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0035 881 S^;*********************************************************************^ 882 ;*SPECIAL PROGRAM DISPATCH ADDRESSES 883 S^;*********************************************************************^ 884 885 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS 886 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM 887 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN 888 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS 889 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS 890 030064 CPOPJ1: ;SKIP RETURN 891 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO 892 030065 CPOPJ: ;NON-SKIP REGULAR RETURN 893 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN 894 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE 895 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE 896 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX) 897 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE 898 030072 255 00 0 00 000000 $ITRX1: JFCL ; " 899 030073 255 00 0 00 000000 $USRHL: JFCL ; " 900 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE 901 030075 255 00 0 00 000000 $RSRTY: JFCL ; " 902 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX) 903 030077 255 00 0 00 000000 RESRT2: JFCL ; " 904 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE 905 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE 906 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT 907 908 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR) 909 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT 910 030105 000000 000000 0 ;INITED AS (JRST $ITRC1) 911 912 S^;*********************************************************************^ 913 ;*PROCESSOR CONTROL STORAGE 914 S^;*********************************************************************^ 915 916 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0 917 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI 918 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR 919 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI) 920 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI) 921 922 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO 923 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO 924 925 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS 926 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG 927 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG 928 030120 000000 000000 %COREC: 0 ; " CORRECT DATA 929 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG 930 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA 931 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0036 932 S^;*********************************************************************^ 933 ;*UUO DISPATCH TABLE 934 S^;*********************************************************************^ 935 XLIST 936 LIST 937 030124 036503 030070 UUODIS: LUUO1,,$UUOER 938 030125 036503 036503 LUUO3,,LUUO2 939 030126 036503 036503 LUUO5,,LUUO4 940 030127 036503 036503 LUUO7,,LUUO6 941 030130 036503 036503 LUUO11,,LUUO10 942 030131 036503 036503 LUUO13,,LUUO12 943 030132 030070 030070 LUUO15,,LUUO14 944 030133 030070 030070 LUUO17,,LUUO16 945 030134 030070 030070 LUUO21,,LUUO20 946 030135 030070 030070 LUUO23,,LUUO22 947 030136 030070 030070 LUUO25,,LUUO24 948 030137 030070 030070 LUUO27,,LUUO26 949 030140 030070 030070 LUUO31,,LUUO30 950 030141 030070 030070 LUUO33,,LUUO32 951 952 S^;*********************************************************************^ 953 ;*MEMORY MANAGMENT STORAGE 954 S^;*********************************************************************^ 955 956 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT 957 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING 958 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.) 959 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY 960 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE 961 962 S^;*********************************************************************^ 963 ;*PRINT CONTROL STORAGE 964 S^;*********************************************************************^ 965 966 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE 967 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE 968 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG 969 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS 970 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL 971 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME 972 030225 000000 000000 $TWCNT: 0 ;TIME WAITED 973 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG 974 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG 975 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE 976 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR 977 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR 978 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER 979 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG 980 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG 981 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG 982 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG 983 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS 984 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0037 985 S^;*********************************************************************^ 986 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED 987 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS: 988 ;* MOVEI NAME 989 ;* PNTA ;OR PNTAF 990 S^;*********************************************************************^ 991 992 030242 CRLF: ASCII/ 993 030242 015 012 000 000 000 / 994 030243 CRLF2: ASCII/ 995 996 030243 015 012 015 012 000 / 997 030244 054 000 000 000 000 COMMA: ASCII/,/ 998 030245 056 000 000 000 000 PERIOD: ASCII/./ 999 030246 040 000 000 000 000 SPACE: ASCII/ / 1000 030247 011 000 000 000 000 TAB: ASCII/ / 1001 030250 MINUS: 1002 030250 055 000 000 000 000 HYPEN: ASCII/-/ 1003 030251 053 000 000 000 000 PLUS: ASCII/+/ 1004 030252 052 000 000 000 000 AST: ASCII/*/ 1005 030253 100 000 000 000 000 ATSIN: ASCII/@/ 1006 030254 050 000 000 000 000 LFP: ASCII/(/ 1007 030255 051 000 000 000 000 RTP: ASCII/)/ 1008 030256 007 0000000000 BELL: BYTE (7) 007 1009 030257 077 000 000 000 000 QUEST: ASCII/?/ 1010 030260 057 000 000 000 000 SLASH: ASCII!/! 1011 030261 044 000 000 000 000 DOLLAR: ASCII/$/ 1012 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX 1013 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR 1014 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT 1015 1016 S^;*********************************************************************^ 1017 ;*USER MODE OUTPUT FILE INFORMATION 1018 S^;*********************************************************************^ 1019 1020 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER 1021 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME 1022 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION 1023 030272 BLOCK 2 1024 1025 S^;*********************************************************************^ 1026 ;*DISK UPDATE MODE FILE INFORMATION 1027 S^;*********************************************************************^ 1028 1029 030274 $IBUF: BLOCK 3 1030 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/ 1031 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/ 1032 030301 BLOCK 2 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0038 1033 S^;*********************************************************************^ 1034 ;*PUSHDOWN LIST CONTROL INFORMATION 1035 S^;*********************************************************************^ 1036 1037 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST 1038 030304 PLISTS: BLOCK 200 1039 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST 1040 1041 S^;*********************************************************************^ 1042 ;*POWER LINE CLOCK FREQUENCY FLAG 1043 S^;*********************************************************************^ 1044 1045 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE 1046 1047 S^;*********************************************************************^ 1048 ;*KL10 CACHE CONTROL FLAGS 1049 S^;*********************************************************************^ 1050 1051 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0 1052 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0 1053 1054 S^;*********************************************************************^ 1055 ;*NUMBER INPUT DIGIT FLAG 1056 S^;*********************************************************************^ 1057 1058 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED 1059 1060 S^;*********************************************************************^ 1061 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION 1062 S^;*********************************************************************^ 1063 1064 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION 1065 1066 S^;*********************************************************************^ 1067 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS 1068 S^;*********************************************************************^ 1069 1070 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO 1071 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO 1072 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO 1073 1074 S^;*********************************************************************^ 1075 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION 1076 S^;*********************************************************************^ 1077 1078 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7 FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0039 1079 S^;*********************************************************************^ 1080 ;*USER MODE MONITOR TYPE FLAG 1081 S^;*********************************************************************^ 1082 1083 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20 1084 1085 S^;*********************************************************************^ 1086 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION 1087 S^;*********************************************************************^ 1088 1089 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER 1090 1091 S^;*********************************************************************^ 1092 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION 1093 S^;*********************************************************************^ 1094 1095 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR 1096 1097 S^;*********************************************************************^ 1098 ;*"SWITCH" CALL USAGE CONTROL 1099 S^;*********************************************************************^ 1100 1101 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES 1102 1103 S^;*********************************************************************^ 1104 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS 1105 S^;*********************************************************************^ 1106 1107 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL 1108 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL 1109 1110 S^;*********************************************************************^ 1111 ;*SM10 (KS-10) PROCESSOR TYPE FLAG 1112 S^;*********************************************************************^ 1113 1114 030524 777777 777777 SM10: -1 ;IF -1 THIS IS AN KS-10 1115 1116 S^;*********************************************************************^ 1117 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS 1118 S^;*********************************************************************^ 1119 1120 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE 1121 1122 S^;*********************************************************************^ 1123 ;*SPECIAL FUTURE EXPANSION ROOM 1124 S^;*********************************************************************^ 1125 1126 S^;*********************************************************************^ 1127 ;*END OF FIXED STORAGE 1128 S^;*********************************************************************^ 1129 1130 030577 LOC 30577 1131 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1 DSKCC1 MAC 29-Mar-78 11:34 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0040 1132 030600 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE 1133 030601 040 00 0 00 036671 CALL [SIXBIT .EXIT.] 1134 1135 030602 PGMNAM: ASCIZ? 1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3 (DSKCC) 1137 030603 123 131 123 124 105 1138 030604 115 040 062 060 062 1139 030605 060 040 101 104 126 1140 030606 101 116 103 105 104 1141 030607 040 111 116 123 124 1142 030610 122 125 103 124 111 1143 030611 117 116 040 104 111 1144 030612 101 107 116 117 123 1145 030613 124 111 103 040 043 1146 030614 063 040 050 104 123 1147 030615 113 103 103 051 015 1148 030616 012 000 000 000 000 ? 1149 ;INITIALIZE SUBROUTINES 1150 1151 030617 265 00 0 00 030011 START: PGMINT 1152 030620 200 00 0 00 036672 MOVE [ASCIZ/CC/] 1153 030621 202 00 0 00 036612 MOVEM TLET ;INITIALIZE TEST LETTER 1154 1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF 0 SEQ 0041 1156 SUBTTL DIAGNOSTIC SECTION - FIX - CONVERSION OF 0 1157 1158 DEFINE SAVEAC (A,B)< 1159 MOVEI SAC,. 1160 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 1161 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 1162 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION> 1163 1164 ;CHECK THAT 'FIX AC,E' DOES NOT MODIFY C(E) 1165 000004 CC00: AC=4 1166 000010 SAC=&17 1167 SAVEAC (1,1)^ 1168 030623 201 10 0 00 030623 MOVEI SAC,. 1169 030624 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 1170 030625 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 1171 030626 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 1172 1173 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION DOES NOT DESTROY C(E) 1174 1175 030627 200 02 0 00 036673 Q10: MOVE AC-2,[233525,,252525] ;LOAD 'E' WITH DATA 1176 030630 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN E TO FIX PT AND STORE IN AC 1177 030631 312 02 0 00 036673 CAME AC-2,[233525,,252525] ;WAS FLT PT NBR MODIFIED 1178 030632 005 02 0 00 000011 ER5 AC-2,11 ;C(E) WAS CLOBBERED 1179 030633 321 10 0 00 030627 JUMPL SAC,Q10 ;LOOP ON ERROR SWITCH 1180 1181 ;CONVERT A FLOAT POINT NO. OF ZEROS TO FIXED PT 1182 1183 000004 AC=4 1184 000010 SAC=&17 1185 SAVEAC (1,1)^ 1186 030634 201 10 0 00 030634 MOVEI SAC,. 1187 030635 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 1188 030636 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 1189 030637 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 1190 1191 ;THIS TEST VERIFIES THAT A FLT PT NO. OF 0 CONVERTED TO FIX PT BY 1192 ;FIX, REMAINS 0. 1193 1194 030640 402 00 0 00 000002 Q100: SETZM AC-2 ;INITIALIZE FLT PT NBR IN 'E' 1195 030641 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO OF 0 TO FIX PT 1196 030642 302 04 0 00 000000 CAIE AC,0 ;WAS FLT PT 0 CONVERTED CORRECTLY? 1197 030643 003 04 0 00 000101 ER3 AC,101 ;FIX PT NBR IS INCORRECT 1198 030644 321 10 0 00 030640 JUMPL SAC,Q100 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0042 1199 SUBTTL DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES 1200 1201 000200 SN=200 1202 200400 XX=200400 1203 000000 YY=0 1204 1205 Q200: REPEAT ^D18,< 1206 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1207 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1208 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1209 1210 SN=SN+1 1211 XX=XX+1000 1212 YY=YY+YY 1213 IFE YY, 1214 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1215 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1216 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1217 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1218 ER3 AC,SN ;FIX PT NBR INCORRECT 1219 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1220 > 1221 1222 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1223 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1224 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1225 1226 000201 SN=SN+1 1227 201400 XX=XX+1000 1228 000000 YY=YY+YY 1229 000001 IFE YY, 1230 030645 205 02 0 00 201400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1231 030646 551 03 0 00 000001 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1232 030647 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1233 030650 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1234 030651 003 04 0 00 000201 ER3 AC,SN ;FIX PT NBR INCORRECT 1235 030652 321 10 0 00 030645 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1236 1237 1238 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1239 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1240 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1241 1242 000202 SN=SN+1 1243 202400 XX=XX+1000 1244 000002 YY=YY+YY 1245 IFE YY, 1246 030653 205 02 0 00 202400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1247 030654 551 03 0 00 000002 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1248 030655 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1249 030656 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1250 030657 003 04 0 00 000202 ER3 AC,SN ;FIX PT NBR INCORRECT 1251 030660 321 10 0 00 030653 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1252 1253 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0043 1254 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1255 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1256 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1257 1258 000203 SN=SN+1 1259 203400 XX=XX+1000 1260 000004 YY=YY+YY 1261 IFE YY, 1262 030661 205 02 0 00 203400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1263 030662 551 03 0 00 000004 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1264 030663 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1265 030664 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1266 030665 003 04 0 00 000203 ER3 AC,SN ;FIX PT NBR INCORRECT 1267 030666 321 10 0 00 030661 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1268 1269 1270 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1271 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1272 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1273 1274 000204 SN=SN+1 1275 204400 XX=XX+1000 1276 000010 YY=YY+YY 1277 IFE YY, 1278 030667 205 02 0 00 204400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1279 030670 551 03 0 00 000010 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1280 030671 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1281 030672 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1282 030673 003 04 0 00 000204 ER3 AC,SN ;FIX PT NBR INCORRECT 1283 030674 321 10 0 00 030667 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1284 1285 1286 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1287 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1288 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1289 1290 000205 SN=SN+1 1291 205400 XX=XX+1000 1292 000020 YY=YY+YY 1293 IFE YY, 1294 030675 205 02 0 00 205400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1295 030676 551 03 0 00 000020 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1296 030677 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1297 030700 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1298 030701 003 04 0 00 000205 ER3 AC,SN ;FIX PT NBR INCORRECT 1299 030702 321 10 0 00 030675 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1300 1301 1302 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1303 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1304 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1305 1306 000206 SN=SN+1 1307 206400 XX=XX+1000 1308 000040 YY=YY+YY DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0044 1309 IFE YY, 1310 030703 205 02 0 00 206400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1311 030704 551 03 0 00 000040 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1312 030705 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1313 030706 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1314 030707 003 04 0 00 000206 ER3 AC,SN ;FIX PT NBR INCORRECT 1315 030710 321 10 0 00 030703 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1316 1317 1318 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1319 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1320 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1321 1322 000207 SN=SN+1 1323 207400 XX=XX+1000 1324 000100 YY=YY+YY 1325 IFE YY, 1326 030711 205 02 0 00 207400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1327 030712 551 03 0 00 000100 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1328 030713 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1329 030714 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1330 030715 003 04 0 00 000207 ER3 AC,SN ;FIX PT NBR INCORRECT 1331 030716 321 10 0 00 030711 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1332 1333 1334 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1335 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1336 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1337 1338 000210 SN=SN+1 1339 210400 XX=XX+1000 1340 000200 YY=YY+YY 1341 IFE YY, 1342 030717 205 02 0 00 210400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1343 030720 551 03 0 00 000200 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1344 030721 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1345 030722 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1346 030723 003 04 0 00 000210 ER3 AC,SN ;FIX PT NBR INCORRECT 1347 030724 321 10 0 00 030717 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1348 1349 1350 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1351 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1352 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1353 1354 000211 SN=SN+1 1355 211400 XX=XX+1000 1356 000400 YY=YY+YY 1357 IFE YY, 1358 030725 205 02 0 00 211400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1359 030726 551 03 0 00 000400 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1360 030727 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1361 030730 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1362 030731 003 04 0 00 000211 ER3 AC,SN ;FIX PT NBR INCORRECT 1363 030732 321 10 0 00 030725 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0045 1364 1365 1366 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1367 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1368 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1369 1370 000212 SN=SN+1 1371 212400 XX=XX+1000 1372 001000 YY=YY+YY 1373 IFE YY, 1374 030733 205 02 0 00 212400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1375 030734 551 03 0 00 001000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1376 030735 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1377 030736 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1378 030737 003 04 0 00 000212 ER3 AC,SN ;FIX PT NBR INCORRECT 1379 030740 321 10 0 00 030733 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1380 1381 1382 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1383 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1384 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1385 1386 000213 SN=SN+1 1387 213400 XX=XX+1000 1388 002000 YY=YY+YY 1389 IFE YY, 1390 030741 205 02 0 00 213400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1391 030742 551 03 0 00 002000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1392 030743 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1393 030744 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1394 030745 003 04 0 00 000213 ER3 AC,SN ;FIX PT NBR INCORRECT 1395 030746 321 10 0 00 030741 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1396 1397 1398 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1399 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1400 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1401 1402 000214 SN=SN+1 1403 214400 XX=XX+1000 1404 004000 YY=YY+YY 1405 IFE YY, 1406 030747 205 02 0 00 214400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1407 030750 551 03 0 00 004000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1408 030751 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1409 030752 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1410 030753 003 04 0 00 000214 ER3 AC,SN ;FIX PT NBR INCORRECT 1411 030754 321 10 0 00 030747 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1412 1413 1414 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1415 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1416 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1417 1418 000215 SN=SN+1 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0046 1419 215400 XX=XX+1000 1420 010000 YY=YY+YY 1421 IFE YY, 1422 030755 205 02 0 00 215400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1423 030756 551 03 0 00 010000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1424 030757 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1425 030760 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1426 030761 003 04 0 00 000215 ER3 AC,SN ;FIX PT NBR INCORRECT 1427 030762 321 10 0 00 030755 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1428 1429 1430 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1431 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1432 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1433 1434 000216 SN=SN+1 1435 216400 XX=XX+1000 1436 020000 YY=YY+YY 1437 IFE YY, 1438 030763 205 02 0 00 216400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1439 030764 551 03 0 00 020000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1440 030765 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1441 030766 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1442 030767 003 04 0 00 000216 ER3 AC,SN ;FIX PT NBR INCORRECT 1443 030770 321 10 0 00 030763 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1444 1445 1446 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1447 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1448 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1449 1450 000217 SN=SN+1 1451 217400 XX=XX+1000 1452 040000 YY=YY+YY 1453 IFE YY, 1454 030771 205 02 0 00 217400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1455 030772 551 03 0 00 040000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1456 030773 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1457 030774 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1458 030775 003 04 0 00 000217 ER3 AC,SN ;FIX PT NBR INCORRECT 1459 030776 321 10 0 00 030771 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1460 1461 1462 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1463 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1464 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1465 1466 000220 SN=SN+1 1467 220400 XX=XX+1000 1468 100000 YY=YY+YY 1469 IFE YY, 1470 030777 205 02 0 00 220400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1471 031000 551 03 0 00 100000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1472 031001 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1473 031002 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0047 1474 031003 003 04 0 00 000220 ER3 AC,SN ;FIX PT NBR INCORRECT 1475 031004 321 10 0 00 030777 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1476 1477 1478 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1479 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1480 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1481 1482 000221 SN=SN+1 1483 221400 XX=XX+1000 1484 200000 YY=YY+YY 1485 IFE YY, 1486 031005 205 02 0 00 221400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1487 031006 551 03 0 00 200000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1488 031007 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1489 031010 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1490 031011 003 04 0 00 000221 ER3 AC,SN ;FIX PT NBR INCORRECT 1491 031012 321 10 0 00 031005 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1492 1493 1494 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1495 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1496 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1497 1498 000222 SN=SN+1 1499 222400 XX=XX+1000 1500 400000 YY=YY+YY 1501 IFE YY, 1502 031013 205 02 0 00 222400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1503 031014 551 03 0 00 400000 HRRZI AC-1,YY ;RESULT FOR COMPARISON 1504 031015 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1505 031016 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1506 031017 003 04 0 00 000222 ER3 AC,SN ;FIX PT NBR INCORRECT 1507 031020 321 10 0 00 031013 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1508 1509 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0048 1510 000300 SN=300 1511 000000 YY=0 1512 1513 Q300: REPEAT ^D17,< 1514 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1515 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1516 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1517 1518 SN=SN+1 1519 XX=XX+1000 1520 YY=YY+YY 1521 IFE YY, 1522 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1523 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1524 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1525 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1526 ER3 AC,SN ;FIX PT NBR INCORRECT 1527 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1528 > 1529 1530 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1531 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1532 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1533 1534 000301 SN=SN+1 1535 223400 XX=XX+1000 1536 000000 YY=YY+YY 1537 000001 IFE YY, 1538 031021 205 02 0 00 223400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1539 031022 205 03 0 00 000001 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1540 031023 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1541 031024 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1542 031025 003 04 0 00 000301 ER3 AC,SN ;FIX PT NBR INCORRECT 1543 031026 321 10 0 00 031021 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1544 1545 1546 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1547 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1548 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1549 1550 000302 SN=SN+1 1551 224400 XX=XX+1000 1552 000002 YY=YY+YY 1553 IFE YY, 1554 031027 205 02 0 00 224400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1555 031030 205 03 0 00 000002 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1556 031031 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1557 031032 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1558 031033 003 04 0 00 000302 ER3 AC,SN ;FIX PT NBR INCORRECT 1559 031034 321 10 0 00 031027 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1560 1561 1562 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1563 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1564 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0049 1565 1566 000303 SN=SN+1 1567 225400 XX=XX+1000 1568 000004 YY=YY+YY 1569 IFE YY, 1570 031035 205 02 0 00 225400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1571 031036 205 03 0 00 000004 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1572 031037 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1573 031040 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1574 031041 003 04 0 00 000303 ER3 AC,SN ;FIX PT NBR INCORRECT 1575 031042 321 10 0 00 031035 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1576 1577 1578 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1579 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1580 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1581 1582 000304 SN=SN+1 1583 226400 XX=XX+1000 1584 000010 YY=YY+YY 1585 IFE YY, 1586 031043 205 02 0 00 226400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1587 031044 205 03 0 00 000010 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1588 031045 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1589 031046 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1590 031047 003 04 0 00 000304 ER3 AC,SN ;FIX PT NBR INCORRECT 1591 031050 321 10 0 00 031043 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1592 1593 1594 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1595 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1596 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1597 1598 000305 SN=SN+1 1599 227400 XX=XX+1000 1600 000020 YY=YY+YY 1601 IFE YY, 1602 031051 205 02 0 00 227400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1603 031052 205 03 0 00 000020 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1604 031053 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1605 031054 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1606 031055 003 04 0 00 000305 ER3 AC,SN ;FIX PT NBR INCORRECT 1607 031056 321 10 0 00 031051 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1608 1609 1610 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1611 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1612 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1613 1614 000306 SN=SN+1 1615 230400 XX=XX+1000 1616 000040 YY=YY+YY 1617 IFE YY, 1618 031057 205 02 0 00 230400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1619 031060 205 03 0 00 000040 MOVSI AC-1,YY ;RESULT FOR COMPARISON DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-8 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0050 1620 031061 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1621 031062 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1622 031063 003 04 0 00 000306 ER3 AC,SN ;FIX PT NBR INCORRECT 1623 031064 321 10 0 00 031057 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1624 1625 1626 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1627 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1628 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1629 1630 000307 SN=SN+1 1631 231400 XX=XX+1000 1632 000100 YY=YY+YY 1633 IFE YY, 1634 031065 205 02 0 00 231400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1635 031066 205 03 0 00 000100 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1636 031067 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1637 031070 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1638 031071 003 04 0 00 000307 ER3 AC,SN ;FIX PT NBR INCORRECT 1639 031072 321 10 0 00 031065 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1640 1641 1642 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1643 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1644 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1645 1646 000310 SN=SN+1 1647 232400 XX=XX+1000 1648 000200 YY=YY+YY 1649 IFE YY, 1650 031073 205 02 0 00 232400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1651 031074 205 03 0 00 000200 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1652 031075 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1653 031076 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1654 031077 003 04 0 00 000310 ER3 AC,SN ;FIX PT NBR INCORRECT 1655 031100 321 10 0 00 031073 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1656 1657 1658 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1659 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1660 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1661 1662 000311 SN=SN+1 1663 233400 XX=XX+1000 1664 000400 YY=YY+YY 1665 IFE YY, 1666 031101 205 02 0 00 233400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1667 031102 205 03 0 00 000400 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1668 031103 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1669 031104 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1670 031105 003 04 0 00 000311 ER3 AC,SN ;FIX PT NBR INCORRECT 1671 031106 321 10 0 00 031101 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1672 1673 1674 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-9 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0051 1675 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1676 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1677 1678 000312 SN=SN+1 1679 234400 XX=XX+1000 1680 001000 YY=YY+YY 1681 IFE YY, 1682 031107 205 02 0 00 234400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1683 031110 205 03 0 00 001000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1684 031111 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1685 031112 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1686 031113 003 04 0 00 000312 ER3 AC,SN ;FIX PT NBR INCORRECT 1687 031114 321 10 0 00 031107 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1688 1689 1690 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1691 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1692 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1693 1694 000313 SN=SN+1 1695 235400 XX=XX+1000 1696 002000 YY=YY+YY 1697 IFE YY, 1698 031115 205 02 0 00 235400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1699 031116 205 03 0 00 002000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1700 031117 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1701 031120 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1702 031121 003 04 0 00 000313 ER3 AC,SN ;FIX PT NBR INCORRECT 1703 031122 321 10 0 00 031115 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1704 1705 1706 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1707 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1708 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1709 1710 000314 SN=SN+1 1711 236400 XX=XX+1000 1712 004000 YY=YY+YY 1713 IFE YY, 1714 031123 205 02 0 00 236400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1715 031124 205 03 0 00 004000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1716 031125 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1717 031126 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1718 031127 003 04 0 00 000314 ER3 AC,SN ;FIX PT NBR INCORRECT 1719 031130 321 10 0 00 031123 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1720 1721 1722 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1723 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1724 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1725 1726 000315 SN=SN+1 1727 237400 XX=XX+1000 1728 010000 YY=YY+YY 1729 IFE YY, DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-10 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0052 1730 031131 205 02 0 00 237400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1731 031132 205 03 0 00 010000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1732 031133 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1733 031134 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1734 031135 003 04 0 00 000315 ER3 AC,SN ;FIX PT NBR INCORRECT 1735 031136 321 10 0 00 031131 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1736 1737 1738 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1739 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1740 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1741 1742 000316 SN=SN+1 1743 240400 XX=XX+1000 1744 020000 YY=YY+YY 1745 IFE YY, 1746 031137 205 02 0 00 240400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1747 031140 205 03 0 00 020000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1748 031141 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1749 031142 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1750 031143 003 04 0 00 000316 ER3 AC,SN ;FIX PT NBR INCORRECT 1751 031144 321 10 0 00 031137 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1752 1753 1754 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1755 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1756 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1757 1758 000317 SN=SN+1 1759 241400 XX=XX+1000 1760 040000 YY=YY+YY 1761 IFE YY, 1762 031145 205 02 0 00 241400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1763 031146 205 03 0 00 040000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1764 031147 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1765 031150 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1766 031151 003 04 0 00 000317 ER3 AC,SN ;FIX PT NBR INCORRECT 1767 031152 321 10 0 00 031145 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1768 1769 1770 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1771 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1772 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1773 1774 000320 SN=SN+1 1775 242400 XX=XX+1000 1776 100000 YY=YY+YY 1777 IFE YY, 1778 031153 205 02 0 00 242400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1779 031154 205 03 0 00 100000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1780 031155 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1781 031156 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1782 031157 003 04 0 00 000320 ER3 AC,SN ;FIX PT NBR INCORRECT 1783 031160 321 10 0 00 031153 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1784 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-11 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0053 1785 1786 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1787 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1788 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS 1789 1790 000321 SN=SN+1 1791 243400 XX=XX+1000 1792 200000 YY=YY+YY 1793 IFE YY, 1794 031161 205 02 0 00 243400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1795 031162 205 03 0 00 200000 MOVSI AC-1,YY ;RESULT FOR COMPARISON 1796 031163 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC 1797 031164 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET 1798 031165 003 04 0 00 000321 ER3 AC,SN ;FIX PT NBR INCORRECT 1799 031166 321 10 0 00 031161 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1800 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0054 1801 SUBTTL DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 1802 1803 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1804 1805 000500 SN=500 1806 200000 XX=200000 1807 001000 YY=1000 1808 1809 Q500: REPEAT ^D9,< 1810 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1811 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1812 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1813 1814 SN=SN+1 1815 XX=XX+1000 1816 YY=YY/2 1817 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1818 TLO AC-2,YY ;RESULT FOR COMPARISON 1819 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1820 CAIE AC,1 ;IS RESULT IN AC = 1? 1821 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1822 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1823 > 1824 1825 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1826 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1827 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1828 1829 000501 SN=SN+1 1830 201000 XX=XX+1000 1831 000400 YY=YY/2 1832 031167 205 02 0 00 201000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1833 031170 661 02 0 00 000400 TLO AC-2,YY ;RESULT FOR COMPARISON 1834 031171 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1835 031172 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1836 031173 003 04 0 00 000501 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1837 031174 321 10 0 00 031167 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1838 1839 1840 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1841 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1842 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1843 1844 000502 SN=SN+1 1845 202000 XX=XX+1000 1846 000200 YY=YY/2 1847 031175 205 02 0 00 202000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1848 031176 661 02 0 00 000200 TLO AC-2,YY ;RESULT FOR COMPARISON 1849 031177 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1850 031200 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1851 031201 003 04 0 00 000502 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1852 031202 321 10 0 00 031175 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1853 1854 1855 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0055 1856 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1857 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1858 1859 000503 SN=SN+1 1860 203000 XX=XX+1000 1861 000100 YY=YY/2 1862 031203 205 02 0 00 203000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1863 031204 661 02 0 00 000100 TLO AC-2,YY ;RESULT FOR COMPARISON 1864 031205 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1865 031206 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1866 031207 003 04 0 00 000503 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1867 031210 321 10 0 00 031203 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1868 1869 1870 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1871 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1872 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1873 1874 000504 SN=SN+1 1875 204000 XX=XX+1000 1876 000040 YY=YY/2 1877 031211 205 02 0 00 204000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1878 031212 661 02 0 00 000040 TLO AC-2,YY ;RESULT FOR COMPARISON 1879 031213 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1880 031214 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1881 031215 003 04 0 00 000504 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1882 031216 321 10 0 00 031211 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1883 1884 1885 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1886 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1887 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1888 1889 000505 SN=SN+1 1890 205000 XX=XX+1000 1891 000020 YY=YY/2 1892 031217 205 02 0 00 205000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1893 031220 661 02 0 00 000020 TLO AC-2,YY ;RESULT FOR COMPARISON 1894 031221 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1895 031222 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1896 031223 003 04 0 00 000505 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1897 031224 321 10 0 00 031217 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1898 1899 1900 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1901 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1902 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1903 1904 000506 SN=SN+1 1905 206000 XX=XX+1000 1906 000010 YY=YY/2 1907 031225 205 02 0 00 206000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1908 031226 661 02 0 00 000010 TLO AC-2,YY ;RESULT FOR COMPARISON 1909 031227 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1910 031230 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0056 1911 031231 003 04 0 00 000506 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1912 031232 321 10 0 00 031225 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1913 1914 1915 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1916 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1917 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1918 1919 000507 SN=SN+1 1920 207000 XX=XX+1000 1921 000004 YY=YY/2 1922 031233 205 02 0 00 207000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1923 031234 661 02 0 00 000004 TLO AC-2,YY ;RESULT FOR COMPARISON 1924 031235 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1925 031236 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1926 031237 003 04 0 00 000507 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1927 031240 321 10 0 00 031233 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1928 1929 1930 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1931 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1932 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1933 1934 000510 SN=SN+1 1935 210000 XX=XX+1000 1936 000002 YY=YY/2 1937 031241 205 02 0 00 210000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1938 031242 661 02 0 00 000002 TLO AC-2,YY ;RESULT FOR COMPARISON 1939 031243 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1940 031244 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1941 031245 003 04 0 00 000510 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1942 031246 321 10 0 00 031241 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1943 1944 1945 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1946 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1947 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1948 1949 000511 SN=SN+1 1950 211000 XX=XX+1000 1951 000001 YY=YY/2 1952 031247 205 02 0 00 211000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1953 031250 661 02 0 00 000001 TLO AC-2,YY ;RESULT FOR COMPARISON 1954 031251 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1955 031252 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1956 031253 003 04 0 00 000511 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1957 031254 321 10 0 00 031247 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1958 1959 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0057 1960 000600 SN=600 1961 000000 YY=0 1962 1963 Q600: REPEAT ^D18,< 1964 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1965 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1966 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1967 1968 SN=SN+1 1969 XX=XX+1000 1970 YY=YY/2 1971 IFE YY, 1972 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1973 HRRI AC-2,YY 1974 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1975 CAIE AC,1 ;IS RESULT IN AC = 1? 1976 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1977 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1978 > 1979 1980 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1981 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1982 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1983 1984 000601 SN=SN+1 1985 212000 XX=XX+1000 1986 000000 YY=YY/2 1987 400000 IFE YY, 1988 031255 205 02 0 00 212000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 1989 031256 541 02 0 00 400000 HRRI AC-2,YY 1990 031257 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 1991 031260 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 1992 031261 003 04 0 00 000601 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 1993 031262 321 10 0 00 031255 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 1994 1995 1996 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 1997 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 1998 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 1999 2000 000602 SN=SN+1 2001 213000 XX=XX+1000 2002 200000 YY=YY/2 2003 IFE YY, 2004 031263 205 02 0 00 213000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2005 031264 541 02 0 00 200000 HRRI AC-2,YY 2006 031265 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2007 031266 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2008 031267 003 04 0 00 000602 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2009 031270 321 10 0 00 031263 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2010 2011 2012 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2013 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2014 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0058 2015 2016 000603 SN=SN+1 2017 214000 XX=XX+1000 2018 100000 YY=YY/2 2019 IFE YY, 2020 031271 205 02 0 00 214000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2021 031272 541 02 0 00 100000 HRRI AC-2,YY 2022 031273 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2023 031274 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2024 031275 003 04 0 00 000603 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2025 031276 321 10 0 00 031271 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2026 2027 2028 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2029 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2030 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2031 2032 000604 SN=SN+1 2033 215000 XX=XX+1000 2034 040000 YY=YY/2 2035 IFE YY, 2036 031277 205 02 0 00 215000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2037 031300 541 02 0 00 040000 HRRI AC-2,YY 2038 031301 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2039 031302 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2040 031303 003 04 0 00 000604 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2041 031304 321 10 0 00 031277 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2042 2043 2044 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2045 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2046 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2047 2048 000605 SN=SN+1 2049 216000 XX=XX+1000 2050 020000 YY=YY/2 2051 IFE YY, 2052 031305 205 02 0 00 216000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2053 031306 541 02 0 00 020000 HRRI AC-2,YY 2054 031307 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2055 031310 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2056 031311 003 04 0 00 000605 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2057 031312 321 10 0 00 031305 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2058 2059 2060 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2061 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2062 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2063 2064 000606 SN=SN+1 2065 217000 XX=XX+1000 2066 010000 YY=YY/2 2067 IFE YY, 2068 031313 205 02 0 00 217000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2069 031314 541 02 0 00 010000 HRRI AC-2,YY DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0059 2070 031315 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2071 031316 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2072 031317 003 04 0 00 000606 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2073 031320 321 10 0 00 031313 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2074 2075 2076 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2077 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2078 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2079 2080 000607 SN=SN+1 2081 220000 XX=XX+1000 2082 004000 YY=YY/2 2083 IFE YY, 2084 031321 205 02 0 00 220000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2085 031322 541 02 0 00 004000 HRRI AC-2,YY 2086 031323 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2087 031324 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2088 031325 003 04 0 00 000607 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2089 031326 321 10 0 00 031321 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2090 2091 2092 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2093 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2094 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2095 2096 000610 SN=SN+1 2097 221000 XX=XX+1000 2098 002000 YY=YY/2 2099 IFE YY, 2100 031327 205 02 0 00 221000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2101 031330 541 02 0 00 002000 HRRI AC-2,YY 2102 031331 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2103 031332 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2104 031333 003 04 0 00 000610 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2105 031334 321 10 0 00 031327 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2106 2107 2108 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2109 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2110 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2111 2112 000611 SN=SN+1 2113 222000 XX=XX+1000 2114 001000 YY=YY/2 2115 IFE YY, 2116 031335 205 02 0 00 222000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2117 031336 541 02 0 00 001000 HRRI AC-2,YY 2118 031337 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2119 031340 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2120 031341 003 04 0 00 000611 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2121 031342 321 10 0 00 031335 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2122 2123 2124 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0060 2125 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2126 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2127 2128 000612 SN=SN+1 2129 223000 XX=XX+1000 2130 000400 YY=YY/2 2131 IFE YY, 2132 031343 205 02 0 00 223000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2133 031344 541 02 0 00 000400 HRRI AC-2,YY 2134 031345 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2135 031346 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2136 031347 003 04 0 00 000612 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2137 031350 321 10 0 00 031343 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2138 2139 2140 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2141 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2142 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2143 2144 000613 SN=SN+1 2145 224000 XX=XX+1000 2146 000200 YY=YY/2 2147 IFE YY, 2148 031351 205 02 0 00 224000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2149 031352 541 02 0 00 000200 HRRI AC-2,YY 2150 031353 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2151 031354 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2152 031355 003 04 0 00 000613 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2153 031356 321 10 0 00 031351 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2154 2155 2156 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2157 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2158 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2159 2160 000614 SN=SN+1 2161 225000 XX=XX+1000 2162 000100 YY=YY/2 2163 IFE YY, 2164 031357 205 02 0 00 225000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2165 031360 541 02 0 00 000100 HRRI AC-2,YY 2166 031361 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2167 031362 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2168 031363 003 04 0 00 000614 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2169 031364 321 10 0 00 031357 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2170 2171 2172 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2173 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2174 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2175 2176 000615 SN=SN+1 2177 226000 XX=XX+1000 2178 000040 YY=YY/2 2179 IFE YY, DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0061 2180 031365 205 02 0 00 226000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2181 031366 541 02 0 00 000040 HRRI AC-2,YY 2182 031367 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2183 031370 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2184 031371 003 04 0 00 000615 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2185 031372 321 10 0 00 031365 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2186 2187 2188 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2189 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2190 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2191 2192 000616 SN=SN+1 2193 227000 XX=XX+1000 2194 000020 YY=YY/2 2195 IFE YY, 2196 031373 205 02 0 00 227000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2197 031374 541 02 0 00 000020 HRRI AC-2,YY 2198 031375 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2199 031376 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2200 031377 003 04 0 00 000616 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2201 031400 321 10 0 00 031373 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2202 2203 2204 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2205 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2206 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2207 2208 000617 SN=SN+1 2209 230000 XX=XX+1000 2210 000010 YY=YY/2 2211 IFE YY, 2212 031401 205 02 0 00 230000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2213 031402 541 02 0 00 000010 HRRI AC-2,YY 2214 031403 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2215 031404 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2216 031405 003 04 0 00 000617 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2217 031406 321 10 0 00 031401 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2218 2219 2220 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2221 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2222 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2223 2224 000620 SN=SN+1 2225 231000 XX=XX+1000 2226 000004 YY=YY/2 2227 IFE YY, 2228 031407 205 02 0 00 231000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2229 031410 541 02 0 00 000004 HRRI AC-2,YY 2230 031411 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2231 031412 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2232 031413 003 04 0 00 000620 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2233 031414 321 10 0 00 031407 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2234 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-8 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0062 2235 2236 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2237 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2238 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2239 2240 000621 SN=SN+1 2241 232000 XX=XX+1000 2242 000002 YY=YY/2 2243 IFE YY, 2244 031415 205 02 0 00 232000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2245 031416 541 02 0 00 000002 HRRI AC-2,YY 2246 031417 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2247 031420 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2248 031421 003 04 0 00 000621 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2249 031422 321 10 0 00 031415 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2250 2251 2252 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2253 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2254 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT 2255 2256 000622 SN=SN+1 2257 233000 XX=XX+1000 2258 000001 YY=YY/2 2259 IFE YY, 2260 031423 205 02 0 00 233000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2261 031424 541 02 0 00 000001 HRRI AC-2,YY 2262 031425 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC 2263 031426 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1? 2264 031427 003 04 0 00 000622 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1 2265 031430 321 10 0 00 031423 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 2266 2267 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0063 2268 SUBTTL DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS 2269 2270 000700 SN=700 2271 577000 XX=577000 2272 000000 ZZ=0 2273 2274 Q700: REPEAT ^D2,< 2275 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2276 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2277 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2278 2279 SN=SN+1 2280 XX=XX-1000 2281 ZZ=&777777 2282 IFE ZZ, 2283 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2284 TLO AC-2,400 2285 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2286 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2287 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2288 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2289 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2290 > 2291 2292 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2293 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2294 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2295 2296 000701 SN=SN+1 2297 576000 XX=XX-1000 2298 000000 ZZ=&777777 2299 777777 IFE ZZ, 2300 031431 205 02 0 00 576000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2301 031432 661 02 0 00 000400 TLO AC-2,400 2302 031433 561 03 0 00 777777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2303 031434 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2304 031435 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2305 031436 003 04 0 00 000701 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2306 031437 321 10 0 00 031431 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2307 2308 2309 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2310 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2311 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2312 2313 000702 SN=SN+1 2314 575000 XX=XX-1000 2315 777776 ZZ=&777777 2316 IFE ZZ, 2317 031440 205 02 0 00 575000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2318 031441 661 02 0 00 000400 TLO AC-2,400 2319 031442 561 03 0 00 777776 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2320 031443 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2321 031444 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2322 031445 003 04 0 00 000702 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0064 2323 031446 321 10 0 00 031440 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2324 2325 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0065 2326 001000 SN=1000 2327 576000 XX=576000 2328 000000 YY=0 2329 777776 ZZ=777776 2330 2331 Q1000: REPEAT ^D8,< 2332 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2333 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2334 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2335 2336 SN=SN+1 2337 XX=XX-1000 2338 YY=YY! 2339 ZZ=&777777 2340 IFE YY, 2341 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2342 TLO AC-2,YY 2343 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2344 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2345 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2346 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2347 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2348 > 2349 2350 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2351 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2352 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2353 2354 001001 SN=SN+1 2355 575000 XX=XX-1000 2356 000000 YY=YY! 2357 777775 ZZ=&777777 2358 000200 IFE YY, 2359 031447 205 02 0 00 575000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2360 031450 661 02 0 00 000200 TLO AC-2,YY 2361 031451 561 03 0 00 777775 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2362 031452 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2363 031453 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2364 031454 003 04 0 00 001001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2365 031455 321 10 0 00 031447 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2366 2367 2368 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2369 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2370 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2371 2372 001002 SN=SN+1 2373 574000 XX=XX-1000 2374 000300 YY=YY! 2375 777773 ZZ=&777777 2376 IFE YY, 2377 031456 205 02 0 00 574000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2378 031457 661 02 0 00 000300 TLO AC-2,YY 2379 031460 561 03 0 00 777773 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2380 031461 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0066 2381 031462 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2382 031463 003 04 0 00 001002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2383 031464 321 10 0 00 031456 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2384 2385 2386 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2387 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2388 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2389 2390 001003 SN=SN+1 2391 573000 XX=XX-1000 2392 000340 YY=YY! 2393 777767 ZZ=&777777 2394 IFE YY, 2395 031465 205 02 0 00 573000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2396 031466 661 02 0 00 000340 TLO AC-2,YY 2397 031467 561 03 0 00 777767 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2398 031470 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2399 031471 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2400 031472 003 04 0 00 001003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2401 031473 321 10 0 00 031465 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2402 2403 2404 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2405 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2406 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2407 2408 001004 SN=SN+1 2409 572000 XX=XX-1000 2410 000360 YY=YY! 2411 777757 ZZ=&777777 2412 IFE YY, 2413 031474 205 02 0 00 572000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2414 031475 661 02 0 00 000360 TLO AC-2,YY 2415 031476 561 03 0 00 777757 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2416 031477 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2417 031500 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2418 031501 003 04 0 00 001004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2419 031502 321 10 0 00 031474 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2420 2421 2422 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2423 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2424 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2425 2426 001005 SN=SN+1 2427 571000 XX=XX-1000 2428 000370 YY=YY! 2429 777737 ZZ=&777777 2430 IFE YY, 2431 031503 205 02 0 00 571000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2432 031504 661 02 0 00 000370 TLO AC-2,YY 2433 031505 561 03 0 00 777737 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2434 031506 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2435 031507 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0067 2436 031510 003 04 0 00 001005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2437 031511 321 10 0 00 031503 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2438 2439 2440 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2441 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2442 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2443 2444 001006 SN=SN+1 2445 570000 XX=XX-1000 2446 000374 YY=YY! 2447 777677 ZZ=&777777 2448 IFE YY, 2449 031512 205 02 0 00 570000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2450 031513 661 02 0 00 000374 TLO AC-2,YY 2451 031514 561 03 0 00 777677 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2452 031515 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2453 031516 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2454 031517 003 04 0 00 001006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2455 031520 321 10 0 00 031512 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2456 2457 2458 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2459 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2460 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2461 2462 001007 SN=SN+1 2463 567000 XX=XX-1000 2464 000376 YY=YY! 2465 777577 ZZ=&777777 2466 IFE YY, 2467 031521 205 02 0 00 567000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2468 031522 661 02 0 00 000376 TLO AC-2,YY 2469 031523 561 03 0 00 777577 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2470 031524 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2471 031525 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2472 031526 003 04 0 00 001007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2473 031527 321 10 0 00 031521 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2474 2475 2476 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2477 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2478 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2479 2480 001010 SN=SN+1 2481 566000 XX=XX-1000 2482 000377 YY=YY! 2483 777377 ZZ=&777777 2484 IFE YY, 2485 031530 205 02 0 00 566000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2486 031531 661 02 0 00 000377 TLO AC-2,YY 2487 031532 561 03 0 00 777377 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2488 031533 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2489 031534 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2490 031535 003 04 0 00 001010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0068 2491 031536 321 10 0 00 031530 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2492 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0069 2493 001100 SN=1100 2494 566377 XX=566377 2495 000000 YY=0 2496 777377 ZZ=777377 2497 2498 Q1100: REPEAT ^D9,< 2499 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2500 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2501 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2502 2503 SN=SN+1 2504 XX=XX-1000 2505 YY=YY! 2506 ZZ=&777777 2507 IFE YY, 2508 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2509 HRRI AC-2,YY 2510 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2511 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2512 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2513 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2514 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2515 > 2516 2517 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2518 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2519 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2520 2521 001101 SN=SN+1 2522 565377 XX=XX-1000 2523 000000 YY=YY! 2524 776777 ZZ=&777777 2525 400000 IFE YY, 2526 031537 205 02 0 00 565377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2527 031540 541 02 0 00 400000 HRRI AC-2,YY 2528 031541 561 03 0 00 776777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2529 031542 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2530 031543 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2531 031544 003 04 0 00 001101 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2532 031545 321 10 0 00 031537 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2533 2534 2535 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2536 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2537 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2538 2539 001102 SN=SN+1 2540 564377 XX=XX-1000 2541 600000 YY=YY! 2542 775777 ZZ=&777777 2543 IFE YY, 2544 031546 205 02 0 00 564377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2545 031547 541 02 0 00 600000 HRRI AC-2,YY 2546 031550 561 03 0 00 775777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2547 031551 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0070 2548 031552 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2549 031553 003 04 0 00 001102 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2550 031554 321 10 0 00 031546 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2551 2552 2553 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2554 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2555 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2556 2557 001103 SN=SN+1 2558 563377 XX=XX-1000 2559 700000 YY=YY! 2560 773777 ZZ=&777777 2561 IFE YY, 2562 031555 205 02 0 00 563377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2563 031556 541 02 0 00 700000 HRRI AC-2,YY 2564 031557 561 03 0 00 773777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2565 031560 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2566 031561 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2567 031562 003 04 0 00 001103 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2568 031563 321 10 0 00 031555 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2569 2570 2571 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2572 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2573 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2574 2575 001104 SN=SN+1 2576 562377 XX=XX-1000 2577 740000 YY=YY! 2578 767777 ZZ=&777777 2579 IFE YY, 2580 031564 205 02 0 00 562377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2581 031565 541 02 0 00 740000 HRRI AC-2,YY 2582 031566 561 03 0 00 767777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2583 031567 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2584 031570 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2585 031571 003 04 0 00 001104 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2586 031572 321 10 0 00 031564 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2587 2588 2589 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2590 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2591 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2592 2593 001105 SN=SN+1 2594 561377 XX=XX-1000 2595 760000 YY=YY! 2596 757777 ZZ=&777777 2597 IFE YY, 2598 031573 205 02 0 00 561377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2599 031574 541 02 0 00 760000 HRRI AC-2,YY 2600 031575 561 03 0 00 757777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2601 031576 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2602 031577 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0071 2603 031600 003 04 0 00 001105 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2604 031601 321 10 0 00 031573 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2605 2606 2607 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2608 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2609 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2610 2611 001106 SN=SN+1 2612 560377 XX=XX-1000 2613 770000 YY=YY! 2614 737777 ZZ=&777777 2615 IFE YY, 2616 031602 205 02 0 00 560377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2617 031603 541 02 0 00 770000 HRRI AC-2,YY 2618 031604 561 03 0 00 737777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2619 031605 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2620 031606 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2621 031607 003 04 0 00 001106 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2622 031610 321 10 0 00 031602 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2623 2624 2625 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2626 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2627 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2628 2629 001107 SN=SN+1 2630 557377 XX=XX-1000 2631 774000 YY=YY! 2632 677777 ZZ=&777777 2633 IFE YY, 2634 031611 205 02 0 00 557377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2635 031612 541 02 0 00 774000 HRRI AC-2,YY 2636 031613 561 03 0 00 677777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2637 031614 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2638 031615 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2639 031616 003 04 0 00 001107 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2640 031617 321 10 0 00 031611 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2641 2642 2643 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2644 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2645 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2646 2647 001110 SN=SN+1 2648 556377 XX=XX-1000 2649 776000 YY=YY! 2650 577777 ZZ=&777777 2651 IFE YY, 2652 031620 205 02 0 00 556377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2653 031621 541 02 0 00 776000 HRRI AC-2,YY 2654 031622 561 03 0 00 577777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2655 031623 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2656 031624 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2657 031625 003 04 0 00 001110 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0072 2658 031626 321 10 0 00 031620 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2659 2660 2661 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2662 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2663 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2664 2665 001111 SN=SN+1 2666 555377 XX=XX-1000 2667 777000 YY=YY! 2668 377777 ZZ=&777777 2669 IFE YY, 2670 031627 205 02 0 00 555377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2671 031630 541 02 0 00 777000 HRRI AC-2,YY 2672 031631 561 03 0 00 377777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON 2673 031632 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT 2674 031633 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2675 031634 003 04 0 00 001111 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2676 031635 321 10 0 00 031627 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2677 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0073 2678 2679 2680 001200 SN=1200 2681 000000 ZZ=0 2682 2683 Q1200: REPEAT ^D9,< 2684 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2685 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2686 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2687 2688 SN=SN+1 2689 XX=XX-1000 2690 YY=YY! 2691 ZZ=&777777 2692 IFE , 2693 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2694 HRRI AC-2,YY ;RESULT FOR COMPARISON 2695 HRLOI AC-1,ZZ 2696 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2697 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2698 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2699 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2700 > 2701 2702 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2703 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2704 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2705 2706 001201 SN=SN+1 2707 554377 XX=XX-1000 2708 777400 YY=YY! 2709 000001 ZZ=&777777 2710 777776 IFE , 2711 031636 205 02 0 00 554377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2712 031637 541 02 0 00 777400 HRRI AC-2,YY ;RESULT FOR COMPARISON 2713 031640 525 03 0 00 777776 HRLOI AC-1,ZZ 2714 031641 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2715 031642 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2716 031643 003 04 0 00 001201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2717 031644 321 10 0 00 031636 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2718 2719 2720 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2721 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2722 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2723 2724 001202 SN=SN+1 2725 553377 XX=XX-1000 2726 777600 YY=YY! 2727 777775 ZZ=&777777 2728 IFE , 2729 031645 205 02 0 00 553377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2730 031646 541 02 0 00 777600 HRRI AC-2,YY ;RESULT FOR COMPARISON 2731 031647 525 03 0 00 777775 HRLOI AC-1,ZZ 2732 031650 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0074 2733 031651 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2734 031652 003 04 0 00 001202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2735 031653 321 10 0 00 031645 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2736 2737 2738 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2739 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2740 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2741 2742 001203 SN=SN+1 2743 552377 XX=XX-1000 2744 777700 YY=YY! 2745 777773 ZZ=&777777 2746 IFE , 2747 031654 205 02 0 00 552377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2748 031655 541 02 0 00 777700 HRRI AC-2,YY ;RESULT FOR COMPARISON 2749 031656 525 03 0 00 777773 HRLOI AC-1,ZZ 2750 031657 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2751 031660 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2752 031661 003 04 0 00 001203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2753 031662 321 10 0 00 031654 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2754 2755 2756 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2757 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2758 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2759 2760 001204 SN=SN+1 2761 551377 XX=XX-1000 2762 777740 YY=YY! 2763 777767 ZZ=&777777 2764 IFE , 2765 031663 205 02 0 00 551377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2766 031664 541 02 0 00 777740 HRRI AC-2,YY ;RESULT FOR COMPARISON 2767 031665 525 03 0 00 777767 HRLOI AC-1,ZZ 2768 031666 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2769 031667 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2770 031670 003 04 0 00 001204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2771 031671 321 10 0 00 031663 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2772 2773 2774 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2775 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2776 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2777 2778 001205 SN=SN+1 2779 550377 XX=XX-1000 2780 777760 YY=YY! 2781 777757 ZZ=&777777 2782 IFE , 2783 031672 205 02 0 00 550377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2784 031673 541 02 0 00 777760 HRRI AC-2,YY ;RESULT FOR COMPARISON 2785 031674 525 03 0 00 777757 HRLOI AC-1,ZZ 2786 031675 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2787 031676 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0075 2788 031677 003 04 0 00 001205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2789 031700 321 10 0 00 031672 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2790 2791 2792 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2793 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2794 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2795 2796 001206 SN=SN+1 2797 547377 XX=XX-1000 2798 777770 YY=YY! 2799 777737 ZZ=&777777 2800 IFE , 2801 031701 205 02 0 00 547377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2802 031702 541 02 0 00 777770 HRRI AC-2,YY ;RESULT FOR COMPARISON 2803 031703 525 03 0 00 777737 HRLOI AC-1,ZZ 2804 031704 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2805 031705 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2806 031706 003 04 0 00 001206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2807 031707 321 10 0 00 031701 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2808 2809 2810 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2811 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2812 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2813 2814 001207 SN=SN+1 2815 546377 XX=XX-1000 2816 777774 YY=YY! 2817 777677 ZZ=&777777 2818 IFE , 2819 031710 205 02 0 00 546377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2820 031711 541 02 0 00 777774 HRRI AC-2,YY ;RESULT FOR COMPARISON 2821 031712 525 03 0 00 777677 HRLOI AC-1,ZZ 2822 031713 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2823 031714 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2824 031715 003 04 0 00 001207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2825 031716 321 10 0 00 031710 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2826 2827 2828 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2829 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2830 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2831 2832 001210 SN=SN+1 2833 545377 XX=XX-1000 2834 777776 YY=YY! 2835 777577 ZZ=&777777 2836 IFE , 2837 031717 205 02 0 00 545377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2838 031720 541 02 0 00 777776 HRRI AC-2,YY ;RESULT FOR COMPARISON 2839 031721 525 03 0 00 777577 HRLOI AC-1,ZZ 2840 031722 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2841 031723 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2842 031724 003 04 0 00 001210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0076 2843 031725 321 10 0 00 031717 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2844 2845 2846 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2847 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2848 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2849 2850 001211 SN=SN+1 2851 544377 XX=XX-1000 2852 777777 YY=YY! 2853 777377 ZZ=&777777 2854 IFE , 2855 031726 205 02 0 00 544377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR 2856 031727 541 02 0 00 777777 HRRI AC-2,YY ;RESULT FOR COMPARISON 2857 031730 525 03 0 00 777377 HRLOI AC-1,ZZ 2858 031731 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2859 031732 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2860 031733 003 04 0 00 001211 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2861 031734 321 10 0 00 031726 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2862 2863 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0077 2864 001300 SN=1300 2865 544377 XX=544377 2866 777377 ZZ=777377 2867 777777 WW=777777 2868 2869 Q1300: REPEAT ^D8,< 2870 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2871 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2872 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2873 2874 SN=SN+1 2875 XX=XX-1000 2876 ZZ=&777777 2877 WW=&777777 2878 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2879 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2880 HRRI AC-1,WW 2881 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2882 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2883 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2884 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2885 > 2886 2887 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2888 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2889 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2890 2891 001301 SN=SN+1 2892 543377 XX=XX-1000 2893 776777 ZZ=&777777 2894 777776 WW=&777777 2895 031735 525 02 0 00 543377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2896 031736 505 03 0 00 776777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2897 031737 541 03 0 00 777776 HRRI AC-1,WW 2898 031740 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2899 031741 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2900 031742 003 04 0 00 001301 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2901 031743 321 10 0 00 031735 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2902 2903 2904 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2905 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2906 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2907 2908 001302 SN=SN+1 2909 542377 XX=XX-1000 2910 775777 ZZ=&777777 2911 777774 WW=&777777 2912 031744 525 02 0 00 542377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2913 031745 505 03 0 00 775777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2914 031746 541 03 0 00 777774 HRRI AC-1,WW 2915 031747 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2916 031750 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2917 031751 003 04 0 00 001302 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2918 031752 321 10 0 00 031744 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0078 2919 2920 2921 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2922 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2923 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2924 2925 001303 SN=SN+1 2926 541377 XX=XX-1000 2927 773777 ZZ=&777777 2928 777770 WW=&777777 2929 031753 525 02 0 00 541377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2930 031754 505 03 0 00 773777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2931 031755 541 03 0 00 777770 HRRI AC-1,WW 2932 031756 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2933 031757 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2934 031760 003 04 0 00 001303 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2935 031761 321 10 0 00 031753 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2936 2937 2938 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2939 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2940 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2941 2942 001304 SN=SN+1 2943 540377 XX=XX-1000 2944 767777 ZZ=&777777 2945 777760 WW=&777777 2946 031762 525 02 0 00 540377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2947 031763 505 03 0 00 767777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2948 031764 541 03 0 00 777760 HRRI AC-1,WW 2949 031765 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2950 031766 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2951 031767 003 04 0 00 001304 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2952 031770 321 10 0 00 031762 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2953 2954 2955 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2956 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2957 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2958 2959 001305 SN=SN+1 2960 537377 XX=XX-1000 2961 757777 ZZ=&777777 2962 777740 WW=&777777 2963 031771 525 02 0 00 537377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2964 031772 505 03 0 00 757777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2965 031773 541 03 0 00 777740 HRRI AC-1,WW 2966 031774 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2967 031775 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2968 031776 003 04 0 00 001305 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2969 031777 321 10 0 00 031771 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2970 2971 2972 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2973 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0079 2974 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2975 2976 001306 SN=SN+1 2977 536377 XX=XX-1000 2978 737777 ZZ=&777777 2979 777700 WW=&777777 2980 032000 525 02 0 00 536377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2981 032001 505 03 0 00 737777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2982 032002 541 03 0 00 777700 HRRI AC-1,WW 2983 032003 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 2984 032004 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 2985 032005 003 04 0 00 001306 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 2986 032006 321 10 0 00 032000 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 2987 2988 2989 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 2990 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 2991 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 2992 2993 001307 SN=SN+1 2994 535377 XX=XX-1000 2995 677777 ZZ=&777777 2996 777600 WW=&777777 2997 032007 525 02 0 00 535377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 2998 032010 505 03 0 00 677777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 2999 032011 541 03 0 00 777600 HRRI AC-1,WW 3000 032012 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 3001 032013 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 3002 032014 003 04 0 00 001307 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 3003 032015 321 10 0 00 032007 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 3004 3005 3006 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 3007 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 3008 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 3009 3010 001310 SN=SN+1 3011 534377 XX=XX-1000 3012 577777 ZZ=&777777 3013 777400 WW=&777777 3014 032016 525 02 0 00 534377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR 3015 032017 505 03 0 00 577777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON 3016 032020 541 03 0 00 777400 HRRI AC-1,WW 3017 032021 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 3018 032022 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 3019 032023 003 04 0 00 001310 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 3020 032024 321 10 0 00 032016 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 3021 3022 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0080 3023 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO. 3024 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC 3025 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS 3026 3027 032025 525 02 0 00 243777 Q1400: HRLOI AC-2,243777 ;INITIALIZE FLT PT NBR 3028 032026 505 03 0 00 377777 HRLI AC-1,377777 ;RESULT FOR COMPARISON 3029 032027 541 03 0 00 777400 HRRI AC-1,777400 3030 032030 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT 3031 032031 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR? 3032 032032 003 04 0 00 001401 ER3 AC,1401 ;FAILURE IF TESTED BIT IS NOT CLEAR 3033 032033 321 10 0 00 032025 JUMPL SAC,Q1400 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 8 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0081 3034 SUBTTL DIAGNOSTIC SECTION - FIX - TRUNCATION 3035 3036 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3037 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3038 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3039 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3040 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3041 ;CONVERTED. 3042 3043 032034 205 02 0 00 576000 Q1500: MOVSI AC-2,576000 ;SET-UP FLT PT NBR 3044 032035 541 02 0 00 000001 HRRI AC-2,1 3045 032036 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT 3046 032037 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3047 ;TRUNCATE RESULT, AND PLACE IN AC 3048 032040 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED? 3049 032041 003 04 0 00 001501 ER3 AC,1501 ;TRUNCATION FAILED IN CONVERSION 3050 032042 321 10 0 00 032034 JUMPL SAC,Q1500 ;LOOP ON ERROR SWITCH 3051 3052 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3053 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3054 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3055 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3056 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3057 ;CONVERTED. 3058 3059 032043 515 02 0 00 576200 Q1600: HRLZI AC-2,576200 ;SET-UP FLT PT NBR 3060 032044 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT 3061 032045 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3062 ;TRUNCATE RESULT, AND PLACE IN AC 3063 032046 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED? 3064 032047 003 04 0 00 001601 ER3 AC,1601 ;TRUNCATION FAILED IN CONVERSION 3065 032050 321 10 0 00 032043 JUMPL SAC,Q1600 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 9 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0082 3066 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3067 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3068 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3069 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3070 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3071 ;CONVERTED. 3072 3073 032051 205 02 0 00 576200 Q1700: MOVSI AC-2,576200 ;SET-UP FLT PT NBR 3074 032052 541 02 0 00 000001 HRRI AC-2,1 3075 032053 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT 3076 032054 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3077 ;TRUNCATE RESULT, AND PLACE IN AC 3078 032055 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED? 3079 032056 003 04 0 00 001701 ER3 AC,1701 ;TRUNCATION FAILED IN CONVERSION 3080 032057 321 10 0 00 032051 JUMPL SAC,Q1700 ;LOOP ON ERROR SWITCH 3081 3082 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3083 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3084 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3085 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3086 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3087 ;CONVERTED. 3088 3089 032060 205 02 0 00 577000 Q2000: MOVSI AC-2,577000 ;SET-UP FLT PT NBR 3090 032061 541 02 0 00 000001 HRRI AC-2,1 ;SET-UP EXPECTED RESULT 3091 032062 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3092 ;TRUNCATE RESULT, AND PLACE IN AC 3093 032063 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED? 3094 032064 003 04 0 00 002001 ER3 AC,2001 ;TRUNCATION FAILED IN CONVERSION 3095 032065 321 10 0 00 032060 JUMPL SAC,Q2000 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 10 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0083 3096 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3097 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3098 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3099 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3100 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3101 ;CONVERTED. 3102 3103 032066 205 02 0 00 577400 Q2100: MOVSI AC-2,577400 ;SET-UP FLT PT NBR 3104 032067 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3105 ;TRUNCATE RESULT, AND PLACE IN AC 3106 032070 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED? 3107 032071 003 04 0 00 002101 ER3 AC,2101 ;TRUNCATION FAILED IN CONVERSION 3108 032072 321 10 0 00 032066 JUMPL SAC,Q2100 ;LOOP ON ERROR SWITCH 3109 3110 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3111 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3112 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3113 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3114 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3115 ;CONVERTED. 3116 3117 032073 205 02 0 00 600000 Q2200: MOVSI AC-2,600000 ;SET-UP FLT PT NBR 3118 032074 541 02 0 00 000001 HRRI AC-2,1 3119 032075 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3120 ;TRUNCATE RESULT, AND PLACE IN AC 3121 032076 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED? 3122 032077 003 04 0 00 002201 ER3 AC,2201 ;TRUNCATION FAILED IN CONVERSION 3123 032100 321 10 0 00 032073 JUMPL SAC,Q2200 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 11 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0084 3124 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3125 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3126 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3127 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3128 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3129 ;CONVERTED. 3130 3131 032101 525 02 0 00 177777 Q2300: HRLOI AC-2,177777 ;SET-UP FLT PT NBR 3132 032102 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3133 ;TRUNCATE RESULT, AND PLACE IN AC 3134 032103 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED? 3135 032104 003 04 0 00 002301 ER3 AC,2301 ;TRUNCATION FAILED IN CONVERSION 3136 032105 321 10 0 00 032101 JUMPL SAC,Q2300 ;LOOP ON ERROR SWITCH 3137 3138 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3139 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3140 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3141 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3142 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3143 ;CONVERTED. 3144 3145 032106 205 02 0 00 200400 Q2400: MOVSI AC-2,200400 ;SET-UP FLT PT NBR 3146 032107 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3147 ;TRUNCATE RESULT, AND PLACE IN AC 3148 032110 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED? 3149 032111 003 04 0 00 002401 ER3 AC,2401 ;TRUNCATION FAILED IN CONVERSION 3150 032112 321 10 0 00 032106 JUMPL SAC,Q2400 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 12 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0085 3151 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3152 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3153 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3154 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3155 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3156 ;CONVERTED. 3157 3158 032113 525 02 0 00 200777 Q2500: HRLOI AC-2,200777 ;SET-UP FLT PT NBR 3159 032114 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3160 ;TRUNCATE RESULT, AND PLACE IN AC 3161 032115 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED? 3162 032116 003 04 0 00 002501 ER3 AC,2501 ;TRUNCATION FAILED IN CONVERSION 3163 032117 321 10 0 00 032113 JUMPL SAC,Q2500 ;LOOP ON ERROR SWITCH 3164 3165 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3166 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3167 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3168 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3169 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3170 ;CONVERTED. 3171 3172 032120 525 02 0 00 201577 Q2600: HRLOI AC-2,201577 ;SET-UP FLT PT NBR 3173 032121 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3174 ;TRUNCATE RESULT, AND PLACE IN AC 3175 032122 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED? 3176 032123 003 04 0 00 002601 ER3 AC,2601 ;TRUNCATION FAILED IN CONVERSION 3177 032124 321 10 0 00 032120 JUMPL SAC,Q2600 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 13 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0086 3178 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3179 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3180 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3181 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3182 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3183 ;CONVERTED. 3184 3185 032125 205 02 0 00 201600 Q2700: MOVSI AC-2,201600 ;SET-UP FLT PT NBR 3186 032126 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3187 ;TRUNCATE RESULT, AND PLACE IN AC 3188 032127 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED? 3189 032130 003 04 0 00 002701 ER3 AC,2701 ;TRUNCATION FAILED IN CONVERSION 3190 032131 321 10 0 00 032125 JUMPL SAC,Q2700 ;LOOP ON ERROR SWITCH 3191 3192 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT 3193 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN 3194 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE, 3195 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN 3196 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING 3197 ;CONVERTED. 3198 3199 032132 525 02 0 00 201777 Q3000: HRLOI AC-2,201777 ;SET-UP FLT PT NBR 3200 032133 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3201 ;TRUNCATE RESULT, AND PLACE IN AC 3202 032134 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED? 3203 032135 003 04 0 00 003001 ER3 AC,3001 ;TRUNCATION FAILED IN CONVERSION 3204 032136 321 10 0 00 032132 JUMPL SAC,Q3000 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 14 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS SEQ 0087 3205 SUBTTL DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS 3206 3207 ;VERIFY THAT 'FIX AC,E' OPERATES FOR 'E' BEYOND THE 'AC' RANGE 3208 3209 SAVEAC^ 3210 032137 201 10 0 00 032137 MOVEI SAC,. 3211 032140 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 3212 032141 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 3213 032142 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 3214 032143 515 02 0 00 576200 Q3010: HRLZI AC-2,576200 3215 032144 202 02 0 00 036501 MOVEM AC-2,TSTWD ;LOAD 'E' WITH DATA 3216 032145 476 00 0 00 000003 SETOM AC-1 ;RESULT FOR COMPARISON 3217 032146 122 04 0 00 036501 FIX AC,TSTWD ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN AC 3218 032147 312 04 0 00 000003 CAME AC,AC-1 ;DID 'FIX' GET CORRECT C(E)? 3219 032150 003 04 0 00 003011 ER3 AC,3011 ;FAILURE TO GET C(E) 3220 032151 321 10 0 00 032143 JUMPL SAC,Q3010 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 15 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0088 3221 SUBTTL DIAGNOSTIC SECTION - FIXR - ROUNDING 3222 3223 ;CHECK THAT 'FIXR AC,E' DOES NOT MODIFY C(E) 3224 3225 032152 200 02 0 00 036673 Q3050: MOVE AC-2,[233525,,252525] ;LOAD 'E' WITH DATA 3226 032153 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN AC 3227 032154 312 02 0 00 036673 CAME AC-2,[233525,,252525] ;WAS FLT PT NO. MODIFIED? 3228 032155 005 02 0 00 003051 ER5 AC-2,3051 ;C(E) WAS CLOBBERED 3229 032156 321 10 0 00 032152 JUMPL SAC,Q3050 ;LOOP ON ERROR SWITCH 3230 3231 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3232 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3233 ;THE RESULT IS ROUNDED DOWN TO 'N' 3234 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3235 ;THE RESULT IS ROUNDED UP TO "N+1" 3236 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3237 ;BEING CONVERTED 3238 3239 032157 205 02 0 00 576000 Q3100: MOVSI AC-2,576000 ;SET-UP FLT PT NBR 3240 032160 541 02 0 00 000001 HRRI AC-2,1 3241 032161 561 03 0 00 777776 HRROI AC-1,-2 ;SET-UP EXPECTED RESULT 3242 032162 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3243 ;ROUND RESULT, AND PLACE IN AC 3244 032163 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED? 3245 032164 003 04 0 00 003101 ER3 AC,3101 ;ROUNDING FAILED IN CONVERSION 3246 032165 321 10 0 00 032157 JUMPL SAC,Q3100 ;LOOP ON ERROR SWITCH 3247 3248 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3249 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3250 ;THE RESULT IS ROUNDED DOWN TO 'N' 3251 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3252 ;THE RESULT IS ROUNDED UP TO "N+1" 3253 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3254 ;BEING CONVERTED 3255 3256 032166 205 02 0 00 576200 Q3200: MOVSI AC-2,576200 ;SET-UP FLT PT NBR 3257 032167 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT 3258 032170 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3259 ;ROUND RESULT, AND PLACE IN AC 3260 032171 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED? 3261 032172 003 04 0 00 003201 ER3 AC,3201 ;ROUNDING FAILED IN CONVERSION 3262 032173 321 10 0 00 032166 JUMPL SAC,Q3200 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 16 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0089 3263 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3264 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3265 ;THE RESULT IS ROUNDED DOWN TO 'N' 3266 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3267 ;THE RESULT IS ROUNDED UP TO "N+1" 3268 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3269 ;BEING CONVERTED 3270 3271 032174 205 02 0 00 576200 Q3300: MOVSI AC-2,576200 ;SET-UP FLT PT NBR 3272 032175 541 02 0 00 000001 HRRI AC-2,1 3273 032176 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT 3274 032177 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3275 ;ROUND RESULT, AND PLACE IN AC 3276 032200 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED? 3277 032201 003 04 0 00 003301 ER3 AC,3301 ;ROUNDING FAILED IN CONVERSION 3278 032202 321 10 0 00 032174 JUMPL SAC,Q3300 ;LOOP ON ERROR SWITCH 3279 3280 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3281 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3282 ;THE RESULT IS ROUNDED DOWN TO 'N' 3283 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3284 ;THE RESULT IS ROUNDED UP TO "N+1" 3285 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3286 ;BEING CONVERTED 3287 3288 032203 205 02 0 00 577000 Q3400: MOVSI AC-2,577000 ;SET-UP FLT PT NBR 3289 032204 541 02 0 00 000001 HRRI AC-2,1 3290 032205 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT 3291 032206 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3292 ;ROUND RESULT, AND PLACE IN AC 3293 032207 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED? 3294 032210 003 04 0 00 003401 ER3 AC,3401 ;ROUNDING FAILED IN CONVERSION 3295 032211 321 10 0 00 032203 JUMPL SAC,Q3400 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 17 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0090 3296 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3297 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3298 ;THE RESULT IS ROUNDED DOWN TO 'N' 3299 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3300 ;THE RESULT IS ROUNDED UP TO "N+1" 3301 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3302 ;BEING CONVERTED 3303 3304 032212 205 02 0 00 577400 Q3500: MOVSI AC-2,577400 ;SET-UP FLT PT NBR 3305 032213 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3306 ;ROUND RESULT, AND PLACE IN AC 3307 032214 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED? 3308 032215 003 04 0 00 003501 ER3 AC,3501 ;ROUNDING FAILED IN CONVERSION 3309 032216 321 10 0 00 032212 JUMPL SAC,Q3500 ;LOOP ON ERROR SWITCH 3310 3311 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3312 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3313 ;THE RESULT IS ROUNDED DOWN TO 'N' 3314 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3315 ;THE RESULT IS ROUNDED UP TO "N+1" 3316 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3317 ;BEING CONVERTED 3318 3319 032217 205 02 0 00 600000 Q3600: MOVSI AC-2,600000 ;SET-UP FLT PT NBR 3320 032220 541 02 0 00 000001 HRRI AC-2,1 3321 032221 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3322 ;ROUND RESULT, AND PLACE IN AC 3323 032222 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED? 3324 032223 003 04 0 00 003601 ER3 AC,3601 ;ROUNDING FAILED IN CONVERSION 3325 032224 321 10 0 00 032217 JUMPL SAC,Q3600 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 18 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0091 3326 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3327 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3328 ;THE RESULT IS ROUNDED DOWN TO 'N' 3329 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3330 ;THE RESULT IS ROUNDED UP TO "N+1" 3331 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3332 ;BEING CONVERTED 3333 3334 032225 525 02 0 00 177777 Q3700: HRLOI AC-2,177777 ;SET-UP FLT PT NBR 3335 032226 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3336 ;ROUND RESULT, AND PLACE IN AC 3337 032227 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED? 3338 032230 003 04 0 00 003701 ER3 AC,3701 ;ROUNDING FAILED IN CONVERSION 3339 032231 321 10 0 00 032225 JUMPL SAC,Q3700 ;LOOP ON ERROR SWITCH 3340 3341 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3342 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3343 ;THE RESULT IS ROUNDED DOWN TO 'N' 3344 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3345 ;THE RESULT IS ROUNDED UP TO "N+1" 3346 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3347 ;BEING CONVERTED 3348 3349 032232 205 02 0 00 200400 Q4000: MOVSI AC-2,200400 ;SET-UP FLT PT NBR 3350 032233 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3351 ;ROUND RESULT, AND PLACE IN AC 3352 032234 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED? 3353 032235 003 04 0 00 004001 ER3 AC,4001 ;ROUNDING FAILED IN CONVERSION 3354 032236 321 10 0 00 032232 JUMPL SAC,Q4000 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 19 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0092 3355 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3356 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3357 ;THE RESULT IS ROUNDED DOWN TO 'N' 3358 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3359 ;THE RESULT IS ROUNDED UP TO "N+1" 3360 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3361 ;BEING CONVERTED 3362 3363 032237 525 02 0 00 200777 Q4100: HRLOI AC-2,200777 ;SET-UP FLT PT NBR 3364 032240 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3365 ;ROUND RESULT, AND PLACE IN AC 3366 032241 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED? 3367 032242 003 04 0 00 004101 ER3 AC,4101 ;ROUNDING FAILED IN CONVERSION 3368 032243 321 10 0 00 032237 JUMPL SAC,Q4100 ;LOOP ON ERROR SWITCH 3369 3370 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3371 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3372 ;THE RESULT IS ROUNDED DOWN TO 'N' 3373 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3374 ;THE RESULT IS ROUNDED UP TO "N+1" 3375 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3376 ;BEING CONVERTED 3377 3378 032244 525 02 0 00 201577 Q4200: HRLOI AC-2,201577 ;SET-UP FLT PT NBR 3379 032245 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3380 ;ROUND RESULT, AND PLACE IN AC 3381 032246 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED? 3382 032247 003 04 0 00 004201 ER3 AC,4201 ;ROUNDING FAILED IN CONVERSION 3383 032250 321 10 0 00 032244 JUMPL SAC,Q4200 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 20 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0093 3384 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3385 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3386 ;THE RESULT IS ROUNDED DOWN TO 'N' 3387 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3388 ;THE RESULT IS ROUNDED UP TO "N+1" 3389 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3390 ;BEING CONVERTED 3391 3392 032251 205 02 0 00 201600 Q4300: MOVSI AC-2,201600 ;SET-UP FLT PT NBR 3393 032252 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3394 ;ROUND RESULT, AND PLACE IN AC 3395 032253 302 04 0 00 000002 CAIE AC,2 ;IS RESULT ROUNDED? 3396 032254 003 04 0 00 004301 ER3 AC,4301 ;ROUNDING FAILED IN CONVERSION 3397 032255 321 10 0 00 032251 JUMPL SAC,Q4300 ;LOOP ON ERROR SWITCH 3398 3399 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT 3400 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5', 3401 ;THE RESULT IS ROUNDED DOWN TO 'N' 3402 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' , 3403 ;THE RESULT IS ROUNDED UP TO "N+1" 3404 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER 3405 ;BEING CONVERTED 3406 3407 032256 525 02 0 00 201777 Q4400: HRLOI AC-2,201777 ;SET-UP FLT PT NBR 3408 032257 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT, 3409 ;ROUND RESULT, AND PLACE IN AC 3410 032260 302 04 0 00 000002 CAIE AC,2 ;IS RESULT ROUNDED? 3411 032261 003 04 0 00 004401 ER3 AC,4401 ;ROUNDING FAILED IN CONVERSION 3412 032262 321 10 0 00 032256 JUMPL SAC,Q4400 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 21 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS SEQ 0094 3413 SUBTTL DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS 3414 3415 ;CHECK THAT 'FIXR AC,E' OPERATES FOR 'E' BEYOND AC RANGE 3416 3417 032263 205 02 0 00 576000 Q4410: MOVSI AC-2,576000 ;LOAD 'E' WITH DATA 3418 032264 541 02 0 00 000001 HRRI AC-2,1 3419 032265 202 02 0 00 036501 MOVEM AC-2,TSTWD 3420 032266 561 03 0 00 777776 HRROI AC-1,-2 ;RESULT FOR COMPARISON 3421 032267 126 04 0 00 036501 FIXR AC,TSTWD ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN AC 3422 032270 312 04 0 00 000003 CAME AC,AC-1 ;DID FIXR GET CORRECT C(E)? 3423 032271 003 04 0 00 004411 ER3 AC,4411 ;FAILURE TO GET C(E) 3424 032272 321 10 0 00 032263 JUMPL SAC,Q4410 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 22 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW SEQ 0095 3425 SUBTTL DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW 3426 3427 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE 3428 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER. 3429 3430 ;CHECK ABILITY TO CLEAR AROV BEFORE TESTING INTERACTION WITH 'FIX' 3431 3432 032273 255 10 0 00 032274 Q4500: JOV .+1 ;CLEAR ARITH OVFL FLG 3433 032274 265 04 0 00 032275 JSP AC,.+1 ;READ FLAGS 3434 032275 255 10 0 00 032277 JOV .+2 ;TEST AROV FLAG 3435 032276 254 00 0 00 032300 JRST .+2 ;SKIP ERROR CALL IF FLAG IS OK 3436 032277 013 04 0 00 004501 ER13 AC,4501 ;ARITH OVFL FLG SET 3437 032300 321 10 0 00 032273 JUMPL SAC,Q4500 ;LOOP ON ERROR SWITCH 3438 3439 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE 3440 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER. 3441 3442 032301 255 10 0 00 032302 Q4600: JOV .+1 ;CLEAR ARITH OVFL FLG 3443 032302 205 02 0 00 244400 MOVSI AC-2,244400 ;INITIALIZE FLOATING PT WORD 3444 032303 477 04 0 00 000003 SETOB AC,AC-1 ;SET-UP RESULT 3445 032304 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD SET AROV 3446 032305 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC 3447 032306 003 04 0 00 004601 ER3 AC,4601 ;C(AC) WAS MODIFIED 3448 032307 265 05 0 00 032310 JSP AC+1,.+1 ;READ FLAGS 3449 032310 255 10 0 00 032312 JOV .+2 ;TEST ARITH OVFL FLG 3450 032311 013 05 0 00 004601 ER13 AC+1,4601 ;ARITH OVFL FLAG CLEAR 3451 032312 321 10 0 00 032301 JUMPL SAC,Q4600 ;LOOP ON ERROR SWITCH 3452 3453 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE 3454 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER. 3455 3456 032313 255 10 0 00 032314 Q4700: JOV .+1 ;CLEAR ARITH OVFL FLG 3457 032314 525 02 0 00 243777 HRLOI AC-2,243777 ;INITIALIZE FLT. PT. WORD 3458 032315 561 03 0 00 777400 HRROI AC-1,777400 ;SET UP RESULT 3459 032316 621 03 0 00 400000 TLZ AC-1,AROV 3460 032317 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD NOT SET AROV 3461 032320 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC 3462 032321 003 04 0 00 004701 ER3 AC,4701 ;C(AC) INCORRECT 3463 032322 265 05 0 00 032323 JSP AC+1,.+1 ;READ FLAGS 3464 032323 255 10 0 00 032325 JOV .+2 ;TEST ARITH OVFL FLG 3465 032324 254 00 0 00 032326 JRST .+2 ;SKIP ERROR CALL IF AROV IS CLEAR 3466 032325 013 05 0 00 004701 ER13 AC+1,4701 ;ARITH OVFL FLAG SET 3467 032326 321 10 0 00 032313 JUMPL SAC,Q4700 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 23 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW SEQ 0096 3468 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE 3469 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER. 3470 3471 032327 255 10 0 00 032330 Q5000: JOV .+1 ;CLEAR ARITH OVFL FLG 3472 032330 205 02 0 00 533400 MOVSI AC-2,533400 ;INIT FLT. PT. WORD 3473 032331 477 04 0 00 000003 SETOB AC,AC-1 ;SET-UP RESULT 3474 032332 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD SET AROV 3475 032333 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC 3476 032334 003 04 0 00 005001 ER3 AC,5001 ;C(AC) WAS MODIFIED 3477 032335 265 05 0 00 032336 JSP AC+1,.+1 ;READ FLAGS 3478 032336 255 10 0 00 032340 JOV .+2 ;TEST ARITH OVFL FLG 3479 032337 013 05 0 00 005001 ER13 AC+1,5001 ;ARITH OVFL FLG CLEAR 3480 032340 321 10 0 00 032327 JUMPL SAC,Q5000 ;LOOP ON ERROR SWITCH 3481 3482 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE 3483 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER. 3484 3485 032341 255 10 0 00 032342 Q5100: JOV .+1 ;CLEAR ARITH OVFL FLG 3486 032342 205 02 0 00 534000 MOVSI AC-2,534000 ;INITIALIZE FLT. PT. WORD 3487 032343 660 02 0 00 000001 TRO AC-2,1 3488 032344 551 03 0 00 000400 HRRZI AC-1,400 ;SET-UP RESULT 3489 032345 661 03 0 00 400000 TLO AC-1,AROV 3490 032346 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD NOT SET AROV 3491 032347 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC 3492 032350 003 04 0 00 005101 ER3 AC,5101 ;C(AC) INCORRECT 3493 032351 265 05 0 00 032352 JSP AC+1,.+1 ;READ FLAGS 3494 032352 255 10 0 00 032354 JOV .+2 ;TEST ARITH OVFL FLG 3495 032353 254 00 0 00 032355 JRST .+2 ;SKIP ERROR CALL IF AROV IS CLEAR 3496 032354 013 05 0 00 005101 ER13 AC+1,5101 ;ARITH OVFL FLG SET 3497 032355 321 10 0 00 032341 JUMPL SAC,Q5100 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0097 3498 SUBTTL DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS 3499 3500 ;CHECK THAT 'FLTR AC,E' DOES NOT MODIFY C(E) 3501 3502 032356 200 02 0 00 036674 Q5150: MOVE AC-2,[252525,,252525] ;LOAD 'E' WITH DATA 3503 032357 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3504 032360 312 02 0 00 036674 CAME AC-2,[252525,,252525] ;WAS FIX PT NO. MODIFIED? 3505 032361 005 02 0 00 005151 ER5 AC-2,5151 ;C(E) WAS CLOBBERED 3506 032362 321 10 0 00 032356 JUMPL SAC,Q5150 ;LOOP ON ERROR SWITCH 3507 3508 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3509 3510 005200 SN=5200 3511 400000 XX=400000 3512 244400 YY=244400 3513 3514 Q5200: REPEAT ^D17,< 3515 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3516 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3517 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3518 3519 SN=SN+1 3520 XX=XX/2 3521 YY=YY-1000 3522 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3523 MOVSI AC-1,YY ;SET-UP RESULT 3524 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3525 CAME AC,AC-1 ;TEST EXPONENT 3526 ER3 AC,SN ;INCORRECT EXPONENT 3527 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3528 > 3529 3530 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3531 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3532 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3533 3534 005201 SN=SN+1 3535 200000 XX=XX/2 3536 243400 YY=YY-1000 3537 032363 205 02 0 00 200000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3538 032364 205 03 0 00 243400 MOVSI AC-1,YY ;SET-UP RESULT 3539 032365 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3540 032366 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3541 032367 003 04 0 00 005201 ER3 AC,SN ;INCORRECT EXPONENT 3542 032370 321 10 0 00 032363 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3543 3544 3545 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3546 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3547 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3548 3549 005202 SN=SN+1 3550 100000 XX=XX/2 3551 242400 YY=YY-1000 3552 032371 205 02 0 00 100000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0098 3553 032372 205 03 0 00 242400 MOVSI AC-1,YY ;SET-UP RESULT 3554 032373 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3555 032374 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3556 032375 003 04 0 00 005202 ER3 AC,SN ;INCORRECT EXPONENT 3557 032376 321 10 0 00 032371 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3558 3559 3560 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3561 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3562 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3563 3564 005203 SN=SN+1 3565 040000 XX=XX/2 3566 241400 YY=YY-1000 3567 032377 205 02 0 00 040000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3568 032400 205 03 0 00 241400 MOVSI AC-1,YY ;SET-UP RESULT 3569 032401 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3570 032402 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3571 032403 003 04 0 00 005203 ER3 AC,SN ;INCORRECT EXPONENT 3572 032404 321 10 0 00 032377 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3573 3574 3575 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3576 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3577 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3578 3579 005204 SN=SN+1 3580 020000 XX=XX/2 3581 240400 YY=YY-1000 3582 032405 205 02 0 00 020000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3583 032406 205 03 0 00 240400 MOVSI AC-1,YY ;SET-UP RESULT 3584 032407 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3585 032410 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3586 032411 003 04 0 00 005204 ER3 AC,SN ;INCORRECT EXPONENT 3587 032412 321 10 0 00 032405 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3588 3589 3590 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3591 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3592 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3593 3594 005205 SN=SN+1 3595 010000 XX=XX/2 3596 237400 YY=YY-1000 3597 032413 205 02 0 00 010000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3598 032414 205 03 0 00 237400 MOVSI AC-1,YY ;SET-UP RESULT 3599 032415 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3600 032416 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3601 032417 003 04 0 00 005205 ER3 AC,SN ;INCORRECT EXPONENT 3602 032420 321 10 0 00 032413 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3603 3604 3605 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3606 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3607 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0099 3608 3609 005206 SN=SN+1 3610 004000 XX=XX/2 3611 236400 YY=YY-1000 3612 032421 205 02 0 00 004000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3613 032422 205 03 0 00 236400 MOVSI AC-1,YY ;SET-UP RESULT 3614 032423 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3615 032424 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3616 032425 003 04 0 00 005206 ER3 AC,SN ;INCORRECT EXPONENT 3617 032426 321 10 0 00 032421 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3618 3619 3620 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3621 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3622 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3623 3624 005207 SN=SN+1 3625 002000 XX=XX/2 3626 235400 YY=YY-1000 3627 032427 205 02 0 00 002000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3628 032430 205 03 0 00 235400 MOVSI AC-1,YY ;SET-UP RESULT 3629 032431 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3630 032432 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3631 032433 003 04 0 00 005207 ER3 AC,SN ;INCORRECT EXPONENT 3632 032434 321 10 0 00 032427 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3633 3634 3635 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3636 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3637 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3638 3639 005210 SN=SN+1 3640 001000 XX=XX/2 3641 234400 YY=YY-1000 3642 032435 205 02 0 00 001000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3643 032436 205 03 0 00 234400 MOVSI AC-1,YY ;SET-UP RESULT 3644 032437 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3645 032440 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3646 032441 003 04 0 00 005210 ER3 AC,SN ;INCORRECT EXPONENT 3647 032442 321 10 0 00 032435 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3648 3649 3650 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3651 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3652 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3653 3654 005211 SN=SN+1 3655 000400 XX=XX/2 3656 233400 YY=YY-1000 3657 032443 205 02 0 00 000400 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3658 032444 205 03 0 00 233400 MOVSI AC-1,YY ;SET-UP RESULT 3659 032445 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3660 032446 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3661 032447 003 04 0 00 005211 ER3 AC,SN ;INCORRECT EXPONENT 3662 032450 321 10 0 00 032443 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0100 3663 3664 3665 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3666 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3667 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3668 3669 005212 SN=SN+1 3670 000200 XX=XX/2 3671 232400 YY=YY-1000 3672 032451 205 02 0 00 000200 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3673 032452 205 03 0 00 232400 MOVSI AC-1,YY ;SET-UP RESULT 3674 032453 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3675 032454 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3676 032455 003 04 0 00 005212 ER3 AC,SN ;INCORRECT EXPONENT 3677 032456 321 10 0 00 032451 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3678 3679 3680 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3681 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3682 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3683 3684 005213 SN=SN+1 3685 000100 XX=XX/2 3686 231400 YY=YY-1000 3687 032457 205 02 0 00 000100 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3688 032460 205 03 0 00 231400 MOVSI AC-1,YY ;SET-UP RESULT 3689 032461 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3690 032462 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3691 032463 003 04 0 00 005213 ER3 AC,SN ;INCORRECT EXPONENT 3692 032464 321 10 0 00 032457 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3693 3694 3695 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3696 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3697 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3698 3699 005214 SN=SN+1 3700 000040 XX=XX/2 3701 230400 YY=YY-1000 3702 032465 205 02 0 00 000040 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3703 032466 205 03 0 00 230400 MOVSI AC-1,YY ;SET-UP RESULT 3704 032467 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3705 032470 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3706 032471 003 04 0 00 005214 ER3 AC,SN ;INCORRECT EXPONENT 3707 032472 321 10 0 00 032465 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3708 3709 3710 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3711 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3712 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3713 3714 005215 SN=SN+1 3715 000020 XX=XX/2 3716 227400 YY=YY-1000 3717 032473 205 02 0 00 000020 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0101 3718 032474 205 03 0 00 227400 MOVSI AC-1,YY ;SET-UP RESULT 3719 032475 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3720 032476 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3721 032477 003 04 0 00 005215 ER3 AC,SN ;INCORRECT EXPONENT 3722 032500 321 10 0 00 032473 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3723 3724 3725 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3726 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3727 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3728 3729 005216 SN=SN+1 3730 000010 XX=XX/2 3731 226400 YY=YY-1000 3732 032501 205 02 0 00 000010 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3733 032502 205 03 0 00 226400 MOVSI AC-1,YY ;SET-UP RESULT 3734 032503 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3735 032504 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3736 032505 003 04 0 00 005216 ER3 AC,SN ;INCORRECT EXPONENT 3737 032506 321 10 0 00 032501 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3738 3739 3740 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3741 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3742 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3743 3744 005217 SN=SN+1 3745 000004 XX=XX/2 3746 225400 YY=YY-1000 3747 032507 205 02 0 00 000004 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3748 032510 205 03 0 00 225400 MOVSI AC-1,YY ;SET-UP RESULT 3749 032511 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3750 032512 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3751 032513 003 04 0 00 005217 ER3 AC,SN ;INCORRECT EXPONENT 3752 032514 321 10 0 00 032507 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3753 3754 3755 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3756 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3757 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3758 3759 005220 SN=SN+1 3760 000002 XX=XX/2 3761 224400 YY=YY-1000 3762 032515 205 02 0 00 000002 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3763 032516 205 03 0 00 224400 MOVSI AC-1,YY ;SET-UP RESULT 3764 032517 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3765 032520 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3766 032521 003 04 0 00 005220 ER3 AC,SN ;INCORRECT EXPONENT 3767 032522 321 10 0 00 032515 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3768 3769 3770 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3771 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3772 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0102 3773 3774 005221 SN=SN+1 3775 000001 XX=XX/2 3776 223400 YY=YY-1000 3777 032523 205 02 0 00 000001 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD 3778 032524 205 03 0 00 223400 MOVSI AC-1,YY ;SET-UP RESULT 3779 032525 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3780 032526 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3781 032527 003 04 0 00 005221 ER3 AC,SN ;INCORRECT EXPONENT 3782 032530 321 10 0 00 032523 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 3783 3784 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0103 3785 005300 SN=5300 3786 000000 XX=0 3787 223400 YY=223400 3788 3789 Q5300: REPEAT ^D18,< 3790 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3791 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3792 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3793 3794 SN=SN+1 3795 XX=XX/2 3796 YY=YY-1000 3797 IFE XX, 3798 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3799 MOVSI AC-1,YY ;SET-UP RESULT 3800 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3801 CAME AC,AC-1 ;TEST EXPONENT 3802 ER3 AC,SN ;INCORRECT EXPONENT 3803 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3804 > 3805 3806 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3807 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3808 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3809 3810 005301 SN=SN+1 3811 000000 XX=XX/2 3812 222400 YY=YY-1000 3813 400000 IFE XX, 3814 032531 551 02 0 00 400000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3815 032532 205 03 0 00 222400 MOVSI AC-1,YY ;SET-UP RESULT 3816 032533 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3817 032534 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3818 032535 003 04 0 00 005301 ER3 AC,SN ;INCORRECT EXPONENT 3819 032536 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3820 3821 3822 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3823 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3824 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3825 3826 005302 SN=SN+1 3827 200000 XX=XX/2 3828 221400 YY=YY-1000 3829 IFE XX, 3830 032537 551 02 0 00 200000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3831 032540 205 03 0 00 221400 MOVSI AC-1,YY ;SET-UP RESULT 3832 032541 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3833 032542 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3834 032543 003 04 0 00 005302 ER3 AC,SN ;INCORRECT EXPONENT 3835 032544 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3836 3837 3838 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3839 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0104 3840 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3841 3842 005303 SN=SN+1 3843 100000 XX=XX/2 3844 220400 YY=YY-1000 3845 IFE XX, 3846 032545 551 02 0 00 100000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3847 032546 205 03 0 00 220400 MOVSI AC-1,YY ;SET-UP RESULT 3848 032547 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3849 032550 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3850 032551 003 04 0 00 005303 ER3 AC,SN ;INCORRECT EXPONENT 3851 032552 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3852 3853 3854 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3855 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3856 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3857 3858 005304 SN=SN+1 3859 040000 XX=XX/2 3860 217400 YY=YY-1000 3861 IFE XX, 3862 032553 551 02 0 00 040000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3863 032554 205 03 0 00 217400 MOVSI AC-1,YY ;SET-UP RESULT 3864 032555 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3865 032556 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3866 032557 003 04 0 00 005304 ER3 AC,SN ;INCORRECT EXPONENT 3867 032560 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3868 3869 3870 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3871 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3872 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3873 3874 005305 SN=SN+1 3875 020000 XX=XX/2 3876 216400 YY=YY-1000 3877 IFE XX, 3878 032561 551 02 0 00 020000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3879 032562 205 03 0 00 216400 MOVSI AC-1,YY ;SET-UP RESULT 3880 032563 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3881 032564 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3882 032565 003 04 0 00 005305 ER3 AC,SN ;INCORRECT EXPONENT 3883 032566 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3884 3885 3886 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3887 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3888 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3889 3890 005306 SN=SN+1 3891 010000 XX=XX/2 3892 215400 YY=YY-1000 3893 IFE XX, 3894 032567 551 02 0 00 010000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-8 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0105 3895 032570 205 03 0 00 215400 MOVSI AC-1,YY ;SET-UP RESULT 3896 032571 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3897 032572 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3898 032573 003 04 0 00 005306 ER3 AC,SN ;INCORRECT EXPONENT 3899 032574 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3900 3901 3902 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3903 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3904 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3905 3906 005307 SN=SN+1 3907 004000 XX=XX/2 3908 214400 YY=YY-1000 3909 IFE XX, 3910 032575 551 02 0 00 004000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3911 032576 205 03 0 00 214400 MOVSI AC-1,YY ;SET-UP RESULT 3912 032577 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3913 032600 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3914 032601 003 04 0 00 005307 ER3 AC,SN ;INCORRECT EXPONENT 3915 032602 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3916 3917 3918 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3919 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3920 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3921 3922 005310 SN=SN+1 3923 002000 XX=XX/2 3924 213400 YY=YY-1000 3925 IFE XX, 3926 032603 551 02 0 00 002000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3927 032604 205 03 0 00 213400 MOVSI AC-1,YY ;SET-UP RESULT 3928 032605 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3929 032606 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3930 032607 003 04 0 00 005310 ER3 AC,SN ;INCORRECT EXPONENT 3931 032610 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3932 3933 3934 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3935 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3936 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3937 3938 005311 SN=SN+1 3939 001000 XX=XX/2 3940 212400 YY=YY-1000 3941 IFE XX, 3942 032611 551 02 0 00 001000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3943 032612 205 03 0 00 212400 MOVSI AC-1,YY ;SET-UP RESULT 3944 032613 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3945 032614 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3946 032615 003 04 0 00 005311 ER3 AC,SN ;INCORRECT EXPONENT 3947 032616 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3948 3949 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-9 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0106 3950 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3951 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3952 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3953 3954 005312 SN=SN+1 3955 000400 XX=XX/2 3956 211400 YY=YY-1000 3957 IFE XX, 3958 032617 551 02 0 00 000400 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3959 032620 205 03 0 00 211400 MOVSI AC-1,YY ;SET-UP RESULT 3960 032621 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3961 032622 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3962 032623 003 04 0 00 005312 ER3 AC,SN ;INCORRECT EXPONENT 3963 032624 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3964 3965 3966 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3967 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3968 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3969 3970 005313 SN=SN+1 3971 000200 XX=XX/2 3972 210400 YY=YY-1000 3973 IFE XX, 3974 032625 551 02 0 00 000200 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3975 032626 205 03 0 00 210400 MOVSI AC-1,YY ;SET-UP RESULT 3976 032627 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3977 032630 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3978 032631 003 04 0 00 005313 ER3 AC,SN ;INCORRECT EXPONENT 3979 032632 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3980 3981 3982 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3983 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 3984 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 3985 3986 005314 SN=SN+1 3987 000100 XX=XX/2 3988 207400 YY=YY-1000 3989 IFE XX, 3990 032633 551 02 0 00 000100 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 3991 032634 205 03 0 00 207400 MOVSI AC-1,YY ;SET-UP RESULT 3992 032635 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 3993 032636 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 3994 032637 003 04 0 00 005314 ER3 AC,SN ;INCORRECT EXPONENT 3995 032640 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 3996 3997 3998 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 3999 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4000 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 4001 4002 005315 SN=SN+1 4003 000040 XX=XX/2 4004 206400 YY=YY-1000 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-10 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0107 4005 IFE XX, 4006 032641 551 02 0 00 000040 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 4007 032642 205 03 0 00 206400 MOVSI AC-1,YY ;SET-UP RESULT 4008 032643 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4009 032644 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4010 032645 003 04 0 00 005315 ER3 AC,SN ;INCORRECT EXPONENT 4011 032646 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 4012 4013 4014 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4015 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4016 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 4017 4018 005316 SN=SN+1 4019 000020 XX=XX/2 4020 205400 YY=YY-1000 4021 IFE XX, 4022 032647 551 02 0 00 000020 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 4023 032650 205 03 0 00 205400 MOVSI AC-1,YY ;SET-UP RESULT 4024 032651 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4025 032652 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4026 032653 003 04 0 00 005316 ER3 AC,SN ;INCORRECT EXPONENT 4027 032654 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 4028 4029 4030 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4031 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4032 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 4033 4034 005317 SN=SN+1 4035 000010 XX=XX/2 4036 204400 YY=YY-1000 4037 IFE XX, 4038 032655 551 02 0 00 000010 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 4039 032656 205 03 0 00 204400 MOVSI AC-1,YY ;SET-UP RESULT 4040 032657 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4041 032660 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4042 032661 003 04 0 00 005317 ER3 AC,SN ;INCORRECT EXPONENT 4043 032662 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 4044 4045 4046 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4047 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4048 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 4049 4050 005320 SN=SN+1 4051 000004 XX=XX/2 4052 203400 YY=YY-1000 4053 IFE XX, 4054 032663 551 02 0 00 000004 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 4055 032664 205 03 0 00 203400 MOVSI AC-1,YY ;SET-UP RESULT 4056 032665 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4057 032666 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4058 032667 003 04 0 00 005320 ER3 AC,SN ;INCORRECT EXPONENT 4059 032670 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-11 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0108 4060 4061 4062 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4063 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4064 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 4065 4066 005321 SN=SN+1 4067 000002 XX=XX/2 4068 202400 YY=YY-1000 4069 IFE XX, 4070 032671 551 02 0 00 000002 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 4071 032672 205 03 0 00 202400 MOVSI AC-1,YY ;SET-UP RESULT 4072 032673 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4073 032674 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4074 032675 003 04 0 00 005321 ER3 AC,SN ;INCORRECT EXPONENT 4075 032676 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 4076 4077 4078 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4079 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4080 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS 4081 4082 005322 SN=SN+1 4083 000001 XX=XX/2 4084 201400 YY=YY-1000 4085 IFE XX, 4086 032677 551 02 0 00 000001 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD 4087 032700 205 03 0 00 201400 MOVSI AC-1,YY ;SET-UP RESULT 4088 032701 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4089 032702 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4090 032703 003 04 0 00 005322 ER3 AC,SN ;INCORRECT EXPONENT 4091 032704 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH 4092 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0109 4093 SUBTTL DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS 4094 4095 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4096 4097 005400 SN=5400 4098 000000 XX=0 4099 532400 YY=532400 4100 4101 Q5400: REPEAT ^D18,< 4102 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4103 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4104 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4105 4106 SN=SN+1 4107 XX=XX! 4108 YY=YY+1000 4109 IFE XX, 4110 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4111 MOVSI AC-1,YY ;SET-UP RESULT 4112 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4113 CAME AC,AC-1 ;TEST EXPONENT 4114 ER3 AC,SN ;INCORRECT EXPONENT 4115 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4116 > 4117 4118 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4119 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4120 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4121 4122 005401 SN=SN+1 4123 000000 XX=XX! 4124 533400 YY=YY+1000 4125 400000 IFE XX, 4126 032705 205 02 0 00 400000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4127 032706 205 03 0 00 533400 MOVSI AC-1,YY ;SET-UP RESULT 4128 032707 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4129 032710 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4130 032711 003 04 0 00 005401 ER3 AC,SN ;INCORRECT EXPONENT 4131 032712 321 10 0 00 032705 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4132 4133 4134 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4135 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4136 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4137 4138 005402 SN=SN+1 4139 600000 XX=XX! 4140 534400 YY=YY+1000 4141 IFE XX, 4142 032713 205 02 0 00 600000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4143 032714 205 03 0 00 534400 MOVSI AC-1,YY ;SET-UP RESULT 4144 032715 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4145 032716 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4146 032717 003 04 0 00 005402 ER3 AC,SN ;INCORRECT EXPONENT 4147 032720 321 10 0 00 032713 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0110 4148 4149 4150 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4151 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4152 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4153 4154 005403 SN=SN+1 4155 700000 XX=XX! 4156 535400 YY=YY+1000 4157 IFE XX, 4158 032721 205 02 0 00 700000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4159 032722 205 03 0 00 535400 MOVSI AC-1,YY ;SET-UP RESULT 4160 032723 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4161 032724 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4162 032725 003 04 0 00 005403 ER3 AC,SN ;INCORRECT EXPONENT 4163 032726 321 10 0 00 032721 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4164 4165 4166 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4167 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4168 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4169 4170 005404 SN=SN+1 4171 740000 XX=XX! 4172 536400 YY=YY+1000 4173 IFE XX, 4174 032727 205 02 0 00 740000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4175 032730 205 03 0 00 536400 MOVSI AC-1,YY ;SET-UP RESULT 4176 032731 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4177 032732 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4178 032733 003 04 0 00 005404 ER3 AC,SN ;INCORRECT EXPONENT 4179 032734 321 10 0 00 032727 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4180 4181 4182 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4183 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4184 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4185 4186 005405 SN=SN+1 4187 760000 XX=XX! 4188 537400 YY=YY+1000 4189 IFE XX, 4190 032735 205 02 0 00 760000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4191 032736 205 03 0 00 537400 MOVSI AC-1,YY ;SET-UP RESULT 4192 032737 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4193 032740 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4194 032741 003 04 0 00 005405 ER3 AC,SN ;INCORRECT EXPONENT 4195 032742 321 10 0 00 032735 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4196 4197 4198 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4199 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4200 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4201 4202 005406 SN=SN+1 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0111 4203 770000 XX=XX! 4204 540400 YY=YY+1000 4205 IFE XX, 4206 032743 205 02 0 00 770000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4207 032744 205 03 0 00 540400 MOVSI AC-1,YY ;SET-UP RESULT 4208 032745 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4209 032746 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4210 032747 003 04 0 00 005406 ER3 AC,SN ;INCORRECT EXPONENT 4211 032750 321 10 0 00 032743 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4212 4213 4214 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4215 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4216 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4217 4218 005407 SN=SN+1 4219 774000 XX=XX! 4220 541400 YY=YY+1000 4221 IFE XX, 4222 032751 205 02 0 00 774000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4223 032752 205 03 0 00 541400 MOVSI AC-1,YY ;SET-UP RESULT 4224 032753 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4225 032754 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4226 032755 003 04 0 00 005407 ER3 AC,SN ;INCORRECT EXPONENT 4227 032756 321 10 0 00 032751 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4228 4229 4230 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4231 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4232 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4233 4234 005410 SN=SN+1 4235 776000 XX=XX! 4236 542400 YY=YY+1000 4237 IFE XX, 4238 032757 205 02 0 00 776000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4239 032760 205 03 0 00 542400 MOVSI AC-1,YY ;SET-UP RESULT 4240 032761 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4241 032762 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4242 032763 003 04 0 00 005410 ER3 AC,SN ;INCORRECT EXPONENT 4243 032764 321 10 0 00 032757 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4244 4245 4246 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4247 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4248 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4249 4250 005411 SN=SN+1 4251 777000 XX=XX! 4252 543400 YY=YY+1000 4253 IFE XX, 4254 032765 205 02 0 00 777000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4255 032766 205 03 0 00 543400 MOVSI AC-1,YY ;SET-UP RESULT 4256 032767 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4257 032770 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0112 4258 032771 003 04 0 00 005411 ER3 AC,SN ;INCORRECT EXPONENT 4259 032772 321 10 0 00 032765 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4260 4261 4262 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4263 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4264 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4265 4266 005412 SN=SN+1 4267 777400 XX=XX! 4268 544400 YY=YY+1000 4269 IFE XX, 4270 032773 205 02 0 00 777400 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4271 032774 205 03 0 00 544400 MOVSI AC-1,YY ;SET-UP RESULT 4272 032775 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4273 032776 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4274 032777 003 04 0 00 005412 ER3 AC,SN ;INCORRECT EXPONENT 4275 033000 321 10 0 00 032773 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4276 4277 4278 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4279 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4280 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4281 4282 005413 SN=SN+1 4283 777600 XX=XX! 4284 545400 YY=YY+1000 4285 IFE XX, 4286 033001 205 02 0 00 777600 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4287 033002 205 03 0 00 545400 MOVSI AC-1,YY ;SET-UP RESULT 4288 033003 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4289 033004 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4290 033005 003 04 0 00 005413 ER3 AC,SN ;INCORRECT EXPONENT 4291 033006 321 10 0 00 033001 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4292 4293 4294 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4295 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4296 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4297 4298 005414 SN=SN+1 4299 777700 XX=XX! 4300 546400 YY=YY+1000 4301 IFE XX, 4302 033007 205 02 0 00 777700 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4303 033010 205 03 0 00 546400 MOVSI AC-1,YY ;SET-UP RESULT 4304 033011 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4305 033012 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4306 033013 003 04 0 00 005414 ER3 AC,SN ;INCORRECT EXPONENT 4307 033014 321 10 0 00 033007 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4308 4309 4310 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4311 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4312 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0113 4313 4314 005415 SN=SN+1 4315 777740 XX=XX! 4316 547400 YY=YY+1000 4317 IFE XX, 4318 033015 205 02 0 00 777740 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4319 033016 205 03 0 00 547400 MOVSI AC-1,YY ;SET-UP RESULT 4320 033017 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4321 033020 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4322 033021 003 04 0 00 005415 ER3 AC,SN ;INCORRECT EXPONENT 4323 033022 321 10 0 00 033015 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4324 4325 4326 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4327 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4328 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4329 4330 005416 SN=SN+1 4331 777760 XX=XX! 4332 550400 YY=YY+1000 4333 IFE XX, 4334 033023 205 02 0 00 777760 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4335 033024 205 03 0 00 550400 MOVSI AC-1,YY ;SET-UP RESULT 4336 033025 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4337 033026 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4338 033027 003 04 0 00 005416 ER3 AC,SN ;INCORRECT EXPONENT 4339 033030 321 10 0 00 033023 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4340 4341 4342 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4343 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4344 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4345 4346 005417 SN=SN+1 4347 777770 XX=XX! 4348 551400 YY=YY+1000 4349 IFE XX, 4350 033031 205 02 0 00 777770 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4351 033032 205 03 0 00 551400 MOVSI AC-1,YY ;SET-UP RESULT 4352 033033 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4353 033034 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4354 033035 003 04 0 00 005417 ER3 AC,SN ;INCORRECT EXPONENT 4355 033036 321 10 0 00 033031 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4356 4357 4358 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4359 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4360 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4361 4362 005420 SN=SN+1 4363 777774 XX=XX! 4364 552400 YY=YY+1000 4365 IFE XX, 4366 033037 205 02 0 00 777774 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4367 033040 205 03 0 00 552400 MOVSI AC-1,YY ;SET-UP RESULT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0114 4368 033041 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4369 033042 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4370 033043 003 04 0 00 005420 ER3 AC,SN ;INCORRECT EXPONENT 4371 033044 321 10 0 00 033037 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4372 4373 4374 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4375 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4376 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4377 4378 005421 SN=SN+1 4379 777776 XX=XX! 4380 553400 YY=YY+1000 4381 IFE XX, 4382 033045 205 02 0 00 777776 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4383 033046 205 03 0 00 553400 MOVSI AC-1,YY ;SET-UP RESULT 4384 033047 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4385 033050 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4386 033051 003 04 0 00 005421 ER3 AC,SN ;INCORRECT EXPONENT 4387 033052 321 10 0 00 033045 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4388 4389 4390 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4391 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4392 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4393 4394 005422 SN=SN+1 4395 777777 XX=XX! 4396 554400 YY=YY+1000 4397 IFE XX, 4398 033053 205 02 0 00 777777 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD 4399 033054 205 03 0 00 554400 MOVSI AC-1,YY ;SET-UP RESULT 4400 033055 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4401 033056 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4402 033057 003 04 0 00 005422 ER3 AC,SN ;INCORRECT EXPONENT 4403 033060 321 10 0 00 033053 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4404 4405 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0115 4406 005500 SN=5500 4407 000000 XX=0 4408 554000 YY=554000 4409 4410 Q5500: REPEAT ^D18,< 4411 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4412 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4413 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4414 4415 SN=SN+1 4416 XX=XX! 4417 YY=YY+1000 4418 IFE XX, 4419 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4420 MOVSI AC-1,YY+400 ;SET-UP RESULT 4421 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4422 CAME AC,AC-1 ;TEST EXPONENT 4423 ER3 AC,SN ;INCORRECT EXPONENT 4424 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4425 > 4426 4427 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4428 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4429 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4430 4431 005501 SN=SN+1 4432 000000 XX=XX! 4433 555000 YY=YY+1000 4434 400000 IFE XX, 4435 033061 561 02 0 00 400000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4436 033062 205 03 0 00 555400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4437 033063 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4438 033064 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4439 033065 003 04 0 00 005501 ER3 AC,SN ;INCORRECT EXPONENT 4440 033066 321 10 0 00 033061 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4441 4442 4443 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4444 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4445 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4446 4447 005502 SN=SN+1 4448 600000 XX=XX! 4449 556000 YY=YY+1000 4450 IFE XX, 4451 033067 561 02 0 00 600000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4452 033070 205 03 0 00 556400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4453 033071 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4454 033072 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4455 033073 003 04 0 00 005502 ER3 AC,SN ;INCORRECT EXPONENT 4456 033074 321 10 0 00 033067 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4457 4458 4459 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4460 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0116 4461 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4462 4463 005503 SN=SN+1 4464 700000 XX=XX! 4465 557000 YY=YY+1000 4466 IFE XX, 4467 033075 561 02 0 00 700000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4468 033076 205 03 0 00 557400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4469 033077 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4470 033100 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4471 033101 003 04 0 00 005503 ER3 AC,SN ;INCORRECT EXPONENT 4472 033102 321 10 0 00 033075 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4473 4474 4475 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4476 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4477 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4478 4479 005504 SN=SN+1 4480 740000 XX=XX! 4481 560000 YY=YY+1000 4482 IFE XX, 4483 033103 561 02 0 00 740000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4484 033104 205 03 0 00 560400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4485 033105 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4486 033106 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4487 033107 003 04 0 00 005504 ER3 AC,SN ;INCORRECT EXPONENT 4488 033110 321 10 0 00 033103 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4489 4490 4491 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4492 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4493 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4494 4495 005505 SN=SN+1 4496 760000 XX=XX! 4497 561000 YY=YY+1000 4498 IFE XX, 4499 033111 561 02 0 00 760000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4500 033112 205 03 0 00 561400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4501 033113 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4502 033114 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4503 033115 003 04 0 00 005505 ER3 AC,SN ;INCORRECT EXPONENT 4504 033116 321 10 0 00 033111 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4505 4506 4507 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4508 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4509 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4510 4511 005506 SN=SN+1 4512 770000 XX=XX! 4513 562000 YY=YY+1000 4514 IFE XX, 4515 033117 561 02 0 00 770000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-8 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0117 4516 033120 205 03 0 00 562400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4517 033121 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4518 033122 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4519 033123 003 04 0 00 005506 ER3 AC,SN ;INCORRECT EXPONENT 4520 033124 321 10 0 00 033117 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4521 4522 4523 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4524 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4525 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4526 4527 005507 SN=SN+1 4528 774000 XX=XX! 4529 563000 YY=YY+1000 4530 IFE XX, 4531 033125 561 02 0 00 774000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4532 033126 205 03 0 00 563400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4533 033127 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4534 033130 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4535 033131 003 04 0 00 005507 ER3 AC,SN ;INCORRECT EXPONENT 4536 033132 321 10 0 00 033125 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4537 4538 4539 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4540 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4541 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4542 4543 005510 SN=SN+1 4544 776000 XX=XX! 4545 564000 YY=YY+1000 4546 IFE XX, 4547 033133 561 02 0 00 776000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4548 033134 205 03 0 00 564400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4549 033135 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4550 033136 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4551 033137 003 04 0 00 005510 ER3 AC,SN ;INCORRECT EXPONENT 4552 033140 321 10 0 00 033133 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4553 4554 4555 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4556 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4557 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4558 4559 005511 SN=SN+1 4560 777000 XX=XX! 4561 565000 YY=YY+1000 4562 IFE XX, 4563 033141 561 02 0 00 777000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4564 033142 205 03 0 00 565400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4565 033143 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4566 033144 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4567 033145 003 04 0 00 005511 ER3 AC,SN ;INCORRECT EXPONENT 4568 033146 321 10 0 00 033141 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4569 4570 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-9 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0118 4571 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4572 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4573 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4574 4575 005512 SN=SN+1 4576 777400 XX=XX! 4577 566000 YY=YY+1000 4578 IFE XX, 4579 033147 561 02 0 00 777400 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4580 033150 205 03 0 00 566400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4581 033151 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4582 033152 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4583 033153 003 04 0 00 005512 ER3 AC,SN ;INCORRECT EXPONENT 4584 033154 321 10 0 00 033147 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4585 4586 4587 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4588 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4589 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4590 4591 005513 SN=SN+1 4592 777600 XX=XX! 4593 567000 YY=YY+1000 4594 IFE XX, 4595 033155 561 02 0 00 777600 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4596 033156 205 03 0 00 567400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4597 033157 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4598 033160 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4599 033161 003 04 0 00 005513 ER3 AC,SN ;INCORRECT EXPONENT 4600 033162 321 10 0 00 033155 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4601 4602 4603 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4604 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4605 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4606 4607 005514 SN=SN+1 4608 777700 XX=XX! 4609 570000 YY=YY+1000 4610 IFE XX, 4611 033163 561 02 0 00 777700 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4612 033164 205 03 0 00 570400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4613 033165 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4614 033166 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4615 033167 003 04 0 00 005514 ER3 AC,SN ;INCORRECT EXPONENT 4616 033170 321 10 0 00 033163 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4617 4618 4619 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4620 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4621 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4622 4623 005515 SN=SN+1 4624 777740 XX=XX! 4625 571000 YY=YY+1000 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-10 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0119 4626 IFE XX, 4627 033171 561 02 0 00 777740 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4628 033172 205 03 0 00 571400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4629 033173 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4630 033174 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4631 033175 003 04 0 00 005515 ER3 AC,SN ;INCORRECT EXPONENT 4632 033176 321 10 0 00 033171 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4633 4634 4635 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4636 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4637 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4638 4639 005516 SN=SN+1 4640 777760 XX=XX! 4641 572000 YY=YY+1000 4642 IFE XX, 4643 033177 561 02 0 00 777760 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4644 033200 205 03 0 00 572400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4645 033201 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4646 033202 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4647 033203 003 04 0 00 005516 ER3 AC,SN ;INCORRECT EXPONENT 4648 033204 321 10 0 00 033177 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4649 4650 4651 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4652 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4653 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4654 4655 005517 SN=SN+1 4656 777770 XX=XX! 4657 573000 YY=YY+1000 4658 IFE XX, 4659 033205 561 02 0 00 777770 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4660 033206 205 03 0 00 573400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4661 033207 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4662 033210 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4663 033211 003 04 0 00 005517 ER3 AC,SN ;INCORRECT EXPONENT 4664 033212 321 10 0 00 033205 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4665 4666 4667 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4668 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4669 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4670 4671 005520 SN=SN+1 4672 777774 XX=XX! 4673 574000 YY=YY+1000 4674 IFE XX, 4675 033213 561 02 0 00 777774 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4676 033214 205 03 0 00 574400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4677 033215 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4678 033216 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4679 033217 003 04 0 00 005520 ER3 AC,SN ;INCORRECT EXPONENT 4680 033220 321 10 0 00 033213 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-11 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0120 4681 4682 4683 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4684 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4685 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4686 4687 005521 SN=SN+1 4688 777776 XX=XX! 4689 575000 YY=YY+1000 4690 IFE XX, 4691 033221 561 02 0 00 777776 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4692 033222 205 03 0 00 575400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4693 033223 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4694 033224 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4695 033225 003 04 0 00 005521 ER3 AC,SN ;INCORRECT EXPONENT 4696 033226 321 10 0 00 033221 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4697 4698 4699 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4700 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4701 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS 4702 4703 005522 SN=SN+1 4704 777777 XX=XX! 4705 576000 YY=YY+1000 4706 IFE XX, 4707 033227 561 02 0 00 777777 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD 4708 033230 205 03 0 00 576400 MOVSI AC-1,YY+400 ;SET-UP RESULT 4709 033231 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4710 033232 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT 4711 033233 003 04 0 00 005522 ER3 AC,SN ;INCORRECT EXPONENT 4712 033234 321 10 0 00 033227 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 4713 4714 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-12 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0121 4715 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 0 4716 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4717 ;FLOAT A WORD OF ALL ZEROS 4718 4719 033235 403 02 0 00 000003 Q5600: SETZB AC-2,AC-1 ;INITIALIZE FIXED POINT WORD 4720 033236 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. 0 IN 'E' TO FLT PT 4721 033237 312 04 0 00 000003 CAME AC,AC-1 ;EXAMINE RESULT FOR 0 4722 033240 003 04 0 00 005601 ER3 AC,5601 ;CONVERSION FAILED 4723 033241 321 10 0 00 033235 JUMPL SAC,Q5600 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0122 4724 SUBTTL DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS 4725 4726 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4727 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4728 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4729 4730 033242 201 02 0 00 777400 Q5700: MOVEI AC-2,777400 ;INITIALIZE FIX PT WORD 4731 033243 505 02 0 00 377777 HRLI AC-2,377777 4732 033244 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP RESULT 4733 033245 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4734 033246 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4735 033247 003 04 0 00 005701 ER3 AC,5701 ;FRACTION NOT ALL ONES 4736 033250 321 10 0 00 033242 JUMPL SAC,Q5700 ;LOOP ON ERROR SWITCH 4737 4738 006000 SN=6000 4739 777200 XX=777200 4740 000000 YY=0 4741 4742 Q6000: REPEAT ^D10,< 4743 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4744 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4745 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4746 4747 SN=SN+1 4748 XX=&777777 4749 YY=&777777 4750 IFE , 4751 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4752 TLZ AC-2,1B18 4753 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4754 HRRI AC-1,YY 4755 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4756 CAME AC,AC-1 ;TEST FRACTION 4757 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4758 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4759 > 4760 4761 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4762 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4763 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4764 4765 006001 SN=SN+1 4766 777000 XX=&777777 4767 000001 YY=&777777 4768 777776 IFE , 4769 033251 561 02 0 00 777000 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4770 033252 621 02 0 00 400000 TLZ AC-2,1B18 4771 033253 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4772 033254 541 03 0 00 777776 HRRI AC-1,YY 4773 033255 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4774 033256 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4775 033257 003 04 0 00 006001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4776 033260 321 10 0 00 033251 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4777 4778 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0123 4779 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4780 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4781 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4782 4783 006002 SN=SN+1 4784 776400 XX=&777777 4785 777775 YY=&777777 4786 IFE , 4787 033261 561 02 0 00 776400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4788 033262 621 02 0 00 400000 TLZ AC-2,1B18 4789 033263 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4790 033264 541 03 0 00 777775 HRRI AC-1,YY 4791 033265 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4792 033266 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4793 033267 003 04 0 00 006002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4794 033270 321 10 0 00 033261 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4795 4796 4797 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4798 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4799 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4800 4801 006003 SN=SN+1 4802 775400 XX=&777777 4803 777773 YY=&777777 4804 IFE , 4805 033271 561 02 0 00 775400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4806 033272 621 02 0 00 400000 TLZ AC-2,1B18 4807 033273 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4808 033274 541 03 0 00 777773 HRRI AC-1,YY 4809 033275 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4810 033276 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4811 033277 003 04 0 00 006003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4812 033300 321 10 0 00 033271 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4813 4814 4815 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4816 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4817 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4818 4819 006004 SN=SN+1 4820 773400 XX=&777777 4821 777767 YY=&777777 4822 IFE , 4823 033301 561 02 0 00 773400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4824 033302 621 02 0 00 400000 TLZ AC-2,1B18 4825 033303 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4826 033304 541 03 0 00 777767 HRRI AC-1,YY 4827 033305 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4828 033306 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4829 033307 003 04 0 00 006004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4830 033310 321 10 0 00 033301 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4831 4832 4833 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0124 4834 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4835 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4836 4837 006005 SN=SN+1 4838 767400 XX=&777777 4839 777757 YY=&777777 4840 IFE , 4841 033311 561 02 0 00 767400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4842 033312 621 02 0 00 400000 TLZ AC-2,1B18 4843 033313 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4844 033314 541 03 0 00 777757 HRRI AC-1,YY 4845 033315 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4846 033316 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4847 033317 003 04 0 00 006005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4848 033320 321 10 0 00 033311 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4849 4850 4851 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4852 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4853 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4854 4855 006006 SN=SN+1 4856 757400 XX=&777777 4857 777737 YY=&777777 4858 IFE , 4859 033321 561 02 0 00 757400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4860 033322 621 02 0 00 400000 TLZ AC-2,1B18 4861 033323 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4862 033324 541 03 0 00 777737 HRRI AC-1,YY 4863 033325 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4864 033326 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4865 033327 003 04 0 00 006006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4866 033330 321 10 0 00 033321 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4867 4868 4869 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4870 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4871 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4872 4873 006007 SN=SN+1 4874 737400 XX=&777777 4875 777677 YY=&777777 4876 IFE , 4877 033331 561 02 0 00 737400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4878 033332 621 02 0 00 400000 TLZ AC-2,1B18 4879 033333 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4880 033334 541 03 0 00 777677 HRRI AC-1,YY 4881 033335 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4882 033336 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4883 033337 003 04 0 00 006007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4884 033340 321 10 0 00 033331 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4885 4886 4887 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4888 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0125 4889 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4890 4891 006010 SN=SN+1 4892 677400 XX=&777777 4893 777577 YY=&777777 4894 IFE , 4895 033341 561 02 0 00 677400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4896 033342 621 02 0 00 400000 TLZ AC-2,1B18 4897 033343 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4898 033344 541 03 0 00 777577 HRRI AC-1,YY 4899 033345 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4900 033346 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4901 033347 003 04 0 00 006010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4902 033350 321 10 0 00 033341 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4903 4904 4905 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4906 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4907 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4908 4909 006011 SN=SN+1 4910 577400 XX=&777777 4911 777377 YY=&777777 4912 IFE , 4913 033351 561 02 0 00 577400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4914 033352 621 02 0 00 400000 TLZ AC-2,1B18 4915 033353 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4916 033354 541 03 0 00 777377 HRRI AC-1,YY 4917 033355 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4918 033356 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4919 033357 003 04 0 00 006011 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4920 033360 321 10 0 00 033351 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4921 4922 4923 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4924 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4925 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4926 4927 006012 SN=SN+1 4928 377400 XX=&777777 4929 776777 YY=&777777 4930 IFE , 4931 033361 561 02 0 00 377400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR. 4932 033362 621 02 0 00 400000 TLZ AC-2,1B18 4933 033363 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7 4934 033364 541 03 0 00 776777 HRRI AC-1,YY 4935 033365 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4936 033366 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4937 033367 003 04 0 00 006012 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4938 033370 321 10 0 00 033361 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4939 4940 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0126 4941 006100 SN=6100 4942 000000 XX=0 4943 776777 YY=776777 4944 Q6100: REPEAT ^D8,< 4945 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4946 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4947 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4948 4949 SN=SN+1 4950 XX=&377777 4951 YY=&777777 4952 IFE , 4953 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 4954 HRRI AC-2,777400 4955 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 4956 HRRI AC-1,YY 4957 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4958 CAME AC,AC-1 ;TEST FRACTION 4959 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4960 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4961 > 4962 4963 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4964 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4965 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4966 4967 006101 SN=SN+1 4968 000001 XX=&377777 4969 775777 YY=&777777 4970 377776 IFE , 4971 033371 525 02 0 00 377776 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 4972 033372 541 02 0 00 777400 HRRI AC-2,777400 4973 033373 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 4974 033374 541 03 0 00 775777 HRRI AC-1,YY 4975 033375 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4976 033376 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4977 033377 003 04 0 00 006101 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 4978 033400 321 10 0 00 033371 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4979 4980 4981 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 4982 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 4983 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 4984 4985 006102 SN=SN+1 4986 377775 XX=&377777 4987 773777 YY=&777777 4988 IFE , 4989 033401 525 02 0 00 377775 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 4990 033402 541 02 0 00 777400 HRRI AC-2,777400 4991 033403 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 4992 033404 541 03 0 00 773777 HRRI AC-1,YY 4993 033405 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 4994 033406 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 4995 033407 003 04 0 00 006102 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0127 4996 033410 321 10 0 00 033401 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 4997 4998 4999 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5000 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5001 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5002 5003 006103 SN=SN+1 5004 377773 XX=&377777 5005 767777 YY=&777777 5006 IFE , 5007 033411 525 02 0 00 377773 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5008 033412 541 02 0 00 777400 HRRI AC-2,777400 5009 033413 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 5010 033414 541 03 0 00 767777 HRRI AC-1,YY 5011 033415 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5012 033416 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5013 033417 003 04 0 00 006103 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5014 033420 321 10 0 00 033411 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5015 5016 5017 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5018 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5019 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5020 5021 006104 SN=SN+1 5022 377767 XX=&377777 5023 757777 YY=&777777 5024 IFE , 5025 033421 525 02 0 00 377767 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5026 033422 541 02 0 00 777400 HRRI AC-2,777400 5027 033423 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 5028 033424 541 03 0 00 757777 HRRI AC-1,YY 5029 033425 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5030 033426 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5031 033427 003 04 0 00 006104 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5032 033430 321 10 0 00 033421 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5033 5034 5035 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5036 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5037 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5038 5039 006105 SN=SN+1 5040 377757 XX=&377777 5041 737777 YY=&777777 5042 IFE , 5043 033431 525 02 0 00 377757 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5044 033432 541 02 0 00 777400 HRRI AC-2,777400 5045 033433 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 5046 033434 541 03 0 00 737777 HRRI AC-1,YY 5047 033435 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5048 033436 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5049 033437 003 04 0 00 006105 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5050 033440 321 10 0 00 033431 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0128 5051 5052 5053 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5054 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5055 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5056 5057 006106 SN=SN+1 5058 377737 XX=&377777 5059 677777 YY=&777777 5060 IFE , 5061 033441 525 02 0 00 377737 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5062 033442 541 02 0 00 777400 HRRI AC-2,777400 5063 033443 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 5064 033444 541 03 0 00 677777 HRRI AC-1,YY 5065 033445 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5066 033446 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5067 033447 003 04 0 00 006106 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5068 033450 321 10 0 00 033441 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5069 5070 5071 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5072 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5073 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5074 5075 006107 SN=SN+1 5076 377677 XX=&377777 5077 577777 YY=&777777 5078 IFE , 5079 033451 525 02 0 00 377677 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5080 033452 541 02 0 00 777400 HRRI AC-2,777400 5081 033453 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 5082 033454 541 03 0 00 577777 HRRI AC-1,YY 5083 033455 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5084 033456 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5085 033457 003 04 0 00 006107 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5086 033460 321 10 0 00 033451 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5087 5088 5089 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5090 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5091 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5092 5093 006110 SN=SN+1 5094 377577 XX=&377777 5095 377777 YY=&777777 5096 IFE , 5097 033461 525 02 0 00 377577 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5098 033462 541 02 0 00 777400 HRRI AC-2,777400 5099 033463 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT 5100 033464 541 03 0 00 377777 HRRI AC-1,YY 5101 033465 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5102 033466 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5103 033467 003 04 0 00 006110 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5104 033470 321 10 0 00 033461 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5105 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 27 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0129 5106 006200 SN=6200 5107 377577 XX=377577 5108 000000 YY=0 5109 5110 Q6200: REPEAT ^D8,< 5111 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5112 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5113 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5114 5115 SN=SN+1 5116 XX=&377777 5117 YY=&777 5118 IFE , 5119 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5120 HRRI AC-2,777400 5121 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5122 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5123 CAME AC,AC-1 ;TEST FRACTION 5124 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5125 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5126 > 5127 5128 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5129 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5130 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5131 5132 006201 SN=SN+1 5133 377377 XX=&377777 5134 000001 YY=&777 5135 000776 IFE , 5136 033471 525 02 0 00 377377 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5137 033472 541 02 0 00 777400 HRRI AC-2,777400 5138 033473 525 03 0 00 243776 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5139 033474 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5140 033475 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5141 033476 003 04 0 00 006201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5142 033477 321 10 0 00 033471 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5143 5144 5145 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5146 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5147 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5148 5149 006202 SN=SN+1 5150 376777 XX=&377777 5151 000775 YY=&777 5152 IFE , 5153 033500 525 02 0 00 376777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5154 033501 541 02 0 00 777400 HRRI AC-2,777400 5155 033502 525 03 0 00 243775 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5156 033503 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5157 033504 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5158 033505 003 04 0 00 006202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5159 033506 321 10 0 00 033500 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5160 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 27-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0130 5161 5162 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5163 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5164 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5165 5166 006203 SN=SN+1 5167 375777 XX=&377777 5168 000773 YY=&777 5169 IFE , 5170 033507 525 02 0 00 375777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5171 033510 541 02 0 00 777400 HRRI AC-2,777400 5172 033511 525 03 0 00 243773 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5173 033512 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5174 033513 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5175 033514 003 04 0 00 006203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5176 033515 321 10 0 00 033507 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5177 5178 5179 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5180 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5181 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5182 5183 006204 SN=SN+1 5184 373777 XX=&377777 5185 000767 YY=&777 5186 IFE , 5187 033516 525 02 0 00 373777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5188 033517 541 02 0 00 777400 HRRI AC-2,777400 5189 033520 525 03 0 00 243767 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5190 033521 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5191 033522 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5192 033523 003 04 0 00 006204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5193 033524 321 10 0 00 033516 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5194 5195 5196 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5197 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5198 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5199 5200 006205 SN=SN+1 5201 367777 XX=&377777 5202 000757 YY=&777 5203 IFE , 5204 033525 525 02 0 00 367777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5205 033526 541 02 0 00 777400 HRRI AC-2,777400 5206 033527 525 03 0 00 243757 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5207 033530 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5208 033531 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5209 033532 003 04 0 00 006205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5210 033533 321 10 0 00 033525 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5211 5212 5213 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5214 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5215 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 27-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0131 5216 5217 006206 SN=SN+1 5218 357777 XX=&377777 5219 000737 YY=&777 5220 IFE , 5221 033534 525 02 0 00 357777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5222 033535 541 02 0 00 777400 HRRI AC-2,777400 5223 033536 525 03 0 00 243737 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5224 033537 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5225 033540 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5226 033541 003 04 0 00 006206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5227 033542 321 10 0 00 033534 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5228 5229 5230 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5231 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5232 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5233 5234 006207 SN=SN+1 5235 337777 XX=&377777 5236 000677 YY=&777 5237 IFE , 5238 033543 525 02 0 00 337777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5239 033544 541 02 0 00 777400 HRRI AC-2,777400 5240 033545 525 03 0 00 243677 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5241 033546 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5242 033547 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5243 033550 003 04 0 00 006207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5244 033551 321 10 0 00 033543 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5245 5246 5247 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5248 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5249 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS. 5250 5251 006210 SN=SN+1 5252 277777 XX=&377777 5253 000577 YY=&777 5254 IFE , 5255 033552 525 02 0 00 277777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR. 5256 033553 541 02 0 00 777400 HRRI AC-2,777400 5257 033554 525 03 0 00 243577 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT 5258 033555 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT 5259 033556 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5260 033557 003 04 0 00 006210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 5261 033560 321 10 0 00 033552 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5262 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0132 5263 SUBTTL DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES 5264 5265 ;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS 5266 5267 006300 SN=6300 5268 000200 XX=200 5269 000000 YY=0 5270 5271 Q6300: REPEAT ^D10,< 5272 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5273 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5274 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5275 5276 SN=SN+1 5277 XX=XX+XX 5278 YY=YY+YY 5279 IFE YY, 5280 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5281 HRRI AC-2,XX 5282 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5283 HRRI AC-1,YY 5284 FLTR AC,AC-2 ;CONVERT TO FLT PT 5285 CAME AC,AC-1 ;TEST FRACTION 5286 ER3 AC,SN ;FAILURE 5287 JUMPL SAC,.-7 ;LOOP ON ERROR 5288 > 5289 5290 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5291 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5292 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5293 5294 006301 SN=SN+1 5295 000400 XX=XX+XX 5296 000000 YY=YY+YY 5297 000001 IFE YY, 5298 033561 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5299 033562 541 02 0 00 000400 HRRI AC-2,XX 5300 033563 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5301 033564 541 03 0 00 000001 HRRI AC-1,YY 5302 033565 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5303 033566 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5304 033567 003 04 0 00 006301 ER3 AC,SN ;FAILURE 5305 033570 321 10 0 00 033561 JUMPL SAC,.-7 ;LOOP ON ERROR 5306 5307 5308 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5309 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5310 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5311 5312 006302 SN=SN+1 5313 001000 XX=XX+XX 5314 000002 YY=YY+YY 5315 IFE YY, 5316 033571 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5317 033572 541 02 0 00 001000 HRRI AC-2,XX DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0133 5318 033573 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5319 033574 541 03 0 00 000002 HRRI AC-1,YY 5320 033575 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5321 033576 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5322 033577 003 04 0 00 006302 ER3 AC,SN ;FAILURE 5323 033600 321 10 0 00 033571 JUMPL SAC,.-7 ;LOOP ON ERROR 5324 5325 5326 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5327 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5328 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5329 5330 006303 SN=SN+1 5331 002000 XX=XX+XX 5332 000004 YY=YY+YY 5333 IFE YY, 5334 033601 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5335 033602 541 02 0 00 002000 HRRI AC-2,XX 5336 033603 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5337 033604 541 03 0 00 000004 HRRI AC-1,YY 5338 033605 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5339 033606 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5340 033607 003 04 0 00 006303 ER3 AC,SN ;FAILURE 5341 033610 321 10 0 00 033601 JUMPL SAC,.-7 ;LOOP ON ERROR 5342 5343 5344 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5345 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5346 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5347 5348 006304 SN=SN+1 5349 004000 XX=XX+XX 5350 000010 YY=YY+YY 5351 IFE YY, 5352 033611 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5353 033612 541 02 0 00 004000 HRRI AC-2,XX 5354 033613 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5355 033614 541 03 0 00 000010 HRRI AC-1,YY 5356 033615 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5357 033616 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5358 033617 003 04 0 00 006304 ER3 AC,SN ;FAILURE 5359 033620 321 10 0 00 033611 JUMPL SAC,.-7 ;LOOP ON ERROR 5360 5361 5362 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5363 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5364 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5365 5366 006305 SN=SN+1 5367 010000 XX=XX+XX 5368 000020 YY=YY+YY 5369 IFE YY, 5370 033621 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5371 033622 541 02 0 00 010000 HRRI AC-2,XX 5372 033623 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0134 5373 033624 541 03 0 00 000020 HRRI AC-1,YY 5374 033625 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5375 033626 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5376 033627 003 04 0 00 006305 ER3 AC,SN ;FAILURE 5377 033630 321 10 0 00 033621 JUMPL SAC,.-7 ;LOOP ON ERROR 5378 5379 5380 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5381 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5382 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5383 5384 006306 SN=SN+1 5385 020000 XX=XX+XX 5386 000040 YY=YY+YY 5387 IFE YY, 5388 033631 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5389 033632 541 02 0 00 020000 HRRI AC-2,XX 5390 033633 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5391 033634 541 03 0 00 000040 HRRI AC-1,YY 5392 033635 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5393 033636 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5394 033637 003 04 0 00 006306 ER3 AC,SN ;FAILURE 5395 033640 321 10 0 00 033631 JUMPL SAC,.-7 ;LOOP ON ERROR 5396 5397 5398 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5399 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5400 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5401 5402 006307 SN=SN+1 5403 040000 XX=XX+XX 5404 000100 YY=YY+YY 5405 IFE YY, 5406 033641 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5407 033642 541 02 0 00 040000 HRRI AC-2,XX 5408 033643 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5409 033644 541 03 0 00 000100 HRRI AC-1,YY 5410 033645 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5411 033646 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5412 033647 003 04 0 00 006307 ER3 AC,SN ;FAILURE 5413 033650 321 10 0 00 033641 JUMPL SAC,.-7 ;LOOP ON ERROR 5414 5415 5416 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5417 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5418 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5419 5420 006310 SN=SN+1 5421 100000 XX=XX+XX 5422 000200 YY=YY+YY 5423 IFE YY, 5424 033651 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5425 033652 541 02 0 00 100000 HRRI AC-2,XX 5426 033653 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5427 033654 541 03 0 00 000200 HRRI AC-1,YY DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0135 5428 033655 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5429 033656 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5430 033657 003 04 0 00 006310 ER3 AC,SN ;FAILURE 5431 033660 321 10 0 00 033651 JUMPL SAC,.-7 ;LOOP ON ERROR 5432 5433 5434 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5435 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5436 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5437 5438 006311 SN=SN+1 5439 200000 XX=XX+XX 5440 000400 YY=YY+YY 5441 IFE YY, 5442 033661 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5443 033662 541 02 0 00 200000 HRRI AC-2,XX 5444 033663 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5445 033664 541 03 0 00 000400 HRRI AC-1,YY 5446 033665 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5447 033666 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5448 033667 003 04 0 00 006311 ER3 AC,SN ;FAILURE 5449 033670 321 10 0 00 033661 JUMPL SAC,.-7 ;LOOP ON ERROR 5450 5451 5452 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5453 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5454 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5455 5456 006312 SN=SN+1 5457 400000 XX=XX+XX 5458 001000 YY=YY+YY 5459 IFE YY, 5460 033671 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR. 5461 033672 541 02 0 00 400000 HRRI AC-2,XX 5462 033673 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT 5463 033674 541 03 0 00 001000 HRRI AC-1,YY 5464 033675 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT 5465 033676 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5466 033677 003 04 0 00 006312 ER3 AC,SN ;FAILURE 5467 033700 321 10 0 00 033671 JUMPL SAC,.-7 ;LOOP ON ERROR 5468 5469 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0136 5470 006400 SN=6400 5471 000000 XX=0 5472 001000 YY=1000 5473 5474 Q6400: REPEAT ^D8,< 5475 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5476 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5477 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5478 5479 SN=SN+1 5480 XX=XX+XX 5481 YY=YY+YY 5482 IFE XX, 5483 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5484 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5485 HRRI AC-1,YY 5486 FLTR AC,AC-2 ;*FIXED TO FLOAT 5487 CAME AC,AC-1 ;TEST FRACTION 5488 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5489 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5490 > 5491 5492 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5493 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5494 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5495 5496 006401 SN=SN+1 5497 000000 XX=XX+XX 5498 002000 YY=YY+YY 5499 000001 IFE XX, 5500 033701 205 02 0 00 200001 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5501 033702 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5502 033703 541 03 0 00 002000 HRRI AC-1,YY 5503 033704 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5504 033705 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5505 033706 003 04 0 00 006401 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5506 033707 321 10 0 00 033701 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5507 5508 5509 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5510 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5511 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5512 5513 006402 SN=SN+1 5514 000002 XX=XX+XX 5515 004000 YY=YY+YY 5516 IFE XX, 5517 033710 205 02 0 00 200002 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5518 033711 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5519 033712 541 03 0 00 004000 HRRI AC-1,YY 5520 033713 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5521 033714 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5522 033715 003 04 0 00 006402 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5523 033716 321 10 0 00 033710 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5524 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0137 5525 5526 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5527 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5528 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5529 5530 006403 SN=SN+1 5531 000004 XX=XX+XX 5532 010000 YY=YY+YY 5533 IFE XX, 5534 033717 205 02 0 00 200004 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5535 033720 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5536 033721 541 03 0 00 010000 HRRI AC-1,YY 5537 033722 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5538 033723 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5539 033724 003 04 0 00 006403 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5540 033725 321 10 0 00 033717 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5541 5542 5543 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5544 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5545 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5546 5547 006404 SN=SN+1 5548 000010 XX=XX+XX 5549 020000 YY=YY+YY 5550 IFE XX, 5551 033726 205 02 0 00 200010 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5552 033727 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5553 033730 541 03 0 00 020000 HRRI AC-1,YY 5554 033731 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5555 033732 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5556 033733 003 04 0 00 006404 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5557 033734 321 10 0 00 033726 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5558 5559 5560 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5561 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5562 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5563 5564 006405 SN=SN+1 5565 000020 XX=XX+XX 5566 040000 YY=YY+YY 5567 IFE XX, 5568 033735 205 02 0 00 200020 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5569 033736 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5570 033737 541 03 0 00 040000 HRRI AC-1,YY 5571 033740 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5572 033741 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5573 033742 003 04 0 00 006405 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5574 033743 321 10 0 00 033735 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5575 5576 5577 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5578 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5579 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0138 5580 5581 006406 SN=SN+1 5582 000040 XX=XX+XX 5583 100000 YY=YY+YY 5584 IFE XX, 5585 033744 205 02 0 00 200040 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5586 033745 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5587 033746 541 03 0 00 100000 HRRI AC-1,YY 5588 033747 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5589 033750 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5590 033751 003 04 0 00 006406 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5591 033752 321 10 0 00 033744 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5592 5593 5594 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5595 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5596 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5597 5598 006407 SN=SN+1 5599 000100 XX=XX+XX 5600 200000 YY=YY+YY 5601 IFE XX, 5602 033753 205 02 0 00 200100 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5603 033754 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5604 033755 541 03 0 00 200000 HRRI AC-1,YY 5605 033756 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5606 033757 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5607 033760 003 04 0 00 006407 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5608 033761 321 10 0 00 033753 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5609 5610 5611 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT 5612 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5613 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5614 5615 006410 SN=SN+1 5616 000200 XX=XX+XX 5617 400000 YY=YY+YY 5618 IFE XX, 5619 033762 205 02 0 00 200200 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5620 033763 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 5621 033764 541 03 0 00 400000 HRRI AC-1,YY 5622 033765 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT 5623 033766 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5624 033767 003 04 0 00 006410 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5625 033770 321 10 0 00 033762 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 5626 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 29 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0139 5627 006500 SN=6500 5628 000200 XX=200 5629 000000 YY=0 5630 5631 Q6500: REPEAT ^D8,< 5632 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5633 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5634 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5635 5636 SN=SN+1 5637 XX=XX+XX 5638 YY=YY+YY 5639 IFE YY, 5640 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5641 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5642 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5643 IN AC 5644 CAME AC,AC-1 ;TEST FRACTION 5645 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5646 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5647 > 5648 5649 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5650 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5651 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5652 5653 006501 SN=SN+1 5654 000400 XX=XX+XX 5655 000000 YY=YY+YY 5656 000001 IFE YY, 5657 033771 205 02 0 00 200400 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5658 033772 205 03 0 00 243401 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5659 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5660 033773 127 04 0 00 000002 IN AC 5661 033774 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5662 033775 003 04 0 00 006501 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5663 033776 321 10 0 00 033771 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5664 5665 5666 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5667 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5668 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5669 5670 006502 SN=SN+1 5671 001000 XX=XX+XX 5672 000002 YY=YY+YY 5673 IFE YY, 5674 033777 205 02 0 00 201000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5675 034000 205 03 0 00 243402 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5676 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5677 034001 127 04 0 00 000002 IN AC 5678 034002 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5679 034003 003 04 0 00 006502 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5680 034004 321 10 0 00 033777 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5681 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 29-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0140 5682 5683 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5684 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5685 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5686 5687 006503 SN=SN+1 5688 002000 XX=XX+XX 5689 000004 YY=YY+YY 5690 IFE YY, 5691 034005 205 02 0 00 202000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5692 034006 205 03 0 00 243404 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5693 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5694 034007 127 04 0 00 000002 IN AC 5695 034010 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5696 034011 003 04 0 00 006503 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5697 034012 321 10 0 00 034005 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5698 5699 5700 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5701 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5702 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5703 5704 006504 SN=SN+1 5705 004000 XX=XX+XX 5706 000010 YY=YY+YY 5707 IFE YY, 5708 034013 205 02 0 00 204000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5709 034014 205 03 0 00 243410 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5710 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5711 034015 127 04 0 00 000002 IN AC 5712 034016 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5713 034017 003 04 0 00 006504 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5714 034020 321 10 0 00 034013 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5715 5716 5717 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5718 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5719 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5720 5721 006505 SN=SN+1 5722 010000 XX=XX+XX 5723 000020 YY=YY+YY 5724 IFE YY, 5725 034021 205 02 0 00 210000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5726 034022 205 03 0 00 243420 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5727 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5728 034023 127 04 0 00 000002 IN AC 5729 034024 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5730 034025 003 04 0 00 006505 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5731 034026 321 10 0 00 034021 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5732 5733 5734 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5735 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5736 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 29-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0141 5737 5738 006506 SN=SN+1 5739 020000 XX=XX+XX 5740 000040 YY=YY+YY 5741 IFE YY, 5742 034027 205 02 0 00 220000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5743 034030 205 03 0 00 243440 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5744 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5745 034031 127 04 0 00 000002 IN AC 5746 034032 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5747 034033 003 04 0 00 006506 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5748 034034 321 10 0 00 034027 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5749 5750 5751 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5752 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5753 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5754 5755 006507 SN=SN+1 5756 040000 XX=XX+XX 5757 000100 YY=YY+YY 5758 IFE YY, 5759 034035 205 02 0 00 240000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5760 034036 205 03 0 00 243500 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5761 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5762 034037 127 04 0 00 000002 IN AC 5763 034040 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5764 034041 003 04 0 00 006507 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5765 034042 321 10 0 00 034035 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5766 5767 5768 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5769 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5770 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS. 5771 5772 006510 SN=SN+1 5773 100000 XX=XX+XX 5774 000200 YY=YY+YY 5775 IFE YY, 5776 034043 205 02 0 00 300000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR. 5777 034044 205 03 0 00 243600 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT 5778 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 5779 034045 127 04 0 00 000002 IN AC 5780 034046 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5781 034047 003 04 0 00 006510 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5782 034050 321 10 0 00 034043 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 5783 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0142 5784 SUBTTL DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES 5785 5786 ;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS 5787 5788 006600 SN=6600 5789 000200 XX=200 5790 000000 YY=0 5791 5792 Q6600: REPEAT ^D10,< 5793 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5794 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5795 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5796 5797 SN=SN+1 5798 XX=XX+XX 5799 YY=YY+YY 5800 IFE YY, 5801 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5802 HRRI AC-2,XX 5803 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5804 HRRI AC-1,YY 5805 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5806 CAME AC,AC-1 ;TEST FRACTION 5807 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5808 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5809 > 5810 5811 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5812 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5813 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5814 5815 006601 SN=SN+1 5816 000400 XX=XX+XX 5817 000000 YY=YY+YY 5818 000001 IFE YY, 5819 034051 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5820 034052 541 02 0 00 000400 HRRI AC-2,XX 5821 034053 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5822 034054 541 03 0 00 000001 HRRI AC-1,YY 5823 034055 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5824 034056 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5825 034057 003 04 0 00 006601 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5826 034060 321 10 0 00 034051 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5827 5828 5829 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5830 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5831 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5832 5833 006602 SN=SN+1 5834 001000 XX=XX+XX 5835 000002 YY=YY+YY 5836 IFE YY, 5837 034061 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5838 034062 541 02 0 00 001000 HRRI AC-2,XX DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0143 5839 034063 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5840 034064 541 03 0 00 000002 HRRI AC-1,YY 5841 034065 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5842 034066 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5843 034067 003 04 0 00 006602 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5844 034070 321 10 0 00 034061 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5845 5846 5847 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5848 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5849 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5850 5851 006603 SN=SN+1 5852 002000 XX=XX+XX 5853 000004 YY=YY+YY 5854 IFE YY, 5855 034071 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5856 034072 541 02 0 00 002000 HRRI AC-2,XX 5857 034073 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5858 034074 541 03 0 00 000004 HRRI AC-1,YY 5859 034075 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5860 034076 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5861 034077 003 04 0 00 006603 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5862 034100 321 10 0 00 034071 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5863 5864 5865 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5866 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5867 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5868 5869 006604 SN=SN+1 5870 004000 XX=XX+XX 5871 000010 YY=YY+YY 5872 IFE YY, 5873 034101 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5874 034102 541 02 0 00 004000 HRRI AC-2,XX 5875 034103 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5876 034104 541 03 0 00 000010 HRRI AC-1,YY 5877 034105 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5878 034106 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5879 034107 003 04 0 00 006604 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5880 034110 321 10 0 00 034101 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5881 5882 5883 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5884 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5885 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5886 5887 006605 SN=SN+1 5888 010000 XX=XX+XX 5889 000020 YY=YY+YY 5890 IFE YY, 5891 034111 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5892 034112 541 02 0 00 010000 HRRI AC-2,XX 5893 034113 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0144 5894 034114 541 03 0 00 000020 HRRI AC-1,YY 5895 034115 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5896 034116 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5897 034117 003 04 0 00 006605 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5898 034120 321 10 0 00 034111 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5899 5900 5901 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5902 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5903 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5904 5905 006606 SN=SN+1 5906 020000 XX=XX+XX 5907 000040 YY=YY+YY 5908 IFE YY, 5909 034121 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5910 034122 541 02 0 00 020000 HRRI AC-2,XX 5911 034123 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5912 034124 541 03 0 00 000040 HRRI AC-1,YY 5913 034125 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5914 034126 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5915 034127 003 04 0 00 006606 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5916 034130 321 10 0 00 034121 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5917 5918 5919 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5920 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5921 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5922 5923 006607 SN=SN+1 5924 040000 XX=XX+XX 5925 000100 YY=YY+YY 5926 IFE YY, 5927 034131 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5928 034132 541 02 0 00 040000 HRRI AC-2,XX 5929 034133 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5930 034134 541 03 0 00 000100 HRRI AC-1,YY 5931 034135 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5932 034136 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5933 034137 003 04 0 00 006607 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5934 034140 321 10 0 00 034131 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5935 5936 5937 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5938 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5939 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5940 5941 006610 SN=SN+1 5942 100000 XX=XX+XX 5943 000200 YY=YY+YY 5944 IFE YY, 5945 034141 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5946 034142 541 02 0 00 100000 HRRI AC-2,XX 5947 034143 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5948 034144 541 03 0 00 000200 HRRI AC-1,YY DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0145 5949 034145 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5950 034146 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5951 034147 003 04 0 00 006610 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5952 034150 321 10 0 00 034141 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5953 5954 5955 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5956 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5957 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5958 5959 006611 SN=SN+1 5960 200000 XX=XX+XX 5961 000400 YY=YY+YY 5962 IFE YY, 5963 034151 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5964 034152 541 02 0 00 200000 HRRI AC-2,XX 5965 034153 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5966 034154 541 03 0 00 000400 HRRI AC-1,YY 5967 034155 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5968 034156 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5969 034157 003 04 0 00 006611 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5970 034160 321 10 0 00 034151 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5971 5972 5973 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5974 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5975 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5976 5977 006612 SN=SN+1 5978 400000 XX=XX+XX 5979 001000 YY=YY+YY 5980 IFE YY, 5981 034161 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR. 5982 034162 541 02 0 00 400000 HRRI AC-2,XX 5983 034163 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 5984 034164 541 03 0 00 001000 HRRI AC-1,YY 5985 034165 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 5986 034166 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 5987 034167 003 04 0 00 006612 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 5988 034170 321 10 0 00 034161 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 5989 5990 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0146 5991 006700 SN=6700 5992 000000 XX=0 5993 001000 YY=1000 5994 5995 Q6700: REPEAT ^D8,< 5996 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 5997 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 5998 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 5999 6000 SN=SN+1 6001 XX=XX+XX 6002 YY=YY+YY 6003 IFE XX, 6004 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6005 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6006 HRRI AC-1,YY 6007 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6008 IN AC 6009 CAME AC,AC-1 ;TEST FRACTION 6010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6011 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6012 > 6013 6014 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6015 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6016 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6017 6018 006701 SN=SN+1 6019 000000 XX=XX+XX 6020 002000 YY=YY+YY 6021 000001 IFE XX, 6022 034171 205 02 0 00 400001 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6023 034172 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6024 034173 541 03 0 00 002000 HRRI AC-1,YY 6025 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6026 034174 127 04 0 00 000002 IN AC 6027 034175 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6028 034176 003 04 0 00 006701 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6029 034177 321 10 0 00 034171 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6030 6031 6032 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6033 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6034 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6035 6036 006702 SN=SN+1 6037 000002 XX=XX+XX 6038 004000 YY=YY+YY 6039 IFE XX, 6040 034200 205 02 0 00 400002 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6041 034201 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6042 034202 541 03 0 00 004000 HRRI AC-1,YY 6043 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6044 034203 127 04 0 00 000002 IN AC 6045 034204 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0147 6046 034205 003 04 0 00 006702 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6047 034206 321 10 0 00 034200 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6048 6049 6050 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6051 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6052 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6053 6054 006703 SN=SN+1 6055 000004 XX=XX+XX 6056 010000 YY=YY+YY 6057 IFE XX, 6058 034207 205 02 0 00 400004 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6059 034210 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6060 034211 541 03 0 00 010000 HRRI AC-1,YY 6061 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6062 034212 127 04 0 00 000002 IN AC 6063 034213 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6064 034214 003 04 0 00 006703 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6065 034215 321 10 0 00 034207 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6066 6067 6068 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6069 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6070 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6071 6072 006704 SN=SN+1 6073 000010 XX=XX+XX 6074 020000 YY=YY+YY 6075 IFE XX, 6076 034216 205 02 0 00 400010 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6077 034217 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6078 034220 541 03 0 00 020000 HRRI AC-1,YY 6079 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6080 034221 127 04 0 00 000002 IN AC 6081 034222 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6082 034223 003 04 0 00 006704 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6083 034224 321 10 0 00 034216 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6084 6085 6086 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6087 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6088 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6089 6090 006705 SN=SN+1 6091 000020 XX=XX+XX 6092 040000 YY=YY+YY 6093 IFE XX, 6094 034225 205 02 0 00 400020 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6095 034226 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6096 034227 541 03 0 00 040000 HRRI AC-1,YY 6097 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6098 034230 127 04 0 00 000002 IN AC 6099 034231 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6100 034232 003 04 0 00 006705 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0148 6101 034233 321 10 0 00 034225 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6102 6103 6104 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6105 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6106 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6107 6108 006706 SN=SN+1 6109 000040 XX=XX+XX 6110 100000 YY=YY+YY 6111 IFE XX, 6112 034234 205 02 0 00 400040 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6113 034235 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6114 034236 541 03 0 00 100000 HRRI AC-1,YY 6115 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6116 034237 127 04 0 00 000002 IN AC 6117 034240 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6118 034241 003 04 0 00 006706 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6119 034242 321 10 0 00 034234 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6120 6121 6122 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6123 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6124 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6125 6126 006707 SN=SN+1 6127 000100 XX=XX+XX 6128 200000 YY=YY+YY 6129 IFE XX, 6130 034243 205 02 0 00 400100 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6131 034244 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6132 034245 541 03 0 00 200000 HRRI AC-1,YY 6133 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6134 034246 127 04 0 00 000002 IN AC 6135 034247 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6136 034250 003 04 0 00 006707 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6137 034251 321 10 0 00 034243 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6138 6139 6140 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6141 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6142 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6143 6144 006710 SN=SN+1 6145 000200 XX=XX+XX 6146 400000 YY=YY+YY 6147 IFE XX, 6148 034252 205 02 0 00 400200 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6149 034253 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT 6150 034254 541 03 0 00 400000 HRRI AC-1,YY 6151 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6152 034255 127 04 0 00 000002 IN AC 6153 034256 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6154 034257 003 04 0 00 006710 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6155 034260 321 10 0 00 034252 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0149 6156 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 31 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0150 6157 007000 SN=7000 6158 000200 XX=200 6159 000000 YY=0 6160 6161 Q7000: REPEAT ^D8,< 6162 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6163 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6164 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6165 6166 SN=SN+1 6167 XX=XX+XX 6168 YY=YY+YY 6169 IFE YY, 6170 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6171 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6172 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6173 IN AC 6174 CAME AC,AC-1 ;TEST FRACTION 6175 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6176 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6177 > 6178 6179 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6180 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6181 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6182 6183 007001 SN=SN+1 6184 000400 XX=XX+XX 6185 000000 YY=YY+YY 6186 000001 IFE YY, 6187 034261 205 02 0 00 400400 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6188 034262 205 03 0 00 534001 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6189 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6190 034263 127 04 0 00 000002 IN AC 6191 034264 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6192 034265 003 04 0 00 007001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6193 034266 321 10 0 00 034261 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6194 6195 6196 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6197 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6198 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6199 6200 007002 SN=SN+1 6201 001000 XX=XX+XX 6202 000002 YY=YY+YY 6203 IFE YY, 6204 034267 205 02 0 00 401000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6205 034270 205 03 0 00 534002 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6206 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6207 034271 127 04 0 00 000002 IN AC 6208 034272 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6209 034273 003 04 0 00 007002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6210 034274 321 10 0 00 034267 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6211 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 31-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0151 6212 6213 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6214 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6215 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6216 6217 007003 SN=SN+1 6218 002000 XX=XX+XX 6219 000004 YY=YY+YY 6220 IFE YY, 6221 034275 205 02 0 00 402000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6222 034276 205 03 0 00 534004 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6223 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6224 034277 127 04 0 00 000002 IN AC 6225 034300 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6226 034301 003 04 0 00 007003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6227 034302 321 10 0 00 034275 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6228 6229 6230 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6231 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6232 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6233 6234 007004 SN=SN+1 6235 004000 XX=XX+XX 6236 000010 YY=YY+YY 6237 IFE YY, 6238 034303 205 02 0 00 404000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6239 034304 205 03 0 00 534010 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6240 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6241 034305 127 04 0 00 000002 IN AC 6242 034306 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6243 034307 003 04 0 00 007004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6244 034310 321 10 0 00 034303 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6245 6246 6247 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6248 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6249 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6250 6251 007005 SN=SN+1 6252 010000 XX=XX+XX 6253 000020 YY=YY+YY 6254 IFE YY, 6255 034311 205 02 0 00 410000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6256 034312 205 03 0 00 534020 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6257 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6258 034313 127 04 0 00 000002 IN AC 6259 034314 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6260 034315 003 04 0 00 007005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6261 034316 321 10 0 00 034311 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6262 6263 6264 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6265 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6266 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 31-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0152 6267 6268 007006 SN=SN+1 6269 020000 XX=XX+XX 6270 000040 YY=YY+YY 6271 IFE YY, 6272 034317 205 02 0 00 420000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6273 034320 205 03 0 00 534040 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6274 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6275 034321 127 04 0 00 000002 IN AC 6276 034322 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6277 034323 003 04 0 00 007006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6278 034324 321 10 0 00 034317 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6279 6280 6281 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6282 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6283 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6284 6285 007007 SN=SN+1 6286 040000 XX=XX+XX 6287 000100 YY=YY+YY 6288 IFE YY, 6289 034325 205 02 0 00 440000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6290 034326 205 03 0 00 534100 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6291 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6292 034327 127 04 0 00 000002 IN AC 6293 034330 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6294 034331 003 04 0 00 007007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6295 034332 321 10 0 00 034325 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6296 6297 6298 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6299 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6300 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS. 6301 6302 007010 SN=SN+1 6303 100000 XX=XX+XX 6304 000200 YY=YY+YY 6305 IFE YY, 6306 034333 205 02 0 00 500000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6307 034334 205 03 0 00 534200 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6308 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6309 034335 127 04 0 00 000002 IN AC 6310 034336 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6311 034337 003 04 0 00 007010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET 6312 034340 321 10 0 00 034333 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH 6313 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0153 6314 SUBTTL DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS 6315 6316 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6317 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6318 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6319 6320 034341 205 02 0 00 577777 Q7100: MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6321 034342 541 02 0 00 777400 HRRI AC-2,777400 6322 034343 525 03 0 00 534377 HRLOI AC-1,534377 ;SET-UP EXPECTED RESULT 6323 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6324 034344 127 04 0 00 000002 IN AC 6325 034345 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6326 034346 003 04 0 00 007101 ER3 AC,7101 ;FAILURE IF TESTED BIT IS NOT CLEAR 6327 034347 321 10 0 00 034341 JUMPL SAC,Q7100 ;LOOP ON ERROR SWITCH 6328 6329 007200 SN=7200 6330 777200 XX=777200 6331 000000 YY=0 6332 6333 Q7200: REPEAT ^D10,< 6334 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6335 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6336 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6337 6338 SN=SN+1 6339 XX=&777777 6340 YY=&777777 6341 IFE , 6342 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6343 HRRI AC-2,XX 6344 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6345 HRRI AC-1,YY 6346 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6347 IN AC 6348 CAME AC,AC-1 ;TEST FRACTION 6349 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6350 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6351 > 6352 6353 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6354 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6355 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6356 6357 007201 SN=SN+1 6358 777000 XX=&777777 6359 000001 YY=&777777 6360 777776 IFE , 6361 034350 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6362 034351 541 02 0 00 777000 HRRI AC-2,XX 6363 034352 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6364 034353 541 03 0 00 777776 HRRI AC-1,YY 6365 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6366 034354 127 04 0 00 000002 IN AC 6367 034355 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6368 034356 003 04 0 00 007201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0154 6369 034357 321 10 0 00 034350 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6370 6371 6372 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6373 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6374 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6375 6376 007202 SN=SN+1 6377 776400 XX=&777777 6378 777775 YY=&777777 6379 IFE , 6380 034360 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6381 034361 541 02 0 00 776400 HRRI AC-2,XX 6382 034362 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6383 034363 541 03 0 00 777775 HRRI AC-1,YY 6384 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6385 034364 127 04 0 00 000002 IN AC 6386 034365 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6387 034366 003 04 0 00 007202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6388 034367 321 10 0 00 034360 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6389 6390 6391 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6392 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6393 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6394 6395 007203 SN=SN+1 6396 775400 XX=&777777 6397 777773 YY=&777777 6398 IFE , 6399 034370 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6400 034371 541 02 0 00 775400 HRRI AC-2,XX 6401 034372 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6402 034373 541 03 0 00 777773 HRRI AC-1,YY 6403 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6404 034374 127 04 0 00 000002 IN AC 6405 034375 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6406 034376 003 04 0 00 007203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6407 034377 321 10 0 00 034370 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6408 6409 6410 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6411 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6412 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6413 6414 007204 SN=SN+1 6415 773400 XX=&777777 6416 777767 YY=&777777 6417 IFE , 6418 034400 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6419 034401 541 02 0 00 773400 HRRI AC-2,XX 6420 034402 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6421 034403 541 03 0 00 777767 HRRI AC-1,YY 6422 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6423 034404 127 04 0 00 000002 IN AC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0155 6424 034405 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6425 034406 003 04 0 00 007204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6426 034407 321 10 0 00 034400 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6427 6428 6429 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6430 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6431 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6432 6433 007205 SN=SN+1 6434 767400 XX=&777777 6435 777757 YY=&777777 6436 IFE , 6437 034410 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6438 034411 541 02 0 00 767400 HRRI AC-2,XX 6439 034412 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6440 034413 541 03 0 00 777757 HRRI AC-1,YY 6441 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6442 034414 127 04 0 00 000002 IN AC 6443 034415 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6444 034416 003 04 0 00 007205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6445 034417 321 10 0 00 034410 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6446 6447 6448 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6449 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6450 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6451 6452 007206 SN=SN+1 6453 757400 XX=&777777 6454 777737 YY=&777777 6455 IFE , 6456 034420 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6457 034421 541 02 0 00 757400 HRRI AC-2,XX 6458 034422 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6459 034423 541 03 0 00 777737 HRRI AC-1,YY 6460 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6461 034424 127 04 0 00 000002 IN AC 6462 034425 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6463 034426 003 04 0 00 007206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6464 034427 321 10 0 00 034420 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6465 6466 6467 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6468 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6469 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6470 6471 007207 SN=SN+1 6472 737400 XX=&777777 6473 777677 YY=&777777 6474 IFE , 6475 034430 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6476 034431 541 02 0 00 737400 HRRI AC-2,XX 6477 034432 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6478 034433 541 03 0 00 777677 HRRI AC-1,YY DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0156 6479 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6480 034434 127 04 0 00 000002 IN AC 6481 034435 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6482 034436 003 04 0 00 007207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6483 034437 321 10 0 00 034430 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6484 6485 6486 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6487 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6488 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6489 6490 007210 SN=SN+1 6491 677400 XX=&777777 6492 777577 YY=&777777 6493 IFE , 6494 034440 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6495 034441 541 02 0 00 677400 HRRI AC-2,XX 6496 034442 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6497 034443 541 03 0 00 777577 HRRI AC-1,YY 6498 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6499 034444 127 04 0 00 000002 IN AC 6500 034445 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6501 034446 003 04 0 00 007210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6502 034447 321 10 0 00 034440 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6503 6504 6505 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6506 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6507 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6508 6509 007211 SN=SN+1 6510 577400 XX=&777777 6511 777377 YY=&777777 6512 IFE , 6513 034450 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6514 034451 541 02 0 00 577400 HRRI AC-2,XX 6515 034452 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6516 034453 541 03 0 00 777377 HRRI AC-1,YY 6517 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6518 034454 127 04 0 00 000002 IN AC 6519 034455 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6520 034456 003 04 0 00 007211 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6521 034457 321 10 0 00 034450 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6522 6523 6524 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6525 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6526 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6527 6528 007212 SN=SN+1 6529 377400 XX=&777777 6530 776777 YY=&777777 6531 IFE , 6532 034460 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR. 6533 034461 541 02 0 00 377400 HRRI AC-2,XX DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0157 6534 034462 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6535 034463 541 03 0 00 776777 HRRI AC-1,YY 6536 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6537 034464 127 04 0 00 000002 IN AC 6538 034465 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6539 034466 003 04 0 00 007212 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6540 034467 321 10 0 00 034460 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6541 6542 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0158 6543 007300 SN=7300 6544 000000 XX=0 6545 776777 YY=776777 6546 6547 Q7300: REPEAT ^D8,< 6548 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6549 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6550 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6551 6552 SN=SN+1 6553 XX=&177777 6554 YY=&777777 6555 IFE , 6556 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6557 HRRI AC-2,777400 6558 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6559 HRRI AC-1,YY 6560 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6561 IN AC 6562 CAME AC,AC-1 ;TEST FRACTION 6563 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6564 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6565 > 6566 6567 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6568 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6569 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6570 6571 007301 SN=SN+1 6572 000001 XX=&177777 6573 775777 YY=&777777 6574 177776 IFE , 6575 034470 205 02 0 00 577776 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6576 034471 541 02 0 00 777400 HRRI AC-2,777400 6577 034472 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6578 034473 541 03 0 00 775777 HRRI AC-1,YY 6579 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6580 034474 127 04 0 00 000002 IN AC 6581 034475 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6582 034476 003 04 0 00 007301 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6583 034477 321 10 0 00 034470 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6584 6585 6586 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6587 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6588 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6589 6590 007302 SN=SN+1 6591 177775 XX=&177777 6592 773777 YY=&777777 6593 IFE , 6594 034500 205 02 0 00 577775 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6595 034501 541 02 0 00 777400 HRRI AC-2,777400 6596 034502 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6597 034503 541 03 0 00 773777 HRRI AC-1,YY DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0159 6598 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6599 034504 127 04 0 00 000002 IN AC 6600 034505 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6601 034506 003 04 0 00 007302 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6602 034507 321 10 0 00 034500 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6603 6604 6605 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6606 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6607 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6608 6609 007303 SN=SN+1 6610 177773 XX=&177777 6611 767777 YY=&777777 6612 IFE , 6613 034510 205 02 0 00 577773 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6614 034511 541 02 0 00 777400 HRRI AC-2,777400 6615 034512 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6616 034513 541 03 0 00 767777 HRRI AC-1,YY 6617 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6618 034514 127 04 0 00 000002 IN AC 6619 034515 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6620 034516 003 04 0 00 007303 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6621 034517 321 10 0 00 034510 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6622 6623 6624 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6625 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6626 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6627 6628 007304 SN=SN+1 6629 177767 XX=&177777 6630 757777 YY=&777777 6631 IFE , 6632 034520 205 02 0 00 577767 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6633 034521 541 02 0 00 777400 HRRI AC-2,777400 6634 034522 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6635 034523 541 03 0 00 757777 HRRI AC-1,YY 6636 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6637 034524 127 04 0 00 000002 IN AC 6638 034525 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6639 034526 003 04 0 00 007304 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6640 034527 321 10 0 00 034520 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6641 6642 6643 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6644 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6645 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6646 6647 007305 SN=SN+1 6648 177757 XX=&177777 6649 737777 YY=&777777 6650 IFE , 6651 034530 205 02 0 00 577757 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6652 034531 541 02 0 00 777400 HRRI AC-2,777400 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-7 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0160 6653 034532 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6654 034533 541 03 0 00 737777 HRRI AC-1,YY 6655 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6656 034534 127 04 0 00 000002 IN AC 6657 034535 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6658 034536 003 04 0 00 007305 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6659 034537 321 10 0 00 034530 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6660 6661 6662 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6663 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6664 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6665 6666 007306 SN=SN+1 6667 177737 XX=&177777 6668 677777 YY=&777777 6669 IFE , 6670 034540 205 02 0 00 577737 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6671 034541 541 02 0 00 777400 HRRI AC-2,777400 6672 034542 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6673 034543 541 03 0 00 677777 HRRI AC-1,YY 6674 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6675 034544 127 04 0 00 000002 IN AC 6676 034545 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6677 034546 003 04 0 00 007306 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6678 034547 321 10 0 00 034540 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6679 6680 6681 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6682 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6683 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6684 6685 007307 SN=SN+1 6686 177677 XX=&177777 6687 577777 YY=&777777 6688 IFE , 6689 034550 205 02 0 00 577677 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6690 034551 541 02 0 00 777400 HRRI AC-2,777400 6691 034552 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6692 034553 541 03 0 00 577777 HRRI AC-1,YY 6693 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6694 034554 127 04 0 00 000002 IN AC 6695 034555 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6696 034556 003 04 0 00 007307 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6697 034557 321 10 0 00 034550 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6698 6699 6700 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6701 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6702 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6703 6704 007310 SN=SN+1 6705 177577 XX=&177777 6706 377777 YY=&777777 6707 IFE , DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-8 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0161 6708 034560 205 02 0 00 577577 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6709 034561 541 02 0 00 777400 HRRI AC-2,777400 6710 034562 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT 6711 034563 541 03 0 00 377777 HRRI AC-1,YY 6712 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT 6713 034564 127 04 0 00 000002 IN AC 6714 034565 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6715 034566 003 04 0 00 007310 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6716 034567 321 10 0 00 034560 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 6717 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 33 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0162 6718 6719 007400 SN=7400 6720 177577 XX=177577 6721 000000 YY=0 6722 6723 Q7400: REPEAT ^D8,< 6724 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6725 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6726 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6727 6728 SN=SN+1 6729 XX=&177777 6730 YY=&377 6731 IFE , 6732 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6733 HRRI AC-2,777400 6734 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6735 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6736 CAME AC,AC-1 ;TEST FRACTION 6737 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6738 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6739 > 6740 6741 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6742 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6743 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6744 6745 007401 SN=SN+1 6746 177377 XX=&177777 6747 000001 YY=&377 6748 000376 IFE , 6749 034570 205 02 0 00 577377 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6750 034571 541 02 0 00 777400 HRRI AC-2,777400 6751 034572 525 03 0 00 534376 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6752 034573 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6753 034574 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6754 034575 003 04 0 00 007401 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6755 034576 321 10 0 00 034570 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6756 6757 6758 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6759 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6760 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6761 6762 007402 SN=SN+1 6763 176777 XX=&177777 6764 000375 YY=&377 6765 IFE , 6766 034577 205 02 0 00 576777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6767 034600 541 02 0 00 777400 HRRI AC-2,777400 6768 034601 525 03 0 00 534375 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6769 034602 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6770 034603 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6771 034604 003 04 0 00 007402 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6772 034605 321 10 0 00 034577 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 33-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0163 6773 6774 6775 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6776 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6777 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6778 6779 007403 SN=SN+1 6780 175777 XX=&177777 6781 000373 YY=&377 6782 IFE , 6783 034606 205 02 0 00 575777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6784 034607 541 02 0 00 777400 HRRI AC-2,777400 6785 034610 525 03 0 00 534373 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6786 034611 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6787 034612 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6788 034613 003 04 0 00 007403 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6789 034614 321 10 0 00 034606 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6790 6791 6792 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6793 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6794 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6795 6796 007404 SN=SN+1 6797 173777 XX=&177777 6798 000367 YY=&377 6799 IFE , 6800 034615 205 02 0 00 573777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6801 034616 541 02 0 00 777400 HRRI AC-2,777400 6802 034617 525 03 0 00 534367 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6803 034620 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6804 034621 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6805 034622 003 04 0 00 007404 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6806 034623 321 10 0 00 034615 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6807 6808 6809 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6810 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6811 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6812 6813 007405 SN=SN+1 6814 167777 XX=&177777 6815 000357 YY=&377 6816 IFE , 6817 034624 205 02 0 00 567777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6818 034625 541 02 0 00 777400 HRRI AC-2,777400 6819 034626 525 03 0 00 534357 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6820 034627 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6821 034630 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6822 034631 003 04 0 00 007405 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6823 034632 321 10 0 00 034624 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6824 6825 6826 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6827 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 33-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0164 6828 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6829 6830 007406 SN=SN+1 6831 157777 XX=&177777 6832 000337 YY=&377 6833 IFE , 6834 034633 205 02 0 00 557777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6835 034634 541 02 0 00 777400 HRRI AC-2,777400 6836 034635 525 03 0 00 534337 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6837 034636 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6838 034637 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6839 034640 003 04 0 00 007406 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6840 034641 321 10 0 00 034633 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6841 6842 6843 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6844 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6845 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6846 6847 007407 SN=SN+1 6848 137777 XX=&177777 6849 000277 YY=&377 6850 IFE , 6851 034642 205 02 0 00 537777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6852 034643 541 02 0 00 777400 HRRI AC-2,777400 6853 034644 525 03 0 00 534277 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6854 034645 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6855 034646 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6856 034647 003 04 0 00 007407 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6857 034650 321 10 0 00 034642 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6858 6859 6860 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 6861 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC 6862 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS. 6863 6864 007410 SN=SN+1 6865 077777 XX=&177777 6866 000177 YY=&377 6867 IFE , 6868 034651 205 02 0 00 477777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR. 6869 034652 541 02 0 00 777400 HRRI AC-2,777400 6870 034653 525 03 0 00 534177 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT 6871 034654 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT 6872 034655 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION 6873 034656 003 04 0 00 007410 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR 6874 034657 321 10 0 00 034651 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH 6875 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 34 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - ROUNDING SEQ 0165 6876 SUBTTL DIAGNOSTIC SECTION - FLTR - ROUNDING 6877 6878 ;TEST FOR ROUNDING 6879 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT 6880 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO 6881 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB; 6882 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED. 6883 6884 6885 034660 205 02 0 00 200000 Q7500: MOVSI AC-2,1B19 ;INITIALIZE FIX PT. NBR. 6886 034661 541 02 0 00 000177 HRRI AC-2,177 6887 034662 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 6888 034663 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT, 6889 ;ROUND RESULT, AND PLACE IN AC. 6890 034664 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED DOWN? 6891 034665 003 04 0 00 007501 ER3 AC,7501 ;RESULT DID NOT ROUND DOWN 6892 034666 321 10 0 00 034660 JUMPL SAC,Q7500 ;LOOP ON ERROR SWITCH 6893 6894 ;TEST FOR ROUNDING 6895 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT 6896 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO 6897 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB; 6898 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED. 6899 034667 205 02 0 00 200000 Q7600: MOVSI AC-2,1B19 ;INITIALIZE FIX PT. NBR. 6900 034670 541 02 0 00 000200 HRRI AC-2,200 6901 034671 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 6902 034672 541 03 0 00 000001 HRRI AC-1,1 6903 034673 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT, 6904 ;ROUND RESULT, AND PLACE IN AC. 6905 034674 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED UP? 6906 034675 003 04 0 00 007601 ER3 AC,7601 ;RESULT DID NOT ROUND UP 6907 034676 321 10 0 00 034667 JUMPL SAC,Q7600 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 35 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - ROUNDING SEQ 0166 6908 ;TEST FOR ROUNDING 6909 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT 6910 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO 6911 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB; 6912 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED. 6913 034677 561 02 0 00 777600 Q7700: HRROI AC-2,777600 ;INITIALIZE FIX PT. NBR. 6914 034700 621 02 0 00 200000 TLZ AC-2,1B19 6915 034701 525 03 0 00 534377 HRLOI AC-1,534377 ;SET-UP EXPECTED RESULT 6916 034702 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT, 6917 ;ROUND RESULT, AND PLACE IN AC. 6918 034703 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED DOWN? 6919 034704 003 04 0 00 007701 ER3 AC,7701 ;RESULT DID NOT ROUND DOWN 6920 034705 321 10 0 00 034677 JUMPL SAC,Q7700 ;LOOP ON ERROR SWITCH 6921 6922 ;TEST FOR ROUNDING 6923 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT 6924 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO 6925 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB; 6926 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED. 6927 034706 561 02 0 00 777601 Q10000: HRROI AC-2,777601 ;INITIALIZE FIX PT. NBR. 6928 034707 621 02 0 00 200000 TLZ AC-2,1B19 6929 034710 515 03 0 00 534400 HRLZI AC-1,534400 ;SET-UP EXPECTED RESULT 6930 034711 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT, 6931 ;ROUND RESULT, AND PLACE IN AC. 6932 034712 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED UP? 6933 034713 003 04 0 00 010001 ER3 AC,10001 ;RESULT DID NOT ROUND UP 6934 034714 321 10 0 00 034706 JUMPL SAC,Q10000 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 36 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS SEQ 0167 6935 SUBTTL DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS 6936 6937 ;VERIFY THAT 'FLTR AC,E' OPERATES FOR 'E' BEYOND 'AC' RANGE 6938 6939 034715 205 02 0 00 200000 Q10010: MOVSI AC-2,1B19 ;INITIALIZE FIX PT NO. 6940 034716 541 02 0 00 000177 HRRI AC-2,177 6941 034717 202 02 0 00 036501 MOVEM AC-2,TSTWD 6942 034720 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT 6943 034721 127 04 0 00 036501 FLTR AC,TSTWD ;*CONVERT FIX PT NO. IN 'E' TO FLT PT AND STORE IN AC 6944 034722 312 04 0 00 000003 CAME AC,AC-1 ;DID FLTR GET CORRECT C(E)? 6945 034723 003 04 0 00 010011 ER3 AC,10011 ;FAILURE TO GET C(E) 6946 034724 321 10 0 00 034715 JUMPL SAC,Q10010 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0168 6947 SUBTTL DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS 6948 6949 ;CHECK THAT 'DMOVE AC,E' DOES NOT CLOBBER C(E) OR C(E+1) 6950 6951 034725 200 02 0 00 036675 Q10050: MOVE AC-2,[631463,,146314] ;INITIALIZE C(E), C(E+1) 6952 034726 200 03 0 00 036676 MOVE AC-1,[424242,,131313] 6953 034727 120 04 0 00 000002 DMOVE AC,AC-2 ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 6954 034730 312 02 0 00 036675 CAME AC-2,[631463,,146314] ;WAS C(E) MODIFIED? 6955 034731 005 02 0 00 010051 ER5 AC-2,10051 ;C(E) WAS CLOBBERED 6956 034732 312 03 0 00 036676 CAME AC-1,[424242,,131313] ;WAS C(E+1) MODIFIED? 6957 034733 006 03 0 00 010051 ER6 AC-1,10051 ;C(E+1) WAS CLOBBERED 6958 034734 321 10 0 00 034725 JUMPL SAC,Q10050 6959 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0169 6960 DMVE 1010,0,0,0,0^ 6961 034735 200 11 0 00 036677 Q10100: MOVE AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 6962 034736 200 12 0 00 036677 MOVE AC+6,[XWD 0,0] ;FOR COMPARISON 6963 034737 200 04 0 00 036700 MOVE AC,[XWD 707070,707070] 6964 034740 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 6965 DMOVE AC,[XWD 0,0 ;*MOVE DOUBLE WORD 0,0 ; 0,0 6966 034741 120 04 0 00 036702 XWD 0,0] ;FROM MEMORY TO AC, AC+1 6967 034742 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 6968 034743 003 04 0 00 010101 ER3 AC,10101 ;FAIL IF CONTENTS(AC) NOT = 0,0 6969 034744 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 6970 034745 004 05 0 00 010102 ER4 AC+1,10102 ;FAIL IF CONTENTS(AC+1) NOT = 0,0 6971 034746 321 10 0 00 034735 JUMPL SAC,Q10100 ;LOOP ON ERROR SWITCH^ 6972 6973 DMVE 1020,-1,-1,-1,-1^ 6974 034747 200 11 0 00 036704 Q10200: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS 6975 034750 200 12 0 00 036704 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON 6976 034751 200 04 0 00 036700 MOVE AC,[XWD 707070,707070] 6977 034752 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 6978 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; -1,-1 6979 034753 120 04 0 00 036704 XWD -1,-1] ;FROM MEMORY TO AC, AC+1 6980 034754 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 6981 034755 003 04 0 00 010201 ER3 AC,10201 ;FAIL IF CONTENTS(AC) NOT = -1,-1 6982 034756 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 6983 034757 004 05 0 00 010202 ER4 AC+1,10202 ;FAIL IF CONTENTS(AC+1) NOT = -1,-1 6984 034760 321 10 0 00 034747 JUMPL SAC,Q10200 ;LOOP ON ERROR SWITCH^ 6985 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0170 6986 DMVE 1030,0,0,-1,-1^ 6987 034761 200 11 0 00 036677 Q10300: MOVE AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 6988 034762 200 12 0 00 036704 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON 6989 034763 200 04 0 00 036700 MOVE AC,[XWD 707070,707070] 6990 034764 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 6991 DMOVE AC,[XWD 0,0 ;*MOVE DOUBLE WORD 0,0 ; -1,-1 6992 034765 120 04 0 00 036703 XWD -1,-1] ;FROM MEMORY TO AC, AC+1 6993 034766 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 6994 034767 003 04 0 00 010301 ER3 AC,10301 ;FAIL IF CONTENTS(AC) NOT = 0,0 6995 034770 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 6996 034771 004 05 0 00 010302 ER4 AC+1,10302 ;FAIL IF CONTENTS(AC+1) NOT = -1,-1 6997 034772 321 10 0 00 034761 JUMPL SAC,Q10300 ;LOOP ON ERROR SWITCH^ 6998 6999 DMVE 1040,-1,-1,0,0^ 7000 034773 200 11 0 00 036704 Q10400: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS 7001 034774 200 12 0 00 036677 MOVE AC+6,[XWD 0,0] ;FOR COMPARISON 7002 034775 200 04 0 00 036700 MOVE AC,[XWD 707070,707070] 7003 034776 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 7004 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; 0,0 7005 034777 120 04 0 00 036705 XWD 0,0] ;FROM MEMORY TO AC, AC+1 7006 035000 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7007 035001 003 04 0 00 010401 ER3 AC,10401 ;FAIL IF CONTENTS(AC) NOT = -1,-1 7008 035002 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7009 035003 004 05 0 00 010402 ER4 AC+1,10402 ;FAIL IF CONTENTS(AC+1) NOT = 0,0 7010 035004 321 10 0 00 034773 JUMPL SAC,Q10400 ;LOOP ON ERROR SWITCH^ 7011 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0171 7012 DMVE 1050,252525,252525,525252,525252^ 7013 035005 200 11 0 00 036674 Q10500: MOVE AC+5,[XWD 252525,252525] ;INITIALIZE TEST WORDS 7014 035006 200 12 0 00 036707 MOVE AC+6,[XWD 525252,525252] ;FOR COMPARISON 7015 035007 200 04 0 00 036700 MOVE AC,[XWD 707070,707070] 7016 035010 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 7017 DMOVE AC,[XWD 252525,252525 ;*MOVE DOUBLE WORD 252525,252525 ; 525252,525252 7018 035011 120 04 0 00 036710 XWD 525252,525252] ;FROM MEMORY TO AC, AC+1 7019 035012 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7020 035013 003 04 0 00 010501 ER3 AC,10501 ;FAIL IF CONTENTS(AC) NOT = 252525,252525 7021 035014 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7022 035015 004 05 0 00 010502 ER4 AC+1,10502 ;FAIL IF CONTENTS(AC+1) NOT = 525252,525252 7023 035016 321 10 0 00 035005 JUMPL SAC,Q10500 ;LOOP ON ERROR SWITCH^ 7024 7025 DMVE 1060,525252,525252,252525,252525^ 7026 035017 200 11 0 00 036707 Q10600: MOVE AC+5,[XWD 525252,525252] ;INITIALIZE TEST WORDS 7027 035020 200 12 0 00 036674 MOVE AC+6,[XWD 252525,252525] ;FOR COMPARISON 7028 035021 200 04 0 00 036700 MOVE AC,[XWD 707070,707070] 7029 035022 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 7030 DMOVE AC,[XWD 525252,525252 ;*MOVE DOUBLE WORD 525252,525252 ; 252525,252525 7031 035023 120 04 0 00 036707 XWD 252525,252525] ;FROM MEMORY TO AC, AC+1 7032 035024 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7033 035025 003 04 0 00 010601 ER3 AC,10601 ;FAIL IF CONTENTS(AC) NOT = 525252,525252 7034 035026 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7035 035027 004 05 0 00 010602 ER4 AC+1,10602 ;FAIL IF CONTENTS(AC+1) NOT = 252525,252525 7036 035030 321 10 0 00 035017 JUMPL SAC,Q10600 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 38 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0 SEQ 0172 7037 SUBTTL DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0 7038 7039 ;CHECK DMOVE FOR AC=17 AND AC+1=0 7040 7041 000017 AC=17 7042 000003 SAC=&17 7043 SAVEAC (1,1)^ 7044 035031 201 03 0 00 035031 MOVEI SAC,. 7045 035032 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7046 035033 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7047 035034 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7048 7049 DMVE17 1070,1071,-1,-1,-1,-1^ 7050 035035 202 17 0 00 037151 Q10710: MOVEM AC,%SV17# ;SAVE AC17 7051 035036 200 04 0 00 036704 Q10700: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS 7052 035037 200 05 0 00 036704 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON 7053 035040 200 17 0 00 036700 MOVE AC,[XWD 707070,707070] 7054 035041 200 00 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1 7055 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; -1,-1 7056 035042 120 17 0 00 036704 XWD -1,-1] ;FROM MEMORY TO AC, AC+1 7057 035043 316 17 0 00 000004 Q10713: CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 7058 035044 254 00 0 00 035050 JRST .+4 ;HERE IF NO ERROR 7059 035045 202 17 0 00 000016 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS 7060 035046 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 7061 035047 003 16 0 00 010701 ER3 AC-1,10701 ;FAIL IF CONTENTS(AC) NOT = -1,-1 7062 035050 316 00 0 00 000005 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7063 035051 254 00 0 00 035055 JRST .+4 ;HERE IF NO ERROR 7064 035052 202 00 0 00 000016 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD 7065 035053 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 7066 035054 004 16 0 00 010702 ER4 AC-1,10702 7067 035055 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 7068 035056 321 03 0 00 035035 JUMPL SAC,Q10710 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 39 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS SEQ 0173 7069 SUBTTL DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS 7070 7071 ;CHECK DMOVE WHERE 'E' IS WITHIN THE 'AC' RANGE 7072 7073 000004 AC=4 7074 000010 SAC=&17 7075 SAVEAC(1,1)^ 7076 035057 201 10 0 00 035057 MOVEI SAC,. 7077 035060 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7078 035061 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7079 035062 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7080 000002 E=AC-2 7081 7082 011000 SN=11000 7083 000001 E=&17 7084 7085 Q11000: REPEAT ^D5, 7086 &17 7088 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 7089 SETOB E,E+1 ;INITIALIZE E,E+1 7090 HRRZI E+1,-1 7091 SETOB AC+5,&17 ;INITIALIZE TEST WORDS FOR COMPARISON 7092 HRRZI AC+6,-1 7093 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 7094 CAME AC,&17 ;DID DMOVE GET CORRECT C(E)? 7095 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1 7096 CAME AC+1,&17 ;DID DMOVE GET CORRECT C(E+1)? 7097 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1 7098 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7099 > 7100 011001 SN=SN+1 7101 000002 E=&17 7102 035063 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 7103 035064 477 02 0 00 000003 SETOB E,E+1 ;INITIALIZE E,E+1 7104 035065 551 03 0 00 777777 HRRZI E+1,-1 7105 035066 477 11 0 00 000012 SETOB AC+5,&17 ;INITIALIZE TEST WORDS FOR COMPARISON 7106 035067 551 12 0 00 777777 HRRZI AC+6,-1 7107 035070 120 04 0 00 000002 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 7108 035071 312 04 0 00 000011 CAME AC,&17 ;DID DMOVE GET CORRECT C(E)? 7109 035072 003 04 0 00 011001 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1 7110 035073 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVE GET CORRECT C(E+1)? 7111 035074 004 05 0 00 011001 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1 7112 035075 321 10 0 00 035065 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7113 7114 011002 SN=SN+1 7115 000003 E=&17 7116 035076 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 7117 035077 477 03 0 00 000004 SETOB E,E+1 ;INITIALIZE E,E+1 7118 035100 551 04 0 00 777777 HRRZI E+1,-1 7119 035101 477 11 0 00 000012 SETOB AC+5,&17 ;INITIALIZE TEST WORDS FOR COMPARISON 7120 035102 551 12 0 00 777777 HRRZI AC+6,-1 7121 035103 120 04 0 00 000003 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 7122 035104 312 04 0 00 000011 CAME AC,&17 ;DID DMOVE GET CORRECT C(E)? 7123 035105 003 04 0 00 011002 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 39-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS SEQ 0174 7124 035106 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVE GET CORRECT C(E+1)? 7125 035107 004 05 0 00 011002 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1 7126 035110 321 10 0 00 035100 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7127 7128 011003 SN=SN+1 7129 000004 E=&17 7130 035111 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 7131 035112 477 04 0 00 000005 SETOB E,E+1 ;INITIALIZE E,E+1 7132 035113 551 05 0 00 777777 HRRZI E+1,-1 7133 035114 477 11 0 00 000012 SETOB AC+5,&17 ;INITIALIZE TEST WORDS FOR COMPARISON 7134 035115 551 12 0 00 777777 HRRZI AC+6,-1 7135 035116 120 04 0 00 000004 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 7136 035117 312 04 0 00 000011 CAME AC,&17 ;DID DMOVE GET CORRECT C(E)? 7137 035120 003 04 0 00 011003 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1 7138 035121 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVE GET CORRECT C(E+1)? 7139 035122 004 05 0 00 011003 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1 7140 035123 321 10 0 00 035113 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7141 7142 011004 SN=SN+1 7143 000005 E=&17 7144 035124 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 7145 035125 477 05 0 00 000006 SETOB E,E+1 ;INITIALIZE E,E+1 7146 035126 551 06 0 00 777777 HRRZI E+1,-1 7147 035127 477 11 0 00 000012 SETOB AC+5,&17 ;INITIALIZE TEST WORDS FOR COMPARISON 7148 035130 551 12 0 00 777777 HRRZI AC+6,-1 7149 035131 120 04 0 00 000005 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 7150 035132 312 04 0 00 000011 CAME AC,&17 ;DID DMOVE GET CORRECT C(E)? 7151 035133 003 04 0 00 011004 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1 7152 035134 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVE GET CORRECT C(E+1)? 7153 035135 004 05 0 00 011004 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1 7154 035136 321 10 0 00 035126 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7155 7156 011005 SN=SN+1 7157 000006 E=&17 7158 035137 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1 7159 035140 477 06 0 00 000007 SETOB E,E+1 ;INITIALIZE E,E+1 7160 035141 551 07 0 00 777777 HRRZI E+1,-1 7161 035142 477 11 0 00 000012 SETOB AC+5,&17 ;INITIALIZE TEST WORDS FOR COMPARISON 7162 035143 551 12 0 00 777777 HRRZI AC+6,-1 7163 035144 120 04 0 00 000006 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1 7164 035145 312 04 0 00 000011 CAME AC,&17 ;DID DMOVE GET CORRECT C(E)? 7165 035146 003 04 0 00 011005 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1 7166 035147 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVE GET CORRECT C(E+1)? 7167 035150 004 05 0 00 011005 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1 7168 035151 321 10 0 00 035141 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7169 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0175 7170 SUBTTL DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS 7171 7172 ;CHECK THAT 'DMOVN AC,E' DOES NOT CLOBBER C(E) OR C(E+1) 7173 7174 Q11050: DMOVE AC-2,[631463,,146314 ;INITIALIZE C(E), C(E+1) 7175 035152 120 02 0 00 036675 424242,,131313] 7176 035153 121 04 0 00 000002 DMOVN AC,AC-2 ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7177 035154 312 02 0 00 036675 CAME AC-2,[631463,,146314] ;WAS C(E) MODIFIED? 7178 035155 005 02 0 00 011051 ER5 AC-2,11051 ;C(E) WAS CLOBBERED 7179 035156 312 03 0 00 036676 CAME AC-1,[424242,,131313] ;WAS C(E+1) MODIFIED? 7180 035157 006 03 0 00 011052 ER6 AC-1,11052 ;C(E+1) WAS CLOBBERED 7181 035160 321 10 0 00 035152 JUMPL SAC,Q11050 ;LOOP ON ERROR SWITCH 7182 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0176 7183 DMVN 1110,0,0,0,0^ 7184 Q11100: DMOVE AC,[XWD 707070,707070 7185 035161 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7186 035162 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON 7187 035163 400 12 0 00 000000 SETZ AC+6, 7188 035164 271 11 0 00 000001 ADDI AC+5,1 > 7189 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ; 7190 035165 121 04 0 00 036702 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1 7191 035166 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7192 035167 003 04 0 00 011101 ER3 AC,11101 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0 7193 035170 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7194 035171 004 05 0 00 011102 ER4 AC+1,11102 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0 7195 035172 321 10 0 00 035161 JUMPL SAC,Q11100 ;LOOP ON ERROR SWITCH^ 7196 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0177 7197 DMVN 1120,0,0,0,1^ 7198 Q11200: DMOVE AC,[XWD 707070,707070 7199 035173 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7200 035174 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON 7201 035175 210 12 0 00 036712 MOVN AC+6,[XWD 0,1] 7202 035176 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 7203 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ; 7204 035177 121 04 0 00 036713 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1 7205 035200 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7206 035201 003 04 0 00 011201 ER3 AC,11201 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0 7207 035202 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7208 035203 004 05 0 00 011202 ER4 AC+1,11202 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1 7209 035204 321 10 0 00 035173 JUMPL SAC,Q11200 ;LOOP ON ERROR SWITCH^ 7210 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0178 7211 DMVN 1130,-1,-1,0,1^ 7212 Q11300: DMOVE AC,[XWD 707070,707070 7213 035205 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7214 035206 460 11 0 00 036704 SETCM AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS FOR COMPARISON 7215 035207 210 12 0 00 036712 MOVN AC+6,[XWD 0,1] 7216 035210 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 7217 DMOVN AC,[XWD -1,-1 ;*MOVE NEGATIVE OF DOUBLE WORD -1,-1 ; 7218 035211 121 04 0 00 036715 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1 7219 035212 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7220 035213 003 04 0 00 011301 ER3 AC,11301 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF -1,-1 7221 035214 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7222 035215 004 05 0 00 011302 ER4 AC+1,11302 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1 7223 035216 321 10 0 00 035205 JUMPL SAC,Q11300 ;LOOP ON ERROR SWITCH^ 7224 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0179 7225 DMVN 1140,0,1,0,0^ 7226 Q11400: DMOVE AC,[XWD 707070,707070 7227 035217 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7228 035220 460 11 0 00 036712 SETCM AC+5,[XWD 0,1] ;INITIALIZE TEST WORDS FOR COMPARISON 7229 035221 400 12 0 00 000000 SETZ AC+6, 7230 035222 271 11 0 00 000001 ADDI AC+5,1 > 7231 DMOVN AC,[XWD 0,1 ;*MOVE NEGATIVE OF DOUBLE WORD 0,1 ; 7232 035223 121 04 0 00 036712 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1 7233 035224 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7234 035225 003 04 0 00 011401 ER3 AC,11401 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,1 7235 035226 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7236 035227 004 05 0 00 011402 ER4 AC+1,11402 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0 7237 035230 321 10 0 00 035217 JUMPL SAC,Q11400 ;LOOP ON ERROR SWITCH^ 7238 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0180 7239 DMVN 1150,525252,525252,252525,252526^ 7240 Q11500: DMOVE AC,[XWD 707070,707070 7241 035231 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7242 035232 460 11 0 00 036707 SETCM AC+5,[XWD 525252,525252] ;INITIALIZE TEST WORDS FOR COMPARISON 7243 035233 210 12 0 00 036717 MOVN AC+6,[XWD 252525,252526] 7244 035234 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 7245 DMOVN AC,[XWD 525252,525252 ;*MOVE NEGATIVE OF DOUBLE WORD 525252,525252 ; 7246 035235 121 04 0 00 036720 XWD 252525,252526] ;252525,252526 FROM MEMORY TO AC, AC+1 7247 035236 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7248 035237 003 04 0 00 011501 ER3 AC,11501 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 525252,525252 7249 035240 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7250 035241 004 05 0 00 011502 ER4 AC+1,11502 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 252525,252526 7251 035242 321 10 0 00 035231 JUMPL SAC,Q11500 ;LOOP ON ERROR SWITCH^ 7252 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0181 7253 DMVN 1160,252525,252525,525252,525253^ 7254 Q11600: DMOVE AC,[XWD 707070,707070 7255 035243 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7256 035244 460 11 0 00 036674 SETCM AC+5,[XWD 252525,252525] ;INITIALIZE TEST WORDS FOR COMPARISON 7257 035245 210 12 0 00 036722 MOVN AC+6,[XWD 525252,525253] 7258 035246 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 7259 DMOVN AC,[XWD 252525,252525 ;*MOVE NEGATIVE OF DOUBLE WORD 252525,252525 ; 7260 035247 121 04 0 00 036723 XWD 525252,525253] ;525252,525253 FROM MEMORY TO AC, AC+1 7261 035250 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7262 035251 003 04 0 00 011601 ER3 AC,11601 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 252525,252525 7263 035252 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7264 035253 004 05 0 00 011602 ER4 AC+1,11602 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 525252,525253 7265 035254 321 10 0 00 035243 JUMPL SAC,Q11600 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 41 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0 SEQ 0182 7266 SUBTTL DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0 7267 7268 ;CHECK DMOVN FOR AC=17 AND AC+1=0 7269 7270 000017 AC=17 7271 000003 SAC=&17 7272 SAVEAC (1,1)^ 7273 035255 201 03 0 00 035255 MOVEI SAC,. 7274 035256 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7275 035257 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7276 035260 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7277 7278 DMVN17 1170,0,0,0,1^ 7279 035261 202 17 0 00 037151 Q11700: MOVEM AC,%SV17 ;SAVE P 7280 DMOVE AC,[XWD 707070,707070 7281 035262 120 17 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7282 035263 460 04 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON 7283 035264 210 05 0 00 036712 MOVN AC+6,[XWD 0,1] 7284 035265 621 05 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >> 7285 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ; 7286 035266 121 17 0 00 036713 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1 7287 035267 316 17 0 00 000004 CAMN AC,&17 ;WAS AC LOADED CORRECTLY? 7288 035270 254 00 0 00 035274 JRST .+4 ;HERE IF TESTS OK 7289 035271 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD 7290 035272 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 7291 035273 003 16 0 00 011701 ER3 AC-1,11701 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0 7292 035274 316 00 0 00 000005 CAMN AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7293 035275 254 00 0 00 035301 JRST .+4 ;HERE IF TESTS OK 7294 035276 202 17 0 00 000016 MOVEM AC,AC-1 7295 035277 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 7296 035300 004 00 0 00 011702 ER4 AC+1,11702 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1 7297 035301 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY 7298 035302 321 03 0 00 035261 JUMPL SAC,Q11700 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 42 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0183 7299 SUBTTL DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS 7300 7301 ;CHECK DMOVN WHERE 'E' IS WITHIN THE 'AC' RANGE 7302 7303 000004 AC=4 7304 000010 SAC=&17 7305 SAVEAC (1,1)^ 7306 035303 201 10 0 00 035303 MOVEI SAC,. 7307 035304 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7308 035305 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7309 035306 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7310 000002 E=AC-2 7311 7312 012000 SN=12000 7313 000001 E=&17 7314 7315 Q12000: REPEAT ^D5, 7316 &17 7318 DMOVE AC,[XWD 707070,707070 7319 XWD 070707,070707] ;INITIALIZE AC,AC+1 7320 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 7321 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON 7322 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD 7323 DMOVE E,[XWD 0,0 7324 XWD 0,-1] ;INITIALIZE E,E+1 7325 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7326 CAME AC,&17 ;DID DMOVN GET CORRECT C(E)? 7327 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E) 7328 CAME AC+1,&17 ;DID DMOVN GET CORRECT C(E+1)? 7329 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1) 7330 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7331 > 7332 012001 SN=SN+1 7333 000002 E=&17 7334 DMOVE AC,[XWD 707070,707070 7335 035307 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7336 035310 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 7337 035311 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON 7338 035312 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD 7339 DMOVE E,[XWD 0,0 7340 035313 120 02 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1 7341 035314 121 04 0 00 000002 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7342 035315 312 04 0 00 000011 CAME AC,&17 ;DID DMOVN GET CORRECT C(E)? 7343 035316 003 04 0 00 012001 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E) 7344 035317 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVN GET CORRECT C(E+1)? 7345 035320 004 05 0 00 012001 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1) 7346 035321 321 10 0 00 035311 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7347 7348 012002 SN=SN+1 7349 000003 E=&17 7350 DMOVE AC,[XWD 707070,707070 7351 035322 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7352 035323 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 7353 035324 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 42-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0184 7354 035325 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD 7355 DMOVE E,[XWD 0,0 7356 035326 120 03 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1 7357 035327 121 04 0 00 000003 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7358 035330 312 04 0 00 000011 CAME AC,&17 ;DID DMOVN GET CORRECT C(E)? 7359 035331 003 04 0 00 012002 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E) 7360 035332 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVN GET CORRECT C(E+1)? 7361 035333 004 05 0 00 012002 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1) 7362 035334 321 10 0 00 035324 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7363 7364 012003 SN=SN+1 7365 000004 E=&17 7366 DMOVE AC,[XWD 707070,707070 7367 035335 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7368 035336 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 7369 035337 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON 7370 035340 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD 7371 DMOVE E,[XWD 0,0 7372 035341 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1 7373 035342 121 04 0 00 000004 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7374 035343 312 04 0 00 000011 CAME AC,&17 ;DID DMOVN GET CORRECT C(E)? 7375 035344 003 04 0 00 012003 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E) 7376 035345 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVN GET CORRECT C(E+1)? 7377 035346 004 05 0 00 012003 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1) 7378 035347 321 10 0 00 035337 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7379 7380 012004 SN=SN+1 7381 000005 E=&17 7382 DMOVE AC,[XWD 707070,707070 7383 035350 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7384 035351 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 7385 035352 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON 7386 035353 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD 7387 DMOVE E,[XWD 0,0 7388 035354 120 05 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1 7389 035355 121 04 0 00 000005 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7390 035356 312 04 0 00 000011 CAME AC,&17 ;DID DMOVN GET CORRECT C(E)? 7391 035357 003 04 0 00 012004 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E) 7392 035360 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVN GET CORRECT C(E+1)? 7393 035361 004 05 0 00 012004 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1) 7394 035362 321 10 0 00 035352 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7395 7396 012005 SN=SN+1 7397 000006 E=&17 7398 DMOVE AC,[XWD 707070,707070 7399 035363 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7400 035364 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS 7401 035365 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON 7402 035366 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD 7403 DMOVE E,[XWD 0,0 7404 035367 120 06 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1 7405 035370 121 04 0 00 000006 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1 7406 035371 312 04 0 00 000011 CAME AC,&17 ;DID DMOVN GET CORRECT C(E)? 7407 035372 003 04 0 00 012005 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E) 7408 035373 312 05 0 00 000012 CAME AC+1,&17 ;DID DMOVN GET CORRECT C(E+1)? DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 42-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0185 7409 035374 004 05 0 00 012005 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1) 7410 035375 321 10 0 00 035365 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH 7411 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 43 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0186 7412 SUBTTL DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS 7413 7414 DMVN 1210,400000,0,0,0^ 7415 Q12100: DMOVE AC,[XWD 707070,707070 7416 035376 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7417 035377 460 11 0 00 036730 SETCM AC+5,[XWD 400000,0] ;INITIALIZE TEST WORDS FOR COMPARISON 7418 035400 400 12 0 00 000000 SETZ AC+6, 7419 035401 271 11 0 00 000001 ADDI AC+5,1 > 7420 DMOVN AC,[XWD 400000,0 ;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ; 7421 035402 121 04 0 00 036730 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1 7422 035403 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7423 035404 003 04 0 00 012101 ER3 AC,12101 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 400000,0 7424 035405 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7425 035406 004 05 0 00 012102 ER4 AC+1,12102 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0 7426 035407 321 10 0 00 035376 JUMPL SAC,Q12100 ;LOOP ON ERROR SWITCH^ 7427 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 43-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0187 7428 DMVN 1220,0,0,400000,0^ 7429 Q12200: DMOVE AC,[XWD 707070,707070 7430 035410 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7431 035411 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON 7432 035412 400 12 0 00 000000 SETZ AC+6, 7433 035413 271 11 0 00 000001 ADDI AC+5,1 > 7434 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ; 7435 035414 121 04 0 00 036731 XWD 400000,0] ;400000,0 FROM MEMORY TO AC, AC+1 7436 035415 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7437 035416 003 04 0 00 012201 ER3 AC,12201 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0 7438 035417 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7439 035420 004 05 0 00 012202 ER4 AC+1,12202 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0 7440 035421 321 10 0 00 035410 JUMPL SAC,Q12200 ;LOOP ON ERROR SWITCH^ 7441 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 43-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0188 7442 DMVN 1230,400000,0,400000,0^ 7443 Q12300: DMOVE AC,[XWD 707070,707070 7444 035422 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1 7445 035423 460 11 0 00 036730 SETCM AC+5,[XWD 400000,0] ;INITIALIZE TEST WORDS FOR COMPARISON 7446 035424 400 12 0 00 000000 SETZ AC+6, 7447 035425 271 11 0 00 000001 ADDI AC+5,1 > 7448 DMOVN AC,[XWD 400000,0 ;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ; 7449 035426 121 04 0 00 036732 XWD 400000,0] ;400000,0 FROM MEMORY TO AC, AC+1 7450 035427 312 04 0 00 000011 CAME AC,&17 ;WAS AC LOADED CORRECTLY? 7451 035430 003 04 0 00 012301 ER3 AC,12301 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 400000,0 7452 035431 312 05 0 00 000012 CAME AC+1,&17 ;WAS AC+1 LOADED CORRECTLY? 7453 035432 004 05 0 00 012302 ER4 AC+1,12302 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0 7454 035433 321 10 0 00 035422 JUMPL SAC,Q12300 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0189 7455 SUBTTL DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS 7456 7457 ;CHECK ABILITY TO CLEAR OVFL AND CRY FLAGS BEFORE TESTING INTERACTION WITH DMOVN 7458 7459 035434 255 17 0 00 035435 Q12400: JFCL 17,.+1 ;CLEAR OVFL AND CRY FLAGS 7460 035435 265 04 0 00 035436 JSP AC,.+1 ;READ FLAGS 7461 035436 603 04 0 00 700000 TLNE AC,7B20 ;TEST OVFL AND CRY FLAGS 7462 035437 013 04 0 00 012401 ER13 AC,12401 ;FAIL IF OVFL OR CRY FLG SET 7463 035440 321 10 0 00 035434 JUMPL SAC,Q12400 ;LOOP ON ERROR SWITCH 7464 7465 DMVNF 1250,0,0,0,0,300000,310000,300000,310000^ 7466 035441 255 17 0 00 035442 Q12500: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 7467 DMOVN AC+1,[XWD 0,0 ;*DMOVN TEST 7468 035442 121 05 0 00 036702 XWD 0,0] 7469 035443 265 04 0 00 035444 JSP AC,.+1 ;READ FLAGS 7470 035444 621 04 0 00 027777 Q12501: TLZ AC,027777 ;CLEAR EXTRA JUNK 7471 035445 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 7472 035446 254 00 0 00 035460 JRST Q12504 ;YES 7473 035447 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 7474 035450 254 00 0 00 035455 JRST Q12503 ;YES 7475 035451 312 04 0 00 036734 CAME AC,[300000,,Q12501] 7476 035452 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET 7477 035453 321 10 0 00 035441 Q12502: JUMPL SAC,Q12500 ;LOOP ON ERROR SWITCH 7478 035454 254 00 0 00 035470 JRST Q12506 7479 035455 312 04 0 00 036734 Q12503: CAME AC,[300000,,Q12501] 7480 035456 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET 7481 035457 254 00 0 00 035453 JRST Q12502 7482 035460 336 00 0 00 030524 Q12504: SKIPN SM10 ;KL10 ? 7483 035461 254 00 0 00 035465 JRST Q12505 ;YES 7484 035462 312 04 0 00 036735 CAME AC,[310000,,Q12501] 7485 035463 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET 7486 035464 254 00 0 00 035453 JRST Q12502 7487 035465 312 04 0 00 036735 Q12505: CAME AC,[310000,,Q12501] 7488 035466 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET 7489 035467 254 00 0 00 035453 JRST Q12502 7490 035470 254 00 0 00 035471 Q12506: JRST .+1^ 7491 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0190 7492 DMVNF 1260,400000,0,0,0,500000,510000,100000,510000^ 7493 035471 255 17 0 00 035472 Q12600: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 7494 DMOVN AC+1,[XWD 400000,0 ;*DMOVN TEST 7495 035472 121 05 0 00 036730 XWD 0,0] 7496 035473 265 04 0 00 035474 JSP AC,.+1 ;READ FLAGS 7497 035474 621 04 0 00 027777 Q12601: TLZ AC,027777 ;CLEAR EXTRA JUNK 7498 035475 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 7499 035476 254 00 0 00 035510 JRST Q12604 ;YES 7500 035477 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 7501 035500 254 00 0 00 035505 JRST Q12603 ;YES 7502 035501 312 04 0 00 036736 CAME AC,[500000,,Q12601] 7503 035502 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET 7504 035503 321 10 0 00 035471 Q12602: JUMPL SAC,Q12600 ;LOOP ON ERROR SWITCH 7505 035504 254 00 0 00 035520 JRST Q12606 7506 035505 312 04 0 00 036737 Q12603: CAME AC,[100000,,Q12601] 7507 035506 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET 7508 035507 254 00 0 00 035503 JRST Q12602 7509 035510 336 00 0 00 030524 Q12604: SKIPN SM10 ;KL10 ? 7510 035511 254 00 0 00 035515 JRST Q12605 ;YES 7511 035512 312 04 0 00 036740 CAME AC,[510000,,Q12601] 7512 035513 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET 7513 035514 254 00 0 00 035503 JRST Q12602 7514 035515 312 04 0 00 036740 Q12605: CAME AC,[510000,,Q12601] 7515 035516 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET 7516 035517 254 00 0 00 035503 JRST Q12602 7517 035520 254 00 0 00 035521 Q12606: JRST .+1^ 7518 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0191 7519 DMVNF 1270,0,0,400000,0,300000,310000,300000,310000^ 7520 035521 255 17 0 00 035522 Q12700: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 7521 DMOVN AC+1,[XWD 0,0 ;*DMOVN TEST 7522 035522 121 05 0 00 036731 XWD 400000,0] 7523 035523 265 04 0 00 035524 JSP AC,.+1 ;READ FLAGS 7524 035524 621 04 0 00 027777 Q12701: TLZ AC,027777 ;CLEAR EXTRA JUNK 7525 035525 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 7526 035526 254 00 0 00 035540 JRST Q12704 ;YES 7527 035527 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 7528 035530 254 00 0 00 035535 JRST Q12703 ;YES 7529 035531 312 04 0 00 036741 CAME AC,[300000,,Q12701] 7530 035532 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET 7531 035533 321 10 0 00 035521 Q12702: JUMPL SAC,Q12700 ;LOOP ON ERROR SWITCH 7532 035534 254 00 0 00 035550 JRST Q12706 7533 035535 312 04 0 00 036741 Q12703: CAME AC,[300000,,Q12701] 7534 035536 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET 7535 035537 254 00 0 00 035533 JRST Q12702 7536 035540 336 00 0 00 030524 Q12704: SKIPN SM10 ;KL10 ? 7537 035541 254 00 0 00 035545 JRST Q12705 ;YES 7538 035542 312 04 0 00 036742 CAME AC,[310000,,Q12701] 7539 035543 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET 7540 035544 254 00 0 00 035533 JRST Q12702 7541 035545 312 04 0 00 036742 Q12705: CAME AC,[310000,,Q12701] 7542 035546 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET 7543 035547 254 00 0 00 035533 JRST Q12702 7544 035550 254 00 0 00 035551 Q12706: JRST .+1^ 7545 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0192 7546 DMVNF 1300,400000,0,400000,0,500000,510000,100000,510000^ 7547 035551 255 17 0 00 035552 Q13000: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 7548 DMOVN AC+1,[XWD 400000,0 ;*DMOVN TEST 7549 035552 121 05 0 00 036732 XWD 400000,0] 7550 035553 265 04 0 00 035554 JSP AC,.+1 ;READ FLAGS 7551 035554 621 04 0 00 027777 Q13001: TLZ AC,027777 ;CLEAR EXTRA JUNK 7552 035555 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 7553 035556 254 00 0 00 035570 JRST Q13004 ;YES 7554 035557 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 7555 035560 254 00 0 00 035565 JRST Q13003 ;YES 7556 035561 312 04 0 00 036743 CAME AC,[500000,,Q13001] 7557 035562 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET 7558 035563 321 10 0 00 035551 Q13002: JUMPL SAC,Q13000 ;LOOP ON ERROR SWITCH 7559 035564 254 00 0 00 035600 JRST Q13006 7560 035565 312 04 0 00 036744 Q13003: CAME AC,[100000,,Q13001] 7561 035566 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET 7562 035567 254 00 0 00 035563 JRST Q13002 7563 035570 336 00 0 00 030524 Q13004: SKIPN SM10 ;KL10 ? 7564 035571 254 00 0 00 035575 JRST Q13005 ;YES 7565 035572 312 04 0 00 036745 CAME AC,[510000,,Q13001] 7566 035573 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET 7567 035574 254 00 0 00 035563 JRST Q13002 7568 035575 312 04 0 00 036745 Q13005: CAME AC,[510000,,Q13001] 7569 035576 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET 7570 035577 254 00 0 00 035563 JRST Q13002 7571 035600 254 00 0 00 035601 Q13006: JRST .+1^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0193 7572 SUBTTL DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS 7573 7574 ;CHECK THAT 'DMOVEM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1) 7575 7576 Q13050: DMOVE AC,[631463,,146314 ;INITIALIZE C(AC), C(AC+1) 7577 035601 120 04 0 00 036675 424242,,131313] 7578 035602 124 04 0 00 000002 DMOVEM AC,AC-2 ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7579 035603 312 04 0 00 036675 CAME AC,[631463,,146314] ;WAS C(AC) MODIFIED? 7580 035604 003 04 0 00 013051 ER3 AC,13051 ;C(AC) WAS CLOBBERED 7581 035605 312 05 0 00 036676 CAME AC+1,[424242,,131313] ;WAS C(AC+1) MODIFIED? 7582 035606 004 05 0 00 013051 ER4 AC+1,13051 ;C(AC+1) WAS CLOBBERED 7583 035607 321 10 0 00 035601 JUMPL SAC,Q13050 ;LOOP ON ERROR SWITCH 7584 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0194 7585 DMVM 1310,0,0,0,0^ 7586 Q13100: DMOVE AC,[XWD 707070,707070 7587 035610 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7588 035611 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7589 035612 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7590 DMOVE AC,[XWD 0,0 7591 035613 120 04 0 00 036702 XWD 0,0] ;INITIALIZE AC,AC+1 7592 035614 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7593 035615 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7594 035616 312 04 0 00 036677 CAME AC,[XWD 0,0] ;WAS TSTWD LOADED CORRECTLY? 7595 035617 005 04 0 00 013101 ER5 AC,13101 ;FAIL IF CONTENTS(TSTWD) NOT = 0,0 7596 035620 312 05 0 00 036677 CAME AC+1,[XWD 0,0] ;WAS TSTWD+1 LOADED CORRECTLY? 7597 035621 006 05 0 00 013102 ER6 AC+1,13102 ;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0 7598 035622 321 10 0 00 035610 JUMPL SAC,Q13100 ;LOOP ON ERROR SWITCH^ 7599 7600 DMVM 1320,-1,-1,-1,-1^ 7601 Q13200: DMOVE AC,[XWD 707070,707070 7602 035623 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7603 035624 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7604 035625 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7605 DMOVE AC,[XWD -1,-1 7606 035626 120 04 0 00 036704 XWD -1,-1] ;INITIALIZE AC,AC+1 7607 035627 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7608 035630 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7609 035631 312 04 0 00 036704 CAME AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY? 7610 035632 005 04 0 00 013201 ER5 AC,13201 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1 7611 035633 312 05 0 00 036704 CAME AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY? 7612 035634 006 05 0 00 013202 ER6 AC+1,13202 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1 7613 035635 321 10 0 00 035623 JUMPL SAC,Q13200 ;LOOP ON ERROR SWITCH^ 7614 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0195 7615 DMVM 1330,0,0,-1,-1^ 7616 Q13300: DMOVE AC,[XWD 707070,707070 7617 035636 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7618 035637 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7619 035640 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7620 DMOVE AC,[XWD 0,0 7621 035641 120 04 0 00 036703 XWD -1,-1] ;INITIALIZE AC,AC+1 7622 035642 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7623 035643 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7624 035644 312 04 0 00 036677 CAME AC,[XWD 0,0] ;WAS TSTWD LOADED CORRECTLY? 7625 035645 005 04 0 00 013301 ER5 AC,13301 ;FAIL IF CONTENTS(TSTWD) NOT = 0,0 7626 035646 312 05 0 00 036704 CAME AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY? 7627 035647 006 05 0 00 013302 ER6 AC+1,13302 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1 7628 035650 321 10 0 00 035636 JUMPL SAC,Q13300 ;LOOP ON ERROR SWITCH^ 7629 7630 DMVM 1340,-1,-1,0,0^ 7631 Q13400: DMOVE AC,[XWD 707070,707070 7632 035651 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7633 035652 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7634 035653 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7635 DMOVE AC,[XWD -1,-1 7636 035654 120 04 0 00 036705 XWD 0,0] ;INITIALIZE AC,AC+1 7637 035655 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7638 035656 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7639 035657 312 04 0 00 036704 CAME AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY? 7640 035660 005 04 0 00 013401 ER5 AC,13401 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1 7641 035661 312 05 0 00 036677 CAME AC+1,[XWD 0,0] ;WAS TSTWD+1 LOADED CORRECTLY? 7642 035662 006 05 0 00 013402 ER6 AC+1,13402 ;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0 7643 035663 321 10 0 00 035651 JUMPL SAC,Q13400 ;LOOP ON ERROR SWITCH^ 7644 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0196 7645 DMVM 1350,252525,252525,525252,525252^ 7646 Q13500: DMOVE AC,[XWD 707070,707070 7647 035664 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7648 035665 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7649 035666 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7650 DMOVE AC,[XWD 252525,252525 7651 035667 120 04 0 00 036710 XWD 525252,525252] ;INITIALIZE AC,AC+1 7652 035670 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7653 035671 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7654 035672 312 04 0 00 036674 CAME AC,[XWD 252525,252525] ;WAS TSTWD LOADED CORRECTLY? 7655 035673 005 04 0 00 013501 ER5 AC,13501 ;FAIL IF CONTENTS(TSTWD) NOT = 252525,252525 7656 035674 312 05 0 00 036707 CAME AC+1,[XWD 525252,525252] ;WAS TSTWD+1 LOADED CORRECTLY? 7657 035675 006 05 0 00 013502 ER6 AC+1,13502 ;FAIL IF CONTENTS(TSTWD+1) NOT = 525252,525252 7658 035676 321 10 0 00 035664 JUMPL SAC,Q13500 ;LOOP ON ERROR SWITCH^ 7659 7660 DMVM 1360,525252,525252,252525,252525^ 7661 Q13600: DMOVE AC,[XWD 707070,707070 7662 035677 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7663 035700 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7664 035701 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7665 DMOVE AC,[XWD 525252,525252 7666 035702 120 04 0 00 036707 XWD 252525,252525] ;INITIALIZE AC,AC+1 7667 035703 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7668 035704 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7669 035705 312 04 0 00 036707 CAME AC,[XWD 525252,525252] ;WAS TSTWD LOADED CORRECTLY? 7670 035706 005 04 0 00 013601 ER5 AC,13601 ;FAIL IF CONTENTS(TSTWD) NOT = 525252,525252 7671 035707 312 05 0 00 036674 CAME AC+1,[XWD 252525,252525] ;WAS TSTWD+1 LOADED CORRECTLY? 7672 035710 006 05 0 00 013602 ER6 AC+1,13602 ;FAIL IF CONTENTS(TSTWD+1) NOT = 252525,252525 7673 035711 321 10 0 00 035677 JUMPL SAC,Q13600 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 46 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0 SEQ 0197 7674 SUBTTL DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0 7675 7676 ;CHECK DMOVEM FOR AC=17 AND AC+1=0 7677 7678 000017 AC=17 7679 000003 SAC=&17 7680 SAVEAC (1,1)^ 7681 035712 201 03 0 00 035712 MOVEI SAC,. 7682 035713 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7683 035714 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7684 035715 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7685 7686 DMVM17 1370,-1,-1,-1,-1^ 7687 035716 202 17 0 00 037151 Q13700: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP 7688 DMOVE AC,[XWD 707070,707070 7689 035717 120 17 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS 7690 035720 202 17 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST 7691 035721 202 00 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM 7692 DMOVE AC,[XWD -1,-1 7693 035722 120 17 0 00 036704 XWD -1,-1] ;INITIALIZE AC,AC+1 7694 035723 124 17 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1 7695 035724 120 17 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON 7696 035725 316 17 0 00 036704 CAMN AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY? 7697 035726 254 00 0 00 035732 JRST .+4 ;HERE IF TESTS OK 7698 035727 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD 7699 035730 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 7700 035731 005 16 0 00 013701 ER5 AC-1,13701 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1 7701 035732 316 00 0 00 036704 CAMN AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY? 7702 035733 254 00 0 00 035737 JRST .+4 ;HERE IF TESTS OK 7703 035734 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD 7704 035735 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 7705 035736 006 00 0 00 013702 ER6 AC+1,13702 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1 7706 035737 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY 7707 035740 321 03 0 00 035716 JUMPL SAC,Q13700 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 47 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0198 7708 SUBTTL DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS 7709 7710 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE 'AC' RANGE 7711 7712 000004 AC=4 7713 000010 SAC=&17 7714 SAVEAC (1,1)^ 7715 035741 201 10 0 00 035741 MOVEI SAC,. 7716 035742 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7717 035743 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7718 035744 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7719 000002 E=&17 7720 7721 014000 SN=14000 7722 000001 E=&17 7723 7724 Q14000: REPEAT ^D5,< 7725 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE 7726 7727 SN=SN+1 7728 E=&17 7729 DMOVE E,[XWD 707070,707070 7730 XWD 070707,070707] ;INITIALIZE E,E+1 7731 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1 7732 XWD 0,-1] 7733 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7734 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY? 7735 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1 7736 IFN >,< 7737 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1> 7738 IFE >,< 7739 GO Q14001 ;THIS CASE DIFFERENT KI/KL> 7740 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY 7741 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 7742 > 7743 7744 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE 7745 7746 014001 SN=SN+1 7747 000002 E=&17 7748 DMOVE E,[XWD 707070,707070 7749 035745 120 02 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 7750 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1 7751 035746 120 04 0 00 036746 XWD 0,-1] 7752 035747 124 04 0 00 000002 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7753 035750 312 02 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY? 7754 035751 005 02 0 00 014001 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1 7755 IFN >,< 7756 035752 312 03 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1> 7757 IFE >,< 7758 GO Q14001 ;THIS CASE DIFFERENT KI/KL> 7759 035753 006 03 0 00 014001 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY 7760 035754 321 10 0 00 035745 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 7761 7762 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 47-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0199 7763 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE 7764 7765 014002 SN=SN+1 7766 000003 E=&17 7767 DMOVE E,[XWD 707070,707070 7768 035755 120 03 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 7769 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1 7770 035756 120 04 0 00 036746 XWD 0,-1] 7771 035757 124 04 0 00 000003 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7772 035760 312 03 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY? 7773 035761 005 03 0 00 014002 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1 7774 IFN >,< 7775 035762 312 04 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1> 7776 IFE >,< 7777 GO Q14001 ;THIS CASE DIFFERENT KI/KL> 7778 035763 006 04 0 00 014002 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY 7779 035764 321 10 0 00 035755 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 7780 7781 7782 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE 7783 7784 014003 SN=SN+1 7785 000004 E=&17 7786 DMOVE E,[XWD 707070,707070 7787 035765 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 7788 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1 7789 035766 120 04 0 00 036746 XWD 0,-1] 7790 035767 124 04 0 00 000004 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7791 035770 312 04 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY? 7792 035771 005 04 0 00 014003 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1 7793 IFN >,< 7794 035772 312 05 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1> 7795 IFE >,< 7796 GO Q14001 ;THIS CASE DIFFERENT KI/KL> 7797 035773 006 05 0 00 014003 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY 7798 035774 321 10 0 00 035765 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 7799 7800 7801 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE 7802 7803 014004 SN=SN+1 7804 000005 E=&17 7805 DMOVE E,[XWD 707070,707070 7806 035775 120 05 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 7807 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1 7808 035776 120 04 0 00 036746 XWD 0,-1] 7809 035777 124 04 0 00 000005 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7810 036000 312 05 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY? 7811 036001 005 05 0 00 014004 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1 7812 IFN >,< 7813 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1> 7814 IFE >,< 7815 036002 260 17 0 00 036016 GO Q14001 ;THIS CASE DIFFERENT KI/KL> 7816 036003 006 06 0 00 014004 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY 7817 036004 321 10 0 00 035775 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 47-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0200 7818 7819 7820 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE 7821 7822 014005 SN=SN+1 7823 000006 E=&17 7824 DMOVE E,[XWD 707070,707070 7825 036005 120 06 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 7826 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1 7827 036006 120 04 0 00 036746 XWD 0,-1] 7828 036007 124 04 0 00 000006 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY 7829 036010 312 06 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY? 7830 036011 005 06 0 00 014005 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1 7831 IFN >,< 7832 036012 312 07 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1> 7833 IFE >,< 7834 GO Q14001 ;THIS CASE DIFFERENT KI/KL> 7835 036013 006 07 0 00 014005 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY 7836 036014 321 10 0 00 036005 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH 7837 7838 036015 254 00 0 00 036026 JRST Q14021 7839 7840 036016 332 00 0 00 030041 Q14001: SKIPE KLFLG ;KL10 ? 7841 036017 254 00 0 00 036023 JRST Q14003 ;YES 7842 7843 036020 316 06 0 00 036704 Q14002: CAMN 6,[-1,,-1] ;KI10 7844 036021 350 00 0 17 000000 AOS (P) ;PASSED, SKIP RETURN OVER ERROR 7845 036022 263 17 0 00 000000 RTN 7846 7847 036023 316 06 0 00 036725 Q14003: CAMN 6,[0,,-1] ;KL10 7848 036024 350 00 0 17 000000 AOS (P) ;PASSED, SKIP RETURN OVER ERROR 7849 036025 263 17 0 00 000000 RTN DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 48 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - BIS FLAG SEQ 0201 7850 SUBTTL DIAGNOSTIC SECTION - DMOVEM - BIS FLAG 7851 7852 036026 332 00 0 00 030041 Q14021: SKIPE KLFLG ;KL10 ? 7853 036027 254 00 0 00 036051 JRST Q14050 ;YES 7854 7855 ;**KI10 ONLY TEST** 7856 ;VERIFY THAT C(E) IS NOT MODIFIED BY "DMOVEM AC,E" IF 'BIS' 7857 ;FLAG IS SET; AND THAT THE SECOND PART OF "DMOVEM" CLEARS 'BIS'. 7858 7859 000004 AC=4 7860 000010 SAC=&17 7861 SAVEAC (1,1)^ 7862 036030 201 10 0 00 036030 MOVEI SAC,. 7863 036031 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7864 036032 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 7865 036033 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 7866 000002 E=&17 7867 7868 Q14020: DMOVE AC,[631463,,146314 7869 036034 120 04 0 00 036675 424242,,131313] ;INITIALIZE AC,AC+1 7870 036035 477 02 0 00 000003 SETOB E,&17 ;INITIALIZE E,E+1 7871 036036 254 02 1 00 036037 JRSTF @.+1 ;SET 'BIS' FLAG 7872 036037 020000 036040 XWD BIS,.+1 7873 036040 124 04 0 00 000002 DMOVEM AC,E ;*DMOVEM SHOULD MODIFY ONLY 'E+1' AND CLEAR BIS FLAG 7874 036041 312 02 0 00 036704 CAME E,[-1,,-1] ;WAS C(E) MODIFIED? 7875 036042 005 02 0 00 014021 ER5 E,14021 ;YES, C(E) WAS MODIFIED 7876 036043 312 03 0 00 000005 CAME E+1,&17 ;WAS C(E+1) MODIFIED? 7877 036044 006 03 0 00 014021 ER6 E+1,14021 ;NO, C(E+1) WAS NOT MODIFIED 7878 036045 265 06 0 00 036046 JSP AC+2,.+1 ;READ FLAGS 7879 036046 603 06 0 00 020000 TLNE AC+2,BIS ;IS 'BIS' FLAG CLEAR 7880 036047 013 06 0 00 014021 ER13 AC+2,14021 ;NO 7881 036050 321 10 0 00 036034 JUMPL SAC,Q14020 ;LOOP ON ERROR SWITCH DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0202 7882 SUBTTL DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS 7883 7884 ;CHECK THAT 'DMOVNM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1) 7885 7886 Q14050: DMOVE AC,[631463,,146314 ;INITIALIZE AC, AC+1 7887 036051 120 04 0 00 036675 424242,,131313] 7888 036052 125 04 0 00 000002 DMOVNM AC,AC-2 ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 7889 036053 312 04 0 00 036675 CAME AC,[631463,,146314] ;WAS C(AC) MODIFIED? 7890 036054 003 04 0 00 014051 ER3 AC,14051 ;C(AC) WAS CLOBBERED 7891 036055 312 05 0 00 036676 CAME AC+1,[424242,,131313] ;WAS C(AC+1) MODIFIED? 7892 036056 004 05 0 00 014051 ER4 AC+1,14051 ;C(AC+1) WAS CLOBBERED 7893 036057 321 10 0 00 036051 JUMPL SAC,Q14050 ;LOOP ON ERROR 7894 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0203 7895 DMVNM 1410,0,0,0,0^ 7896 Q14100: DMOVE AC,[XWD 707070,707070 7897 036060 120 04 0 00 036700 XWD 070707,070707] 7898 036061 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 7899 DMOVE AC,[XWD 0,0 7900 036062 120 04 0 00 036702 XWD 0,0] ;INITIALIZE AC,AC+1 7901 DMOVN AC+5,[XWD 0,0 7902 036063 121 11 0 00 036702 XWD 0,0] ;SET-UP TO CHECK RESULTS 7903 036064 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 7904 036065 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 7905 036066 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 7906 036067 005 04 0 00 014101 ER5 AC,14101 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0 7907 036070 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 7908 036071 006 05 0 00 014102 ER6 AC+1,14102 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0 7909 036072 321 10 0 00 036060 JUMPL SAC,Q14100 ;LOOP ON ERROR SWITCH^ 7910 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0204 7911 DMVNM 1420,0,0,0,1^ 7912 Q14200: DMOVE AC,[XWD 707070,707070 7913 036073 120 04 0 00 036700 XWD 070707,070707] 7914 036074 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 7915 DMOVE AC,[XWD 0,0 7916 036075 120 04 0 00 036713 XWD 0,1] ;INITIALIZE AC,AC+1 7917 DMOVN AC+5,[XWD 0,0 7918 036076 121 11 0 00 036713 XWD 0,1] ;SET-UP TO CHECK RESULTS 7919 036077 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 7920 036100 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 7921 036101 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 7922 036102 005 04 0 00 014201 ER5 AC,14201 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0 7923 036103 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 7924 036104 006 05 0 00 014202 ER6 AC+1,14202 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1 7925 036105 321 10 0 00 036073 JUMPL SAC,Q14200 ;LOOP ON ERROR SWITCH^ 7926 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0205 7927 DMVNM 1430,-1,-1,0,1^ 7928 Q14300: DMOVE AC,[XWD 707070,707070 7929 036106 120 04 0 00 036700 XWD 070707,070707] 7930 036107 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 7931 DMOVE AC,[XWD -1,-1 7932 036110 120 04 0 00 036715 XWD 0,1] ;INITIALIZE AC,AC+1 7933 DMOVN AC+5,[XWD -1,-1 7934 036111 121 11 0 00 036715 XWD 0,1] ;SET-UP TO CHECK RESULTS 7935 036112 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 7936 036113 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 7937 036114 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 7938 036115 005 04 0 00 014301 ER5 AC,14301 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF -1,-1 7939 036116 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 7940 036117 006 05 0 00 014302 ER6 AC+1,14302 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1 7941 036120 321 10 0 00 036106 JUMPL SAC,Q14300 ;LOOP ON ERROR SWITCH^ 7942 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-4 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0206 7943 DMVNM 1440,0,1,0,0^ 7944 Q14400: DMOVE AC,[XWD 707070,707070 7945 036121 120 04 0 00 036700 XWD 070707,070707] 7946 036122 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 7947 DMOVE AC,[XWD 0,1 7948 036123 120 04 0 00 036712 XWD 0,0] ;INITIALIZE AC,AC+1 7949 DMOVN AC+5,[XWD 0,1 7950 036124 121 11 0 00 036712 XWD 0,0] ;SET-UP TO CHECK RESULTS 7951 036125 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 7952 036126 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 7953 036127 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 7954 036130 005 04 0 00 014401 ER5 AC,14401 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,1 7955 036131 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 7956 036132 006 05 0 00 014402 ER6 AC+1,14402 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0 7957 036133 321 10 0 00 036121 JUMPL SAC,Q14400 ;LOOP ON ERROR SWITCH^ 7958 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-5 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0207 7959 DMVNM 1450,525252,525252,252525,252526^ 7960 Q14500: DMOVE AC,[XWD 707070,707070 7961 036134 120 04 0 00 036700 XWD 070707,070707] 7962 036135 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 7963 DMOVE AC,[XWD 525252,525252 7964 036136 120 04 0 00 036720 XWD 252525,252526] ;INITIALIZE AC,AC+1 7965 DMOVN AC+5,[XWD 525252,525252 7966 036137 121 11 0 00 036720 XWD 252525,252526] ;SET-UP TO CHECK RESULTS 7967 036140 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 7968 036141 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 7969 036142 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 7970 036143 005 04 0 00 014501 ER5 AC,14501 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 525252,525252 7971 036144 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 7972 036145 006 05 0 00 014502 ER6 AC+1,14502 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 252525,252526 7973 036146 321 10 0 00 036134 JUMPL SAC,Q14500 ;LOOP ON ERROR SWITCH^ 7974 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-6 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0208 7975 DMVNM 1460,252525,252525,525252,525253^ 7976 Q14600: DMOVE AC,[XWD 707070,707070 7977 036147 120 04 0 00 036700 XWD 070707,070707] 7978 036150 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 7979 DMOVE AC,[XWD 252525,252525 7980 036151 120 04 0 00 036723 XWD 525252,525253] ;INITIALIZE AC,AC+1 7981 DMOVN AC+5,[XWD 252525,252525 7982 036152 121 11 0 00 036723 XWD 525252,525253] ;SET-UP TO CHECK RESULTS 7983 036153 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 7984 036154 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 7985 036155 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 7986 036156 005 04 0 00 014601 ER5 AC,14601 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 252525,252525 7987 036157 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 7988 036160 006 05 0 00 014602 ER6 AC+1,14602 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 525252,525253 7989 036161 321 10 0 00 036147 JUMPL SAC,Q14600 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 50 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0 SEQ 0209 7990 SUBTTL DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0 7991 7992 ;CHECK DMOVNM FOR AC=17 AND AC+1=0 7993 7994 000017 AC=17 7995 000003 SAC=&17 7996 SAVEAC (1,1)^ 7997 036162 201 03 0 00 036162 MOVEI SAC,. 7998 036163 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 7999 036164 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 8000 036165 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 8001 8002 DMVNM17 1470,0,0,0,1^ 8003 Q14700: DMOVE AC,[XWD 707070,707070 8004 036166 120 17 0 00 036700 XWD 070707,070707] 8005 036167 124 17 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 8006 DMOVE AC,[XWD 0,0 8007 036170 120 17 0 00 036713 XWD 0,1] ;INITIALIZE AC,AC+1 8008 DMOVN AC+5,[XWD 0,0 8009 036171 121 04 0 00 036713 XWD 0,1] ;SET-UP TO CHECK RESULTS 8010 036172 125 17 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 8011 036173 120 17 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 8012 036174 316 17 0 00 000004 CAMN AC,&17 ;WAS TSTWD LOADED CORRECTLY? 8013 036175 254 00 0 00 036201 JRST .+4 8014 036176 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD 8015 036177 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P 8016 036200 005 16 0 00 014701 ER5 AC-1,14701 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0 8017 036201 316 00 0 00 000005 CAMN AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 8018 036202 254 00 0 00 036206 JRST .+4 ;HERE IF TESTS OK 8019 036203 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD 8020 036204 200 17 0 00 037151 MOVE AC,%SV17 8021 036205 006 00 0 00 014702 ER6 AC+1,14702 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1 8022 036206 200 17 0 00 037151 MOVE AC,%SV17 8023 036207 321 03 0 00 036166 JUMPL SAC,Q14700 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 51 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0210 8024 SUBTTL DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS 8025 8026 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE 8027 8028 000004 AC=4 8029 000010 SAC=&17 8030 SAVEAC (1,1)^ 8031 036210 201 10 0 00 036210 MOVEI SAC,. 8032 036211 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC 8033 036212 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH 8034 036213 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^ 8035 000002 E=AC-2 8036 8037 015000 SN=15000 8038 000001 E=&17 8039 8040 Q15000: REPEAT ^D5,< 8041 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE 8042 8043 SN=SN+1 8044 E=&17 8045 DMOVE E,[XWD 707070,707070 8046 XWD 070707,070707] ;INITIALIZE E,E+1 8047 DMOVE AC,[XWD 0,0 8048 XWD 0,-1] ;INITIALIZE AC,AC+1 8049 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS 8050 IFE >,< 8051 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10 8052 MOVNM AC+5,&17> 8053 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 8054 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY? 8055 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC) 8056 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY? 8057 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1) 8058 IFN >,< 8059 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH> 8060 IFE >,< 8061 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH> 8062 > 8063 8064 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE 8065 8066 015001 SN=SN+1 8067 000002 E=&17 8068 DMOVE E,[XWD 707070,707070 8069 036214 120 02 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 8070 DMOVE AC,[XWD 0,0 8071 036215 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1 8072 036216 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS 8073 IFE >,< 8074 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10 8075 MOVNM AC+5,&17> 8076 036217 125 04 0 00 000002 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 8077 036220 312 02 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY? 8078 036221 005 02 0 00 015001 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC) DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 51-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0211 8079 036222 312 03 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY? 8080 036223 006 03 0 00 015001 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1) 8081 IFN >,< 8082 036224 321 10 0 00 036214 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH> 8083 IFE >,< 8084 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH> 8085 8086 8087 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE 8088 8089 015002 SN=SN+1 8090 000003 E=&17 8091 DMOVE E,[XWD 707070,707070 8092 036225 120 03 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 8093 DMOVE AC,[XWD 0,0 8094 036226 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1 8095 036227 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS 8096 IFE >,< 8097 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10 8098 MOVNM AC+5,&17> 8099 036230 125 04 0 00 000003 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 8100 036231 312 03 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY? 8101 036232 005 03 0 00 015002 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC) 8102 036233 312 04 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY? 8103 036234 006 04 0 00 015002 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1) 8104 IFN >,< 8105 036235 321 10 0 00 036225 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH> 8106 IFE >,< 8107 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH> 8108 8109 8110 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE 8111 8112 015003 SN=SN+1 8113 000004 E=&17 8114 DMOVE E,[XWD 707070,707070 8115 036236 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 8116 DMOVE AC,[XWD 0,0 8117 036237 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1 8118 036240 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS 8119 IFE >,< 8120 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10 8121 MOVNM AC+5,&17> 8122 036241 125 04 0 00 000004 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 8123 036242 312 04 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY? 8124 036243 005 04 0 00 015003 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC) 8125 036244 312 05 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY? 8126 036245 006 05 0 00 015003 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1) 8127 IFN >,< 8128 036246 321 10 0 00 036236 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH> 8129 IFE >,< 8130 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH> 8131 8132 8133 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 51-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0212 8134 8135 015004 SN=SN+1 8136 000005 E=&17 8137 DMOVE E,[XWD 707070,707070 8138 036247 120 05 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 8139 DMOVE AC,[XWD 0,0 8140 036250 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1 8141 036251 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS 8142 IFE >,< 8143 036252 336 00 0 00 030041 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10 8144 036253 212 11 0 00 000012 MOVNM AC+5,&17> 8145 036254 125 04 0 00 000005 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 8146 036255 312 05 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY? 8147 036256 005 05 0 00 015004 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC) 8148 036257 312 06 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY? 8149 036260 006 06 0 00 015004 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1) 8150 IFN >,< 8151 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH> 8152 IFE >,< 8153 036261 321 10 0 00 036247 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH> 8154 8155 8156 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE 8157 8158 015005 SN=SN+1 8159 000006 E=&17 8160 DMOVE E,[XWD 707070,707070 8161 036262 120 06 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1 8162 DMOVE AC,[XWD 0,0 8163 036263 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1 8164 036264 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS 8165 IFE >,< 8166 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10 8167 MOVNM AC+5,&17> 8168 036265 125 04 0 00 000006 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY 8169 036266 312 06 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY? 8170 036267 005 06 0 00 015005 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC) 8171 036270 312 07 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY? 8172 036271 006 07 0 00 015005 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1) 8173 IFN >,< 8174 036272 321 10 0 00 036262 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH> 8175 IFE >,< 8176 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH> 8177 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 52 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0213 8178 SUBTTL DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS 8179 8180 DMVNM 1510,400000,0,0,0^ 8181 Q15100: DMOVE AC,[XWD 707070,707070 8182 036273 120 04 0 00 036700 XWD 070707,070707] 8183 036274 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 8184 DMOVE AC,[XWD 400000,0 8185 036275 120 04 0 00 036730 XWD 0,0] ;INITIALIZE AC,AC+1 8186 DMOVN AC+5,[XWD 400000,0 8187 036276 121 11 0 00 036730 XWD 0,0] ;SET-UP TO CHECK RESULTS 8188 036277 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 8189 036300 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 8190 036301 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 8191 036302 005 04 0 00 015101 ER5 AC,15101 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 400000,0 8192 036303 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 8193 036304 006 05 0 00 015102 ER6 AC+1,15102 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0 8194 036305 321 10 0 00 036273 JUMPL SAC,Q15100 ;LOOP ON ERROR SWITCH^ 8195 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 52-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0214 8196 DMVNM 1520,0,0,400000,0^ 8197 Q15200: DMOVE AC,[XWD 707070,707070 8198 036306 120 04 0 00 036700 XWD 070707,070707] 8199 036307 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 8200 DMOVE AC,[XWD 0,0 8201 036310 120 04 0 00 036731 XWD 400000,0] ;INITIALIZE AC,AC+1 8202 DMOVN AC+5,[XWD 0,0 8203 036311 121 11 0 00 036731 XWD 400000,0] ;SET-UP TO CHECK RESULTS 8204 036312 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 8205 036313 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 8206 036314 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 8207 036315 005 04 0 00 015201 ER5 AC,15201 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0 8208 036316 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 8209 036317 006 05 0 00 015202 ER6 AC+1,15202 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0 8210 036320 321 10 0 00 036306 JUMPL SAC,Q15200 ;LOOP ON ERROR SWITCH^ 8211 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 52-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0215 8212 DMVNM 1530,400000,0,400000,0^ 8213 Q15300: DMOVE AC,[XWD 707070,707070 8214 036321 120 04 0 00 036700 XWD 070707,070707] 8215 036322 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS 8216 DMOVE AC,[XWD 400000,0 8217 036323 120 04 0 00 036732 XWD 400000,0] ;INITIALIZE AC,AC+1 8218 DMOVN AC+5,[XWD 400000,0 8219 036324 121 11 0 00 036732 XWD 400000,0] ;SET-UP TO CHECK RESULTS 8220 036325 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 8221 036326 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1 8222 036327 312 04 0 00 000011 CAME AC,&17 ;WAS TSTWD LOADED CORRECTLY? 8223 036330 005 04 0 00 015301 ER5 AC,15301 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 400000,0 8224 036331 312 05 0 00 000012 CAME AC+1,&17 ;WAS TSTWD+1 LOADED CORRECTLY? 8225 036332 006 05 0 00 015302 ER6 AC+1,15302 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0 8226 036333 321 10 0 00 036321 JUMPL SAC,Q15300 ;LOOP ON ERROR SWITCH^ DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0216 8227 SUBTTL DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS 8228 8229 DMVNMF 1540,0,0,0,0,300000,310000,300000,310000^ 8230 036334 255 17 0 00 036335 Q15400: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 8231 DMOVE AC,[XWD 0,0 8232 036335 120 04 0 00 036702 XWD 0,0] ;SETUP INITIAL 8233 036336 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST 8234 036337 265 04 0 00 036340 JSP AC,.+1 ;READ FLAGS 8235 036340 621 04 0 00 027777 Q15401: TLZ AC,027777 ;CLEAR EXTRA JUNK 8236 036341 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 8237 036342 254 00 0 00 036354 JRST Q15404 ;YES 8238 036343 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 8239 036344 254 00 0 00 036351 JRST Q15403 ;YES 8240 036345 312 04 0 00 036750 CAME AC,[300000,,Q15401] 8241 036346 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET 8242 036347 321 10 0 00 036334 Q15402: JUMPL SAC,Q15400 ;LOOP ON ERROR SWITCH 8243 036350 254 00 0 00 036364 JRST Q15406 8244 036351 312 04 0 00 036750 Q15403: CAME AC,[300000,,Q15401] 8245 036352 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET 8246 036353 254 00 0 00 036347 JRST Q15402 8247 036354 336 00 0 00 030524 Q15404: SKIPN SM10 ;KL10 ? 8248 036355 254 00 0 00 036361 JRST Q15405 ;YES 8249 036356 312 04 0 00 036751 CAME AC,[310000,,Q15401] 8250 036357 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET 8251 036360 254 00 0 00 036347 JRST Q15402 8252 036361 312 04 0 00 036751 Q15405: CAME AC,[310000,,Q15401] 8253 036362 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET 8254 036363 254 00 0 00 036347 JRST Q15402 8255 036364 254 00 0 00 036365 Q15406: JRST .+1^ 8256 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53-1 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0217 8257 DMVNMF 1550,400000,0,0,0,500000,510000,100000,510000^ 8258 036365 255 17 0 00 036366 Q15500: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 8259 DMOVE AC,[XWD 400000,0 8260 036366 120 04 0 00 036730 XWD 0,0] ;SETUP INITIAL 8261 036367 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST 8262 036370 265 04 0 00 036371 JSP AC,.+1 ;READ FLAGS 8263 036371 621 04 0 00 027777 Q15501: TLZ AC,027777 ;CLEAR EXTRA JUNK 8264 036372 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 8265 036373 254 00 0 00 036405 JRST Q15504 ;YES 8266 036374 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 8267 036375 254 00 0 00 036402 JRST Q15503 ;YES 8268 036376 312 04 0 00 036752 CAME AC,[500000,,Q15501] 8269 036377 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET 8270 036400 321 10 0 00 036365 Q15502: JUMPL SAC,Q15500 ;LOOP ON ERROR SWITCH 8271 036401 254 00 0 00 036415 JRST Q15506 8272 036402 312 04 0 00 036753 Q15503: CAME AC,[100000,,Q15501] 8273 036403 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET 8274 036404 254 00 0 00 036400 JRST Q15502 8275 036405 336 00 0 00 030524 Q15504: SKIPN SM10 ;KL10 ? 8276 036406 254 00 0 00 036412 JRST Q15505 ;YES 8277 036407 312 04 0 00 036754 CAME AC,[510000,,Q15501] 8278 036410 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET 8279 036411 254 00 0 00 036400 JRST Q15502 8280 036412 312 04 0 00 036754 Q15505: CAME AC,[510000,,Q15501] 8281 036413 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET 8282 036414 254 00 0 00 036400 JRST Q15502 8283 036415 254 00 0 00 036416 Q15506: JRST .+1^ 8284 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53-2 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0218 8285 DMVNMF 1560,0,0,400000,0,300000,310000,300000,310000^ 8286 036416 255 17 0 00 036417 Q15600: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 8287 DMOVE AC,[XWD 0,0 8288 036417 120 04 0 00 036731 XWD 400000,0] ;SETUP INITIAL 8289 036420 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST 8290 036421 265 04 0 00 036422 JSP AC,.+1 ;READ FLAGS 8291 036422 621 04 0 00 027777 Q15601: TLZ AC,027777 ;CLEAR EXTRA JUNK 8292 036423 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 8293 036424 254 00 0 00 036436 JRST Q15604 ;YES 8294 036425 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 8295 036426 254 00 0 00 036433 JRST Q15603 ;YES 8296 036427 312 04 0 00 036755 CAME AC,[300000,,Q15601] 8297 036430 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET 8298 036431 321 10 0 00 036416 Q15602: JUMPL SAC,Q15600 ;LOOP ON ERROR SWITCH 8299 036432 254 00 0 00 036446 JRST Q15606 8300 036433 312 04 0 00 036755 Q15603: CAME AC,[300000,,Q15601] 8301 036434 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET 8302 036435 254 00 0 00 036431 JRST Q15602 8303 036436 336 00 0 00 030524 Q15604: SKIPN SM10 ;KL10 ? 8304 036437 254 00 0 00 036443 JRST Q15605 ;YES 8305 036440 312 04 0 00 036756 CAME AC,[310000,,Q15601] 8306 036441 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET 8307 036442 254 00 0 00 036431 JRST Q15602 8308 036443 312 04 0 00 036756 Q15605: CAME AC,[310000,,Q15601] 8309 036444 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET 8310 036445 254 00 0 00 036431 JRST Q15602 8311 036446 254 00 0 00 036447 Q15606: JRST .+1^ 8312 PAGE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53-3 DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0219 8313 DMVNMF 1570,400000,0,400000,0,500000,510000,100000,510000^ 8314 036447 255 17 0 00 036450 Q15700: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS 8315 DMOVE AC,[XWD 400000,0 8316 036450 120 04 0 00 036732 XWD 400000,0] ;SETUP INITIAL 8317 036451 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST 8318 036452 265 04 0 00 036453 JSP AC,.+1 ;READ FLAGS 8319 036453 621 04 0 00 027777 Q15701: TLZ AC,027777 ;CLEAR EXTRA JUNK 8320 036454 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ? 8321 036455 254 00 0 00 036467 JRST Q15704 ;YES 8322 036456 336 00 0 00 030524 SKIPN SM10 ;KL10 ? 8323 036457 254 00 0 00 036464 JRST Q15703 ;YES 8324 036460 312 04 0 00 036757 CAME AC,[500000,,Q15701] 8325 036461 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET 8326 036462 321 10 0 00 036447 Q15702: JUMPL SAC,Q15700 ;LOOP ON ERROR SWITCH 8327 036463 254 00 0 00 036477 JRST Q15706 8328 036464 312 04 0 00 036760 Q15703: CAME AC,[100000,,Q15701] 8329 036465 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET 8330 036466 254 00 0 00 036462 JRST Q15702 8331 036467 336 00 0 00 030524 Q15704: SKIPN SM10 ;KL10 ? 8332 036470 254 00 0 00 036474 JRST Q15705 ;YES 8333 036471 312 04 0 00 036761 CAME AC,[510000,,Q15701] 8334 036472 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET 8335 036473 254 00 0 00 036462 JRST Q15702 8336 036474 312 04 0 00 036761 Q15705: CAME AC,[510000,,Q15701] 8337 036475 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET 8338 036476 254 00 0 00 036462 JRST Q15702 8339 036477 254 00 0 00 036500 Q15706: JRST .+1^ 8340 8341 036500 254 00 0 00 030057 JRST BEGEND 8342 8343 036501 TSTWD: BLOCK 2 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0220 8344 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 8345 8346 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S. 8347 8348 036503 202 00 0 00 037145 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0 8349 036504 202 01 0 00 037146 MOVEM 1,%ERAC1# ;SAVE AC1 8350 036505 202 02 0 00 037147 MOVEM 2,%ERAC2# ;SAVE AC2 8351 036506 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS 8352 036507 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 8353 036510 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ? 8354 036511 350 00 0 00 037142 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT 8355 036512 200 00 0 00 037142 MOVE 0,MICNT 8356 036513 504 00 0 00 030114 HRL 0,$SVUPC 8357 036514 402 00 0 00 037143 SETZM PROCED# ;CLEAR PROCEED FLAG 8358 036515 037 10 0 00 000002 SWITCH 8359 036516 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ? 8360 036517 254 00 0 00 036631 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN 8361 036520 200 01 0 00 030113 MOVE 1,$SVUUO 8362 036521 242 01 0 00 777745 LSH 1,-^D27 8363 036522 202 01 0 00 037144 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER 8364 036523 200 00 0 00 037145 MOVE 0,%ERAC0 8365 036524 200 01 0 00 037146 MOVE 1,%ERAC1 8366 036525 335 00 1 00 037141 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ? 8367 036526 254 00 0 00 036663 JRST %ERRS4 ;NO, SEE IF PRINT ALL 8368 036527 402 00 0 00 037142 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT 8369 036530 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ? 8370 036531 254 00 0 00 036535 JRST .+4 ;NO, DON'T NEED TITLE 8371 036532 336 00 0 00 037150 SKIPN %ERFST# ;FIRST ERROR ? 8372 036533 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE 8373 036534 476 00 0 00 037150 SETOM %ERFST 8374 036535 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ? 8375 036536 254 00 0 00 036542 JRST .+4 ;YES 8376 PMSG <^TEST PASS COUNT = >^ 8377 036537 037 02 0 00 036762 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^ 8378 036540 200 00 0 00 030047 MOVE PASCNT 8379 036541 037 15 0 00 000000 PNTDEC 8380 PMSG <^PC = >^ 8381 036542 037 02 0 00 036766 PSIXM [SIXBIT\^PC = _\]^ 8382 036543 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO 8383 036544 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE 8384 036545 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS 8385 XLIST 8386 IFDEF ERDIAG,^ 8392 036546 037 02 0 00 036770 PSIXM [SIXBIT\^RESULT = _\]^ 8393 036547 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO 8394 036550 242 01 0 00 777751 LSH 1,-27 8395 036551 405 01 0 00 000017 ANDI 1,17 8396 036552 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC) 8397 036553 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ? 8398 036554 200 00 0 01 037145 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC 8399 036555 037 13 0 00 000000 PNTHW ;PRINT C(AC) 8400 8401 036556 200 00 0 00 030046 MOVE CONSW 8402 036557 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ? 8403 036560 254 00 0 00 036627 JRST %ERMORE ;NO, RESTORE AC'S ETC. 8404 8405 ;PRINT FAILURE DESCRIPTOR 8406 8407 036561 200 01 0 00 037144 MOVE 1,%ACS1A ;GET UUO NUMBER 8408 036562 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ? 8409 036563 254 00 0 00 036567 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER 8410 036564 037 00 0 00 030242 PCRL 8411 036565 200 00 0 01 036613 MOVE %FLTTB(1) 8412 036566 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR 8413 8414 ;PRINT FAULT NUMBER 8415 8416 036567 %ERMS3: PMSG <^FAULT NUMBER = >^ 8417 036567 037 02 0 00 036772 PSIXM [SIXBIT\^FAULT NUMBER = _\]^ 8418 036570 201 00 0 00 036612 MOVEI TLET 8419 036571 037 00 0 00 000000 PNTA ;PRINT TEST LETTER DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0222 8420 8421 036572 550 00 0 00 030113 HRRZ $SVUUO 8422 036573 602 00 0 00 700000 TRNE 700000 8423 036574 254 00 0 00 036610 JRST %ER6X 8424 036575 602 00 0 00 070000 TRNE 070000 8425 036576 254 00 0 00 036606 JRST %ER5X 8426 036577 602 00 0 00 007000 TRNE 007000 8427 036600 254 00 0 00 036604 JRST %ER4X 8428 036601 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER 8429 036602 037 00 0 00 030242 %ER7X: PCRL 8430 036603 254 00 0 00 036627 JRST %ERMORE 8431 8432 036604 037 04 0 00 000000 %ER4X: PNT4 8433 036605 254 00 0 00 036602 JRST %ER7X 8434 036606 037 05 0 00 000000 %ER5X: PNT5 8435 036607 254 00 0 00 036602 JRST %ER7X 8436 036610 037 06 0 00 000000 %ER6X: PNT6 8437 036611 254 00 0 00 036602 JRST %ER7X 8438 8439 ;FAILURE DESCRIPTORS 8440 8441 036612 000000 000000 TLET: 0 ;TEST LETTER 8442 036613 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE 8443 036614 000000 036677 %NODES: [0] ;NO DESCRIPTOR 8444 036615 000000 036677 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR 8445 036616 000000 036775 $ACF: [ASCIZ/C(AC) FAILED/] 8446 036617 000000 037000 %AC1F: [ASCIZ/C(AC+1) FAILED/] 8447 036620 000000 037003 %EF: [ASCIZ/C(E) FAILED/] 8448 036621 000000 037006 %E1F: [ASCIZ/C(E+1) FAILED/] 8449 036622 000000 037011 %ARF: [ASCIZ/C(C(ACR)) FAILED/] 8450 036623 000000 037015 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/] 8451 036624 000000 037021 %ALF: [ASCIZ/C(C(ACL)) FAILED/] 8452 036625 000000 037025 %EEF: [ASCIZ/C(C(E)) FAILED/] 8453 036626 000000 037030 %FF: [ASCIZ/FLAG FAILED/] 8454 > 8455 XLIST 8456 LIST DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 8 UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0223 8457 ;RESTORE AC'S AND RETURN OR HALT 8458 8459 036627 256 00 0 00 030101 %ERMORE:XCT ERMORE 8460 036630 037 10 0 00 000002 SWITCH 8461 8462 036631 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK 8463 036632 254 00 0 00 036636 JRST .+4 ;NONE 8464 036633 201 00 0 00 036636 MOVEI .+3 ;SAVE CONT ADDRESS 8465 036634 202 00 0 00 000130 MOVEM JOBOPC 8466 036635 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER 8467 036636 200 00 0 00 030046 MOVE CONSW 8468 036637 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ? 8469 036640 037 14 0 00 000004 ERRHLT ;YES 8470 036641 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ? 8471 036642 476 00 0 00 037143 SETOM PROCED ;NO, SET THE PROCEED FLAG 8472 036643 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ? 8473 036644 037 01 0 00 000007 PBELL ;YES, GO RING BELL 8474 8475 036645 200 02 0 00 037147 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S 8476 036646 200 01 0 00 037146 MOVE 1,%ERAC1 8477 036647 476 00 1 00 037141 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1 8478 036650 336 00 0 00 037143 SKIPN PROCED ;LOOP ON ERROR ? 8479 036651 254 00 0 00 036661 JRST %ERRS5 ;YES 8480 036652 350 00 1 00 037141 AOS @ERRLOP ;NO, INC C(ERR LOOP AC) 8481 036653 350 00 1 00 037141 AOS @ERRLOP ;SO IT ='S 1 8482 036654 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ? 8483 036655 254 00 0 00 036661 JRST %ERRS5 ;NO, CONTINUE PROGRAM 8484 036656 200 00 0 00 030053 MOVE 0,ERRTLS ;YES 8485 036657 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ? 8486 036660 254 00 0 00 036667 JRST %ERRS6 8487 8488 036661 200 00 0 00 037145 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM 8489 036662 254 00 0 00 030065 JRST UUOEXT 8490 8491 036663 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW 8492 036664 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ? 8493 036665 254 00 0 00 036631 JRST %ERRS1 ;NO 8494 036666 254 00 0 00 036527 JRST %ERMS1 ;YES 8495 8496 036667 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^ 8497 036667 037 04 0 00 037033 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^ 8498 036670 254 00 0 00 030061 JRST $BEND2 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0224 8499 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978 8500 8501 ;PROGRAM LITERALS 8502 8503 XLIST 8504 IFNDEF $LPAPER, 8505 036671 LIT 8506 036671 45 70 51 64 00 00 8507 036672 103 103 000 000 000 8508 036673 233525 252525 8509 036674 252525 252525 8510 036675 631463 146314 8511 036676 424242 131313 8512 036677 000000 000000 8513 036700 707070 707070 8514 036701 070707 070707 8515 036702 000000 000000 8516 036703 000000 000000 8517 036704 777777 777777 8518 036705 777777 777777 8519 036706 000000 000000 8520 036707 525252 525252 8521 036710 252525 252525 8522 036711 525252 525252 8523 036712 000000 000001 8524 036713 000000 000000 8525 036714 000000 000001 8526 036715 777777 777777 8527 036716 000000 000001 8528 036717 252525 252526 8529 036720 525252 525252 8530 036721 252525 252526 8531 036722 525252 525253 8532 036723 252525 252525 8533 036724 525252 525253 8534 036725 000000 777777 8535 036726 000000 000000 8536 036727 000000 777777 8537 036730 400000 000000 8538 036731 000000 000000 8539 036732 400000 000000 8540 036733 400000 000000 8541 036734 300000 035444 8542 036735 310000 035444 8543 036736 500000 035474 8544 036737 100000 035474 8545 036740 510000 035474 8546 036741 300000 035524 8547 036742 310000 035524 8548 036743 500000 035554 8549 036744 100000 035554 8550 036745 510000 035554 8551 036746 777777 777777 8552 036747 000000 777777 8553 036750 300000 036340 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1-1 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0225 8554 036751 310000 036340 8555 036752 500000 036371 8556 036753 100000 036371 8557 036754 510000 036371 8558 036755 300000 036422 8559 036756 310000 036422 8560 036757 500000 036453 8561 036760 100000 036453 8562 036761 510000 036453 8563 036762 76 64 45 63 64 00 8564 036763 60 41 63 63 00 43 8565 036764 57 65 56 64 00 35 8566 036765 00 77 00 00 00 00 8567 036766 76 60 43 00 35 00 8568 036767 00 00 77 00 00 00 8569 036770 76 62 45 63 65 54 8570 036771 64 00 00 35 00 77 8571 036772 76 46 41 65 54 64 8572 036773 00 56 65 55 42 45 8573 036774 62 00 35 00 77 00 8574 036775 103 050 101 103 051 8575 036776 040 106 101 111 114 8576 036777 105 104 000 000 000 8577 037000 103 050 101 103 053 8578 037001 061 051 040 106 101 8579 037002 111 114 105 104 000 8580 037003 103 050 105 051 040 8581 037004 106 101 111 114 105 8582 037005 104 000 000 000 000 8583 037006 103 050 105 053 061 8584 037007 051 040 106 101 111 8585 037010 114 105 104 000 000 8586 037011 103 050 103 050 101 8587 037012 103 122 051 051 040 8588 037013 106 101 111 114 105 8589 037014 104 000 000 000 000 8590 037015 103 050 103 050 101 8591 037016 103 122 053 061 051 8592 037017 051 040 106 101 111 8593 037020 114 105 104 000 000 8594 037021 103 050 103 050 101 8595 037022 103 114 051 051 040 8596 037023 106 101 111 114 105 8597 037024 104 000 000 000 000 8598 037025 103 050 103 050 105 8599 037026 051 051 040 106 101 8600 037027 111 114 105 104 000 8601 037030 106 114 101 107 040 8602 037031 106 101 111 114 105 8603 037032 104 000 000 000 000 8604 037033 76 45 70 43 45 45 8605 037034 44 45 44 00 41 54 8606 037035 54 57 67 45 44 00 8607 037036 45 62 62 57 62 63 8608 037037 76 77 00 00 00 00 DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1-2 STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0226 8609 LIST 8610 037040 000000 000000 ENDSLD: 0 8611 8612 IFDEF DEBUG,< 8613 037041 PATCH: BLOCK DEBUG ;PATCHING AREA 8614 > 8615 8616 ;PROGRAM VARIABLES 8617 037141 VAR 8618 8619 IFDEF PGMEND,< 8620 037152 000000 000000 END: 0 8621 030000 END BEGIN > NO ERRORS DETECTED PROGRAM BREAK IS 000000 ABSOLUTE BREAK IS 037153 CPU TIME USED 00:27.608 28P CORE USED ABORT 577# AC 1165# 1166 1175 1176 1177 1178 1183# 1184 1194 1195 1196 1197 1230 1231 SEQ 0227 1232 1233 1234 1246 1247 1248 1249 1250 1262 1263 1264 1265 1266 1278 1279 1280 1281 1282 1294 1295 1296 1297 1298 1310 1311 1312 1313 1314 1326 1327 1328 1329 1330 1342 1343 1344 1345 1346 1358 1359 1360 1361 1362 1374 1375 1376 1377 1378 1390 1391 1392 1393 1394 1406 1407 1408 1409 1410 1422 1423 1424 1425 1426 1438 1439 1440 1441 1442 1454 1455 1456 1457 1458 1470 1471 1472 1473 1474 1486 1487 1488 1489 1490 1502 1503 1504 1505 1506 1538 1539 1540 1541 1542 1554 1555 1556 1557 1558 1570 1571 1572 1573 1574 1586 1587 1588 1589 1590 1602 1603 1604 1605 1606 1618 1619 1620 1621 1622 1634 1635 1636 1637 1638 1650 1651 1652 1653 1654 1666 1667 1668 1669 1670 1682 1683 1684 1685 1686 1698 1699 1700 1701 1702 1714 1715 1716 1717 1718 1730 1731 1732 1733 1734 1746 1747 1748 1749 1750 1762 1763 1764 1765 1766 1778 1779 1780 1781 1782 1794 1795 1796 1797 1798 1832 1833 1834 1835 1836 1847 1848 1849 1850 1851 1862 1863 1864 1865 1866 1877 1878 1879 1880 1881 1892 1893 1894 1895 1896 1907 1908 1909 1910 1911 1922 1923 1924 1925 1926 1937 1938 1939 1940 1941 1952 1953 1954 1955 1956 1988 1989 1990 1991 1992 2004 2005 2006 2007 2008 2020 2021 2022 2023 2024 2036 2037 2038 2039 2040 2052 2053 2054 2055 2056 2068 2069 2070 2071 2072 2084 2085 2086 2087 2088 2100 2101 2102 2103 2104 2116 2117 2118 2119 2120 2132 2133 2134 2135 2136 2148 2149 2150 2151 2152 2164 2165 2166 2167 2168 2180 2181 2182 2183 2184 2196 2197 2198 2199 2200 2212 2213 2214 2215 2216 2228 2229 2230 2231 2232 2244 2245 2246 2247 2248 2260 2261 2262 2263 2264 2300 2301 2302 2303 2304 2305 2317 2318 2319 2320 2321 2322 2359 2360 2361 2362 2363 2364 2377 2378 2379 2380 2381 2382 2395 2396 2397 2398 2399 2400 2413 2414 2415 2416 2417 2418 2431 2432 2433 2434 2435 2436 2449 2450 2451 2452 2453 2454 2467 2468 2469 2470 2471 2472 2485 2486 2487 2488 2489 2490 2526 2527 2528 2529 2530 2531 2544 2545 2546 2547 2548 2549 2562 2563 2564 2565 2566 2567 2580 2581 2582 2583 2584 2585 2598 2599 2600 2601 2602 2603 2616 2617 2618 2619 2620 2621 2634 2635 2636 2637 2638 2639 2652 2653 2654 2655 2656 2657 2670 2671 2672 2673 2674 2675 2711 2712 2713 2714 2715 2716 2729 2730 2731 2732 2733 2734 2747 2748 2749 2750 2751 2752 2765 2766 2767 2768 2769 2770 2783 2784 2785 2786 2787 2788 2801 2802 2803 2804 2805 2806 2819 2820 2821 2822 2823 2824 2837 2838 2839 2840 2841 2842 2855 2856 2857 2858 2859 2860 2895 2896 2897 2898 2899 2900 2912 2913 2914 2915 2916 2917 2929 2930 2931 2932 2933 2934 2946 2947 2948 2949 2950 2951 2963 2964 2965 2966 2967 2968 2980 2981 2982 2983 2984 2985 2997 2998 2999 3000 3001 3002 3014 3015 3016 3017 3018 3019 3027 3028 3029 3030 3031 3032 3043 3044 3045 3046 3048 3049 3059 3060 3061 3063 3064 3073 3074 3075 3076 3078 3079 3089 3090 3091 3093 3094 3103 3104 3106 3107 3117 3118 3119 3121 3122 3131 3132 3134 3135 3145 3146 3148 3149 3158 3159 3161 3162 3172 3173 3175 3176 3185 3186 3188 3189 3199 3200 3202 3203 3214 3215 3216 3217 3218 3219 3225 3226 3227 3228 3239 3240 3241 3242 3244 3245 3256 3257 3258 3260 3261 3271 3272 3273 3274 3276 3277 3288 3289 3290 3291 3293 3294 3304 3305 3307 3308 3319 3320 3321 3323 3324 3334 3335 3337 3338 3349 3350 3352 3353 3363 3364 3366 3367 3378 3379 3381 3382 3392 3393 3395 3396 3407 3408 3410 3411 3417 3418 3419 3420 3421 3422 3423 3433 3436 3443 3444 3445 3446 3447 3448 3450 3457 3458 3459 3460 3461 3462 3463 3466 3472 3473 3474 3475 3476 3477 3479 3486 3487 3488 3489 3490 3491 3492 3493 3496 3502 3503 3504 3505 3537 3538 3539 3540 3541 3552 3553 3554 3555 3556 3567 3568 3569 3570 3571 3582 3583 3584 3585 3586 3597 3598 3599 3600 3601 3612 3613 3614 3615 3616 3627 3628 3629 3630 3631 3642 3643 3644 3645 3646 3657 3658 3659 3660 3661 3672 3673 SEQ 0228 3674 3675 3676 3687 3688 3689 3690 3691 3702 3703 3704 3705 3706 3717 3718 3719 3720 3721 3732 3733 3734 3735 3736 3747 3748 3749 3750 3751 3762 3763 3764 3765 3766 3777 3778 3779 3780 3781 3814 3815 3816 3817 3818 3830 3831 3832 3833 3834 3846 3847 3848 3849 3850 3862 3863 3864 3865 3866 3878 3879 3880 3881 3882 3894 3895 3896 3897 3898 3910 3911 3912 3913 3914 3926 3927 3928 3929 3930 3942 3943 3944 3945 3946 3958 3959 3960 3961 3962 3974 3975 3976 3977 3978 3990 3991 3992 3993 3994 4006 4007 4008 4009 4010 4022 4023 4024 4025 4026 4038 4039 4040 4041 4042 4054 4055 4056 4057 4058 4070 4071 4072 4073 4074 4086 4087 4088 4089 4090 4126 4127 4128 4129 4130 4142 4143 4144 4145 4146 4158 4159 4160 4161 4162 4174 4175 4176 4177 4178 4190 4191 4192 4193 4194 4206 4207 4208 4209 4210 4222 4223 4224 4225 4226 4238 4239 4240 4241 4242 4254 4255 4256 4257 4258 4270 4271 4272 4273 4274 4286 4287 4288 4289 4290 4302 4303 4304 4305 4306 4318 4319 4320 4321 4322 4334 4335 4336 4337 4338 4350 4351 4352 4353 4354 4366 4367 4368 4369 4370 4382 4383 4384 4385 4386 4398 4399 4400 4401 4402 4435 4436 4437 4438 4439 4451 4452 4453 4454 4455 4467 4468 4469 4470 4471 4483 4484 4485 4486 4487 4499 4500 4501 4502 4503 4515 4516 4517 4518 4519 4531 4532 4533 4534 4535 4547 4548 4549 4550 4551 4563 4564 4565 4566 4567 4579 4580 4581 4582 4583 4595 4596 4597 4598 4599 4611 4612 4613 4614 4615 4627 4628 4629 4630 4631 4643 4644 4645 4646 4647 4659 4660 4661 4662 4663 4675 4676 4677 4678 4679 4691 4692 4693 4694 4695 4707 4708 4709 4710 4711 4719 4720 4721 4722 4730 4731 4732 4733 4734 4735 4769 4770 4771 4772 4773 4774 4775 4787 4788 4789 4790 4791 4792 4793 4805 4806 4807 4808 4809 4810 4811 4823 4824 4825 4826 4827 4828 4829 4841 4842 4843 4844 4845 4846 4847 4859 4860 4861 4862 4863 4864 4865 4877 4878 4879 4880 4881 4882 4883 4895 4896 4897 4898 4899 4900 4901 4913 4914 4915 4916 4917 4918 4919 4931 4932 4933 4934 4935 4936 4937 4971 4972 4973 4974 4975 4976 4977 4989 4990 4991 4992 4993 4994 4995 5007 5008 5009 5010 5011 5012 5013 5025 5026 5027 5028 5029 5030 5031 5043 5044 5045 5046 5047 5048 5049 5061 5062 5063 5064 5065 5066 5067 5079 5080 5081 5082 5083 5084 5085 5097 5098 5099 5100 5101 5102 5103 5136 5137 5138 5139 5140 5141 5153 5154 5155 5156 5157 5158 5170 5171 5172 5173 5174 5175 5187 5188 5189 5190 5191 5192 5204 5205 5206 5207 5208 5209 5221 5222 5223 5224 5225 5226 5238 5239 5240 5241 5242 5243 5255 5256 5257 5258 5259 5260 5298 5299 5300 5301 5302 5303 5304 5316 5317 5318 5319 5320 5321 5322 5334 5335 5336 5337 5338 5339 5340 5352 5353 5354 5355 5356 5357 5358 5370 5371 5372 5373 5374 5375 5376 5388 5389 5390 5391 5392 5393 5394 5406 5407 5408 5409 5410 5411 5412 5424 5425 5426 5427 5428 5429 5430 5442 5443 5444 5445 5446 5447 5448 5460 5461 5462 5463 5464 5465 5466 5500 5501 5502 5503 5504 5505 5517 5518 5519 5520 5521 5522 5534 5535 5536 5537 5538 5539 5551 5552 5553 5554 5555 5556 5568 5569 5570 5571 5572 5573 5585 5586 5587 5588 5589 5590 5602 5603 5604 5605 5606 5607 5619 5620 5621 5622 5623 5624 5657 5658 5659 5661 5662 5674 5675 5676 5678 5679 5691 5692 5693 5695 5696 5708 5709 5710 5712 5713 5725 5726 5727 5729 5730 5742 5743 5744 5746 5747 5759 5760 5761 5763 5764 5776 5777 5778 5780 5781 5819 5820 5821 5822 5823 5824 5825 5837 5838 5839 5840 5841 5842 5843 5855 5856 5857 5858 5859 5860 5861 5873 5874 5875 5876 5877 5878 5879 5891 5892 5893 5894 5895 5896 5897 5909 5910 5911 5912 5913 5914 5915 5927 5928 5929 5930 5931 5932 5933 5945 5946 5947 5948 5949 5950 5951 5963 5964 5965 5966 5967 5968 5969 5981 5982 5983 5984 5985 5986 5987 6022 6023 6024 6025 6027 6028 6040 6041 6042 6043 6045 6046 6058 6059 6060 6061 6063 6064 6076 6077 6078 6079 SEQ 0229 6081 6082 6094 6095 6096 6097 6099 6100 6112 6113 6114 6115 6117 6118 6130 6131 6132 6133 6135 6136 6148 6149 6150 6151 6153 6154 6187 6188 6189 6191 6192 6204 6205 6206 6208 6209 6221 6222 6223 6225 6226 6238 6239 6240 6242 6243 6255 6256 6257 6259 6260 6272 6273 6274 6276 6277 6289 6290 6291 6293 6294 6306 6307 6308 6310 6311 6320 6321 6322 6323 6325 6326 6361 6362 6363 6364 6365 6367 6368 6380 6381 6382 6383 6384 6386 6387 6399 6400 6401 6402 6403 6405 6406 6418 6419 6420 6421 6422 6424 6425 6437 6438 6439 6440 6441 6443 6444 6456 6457 6458 6459 6460 6462 6463 6475 6476 6477 6478 6479 6481 6482 6494 6495 6496 6497 6498 6500 6501 6513 6514 6515 6516 6517 6519 6520 6532 6533 6534 6535 6536 6538 6539 6575 6576 6577 6578 6579 6581 6582 6594 6595 6596 6597 6598 6600 6601 6613 6614 6615 6616 6617 6619 6620 6632 6633 6634 6635 6636 6638 6639 6651 6652 6653 6654 6655 6657 6658 6670 6671 6672 6673 6674 6676 6677 6689 6690 6691 6692 6693 6695 6696 6708 6709 6710 6711 6712 6714 6715 6749 6750 6751 6752 6753 6754 6766 6767 6768 6769 6770 6771 6783 6784 6785 6786 6787 6788 6800 6801 6802 6803 6804 6805 6817 6818 6819 6820 6821 6822 6834 6835 6836 6837 6838 6839 6851 6852 6853 6854 6855 6856 6868 6869 6870 6871 6872 6873 6885 6886 6887 6888 6890 6891 6899 6900 6901 6902 6903 6905 6906 6913 6914 6915 6916 6918 6919 6927 6928 6929 6930 6932 6933 6939 6940 6941 6942 6943 6944 6945 6951 6952 6953 6954 6955 6956 6957 6961 6962 6963 6964 6965 6967 6968 6969 6970 6974 6975 6976 6977 6978 6980 6981 6982 6983 6987 6988 6989 6990 6991 6993 6994 6995 6996 7000 7001 7002 7003 7004 7006 7007 7008 7009 7013 7014 7015 7016 7017 7019 7020 7021 7022 7026 7027 7028 7029 7030 7032 7033 7034 7035 7041# 7042 7050 7051 7052 7053 7054 7055 7057 7059 7060 7061 7062 7064 7065 7066 7067 7073# 7074 7080 7102 7105 7106 7107 7108 7109 7110 7111 7116 7119 7120 7121 7122 7123 7124 7125 7130 7133 7134 7135 7136 7137 7138 7139 7144 7147 7148 7149 7150 7151 7152 7153 7158 7161 7162 7163 7164 7165 7166 7167 7174 7176 7177 7178 7179 7180 7184 7186 7187 7188 7189 7191 7192 7193 7194 7198 7200 7201 7202 7203 7205 7206 7207 7208 7212 7214 7215 7216 7217 7219 7220 7221 7222 7226 7228 7229 7230 7231 7233 7234 7235 7236 7240 7242 7243 7244 7245 7247 7248 7249 7250 7254 7256 7257 7258 7259 7261 7262 7263 7264 7270# 7271 7279 7280 7282 7283 7284 7285 7287 7289 7290 7291 7292 7294 7295 7296 7297 7303# 7304 7310 7334 7336 7337 7338 7341 7342 7343 7344 7345 7350 7352 7353 7354 7357 7358 7359 7360 7361 7366 7368 7369 7370 7373 7374 7375 7376 7377 7382 7384 7385 7386 7389 7390 7391 7392 7393 7398 7400 7401 7402 7405 7406 7407 7408 7409 7415 7417 7418 7419 7420 7422 7423 7424 7425 7429 7431 7432 7433 7434 7436 7437 7438 7439 7443 7445 7446 7447 7448 7450 7451 7452 7453 7460 7461 7462 7467 7469 7470 7471 7475 7476 7479 7480 7484 7485 7487 7488 7494 7496 7497 7498 7502 7503 7506 7507 7511 7512 7514 7515 7521 7523 7524 7525 7529 7530 7533 7534 7538 7539 7541 7542 7548 7550 7551 7552 7556 7557 7560 7561 7565 7566 7568 7569 7576 7578 7579 7580 7581 7582 7586 7588 7589 7590 7592 7593 7594 7595 7596 7597 7601 7603 7604 7605 7607 7608 7609 7610 7611 7612 7616 7618 7619 7620 7622 7623 7624 7625 7626 7627 7631 7633 7634 7635 7637 7638 7639 7640 7641 7642 7646 7648 7649 7650 7652 7653 7654 7655 7656 7657 7661 7663 7664 7665 7667 7668 7669 7670 7671 7672 7678# 7679 7687 7688 7690 7691 7692 7694 7695 7696 7698 7699 7700 7701 7703 7704 7705 7706 7712# 7713 7719 7750 7752 7755 7757 7769 7771 7774 7776 7788 7790 7793 7795 7807 7809 7812 7814 7826 7828 7831 7833 7859# 7860 7866 7868 7873 7876 7878 7879 7880 7886 7888 7889 7890 7891 7892 7896 7898 7899 7901 7903 7904 7905 7906 7907 7908 7912 7914 7915 7917 7919 7920 7921 7922 SEQ 0230 7923 7924 7928 7930 7931 7933 7935 7936 7937 7938 7939 7940 7944 7946 7947 7949 7951 7952 7953 7954 7955 7956 7960 7962 7963 7965 7967 7968 7969 7970 7971 7972 7976 7978 7979 7981 7983 7984 7985 7986 7987 7988 7994# 7995 8003 8005 8006 8008 8010 8011 8012 8014 8015 8016 8017 8019 8020 8021 8022 8028# 8029 8035 8070 8072 8073 8076 8077 8079 8081 8083 8093 8095 8096 8099 8100 8102 8104 8106 8116 8118 8119 8122 8123 8125 8127 8129 8139 8141 8142 8144 8145 8146 8148 8150 8152 8162 8164 8165 8168 8169 8171 8173 8175 8181 8183 8184 8186 8188 8189 8190 8191 8192 8193 8197 8199 8200 8202 8204 8205 8206 8207 8208 8209 8213 8215 8216 8218 8220 8221 8222 8223 8224 8225 8231 8233 8234 8235 8236 8240 8241 8244 8245 8249 8250 8252 8253 8259 8261 8262 8263 8264 8268 8269 8272 8273 8277 8278 8280 8281 8287 8289 8290 8291 8292 8296 8297 8300 8301 8305 8306 8308 8309 8315 8317 8318 8319 8320 8324 8325 8328 8329 8333 8334 8336 8337 ALTMGO 889# 8466 AROV 803# 3459 3489 AROVTP 803# AROVU 803# AST 1004# ATSIN 1005# BEGEND 885# 8341 BEGIN 71 76 77 78 79 80 81 792 793 816# 8621 BEGIN1 832# 886 BELL 1008# BIS 803# 7872 7879 CC00 1165# CCA 803# CHAIN 597# CHNOFF 803# CHNON 803# CLKU 803# CLOCKF 871# CNTLC 888# CNTRP 803# COMMA 997# CONSW 872# 8401 8467 8491 CPOPJ 892# CPOPJ1 890# CRLF 727 728 992# CRLF2 731 732 994# CRY0 803# CRY1 803# CSHFLG 1051# CSHMEM 1052# CTRP 803# CYCL60 1045# DCK 803# DDTLNK 611# 830 DDTSRT 830# DEBUG 55# 8612 8613 DECVER 4# 10 23 851 DF22F 956# DIAGMN 819# SEQ 0231 DING 583# 8472 DOLLAR 1011# DSKUPD 856 E 7080# 7083 7083# 7101 7101# 7103 7104 7107 7115 7115# 7117 7118 7121 7129 7129# 7131 7132 7135 7143 7143# 7145 7146 7149 7157 7157# 7159 7160 7163 7310# 7313 7313# 7333 7333# 7339 7341 7349 7349# 7355 7357 7365 7365# 7371 7373 7381 7381# 7387 7389 7397 7397# 7403 7405 7719# 7722 7722# 7747 7747# 7748 7752 7753 7754 7755 7756 7757 7759 7766 7766# 7767 7771 7772 7773 7774 7775 7776 7778 7785 7785# 7786 7790 7791 7792 7793 7794 7795 7797 7804 7804# 7805 7809 7810 7811 7812 7814 7816 7823 7823# 7824 7828 7829 7830 7831 7832 7833 7835 7866# 7870 7873 7874 7875 7876 7877 8035# 8038 8038# 8067 8067# 8068 8073 8076 8077 8078 8079 8080 8081 8083 8090 8090# 8091 8096 8099 8100 8101 8102 8103 8104 8106 8113 8113# 8114 8119 8122 8123 8124 8125 8126 8127 8129 8136 8136# 8137 8142 8145 8146 8147 8148 8149 8150 8152 8159 8159# 8160 8165 8168 8169 8170 8171 8172 8173 8175 EBIT0 803# EBIT1 803# EBIT10 803# EBIT11 803# EBIT12 803# EBIT13 803# EBIT14 803# EBIT15 803# EBIT2 803# EBIT3 803# EBIT4 803# EBIT5 803# EBIT6 803# EBIT7 803# EBIT8 803# EBIT9 803# END 8620# ENDFIX 1131# ENDSLD 8610# ERDIAG 59# 8386 ERMORE 905# 8459 EROLD 60# 803 ERRELB 8456 ERRLOP 1171# 1171 1189# 1189 3213# 3213 7047# 7047 7079# 7079 7276# 7276 7309# 7309 7684# 7684 7718# 7718 7865# 7865 8000# 8000 8034# 8034 8366 8477 8480 8481 ERRMES 41 42 43 44 45 46 47 48 49 50 51 8348# ERRPC 876# 8353 8383 ERRTLS 877# 8351 8484 ERSTOP 586# 8468 EXCASB 56# 854 EXIOT 803# FOV 803# FOVU 803# FRDLNK 609# FSELNK 608# FXU 803# HYPEN 1002# INHCSH 594# SEQ 0232 INHPAG 591# IOCLR 803# ITERAT 90# 849 ITRCH1 909# ITRCNT 849# JOB41 803# JOBAPR 803# JOBCNI 803# JOBDDT 803# JOBFF 803# JOBOPC 803# 8465 JOBREL 803# JOBREN 803# JOBSA 803# JOBSYM 803# JOBTPC 803# JOBUSY 803# JOBUUO 803# JOBVER 803# KAIFLG 866# KLFLG 867# 7840 7852 8143 KNTRP 803# KTRP 803# LACLK 803# LACLKE 803# LAPRAL 803# LAPRP1 803# LAPRP2 803# LAPRP3 803# LAPRP4 803# LAPRP5 803# LAPRP6 803# LAPRP7 803# LCHNOF 803# LCHNON 803# LCNTXT 803# LCNXER 803# LCPAER 803# LCPSFT 803# LCPWRF 803# LDATAF 803# LDLNK 610# 819 821 LDNXER 803# LDPAER 803# LDPSFT 803# LDPWRF 803# LEBXMH 803# LEBXML 803# LENXER 803# LEPAER 803# LEPSFT 803# LEPWRF 803# LEUPFW 803# SEQ 0233 LEXCMP 803# LFLGCL 803# LFLGDS 803# LFLGEN 803# LFLGST 803# LFP 1006# LINSTF 803# LINT 803# LIOCLR 803# LLACBL 803# LLDUSB 803# LMBXMH 803# LMBXML 803# LNXMEN 803# LNXMER 803# LOOPER 585# 8470 LPAREN 803# LPARER 803# LPFWPC 803# LPGFTR 803# LPICH1 803# LPICH2 803# LPICH3 803# LPICH4 803# LPICH5 803# LPICH6 803# LPICH7 803# LPICHA 803# LPICLR 803# LPIIP1 803# LPIIP2 803# LPIIP3 803# LPIIP4 803# LPIIP5 803# LPIIP6 803# LPIIP7 803# LPIOFF 803# LPION 803# LPRCH1 803# LPRCH2 803# LPRCH3 803# LPRCH4 803# LPRCH5 803# LPRCH6 803# LPRCH7 803# LPRFMH 803# LPRFML 803# LPSFT 803# LPSFTE 803# LPWRFE 803# LPWRFL 803# LREQSE 803# LRQCLR 803# SEQ 0234 LSECMO 803# LSMODE 803# LSNXER 803# LSPAER 803# LSPSFT 803# LSPWRF 803# LTBASH 803# LTBASL 803# LTRPAE 803# LTRPEN 803# LUSCMP 803# LUUO 803# LUUO1 41# 936 937 LUUO10 48# 936 941 LUUO11 49# 936 941 LUUO12 50# 936 942 LUUO13 51# 936 942 LUUO14 936 943 LUUO15 936 943 LUUO16 936 944 LUUO17 936 944 LUUO2 42# 936 938 LUUO20 936 945 LUUO21 936 945 LUUO22 936 946 LUUO23 936 946 LUUO24 936 947 LUUO25 936 947 LUUO26 936 948 LUUO27 936 948 LUUO3 43# 936 938 LUUO30 936 949 LUUO31 936 949 LUUO32 936 950 LUUO33 936 950 LUUO4 44# 936 939 LUUO5 45# 936 939 LUUO6 46# 936 940 LUUO7 47# 936 940 LUUOI 803# LWRITE 803# MAPNEW 957# MARGIN 879# MCNVER 3# 10 23 851 MEMLOW 959# MEMMAP 857 MEMSIZ 960# MEMTOT 958# MICNT 8354# 8354 8355 8368 MINUS 1001# MODDVC 593# MODDVL 792 792# 852 MODDVU 793 793# 853 SEQ 0235 MODLNK 612# 816 MONCTL 869# 8369 8482 MONFLG 868# MONTEN 870# MONTYP 1083# MPVU 803# MUUO 803# MUUOPC 803# NOPNT 581# 8359 NXMU 803# OPRSEL 595# OPTIME 971# P 638 639 640 641 803# 891 7844 7848 PAG 803# PALERS 587# 8492 PAREA1 83# 847 PAREA2 84# 848 PAREA3 85# 845 PAREA4 86# 846 PAREA5 87# 858 PAREA6 88# 859 PAREA7 858# PAREA8 859# PARU 803# PASCNT 873# 8374 8378 PATCH 8613# PDISF 968# PDLOVU 803# PDOVTP 803# PERIOD 998# PFSTRT 825# PGMEND 58# 8619 PGMNAM 850 1135# PICHN1 803# PICHN2 803# PICHN3 803# PICHN4 803# PICHN5 803# PICHN6 803# PICHN7 803# PICHNA 803# PICLR 803# PIOFF 803# PION 803# PLIST 1037# 1037 PLISTE 1037 1039# PLISTS 1038# PLUS 1003# PNTENB 967# PNTEXT 846# PNTFLG 966# PNTINH 969# PNTLPT 582# SEQ 0236 PNTNAM 845# PNTRP 803# PNTSPC 970# PROCED 8357# 8357 8471 8478 PTRP 803# PVPAGI 1064# Q10 1175# 1179 Q100 1194# 1198 Q1000 2331# Q10000 6927# 6934 Q10010 6939# 6946 Q10050 6951# 6958 Q10100 6961# 6971 Q10200 6974# 6984 Q10300 6987# 6997 Q10400 7000# 7010 Q10500 7013# 7023 Q10600 7026# 7036 Q10700 7051# Q10710 7050# 7068 Q10713 7057# Q1100 2498# Q11000 7085# Q11050 7174# 7181 Q11100 7184# 7195 Q11200 7198# 7209 Q11300 7212# 7223 Q11400 7226# 7237 Q11500 7240# 7251 Q11600 7254# 7265 Q11700 7279# 7298 Q1200 2683# Q12000 7315# Q12100 7415# 7426 Q12200 7429# 7440 Q12300 7443# 7454 Q12400 7459# 7463 Q12500 7466# 7477 Q12501 7470# 7475 7479 7484 7487 Q12502 7477# 7481 7486 7489 Q12503 7474 7479# Q12504 7472 7482# Q12505 7483 7487# Q12506 7478 7490# Q12600 7493# 7504 Q12601 7497# 7502 7506 7511 7514 Q12602 7504# 7508 7513 7516 Q12603 7501 7506# Q12604 7499 7509# Q12605 7510 7514# Q12606 7505 7517# Q12700 7520# 7531 Q12701 7524# 7529 7533 7538 7541 SEQ 0237 Q12702 7531# 7535 7540 7543 Q12703 7528 7533# Q12704 7526 7536# Q12705 7537 7541# Q12706 7532 7544# Q1300 2869# Q13000 7547# 7558 Q13001 7551# 7556 7560 7565 7568 Q13002 7558# 7562 7567 7570 Q13003 7555 7560# Q13004 7553 7563# Q13005 7564 7568# Q13006 7559 7571# Q13050 7576# 7583 Q13100 7586# 7598 Q13200 7601# 7613 Q13300 7616# 7628 Q13400 7631# 7643 Q13500 7646# 7658 Q13600 7661# 7673 Q13700 7687# 7707 Q1400 3027# 3033 Q14000 7724# Q14001 7815 7840# Q14002 7843# Q14003 7841 7847# Q14020 7868# 7881 Q14021 7838 7852# Q14050 7853 7886# 7893 Q14100 7896# 7909 Q14200 7912# 7925 Q14300 7928# 7941 Q14400 7944# 7957 Q14500 7960# 7973 Q14600 7976# 7989 Q14700 8003# 8023 Q1500 3043# 3050 Q15000 8040# Q15100 8181# 8194 Q15200 8197# 8210 Q15300 8213# 8226 Q15400 8230# 8242 Q15401 8235# 8240 8244 8249 8252 Q15402 8242# 8246 8251 8254 Q15403 8239 8244# Q15404 8237 8247# Q15405 8248 8252# Q15406 8243 8255# Q15500 8258# 8270 Q15501 8263# 8268 8272 8277 8280 Q15502 8270# 8274 8279 8282 Q15503 8267 8272# Q15504 8265 8275# SEQ 0238 Q15505 8276 8280# Q15506 8271 8283# Q15600 8286# 8298 Q15601 8291# 8296 8300 8305 8308 Q15602 8298# 8302 8307 8310 Q15603 8295 8300# Q15604 8293 8303# Q15605 8304 8308# Q15606 8299 8311# Q15700 8314# 8326 Q15701 8319# 8324 8328 8333 8336 Q15702 8326# 8330 8335 8338 Q15703 8323 8328# Q15704 8321 8331# Q15705 8332 8336# Q15706 8327 8339# Q1600 3059# 3065 Q1700 3073# 3080 Q200 1205# Q2000 3089# 3095 Q2100 3103# 3108 Q2200 3117# 3123 Q2300 3131# 3136 Q2400 3145# 3150 Q2500 3158# 3163 Q2600 3172# 3177 Q2700 3185# 3190 Q300 1513# Q3000 3199# 3204 Q3010 3214# 3220 Q3050 3225# 3229 Q3100 3239# 3246 Q3200 3256# 3262 Q3300 3271# 3278 Q3400 3288# 3295 Q3500 3304# 3309 Q3600 3319# 3325 Q3700 3334# 3339 Q4000 3349# 3354 Q4100 3363# 3368 Q4200 3378# 3383 Q4300 3392# 3397 Q4400 3407# 3412 Q4410 3417# 3424 Q4500 3432# 3437 Q4600 3442# 3451 Q4700 3456# 3467 Q500 1809# Q5000 3471# 3480 Q5100 3485# 3497 Q5150 3502# 3506 Q5200 3514# Q5300 3789# SEQ 0239 Q5400 4101# Q5500 4410# Q5600 4719# 4723 Q5700 4730# 4736 Q600 1963# Q6000 4742# Q6100 4944# Q6200 5110# Q6300 5271# Q6400 5474# Q6500 5631# Q6600 5792# Q6700 5995# Q700 2274# Q7000 6161# Q7100 6320# 6327 Q7200 6333# Q7300 6547# Q7400 6723# Q7500 6885# 6892 Q7600 6899# 6907 Q7700 6913# 6920 QUEST 1009# RADIX 1012# RADLSC 1014# RADLSP 1013# RANDBS 847# REENTR 827# RELIAB 589# RENTR1 73 1132# REPT 803# REPT1 803# REPTU 925# REQSET 803# RESRT1 72 902# RESRT2 903# RETURN 834# RSTART 578# RTP 1007# RUNFLG 874# SAC 1166# 1168 1169 1170 1171 1179 1184# 1186 1187 1188 1189 1198 1235 1251 1267 1283 1299 1315 1331 1347 1363 1379 1395 1411 1427 1443 1459 1475 1491 1507 1543 1559 1575 1591 1607 1623 1639 1655 1671 1687 1703 1719 1735 1751 1767 1783 1799 1837 1852 1867 1882 1897 1912 1927 1942 1957 1993 2009 2025 2041 2057 2073 2089 2105 2121 2137 2153 2169 2185 2201 2217 2233 2249 2265 2306 2323 2365 2383 2401 2419 2437 2455 2473 2491 2532 2550 2568 2586 2604 2622 2640 2658 2676 2717 2735 2753 2771 2789 2807 2825 2843 2861 2901 2918 2935 2952 2969 2986 3003 3020 3033 3050 3065 3080 3095 3108 3123 3136 3150 3163 3177 3190 3204 3210 3211 3212 3213 3220 3229 3246 3262 3278 3295 3309 3325 3339 3354 3368 3383 3397 3412 3424 3437 3451 3467 3480 3497 3506 3542 3557 3572 3587 3602 3617 3632 3647 3662 3677 3692 3707 3722 3737 3752 3767 3782 3819 3835 3851 3867 3883 3899 3915 3931 3947 3963 3979 3995 4011 4027 4043 4059 4075 SEQ 0240 4091 4131 4147 4163 4179 4195 4211 4227 4243 4259 4275 4291 4307 4323 4339 4355 4371 4387 4403 4440 4456 4472 4488 4504 4520 4536 4552 4568 4584 4600 4616 4632 4648 4664 4680 4696 4712 4723 4736 4776 4794 4812 4830 4848 4866 4884 4902 4920 4938 4978 4996 5014 5032 5050 5068 5086 5104 5142 5159 5176 5193 5210 5227 5244 5261 5305 5323 5341 5359 5377 5395 5413 5431 5449 5467 5506 5523 5540 5557 5574 5591 5608 5625 5663 5680 5697 5714 5731 5748 5765 5782 5826 5844 5862 5880 5898 5916 5934 5952 5970 5988 6029 6047 6065 6083 6101 6119 6137 6155 6193 6210 6227 6244 6261 6278 6295 6312 6327 6369 6388 6407 6426 6445 6464 6483 6502 6521 6540 6583 6602 6621 6640 6659 6678 6697 6716 6755 6772 6789 6806 6823 6840 6857 6874 6892 6907 6920 6934 6946 6958 6971 6984 6997 7010 7023 7036 7042# 7044 7045 7046 7047 7068 7074# 7076 7077 7078 7079 7112 7126 7140 7154 7168 7181 7195 7209 7223 7237 7251 7265 7271# 7273 7274 7275 7276 7298 7304# 7306 7307 7308 7309 7346 7362 7378 7394 7410 7426 7440 7454 7463 7477 7504 7531 7558 7583 7598 7613 7628 7643 7658 7673 7679# 7681 7682 7683 7684 7707 7713# 7715 7716 7717 7718 7760 7779 7798 7817 7836 7860# 7862 7863 7864 7865 7881 7893 7909 7925 7941 7957 7973 7989 7995# 7997 7998 7999 8000 8023 8029# 8031 8032 8033 8034 8082 8105 8128 8153 8174 8194 8210 8226 8242 8270 8298 8326 SADR1 71# 823 SADR10 80# 839 SADR11 81# 840 SADR2 72# 825 SADR3 73# 827 SADR4 74# SADR5 75# 888 SADR6 76# 889 SADR7 77# 836 SADR8 78# 837 SADR9 79# 838 SBINIT 651 833# SCOPE 926# SFSTRT 823# SLASH 1010# SM10 1114# 7473 7482 7500 7509 7527 7536 7554 7563 8238 8247 8266 8275 8294 8303 8322 8331 SN 1201# 1226 1226# 1234 1242 1242# 1250 1258 1258# 1266 1274 1274# 1282 1290 1290# 1298 1306 1306# 1314 1322 1322# 1330 1338 1338# 1346 1354 1354# 1362 1370 1370# 1378 1386 1386# 1394 1402 1402# 1410 1418 1418# 1426 1434 1434# 1442 1450 1450# 1458 1466 1466# 1474 1482 1482# 1490 1498 1498# 1506 1510# 1534 1534# 1542 1550 1550# 1558 1566 1566# 1574 1582 1582# 1590 1598 1598# 1606 1614 1614# 1622 1630 1630# 1638 1646 1646# 1654 1662 1662# 1670 1678 1678# 1686 1694 1694# 1702 1710 1710# 1718 1726 1726# 1734 1742 1742# 1750 1758 1758# 1766 1774 1774# 1782 1790 1790# 1798 1805# 1829 1829# 1836 1844 1844# 1851 1859 1859# 1866 1874 1874# 1881 1889 1889# 1896 1904 1904# 1911 1919 1919# 1926 1934 1934# 1941 1949 1949# 1956 1960# 1984 1984# 1992 2000 2000# 2008 2016 2016# 2024 2032 2032# 2040 2048 2048# 2056 2064 2064# 2072 2080 2080# 2088 2096 2096# 2104 2112 2112# 2120 2128 2128# 2136 2144 2144# 2152 2160 2160# 2168 2176 2176# 2184 2192 2192# 2200 2208 2208# 2216 2224 2224# 2232 2240 2240# 2248 2256 2256# 2264 2270# 2296 2296# 2305 2313 2313# 2322 2326# 2354 2354# 2364 2372 2372# 2382 2390 2390# 2400 2408 2408# 2418 2426 2426# 2436 2444 2444# 2454 2462 2462# 2472 2480 2480# 2490 2493# 2521 2521# 2531 2539 2539# 2549 2557 2557# 2567 2575 2575# 2585 2593 2593# 2603 SEQ 0241 2611 2611# 2621 2629 2629# 2639 2647 2647# 2657 2665 2665# 2675 2680# 2706 2706# 2716 2724 2724# 2734 2742 2742# 2752 2760 2760# 2770 2778 2778# 2788 2796 2796# 2806 2814 2814# 2824 2832 2832# 2842 2850 2850# 2860 2864# 2891 2891# 2900 2908 2908# 2917 2925 2925# 2934 2942 2942# 2951 2959 2959# 2968 2976 2976# 2985 2993 2993# 3002 3010 3010# 3019 3510# 3534 3534# 3541 3549 3549# 3556 3564 3564# 3571 3579 3579# 3586 3594 3594# 3601 3609 3609# 3616 3624 3624# 3631 3639 3639# 3646 3654 3654# 3661 3669 3669# 3676 3684 3684# 3691 3699 3699# 3706 3714 3714# 3721 3729 3729# 3736 3744 3744# 3751 3759 3759# 3766 3774 3774# 3781 3785# 3810 3810# 3818 3826 3826# 3834 3842 3842# 3850 3858 3858# 3866 3874 3874# 3882 3890 3890# 3898 3906 3906# 3914 3922 3922# 3930 3938 3938# 3946 3954 3954# 3962 3970 3970# 3978 3986 3986# 3994 4002 4002# 4010 4018 4018# 4026 4034 4034# 4042 4050 4050# 4058 4066 4066# 4074 4082 4082# 4090 4097# 4122 4122# 4130 4138 4138# 4146 4154 4154# 4162 4170 4170# 4178 4186 4186# 4194 4202 4202# 4210 4218 4218# 4226 4234 4234# 4242 4250 4250# 4258 4266 4266# 4274 4282 4282# 4290 4298 4298# 4306 4314 4314# 4322 4330 4330# 4338 4346 4346# 4354 4362 4362# 4370 4378 4378# 4386 4394 4394# 4402 4406# 4431 4431# 4439 4447 4447# 4455 4463 4463# 4471 4479 4479# 4487 4495 4495# 4503 4511 4511# 4519 4527 4527# 4535 4543 4543# 4551 4559 4559# 4567 4575 4575# 4583 4591 4591# 4599 4607 4607# 4615 4623 4623# 4631 4639 4639# 4647 4655 4655# 4663 4671 4671# 4679 4687 4687# 4695 4703 4703# 4711 4738# 4765 4765# 4775 4783 4783# 4793 4801 4801# 4811 4819 4819# 4829 4837 4837# 4847 4855 4855# 4865 4873 4873# 4883 4891 4891# 4901 4909 4909# 4919 4927 4927# 4937 4941# 4967 4967# 4977 4985 4985# 4995 5003 5003# 5013 5021 5021# 5031 5039 5039# 5049 5057 5057# 5067 5075 5075# 5085 5093 5093# 5103 5106# 5132 5132# 5141 5149 5149# 5158 5166 5166# 5175 5183 5183# 5192 5200 5200# 5209 5217 5217# 5226 5234 5234# 5243 5251 5251# 5260 5267# 5294 5294# 5304 5312 5312# 5322 5330 5330# 5340 5348 5348# 5358 5366 5366# 5376 5384 5384# 5394 5402 5402# 5412 5420 5420# 5430 5438 5438# 5448 5456 5456# 5466 5470# 5496 5496# 5505 5513 5513# 5522 5530 5530# 5539 5547 5547# 5556 5564 5564# 5573 5581 5581# 5590 5598 5598# 5607 5615 5615# 5624 5627# 5653 5653# 5662 5670 5670# 5679 5687 5687# 5696 5704 5704# 5713 5721 5721# 5730 5738 5738# 5747 5755 5755# 5764 5772 5772# 5781 5788# 5815 5815# 5825 5833 5833# 5843 5851 5851# 5861 5869 5869# 5879 5887 5887# 5897 5905 5905# 5915 5923 5923# 5933 5941 5941# 5951 5959 5959# 5969 5977 5977# 5987 5991# 6018 6018# 6028 6036 6036# 6046 6054 6054# 6064 6072 6072# 6082 6090 6090# 6100 6108 6108# 6118 6126 6126# 6136 6144 6144# 6154 6157# 6183 6183# 6192 6200 6200# 6209 6217 6217# 6226 6234 6234# 6243 6251 6251# 6260 6268 6268# 6277 6285 6285# 6294 6302 6302# 6311 6329# 6357 6357# 6368 6376 6376# 6387 6395 6395# 6406 6414 6414# 6425 6433 6433# 6444 6452 6452# 6463 6471 6471# 6482 6490 6490# 6501 6509 6509# 6520 6528 6528# 6539 6543# 6571 6571# 6582 6590 6590# 6601 6609 6609# 6620 6628 6628# 6639 6647 6647# 6658 6666 6666# 6677 6685 6685# 6696 6704 6704# 6715 6719# 6745 6745# 6754 6762 6762# 6771 6779 6779# 6788 6796 6796# 6805 6813 6813# 6822 6830 6830# 6839 6847 6847# 6856 6864 6864# 6873 7082# 7100 7100# 7109 7111 7114 7114# 7123 7125 7128 7128# 7137 7139 7142 7142# 7151 7153 7156 7156# 7165 7167 7312# 7332 7332# 7343 7345 7348 7348# 7359 7361 7364 7364# 7375 7377 7380 7380# 7391 7393 7396 7396# 7407 7409 7721# 7746 7746# 7754 7759 7765 7765# 7773 7778 7784 7784# 7792 7797 7803 7803# 7811 7816 7822 7822# 7830 7835 8037# 8066 8066# 8078 8080 8089 8089# 8101 8103 8112 8112# 8124 8126 8135 8135# 8147 8149 8158 8158# 8170 8172 SNTRP 803# SPACE 999# SPDES 8444# SEQ 0242 SRTDDT 74 829# START 817 1151# START1 836# START2 837# START3 838# START4 839# START5 840# STARTA 832 1155# STRP 803# SUBLNK 613# 833 SWPTAB 1120# SWTEXR 848# SYSEXR 821# TAB 1000# TESTPC 875# 1169 1187 3211 7045 7077 7274 7307 7682 7716 7863 7998 8032 TICKS 878# TLET 1153 8418 8441# TN0 803# TN1 803# TOTALS 579# TRP3TP 803# TSTWD 3215 3217 3419 3421 6941 6943 7588 7589 7592 7593 7603 7604 7607 7608 7618 7619 7622 7623 7633 7634 7637 7638 7648 7649 7652 7653 7663 7664 7667 7668 7690 7691 7694 7695 7898 7903 7904 7914 7919 7920 7930 7935 7936 7946 7951 7952 7962 7967 7968 7978 7983 7984 8005 8010 8011 8183 8188 8189 8199 8204 8205 8215 8220 8221 8233 8261 8289 8317 8343# TTNBRF 1058# TTYFIL 974# TTYSPD 975# TXTINH 590# 8402 UBAVEC 803# USER 865# USERF 803# 7471 7498 7525 7552 8236 8264 8292 8320 USRASB 57# 855 USRCRF 984# USRLFF 983# UUODIS 937# UUOEXT 893# 8489 UUORTN 894# UUOSKP 891# WW 2867# 2894 2894# 2897 2911 2911# 2914 2928 2928# 2931 2945 2945# 2948 2962 2962# 2965 2979 2979# 2982 2996 2996# 2999 3013 3013# 3016 XX 1202# 1227 1227# 1230 1243 1243# 1246 1259 1259# 1262 1275 1275# 1278 1291 1291# 1294 1307 1307# 1310 1323 1323# 1326 1339 1339# 1342 1355 1355# 1358 1371 1371# 1374 1387 1387# 1390 1403 1403# 1406 1419 1419# 1422 1435 1435# 1438 1451 1451# 1454 1467 1467# 1470 1483 1483# 1486 1499 1499# 1502 1535 1535# 1538 1551 1551# 1554 1567 1567# 1570 1583 1583# 1586 1599 1599# 1602 1615 1615# 1618 1631 1631# 1634 1647 1647# 1650 1663 1663# 1666 1679 1679# 1682 1695 1695# 1698 1711 1711# 1714 1727 1727# 1730 1743 1743# 1746 1759 1759# 1762 1775 1775# 1778 1791 1791# 1794 1806# 1830 1830# 1832 1845 1845# 1847 1860 1860# 1862 1875 1875# 1877 1890 1890# 1892 1905 1905# 1907 1920 1920# 1922 1935 1935# 1937 1950 1950# 1952 1985 1985# 1988 2001 2001# 2004 2017 2017# 2020 2033 2033# 2036 2049 2049# 2052 2065 2065# 2068 2081 2081# SEQ 0243 2084 2097 2097# 2100 2113 2113# 2116 2129 2129# 2132 2145 2145# 2148 2161 2161# 2164 2177 2177# 2180 2193 2193# 2196 2209 2209# 2212 2225 2225# 2228 2241 2241# 2244 2257 2257# 2260 2271# 2297 2297# 2300 2314 2314# 2317 2327# 2355 2355# 2359 2373 2373# 2377 2391 2391# 2395 2409 2409# 2413 2427 2427# 2431 2445 2445# 2449 2463 2463# 2467 2481 2481# 2485 2494# 2522 2522# 2526 2540 2540# 2544 2558 2558# 2562 2576 2576# 2580 2594 2594# 2598 2612 2612# 2616 2630 2630# 2634 2648 2648# 2652 2666 2666# 2670 2707 2707# 2711 2725 2725# 2729 2743 2743# 2747 2761 2761# 2765 2779 2779# 2783 2797 2797# 2801 2815 2815# 2819 2833 2833# 2837 2851 2851# 2855 2865# 2892 2892# 2895 2909 2909# 2912 2926 2926# 2929 2943 2943# 2946 2960 2960# 2963 2977 2977# 2980 2994 2994# 2997 3011 3011# 3014 3511# 3535 3535# 3537 3550 3550# 3552 3565 3565# 3567 3580 3580# 3582 3595 3595# 3597 3610 3610# 3612 3625 3625# 3627 3640 3640# 3642 3655 3655# 3657 3670 3670# 3672 3685 3685# 3687 3700 3700# 3702 3715 3715# 3717 3730 3730# 3732 3745 3745# 3747 3760 3760# 3762 3775 3775# 3777 3786# 3811 3811# 3813 3813# 3814 3827 3827# 3829 3830 3843 3843# 3845 3846 3859 3859# 3861 3862 3875 3875# 3877 3878 3891 3891# 3893 3894 3907 3907# 3909 3910 3923 3923# 3925 3926 3939 3939# 3941 3942 3955 3955# 3957 3958 3971 3971# 3973 3974 3987 3987# 3989 3990 4003 4003# 4005 4006 4019 4019# 4021 4022 4035 4035# 4037 4038 4051 4051# 4053 4054 4067 4067# 4069 4070 4083 4083# 4085 4086 4098# 4123 4123# 4125 4125# 4126 4139 4139# 4141 4142 4155 4155# 4157 4158 4171 4171# 4173 4174 4187 4187# 4189 4190 4203 4203# 4205 4206 4219 4219# 4221 4222 4235 4235# 4237 4238 4251 4251# 4253 4254 4267 4267# 4269 4270 4283 4283# 4285 4286 4299 4299# 4301 4302 4315 4315# 4317 4318 4331 4331# 4333 4334 4347 4347# 4349 4350 4363 4363# 4365 4366 4379 4379# 4381 4382 4395 4395# 4397 4398 4407# 4432 4432# 4434 4434# 4435 4448 4448# 4450 4451 4464 4464# 4466 4467 4480 4480# 4482 4483 4496 4496# 4498 4499 4512 4512# 4514 4515 4528 4528# 4530 4531 4544 4544# 4546 4547 4560 4560# 4562 4563 4576 4576# 4578 4579 4592 4592# 4594 4595 4608 4608# 4610 4611 4624 4624# 4626 4627 4640 4640# 4642 4643 4656 4656# 4658 4659 4672 4672# 4674 4675 4688 4688# 4690 4691 4704 4704# 4706 4707 4739# 4766 4766# 4769 4784 4784# 4787 4802 4802# 4805 4820 4820# 4823 4838 4838# 4841 4856 4856# 4859 4874 4874# 4877 4892 4892# 4895 4910 4910# 4913 4928 4928# 4931 4942# 4968 4968# 4970 4970# 4971 4986 4986# 4988 4989 5004 5004# 5006 5007 5022 5022# 5024 5025 5040 5040# 5042 5043 5058 5058# 5060 5061 5076 5076# 5078 5079 5094 5094# 5096 5097 5107# 5133 5133# 5136 5150 5150# 5153 5167 5167# 5170 5184 5184# 5187 5201 5201# 5204 5218 5218# 5221 5235 5235# 5238 5252 5252# 5255 5268# 5295 5295# 5299 5313 5313# 5317 5331 5331# 5335 5349 5349# 5353 5367 5367# 5371 5385 5385# 5389 5403 5403# 5407 5421 5421# 5425 5439 5439# 5443 5457 5457# 5461 5471# 5497 5497# 5499 5499# 5500 5514 5514# 5516 5517 5531 5531# 5533 5534 5548 5548# 5550 5551 5565 5565# 5567 5568 5582 5582# 5584 5585 5599 5599# 5601 5602 5616 5616# 5618 5619 5628# 5654 5654# 5657 5671 5671# 5674 5688 5688# 5691 5705 5705# 5708 5722 5722# 5725 5739 5739# 5742 5756 5756# 5759 5773 5773# 5776 5789# 5816 5816# 5820 5834 5834# 5838 5852 5852# 5856 5870 5870# 5874 5888 5888# 5892 5906 5906# 5910 5924 5924# 5928 5942 5942# 5946 5960 5960# 5964 5978 5978# 5982 5992# 6019 6019# 6021 6021# 6022 6037 6037# 6039 6040 6055 6055# 6057 6058 6073 6073# 6075 6076 6091 6091# 6093 6094 6109 6109# 6111 6112 6127 6127# 6129 6130 6145 6145# 6147 6148 6158# 6184 6184# 6187 6201 6201# 6204 6218 6218# 6221 6235 6235# 6238 6252 6252# 6255 6269 6269# 6272 6286 6286# 6289 6303 6303# 6306 6330# 6358 6358# 6362 6377 6377# 6381 6396 6396# 6400 6415 6415# 6419 6434 6434# 6438 6453 6453# 6457 6472 6472# 6476 6491 6491# 6495 6510 6510# 6514 6529 6529# 6533 6544# 6572 6572# 6574 6574# 6575 6591 6591# 6593 6594 6610 6610# 6612 6613 6629 6629# 6631 6632 6648 6648# 6650 SEQ 0244 6651 6667 6667# 6669 6670 6686 6686# 6688 6689 6705 6705# 6707 6708 6720# 6746 6746# 6749 6763 6763# 6766 6780 6780# 6783 6797 6797# 6800 6814 6814# 6817 6831 6831# 6834 6848 6848# 6851 6865 6865# 6868 YY 1203# 1228 1228# 1229 1229# 1231 1244 1244# 1245 1247 1260 1260# 1261 1263 1276 1276# 1277 1279 1292 1292# 1293 1295 1308 1308# 1309 1311 1324 1324# 1325 1327 1340 1340# 1341 1343 1356 1356# 1357 1359 1372 1372# 1373 1375 1388 1388# 1389 1391 1404 1404# 1405 1407 1420 1420# 1421 1423 1436 1436# 1437 1439 1452 1452# 1453 1455 1468 1468# 1469 1471 1484 1484# 1485 1487 1500 1500# 1501 1503 1511# 1536 1536# 1537 1537# 1539 1552 1552# 1553 1555 1568 1568# 1569 1571 1584 1584# 1585 1587 1600 1600# 1601 1603 1616 1616# 1617 1619 1632 1632# 1633 1635 1648 1648# 1649 1651 1664 1664# 1665 1667 1680 1680# 1681 1683 1696 1696# 1697 1699 1712 1712# 1713 1715 1728 1728# 1729 1731 1744 1744# 1745 1747 1760 1760# 1761 1763 1776 1776# 1777 1779 1792 1792# 1793 1795 1807# 1831 1831# 1833 1846 1846# 1848 1861 1861# 1863 1876 1876# 1878 1891 1891# 1893 1906 1906# 1908 1921 1921# 1923 1936 1936# 1938 1951 1951# 1953 1961# 1986 1986# 1987 1987# 1989 2002 2002# 2003 2005 2018 2018# 2019 2021 2034 2034# 2035 2037 2050 2050# 2051 2053 2066 2066# 2067 2069 2082 2082# 2083 2085 2098 2098# 2099 2101 2114 2114# 2115 2117 2130 2130# 2131 2133 2146 2146# 2147 2149 2162 2162# 2163 2165 2178 2178# 2179 2181 2194 2194# 2195 2197 2210 2210# 2211 2213 2226 2226# 2227 2229 2242 2242# 2243 2245 2258 2258# 2259 2261 2328# 2356 2356# 2358 2358# 2360 2374 2374# 2376 2378 2392 2392# 2394 2396 2410 2410# 2412 2414 2428 2428# 2430 2432 2446 2446# 2448 2450 2464 2464# 2466 2468 2482 2482# 2484 2486 2495# 2523 2523# 2525 2525# 2527 2541 2541# 2543 2545 2559 2559# 2561 2563 2577 2577# 2579 2581 2595 2595# 2597 2599 2613 2613# 2615 2617 2631 2631# 2633 2635 2649 2649# 2651 2653 2667 2667# 2669 2671 2708 2708# 2712 2726 2726# 2730 2744 2744# 2748 2762 2762# 2766 2780 2780# 2784 2798 2798# 2802 2816 2816# 2820 2834 2834# 2838 2852 2852# 2856 3512# 3536 3536# 3538 3551 3551# 3553 3566 3566# 3568 3581 3581# 3583 3596 3596# 3598 3611 3611# 3613 3626 3626# 3628 3641 3641# 3643 3656 3656# 3658 3671 3671# 3673 3686 3686# 3688 3701 3701# 3703 3716 3716# 3718 3731 3731# 3733 3746 3746# 3748 3761 3761# 3763 3776 3776# 3778 3787# 3812 3812# 3815 3828 3828# 3831 3844 3844# 3847 3860 3860# 3863 3876 3876# 3879 3892 3892# 3895 3908 3908# 3911 3924 3924# 3927 3940 3940# 3943 3956 3956# 3959 3972 3972# 3975 3988 3988# 3991 4004 4004# 4007 4020 4020# 4023 4036 4036# 4039 4052 4052# 4055 4068 4068# 4071 4084 4084# 4087 4099# 4124 4124# 4127 4140 4140# 4143 4156 4156# 4159 4172 4172# 4175 4188 4188# 4191 4204 4204# 4207 4220 4220# 4223 4236 4236# 4239 4252 4252# 4255 4268 4268# 4271 4284 4284# 4287 4300 4300# 4303 4316 4316# 4319 4332 4332# 4335 4348 4348# 4351 4364 4364# 4367 4380 4380# 4383 4396 4396# 4399 4408# 4433 4433# 4436 4449 4449# 4452 4465 4465# 4468 4481 4481# 4484 4497 4497# 4500 4513 4513# 4516 4529 4529# 4532 4545 4545# 4548 4561 4561# 4564 4577 4577# 4580 4593 4593# 4596 4609 4609# 4612 4625 4625# 4628 4641 4641# 4644 4657 4657# 4660 4673 4673# 4676 4689 4689# 4692 4705 4705# 4708 4740# 4767 4767# 4768 4768# 4772 4785 4785# 4786 4790 4803 4803# 4804 4808 4821 4821# 4822 4826 4839 4839# 4840 4844 4857 4857# 4858 4862 4875 4875# 4876 4880 4893 4893# 4894 4898 4911 4911# 4912 4916 4929 4929# 4930 4934 4943# 4969 4969# 4974 4987 4987# 4992 5005 5005# 5010 5023 5023# 5028 5041 5041# 5046 5059 5059# 5064 5077 5077# 5082 5095 5095# 5100 5108# 5134 5134# 5135 5135# 5138 5151 5151# 5152 5155 5168 5168# 5169 5172 5185 5185# 5186 5189 5202 5202# 5203 5206 5219 5219# 5220 5223 5236 5236# 5237 5240 5253 5253# 5254 5257 5269# 5296 5296# 5297 5297# 5301 5314 5314# 5315 5319 5332 5332# 5333 5337 5350 5350# 5351 5355 5368 5368# 5369 5373 5386 5386# 5387 5391 5404 5404# 5405 5409 5422 5422# 5423 5427 5440 5440# 5441 SEQ 0245 5445 5458 5458# 5459 5463 5472# 5498 5498# 5502 5515 5515# 5519 5532 5532# 5536 5549 5549# 5553 5566 5566# 5570 5583 5583# 5587 5600 5600# 5604 5617 5617# 5621 5629# 5655 5655# 5656 5656# 5658 5672 5672# 5673 5675 5689 5689# 5690 5692 5706 5706# 5707 5709 5723 5723# 5724 5726 5740 5740# 5741 5743 5757 5757# 5758 5760 5774 5774# 5775 5777 5790# 5817 5817# 5818 5818# 5822 5835 5835# 5836 5840 5853 5853# 5854 5858 5871 5871# 5872 5876 5889 5889# 5890 5894 5907 5907# 5908 5912 5925 5925# 5926 5930 5943 5943# 5944 5948 5961 5961# 5962 5966 5979 5979# 5980 5984 5993# 6020 6020# 6024 6038 6038# 6042 6056 6056# 6060 6074 6074# 6078 6092 6092# 6096 6110 6110# 6114 6128 6128# 6132 6146 6146# 6150 6159# 6185 6185# 6186 6186# 6188 6202 6202# 6203 6205 6219 6219# 6220 6222 6236 6236# 6237 6239 6253 6253# 6254 6256 6270 6270# 6271 6273 6287 6287# 6288 6290 6304 6304# 6305 6307 6331# 6359 6359# 6360 6360# 6364 6378 6378# 6379 6383 6397 6397# 6398 6402 6416 6416# 6417 6421 6435 6435# 6436 6440 6454 6454# 6455 6459 6473 6473# 6474 6478 6492 6492# 6493 6497 6511 6511# 6512 6516 6530 6530# 6531 6535 6545# 6573 6573# 6578 6592 6592# 6597 6611 6611# 6616 6630 6630# 6635 6649 6649# 6654 6668 6668# 6673 6687 6687# 6692 6706 6706# 6711 6721# 6747 6747# 6748 6748# 6751 6764 6764# 6765 6768 6781 6781# 6782 6785 6798 6798# 6799 6802 6815 6815# 6816 6819 6832 6832# 6833 6836 6849 6849# 6850 6853 6866 6866# 6867 6870 ZZ 2272# 2298 2298# 2299 2299# 2302 2315 2315# 2316 2319 2329# 2357 2357# 2361 2375 2375# 2379 2393 2393# 2397 2411 2411# 2415 2429 2429# 2433 2447 2447# 2451 2465 2465# 2469 2483 2483# 2487 2496# 2524 2524# 2528 2542 2542# 2546 2560 2560# 2564 2578 2578# 2582 2596 2596# 2600 2614 2614# 2618 2632 2632# 2636 2650 2650# 2654 2668 2668# 2672 2681# 2709 2709# 2710 2710# 2713 2727 2727# 2728 2731 2745 2745# 2746 2749 2763 2763# 2764 2767 2781 2781# 2782 2785 2799 2799# 2800 2803 2817 2817# 2818 2821 2835 2835# 2836 2839 2853 2853# 2854 2857 2866# 2893 2893# 2896 2910 2910# 2913 2927 2927# 2930 2944 2944# 2947 2961 2961# 2964 2978 2978# 2981 2995 2995# 2998 3012 3012# 3015 $$MUUO 1089# $$OUTE 1095# $$TAX1 1107# $$TAX2 1108# $$TOGG 1101# $$UUO 1078# $ACC0 916# $ACF 8445# $BEND1 886# $BEND2 75 887# 8498 $CHRIN 977# $CRLF 979# $DEVCH 803# $DSKUP 856# $DVOFF 973# $EMODE 854# $FFF 981# $IBUF 1029# $INEXT 1031# $INNM 1030# $ITRHL 897# $ITRX1 898# $LPAPE 8504 $MMAP 857# $MODVL 852# SEQ 0246 $MODVU 853# $OBUF 1020# $ONETM 880# $OUTEX 1022# $OUTNM 1021# $PAPER 803 $PARER 904# $PNAME 850# $PSHER 908# $PVER 851# $RSRTX 900# $RSRTY 901# $SPAG1 920# $START 817# $SVAPR 918# $SVPAG 919# $SVPI 917# $SVUPC 923# 8352 8356 8382 $SVUUO 922# 8361 8393 8421 $TABF 980# $TTCHR 976# $TWCNT 972# $TYPNB 978# $UMODE 855# $UORTX 895# $USRHL 899# $UUOER 896# 937 $VTF 982# %AC1F 8446# %ACS1A 8363# 8363 8407 %ACTFL 929# %ACTUL 930# %ALF 8451# %AR1F 8450# %ARF 8449# %COREC 928# %CORFL 927# %DISCR 931# %E1F 8448# %EEF 8452# %EF 8447# %ER4X 8427 8432# %ER5X 8425 8434# %ER6X 8423 8436# %ER7X 8429# 8433 8435 8437 %ERAC0 8348# 8348 8364 8398 8488 %ERAC1 8349# 8349 8365 8476 %ERAC2 8350# 8350 8475 %ERFST 8371# 8371 8373 %ERHI1 1070# %ERHI2 1071# %ERHI3 1072# %ERMOR 8403 8430 8459# SEQ 0247 %ERMS1 8368# 8494 %ERMS2 8391# %ERMS3 8409 8416# %ERRS1 8360 8462# 8493 %ERRS2 8475# %ERRS4 8367 8491# %ERRS5 8479 8483 8488# %ERRS6 8486 8496# %FF 8453# %FLTTB 8411 8442# %NODES 8443# %SV17 7050# 7050 7060 7065 7067 7279 7290 7295 7297 7687 7699 7704 7706 8015 8020 8022 .JB41 803# .JBAPR 803# .JBCNI 803# .JBDDT 803# .JBFF 803# .JBOPC 803# .JBREL 803# .JBREN 803# .JBSA 803# .JBSYM 803# .JBTPC 803# .JBUSY 803# .JBUUO 803# .JBVER 803# APRID 803# BCIO 803# SEQ 0248 BCIOB 803# BSIO 803# BSIOB 803# CFLUSH 763# CINVAL 762# CLOKOP 757# CLRPT 803# CWRTBI 764# DFA 417# DFARP 460# DFD 450# DFM 439# DFS 428# DMVE 91# 6960 6973 6986 6999 7012 7025 DMVE17 113# 7049 DMVM 253# 7585 7600 7615 7630 7645 7660 DMVM17 305# 7686 DMVN 141# 7183 7197 7211 7225 7239 7253 7414 7428 7442 DMVN17 171# 7278 DMVNF 209# 7465 7492 7519 7546 DMVNM 278# 7895 7911 7927 7943 7959 7975 8180 8196 8212 DMVNM1 337# 8002 DMVNMF 372# 8229 8257 8285 8313 DROPDV 724# 1132 ENDUUO 770# 885 EOPUUO 771# 887 ER1 29# ER10 36# ER11 37# ER12 38# ER13 39# 3436 3450 3466 3479 3496 7462 7476 7480 7485 7488 7503 7507 7512 7515 7530 7534 7539 7542 7557 7561 7566 7569 7880 8241 8245 8250 8253 8269 8273 8278 8281 8297 8301 8306 8309 8325 8329 8334 8337 ER2 30# ER3 31# 1197 1234 1250 1266 1282 1298 1314 1330 1346 1362 1378 1394 1410 1426 1442 1458 1474 1490 1506 1542 1558 1574 1590 1606 1622 1638 1654 1670 1686 1702 1718 1734 1750 1766 1782 1798 1836 1851 1866 1881 1896 1911 1926 1941 1956 1992 2008 2024 2040 2056 2072 2088 2104 2120 2136 2152 2168 2184 2200 2216 2232 2248 2264 2305 2322 2364 2382 2400 2418 2436 2454 2472 2490 2531 2549 2567 2585 2603 2621 2639 2657 2675 2716 2734 2752 2770 2788 2806 2824 2842 2860 2900 2917 2934 2951 2968 2985 3002 3019 3032 3049 3064 3079 3094 3107 3122 3135 3149 3162 3176 3189 3203 3219 3245 3261 3277 3294 3308 3324 3338 3353 3367 3382 3396 3411 3423 3447 3462 3476 3492 3541 3556 3571 3586 3601 3616 3631 3646 3661 3676 3691 3706 3721 3736 3751 3766 3781 3818 3834 3850 3866 3882 3898 3914 3930 3946 3962 3978 3994 4010 4026 4042 4058 4074 4090 4130 4146 4162 4178 4194 4210 4226 4242 4258 4274 4290 4306 4322 4338 4354 4370 4386 4402 4439 4455 4471 4487 4503 4519 4535 4551 4567 4583 4599 4615 4631 4647 4663 4679 4695 4711 4722 4735 4775 4793 4811 4829 4847 4865 4883 4901 4919 4937 4977 4995 5013 5031 5049 5067 5085 5103 5141 5158 5175 5192 5209 5226 5243 5260 5304 5322 5340 5358 5376 5394 5412 5430 5448 5466 5505 5522 5539 5556 5573 5590 5607 5624 5662 5679 5696 5713 5730 5747 5764 5781 5825 5843 5861 5879 5897 5915 5933 5951 5969 5987 SEQ 0249 6028 6046 6064 6082 6100 6118 6136 6154 6192 6209 6226 6243 6260 6277 6294 6311 6326 6368 6387 6406 6425 6444 6463 6482 6501 6520 6539 6582 6601 6620 6639 6658 6677 6696 6715 6754 6771 6788 6805 6822 6839 6856 6873 6891 6906 6919 6933 6945 6968 6981 6994 7007 7020 7033 7061 7109 7123 7137 7151 7165 7192 7206 7220 7234 7248 7262 7291 7343 7359 7375 7391 7407 7423 7437 7451 7580 7890 ER4 32# 6970 6983 6996 7009 7022 7035 7066 7111 7125 7139 7153 7167 7194 7208 7222 7236 7250 7264 7296 7345 7361 7377 7393 7409 7425 7439 7453 7582 7892 ER5 33# 1178 3228 3505 6955 7178 7595 7610 7625 7640 7655 7670 7700 7754 7773 7792 7811 7830 7875 7906 7922 7938 7954 7970 7986 8016 8078 8101 8124 8147 8170 8191 8207 8223 ER6 34# 6957 7180 7597 7612 7627 7642 7657 7672 7705 7759 7778 7797 7816 7835 7877 7908 7924 7940 7956 7972 7988 8021 8080 8103 8126 8149 8172 8193 8209 8225 ER7 35# ERRHLT 658# 8469 FATAL 657# FRD36 799# FRD8 800# FREAD 798# FSELEC 797# GET 641# GO 638# 7815 HALT 77 78 79 80 81 643# 906 JEN 645# JRSTF 644# 7871 MAPADR 780# MAPCNK 781# MAPMEM 777# MAPPNT 783# MAPSET 782# MEMSEG 779# MEMZRO 778# MODPCP 790# MODPCU 789# MTROP 758# NAME 7# 10 PBELL 733# 8473 PCRL 727# 8410 8429 PCRL2 731# PCRL2F 732# PCRLF 728# PFORCE 735# PGMINT 651# 1151 PJRST 642# PMSG 737# 8376 8380 8391 8416 PMSGF 740# 8496 PNT1 693# PNT11 707# PNT11F 708# PNT1F 694# PNT2 695# SEQ 0250 PNT2F 696# PNT3 697# 8428 PNT3F 698# PNT4 699# 8432 PNT4F 700# PNT5 701# 8434 PNT5F 702# PNT6 703# 8384 8436 PNT6F 704# PNT7 705# PNT7F 706# PNTA 679# 8419 PNTADF 710# PNTADR 709# PNTAF 680# PNTAL 681# 8412 PNTALF 682# PNTCHF 692# PNTCHR 691# PNTCI 689# PNTCIF 690# PNTCW 725# PNTCWF 726# PNTDCF 718# PNTDEC 717# 8379 PNTDS 719# PNTDSF 720# PNTHW 713# 8399 PNTHWF 714# PNTMSF 686# PNTMSG 685# PNTNM 721# 8372 PNTOCF 716# PNTOCS 715# PNTOCT 711# PNTOTF 712# PNTSIX 722# PNTSXF 723# PSIXL 683# PSIXLF 684# PSIXM 687# 8377 8381 8392 8417 PSIXMF 688# 8497 PSP 729# PSPF 730# PUT 640# RDAPR 803# RDCSB 803# RDCSTM 803# RDEBR 803# RDHSB 803# RDINT 803# RDIO 803# RDIOB 803# SEQ 0251 RDPI 803# RDPUR 803# RDSPB 803# RDTIM 803# RDUBR 803# RTN 639# 893 7845 7849 S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655 660 664 803 808 814 841 843 861 863 881 883 912 914 932 934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041 1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085 1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126 1128 SAVEAC 63# 1158# 1167 1185 3209 7043 7075 7272 7305 7680 7714 7861 7996 8030 SDFA 471# SDFARP 557# SDFD 525# SDFDKL 535# SDFM 493# SDFMKL 503# SDFS 482# SIXBTZ 746# SWITCH 752# 8358 8460 TIOE 803# TIOEB 803# TION 803# TIONB 803# TTALTM 673# 8462 TTICHR 666# TTICLR 676# TTICNV 671# TTIDEC 670# TTINO 668# TTIOCT 669# TTIYES 667# TTLOOK 672# TTSIXB 674# TTYINP 675# WRAPR 803# WRCSB 803# WRCSTM 803# WREBR 803# WRHSB 803# WRINT 803# WRIO 803# WRIOB 803# WRPI 803# WRPUR 803# WRSPB 803# WRTIM 803# WRUBR 803# ADDI 7188 7230 7419 7433 7447 ANDI 8395 SEQ 0252 AOS 891 7844 7848 8351 8354 8480 8481 ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010 1011 ASCIZ 1135 1152 8445 8446 8447 8448 8449 8450 8451 8452 8453 BLOCK 960 1020 1023 1029 1032 1038 8343 8613 BYTE 1008 CAIE 1196 1835 1850 1865 1880 1895 1910 1925 1940 1955 1991 2007 2023 2039 2055 2071 2087 2103 2119 2135 2151 2167 2183 2199 2215 2231 2247 2263 3093 3106 3121 3134 3148 3161 3175 3188 3202 3307 3323 3337 3352 3366 3381 3395 3410 CAIG 8397 8408 CAIL 8485 CALL 1133 CAME 1177 1233 1249 1265 1281 1297 1313 1329 1345 1361 1377 1393 1409 1425 1441 1457 1473 1489 1505 1541 1557 1573 1589 1605 1621 1637 1653 1669 1685 1701 1717 1733 1749 1765 1781 1797 2304 2321 2363 2381 2399 2417 2435 2453 2471 2489 2530 2548 2566 2584 2602 2620 2638 2656 2674 2715 2733 2751 2769 2787 2805 2823 2841 2859 2899 2916 2933 2950 2967 2984 3001 3018 3031 3048 3063 3078 3218 3227 3244 3260 3276 3293 3422 3446 3461 3475 3491 3504 3540 3555 3570 3585 3600 3615 3630 3645 3660 3675 3690 3705 3720 3735 3750 3765 3780 3817 3833 3849 3865 3881 3897 3913 3929 3945 3961 3977 3993 4009 4025 4041 4057 4073 4089 4129 4145 4161 4177 4193 4209 4225 4241 4257 4273 4289 4305 4321 4337 4353 4369 4385 4401 4438 4454 4470 4486 4502 4518 4534 4550 4566 4582 4598 4614 4630 4646 4662 4678 4694 4710 4721 4734 4774 4792 4810 4828 4846 4864 4882 4900 4918 4936 4976 4994 5012 5030 5048 5066 5084 5102 5140 5157 5174 5191 5208 5225 5242 5259 5303 5321 5339 5357 5375 5393 5411 5429 5447 5465 5504 5521 5538 5555 5572 5589 5606 5623 5661 5678 5695 5712 5729 5746 5763 5780 5824 5842 5860 5878 5896 5914 5932 5950 5968 5986 6027 6045 6063 6081 6099 6117 6135 6153 6191 6208 6225 6242 6259 6276 6293 6310 6325 6367 6386 6405 6424 6443 6462 6481 6500 6519 6538 6581 6600 6619 6638 6657 6676 6695 6714 6753 6770 6787 6804 6821 6838 6855 6872 6890 6905 6918 6932 6944 6954 6956 6967 6969 6980 6982 6993 6995 7006 7008 7019 7021 7032 7034 7108 7110 7122 7124 7136 7138 7150 7152 7164 7166 7177 7179 7191 7193 7205 7207 7219 7221 7233 7235 7247 7249 7261 7263 7342 7344 7358 7360 7374 7376 7390 7392 7406 7408 7422 7424 7436 7438 7450 7452 7475 7479 7484 7487 7502 7506 7511 7514 7529 7533 7538 7541 7556 7560 7565 7568 7579 7581 7594 7596 7609 7611 7624 7626 7639 7641 7654 7656 7669 7671 7753 7756 7772 7775 7791 7794 7810 7829 7832 7874 7876 7889 7891 7905 7907 7921 7923 7937 7939 7953 7955 7969 7971 7985 7987 8077 8079 8100 8102 8123 8125 8146 8148 8169 8171 8190 8192 8206 8208 8222 8224 8240 8244 8249 8252 8268 8272 8277 8280 8296 8300 8305 8308 8324 8328 8333 8336 CAMN 7057 7062 7287 7292 7696 7701 7843 7847 8012 8017 8353 DEFINE 7 63 91 113 141 171 209 253 278 305 337 372 417 428 439 450 460 471 482 493 503 525 535 557 569 737 740 746 1158 DMOVE 6953 6965 6978 6991 7004 7017 7030 7055 7107 7121 7135 7149 7163 7174 7184 7198 7212 7226 7240 7254 7280 7334 7339 7350 7355 7366 7371 7382 7387 7398 7403 7415 7429 7443 7576 7586 7590 7593 7601 7605 7608 7616 7620 7623 7631 7635 7638 7646 7650 7653 7661 7665 7668 7688 7692 7695 7748 7750 7767 7769 7786 7788 7805 7807 7824 7826 7868 7886 7896 7899 7904 7912 7915 7920 7928 7931 7936 7944 7947 7952 7960 7963 7968 7976 SEQ 0253 7979 7984 8003 8006 8011 8068 8070 8091 8093 8114 8116 8137 8139 8160 8162 8181 8184 8189 8197 8200 8205 8213 8216 8221 8231 8259 8287 8315 DMOVEM 7578 7592 7607 7622 7637 7652 7667 7694 7752 7771 7790 7809 7828 7873 7898 7914 7930 7946 7962 7978 8005 8183 8199 8215 DMOVN 7176 7189 7203 7217 7231 7245 7259 7285 7341 7357 7373 7389 7405 7420 7434 7448 7467 7494 7521 7548 7901 7917 7933 7949 7965 7981 8008 8072 8095 8118 8141 8164 8186 8202 8218 DMOVNM 7888 7903 7919 7935 7951 7967 7983 8010 8076 8099 8122 8145 8168 8188 8204 8220 8233 8261 8289 8317 END 8621 FIX 1176 1195 1232 1248 1264 1280 1296 1312 1328 1344 1360 1376 1392 1408 1424 1440 1456 1472 1488 1504 1540 1556 1572 1588 1604 1620 1636 1652 1668 1684 1700 1716 1732 1748 1764 1780 1796 1834 1849 1864 1879 1894 1909 1924 1939 1954 1990 2006 2022 2038 2054 2070 2086 2102 2118 2134 2150 2166 2182 2198 2214 2230 2246 2262 2303 2320 2362 2380 2398 2416 2434 2452 2470 2488 2529 2547 2565 2583 2601 2619 2637 2655 2673 2714 2732 2750 2768 2786 2804 2822 2840 2858 2898 2915 2932 2949 2966 2983 3000 3017 3030 3046 3061 3076 3091 3104 3119 3132 3146 3159 3173 3186 3200 3217 3445 3460 3474 3490 FIXR 3226 3242 3258 3274 3291 3305 3321 3335 3350 3364 3379 3393 3408 3421 FLTR 3503 3539 3554 3569 3584 3599 3614 3629 3644 3659 3674 3689 3704 3719 3734 3749 3764 3779 3816 3832 3848 3864 3880 3896 3912 3928 3944 3960 3976 3992 4008 4024 4040 4056 4072 4088 4128 4144 4160 4176 4192 4208 4224 4240 4256 4272 4288 4304 4320 4336 4352 4368 4384 4400 4437 4453 4469 4485 4501 4517 4533 4549 4565 4581 4597 4613 4629 4645 4661 4677 4693 4709 4720 4733 4773 4791 4809 4827 4845 4863 4881 4899 4917 4935 4975 4993 5011 5029 5047 5065 5083 5101 5139 5156 5173 5190 5207 5224 5241 5258 5302 5320 5338 5356 5374 5392 5410 5428 5446 5464 5503 5520 5537 5554 5571 5588 5605 5622 5659 5676 5693 5710 5727 5744 5761 5778 5823 5841 5859 5877 5895 5913 5931 5949 5967 5985 6025 6043 6061 6079 6097 6115 6133 6151 6189 6206 6223 6240 6257 6274 6291 6308 6323 6365 6384 6403 6422 6441 6460 6479 6498 6517 6536 6579 6598 6617 6636 6655 6674 6693 6712 6752 6769 6786 6803 6820 6837 6854 6871 6888 6903 6916 6930 6943 HRL 8356 HRLI 2896 2913 2930 2947 2964 2981 2998 3015 3028 4731 HRLOI 2713 2731 2749 2767 2785 2803 2821 2839 2857 2895 2912 2929 2946 2963 2980 2997 3014 3027 3131 3158 3172 3199 3334 3363 3378 3407 3457 4732 4771 4789 4807 4825 4843 4861 4879 4897 4915 4933 4971 4973 4989 4991 5007 5009 5025 5027 5043 5045 5061 5063 5079 5081 5097 5099 5136 5138 5153 5155 5170 5172 5187 5189 5204 5206 5221 5223 5238 5240 5255 5257 6322 6751 6768 6785 6802 6819 6836 6853 6870 6915 HRLZI 3059 3214 6929 HRRI 1989 2005 2021 2037 2053 2069 2085 2101 2117 2133 2149 2165 2181 2197 2213 2229 2245 2261 2527 2545 2563 2581 2599 2617 2635 2653 2671 2712 2730 2748 2766 2784 2802 2820 2838 2856 2897 2914 2931 2948 2965 2982 2999 3016 3029 3044 3074 3090 3118 3240 3272 3289 3320 3418 4772 4790 4808 4826 4844 4862 4880 4898 4916 4934 4972 4974 4990 4992 5008 5010 5026 5028 5044 5046 5062 5064 5080 5082 5098 5100 5137 5154 5171 5188 5205 5222 5239 5256 5299 5301 5317 5319 5335 5337 5353 5355 5371 5373 5389 5391 5407 5409 5425 5427 5443 5445 5461 5463 5502 5519 5536 5553 5570 5587 5604 5621 5820 5822 5838 5840 5856 5858 5874 5876 5892 5894 5910 5912 5928 5930 5946 5948 5964 5966 5982 5984 6024 6042 6060 6078 SEQ 0254 6096 6114 6132 6150 6321 6362 6364 6381 6383 6400 6402 6419 6421 6438 6440 6457 6459 6476 6478 6495 6497 6514 6516 6533 6535 6576 6578 6595 6597 6614 6616 6633 6635 6652 6654 6671 6673 6690 6692 6709 6711 6750 6767 6784 6801 6818 6835 6852 6869 6886 6900 6902 6940 HRROI 2302 2319 2361 2379 2397 2415 2433 2451 2469 2487 2528 2546 2564 2582 2600 2618 2636 2654 2672 3241 3420 3458 4435 4451 4467 4483 4499 4515 4531 4547 4563 4579 4595 4611 4627 4643 4659 4675 4691 4707 4769 4787 4805 4823 4841 4859 4877 4895 4913 4931 6913 6927 HRRZ 8352 8382 8421 HRRZI 1231 1247 1263 1279 1295 1311 1327 1343 1359 1375 1391 1407 1423 1439 1455 1471 1487 1503 3488 3814 3830 3846 3862 3878 3894 3910 3926 3942 3958 3974 3990 4006 4022 4038 4054 4070 4086 7104 7106 7118 7120 7132 7134 7146 7148 7160 7162 IFDEF 803 854 855 856 857 8386 8456 8612 8619 IFDIF 7189 7201 7215 7231 7243 7257 7283 7420 7434 7448 IFE 1229 1245 1261 1277 1293 1309 1325 1341 1357 1373 1389 1405 1421 1437 1453 1469 1485 1501 1537 1553 1569 1585 1601 1617 1633 1649 1665 1681 1697 1713 1729 1745 1761 1777 1793 1987 2003 2019 2035 2051 2067 2083 2099 2115 2131 2147 2163 2179 2195 2211 2227 2243 2259 2299 2316 2358 2376 2394 2412 2430 2448 2466 2484 2525 2543 2561 2579 2597 2615 2633 2651 2669 2710 2728 2746 2764 2782 2800 2818 2836 2854 3813 3829 3845 3861 3877 3893 3909 3925 3941 3957 3973 3989 4005 4021 4037 4053 4069 4085 4125 4141 4157 4173 4189 4205 4221 4237 4253 4269 4285 4301 4317 4333 4349 4365 4381 4397 4434 4450 4466 4482 4498 4514 4530 4546 4562 4578 4594 4610 4626 4642 4658 4674 4690 4706 4768 4786 4804 4822 4840 4858 4876 4894 4912 4930 4970 4988 5006 5024 5042 5060 5078 5096 5135 5152 5169 5186 5203 5220 5237 5254 5297 5315 5333 5351 5369 5387 5405 5423 5441 5459 5499 5516 5533 5550 5567 5584 5601 5618 5656 5673 5690 5707 5724 5741 5758 5775 5818 5836 5854 5872 5890 5908 5926 5944 5962 5980 6021 6039 6057 6075 6093 6111 6129 6147 6186 6203 6220 6237 6254 6271 6288 6305 6360 6379 6398 6417 6436 6455 6474 6493 6512 6531 6574 6593 6612 6631 6650 6669 6688 6707 6748 6765 6782 6799 6816 6833 6850 6867 7757 7776 7795 7814 7833 8073 8083 8096 8106 8119 8129 8142 8152 8165 8175 IFIDN 7187 7189 7201 7215 7229 7231 7243 7257 7283 7418 7420 7432 7446 IFN 7755 7774 7793 7812 7831 8081 8104 8127 8150 8173 IFNDEF 792 793 803 854 855 856 857 936 8504 JFCL 894 895 896 897 898 899 900 901 902 903 904 905 7459 7466 7493 7520 7547 8230 8258 8286 8314 JOV 3432 3434 3442 3449 3456 3464 3471 3478 3485 3494 JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833 886 1155 3435 3465 3495 7058 7063 7288 7293 7472 7474 7478 7481 7483 7486 7489 7490 7499 7501 7505 7508 7510 7513 7516 7517 7526 7528 7532 7535 7537 7540 7543 7544 7553 7555 7559 7562 7564 7567 7570 7571 7697 7702 7838 7841 7853 8013 8018 8237 8239 8243 8246 8248 8251 8254 8255 8265 8267 8271 8274 8276 8279 8282 8283 8293 8295 8299 8302 8304 8307 8310 8311 8321 8323 8327 8330 8332 8335 8338 8339 8341 8360 8367 8370 8375 8403 8409 8423 8425 8427 8430 8433 8435 8437 8463 8466 8479 8483 8486 8489 8493 8494 8498 JSP 651 3433 3448 3463 3477 3493 7460 7469 7496 7523 7550 7878 8234 8262 8290 8318 JUMPL 1179 1198 1235 1251 1267 1283 1299 1315 1331 1347 1363 1379 1395 1411 1427 1443 1459 1475 1491 1507 1543 1559 1575 1591 1607 1623 1639 1655 SEQ 0255 1671 1687 1703 1719 1735 1751 1767 1783 1799 1837 1852 1867 1882 1897 1912 1927 1942 1957 1993 2009 2025 2041 2057 2073 2089 2105 2121 2137 2153 2169 2185 2201 2217 2233 2249 2265 2306 2323 2365 2383 2401 2419 2437 2455 2473 2491 2532 2550 2568 2586 2604 2622 2640 2658 2676 2717 2735 2753 2771 2789 2807 2825 2843 2861 2901 2918 2935 2952 2969 2986 3003 3020 3033 3050 3065 3080 3095 3108 3123 3136 3150 3163 3177 3190 3204 3220 3229 3246 3262 3278 3295 3309 3325 3339 3354 3368 3383 3397 3412 3424 3437 3451 3467 3480 3497 3506 3542 3557 3572 3587 3602 3617 3632 3647 3662 3677 3692 3707 3722 3737 3752 3767 3782 3819 3835 3851 3867 3883 3899 3915 3931 3947 3963 3979 3995 4011 4027 4043 4059 4075 4091 4131 4147 4163 4179 4195 4211 4227 4243 4259 4275 4291 4307 4323 4339 4355 4371 4387 4403 4440 4456 4472 4488 4504 4520 4536 4552 4568 4584 4600 4616 4632 4648 4664 4680 4696 4712 4723 4736 4776 4794 4812 4830 4848 4866 4884 4902 4920 4938 4978 4996 5014 5032 5050 5068 5086 5104 5142 5159 5176 5193 5210 5227 5244 5261 5305 5323 5341 5359 5377 5395 5413 5431 5449 5467 5506 5523 5540 5557 5574 5591 5608 5625 5663 5680 5697 5714 5731 5748 5765 5782 5826 5844 5862 5880 5898 5916 5934 5952 5970 5988 6029 6047 6065 6083 6101 6119 6137 6155 6193 6210 6227 6244 6261 6278 6295 6312 6327 6369 6388 6407 6426 6445 6464 6483 6502 6521 6540 6583 6602 6621 6640 6659 6678 6697 6716 6755 6772 6789 6806 6823 6840 6857 6874 6892 6907 6920 6934 6946 6958 6971 6984 6997 7010 7023 7036 7068 7112 7126 7140 7154 7168 7181 7195 7209 7223 7237 7251 7265 7298 7346 7362 7378 7394 7410 7426 7440 7454 7463 7477 7504 7531 7558 7583 7598 7613 7628 7643 7658 7673 7707 7760 7779 7798 7817 7836 7881 7893 7909 7925 7941 7957 7973 7989 8023 8082 8105 8128 8153 8174 8194 8210 8226 8242 8270 8298 8326 LALL 8 LIST 7 803 936 8386 8456 8504 8609 LIT 8505 LOC 22 806 1130 LSH 8362 8394 MOVE 1152 1175 3225 3502 6951 6952 6961 6962 6963 6964 6974 6975 6976 6977 6987 6988 6989 6990 7000 7001 7002 7003 7013 7014 7015 7016 7026 7027 7028 7029 7051 7052 7053 7054 7060 7065 7067 7290 7295 7297 7699 7704 7706 8015 8020 8022 8355 8361 8364 8365 8378 8393 8396 8398 8401 8407 8411 8467 8475 8476 8484 8488 8491 MOVEI 1168 1170 1186 1188 3210 3212 4730 7044 7046 7076 7078 7273 7275 7306 7308 7681 7683 7715 7717 7862 7864 7997 7999 8031 8033 8418 8464 MOVEM 1153 1169 1171 1187 1189 3211 3213 3215 3419 6941 7045 7047 7050 7059 7064 7077 7079 7274 7276 7279 7289 7294 7307 7309 7588 7589 7603 7604 7618 7619 7633 7634 7648 7649 7663 7664 7682 7684 7687 7690 7691 7698 7703 7716 7718 7863 7865 7998 8000 8014 8019 8032 8034 8348 8349 8350 8363 8383 8465 MOVN 7201 7215 7243 7257 7283 7337 7353 7369 7385 7401 MOVNM 8144 MOVSI 1230 1246 1262 1278 1294 1310 1326 1342 1358 1374 1390 1406 1422 1438 1454 1470 1486 1502 1538 1539 1554 1555 1570 1571 1586 1587 1602 1603 1618 1619 1634 1635 1650 1651 1666 1667 1682 1683 1698 1699 1714 1715 1730 1731 1746 1747 1762 1763 1778 1779 1794 1795 1832 1847 1862 1877 1892 1907 1922 1937 1952 1988 2004 2020 2036 2052 2068 2084 2100 2116 2132 2148 2164 2180 2196 2212 2228 2244 2260 2300 2317 2359 2377 2395 2413 2431 2449 2467 2485 2526 2544 2562 2580 2598 2616 2634 2652 2670 2711 2729 2747 2765 2783 2801 2819 2837 2855 3043 3073 3089 3103 3117 SEQ 0256 3145 3185 3239 3256 3271 3288 3304 3319 3349 3392 3417 3443 3472 3486 3537 3538 3552 3553 3567 3568 3582 3583 3597 3598 3612 3613 3627 3628 3642 3643 3657 3658 3672 3673 3687 3688 3702 3703 3717 3718 3732 3733 3747 3748 3762 3763 3777 3778 3815 3831 3847 3863 3879 3895 3911 3927 3943 3959 3975 3991 4007 4023 4039 4055 4071 4087 4126 4127 4142 4143 4158 4159 4174 4175 4190 4191 4206 4207 4222 4223 4238 4239 4254 4255 4270 4271 4286 4287 4302 4303 4318 4319 4334 4335 4350 4351 4366 4367 4382 4383 4398 4399 4436 4452 4468 4484 4500 4516 4532 4548 4564 4580 4596 4612 4628 4644 4660 4676 4692 4708 5298 5300 5316 5318 5334 5336 5352 5354 5370 5372 5388 5390 5406 5408 5424 5426 5442 5444 5460 5462 5500 5501 5517 5518 5534 5535 5551 5552 5568 5569 5585 5586 5602 5603 5619 5620 5657 5658 5674 5675 5691 5692 5708 5709 5725 5726 5742 5743 5759 5760 5776 5777 5819 5821 5837 5839 5855 5857 5873 5875 5891 5893 5909 5911 5927 5929 5945 5947 5963 5965 5981 5983 6022 6023 6040 6041 6058 6059 6076 6077 6094 6095 6112 6113 6130 6131 6148 6149 6187 6188 6204 6205 6221 6222 6238 6239 6255 6256 6272 6273 6289 6290 6306 6307 6320 6361 6363 6380 6382 6399 6401 6418 6420 6437 6439 6456 6458 6475 6477 6494 6496 6513 6515 6532 6534 6575 6577 6594 6596 6613 6615 6632 6634 6651 6653 6670 6672 6689 6691 6708 6710 6749 6766 6783 6800 6817 6834 6851 6868 6885 6887 6899 6901 6939 6942 NOSYM 24 OPDEF 29 30 31 32 33 34 35 36 37 38 39 638 639 640 641 642 643 644 645 651 657 658 666 667 668 669 670 671 672 673 674 675 676 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 735 752 757 758 762 763 764 770 771 777 778 779 780 781 782 783 789 790 797 798 799 800 803 PAGE 1509 1959 2325 2863 3022 3784 4405 4714 4940 5469 5990 6542 6959 6985 7011 7182 7196 7210 7224 7238 7252 7427 7441 7491 7518 7545 7584 7614 7644 7894 7910 7926 7942 7958 7974 8195 8211 8256 8284 8312 POP 641 POPJ 639 PUSH 640 PUSHJ 638 REPEAT 1205 1513 1809 1963 2274 2331 2498 2683 2869 3514 3789 4101 4410 4742 4944 5110 5271 5474 5631 5792 5995 6161 6333 6547 6723 7085 7315 7724 8040 SETCM 7186 7200 7214 7228 7242 7256 7282 7336 7352 7368 7384 7400 7417 7431 7445 SETOB 3444 3473 7103 7105 7117 7119 7131 7133 7145 7147 7159 7161 7870 SETOM 3045 3060 3075 3216 3257 3273 3290 8373 8471 8477 SETZ 7187 7229 7418 7432 7446 SETZB 4719 7102 7116 7130 7144 7158 SETZM 1194 8357 8368 SIXBIT 85 86 1021 1022 1030 1031 1133 8377 8381 8392 8417 8497 SKIPE 7840 7852 SKIPGE 8366 SKIPL 8369 8482 SKIPN 7473 7482 7500 7509 7527 7536 7554 7563 8143 8238 8247 8266 8275 8294 8303 8322 8331 8371 8374 8478 SUBTTL 25 567 602 803 804 1156 1199 1801 2268 3034 3205 3221 3413 3425 SEQ 0257 3498 4093 4724 5263 5784 6314 6876 6935 6947 7037 7069 7170 7266 7299 7412 7455 7572 7674 7708 7850 7882 7990 8024 8178 8227 8344 8499 TITLE 12 TLNE 7461 7471 7498 7525 7552 7879 8236 8264 8292 8320 8359 8402 8468 8472 TLNN 8470 8492 TLO 1833 1848 1863 1878 1893 1908 1923 1938 1953 2301 2318 2360 2378 2396 2414 2432 2450 2468 2486 3489 TLZ 3459 4770 4788 4806 4824 4842 4860 4878 4896 4914 4932 6914 6928 7202 7216 7244 7258 7284 7338 7354 7370 7386 7402 7470 7497 7524 7551 8235 8263 8291 8319 TRNE 8422 8424 8426 TRO 3487 VAR 8617 XALL 14 XCT 8459 XLIST 6 802 803 935 8385 8455 8503 XWD 6961 6962 6963 6964 6965 6966 6974 6975 6976 6977 6978 6979 6987 6988 6989 6990 6991 6992 7000 7001 7002 7003 7004 7005 7013 7014 7015 7016 7017 7018 7026 7027 7028 7029 7030 7031 7051 7052 7053 7054 7055 7056 7184 7185 7186 7189 7190 7198 7199 7200 7201 7203 7204 7212 7213 7214 7215 7217 7218 7226 7227 7228 7231 7232 7240 7241 7242 7243 7245 7246 7254 7255 7256 7257 7259 7260 7280 7281 7282 7283 7285 7286 7334 7335 7336 7337 7339 7340 7350 7351 7352 7353 7355 7356 7366 7367 7368 7369 7371 7372 7382 7383 7384 7385 7387 7388 7398 7399 7400 7401 7403 7404 7415 7416 7417 7420 7421 7429 7430 7431 7434 7435 7443 7444 7445 7448 7449 7467 7468 7494 7495 7521 7522 7548 7549 7586 7587 7590 7591 7594 7596 7601 7602 7605 7606 7609 7611 7616 7617 7620 7621 7624 7626 7631 7632 7635 7636 7639 7641 7646 7647 7650 7651 7654 7656 7661 7662 7665 7666 7669 7671 7688 7689 7692 7693 7696 7701 7748 7749 7750 7751 7753 7756 7767 7768 7769 7770 7772 7775 7786 7787 7788 7789 7791 7794 7805 7806 7807 7808 7810 7824 7825 7826 7827 7829 7832 7872 7896 7897 7899 7900 7901 7902 7912 7913 7915 7916 7917 7918 7928 7929 7931 7932 7933 7934 7944 7945 7947 7948 7949 7950 7960 7961 7963 7964 7965 7966 7976 7977 7979 7980 7981 7982 8003 8004 8006 8007 8008 8009 8068 8069 8070 8071 8091 8092 8093 8094 8114 8115 8116 8117 8137 8138 8139 8140 8160 8161 8162 8163 8181 8182 8184 8185 8186 8187 8197 8198 8200 8201 8202 8203 8213 8214 8216 8217 8218 8219 8231 8232 8259 8260 8287 8288 8315 8316 PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0258 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 *030630 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 233525 252525 FINAL C(AC)= 000525 252525 ---------- *030641 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000525 252525 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- *030647 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 201400 000000 FINAL C(AC)= 000000 000001 ---------- *030655 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 202400 000000 FINAL C(AC)= 000000 000002 ---------- *030663 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 203400 000000 FINAL C(AC)= 000000 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0259 *030671 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000004 C(E)= 204400 000000 FINAL C(AC)= 000000 000010 ---------- *030677 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000010 C(E)= 205400 000000 FINAL C(AC)= 000000 000020 ---------- *030705 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000020 C(E)= 206400 000000 FINAL C(AC)= 000000 000040 ---------- *030713 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000040 C(E)= 207400 000000 FINAL C(AC)= 000000 000100 ---------- *030721 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000100 C(E)= 210400 000000 FINAL C(AC)= 000000 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0260 *030727 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000200 C(E)= 211400 000000 FINAL C(AC)= 000000 000400 ---------- *030735 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000400 C(E)= 212400 000000 FINAL C(AC)= 000000 001000 ---------- *030743 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 001000 C(E)= 213400 000000 FINAL C(AC)= 000000 002000 ---------- *030751 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 002000 C(E)= 214400 000000 FINAL C(AC)= 000000 004000 ---------- *030757 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 004000 C(E)= 215400 000000 FINAL C(AC)= 000000 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0261 *030765 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 010000 C(E)= 216400 000000 FINAL C(AC)= 000000 020000 ---------- *030773 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 020000 C(E)= 217400 000000 FINAL C(AC)= 000000 040000 ---------- *031001 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 040000 C(E)= 220400 000000 FINAL C(AC)= 000000 100000 ---------- *031007 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 100000 C(E)= 221400 000000 FINAL C(AC)= 000000 200000 ---------- *031015 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 200000 C(E)= 222400 000000 FINAL C(AC)= 000000 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0262 *031023 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 400000 C(E)= 223400 000000 FINAL C(AC)= 000001 000000 ---------- *031031 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000001 000000 C(E)= 224400 000000 FINAL C(AC)= 000002 000000 ---------- *031037 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000002 000000 C(E)= 225400 000000 FINAL C(AC)= 000004 000000 ---------- *031045 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000004 000000 C(E)= 226400 000000 FINAL C(AC)= 000010 000000 ---------- *031053 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000010 000000 C(E)= 227400 000000 FINAL C(AC)= 000020 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0263 *031061 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000020 000000 C(E)= 230400 000000 FINAL C(AC)= 000040 000000 ---------- *031067 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000040 000000 C(E)= 231400 000000 FINAL C(AC)= 000100 000000 ---------- *031075 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000100 000000 C(E)= 232400 000000 FINAL C(AC)= 000200 000000 ---------- *031103 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000200 000000 C(E)= 233400 000000 FINAL C(AC)= 000400 000000 ---------- *031111 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000400 000000 C(E)= 234400 000000 FINAL C(AC)= 001000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0264 *031117 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 001000 000000 C(E)= 235400 000000 FINAL C(AC)= 002000 000000 ---------- *031125 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 002000 000000 C(E)= 236400 000000 FINAL C(AC)= 004000 000000 ---------- *031133 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 004000 000000 C(E)= 237400 000000 FINAL C(AC)= 010000 000000 ---------- *031141 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 010000 000000 C(E)= 240400 000000 FINAL C(AC)= 020000 000000 ---------- *031147 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 020000 000000 C(E)= 241400 000000 FINAL C(AC)= 040000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0265 *031155 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 040000 000000 C(E)= 242400 000000 FINAL C(AC)= 100000 000000 ---------- *031163 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 100000 000000 C(E)= 243400 000000 FINAL C(AC)= 200000 000000 ---------- *031171 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 200000 000000 C(E)= 201400 000000 FINAL C(AC)= 000000 000001 ---------- *031177 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 202200 000000 FINAL C(AC)= 000000 000001 ---------- *031205 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 203100 000000 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0266 *031213 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 204040 000000 FINAL C(AC)= 000000 000001 ---------- *031221 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 205020 000000 FINAL C(AC)= 000000 000001 ---------- *031227 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 206010 000000 FINAL C(AC)= 000000 000001 ---------- *031235 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 207004 000000 FINAL C(AC)= 000000 000001 ---------- *031243 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 210002 000000 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0267 *031251 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 211001 000000 FINAL C(AC)= 000000 000001 ---------- *031257 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 212000 400000 FINAL C(AC)= 000000 000001 ---------- *031265 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 213000 200000 FINAL C(AC)= 000000 000001 ---------- *031273 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 214000 100000 FINAL C(AC)= 000000 000001 ---------- *031301 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 215000 040000 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0268 *031307 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 216000 020000 FINAL C(AC)= 000000 000001 ---------- *031315 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 217000 010000 FINAL C(AC)= 000000 000001 ---------- *031323 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 220000 004000 FINAL C(AC)= 000000 000001 ---------- *031331 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 221000 002000 FINAL C(AC)= 000000 000001 ---------- *031337 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 222000 001000 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0269 *031345 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 223000 000400 FINAL C(AC)= 000000 000001 ---------- *031353 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 224000 000200 FINAL C(AC)= 000000 000001 ---------- *031361 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 225000 000100 FINAL C(AC)= 000000 000001 ---------- *031367 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 226000 000040 FINAL C(AC)= 000000 000001 ---------- *031375 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 227000 000020 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0270 *031403 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 230000 000010 FINAL C(AC)= 000000 000001 ---------- *031411 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 231000 000004 FINAL C(AC)= 000000 000001 ---------- *031417 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 232000 000002 FINAL C(AC)= 000000 000001 ---------- *031425 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 233000 000001 FINAL C(AC)= 000000 000001 ---------- *031434 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 576400 000000 FINAL C(AC)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0271 *031443 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 575400 000000 FINAL C(AC)= 777777 777776 ---------- *031452 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 575200 000000 FINAL C(AC)= 777777 777775 ---------- *031461 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777775 C(E)= 574300 000000 FINAL C(AC)= 777777 777773 ---------- *031470 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777773 C(E)= 573340 000000 FINAL C(AC)= 777777 777767 ---------- *031477 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777767 C(E)= 572360 000000 FINAL C(AC)= 777777 777757 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0272 *031506 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777757 C(E)= 571370 000000 FINAL C(AC)= 777777 777737 ---------- *031515 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777737 C(E)= 570374 000000 FINAL C(AC)= 777777 777677 ---------- *031524 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777677 C(E)= 567376 000000 FINAL C(AC)= 777777 777577 ---------- *031533 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777577 C(E)= 566377 000000 FINAL C(AC)= 777777 777377 ---------- *031542 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777377 C(E)= 565377 400000 FINAL C(AC)= 777777 776777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0273 *031551 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 776777 C(E)= 564377 600000 FINAL C(AC)= 777777 775777 ---------- *031560 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 775777 C(E)= 563377 700000 FINAL C(AC)= 777777 773777 ---------- *031567 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 773777 C(E)= 562377 740000 FINAL C(AC)= 777777 767777 ---------- *031576 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 767777 C(E)= 561377 760000 FINAL C(AC)= 777777 757777 ---------- *031605 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 757777 C(E)= 560377 770000 FINAL C(AC)= 777777 737777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0274 *031614 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 737777 C(E)= 557377 774000 FINAL C(AC)= 777777 677777 ---------- *031623 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 677777 C(E)= 556377 776000 FINAL C(AC)= 777777 577777 ---------- *031632 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 577777 C(E)= 555377 777000 FINAL C(AC)= 777777 377777 ---------- *031641 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 377777 C(E)= 554377 777400 FINAL C(AC)= 777776 777777 ---------- *031650 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777776 777777 C(E)= 553377 777600 FINAL C(AC)= 777775 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0275 *031657 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777775 777777 C(E)= 552377 777700 FINAL C(AC)= 777773 777777 ---------- *031666 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777773 777777 C(E)= 551377 777740 FINAL C(AC)= 777767 777777 ---------- *031675 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777767 777777 C(E)= 550377 777760 FINAL C(AC)= 777757 777777 ---------- *031704 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777757 777777 C(E)= 547377 777770 FINAL C(AC)= 777737 777777 ---------- *031713 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777737 777777 C(E)= 546377 777774 FINAL C(AC)= 777677 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0276 *031722 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777677 777777 C(E)= 545377 777776 FINAL C(AC)= 777577 777777 ---------- *031731 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777577 777777 C(E)= 544377 777777 FINAL C(AC)= 777377 777777 ---------- *031740 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777377 777777 C(E)= 543377 777777 FINAL C(AC)= 776777 777776 ---------- *031747 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 776777 777776 C(E)= 542377 777777 FINAL C(AC)= 775777 777774 ---------- *031756 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 775777 777774 C(E)= 541377 777777 FINAL C(AC)= 773777 777770 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0277 *031765 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 773777 777770 C(E)= 540377 777777 FINAL C(AC)= 767777 777760 ---------- *031774 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 767777 777760 C(E)= 537377 777777 FINAL C(AC)= 757777 777740 ---------- *032003 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 757777 777740 C(E)= 536377 777777 FINAL C(AC)= 737777 777700 ---------- *032012 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 737777 777700 C(E)= 535377 777777 FINAL C(AC)= 677777 777600 ---------- *032021 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 677777 777600 C(E)= 534377 777777 FINAL C(AC)= 577777 777400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0278 *032030 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 577777 777400 C(E)= 243777 777777 FINAL C(AC)= 377777 777400 ---------- *032037 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 777400 C(E)= 576000 000001 FINAL C(AC)= 777777 777777 ---------- *032045 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 576200 000000 FINAL C(AC)= 777777 777777 ---------- *032054 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 576200 000001 FINAL C(AC)= 777777 777777 ---------- *032062 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 577000 000001 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0279 *032067 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 577400 000000 FINAL C(AC)= 000000 000000 ---------- *032075 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 600000 000001 FINAL C(AC)= 000000 000000 ---------- *032102 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 177777 777777 FINAL C(AC)= 000000 000000 ---------- *032107 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 200400 000000 FINAL C(AC)= 000000 000000 ---------- *032114 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 200777 777777 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0280 *032121 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 201577 777777 FINAL C(AC)= 000000 000001 ---------- *032126 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 201600 000000 FINAL C(AC)= 000000 000001 ---------- *032133 FIX 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 201777 777777 FINAL C(AC)= 000000 000001 ---------- *032146 FIX 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 576200 000000 FINAL C(AC)= 777777 777777 ---------- *032153 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 233525 252525 FINAL C(AC)= 000525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0281 *032162 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000525 252525 C(E)= 576000 000001 FINAL C(AC)= 777777 777776 ---------- *032170 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777776 C(E)= 576200 000000 FINAL C(AC)= 777777 777777 ---------- *032177 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 576200 000001 FINAL C(AC)= 777777 777777 ---------- *032206 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 577000 000001 FINAL C(AC)= 777777 777777 ---------- *032213 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(E)= 577400 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0282 *032221 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 600000 000001 FINAL C(AC)= 000000 000000 ---------- *032226 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 177777 777777 FINAL C(AC)= 000000 000000 ---------- *032233 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(E)= 200400 000000 FINAL C(AC)= 000000 000001 ---------- *032240 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 200777 777777 FINAL C(AC)= 000000 000001 ---------- *032245 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 201577 777777 FINAL C(AC)= 000000 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0283 *032252 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(E)= 201600 000000 FINAL C(AC)= 000000 000002 ---------- *032257 FIXR 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 201777 777777 FINAL C(AC)= 000000 000002 ---------- *032267 FIXR 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000002 C(E)= 576000 000001 FINAL C(AC)= 777777 777776 ---------- *032304 FIX 4,000002 FLAGS - INT/FINAL 000000 400200 INITIAL C(AC)= 777777 777777 C(E)= 244400 000000 FINAL C(AC)= 777777 777777 ---------- *032317 FIX 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 777777 C(E)= 243777 777777 FINAL C(AC)= 377777 777400 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0284 *032332 FIX 4,000002 FLAGS - INT/FINAL 000200 400200 INITIAL C(AC)= 777777 777777 C(E)= 533400 000000 FINAL C(AC)= 777777 777777 ---------- *032346 FIX 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 777777 C(E)= 534000 000001 FINAL C(AC)= 400000 000400 ---------- *032357 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 400000 000400 C(E)= 252525 252525 FINAL C(AC)= 243525 252525 ---------- *032365 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243525 252525 C(E)= 200000 000000 FINAL C(AC)= 243400 000000 ---------- *032373 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000000 C(E)= 100000 000000 FINAL C(AC)= 242400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0285 *032401 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 242400 000000 C(E)= 040000 000000 FINAL C(AC)= 241400 000000 ---------- *032407 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 241400 000000 C(E)= 020000 000000 FINAL C(AC)= 240400 000000 ---------- *032415 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 240400 000000 C(E)= 010000 000000 FINAL C(AC)= 237400 000000 ---------- *032423 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 237400 000000 C(E)= 004000 000000 FINAL C(AC)= 236400 000000 ---------- *032431 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 236400 000000 C(E)= 002000 000000 FINAL C(AC)= 235400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0286 *032437 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 235400 000000 C(E)= 001000 000000 FINAL C(AC)= 234400 000000 ---------- *032445 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 234400 000000 C(E)= 000400 000000 FINAL C(AC)= 233400 000000 ---------- *032453 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 233400 000000 C(E)= 000200 000000 FINAL C(AC)= 232400 000000 ---------- *032461 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 232400 000000 C(E)= 000100 000000 FINAL C(AC)= 231400 000000 ---------- *032467 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 231400 000000 C(E)= 000040 000000 FINAL C(AC)= 230400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0287 *032475 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 230400 000000 C(E)= 000020 000000 FINAL C(AC)= 227400 000000 ---------- *032503 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 227400 000000 C(E)= 000010 000000 FINAL C(AC)= 226400 000000 ---------- *032511 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 226400 000000 C(E)= 000004 000000 FINAL C(AC)= 225400 000000 ---------- *032517 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 225400 000000 C(E)= 000002 000000 FINAL C(AC)= 224400 000000 ---------- *032525 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 224400 000000 C(E)= 000001 000000 FINAL C(AC)= 223400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0288 *032533 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 223400 000000 C(E)= 000000 400000 FINAL C(AC)= 222400 000000 ---------- *032541 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 222400 000000 C(E)= 000000 200000 FINAL C(AC)= 221400 000000 ---------- *032547 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 221400 000000 C(E)= 000000 100000 FINAL C(AC)= 220400 000000 ---------- *032555 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 220400 000000 C(E)= 000000 040000 FINAL C(AC)= 217400 000000 ---------- *032563 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 217400 000000 C(E)= 000000 020000 FINAL C(AC)= 216400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0289 *032571 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 216400 000000 C(E)= 000000 010000 FINAL C(AC)= 215400 000000 ---------- *032577 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 215400 000000 C(E)= 000000 004000 FINAL C(AC)= 214400 000000 ---------- *032605 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 214400 000000 C(E)= 000000 002000 FINAL C(AC)= 213400 000000 ---------- *032613 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 213400 000000 C(E)= 000000 001000 FINAL C(AC)= 212400 000000 ---------- *032621 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 212400 000000 C(E)= 000000 000400 FINAL C(AC)= 211400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0290 *032627 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 211400 000000 C(E)= 000000 000200 FINAL C(AC)= 210400 000000 ---------- *032635 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 210400 000000 C(E)= 000000 000100 FINAL C(AC)= 207400 000000 ---------- *032643 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 207400 000000 C(E)= 000000 000040 FINAL C(AC)= 206400 000000 ---------- *032651 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 206400 000000 C(E)= 000000 000020 FINAL C(AC)= 205400 000000 ---------- *032657 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 205400 000000 C(E)= 000000 000010 FINAL C(AC)= 204400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0291 *032665 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 204400 000000 C(E)= 000000 000004 FINAL C(AC)= 203400 000000 ---------- *032673 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 203400 000000 C(E)= 000000 000002 FINAL C(AC)= 202400 000000 ---------- *032701 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 202400 000000 C(E)= 000000 000001 FINAL C(AC)= 201400 000000 ---------- *032707 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 201400 000000 C(E)= 400000 000000 FINAL C(AC)= 533400 000000 ---------- *032715 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 533400 000000 C(E)= 600000 000000 FINAL C(AC)= 534400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0292 *032723 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534400 000000 C(E)= 700000 000000 FINAL C(AC)= 535400 000000 ---------- *032731 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 535400 000000 C(E)= 740000 000000 FINAL C(AC)= 536400 000000 ---------- *032737 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 536400 000000 C(E)= 760000 000000 FINAL C(AC)= 537400 000000 ---------- *032745 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 537400 000000 C(E)= 770000 000000 FINAL C(AC)= 540400 000000 ---------- *032753 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 540400 000000 C(E)= 774000 000000 FINAL C(AC)= 541400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0293 *032761 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 541400 000000 C(E)= 776000 000000 FINAL C(AC)= 542400 000000 ---------- *032767 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 542400 000000 C(E)= 777000 000000 FINAL C(AC)= 543400 000000 ---------- *032775 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 543400 000000 C(E)= 777400 000000 FINAL C(AC)= 544400 000000 ---------- *033003 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 544400 000000 C(E)= 777600 000000 FINAL C(AC)= 545400 000000 ---------- *033011 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 545400 000000 C(E)= 777700 000000 FINAL C(AC)= 546400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0294 *033017 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 546400 000000 C(E)= 777740 000000 FINAL C(AC)= 547400 000000 ---------- *033025 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 547400 000000 C(E)= 777760 000000 FINAL C(AC)= 550400 000000 ---------- *033033 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 550400 000000 C(E)= 777770 000000 FINAL C(AC)= 551400 000000 ---------- *033041 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 551400 000000 C(E)= 777774 000000 FINAL C(AC)= 552400 000000 ---------- *033047 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 552400 000000 C(E)= 777776 000000 FINAL C(AC)= 553400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0295 *033055 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 553400 000000 C(E)= 777777 000000 FINAL C(AC)= 554400 000000 ---------- *033063 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 554400 000000 C(E)= 777777 400000 FINAL C(AC)= 555400 000000 ---------- *033071 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 555400 000000 C(E)= 777777 600000 FINAL C(AC)= 556400 000000 ---------- *033077 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 556400 000000 C(E)= 777777 700000 FINAL C(AC)= 557400 000000 ---------- *033105 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 557400 000000 C(E)= 777777 740000 FINAL C(AC)= 560400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0296 *033113 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 560400 000000 C(E)= 777777 760000 FINAL C(AC)= 561400 000000 ---------- *033121 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 561400 000000 C(E)= 777777 770000 FINAL C(AC)= 562400 000000 ---------- *033127 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 562400 000000 C(E)= 777777 774000 FINAL C(AC)= 563400 000000 ---------- *033135 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 563400 000000 C(E)= 777777 776000 FINAL C(AC)= 564400 000000 ---------- *033143 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 564400 000000 C(E)= 777777 777000 FINAL C(AC)= 565400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0297 *033151 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 565400 000000 C(E)= 777777 777400 FINAL C(AC)= 566400 000000 ---------- *033157 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 566400 000000 C(E)= 777777 777600 FINAL C(AC)= 567400 000000 ---------- *033165 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 567400 000000 C(E)= 777777 777700 FINAL C(AC)= 570400 000000 ---------- *033173 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 570400 000000 C(E)= 777777 777740 FINAL C(AC)= 571400 000000 ---------- *033201 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 571400 000000 C(E)= 777777 777760 FINAL C(AC)= 572400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0298 *033207 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 572400 000000 C(E)= 777777 777770 FINAL C(AC)= 573400 000000 ---------- *033215 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 573400 000000 C(E)= 777777 777774 FINAL C(AC)= 574400 000000 ---------- *033223 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 574400 000000 C(E)= 777777 777776 FINAL C(AC)= 575400 000000 ---------- *033231 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 575400 000000 C(E)= 777777 777777 FINAL C(AC)= 576400 000000 ---------- *033236 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 576400 000000 C(E)= 000000 000000 FINAL C(AC)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0299 *033245 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(E)= 377777 777400 FINAL C(AC)= 243777 777777 ---------- *033255 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777777 C(E)= 377777 777000 FINAL C(AC)= 243777 777776 ---------- *033265 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777776 C(E)= 377777 776400 FINAL C(AC)= 243777 777775 ---------- *033275 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777775 C(E)= 377777 775400 FINAL C(AC)= 243777 777773 ---------- *033305 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777773 C(E)= 377777 773400 FINAL C(AC)= 243777 777767 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0300 *033315 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777767 C(E)= 377777 767400 FINAL C(AC)= 243777 777757 ---------- *033325 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777757 C(E)= 377777 757400 FINAL C(AC)= 243777 777737 ---------- *033335 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777737 C(E)= 377777 737400 FINAL C(AC)= 243777 777677 ---------- *033345 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777677 C(E)= 377777 677400 FINAL C(AC)= 243777 777577 ---------- *033355 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777577 C(E)= 377777 577400 FINAL C(AC)= 243777 777377 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0301 *033365 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 777377 C(E)= 377777 377400 FINAL C(AC)= 243777 776777 ---------- *033375 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 776777 C(E)= 377776 777400 FINAL C(AC)= 243777 775777 ---------- *033405 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 775777 C(E)= 377775 777400 FINAL C(AC)= 243777 773777 ---------- *033415 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 773777 C(E)= 377773 777400 FINAL C(AC)= 243777 767777 ---------- *033425 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 767777 C(E)= 377767 777400 FINAL C(AC)= 243777 757777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0302 *033435 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 757777 C(E)= 377757 777400 FINAL C(AC)= 243777 737777 ---------- *033445 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 737777 C(E)= 377737 777400 FINAL C(AC)= 243777 677777 ---------- *033455 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 677777 C(E)= 377677 777400 FINAL C(AC)= 243777 577777 ---------- *033465 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 577777 C(E)= 377577 777400 FINAL C(AC)= 243777 377777 ---------- *033474 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243777 377777 C(E)= 377377 777400 FINAL C(AC)= 243776 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0303 *033503 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243776 777777 C(E)= 376777 777400 FINAL C(AC)= 243775 777777 ---------- *033512 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243775 777777 C(E)= 375777 777400 FINAL C(AC)= 243773 777777 ---------- *033521 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243773 777777 C(E)= 373777 777400 FINAL C(AC)= 243767 777777 ---------- *033530 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243767 777777 C(E)= 367777 777400 FINAL C(AC)= 243757 777777 ---------- *033537 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243757 777777 C(E)= 357777 777400 FINAL C(AC)= 243737 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0304 *033546 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243737 777777 C(E)= 337777 777400 FINAL C(AC)= 243677 777777 ---------- *033555 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243677 777777 C(E)= 277777 777400 FINAL C(AC)= 243577 777777 ---------- *033565 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243577 777777 C(E)= 200000 000400 FINAL C(AC)= 243400 000001 ---------- *033575 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000001 C(E)= 200000 001000 FINAL C(AC)= 243400 000002 ---------- *033605 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000002 C(E)= 200000 002000 FINAL C(AC)= 243400 000004 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0305 *033615 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000004 C(E)= 200000 004000 FINAL C(AC)= 243400 000010 ---------- *033625 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000010 C(E)= 200000 010000 FINAL C(AC)= 243400 000020 ---------- *033635 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000020 C(E)= 200000 020000 FINAL C(AC)= 243400 000040 ---------- *033645 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000040 C(E)= 200000 040000 FINAL C(AC)= 243400 000100 ---------- *033655 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000100 C(E)= 200000 100000 FINAL C(AC)= 243400 000200 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0306 *033665 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000200 C(E)= 200000 200000 FINAL C(AC)= 243400 000400 ---------- *033675 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000400 C(E)= 200000 400000 FINAL C(AC)= 243400 001000 ---------- *033704 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 001000 C(E)= 200001 000000 FINAL C(AC)= 243400 002000 ---------- *033713 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 002000 C(E)= 200002 000000 FINAL C(AC)= 243400 004000 ---------- *033722 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 004000 C(E)= 200004 000000 FINAL C(AC)= 243400 010000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0307 *033731 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 010000 C(E)= 200010 000000 FINAL C(AC)= 243400 020000 ---------- *033740 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 020000 C(E)= 200020 000000 FINAL C(AC)= 243400 040000 ---------- *033747 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 040000 C(E)= 200040 000000 FINAL C(AC)= 243400 100000 ---------- *033756 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 100000 C(E)= 200100 000000 FINAL C(AC)= 243400 200000 ---------- *033765 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 200000 C(E)= 200200 000000 FINAL C(AC)= 243400 400000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0308 *033773 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 400000 C(E)= 200400 000000 FINAL C(AC)= 243401 000000 ---------- *034001 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243401 000000 C(E)= 201000 000000 FINAL C(AC)= 243402 000000 ---------- *034007 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243402 000000 C(E)= 202000 000000 FINAL C(AC)= 243404 000000 ---------- *034015 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243404 000000 C(E)= 204000 000000 FINAL C(AC)= 243410 000000 ---------- *034023 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243410 000000 C(E)= 210000 000000 FINAL C(AC)= 243420 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0309 *034031 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243420 000000 C(E)= 220000 000000 FINAL C(AC)= 243440 000000 ---------- *034037 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243440 000000 C(E)= 240000 000000 FINAL C(AC)= 243500 000000 ---------- *034045 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243500 000000 C(E)= 300000 000000 FINAL C(AC)= 243600 000000 ---------- *034055 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243600 000000 C(E)= 400000 000400 FINAL C(AC)= 534000 000001 ---------- *034065 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000001 C(E)= 400000 001000 FINAL C(AC)= 534000 000002 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0310 *034075 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000002 C(E)= 400000 002000 FINAL C(AC)= 534000 000004 ---------- *034105 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000004 C(E)= 400000 004000 FINAL C(AC)= 534000 000010 ---------- *034115 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000010 C(E)= 400000 010000 FINAL C(AC)= 534000 000020 ---------- *034125 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000020 C(E)= 400000 020000 FINAL C(AC)= 534000 000040 ---------- *034135 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000040 C(E)= 400000 040000 FINAL C(AC)= 534000 000100 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0311 *034145 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000100 C(E)= 400000 100000 FINAL C(AC)= 534000 000200 ---------- *034155 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000200 C(E)= 400000 200000 FINAL C(AC)= 534000 000400 ---------- *034165 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 000400 C(E)= 400000 400000 FINAL C(AC)= 534000 001000 ---------- *034174 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 001000 C(E)= 400001 000000 FINAL C(AC)= 534000 002000 ---------- *034203 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 002000 C(E)= 400002 000000 FINAL C(AC)= 534000 004000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0312 *034212 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 004000 C(E)= 400004 000000 FINAL C(AC)= 534000 010000 ---------- *034221 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 010000 C(E)= 400010 000000 FINAL C(AC)= 534000 020000 ---------- *034230 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 020000 C(E)= 400020 000000 FINAL C(AC)= 534000 040000 ---------- *034237 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 040000 C(E)= 400040 000000 FINAL C(AC)= 534000 100000 ---------- *034246 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 100000 C(E)= 400100 000000 FINAL C(AC)= 534000 200000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0313 *034255 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 200000 C(E)= 400200 000000 FINAL C(AC)= 534000 400000 ---------- *034263 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534000 400000 C(E)= 400400 000000 FINAL C(AC)= 534001 000000 ---------- *034271 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534001 000000 C(E)= 401000 000000 FINAL C(AC)= 534002 000000 ---------- *034277 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534002 000000 C(E)= 402000 000000 FINAL C(AC)= 534004 000000 ---------- *034305 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534004 000000 C(E)= 404000 000000 FINAL C(AC)= 534010 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0314 *034313 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534010 000000 C(E)= 410000 000000 FINAL C(AC)= 534020 000000 ---------- *034321 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534020 000000 C(E)= 420000 000000 FINAL C(AC)= 534040 000000 ---------- *034327 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534040 000000 C(E)= 440000 000000 FINAL C(AC)= 534100 000000 ---------- *034335 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534100 000000 C(E)= 500000 000000 FINAL C(AC)= 534200 000000 ---------- *034344 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534200 000000 C(E)= 577777 777400 FINAL C(AC)= 534377 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0315 *034354 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777777 C(E)= 577777 777000 FINAL C(AC)= 534377 777776 ---------- *034364 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777776 C(E)= 577777 776400 FINAL C(AC)= 534377 777775 ---------- *034374 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777775 C(E)= 577777 775400 FINAL C(AC)= 534377 777773 ---------- *034404 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777773 C(E)= 577777 773400 FINAL C(AC)= 534377 777767 ---------- *034414 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777767 C(E)= 577777 767400 FINAL C(AC)= 534377 777757 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0316 *034424 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777757 C(E)= 577777 757400 FINAL C(AC)= 534377 777737 ---------- *034434 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777737 C(E)= 577777 737400 FINAL C(AC)= 534377 777677 ---------- *034444 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777677 C(E)= 577777 677400 FINAL C(AC)= 534377 777577 ---------- *034454 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777577 C(E)= 577777 577400 FINAL C(AC)= 534377 777377 ---------- *034464 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777377 C(E)= 577777 377400 FINAL C(AC)= 534377 776777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0317 *034474 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 776777 C(E)= 577776 777400 FINAL C(AC)= 534377 775777 ---------- *034504 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 775777 C(E)= 577775 777400 FINAL C(AC)= 534377 773777 ---------- *034514 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 773777 C(E)= 577773 777400 FINAL C(AC)= 534377 767777 ---------- *034524 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 767777 C(E)= 577767 777400 FINAL C(AC)= 534377 757777 ---------- *034534 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 757777 C(E)= 577757 777400 FINAL C(AC)= 534377 737777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0318 *034544 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 737777 C(E)= 577737 777400 FINAL C(AC)= 534377 677777 ---------- *034554 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 677777 C(E)= 577677 777400 FINAL C(AC)= 534377 577777 ---------- *034564 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 577777 C(E)= 577577 777400 FINAL C(AC)= 534377 377777 ---------- *034573 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 377777 C(E)= 577377 777400 FINAL C(AC)= 534376 777777 ---------- *034602 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534376 777777 C(E)= 576777 777400 FINAL C(AC)= 534375 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0319 *034611 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534375 777777 C(E)= 575777 777400 FINAL C(AC)= 534373 777777 ---------- *034620 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534373 777777 C(E)= 573777 777400 FINAL C(AC)= 534367 777777 ---------- *034627 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534367 777777 C(E)= 567777 777400 FINAL C(AC)= 534357 777777 ---------- *034636 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534357 777777 C(E)= 557777 777400 FINAL C(AC)= 534337 777777 ---------- *034645 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534337 777777 C(E)= 537777 777400 FINAL C(AC)= 534277 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0320 *034654 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534277 777777 C(E)= 477777 777400 FINAL C(AC)= 534177 777777 ---------- *034663 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534177 777777 C(E)= 200000 000177 FINAL C(AC)= 243400 000000 ---------- *034673 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000000 C(E)= 200000 000200 FINAL C(AC)= 243400 000001 ---------- *034702 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000001 C(E)= 577777 777600 FINAL C(AC)= 534377 777777 ---------- *034711 FLTR 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534377 777777 C(E)= 577777 777601 FINAL C(AC)= 534400 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0321 *034721 FLTR 4,036501 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 534400 000000 C(E)= 200000 000177 FINAL C(AC)= 243400 000000 ---------- *034727 DMOVE 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 243400 000000 C(AC+1)= 000200 032352 C(E)= 631463 146314 C(E+1)= 424242 131313 FINAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 ---------- *034741 DMOVE 4,036702 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *034753 DMOVE 4,036704 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *034765 DMOVE 4,036703 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0322 *034777 DMOVE 4,036705 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *035011 DMOVE 4,036710 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525252 FINAL C(AC)= 252525 252525 C(AC+1)= 525252 525252 ---------- *035023 DMOVE 4,036707 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252525 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 ---------- *035042 DMOVE 17,036704 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *035070 DMOVE 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0323 *035103 DMOVE 4,000003 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 777777 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035116 DMOVE 4,000004 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035131 DMOVE 4,000005 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035144 DMOVE 4,000006 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035152 DMOVE 2,036675 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 631463 146314 C(E+1)= 424242 131313 FINAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0324 *035153 DMOVN 4,000002 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 631463 146314 C(E+1)= 424242 131313 FINAL C(AC)= 146314 631463 C(AC+1)= 353535 646465 ---------- *035161 DMOVE 4,036700 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 146314 631463 C(AC+1)= 353535 646465 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035165 DMOVN 4,036702 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035173 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035177 DMOVN 4,036713 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0325 *035205 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035211 DMOVN 4,036715 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 ---------- *035217 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035223 DMOVN 4,036712 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *035231 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0326 *035235 DMOVN 4,036720 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252526 FINAL C(AC)= 252525 252525 C(AC+1)= 125252 525252 ---------- *035243 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 252525 252525 C(AC+1)= 125252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035247 DMOVN 4,036723 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525253 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 ---------- *035262 DMOVE 17,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777601 030305 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035266 DMOVN 17,036713 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0327 *035307 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035313 DMOVE 2,036726 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 631463 146314 C(AC+1)= 000000 000003 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *035314 DMOVN 4,000002 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *035322 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035326 DMOVE 3,036726 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 777777 C(AC+1)= 707070 707070 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0328 *035327 DMOVN 4,000003 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 777777 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *035335 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035341 DMOVE 4,036726 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *035342 DMOVN 4,000004 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *035350 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0329 *035354 DMOVE 5,036726 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 070707 070707 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *035355 DMOVN 4,000005 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *035363 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035367 DMOVE 6,036726 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 777777 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *035370 DMOVN 4,000006 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0330 *035376 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035402 DMOVN 4,036730 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *035410 DMOVE 4,036700 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035414 DMOVN 4,036731 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035422 DMOVE 4,036700 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0331 *035426 DMOVN 4,036732 FLAGS - INT/FINAL 700200 700200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *035442 DMOVN 5,036702 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035472 DMOVN 5,036730 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *035522 DMOVN 5,036731 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035552 DMOVN 5,036732 FLAGS - INT/FINAL 000200 000200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0332 *035601 DMOVE 4,036675 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 035554 C(AC+1)= 400000 000000 C(E)= 631463 146314 C(E+1)= 424242 131313 FINAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 ---------- *035602 DMOVM 4,000002 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(E)= 631463 146314 C(E+1)= 424242 131313 ---------- *035610 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035613 DMOVE 4,036702 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035614 DMOVM 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 000000 000000 C(E+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0333 *035615 DMOVE 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *035623 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035626 DMOVE 4,036704 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *035627 DMOVM 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 777777 777777 ---------- *035630 DMOVE 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0334 *035636 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035641 DMOVE 4,036703 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 ---------- *035642 DMOVM 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 000000 000000 C(E+1)= 777777 777777 ---------- *035643 DMOVE 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 777777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 ---------- *035651 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0335 *035654 DMOVE 4,036705 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *035655 DMOVM 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 000000 000000 ---------- *035656 DMOVE 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *035664 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035667 DMOVE 4,036710 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525252 FINAL C(AC)= 252525 252525 C(AC+1)= 525252 525252 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0336 *035670 DMOVM 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 252525 252525 C(AC+1)= 525252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 252525 252525 C(E+1)= 525252 525252 ---------- *035671 DMOVE 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 252525 252525 C(AC+1)= 525252 525252 C(E)= 252525 252525 C(E+1)= 525252 525252 FINAL C(AC)= 252525 252525 C(AC+1)= 525252 525252 ---------- *035677 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 252525 252525 C(AC+1)= 525252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035702 DMOVE 4,036707 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252525 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 ---------- *035703 DMOVM 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 525252 525252 C(E+1)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 80 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0337 *035704 DMOVE 4,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 525252 525252 C(E+1)= 252525 252525 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 ---------- *035717 DMOVE 17,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777601 030305 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035722 DMOVE 17,036704 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- *035723 DMOVM 17,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 777777 777777 ---------- *035724 DMOVE 17,036501 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0338 *035745 DMOVE 2,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 631463 146314 C(AC+1)= 000000 000003 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035746 DMOVE 4,036746 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035747 DMOVM 4,000002 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 000000 777777 ---------- *035755 DMOVE 3,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035756 DMOVE 4,036746 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 070707 070707 C(AC+1)= 000000 777777 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0339 *035757 DMOVM 4,000003 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 777777 777777 FINAL C(E)= 777777 777777 C(E+1)= 000000 777777 ---------- *035765 DMOVE 4,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *035766 DMOVE 4,036746 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035767 DMOVM 4,000004 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(E)= 777777 777777 C(E+1)= 000000 777777 ---------- *035775 DMOVE 5,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 000000 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0340 *035776 DMOVE 4,036746 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 707070 707070 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *035777 DMOVM 4,000005 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 000000 777777 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 777777 777777 ---------- *036005 DMOVE 6,036700 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036006 DMOVE 4,036746 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 ---------- *036007 DMOVM 4,000006 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0341 *036034 DMOVE 4,036675 FLAGS - INT/FINAL 300200 300200 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 631463 146314 C(E+1)= 424242 131313 FINAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 ---------- *036040 DMOVM 4,000002 FLAGS - INT/FINAL 020000 000000 INITIAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(E)= 777777 777777 C(E+1)= 424242 131313 ---------- *036051 DMOVE 4,036675 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 631463 146314 C(E+1)= 424242 131313 FINAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 ---------- *036052 DMVNM 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 777777 777777 C(E+1)= 424242 131313 FINAL C(E)= 146314 631463 C(E+1)= 353535 646465 ---------- *036060 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0342 *036061 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036062 DMOVE 4,036702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036063 DMOVN 11,036702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036064 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 000000 000000 C(E+1)= 000000 000000 ---------- *036065 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0343 *036073 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036074 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036075 DMOVE 4,036713 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *036076 DMOVN 11,036713 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *036077 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0344 *036100 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 777777 777777 C(E+1)= 377777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *036106 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036107 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 377777 777777 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036110 DMOVE 4,036715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000001 ---------- *036111 DMOVN 11,036715 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 777777 777777 C(E+1)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0345 *036112 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 000000 000000 C(E+1)= 377777 777777 ---------- *036113 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000001 C(E)= 000000 000000 C(E+1)= 377777 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 ---------- *036121 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036122 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 377777 777777 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036123 DMOVE 4,036712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 89 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0346 *036124 DMOVN 11,036712 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 377777 777777 C(E)= 000000 000001 C(E+1)= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *036125 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 000000 000000 ---------- *036126 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 000000 FINAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 ---------- *036134 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036135 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000000 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0347 *036136 DMOVE 4,036720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252526 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252526 ---------- *036137 DMOVN 11,036720 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 525252 525252 C(E+1)= 252525 252526 FINAL C(AC)= 252525 252525 C(AC+1)= 125252 525252 ---------- *036140 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252526 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 252525 252525 C(E+1)= 125252 525252 ---------- *036141 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252526 C(E)= 252525 252525 C(E+1)= 125252 525252 FINAL C(AC)= 252525 252525 C(AC+1)= 125252 525252 ---------- *036147 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 125252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0348 *036150 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 125252 525252 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036151 DMOVE 4,036723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525253 FINAL C(AC)= 252525 252525 C(AC+1)= 525252 525253 ---------- *036152 DMOVN 11,036723 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 125252 525252 C(E)= 252525 252525 C(E+1)= 525252 525253 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 ---------- *036153 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 525252 525253 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 525252 525252 C(E+1)= 252525 252525 ---------- *036154 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 252525 252525 C(AC+1)= 525252 525253 C(E)= 525252 525252 C(E+1)= 252525 252525 FINAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0349 *036166 DMOVE 17,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777601 030305 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036167 DMOVM 17,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252525 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036170 DMOVE 17,036713 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 ---------- *036171 DMOVN 4,036713 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 000000 000000 C(E+1)= 000000 000001 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *036172 DMVNM 17,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 377777 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 93 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0350 *036173 DMOVE 17,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 777777 777777 C(E+1)= 377777 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 ---------- *036214 DMOVE 2,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 146314 631463 C(AC+1)= 000000 000003 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036215 DMOVE 4,036726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *036216 DMOVN 11,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *036217 DMVNM 4,000002 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 377777 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 94 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0351 *036225 DMOVE 3,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 000001 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036226 DMOVE 4,036726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 070707 070707 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *036227 DMOVN 11,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *036230 DMVNM 4,000003 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 000000 000000 FINAL C(E)= 777777 777777 C(E+1)= 377777 000001 ---------- *036236 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 000001 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 95 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0352 *036237 DMOVE 4,036726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *036240 DMOVN 11,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *036241 DMVNM 4,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(E)= 777777 777777 C(E+1)= 377777 000001 ---------- *036247 DMOVE 5,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 377777 000001 C(AC+1)= 000000 036046 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036250 DMOVE 4,036726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 707070 707070 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0353 *036251 DMOVN 11,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- *036254 DMVNM 4,000005 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 000000 777777 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 000000 000001 ---------- *036262 DMOVE 6,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000001 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036263 DMOVE 4,036726 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 ---------- *036264 DMOVN 11,000004 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 000000 000001 C(E)= 000000 000000 C(E+1)= 000000 777777 FINAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0354 *036265 DMVNM 4,000006 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 777777 777777 C(E+1)= 377777 000001 ---------- *036273 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036274 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 377777 777777 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036275 DMOVE 4,036730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *036276 DMOVN 11,036730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0355 *036277 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 400000 000000 C(E+1)= 000000 000000 ---------- *036300 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *036306 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036307 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- *036310 DMOVE 4,036731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0356 *036311 DMOVN 11,036731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036312 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 000000 000000 C(E+1)= 000000 000000 ---------- *036313 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- *036321 DMOVE 4,036700 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 ---------- *036322 DMOVM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(E)= 707070 707070 C(E+1)= 070707 070707 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0357 *036323 DMOVE 4,036732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- *036324 DMOVN 11,036732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *036325 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707 FINAL C(E)= 400000 000000 C(E+1)= 000000 000000 ---------- *036326 DMOVE 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *036335 DMOVE 4,036702 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0358 *036336 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(E)= 000000 000000 C(E+1)= 000000 000000 ---------- *036366 DMOVE 4,036730 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 036340 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 ---------- *036367 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(E)= 400000 000000 C(E+1)= 000000 000000 ---------- *036417 DMOVE 4,036731 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 036371 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 ---------- *036420 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000 FINAL C(E)= 000000 000000 C(E+1)= 000000 000000 ---------- PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 102 DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0359 *036450 DMOVE 4,036732 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 000000 036422 C(AC+1)= 400000 000000 C(E)= 400000 000000 C(E+1)= 400000 000000 FINAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 ---------- *036451 DMVNM 4,036501 FLAGS - INT/FINAL 000000 000000 INITIAL C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000 FINAL C(E)= 400000 000000 C(E+1)= 000000 000000 ---------- rtl/ssram.DSKEA.dat 444 0 0 1005430 12061437474 12023 0ustar 0 0 // // MAINDEC-10-DSKEA.txt // Do not edit this file. // It was created by an awk script. // SSRAM[00095] = 36'o000000000001; // 000137 SSRAM[12288] = 36'o254004027776; // 030000 SSRAM[12289] = 36'o254000030613; // 030001 SSRAM[12290] = 36'o254020027774; // 030002 SSRAM[12291] = 36'o254020027774; // 030003 SSRAM[12292] = 36'o254000030647; // 030004 SSRAM[12293] = 36'o254000030076; // 030005 SSRAM[12294] = 36'o254000030000; // 030006 SSRAM[12295] = 36'o254020027775; // 030007 SSRAM[12296] = 36'o254000030637; // 030010 SSRAM[12297] = 36'o254020027777; // 030011 SSRAM[12298] = 36'o000000000000; // 030012 SSRAM[12299] = 36'o254200030000; // 030013 SSRAM[12300] = 36'o254200030000; // 030014 SSRAM[12301] = 36'o254200030000; // 030015 SSRAM[12302] = 36'o254200030000; // 030016 SSRAM[12303] = 36'o254200030000; // 030017 SSRAM[12304] = 36'o446353454100; // 030020 SSRAM[12305] = 36'o000000000000; // 030021 SSRAM[12306] = 36'o000000000000; // 030022 SSRAM[12307] = 36'o000000000000; // 030023 SSRAM[12308] = 36'o000000000001; // 030024 SSRAM[12309] = 36'o000000030600; // 030025 SSRAM[12310] = 36'o000000000001; // 030026 SSRAM[12311] = 36'o000000030000; // 030027 SSRAM[12312] = 36'o000000030000; // 030030 SSRAM[12313] = 36'o777777777777; // 030031 SSRAM[12314] = 36'o000000000000; // 030032 SSRAM[12315] = 36'o000000000000; // 030033 SSRAM[12316] = 36'o000000000000; // 030034 SSRAM[12317] = 36'o000000000000; // 030035 SSRAM[12318] = 36'o000000000000; // 030036 SSRAM[12319] = 36'o000000000000; // 030037 SSRAM[12320] = 36'o000000000000; // 030040 SSRAM[12321] = 36'o7777777777770; // 030041 SSRAM[12322] = 36'o777777777777; // 030042 SSRAM[12323] = 36'o000000000000; // 030043 SSRAM[12324] = 36'o000000000000; // 030044 SSRAM[12325] = 36'o000000000000; // 030045 SSRAM[12326] = 36'o000000000000; // 030046 SSRAM[12327] = 36'o000000000000; // 030047 SSRAM[12328] = 36'o000000000000; // 030050 SSRAM[12329] = 36'o000000000000; // 030051 SSRAM[12330] = 36'o000000000000; // 030052 SSRAM[12331] = 36'o000000000000; // 030053 SSRAM[12332] = 36'o000000000000; // 030054 SSRAM[12333] = 36'o000000000000; // 030055 SSRAM[12334] = 36'o000000000000; // 030056 SSRAM[12335] = 36'o037500000004; // 030057 SSRAM[12336] = 36'o254000030010; // 030060 SSRAM[12337] = 36'o037700000004; // 030061 SSRAM[12338] = 36'o000000030061; // 030062 SSRAM[12339] = 36'o000000030000; // 030063 SSRAM[12340] = 36'o350017000000; // 030064 SSRAM[12341] = 36'o263740000000; // 030065 SSRAM[12342] = 36'o255000000000; // 030066 SSRAM[12343] = 36'o255000000000; // 030067 SSRAM[12344] = 36'o255000000000; // 030070 SSRAM[12345] = 36'o255000000000; // 030071 SSRAM[12346] = 36'o255000000000; // 030072 SSRAM[12347] = 36'o255000000000; // 030073 SSRAM[12348] = 36'o255000000000; // 030074 SSRAM[12349] = 36'o255000000000; // 030075 SSRAM[12350] = 36'o255000000000; // 030076 SSRAM[12351] = 36'o255000000000; // 030077 SSRAM[12352] = 36'o255000000000; // 030100 SSRAM[12353] = 36'o255000000000; // 030101 SSRAM[12354] = 36'o254200030102; // 030102 SSRAM[12355] = 36'o000000000000; // 030103 SSRAM[12356] = 36'o000000000000; // 030104 SSRAM[12357] = 36'o000000000000; // 030105 SSRAM[12358] = 36'o000000000000; // 030106 SSRAM[12359] = 36'o000000000000; // 030107 SSRAM[12360] = 36'o000000000000; // 030110 SSRAM[12361] = 36'o000000000000; // 030111 SSRAM[12362] = 36'o000000000000; // 030112 SSRAM[12363] = 36'o000000000000; // 030113 SSRAM[12364] = 36'o000000000000; // 030114 SSRAM[12365] = 36'o000000000000; // 030115 SSRAM[12366] = 36'o000000000000; // 030116 SSRAM[12367] = 36'o000000000000; // 030117 SSRAM[12368] = 36'o000000000000; // 030120 SSRAM[12369] = 36'o000000000000; // 030121 SSRAM[12370] = 36'o000000000000; // 030122 SSRAM[12371] = 36'o000000000000; // 030123 SSRAM[12372] = 36'o030070030070; // 030124 SSRAM[12373] = 36'o030070030070; // 030125 SSRAM[12374] = 36'o030070030070; // 030126 SSRAM[12375] = 36'o030070030070; // 030127 SSRAM[12376] = 36'o030070030070; // 030130 SSRAM[12377] = 36'o030070030070; // 030131 SSRAM[12378] = 36'o030070030070; // 030132 SSRAM[12379] = 36'o030070030070; // 030133 SSRAM[12380] = 36'o030070030070; // 030134 SSRAM[12381] = 36'o030070030070; // 030135 SSRAM[12382] = 36'o030070030070; // 030136 SSRAM[12383] = 36'o030070030070; // 030137 SSRAM[12384] = 36'o030070030070; // 030140 SSRAM[12385] = 36'o030070030070; // 030141 SSRAM[12386] = 36'o000000000000; // 030142 SSRAM[12387] = 36'o000000000000; // 030143 SSRAM[12388] = 36'o000000000000; // 030144 SSRAM[12389] = 36'o000000000000; // 030145 SSRAM[12431] = 36'o000000000000; // 030217 SSRAM[12432] = 36'o000000000000; // 030220 SSRAM[12433] = 36'o000000000000; // 030221 SSRAM[12434] = 36'o000000000000; // 030222 SSRAM[12435] = 36'o000000000000; // 030223 SSRAM[12436] = 36'o000000000000; // 030224 SSRAM[12437] = 36'o000000000000; // 030225 SSRAM[12438] = 36'o000000000000; // 030226 SSRAM[12439] = 36'o000000000000; // 030227 SSRAM[12440] = 36'o000000000000; // 030230 SSRAM[12441] = 36'o000000000000; // 030231 SSRAM[12442] = 36'o000000000000; // 030232 SSRAM[12443] = 36'o000000000000; // 030233 SSRAM[12444] = 36'o000000000000; // 030234 SSRAM[12445] = 36'o000000000000; // 030235 SSRAM[12446] = 36'o000000000000; // 030236 SSRAM[12447] = 36'o000000000000; // 030237 SSRAM[12448] = 36'o000000000000; // 030240 SSRAM[12449] = 36'o000000000000; // 030241 SSRAM[12450] = 36'o064240000000; // 030242 SSRAM[12451] = 36'o064241505000; // 030243 SSRAM[12452] = 36'o260000000000; // 030244 SSRAM[12453] = 36'o270000000000; // 030245 SSRAM[12454] = 36'o200000000000; // 030246 SSRAM[12455] = 36'o044000000000; // 030247 SSRAM[12456] = 36'o264000000000; // 030250 SSRAM[12457] = 36'o254000000000; // 030251 SSRAM[12458] = 36'o250000000000; // 030252 SSRAM[12459] = 36'o400000000000; // 030253 SSRAM[12460] = 36'o240000000000; // 030254 SSRAM[12461] = 36'o244000000000; // 030255 SSRAM[12462] = 36'o016000000000; // 030256 SSRAM[12463] = 36'o374000000000; // 030257 SSRAM[12464] = 36'o274000000000; // 030260 SSRAM[12465] = 36'o220000000000; // 030261 SSRAM[12466] = 36'o000000000012; // 030262 SSRAM[12467] = 36'o000000000040; // 030263 SSRAM[12468] = 36'o000000000012; // 030264 SSRAM[12472] = 36'o606251566400; // 030270 SSRAM[12473] = 36'o605664000000; // 030271 SSRAM[12479] = 36'o606251566400; // 030277 SSRAM[12480] = 36'o605664000000; // 030300 SSRAM[12483] = 36'o777577030303; // 030303 SSRAM[12612] = 36'o000000000000; // 030504 SSRAM[12613] = 36'o000000000000; // 030505 SSRAM[12614] = 36'o000000000000; // 030506 SSRAM[12615] = 36'o000000000000; // 030507 SSRAM[12616] = 36'o000000000000; // 030510 SSRAM[12617] = 36'o000000000000; // 030511 SSRAM[12618] = 36'o000000000000; // 030512 SSRAM[12619] = 36'o000000000000; // 030513 SSRAM[12620] = 36'o000000000000; // 030514 SSRAM[12621] = 36'o000000000000; // 030515 SSRAM[12622] = 36'o000000000000; // 030516 SSRAM[12623] = 36'o000000000000; // 030517 SSRAM[12624] = 36'o000000000000; // 030520 SSRAM[12625] = 36'o000000000000; // 030521 SSRAM[12626] = 36'o000000000000; // 030522 SSRAM[12627] = 36'o000000000000; // 030523 SSRAM[12628] = 36'o000000000000; // 030524 SSRAM[12629] = 36'o000000000000; // 030525 SSRAM[12671] = 36'o000000000000; // 030577 SSRAM[12672] = 36'o064250442606; // 030600 SSRAM[12673] = 36'o516632352212; // 030601 SSRAM[12674] = 36'o465006230144; // 030602 SSRAM[12675] = 36'o301012040616; // 030603 SSRAM[12676] = 36'o446350720220; // 030604 SSRAM[12677] = 36'o406450453602; // 030605 SSRAM[12678] = 36'o512124042222; // 030606 SSRAM[12679] = 36'o406171647646; // 030607 SSRAM[12680] = 36'o522230320120; // 030610 SSRAM[12681] = 36'o422471342602; // 030611 SSRAM[12682] = 36'o244321200000; // 030612 SSRAM[12683] = 36'o201000030613; // 030613 SSRAM[12684] = 36'o202000030051; // 030614 SSRAM[12685] = 36'o476000030506; // 030615 SSRAM[12686] = 36'o476000030511; // 030616 SSRAM[12687] = 36'o265000030011; // 030617 SSRAM[12688] = 36'o201000500000; // 030620 SSRAM[12689] = 36'o202000043727; // 030621 SSRAM[12690] = 36'o200000000041; // 030622 SSRAM[12691] = 36'o202000043733; // 030623 SSRAM[12692] = 36'o200000000502; // 030624 SSRAM[12693] = 36'o202000043736; // 030625 SSRAM[12694] = 36'o200000000430; // 030626 SSRAM[12695] = 36'o202000043734; // 030627 SSRAM[12696] = 36'o200000000423; // 030630 SSRAM[12697] = 36'o202000043732; // 030631 SSRAM[12698] = 36'o200000000422; // 030632 SSRAM[12699] = 36'o202000043731; // 030633 SSRAM[12700] = 36'o200000000421; // 030634 SSRAM[12701] = 36'o202000043730; // 030635 SSRAM[12702] = 36'o402000043735; // 030636 SSRAM[12703] = 36'o402000030116; // 030637 SSRAM[12704] = 36'o402000030052; // 030640 SSRAM[12705] = 36'o201000000000; // 030641 SSRAM[12706] = 36'o201340000012; // 030642 SSRAM[12707] = 36'o607000000400; // 030643 SSRAM[12708] = 36'o201340000001; // 030644 SSRAM[12709] = 36'o202340043737; // 030645 SSRAM[12710] = 36'o254000030652; // 030646 SSRAM[12711] = 36'o402000030047; // 030647 SSRAM[12712] = 36'o402000030053; // 030650 SSRAM[12713] = 36'o254000030010; // 030651 SSRAM[12714] = 36'o201000030652; // 030652 SSRAM[12715] = 36'o202000030051; // 030653 SSRAM[12716] = 36'o200640043737; // 030654 SSRAM[12717] = 36'o201600000000; // 030655 SSRAM[12718] = 36'o701214000000; // 030656 SSRAM[12719] = 36'o701240000013; // 030657 SSRAM[12720] = 36'o312600000013; // 030660 SSRAM[12721] = 36'o036540037051; // 030661 SSRAM[12722] = 36'o254000030663; // 030662 SSRAM[12723] = 36'o201000030663; // 030663 SSRAM[12724] = 36'o202000030051; // 030664 SSRAM[12725] = 36'o201600003777; // 030665 SSRAM[12726] = 36'o701214000000; // 030666 SSRAM[12727] = 36'o701240000013; // 030667 SSRAM[12728] = 36'o701200000000; // 030670 SSRAM[12729] = 36'o336000000013; // 030671 SSRAM[12730] = 36'o036540037056; // 030672 SSRAM[12731] = 36'o254000030674; // 030673 SSRAM[12732] = 36'o201000030674; // 030674 SSRAM[12733] = 36'o202000030051; // 030675 SSRAM[12734] = 36'o201600020000; // 030676 SSRAM[12735] = 36'o701214000000; // 030677 SSRAM[12736] = 36'o701240000013; // 030700 SSRAM[12737] = 36'o701200020000; // 030701 SSRAM[12738] = 36'o312600000013; // 030702 SSRAM[12739] = 36'o036540037064; // 030703 SSRAM[12740] = 36'o035000030676; // 030704 SSRAM[12741] = 36'o201000030705; // 030705 SSRAM[12742] = 36'o202000030051; // 030706 SSRAM[12743] = 36'o201600000001; // 030707 SSRAM[12744] = 36'o701214000000; // 030710 SSRAM[12745] = 36'o701240000013; // 030711 SSRAM[12746] = 36'o701200020000; // 030712 SSRAM[12747] = 36'o312600000013; // 030713 SSRAM[12748] = 36'o036540037071; // 030714 SSRAM[12749] = 36'o035000030707; // 030715 SSRAM[12750] = 36'o201600000002; // 030716 SSRAM[12751] = 36'o701214000000; // 030717 SSRAM[12752] = 36'o701240000013; // 030720 SSRAM[12753] = 36'o701200020000; // 030721 SSRAM[12754] = 36'o312600000013; // 030722 SSRAM[12755] = 36'o036540037071; // 030723 SSRAM[12756] = 36'o035000030716; // 030724 SSRAM[12757] = 36'o201600000004; // 030725 SSRAM[12758] = 36'o701214000000; // 030726 SSRAM[12759] = 36'o701240000013; // 030727 SSRAM[12760] = 36'o701200020000; // 030730 SSRAM[12761] = 36'o312600000013; // 030731 SSRAM[12762] = 36'o036540037071; // 030732 SSRAM[12763] = 36'o035000030725; // 030733 SSRAM[12764] = 36'o201600000010; // 030734 SSRAM[12765] = 36'o701214000000; // 030735 SSRAM[12766] = 36'o701240000013; // 030736 SSRAM[12767] = 36'o701200020000; // 030737 SSRAM[12768] = 36'o312600000013; // 030740 SSRAM[12769] = 36'o036540037071; // 030741 SSRAM[12770] = 36'o035000030734; // 030742 SSRAM[12771] = 36'o201600000020; // 030743 SSRAM[12772] = 36'o701214000000; // 030744 SSRAM[12773] = 36'o701240000013; // 030745 SSRAM[12774] = 36'o701200020000; // 030746 SSRAM[12775] = 36'o312600000013; // 030747 SSRAM[12776] = 36'o036540037071; // 030750 SSRAM[12777] = 36'o035000030743; // 030751 SSRAM[12778] = 36'o201600000040; // 030752 SSRAM[12779] = 36'o701214000000; // 030753 SSRAM[12780] = 36'o701240000013; // 030754 SSRAM[12781] = 36'o701200020000; // 030755 SSRAM[12782] = 36'o312600000013; // 030756 SSRAM[12783] = 36'o036540037071; // 030757 SSRAM[12784] = 36'o035000030752; // 030760 SSRAM[12785] = 36'o201600000100; // 030761 SSRAM[12786] = 36'o701214000000; // 030762 SSRAM[12787] = 36'o701240000013; // 030763 SSRAM[12788] = 36'o701200020000; // 030764 SSRAM[12789] = 36'o312600000013; // 030765 SSRAM[12790] = 36'o036540037071; // 030766 SSRAM[12791] = 36'o035000030761; // 030767 SSRAM[12792] = 36'o201600000200; // 030770 SSRAM[12793] = 36'o701214000000; // 030771 SSRAM[12794] = 36'o701240000013; // 030772 SSRAM[12795] = 36'o701200020000; // 030773 SSRAM[12796] = 36'o312600000013; // 030774 SSRAM[12797] = 36'o036540037071; // 030775 SSRAM[12798] = 36'o035000030770; // 030776 SSRAM[12799] = 36'o201600000400; // 030777 SSRAM[12800] = 36'o701214000000; // 031000 SSRAM[12801] = 36'o701240000013; // 031001 SSRAM[12802] = 36'o701200020000; // 031002 SSRAM[12803] = 36'o312600000013; // 031003 SSRAM[12804] = 36'o036540037071; // 031004 SSRAM[12805] = 36'o035000030777; // 031005 SSRAM[12806] = 36'o201600001000; // 031006 SSRAM[12807] = 36'o701214000000; // 031007 SSRAM[12808] = 36'o701240000013; // 031010 SSRAM[12809] = 36'o701200020000; // 031011 SSRAM[12810] = 36'o312600000013; // 031012 SSRAM[12811] = 36'o036540037071; // 031013 SSRAM[12812] = 36'o035000031006; // 031014 SSRAM[12813] = 36'o201600002000; // 031015 SSRAM[12814] = 36'o701214000000; // 031016 SSRAM[12815] = 36'o701240000013; // 031017 SSRAM[12816] = 36'o701200020000; // 031020 SSRAM[12817] = 36'o312600000013; // 031021 SSRAM[12818] = 36'o036540037071; // 031022 SSRAM[12819] = 36'o035000031015; // 031023 SSRAM[12820] = 36'o201600003777; // 031024 SSRAM[12821] = 36'o701214000000; // 031025 SSRAM[12822] = 36'o701240000013; // 031026 SSRAM[12823] = 36'o701200020000; // 031027 SSRAM[12824] = 36'o312600000013; // 031030 SSRAM[12825] = 36'o036540037076; // 031031 SSRAM[12826] = 36'o035000031024; // 031032 SSRAM[12827] = 36'o201000031033; // 031033 SSRAM[12828] = 36'o202000030051; // 031034 SSRAM[12829] = 36'o201600003776; // 031035 SSRAM[12830] = 36'o701214000000; // 031036 SSRAM[12831] = 36'o701240000013; // 031037 SSRAM[12832] = 36'o701200020000; // 031040 SSRAM[12833] = 36'o312600000013; // 031041 SSRAM[12834] = 36'o036540037103; // 031042 SSRAM[12835] = 36'o035000031035; // 031043 SSRAM[12836] = 36'o201600003775; // 031044 SSRAM[12837] = 36'o701214000000; // 031045 SSRAM[12838] = 36'o701240000013; // 031046 SSRAM[12839] = 36'o701200020000; // 031047 SSRAM[12840] = 36'o312600000013; // 031050 SSRAM[12841] = 36'o036540037103; // 031051 SSRAM[12842] = 36'o035000031044; // 031052 SSRAM[12843] = 36'o201600003773; // 031053 SSRAM[12844] = 36'o701214000000; // 031054 SSRAM[12845] = 36'o701240000013; // 031055 SSRAM[12846] = 36'o701200020000; // 031056 SSRAM[12847] = 36'o312600000013; // 031057 SSRAM[12848] = 36'o036540037103; // 031060 SSRAM[12849] = 36'o035000031053; // 031061 SSRAM[12850] = 36'o201600003767; // 031062 SSRAM[12851] = 36'o701214000000; // 031063 SSRAM[12852] = 36'o701240000013; // 031064 SSRAM[12853] = 36'o701200020000; // 031065 SSRAM[12854] = 36'o312600000013; // 031066 SSRAM[12855] = 36'o036540037103; // 031067 SSRAM[12856] = 36'o035000031062; // 031070 SSRAM[12857] = 36'o201600003757; // 031071 SSRAM[12858] = 36'o701214000000; // 031072 SSRAM[12859] = 36'o701240000013; // 031073 SSRAM[12860] = 36'o701200020000; // 031074 SSRAM[12861] = 36'o312600000013; // 031075 SSRAM[12862] = 36'o036540037103; // 031076 SSRAM[12863] = 36'o035000031071; // 031077 SSRAM[12864] = 36'o201600003737; // 031100 SSRAM[12865] = 36'o701214000000; // 031101 SSRAM[12866] = 36'o701240000013; // 031102 SSRAM[12867] = 36'o701200020000; // 031103 SSRAM[12868] = 36'o312600000013; // 031104 SSRAM[12869] = 36'o036540037103; // 031105 SSRAM[12870] = 36'o035000031100; // 031106 SSRAM[12871] = 36'o201600003677; // 031107 SSRAM[12872] = 36'o701214000000; // 031110 SSRAM[12873] = 36'o701240000013; // 031111 SSRAM[12874] = 36'o701200020000; // 031112 SSRAM[12875] = 36'o312600000013; // 031113 SSRAM[12876] = 36'o036540037103; // 031114 SSRAM[12877] = 36'o035000031107; // 031115 SSRAM[12878] = 36'o201600003577; // 031116 SSRAM[12879] = 36'o701214000000; // 031117 SSRAM[12880] = 36'o701240000013; // 031120 SSRAM[12881] = 36'o701200020000; // 031121 SSRAM[12882] = 36'o312600000013; // 031122 SSRAM[12883] = 36'o036540037103; // 031123 SSRAM[12884] = 36'o035000031116; // 031124 SSRAM[12885] = 36'o201600003377; // 031125 SSRAM[12886] = 36'o701214000000; // 031126 SSRAM[12887] = 36'o701240000013; // 031127 SSRAM[12888] = 36'o701200020000; // 031130 SSRAM[12889] = 36'o312600000013; // 031131 SSRAM[12890] = 36'o036540037103; // 031132 SSRAM[12891] = 36'o035000031125; // 031133 SSRAM[12892] = 36'o201600002777; // 031134 SSRAM[12893] = 36'o701214000000; // 031135 SSRAM[12894] = 36'o701240000013; // 031136 SSRAM[12895] = 36'o701200020000; // 031137 SSRAM[12896] = 36'o312600000013; // 031140 SSRAM[12897] = 36'o036540037103; // 031141 SSRAM[12898] = 36'o035000031134; // 031142 SSRAM[12899] = 36'o201600001777; // 031143 SSRAM[12900] = 36'o701214000000; // 031144 SSRAM[12901] = 36'o701240000013; // 031145 SSRAM[12902] = 36'o701200020000; // 031146 SSRAM[12903] = 36'o312600000013; // 031147 SSRAM[12904] = 36'o036540037103; // 031150 SSRAM[12905] = 36'o035000031143; // 031151 SSRAM[12906] = 36'o367640030655; // 031152 SSRAM[12907] = 36'o201000031153; // 031153 SSRAM[12908] = 36'o202000030051; // 031154 SSRAM[12909] = 36'o200640043737; // 031155 SSRAM[12910] = 36'o200600037106; // 031156 SSRAM[12911] = 36'o701140000014; // 031157 SSRAM[12912] = 36'o701040000013; // 031160 SSRAM[12913] = 36'o620600400000; // 031161 SSRAM[12914] = 36'o205620043727; // 031162 SSRAM[12915] = 36'o312600000013; // 031163 SSRAM[12916] = 36'o036540037112; // 031164 SSRAM[12917] = 36'o035000031156; // 031165 SSRAM[12918] = 36'o200600037115; // 031166 SSRAM[12919] = 36'o701140000014; // 031167 SSRAM[12920] = 36'o701040000013; // 031170 SSRAM[12921] = 36'o701140037116; // 031171 SSRAM[12922] = 36'o620600400000; // 031172 SSRAM[12923] = 36'o505620043727; // 031173 SSRAM[12924] = 36'o336000000013; // 031174 SSRAM[12925] = 36'o036540037117; // 031175 SSRAM[12926] = 36'o035000031166; // 031176 SSRAM[12927] = 36'o201000031177; // 031177 SSRAM[12928] = 36'o202000030051; // 031200 SSRAM[12929] = 36'o200600037122; // 031201 SSRAM[12930] = 36'o701140000014; // 031202 SSRAM[12931] = 36'o701040000013; // 031203 SSRAM[12932] = 36'o701140037116; // 031204 SSRAM[12933] = 36'o620600400000; // 031205 SSRAM[12934] = 36'o505620043727; // 031206 SSRAM[12935] = 36'o312600000013; // 031207 SSRAM[12936] = 36'o036540037123; // 031210 SSRAM[12937] = 36'o035000031201; // 031211 SSRAM[12938] = 36'o200600037126; // 031212 SSRAM[12939] = 36'o701140000014; // 031213 SSRAM[12940] = 36'o701040000013; // 031214 SSRAM[12941] = 36'o701140037116; // 031215 SSRAM[12942] = 36'o620600400000; // 031216 SSRAM[12943] = 36'o505620043727; // 031217 SSRAM[12944] = 36'o312600000013; // 031220 SSRAM[12945] = 36'o036540037123; // 031221 SSRAM[12946] = 36'o035000031212; // 031222 SSRAM[12947] = 36'o200600037127; // 031223 SSRAM[12948] = 36'o701140000014; // 031224 SSRAM[12949] = 36'o701040000013; // 031225 SSRAM[12950] = 36'o701140037116; // 031226 SSRAM[12951] = 36'o620600400000; // 031227 SSRAM[12952] = 36'o505620043727; // 031230 SSRAM[12953] = 36'o312600000013; // 031231 SSRAM[12954] = 36'o036540037123; // 031232 SSRAM[12955] = 36'o035000031223; // 031233 SSRAM[12956] = 36'o200600037130; // 031234 SSRAM[12957] = 36'o701140000014; // 031235 SSRAM[12958] = 36'o701040000013; // 031236 SSRAM[12959] = 36'o701140037116; // 031237 SSRAM[12960] = 36'o620600400000; // 031240 SSRAM[12961] = 36'o505620043727; // 031241 SSRAM[12962] = 36'o312600000013; // 031242 SSRAM[12963] = 36'o036540037123; // 031243 SSRAM[12964] = 36'o035000031234; // 031244 SSRAM[12965] = 36'o200600037131; // 031245 SSRAM[12966] = 36'o701140000014; // 031246 SSRAM[12967] = 36'o701040000013; // 031247 SSRAM[12968] = 36'o701140037116; // 031250 SSRAM[12969] = 36'o620600400000; // 031251 SSRAM[12970] = 36'o505620043727; // 031252 SSRAM[12971] = 36'o312600000013; // 031253 SSRAM[12972] = 36'o036540037123; // 031254 SSRAM[12973] = 36'o035000031245; // 031255 SSRAM[12974] = 36'o200600037132; // 031256 SSRAM[12975] = 36'o701140000014; // 031257 SSRAM[12976] = 36'o701040000013; // 031260 SSRAM[12977] = 36'o701140037116; // 031261 SSRAM[12978] = 36'o620600400000; // 031262 SSRAM[12979] = 36'o505620043727; // 031263 SSRAM[12980] = 36'o312600000013; // 031264 SSRAM[12981] = 36'o036540037123; // 031265 SSRAM[12982] = 36'o035000031256; // 031266 SSRAM[12983] = 36'o200600037133; // 031267 SSRAM[12984] = 36'o701140000014; // 031270 SSRAM[12985] = 36'o701040000013; // 031271 SSRAM[12986] = 36'o701140037116; // 031272 SSRAM[12987] = 36'o620600400000; // 031273 SSRAM[12988] = 36'o505620043727; // 031274 SSRAM[12989] = 36'o312600000013; // 031275 SSRAM[12990] = 36'o036540037123; // 031276 SSRAM[12991] = 36'o035000031267; // 031277 SSRAM[12992] = 36'o200600037134; // 031300 SSRAM[12993] = 36'o701140000014; // 031301 SSRAM[12994] = 36'o701040000013; // 031302 SSRAM[12995] = 36'o701140037116; // 031303 SSRAM[12996] = 36'o620600400000; // 031304 SSRAM[12997] = 36'o505620043727; // 031305 SSRAM[12998] = 36'o312600000013; // 031306 SSRAM[12999] = 36'o036540037123; // 031307 SSRAM[13000] = 36'o035000031300; // 031310 SSRAM[13001] = 36'o200600037135; // 031311 SSRAM[13002] = 36'o701140000014; // 031312 SSRAM[13003] = 36'o701040000013; // 031313 SSRAM[13004] = 36'o701140037116; // 031314 SSRAM[13005] = 36'o620600400000; // 031315 SSRAM[13006] = 36'o505620043727; // 031316 SSRAM[13007] = 36'o312600000013; // 031317 SSRAM[13008] = 36'o036540037123; // 031320 SSRAM[13009] = 36'o035000031311; // 031321 SSRAM[13010] = 36'o200600037136; // 031322 SSRAM[13011] = 36'o701140000014; // 031323 SSRAM[13012] = 36'o701040000013; // 031324 SSRAM[13013] = 36'o701140037116; // 031325 SSRAM[13014] = 36'o620600400000; // 031326 SSRAM[13015] = 36'o505620043727; // 031327 SSRAM[13016] = 36'o312600000013; // 031330 SSRAM[13017] = 36'o036540037123; // 031331 SSRAM[13018] = 36'o035000031322; // 031332 SSRAM[13019] = 36'o200600037137; // 031333 SSRAM[13020] = 36'o701140000014; // 031334 SSRAM[13021] = 36'o701040000013; // 031335 SSRAM[13022] = 36'o701140037116; // 031336 SSRAM[13023] = 36'o620600400000; // 031337 SSRAM[13024] = 36'o505620043727; // 031340 SSRAM[13025] = 36'o312600000013; // 031341 SSRAM[13026] = 36'o036540037123; // 031342 SSRAM[13027] = 36'o035000031333; // 031343 SSRAM[13028] = 36'o200600037115; // 031344 SSRAM[13029] = 36'o701140000014; // 031345 SSRAM[13030] = 36'o701040000013; // 031346 SSRAM[13031] = 36'o701140037116; // 031347 SSRAM[13032] = 36'o620600400000; // 031350 SSRAM[13033] = 36'o505620043727; // 031351 SSRAM[13034] = 36'o312600000013; // 031352 SSRAM[13035] = 36'o036540037140; // 031353 SSRAM[13036] = 36'o035000031344; // 031354 SSRAM[13037] = 36'o200600037143; // 031355 SSRAM[13038] = 36'o701140000014; // 031356 SSRAM[13039] = 36'o701040000013; // 031357 SSRAM[13040] = 36'o701140037116; // 031360 SSRAM[13041] = 36'o620600400000; // 031361 SSRAM[13042] = 36'o505620043727; // 031362 SSRAM[13043] = 36'o312600000013; // 031363 SSRAM[13044] = 36'o036540037144; // 031364 SSRAM[13045] = 36'o035000031355; // 031365 SSRAM[13046] = 36'o200600037147; // 031366 SSRAM[13047] = 36'o701140000014; // 031367 SSRAM[13048] = 36'o701040000013; // 031370 SSRAM[13049] = 36'o701140037116; // 031371 SSRAM[13050] = 36'o620600400000; // 031372 SSRAM[13051] = 36'o505620043727; // 031373 SSRAM[13052] = 36'o312600000013; // 031374 SSRAM[13053] = 36'o036540037144; // 031375 SSRAM[13054] = 36'o035000031366; // 031376 SSRAM[13055] = 36'o200600037150; // 031377 SSRAM[13056] = 36'o701140000014; // 031400 SSRAM[13057] = 36'o701040000013; // 031401 SSRAM[13058] = 36'o701140037116; // 031402 SSRAM[13059] = 36'o620600400000; // 031403 SSRAM[13060] = 36'o505620043727; // 031404 SSRAM[13061] = 36'o312600000013; // 031405 SSRAM[13062] = 36'o036540037144; // 031406 SSRAM[13063] = 36'o035000031377; // 031407 SSRAM[13064] = 36'o200600037151; // 031410 SSRAM[13065] = 36'o701140000014; // 031411 SSRAM[13066] = 36'o701040000013; // 031412 SSRAM[13067] = 36'o701140037116; // 031413 SSRAM[13068] = 36'o620600400000; // 031414 SSRAM[13069] = 36'o505620043727; // 031415 SSRAM[13070] = 36'o312600000013; // 031416 SSRAM[13071] = 36'o036540037144; // 031417 SSRAM[13072] = 36'o035000031410; // 031420 SSRAM[13073] = 36'o200600037152; // 031421 SSRAM[13074] = 36'o701140000014; // 031422 SSRAM[13075] = 36'o701040000013; // 031423 SSRAM[13076] = 36'o701140037116; // 031424 SSRAM[13077] = 36'o620600400000; // 031425 SSRAM[13078] = 36'o505620043727; // 031426 SSRAM[13079] = 36'o312600000013; // 031427 SSRAM[13080] = 36'o036540037144; // 031430 SSRAM[13081] = 36'o035000031421; // 031431 SSRAM[13082] = 36'o200600037153; // 031432 SSRAM[13083] = 36'o701140000014; // 031433 SSRAM[13084] = 36'o701040000013; // 031434 SSRAM[13085] = 36'o701140037116; // 031435 SSRAM[13086] = 36'o620600400000; // 031436 SSRAM[13087] = 36'o505620043727; // 031437 SSRAM[13088] = 36'o312600000013; // 031440 SSRAM[13089] = 36'o036540037144; // 031441 SSRAM[13090] = 36'o035000031432; // 031442 SSRAM[13091] = 36'o200600037154; // 031443 SSRAM[13092] = 36'o701140000014; // 031444 SSRAM[13093] = 36'o701040000013; // 031445 SSRAM[13094] = 36'o701140037116; // 031446 SSRAM[13095] = 36'o620600400000; // 031447 SSRAM[13096] = 36'o505620043727; // 031450 SSRAM[13097] = 36'o312600000013; // 031451 SSRAM[13098] = 36'o036540037144; // 031452 SSRAM[13099] = 36'o035000031443; // 031453 SSRAM[13100] = 36'o200600037155; // 031454 SSRAM[13101] = 36'o701140000014; // 031455 SSRAM[13102] = 36'o701040000013; // 031456 SSRAM[13103] = 36'o701140037116; // 031457 SSRAM[13104] = 36'o620600400000; // 031460 SSRAM[13105] = 36'o505620043727; // 031461 SSRAM[13106] = 36'o312600000013; // 031462 SSRAM[13107] = 36'o036540037144; // 031463 SSRAM[13108] = 36'o035000031454; // 031464 SSRAM[13109] = 36'o200600037156; // 031465 SSRAM[13110] = 36'o701140000014; // 031466 SSRAM[13111] = 36'o701040000013; // 031467 SSRAM[13112] = 36'o701140037116; // 031470 SSRAM[13113] = 36'o620600400000; // 031471 SSRAM[13114] = 36'o505620043727; // 031472 SSRAM[13115] = 36'o312600000013; // 031473 SSRAM[13116] = 36'o036540037144; // 031474 SSRAM[13117] = 36'o035000031465; // 031475 SSRAM[13118] = 36'o200600037157; // 031476 SSRAM[13119] = 36'o701140000014; // 031477 SSRAM[13120] = 36'o701040000013; // 031500 SSRAM[13121] = 36'o701140037116; // 031501 SSRAM[13122] = 36'o620600400000; // 031502 SSRAM[13123] = 36'o505620043727; // 031503 SSRAM[13124] = 36'o312600000013; // 031504 SSRAM[13125] = 36'o036540037144; // 031505 SSRAM[13126] = 36'o035000031476; // 031506 SSRAM[13127] = 36'o200600037160; // 031507 SSRAM[13128] = 36'o701140000014; // 031510 SSRAM[13129] = 36'o701040000013; // 031511 SSRAM[13130] = 36'o701140037116; // 031512 SSRAM[13131] = 36'o620600400000; // 031513 SSRAM[13132] = 36'o505620043727; // 031514 SSRAM[13133] = 36'o312600000013; // 031515 SSRAM[13134] = 36'o036540037144; // 031516 SSRAM[13135] = 36'o035000031507; // 031517 SSRAM[13136] = 36'o367640031156; // 031520 SSRAM[13137] = 36'o201000031521; // 031521 SSRAM[13138] = 36'o202000030051; // 031522 SSRAM[13139] = 36'o200640043737; // 031523 SSRAM[13140] = 36'o701200020000; // 031524 SSRAM[13141] = 36'o701140037116; // 031525 SSRAM[13142] = 36'o200340037165; // 031526 SSRAM[13143] = 36'o202340000423; // 031527 SSRAM[13144] = 36'o701200020000; // 031530 SSRAM[13145] = 36'o254120031532; // 031531 SSRAM[13146] = 36'o000600031533; // 031532 SSRAM[13147] = 36'o200000043732; // 031533 SSRAM[13148] = 36'o202000000423; // 031534 SSRAM[13149] = 36'o036540037172; // 031535 SSRAM[13150] = 36'o254000031550; // 031536 SSRAM[13151] = 36'o000000000000; // 031537 SSRAM[13152] = 36'o701200020000; // 031540 SSRAM[13153] = 36'o200000043732; // 031541 SSRAM[13154] = 36'o202000000423; // 031542 SSRAM[13155] = 36'o200600037175; // 031543 SSRAM[13156] = 36'o200540031537; // 031544 SSRAM[13157] = 36'o312600000013; // 031545 SSRAM[13158] = 36'o036540037201; // 031546 SSRAM[13159] = 36'o035000031526; // 031547 SSRAM[13160] = 36'o200340037204; // 031550 SSRAM[13161] = 36'o202340000422; // 031551 SSRAM[13162] = 36'o701200020000; // 031552 SSRAM[13163] = 36'o254120031554; // 031553 SSRAM[13164] = 36'o000400031555; // 031554 SSRAM[13165] = 36'o200000043731; // 031555 SSRAM[13166] = 36'o202000000422; // 031556 SSRAM[13167] = 36'o036540037210; // 031557 SSRAM[13168] = 36'o254000031572; // 031560 SSRAM[13169] = 36'o000000000000; // 031561 SSRAM[13170] = 36'o701200020000; // 031562 SSRAM[13171] = 36'o200000043731; // 031563 SSRAM[13172] = 36'o202000000422; // 031564 SSRAM[13173] = 36'o200600037213; // 031565 SSRAM[13174] = 36'o200540031561; // 031566 SSRAM[13175] = 36'o312600000013; // 031567 SSRAM[13176] = 36'o036540037217; // 031570 SSRAM[13177] = 36'o035000031526; // 031571 SSRAM[13178] = 36'o200340037222; // 031572 SSRAM[13179] = 36'o202340000421; // 031573 SSRAM[13180] = 36'o701200020000; // 031574 SSRAM[13181] = 36'o254120031576; // 031575 SSRAM[13182] = 36'o000200031577; // 031576 SSRAM[13183] = 36'o200000043730; // 031577 SSRAM[13184] = 36'o202000000421; // 031600 SSRAM[13185] = 36'o036540037226; // 031601 SSRAM[13186] = 36'o254000031615; // 031602 SSRAM[13187] = 36'o000000000000; // 031603 SSRAM[13188] = 36'o701200020000; // 031604 SSRAM[13189] = 36'o200000043730; // 031605 SSRAM[13190] = 36'o202000000421; // 031606 SSRAM[13191] = 36'o200600037231; // 031607 SSRAM[13192] = 36'o200540031603; // 031610 SSRAM[13193] = 36'o312600000013; // 031611 SSRAM[13194] = 36'o036540037235; // 031612 SSRAM[13195] = 36'o035000031526; // 031613 SSRAM[13196] = 36'o367640031524; // 031614 SSRAM[13197] = 36'o201000031615; // 031615 SSRAM[13198] = 36'o202000030051; // 031616 SSRAM[13199] = 36'o200640043737; // 031617 SSRAM[13200] = 36'o205000031625; // 031620 SSRAM[13201] = 36'o541000031627; // 031621 SSRAM[13202] = 36'o260740032331; // 031622 SSRAM[13203] = 36'o200040037240; // 031623 SSRAM[13204] = 36'o261040032365; // 031624 SSRAM[13205] = 36'o036540037245; // 031625 SSRAM[13206] = 36'o035000031620; // 031626 SSRAM[13207] = 36'o312040037250; // 031627 SSRAM[13208] = 36'o036540037256; // 031630 SSRAM[13209] = 36'o035000031620; // 031631 SSRAM[13210] = 36'o200040032366; // 031632 SSRAM[13211] = 36'o312040032365; // 031633 SSRAM[13212] = 36'o036540037265; // 031634 SSRAM[13213] = 36'o035000031620; // 031635 SSRAM[13214] = 36'o205000031645; // 031636 SSRAM[13215] = 36'o541000031647; // 031637 SSRAM[13216] = 36'o260740032331; // 031640 SSRAM[13217] = 36'o200040037240; // 031641 SSRAM[13218] = 36'o260040031645; // 031642 SSRAM[13219] = 36'o036540037275; // 031643 SSRAM[13220] = 36'o035000031636; // 031644 SSRAM[13221] = 36'o036540037303; // 031645 SSRAM[13222] = 36'o035000031636; // 031646 SSRAM[13223] = 36'o312040037250; // 031647 SSRAM[13224] = 36'o036540037306; // 031650 SSRAM[13225] = 36'o035000031636; // 031651 SSRAM[13226] = 36'o200040032366; // 031652 SSRAM[13227] = 36'o201100031643; // 031653 SSRAM[13228] = 36'o553000000001; // 031654 SSRAM[13229] = 36'o312040000002; // 031655 SSRAM[13230] = 36'o036540037316; // 031656 SSRAM[13231] = 36'o035000031636; // 031657 SSRAM[13232] = 36'o205000031670; // 031660 SSRAM[13233] = 36'o541000031672; // 031661 SSRAM[13234] = 36'o260740032331; // 031662 SSRAM[13235] = 36'o201040032366; // 031663 SSRAM[13236] = 36'o200000032365; // 031664 SSRAM[13237] = 36'o202000032366; // 031665 SSRAM[13238] = 36'o400100000000; // 031666 SSRAM[13239] = 36'o262040000002; // 031667 SSRAM[13240] = 36'o036540037322; // 031670 SSRAM[13241] = 36'o035000031660; // 031671 SSRAM[13242] = 36'o312100032365; // 031672 SSRAM[13243] = 36'o036540037331; // 031673 SSRAM[13244] = 36'o035000031660; // 031674 SSRAM[13245] = 36'o312040037240; // 031675 SSRAM[13246] = 36'o036540037341; // 031676 SSRAM[13247] = 36'o035000031660; // 031677 SSRAM[13248] = 36'o205000031711; // 031700 SSRAM[13249] = 36'o541000031713; // 031701 SSRAM[13250] = 36'o260740032331; // 031702 SSRAM[13251] = 36'o201040032366; // 031703 SSRAM[13252] = 36'o201000031711; // 031704 SSRAM[13253] = 36'o202000032366; // 031705 SSRAM[13254] = 36'o263040000000; // 031706 SSRAM[13255] = 36'o036540037353; // 031707 SSRAM[13256] = 36'o035000031700; // 031710 SSRAM[13257] = 36'o036540037356; // 031711 SSRAM[13258] = 36'o035000031700; // 031712 SSRAM[13259] = 36'o312040037240; // 031713 SSRAM[13260] = 36'o036540037361; // 031714 SSRAM[13261] = 36'o035000031700; // 031715 SSRAM[13262] = 36'o205000031723; // 031716 SSRAM[13263] = 36'o541000031727; // 031717 SSRAM[13264] = 36'o260740032327; // 031720 SSRAM[13265] = 36'o200100037364; // 031721 SSRAM[13266] = 36'o240100000001; // 031722 SSRAM[13267] = 36'o200000043730; // 031723 SSRAM[13268] = 36'o202000000421; // 031724 SSRAM[13269] = 36'o036540037370; // 031725 SSRAM[13270] = 36'o035000031716; // 031726 SSRAM[13271] = 36'o200000043730; // 031727 SSRAM[13272] = 36'o202000000421; // 031730 SSRAM[13273] = 36'o312100037373; // 031731 SSRAM[13274] = 36'o036540037376; // 031732 SSRAM[13275] = 36'o035000031716; // 031733 SSRAM[13276] = 36'o205000031742; // 031734 SSRAM[13277] = 36'o541000031746; // 031735 SSRAM[13278] = 36'o260740032327; // 031736 SSRAM[13279] = 36'o200100037364; // 031737 SSRAM[13280] = 36'o201140000000; // 031740 SSRAM[13281] = 36'o244100000001; // 031741 SSRAM[13282] = 36'o200000043730; // 031742 SSRAM[13283] = 36'o202000000421; // 031743 SSRAM[13284] = 36'o036540037404; // 031744 SSRAM[13285] = 36'o035000031734; // 031745 SSRAM[13286] = 36'o200000043730; // 031746 SSRAM[13287] = 36'o202000000421; // 031747 SSRAM[13288] = 36'o312100037373; // 031750 SSRAM[13289] = 36'o036540037407; // 031751 SSRAM[13290] = 36'o035000031734; // 031752 SSRAM[13291] = 36'o205000031760; // 031753 SSRAM[13292] = 36'o541000031764; // 031754 SSRAM[13293] = 36'o260740032327; // 031755 SSRAM[13294] = 36'o200100037412; // 031756 SSRAM[13295] = 36'o224100000002; // 031757 SSRAM[13296] = 36'o200000043730; // 031760 SSRAM[13297] = 36'o202000000421; // 031761 SSRAM[13298] = 36'o036540037416; // 031762 SSRAM[13299] = 36'o035000031753; // 031763 SSRAM[13300] = 36'o200000043730; // 031764 SSRAM[13301] = 36'o202000000421; // 031765 SSRAM[13302] = 36'o312100037412; // 031766 SSRAM[13303] = 36'o036540037423; // 031767 SSRAM[13304] = 36'o035000031753; // 031770 SSRAM[13305] = 36'o205000031776; // 031771 SSRAM[13306] = 36'o541000032002; // 031772 SSRAM[13307] = 36'o260740032327; // 031773 SSRAM[13308] = 36'o200100037412; // 031774 SSRAM[13309] = 36'o220100000002; // 031775 SSRAM[13310] = 36'o200000043730; // 031776 SSRAM[13311] = 36'o202000000421; // 031777 SSRAM[13312] = 36'o036540037431; // 032000 SSRAM[13313] = 36'o035000031771; // 032001 SSRAM[13314] = 36'o200000043730; // 032002 SSRAM[13315] = 36'o202000000421; // 032003 SSRAM[13316] = 36'o312100037412; // 032004 SSRAM[13317] = 36'o036540037434; // 032005 SSRAM[13318] = 36'o035000031771; // 032006 SSRAM[13319] = 36'o205000032014; // 032007 SSRAM[13320] = 36'o541000032020; // 032010 SSRAM[13321] = 36'o260740032327; // 032011 SSRAM[13322] = 36'o200100037437; // 032012 SSRAM[13323] = 36'o133040000002; // 032013 SSRAM[13324] = 36'o200000043730; // 032014 SSRAM[13325] = 36'o202000000421; // 032015 SSRAM[13326] = 36'o036540037443; // 032016 SSRAM[13327] = 36'o035000032007; // 032017 SSRAM[13328] = 36'o200000043730; // 032020 SSRAM[13329] = 36'o202000000421; // 032021 SSRAM[13330] = 36'o205000032027; // 032022 SSRAM[13331] = 36'o541000032033; // 032023 SSRAM[13332] = 36'o260740032327; // 032024 SSRAM[13333] = 36'o200100037446; // 032025 SSRAM[13334] = 36'o132100777400; // 032026 SSRAM[13335] = 36'o200000043730; // 032027 SSRAM[13336] = 36'o202000000421; // 032030 SSRAM[13337] = 36'o036540037452; // 032031 SSRAM[13338] = 36'o035000032022; // 032032 SSRAM[13339] = 36'o200000043730; // 032033 SSRAM[13340] = 36'o202000000421; // 032034 SSRAM[13341] = 36'o205000032042; // 032035 SSRAM[13342] = 36'o541000032046; // 032036 SSRAM[13343] = 36'o260740032327; // 032037 SSRAM[13344] = 36'o200100037455; // 032040 SSRAM[13345] = 36'o122100000002; // 032041 SSRAM[13346] = 36'o200000043730; // 032042 SSRAM[13347] = 36'o202000000421; // 032043 SSRAM[13348] = 36'o036540037461; // 032044 SSRAM[13349] = 36'o035000032035; // 032045 SSRAM[13350] = 36'o200000043730; // 032046 SSRAM[13351] = 36'o202000000421; // 032047 SSRAM[13352] = 36'o312100037455; // 032050 SSRAM[13353] = 36'o036540037464; // 032051 SSRAM[13354] = 36'o035000032035; // 032052 SSRAM[13355] = 36'o205000032060; // 032053 SSRAM[13356] = 36'o541000032064; // 032054 SSRAM[13357] = 36'o260740032327; // 032055 SSRAM[13358] = 36'o200100037455; // 032056 SSRAM[13359] = 36'o126100000002; // 032057 SSRAM[13360] = 36'o200000043730; // 032060 SSRAM[13361] = 36'o202000000421; // 032061 SSRAM[13362] = 36'o036540037472; // 032062 SSRAM[13363] = 36'o035000032053; // 032063 SSRAM[13364] = 36'o200000043730; // 032064 SSRAM[13365] = 36'o202000000421; // 032065 SSRAM[13366] = 36'o312100037455; // 032066 SSRAM[13367] = 36'o036540037475; // 032067 SSRAM[13368] = 36'o035000032053; // 032070 SSRAM[13369] = 36'o205000032076; // 032071 SSRAM[13370] = 36'o541000032102; // 032072 SSRAM[13371] = 36'o260740032327; // 032073 SSRAM[13372] = 36'o200100037500; // 032074 SSRAM[13373] = 36'o140100000002; // 032075 SSRAM[13374] = 36'o200000043730; // 032076 SSRAM[13375] = 36'o202000000421; // 032077 SSRAM[13376] = 36'o036540037504; // 032100 SSRAM[13377] = 36'o035000032071; // 032101 SSRAM[13378] = 36'o200000043730; // 032102 SSRAM[13379] = 36'o202000000421; // 032103 SSRAM[13380] = 36'o205000032111; // 032104 SSRAM[13381] = 36'o541000032115; // 032105 SSRAM[13382] = 36'o260740032327; // 032106 SSRAM[13383] = 36'o200100037500; // 032107 SSRAM[13384] = 36'o110100000002; // 032110 SSRAM[13385] = 36'o200000043730; // 032111 SSRAM[13386] = 36'o202000000421; // 032112 SSRAM[13387] = 36'o036540037512; // 032113 SSRAM[13388] = 36'o035000032104; // 032114 SSRAM[13389] = 36'o200000043730; // 032115 SSRAM[13390] = 36'o202000000421; // 032116 SSRAM[13391] = 36'o205000032125; // 032117 SSRAM[13392] = 36'o541000032131; // 032120 SSRAM[13393] = 36'o260740032327; // 032121 SSRAM[13394] = 36'o200100037446; // 032122 SSRAM[13395] = 36'o200140037500; // 032123 SSRAM[13396] = 36'o150100000003; // 032124 SSRAM[13397] = 36'o200000043730; // 032125 SSRAM[13398] = 36'o202000000421; // 032126 SSRAM[13399] = 36'o036540037520; // 032127 SSRAM[13400] = 36'o035000032117; // 032130 SSRAM[13401] = 36'o200000043730; // 032131 SSRAM[13402] = 36'o202000000421; // 032132 SSRAM[13403] = 36'o205000032142; // 032133 SSRAM[13404] = 36'o541000032146; // 032134 SSRAM[13405] = 36'o260740032327; // 032135 SSRAM[13406] = 36'o200100037446; // 032136 SSRAM[13407] = 36'o200200037500; // 032137 SSRAM[13408] = 36'o403140000005; // 032140 SSRAM[13409] = 36'o111100000004; // 032141 SSRAM[13410] = 36'o200000043730; // 032142 SSRAM[13411] = 36'o202000000421; // 032143 SSRAM[13412] = 36'o036540037526; // 032144 SSRAM[13413] = 36'o035000032133; // 032145 SSRAM[13414] = 36'o200000043730; // 032146 SSRAM[13415] = 36'o202000000421; // 032147 SSRAM[13416] = 36'o205000032155; // 032150 SSRAM[13417] = 36'o541000032161; // 032151 SSRAM[13418] = 36'o260740032327; // 032152 SSRAM[13419] = 36'o200100037500; // 032153 SSRAM[13420] = 36'o160100000002; // 032154 SSRAM[13421] = 36'o200000043730; // 032155 SSRAM[13422] = 36'o202000000421; // 032156 SSRAM[13423] = 36'o036540037534; // 032157 SSRAM[13424] = 36'o035000032150; // 032160 SSRAM[13425] = 36'o200000043730; // 032161 SSRAM[13426] = 36'o202000000421; // 032162 SSRAM[13427] = 36'o205000032170; // 032163 SSRAM[13428] = 36'o541000032174; // 032164 SSRAM[13429] = 36'o260740032327; // 032165 SSRAM[13430] = 36'o200100037500; // 032166 SSRAM[13431] = 36'o112100000002; // 032167 SSRAM[13432] = 36'o200000043730; // 032170 SSRAM[13433] = 36'o202000000421; // 032171 SSRAM[13434] = 36'o036540037542; // 032172 SSRAM[13435] = 36'o035000032163; // 032173 SSRAM[13436] = 36'o200000043730; // 032174 SSRAM[13437] = 36'o202000000421; // 032175 SSRAM[13438] = 36'o205000032203; // 032176 SSRAM[13439] = 36'o541000032207; // 032177 SSRAM[13440] = 36'o260740032327; // 032200 SSRAM[13441] = 36'o403100000003; // 032201 SSRAM[13442] = 36'o234100000002; // 032202 SSRAM[13443] = 36'o200000043730; // 032203 SSRAM[13444] = 36'o202000000421; // 032204 SSRAM[13445] = 36'o036540037550; // 032205 SSRAM[13446] = 36'o035000032176; // 032206 SSRAM[13447] = 36'o200000043730; // 032207 SSRAM[13448] = 36'o202000000421; // 032210 SSRAM[13449] = 36'o312100037173; // 032211 SSRAM[13450] = 36'o036540037553; // 032212 SSRAM[13451] = 36'o035000032176; // 032213 SSRAM[13452] = 36'o312140037173; // 032214 SSRAM[13453] = 36'o036540037561; // 032215 SSRAM[13454] = 36'o035000032176; // 032216 SSRAM[13455] = 36'o205000032224; // 032217 SSRAM[13456] = 36'o541000032230; // 032220 SSRAM[13457] = 36'o260740032327; // 032221 SSRAM[13458] = 36'o403100000003; // 032222 SSRAM[13459] = 36'o230100000002; // 032223 SSRAM[13460] = 36'o200000043730; // 032224 SSRAM[13461] = 36'o202000000421; // 032225 SSRAM[13462] = 36'o036540037567; // 032226 SSRAM[13463] = 36'o035000032217; // 032227 SSRAM[13464] = 36'o200000043730; // 032230 SSRAM[13465] = 36'o202000000421; // 032231 SSRAM[13466] = 36'o312100037173; // 032232 SSRAM[13467] = 36'o036540037572; // 032233 SSRAM[13468] = 36'o035000032217; // 032234 SSRAM[13469] = 36'o312140037173; // 032235 SSRAM[13470] = 36'o036540037575; // 032236 SSRAM[13471] = 36'o035000032217; // 032237 SSRAM[13472] = 36'o205000032245; // 032240 SSRAM[13473] = 36'o541000032251; // 032241 SSRAM[13474] = 36'o260740032327; // 032242 SSRAM[13475] = 36'o403100000003; // 032243 SSRAM[13476] = 36'o170100000002; // 032244 SSRAM[13477] = 36'o200000043730; // 032245 SSRAM[13478] = 36'o202000000421; // 032246 SSRAM[13479] = 36'o036540037603; // 032247 SSRAM[13480] = 36'o035000032240; // 032250 SSRAM[13481] = 36'o200000043730; // 032251 SSRAM[13482] = 36'o202000000421; // 032252 SSRAM[13483] = 36'o312100037173; // 032253 SSRAM[13484] = 36'o036540037606; // 032254 SSRAM[13485] = 36'o035000032240; // 032255 SSRAM[13486] = 36'o312140037173; // 032256 SSRAM[13487] = 36'o036540037611; // 032257 SSRAM[13488] = 36'o035000032240; // 032260 SSRAM[13489] = 36'o205000032266; // 032261 SSRAM[13490] = 36'o541000032272; // 032262 SSRAM[13491] = 36'o260740032327; // 032263 SSRAM[13492] = 36'o403100000003; // 032264 SSRAM[13493] = 36'o174100000002; // 032265 SSRAM[13494] = 36'o200000043730; // 032266 SSRAM[13495] = 36'o202000000421; // 032267 SSRAM[13496] = 36'o036540037617; // 032270 SSRAM[13497] = 36'o035000032261; // 032271 SSRAM[13498] = 36'o200000043730; // 032272 SSRAM[13499] = 36'o202000000421; // 032273 SSRAM[13500] = 36'o312100037173; // 032274 SSRAM[13501] = 36'o036540037622; // 032275 SSRAM[13502] = 36'o035000032261; // 032276 SSRAM[13503] = 36'o312140037173; // 032277 SSRAM[13504] = 36'o036540037625; // 032300 SSRAM[13505] = 36'o035000032261; // 032301 SSRAM[13506] = 36'o205000032307; // 032302 SSRAM[13507] = 36'o541000032313; // 032303 SSRAM[13508] = 36'o260740032327; // 032304 SSRAM[13509] = 36'o403100000003; // 032305 SSRAM[13510] = 36'o113100000002; // 032306 SSRAM[13511] = 36'o200000043730; // 032307 SSRAM[13512] = 36'o202000000421; // 032310 SSRAM[13513] = 36'o036540037633; // 032311 SSRAM[13514] = 36'o035000032302; // 032312 SSRAM[13515] = 36'o200000043730; // 032313 SSRAM[13516] = 36'o202000000421; // 032314 SSRAM[13517] = 36'o312100037173; // 032315 SSRAM[13518] = 36'o036540037636; // 032316 SSRAM[13519] = 36'o035000032302; // 032317 SSRAM[13520] = 36'o312140037173; // 032320 SSRAM[13521] = 36'o036540037641; // 032321 SSRAM[13522] = 36'o035000032302; // 032322 SSRAM[13523] = 36'o367640031620; // 032323 SSRAM[13524] = 36'o200000043731; // 032324 SSRAM[13525] = 36'o202000000422; // 032325 SSRAM[13526] = 36'o254000032371; // 032326 SSRAM[13527] = 36'o402000032364; // 032327 SSRAM[13528] = 36'o254000032332; // 032330 SSRAM[13529] = 36'o476000032364; // 032331 SSRAM[13530] = 36'o552000032361; // 032332 SSRAM[13531] = 36'o556000032360; // 032333 SSRAM[13532] = 36'o201000000421; // 032334 SSRAM[13533] = 36'o332000032364; // 032335 SSRAM[13534] = 36'o201000000422; // 032336 SSRAM[13535] = 36'o202000032363; // 032337 SSRAM[13536] = 36'o200000032344; // 032340 SSRAM[13537] = 36'o250020032363; // 032341 SSRAM[13538] = 36'o202000032362; // 032342 SSRAM[13539] = 36'o263740000000; // 032343 SSRAM[13540] = 36'o264000032345; // 032344 SSRAM[13541] = 36'o000000000000; // 032345 SSRAM[13542] = 36'o261740000001; // 032346 SSRAM[13543] = 36'o200040032362; // 032347 SSRAM[13544] = 36'o202060032363; // 032350 SSRAM[13545] = 36'o200040032345; // 032351 SSRAM[13546] = 36'o553000000001; // 032352 SSRAM[13547] = 36'o312040032360; // 032353 SSRAM[13548] = 36'o036540037646; // 032354 SSRAM[13549] = 36'o035000031617; // 032355 SSRAM[13550] = 36'o262740000001; // 032356 SSRAM[13551] = 36'o254120032361; // 032357 SSRAM[13552] = 36'o000000000000; // 032360 SSRAM[13553] = 36'o000000000000; // 032361 SSRAM[13554] = 36'o000000000000; // 032362 SSRAM[13555] = 36'o000000000000; // 032363 SSRAM[13556] = 36'o000000000000; // 032364 SSRAM[13557] = 36'o123456654321; // 032365 SSRAM[13558] = 36'o000000000000; // 032366 SSRAM[13559] = 36'o000000000000; // 032367 SSRAM[13560] = 36'o000000000000; // 032370 SSRAM[13561] = 36'o201000032371; // 032371 SSRAM[13562] = 36'o202000030051; // 032372 SSRAM[13563] = 36'o200640043737; // 032373 SSRAM[13564] = 36'o200600037654; // 032374 SSRAM[13565] = 36'o257540000000; // 032375 SSRAM[13566] = 36'o312600000013; // 032376 SSRAM[13567] = 36'o036540037657; // 032377 SSRAM[13568] = 36'o035000032374; // 032400 SSRAM[13569] = 36'o200600037662; // 032401 SSRAM[13570] = 36'o257540337000; // 032402 SSRAM[13571] = 36'o312600000013; // 032403 SSRAM[13572] = 36'o036540037666; // 032404 SSRAM[13573] = 36'o035000032401; // 032405 SSRAM[13574] = 36'o402000000200; // 032406 SSRAM[13575] = 36'o200340037671; // 032407 SSRAM[13576] = 36'o251340000417; // 032410 SSRAM[13577] = 36'o701200020000; // 032411 SSRAM[13578] = 36'o701140037116; // 032412 SSRAM[13579] = 36'o200600037672; // 032413 SSRAM[13580] = 36'o257540400000; // 032414 SSRAM[13581] = 36'o312600000013; // 032415 SSRAM[13582] = 36'o036540037701; // 032416 SSRAM[13583] = 36'o035000032411; // 032417 SSRAM[13584] = 36'o200600037704; // 032420 SSRAM[13585] = 36'o257540777000; // 032421 SSRAM[13586] = 36'o312600000013; // 032422 SSRAM[13587] = 36'o036540037710; // 032423 SSRAM[13588] = 36'o035000032411; // 032424 SSRAM[13589] = 36'o205340377777; // 032425 SSRAM[13590] = 36'o202340000200; // 032426 SSRAM[13591] = 36'o200600037672; // 032427 SSRAM[13592] = 36'o257540400000; // 032430 SSRAM[13593] = 36'o312600000013; // 032431 SSRAM[13594] = 36'o036540037716; // 032432 SSRAM[13595] = 36'o035000032411; // 032433 SSRAM[13596] = 36'o201340377777; // 032434 SSRAM[13597] = 36'o202340000377; // 032435 SSRAM[13598] = 36'o200600037704; // 032436 SSRAM[13599] = 36'o257540777000; // 032437 SSRAM[13600] = 36'o312600000013; // 032440 SSRAM[13601] = 36'o036540037721; // 032441 SSRAM[13602] = 36'o035000032411; // 032442 SSRAM[13603] = 36'o367640032374; // 032443 SSRAM[13604] = 36'o201000032444; // 032444 SSRAM[13605] = 36'o202000030051; // 032445 SSRAM[13606] = 36'o200640043737; // 032446 SSRAM[13607] = 36'o402000000200; // 032447 SSRAM[13608] = 36'o200340037671; // 032450 SSRAM[13609] = 36'o251340000377; // 032451 SSRAM[13610] = 36'o700600001040; // 032452 SSRAM[13611] = 36'o700200020402; // 032453 SSRAM[13612] = 36'o476000000500; // 032454 SSRAM[13613] = 36'o476000000501; // 032455 SSRAM[13614] = 36'o701200020000; // 032456 SSRAM[13615] = 36'o701140037116; // 032457 SSRAM[13616] = 36'o201340032467; // 032460 SSRAM[13617] = 36'o202340000502; // 032461 SSRAM[13618] = 36'o477000000013; // 032462 SSRAM[13619] = 36'o200540400000; // 032463 SSRAM[13620] = 36'o036540037735; // 032464 SSRAM[13621] = 36'o035000032447; // 032465 SSRAM[13622] = 36'o254000032504; // 032466 SSRAM[13623] = 36'o476000000014; // 032467 SSRAM[13624] = 36'o312600000013; // 032470 SSRAM[13625] = 36'o036540037744; // 032471 SSRAM[13626] = 36'o035000032447; // 032472 SSRAM[13627] = 36'o200540000000; // 032473 SSRAM[13628] = 36'o312600000013; // 032474 SSRAM[13629] = 36'o036540037753; // 032475 SSRAM[13630] = 36'o035000032447; // 032476 SSRAM[13631] = 36'o200600037672; // 032477 SSRAM[13632] = 36'o200540000500; // 032500 SSRAM[13633] = 36'o312600000013; // 032501 SSRAM[13634] = 36'o036540037762; // 032502 SSRAM[13635] = 36'o035000032447; // 032503 SSRAM[13636] = 36'o700300000400; // 032504 SSRAM[13637] = 36'o036540037767; // 032505 SSRAM[13638] = 36'o035000032447; // 032506 SSRAM[13639] = 36'o700200020402; // 032507 SSRAM[13640] = 36'o402000000500; // 032510 SSRAM[13641] = 36'o701200020000; // 032511 SSRAM[13642] = 36'o701140037116; // 032512 SSRAM[13643] = 36'o201340032522; // 032513 SSRAM[13644] = 36'o202340000502; // 032514 SSRAM[13645] = 36'o403000000013; // 032515 SSRAM[13646] = 36'o200540777777; // 032516 SSRAM[13647] = 36'o036540037775; // 032517 SSRAM[13648] = 36'o035000032507; // 032520 SSRAM[13649] = 36'o254000032537; // 032521 SSRAM[13650] = 36'o402000000014; // 032522 SSRAM[13651] = 36'o312600000013; // 032523 SSRAM[13652] = 36'o036540040000; // 032524 SSRAM[13653] = 36'o035000032507; // 032525 SSRAM[13654] = 36'o200540000000; // 032526 SSRAM[13655] = 36'o312600000013; // 032527 SSRAM[13656] = 36'o036540040003; // 032530 SSRAM[13657] = 36'o035000032507; // 032531 SSRAM[13658] = 36'o200600040006; // 032532 SSRAM[13659] = 36'o200540000500; // 032533 SSRAM[13660] = 36'o312600000013; // 032534 SSRAM[13661] = 36'o036540040007; // 032535 SSRAM[13662] = 36'o035000032507; // 032536 SSRAM[13663] = 36'o700300000400; // 032537 SSRAM[13664] = 36'o036540040012; // 032540 SSRAM[13665] = 36'o035000032507; // 032541 SSRAM[13666] = 36'o200340043736; // 032542 SSRAM[13667] = 36'o202340000502; // 032543 SSRAM[13668] = 36'o700200020402; // 032544 SSRAM[13669] = 36'o700600002040; // 032545 SSRAM[13670] = 36'o367640032447; // 032546 SSRAM[13671] = 36'o201000032547; // 032547 SSRAM[13672] = 36'o202000030051; // 032550 SSRAM[13673] = 36'o200640043737; // 032551 SSRAM[13674] = 36'o402000000200; // 032552 SSRAM[13675] = 36'o200340037671; // 032553 SSRAM[13676] = 36'o251340000417; // 032554 SSRAM[13677] = 36'o701200020000; // 032555 SSRAM[13678] = 36'o701140037116; // 032556 SSRAM[13679] = 36'o200600040022; // 032557 SSRAM[13680] = 36'o257540340000; // 032560 SSRAM[13681] = 36'o312600000013; // 032561 SSRAM[13682] = 36'o036540040026; // 032562 SSRAM[13683] = 36'o035000032555; // 032563 SSRAM[13684] = 36'o200600040031; // 032564 SSRAM[13685] = 36'o257540377000; // 032565 SSRAM[13686] = 36'o312600000013; // 032566 SSRAM[13687] = 36'o036540040035; // 032567 SSRAM[13688] = 36'o035000032555; // 032570 SSRAM[13689] = 36'o205340377777; // 032571 SSRAM[13690] = 36'o202340000400; // 032572 SSRAM[13691] = 36'o200600040022; // 032573 SSRAM[13692] = 36'o257540340000; // 032574 SSRAM[13693] = 36'o312600000013; // 032575 SSRAM[13694] = 36'o036540040040; // 032576 SSRAM[13695] = 36'o035000032555; // 032577 SSRAM[13696] = 36'o201340377777; // 032600 SSRAM[13697] = 36'o202340000417; // 032601 SSRAM[13698] = 36'o200600040031; // 032602 SSRAM[13699] = 36'o257540377000; // 032603 SSRAM[13700] = 36'o312600000013; // 032604 SSRAM[13701] = 36'o036540040043; // 032605 SSRAM[13702] = 36'o035000032555; // 032606 SSRAM[13703] = 36'o201340740000; // 032607 SSRAM[13704] = 36'o202340000417; // 032610 SSRAM[13705] = 36'o205340757777; // 032611 SSRAM[13706] = 36'o202340000400; // 032612 SSRAM[13707] = 36'o701200020000; // 032613 SSRAM[13708] = 36'o701140037116; // 032614 SSRAM[13709] = 36'o200600037654; // 032615 SSRAM[13710] = 36'o257540377000; // 032616 SSRAM[13711] = 36'o312600000013; // 032617 SSRAM[13712] = 36'o036540040052; // 032620 SSRAM[13713] = 36'o035000032613; // 032621 SSRAM[13714] = 36'o701200020000; // 032622 SSRAM[13715] = 36'o701140037116; // 032623 SSRAM[13716] = 36'o200600040055; // 032624 SSRAM[13717] = 36'o257540340000; // 032625 SSRAM[13718] = 36'o312600000013; // 032626 SSRAM[13719] = 36'o036540040056; // 032627 SSRAM[13720] = 36'o035000032622; // 032630 SSRAM[13721] = 36'o367640032552; // 032631 SSRAM[13722] = 36'o201000032632; // 032632 SSRAM[13723] = 36'o202000030051; // 032633 SSRAM[13724] = 36'o200640043737; // 032634 SSRAM[13725] = 36'o402000000200; // 032635 SSRAM[13726] = 36'o200340037671; // 032636 SSRAM[13727] = 36'o251340000417; // 032637 SSRAM[13728] = 36'o205240777726; // 032640 SSRAM[13729] = 36'o200345035464; // 032641 SSRAM[13730] = 36'o550400000007; // 032642 SSRAM[13731] = 36'o242400777777; // 032643 SSRAM[13732] = 36'o305400000200; // 032644 SSRAM[13733] = 36'o271400000220; // 032645 SSRAM[13734] = 36'o606340000001; // 032646 SSRAM[13735] = 36'o502350000000; // 032647 SSRAM[13736] = 36'o602340000001; // 032650 SSRAM[13737] = 36'o546350000000; // 032651 SSRAM[13738] = 36'o253240032641; // 032652 SSRAM[13739] = 36'o201300000144; // 032653 SSRAM[13740] = 36'o205240777726; // 032654 SSRAM[13741] = 36'o201440000040; // 032655 SSRAM[13742] = 36'o701200020000; // 032656 SSRAM[13743] = 36'o701140037116; // 032657 SSRAM[13744] = 36'o554605035464; // 032660 SSRAM[13745] = 36'o242600000011; // 032661 SSRAM[13746] = 36'o621600000014; // 032662 SSRAM[13747] = 36'o661600001000; // 032663 SSRAM[13748] = 36'o623600000400; // 032664 SSRAM[13749] = 36'o661600100000; // 032665 SSRAM[13750] = 36'o621600000200; // 032666 SSRAM[13751] = 36'o623600000100; // 032667 SSRAM[13752] = 36'o661600040000; // 032670 SSRAM[13753] = 36'o623600000040; // 032671 SSRAM[13754] = 36'o661600020000; // 032672 SSRAM[13755] = 36'o623600000020; // 032673 SSRAM[13756] = 36'o661600002000; // 032674 SSRAM[13757] = 36'o550345035464; // 032675 SSRAM[13758] = 36'o242340000011; // 032676 SSRAM[13759] = 36'o257547000000; // 032677 SSRAM[13760] = 36'o312600000013; // 032700 SSRAM[13761] = 36'o036540040064; // 032701 SSRAM[13762] = 36'o035000032656; // 032702 SSRAM[13763] = 36'o253240032660; // 032703 SSRAM[13764] = 36'o365300032654; // 032704 SSRAM[13765] = 36'o367640032635; // 032705 SSRAM[13766] = 36'o254000032714; // 032706 SSRAM[13767] = 36'o037100040067; // 032707 SSRAM[13768] = 36'o200000000007; // 032710 SSRAM[13769] = 36'o037300000000; // 032711 SSRAM[13770] = 36'o037000030242; // 032712 SSRAM[13771] = 36'o263740000000; // 032713 SSRAM[13772] = 36'o201000032714; // 032714 SSRAM[13773] = 36'o202000030051; // 032715 SSRAM[13774] = 36'o201640000001; // 032716 SSRAM[13775] = 36'o402000000200; // 032717 SSRAM[13776] = 36'o200340037671; // 032720 SSRAM[13777] = 36'o251340000417; // 032721 SSRAM[13778] = 36'o200340030024; // 032722 SSRAM[13779] = 36'o602340000001; // 032723 SSRAM[13780] = 36'o701200020000; // 032724 SSRAM[13781] = 36'o606340000001; // 032725 SSRAM[13782] = 36'o701140037116; // 032726 SSRAM[13783] = 36'o205240777726; // 032727 SSRAM[13784] = 36'o201340032741; // 032730 SSRAM[13785] = 36'o202340000502; // 032731 SSRAM[13786] = 36'o550605035464; // 032732 SSRAM[13787] = 36'o242600000011; // 032733 SSRAM[13788] = 36'o477000000013; // 032734 SSRAM[13789] = 36'o200554000000; // 032735 SSRAM[13790] = 36'o036540040076; // 032736 SSRAM[13791] = 36'o035000032732; // 032737 SSRAM[13792] = 36'o254000032760; // 032740 SSRAM[13793] = 36'o476000000014; // 032741 SSRAM[13794] = 36'o312600000013; // 032742 SSRAM[13795] = 36'o036540040101; // 032743 SSRAM[13796] = 36'o035000032716; // 032744 SSRAM[13797] = 36'o200540000000; // 032745 SSRAM[13798] = 36'o312600000013; // 032746 SSRAM[13799] = 36'o036540040104; // 032747 SSRAM[13800] = 36'o035000032716; // 032750 SSRAM[13801] = 36'o550605035464; // 032751 SSRAM[13802] = 36'o242600000011; // 032752 SSRAM[13803] = 36'o661600001000; // 032753 SSRAM[13804] = 36'o200540000500; // 032754 SSRAM[13805] = 36'o312600000013; // 032755 SSRAM[13806] = 36'o036540040107; // 032756 SSRAM[13807] = 36'o035000032716; // 032757 SSRAM[13808] = 36'o253240032732; // 032760 SSRAM[13809] = 36'o367640032717; // 032761 SSRAM[13810] = 36'o200340043736; // 032762 SSRAM[13811] = 36'o202340000502; // 032763 SSRAM[13812] = 36'o201000032764; // 032764 SSRAM[13813] = 36'o202000030051; // 032765 SSRAM[13814] = 36'o200640043737; // 032766 SSRAM[13815] = 36'o402000000200; // 032767 SSRAM[13816] = 36'o200340037671; // 032770 SSRAM[13817] = 36'o251340000417; // 032771 SSRAM[13818] = 36'o205340740033; // 032772 SSRAM[13819] = 36'o202340000200; // 032773 SSRAM[13820] = 36'o201340740033; // 032774 SSRAM[13821] = 36'o202340000377; // 032775 SSRAM[13822] = 36'o701200020000; // 032776 SSRAM[13823] = 36'o701140037116; // 032777 SSRAM[13824] = 36'o200600033014; // 033000 SSRAM[13825] = 36'o200540400014; // 033001 SSRAM[13826] = 36'o312600000013; // 033002 SSRAM[13827] = 36'o036540040122; // 033003 SSRAM[13828] = 36'o035000032776; // 033004 SSRAM[13829] = 36'o200600033015; // 033005 SSRAM[13830] = 36'o200540400015; // 033006 SSRAM[13831] = 36'o312600000013; // 033007 SSRAM[13832] = 36'o036540040127; // 033010 SSRAM[13833] = 36'o035000033005; // 033011 SSRAM[13834] = 36'o367640032767; // 033012 SSRAM[13835] = 36'o254000033016; // 033013 SSRAM[13836] = 36'o377777400000; // 033014 SSRAM[13837] = 36'o000777777000; // 033015 SSRAM[13838] = 36'o201000033016; // 033016 SSRAM[13839] = 36'o202000030051; // 033017 SSRAM[13840] = 36'o200640043737; // 033020 SSRAM[13841] = 36'o221640000012; // 033021 SSRAM[13842] = 36'o205240777340; // 033022 SSRAM[13843] = 36'o201340000340; // 033023 SSRAM[13844] = 36'o200400000007; // 033024 SSRAM[13845] = 36'o242400000011; // 033025 SSRAM[13846] = 36'o661400777777; // 033026 SSRAM[13847] = 36'o621410000000; // 033027 SSRAM[13848] = 36'o202405043742; // 033030 SSRAM[13849] = 36'o602340000001; // 033031 SSRAM[13850] = 36'o254000033050; // 033032 SSRAM[13851] = 36'o201445043742; // 033033 SSRAM[13852] = 36'o242440777767; // 033034 SSRAM[13853] = 36'o271440740000; // 033035 SSRAM[13854] = 36'o504500000011; // 033036 SSRAM[13855] = 36'o201445043743; // 033037 SSRAM[13856] = 36'o242440777767; // 033040 SSRAM[13857] = 36'o271440740000; // 033041 SSRAM[13858] = 36'o540500000011; // 033042 SSRAM[13859] = 36'o550400000007; // 033043 SSRAM[13860] = 36'o242400777777; // 033044 SSRAM[13861] = 36'o305400000200; // 033045 SSRAM[13862] = 36'o271400000220; // 033046 SSRAM[13863] = 36'o202510000000; // 033047 SSRAM[13864] = 36'o350000000007; // 033050 SSRAM[13865] = 36'o253240033024; // 033051 SSRAM[13866] = 36'o701200020000; // 033052 SSRAM[13867] = 36'o701140037116; // 033053 SSRAM[13868] = 36'o205240777340; // 033054 SSRAM[13869] = 36'o201340000340; // 033055 SSRAM[13870] = 36'o200600000007; // 033056 SSRAM[13871] = 36'o242600000011; // 033057 SSRAM[13872] = 36'o661600777777; // 033060 SSRAM[13873] = 36'o621614000000; // 033061 SSRAM[13874] = 36'o201405043742; // 033062 SSRAM[13875] = 36'o405400000777; // 033063 SSRAM[13876] = 36'o271414000000; // 033064 SSRAM[13877] = 36'o200550000000; // 033065 SSRAM[13878] = 36'o312600000013; // 033066 SSRAM[13879] = 36'o036540040135; // 033067 SSRAM[13880] = 36'o035000033056; // 033070 SSRAM[13881] = 36'o350000000007; // 033071 SSRAM[13882] = 36'o253240033056; // 033072 SSRAM[13883] = 36'o205240777340; // 033073 SSRAM[13884] = 36'o201340000777; // 033074 SSRAM[13885] = 36'o200600000007; // 033075 SSRAM[13886] = 36'o242600000011; // 033076 SSRAM[13887] = 36'o661600777777; // 033077 SSRAM[13888] = 36'o621614000000; // 033100 SSRAM[13889] = 36'o201400044401; // 033101 SSRAM[13890] = 36'o275405000000; // 033102 SSRAM[13891] = 36'o405400000777; // 033103 SSRAM[13892] = 36'o271414000000; // 033104 SSRAM[13893] = 36'o200550000000; // 033105 SSRAM[13894] = 36'o312600000013; // 033106 SSRAM[13895] = 36'o036540040143; // 033107 SSRAM[13896] = 36'o035000033075; // 033110 SSRAM[13897] = 36'o370000000007; // 033111 SSRAM[13898] = 36'o253240033075; // 033112 SSRAM[13899] = 36'o367640033052; // 033113 SSRAM[13900] = 36'o254000033122; // 033114 SSRAM[13901] = 36'o037100040067; // 033115 SSRAM[13902] = 36'o200000000010; // 033116 SSRAM[13903] = 36'o037300000000; // 033117 SSRAM[13904] = 36'o037000030242; // 033120 SSRAM[13905] = 36'o263740000000; // 033121 SSRAM[13906] = 36'o201000033122; // 033122 SSRAM[13907] = 36'o202000030051; // 033123 SSRAM[13908] = 36'o200640043737; // 033124 SSRAM[13909] = 36'o402000000200; // 033125 SSRAM[13910] = 36'o200340037671; // 033126 SSRAM[13911] = 36'o251340000417; // 033127 SSRAM[13912] = 36'o205340740033; // 033130 SSRAM[13913] = 36'o202340000200; // 033131 SSRAM[13914] = 36'o201340740033; // 033132 SSRAM[13915] = 36'o202340000377; // 033133 SSRAM[13916] = 36'o701200020000; // 033134 SSRAM[13917] = 36'o701140037116; // 033135 SSRAM[13918] = 36'o402000033170; // 033136 SSRAM[13919] = 36'o200600040152; // 033137 SSRAM[13920] = 36'o202600400170; // 033140 SSRAM[13921] = 36'o476000000013; // 033141 SSRAM[13922] = 36'o200540400170; // 033142 SSRAM[13923] = 36'o312600000013; // 033143 SSRAM[13924] = 36'o036540040156; // 033144 SSRAM[13925] = 36'o035000033134; // 033145 SSRAM[13926] = 36'o200540033170; // 033146 SSRAM[13927] = 36'o312600000013; // 033147 SSRAM[13928] = 36'o036540040164; // 033150 SSRAM[13929] = 36'o035000033134; // 033151 SSRAM[13930] = 36'o402000033171; // 033152 SSRAM[13931] = 36'o200600040167; // 033153 SSRAM[13932] = 36'o202600777171; // 033154 SSRAM[13933] = 36'o476000000013; // 033155 SSRAM[13934] = 36'o200540777171; // 033156 SSRAM[13935] = 36'o312600000013; // 033157 SSRAM[13936] = 36'o036540040170; // 033160 SSRAM[13937] = 36'o035000033152; // 033161 SSRAM[13938] = 36'o200540033171; // 033162 SSRAM[13939] = 36'o312600000013; // 033163 SSRAM[13940] = 36'o036540040173; // 033164 SSRAM[13941] = 36'o035000033152; // 033165 SSRAM[13942] = 36'o367640033125; // 033166 SSRAM[13943] = 36'o254000033172; // 033167 SSRAM[13944] = 36'o000000000000; // 033170 SSRAM[13945] = 36'o000000000000; // 033171 SSRAM[13946] = 36'o201000033172; // 033172 SSRAM[13947] = 36'o202000030051; // 033173 SSRAM[13948] = 36'o200640043737; // 033174 SSRAM[13949] = 36'o221640000012; // 033175 SSRAM[13950] = 36'o205240777560; // 033176 SSRAM[13951] = 36'o201340000340; // 033177 SSRAM[13952] = 36'o201445043742; // 033200 SSRAM[13953] = 36'o242440777767; // 033201 SSRAM[13954] = 36'o271440740000; // 033202 SSRAM[13955] = 36'o504500000011; // 033203 SSRAM[13956] = 36'o201445043743; // 033204 SSRAM[13957] = 36'o242440777767; // 033205 SSRAM[13958] = 36'o271440740000; // 033206 SSRAM[13959] = 36'o540500000011; // 033207 SSRAM[13960] = 36'o550400000007; // 033210 SSRAM[13961] = 36'o242400777777; // 033211 SSRAM[13962] = 36'o305400000200; // 033212 SSRAM[13963] = 36'o271400000220; // 033213 SSRAM[13964] = 36'o202510000000; // 033214 SSRAM[13965] = 36'o271340000002; // 033215 SSRAM[13966] = 36'o350000000005; // 033216 SSRAM[13967] = 36'o253240033200; // 033217 SSRAM[13968] = 36'o701200020000; // 033220 SSRAM[13969] = 36'o701140037116; // 033221 SSRAM[13970] = 36'o402000043742; // 033222 SSRAM[13971] = 36'o200340040176; // 033223 SSRAM[13972] = 36'o251340044402; // 033224 SSRAM[13973] = 36'o205240777340; // 033225 SSRAM[13974] = 36'o201340000340; // 033226 SSRAM[13975] = 36'o200600000007; // 033227 SSRAM[13976] = 36'o242600000011; // 033230 SSRAM[13977] = 36'o661600777777; // 033231 SSRAM[13978] = 36'o621614000000; // 033232 SSRAM[13979] = 36'o201405043742; // 033233 SSRAM[13980] = 36'o405400000777; // 033234 SSRAM[13981] = 36'o271414000000; // 033235 SSRAM[13982] = 36'o202610000000; // 033236 SSRAM[13983] = 36'o476000000013; // 033237 SSRAM[13984] = 36'o200550000000; // 033240 SSRAM[13985] = 36'o312600000013; // 033241 SSRAM[13986] = 36'o036540040177; // 033242 SSRAM[13987] = 36'o035000033227; // 033243 SSRAM[13988] = 36'o200545043742; // 033244 SSRAM[13989] = 36'o312600000013; // 033245 SSRAM[13990] = 36'o036540040202; // 033246 SSRAM[13991] = 36'o035000033227; // 033247 SSRAM[13992] = 36'o350000000007; // 033250 SSRAM[13993] = 36'o253240033227; // 033251 SSRAM[13994] = 36'o205240777340; // 033252 SSRAM[13995] = 36'o201340000340; // 033253 SSRAM[13996] = 36'o200600000007; // 033254 SSRAM[13997] = 36'o242600000011; // 033255 SSRAM[13998] = 36'o661600777777; // 033256 SSRAM[13999] = 36'o621614000000; // 033257 SSRAM[14000] = 36'o200545043742; // 033260 SSRAM[14001] = 36'o312600000013; // 033261 SSRAM[14002] = 36'o036540040207; // 033262 SSRAM[14003] = 36'o035000033220; // 033263 SSRAM[14004] = 36'o350000000007; // 033264 SSRAM[14005] = 36'o253240033254; // 033265 SSRAM[14006] = 36'o402000043742; // 033266 SSRAM[14007] = 36'o200340040176; // 033267 SSRAM[14008] = 36'o251340044401; // 033270 SSRAM[14009] = 36'o205240777340; // 033271 SSRAM[14010] = 36'o201340000777; // 033272 SSRAM[14011] = 36'o200600000007; // 033273 SSRAM[14012] = 36'o242600000011; // 033274 SSRAM[14013] = 36'o661600777777; // 033275 SSRAM[14014] = 36'o621614000000; // 033276 SSRAM[14015] = 36'o201400044401; // 033277 SSRAM[14016] = 36'o275405000000; // 033300 SSRAM[14017] = 36'o405400000777; // 033301 SSRAM[14018] = 36'o271414000000; // 033302 SSRAM[14019] = 36'o202610000000; // 033303 SSRAM[14020] = 36'o476000000013; // 033304 SSRAM[14021] = 36'o200550000000; // 033305 SSRAM[14022] = 36'o312600000013; // 033306 SSRAM[14023] = 36'o036540040216; // 033307 SSRAM[14024] = 36'o035000033273; // 033310 SSRAM[14025] = 36'o201440044401; // 033311 SSRAM[14026] = 36'o275445000000; // 033312 SSRAM[14027] = 36'o200551000000; // 033313 SSRAM[14028] = 36'o312600000013; // 033314 SSRAM[14029] = 36'o036540040225; // 033315 SSRAM[14030] = 36'o035000033273; // 033316 SSRAM[14031] = 36'o370000000007; // 033317 SSRAM[14032] = 36'o253240033273; // 033320 SSRAM[14033] = 36'o205240777340; // 033321 SSRAM[14034] = 36'o201340000340; // 033322 SSRAM[14035] = 36'o200600000007; // 033323 SSRAM[14036] = 36'o242600000011; // 033324 SSRAM[14037] = 36'o661600777777; // 033325 SSRAM[14038] = 36'o621614000000; // 033326 SSRAM[14039] = 36'o200545043742; // 033327 SSRAM[14040] = 36'o312600000013; // 033330 SSRAM[14041] = 36'o036540040207; // 033331 SSRAM[14042] = 36'o035000033266; // 033332 SSRAM[14043] = 36'o350000000007; // 033333 SSRAM[14044] = 36'o253240033323; // 033334 SSRAM[14045] = 36'o367640033176; // 033335 SSRAM[14046] = 36'o254000033356; // 033336 SSRAM[14047] = 36'o037100040067; // 033337 SSRAM[14048] = 36'o200000000010; // 033340 SSRAM[14049] = 36'o037300000000; // 033341 SSRAM[14050] = 36'o037000030242; // 033342 SSRAM[14051] = 36'o263740000000; // 033343 SSRAM[14052] = 36'o037100040067; // 033344 SSRAM[14053] = 36'o201005043742; // 033345 SSRAM[14054] = 36'o037300000000; // 033346 SSRAM[14055] = 36'o037000030242; // 033347 SSRAM[14056] = 36'o263740000000; // 033350 SSRAM[14057] = 36'o037100040067; // 033351 SSRAM[14058] = 36'o200000000011; // 033352 SSRAM[14059] = 36'o037300000000; // 033353 SSRAM[14060] = 36'o037000030242; // 033354 SSRAM[14061] = 36'o263740000000; // 033355 SSRAM[14062] = 36'o201000033356; // 033356 SSRAM[14063] = 36'o202000030051; // 033357 SSRAM[14064] = 36'o200640043737; // 033360 SSRAM[14065] = 36'o402000000200; // 033361 SSRAM[14066] = 36'o200000040234; // 033362 SSRAM[14067] = 36'o251000000417; // 033363 SSRAM[14068] = 36'o205000360033; // 033364 SSRAM[14069] = 36'o202000000200; // 033365 SSRAM[14070] = 36'o201000033402; // 033366 SSRAM[14071] = 36'o202000000502; // 033367 SSRAM[14072] = 36'o476000033170; // 033370 SSRAM[14073] = 36'o701200020000; // 033371 SSRAM[14074] = 36'o701140037116; // 033372 SSRAM[14075] = 36'o402000000014; // 033373 SSRAM[14076] = 36'o403000000013; // 033374 SSRAM[14077] = 36'o200540400170; // 033375 SSRAM[14078] = 36'o200540033170; // 033376 SSRAM[14079] = 36'o036540040235; // 033377 SSRAM[14080] = 36'o035000033370; // 033400 SSRAM[14081] = 36'o254000033417; // 033401 SSRAM[14082] = 36'o312600000013; // 033402 SSRAM[14083] = 36'o036540040240; // 033403 SSRAM[14084] = 36'o035000033370; // 033404 SSRAM[14085] = 36'o200540000000; // 033405 SSRAM[14086] = 36'o312600000013; // 033406 SSRAM[14087] = 36'o036540040243; // 033407 SSRAM[14088] = 36'o035000033370; // 033410 SSRAM[14089] = 36'o200600040246; // 033411 SSRAM[14090] = 36'o200540000500; // 033412 SSRAM[14091] = 36'o312600000013; // 033413 SSRAM[14092] = 36'o036540040247; // 033414 SSRAM[14093] = 36'o035000033370; // 033415 SSRAM[14094] = 36'o367640033361; // 033416 SSRAM[14095] = 36'o200000043736; // 033417 SSRAM[14096] = 36'o202000000502; // 033420 SSRAM[14097] = 36'o201000033421; // 033421 SSRAM[14098] = 36'o202000030051; // 033422 SSRAM[14099] = 36'o200640043737; // 033423 SSRAM[14100] = 36'o402000000200; // 033424 SSRAM[14101] = 36'o200340037671; // 033425 SSRAM[14102] = 36'o251340000417; // 033426 SSRAM[14103] = 36'o205340640033; // 033427 SSRAM[14104] = 36'o202340000200; // 033430 SSRAM[14105] = 36'o201340400033; // 033431 SSRAM[14106] = 36'o202340000377; // 033432 SSRAM[14107] = 36'o201340033447; // 033433 SSRAM[14108] = 36'o202340000502; // 033434 SSRAM[14109] = 36'o402000033170; // 033435 SSRAM[14110] = 36'o701200020000; // 033436 SSRAM[14111] = 36'o701140037116; // 033437 SSRAM[14112] = 36'o402000000014; // 033440 SSRAM[14113] = 36'o403000000013; // 033441 SSRAM[14114] = 36'o476000400170; // 033442 SSRAM[14115] = 36'o200540033170; // 033443 SSRAM[14116] = 36'o036540040256; // 033444 SSRAM[14117] = 36'o035000033435; // 033445 SSRAM[14118] = 36'o254000033435; // 033446 SSRAM[14119] = 36'o402000000014; // 033447 SSRAM[14120] = 36'o312600000013; // 033450 SSRAM[14121] = 36'o036540040261; // 033451 SSRAM[14122] = 36'o035000033435; // 033452 SSRAM[14123] = 36'o200540000000; // 033453 SSRAM[14124] = 36'o312600000013; // 033454 SSRAM[14125] = 36'o036540040264; // 033455 SSRAM[14126] = 36'o035000033435; // 033456 SSRAM[14127] = 36'o200600040267; // 033457 SSRAM[14128] = 36'o200540000500; // 033460 SSRAM[14129] = 36'o312600000013; // 033461 SSRAM[14130] = 36'o036540040270; // 033462 SSRAM[14131] = 36'o035000033435; // 033463 SSRAM[14132] = 36'o402000000014; // 033464 SSRAM[14133] = 36'o200540033170; // 033465 SSRAM[14134] = 36'o312600000013; // 033466 SSRAM[14135] = 36'o036540040276; // 033467 SSRAM[14136] = 36'o035000033435; // 033470 SSRAM[14137] = 36'o201340033502; // 033471 SSRAM[14138] = 36'o202340000502; // 033472 SSRAM[14139] = 36'o476000033171; // 033473 SSRAM[14140] = 36'o476000000014; // 033474 SSRAM[14141] = 36'o476000000013; // 033475 SSRAM[14142] = 36'o402000777171; // 033476 SSRAM[14143] = 36'o200540033171; // 033477 SSRAM[14144] = 36'o036540040301; // 033500 SSRAM[14145] = 36'o254000033471; // 033501 SSRAM[14146] = 36'o312600000013; // 033502 SSRAM[14147] = 36'o036540040304; // 033503 SSRAM[14148] = 36'o035000033435; // 033504 SSRAM[14149] = 36'o200600040307; // 033505 SSRAM[14150] = 36'o200540000500; // 033506 SSRAM[14151] = 36'o312600000013; // 033507 SSRAM[14152] = 36'o036540040310; // 033510 SSRAM[14153] = 36'o035000033435; // 033511 SSRAM[14154] = 36'o476000000014; // 033512 SSRAM[14155] = 36'o200540033171; // 033513 SSRAM[14156] = 36'o312600000013; // 033514 SSRAM[14157] = 36'o036540040313; // 033515 SSRAM[14158] = 36'o035000033435; // 033516 SSRAM[14159] = 36'o367640033424; // 033517 SSRAM[14160] = 36'o200340043736; // 033520 SSRAM[14161] = 36'o202340000502; // 033521 SSRAM[14162] = 36'o201000033522; // 033522 SSRAM[14163] = 36'o202000030051; // 033523 SSRAM[14164] = 36'o200640043737; // 033524 SSRAM[14165] = 36'o205240777560; // 033525 SSRAM[14166] = 36'o201340000340; // 033526 SSRAM[14167] = 36'o200440040321; // 033527 SSRAM[14168] = 36'o550400000007; // 033530 SSRAM[14169] = 36'o242400777777; // 033531 SSRAM[14170] = 36'o305400000200; // 033532 SSRAM[14171] = 36'o271400000220; // 033533 SSRAM[14172] = 36'o202450000000; // 033534 SSRAM[14173] = 36'o271340000002; // 033535 SSRAM[14174] = 36'o253240033530; // 033536 SSRAM[14175] = 36'o701200020000; // 033537 SSRAM[14176] = 36'o701140037116; // 033540 SSRAM[14177] = 36'o402000340000; // 033541 SSRAM[14178] = 36'o200340040322; // 033542 SSRAM[14179] = 36'o251340777777; // 033543 SSRAM[14180] = 36'o205240777000; // 033544 SSRAM[14181] = 36'o201605076000; // 033545 SSRAM[14182] = 36'o200545076000; // 033546 SSRAM[14183] = 36'o312540037173; // 033547 SSRAM[14184] = 36'o036540040326; // 033550 SSRAM[14185] = 36'o035000033530; // 033551 SSRAM[14186] = 36'o253240033545; // 033552 SSRAM[14187] = 36'o701200020000; // 033553 SSRAM[14188] = 36'o701140037116; // 033554 SSRAM[14189] = 36'o476000340000; // 033555 SSRAM[14190] = 36'o200340040322; // 033556 SSRAM[14191] = 36'o251340777777; // 033557 SSRAM[14192] = 36'o205240777000; // 033560 SSRAM[14193] = 36'o201605076000; // 033561 SSRAM[14194] = 36'o200545076000; // 033562 SSRAM[14195] = 36'o312540040331; // 033563 SSRAM[14196] = 36'o036540040335; // 033564 SSRAM[14197] = 36'o035000033553; // 033565 SSRAM[14198] = 36'o253240033561; // 033566 SSRAM[14199] = 36'o701200020000; // 033567 SSRAM[14200] = 36'o701140037116; // 033570 SSRAM[14201] = 36'o200540040340; // 033571 SSRAM[14202] = 36'o202540340000; // 033572 SSRAM[14203] = 36'o200340040322; // 033573 SSRAM[14204] = 36'o251340777777; // 033574 SSRAM[14205] = 36'o205240777000; // 033575 SSRAM[14206] = 36'o201605076000; // 033576 SSRAM[14207] = 36'o200545076000; // 033577 SSRAM[14208] = 36'o312540040340; // 033600 SSRAM[14209] = 36'o036540040344; // 033601 SSRAM[14210] = 36'o035000033567; // 033602 SSRAM[14211] = 36'o253240033576; // 033603 SSRAM[14212] = 36'o701200020000; // 033604 SSRAM[14213] = 36'o701140037116; // 033605 SSRAM[14214] = 36'o200540040347; // 033606 SSRAM[14215] = 36'o202540340000; // 033607 SSRAM[14216] = 36'o200340040322; // 033610 SSRAM[14217] = 36'o251340777777; // 033611 SSRAM[14218] = 36'o205240777000; // 033612 SSRAM[14219] = 36'o201605076000; // 033613 SSRAM[14220] = 36'o200545076000; // 033614 SSRAM[14221] = 36'o312540040347; // 033615 SSRAM[14222] = 36'o036540040344; // 033616 SSRAM[14223] = 36'o035000033604; // 033617 SSRAM[14224] = 36'o253240033613; // 033620 SSRAM[14225] = 36'o367640033525; // 033621 SSRAM[14226] = 36'o201000033622; // 033622 SSRAM[14227] = 36'o202000030051; // 033623 SSRAM[14228] = 36'o200640043737; // 033624 SSRAM[14229] = 36'o701200020000; // 033625 SSRAM[14230] = 36'o701140037116; // 033626 SSRAM[14231] = 36'o402000000200; // 033627 SSRAM[14232] = 36'o200340037671; // 033630 SSRAM[14233] = 36'o251340000417; // 033631 SSRAM[14234] = 36'o402000076200; // 033632 SSRAM[14235] = 36'o200340040355; // 033633 SSRAM[14236] = 36'o251340076417; // 033634 SSRAM[14237] = 36'o200000040356; // 033635 SSRAM[14238] = 36'o202000076600; // 033636 SSRAM[14239] = 36'o205040777621; // 033637 SSRAM[14240] = 36'o270000040357; // 033640 SSRAM[14241] = 36'o202001076601; // 033641 SSRAM[14242] = 36'o253040033640; // 033642 SSRAM[14243] = 36'o200000000041; // 033643 SSRAM[14244] = 36'o202000076041; // 033644 SSRAM[14245] = 36'o200000000042; // 033645 SSRAM[14246] = 36'o202000076042; // 033646 SSRAM[14247] = 36'o200000000502; // 033647 SSRAM[14248] = 36'o202000076502; // 033650 SSRAM[14249] = 36'o200000040360; // 033651 SSRAM[14250] = 36'o202000076421; // 033652 SSRAM[14251] = 36'o200000000422; // 033653 SSRAM[14252] = 36'o202000076422; // 033654 SSRAM[14253] = 36'o200000000423; // 033655 SSRAM[14254] = 36'o202000076423; // 033656 SSRAM[14255] = 36'o200000000430; // 033657 SSRAM[14256] = 36'o202000076430; // 033660 SSRAM[14257] = 36'o202000076431; // 033661 SSRAM[14258] = 36'o202000076432; // 033662 SSRAM[14259] = 36'o202000076433; // 033663 SSRAM[14260] = 36'o202000076434; // 033664 SSRAM[14261] = 36'o202000076435; // 033665 SSRAM[14262] = 36'o202000076436; // 033666 SSRAM[14263] = 36'o202000076437; // 033667 SSRAM[14264] = 36'o201340033703; // 033670 SSRAM[14265] = 36'o202340000430; // 033671 SSRAM[14266] = 36'o201340033726; // 033672 SSRAM[14267] = 36'o202340076430; // 033673 SSRAM[14268] = 36'o402000000014; // 033674 SSRAM[14269] = 36'o201540033700; // 033675 SSRAM[14270] = 36'o254120033677; // 033676 SSRAM[14271] = 36'o000000033700; // 033677 SSRAM[14272] = 36'o000000654321; // 033700 SSRAM[14273] = 36'o036540040367; // 033701 SSRAM[14274] = 36'o035000033674; // 033702 SSRAM[14275] = 36'o201600654321; // 033703 SSRAM[14276] = 36'o200540000424; // 033704 SSRAM[14277] = 36'o312600000013; // 033705 SSRAM[14278] = 36'o036540040377; // 033706 SSRAM[14279] = 36'o035000033674; // 033707 SSRAM[14280] = 36'o201600033701; // 033710 SSRAM[14281] = 36'o200540000425; // 033711 SSRAM[14282] = 36'o312600000013; // 033712 SSRAM[14283] = 36'o036540040406; // 033713 SSRAM[14284] = 36'o035000033674; // 033714 SSRAM[14285] = 36'o701140040411; // 033715 SSRAM[14286] = 36'o402000000014; // 033716 SSRAM[14287] = 36'o201540033722; // 033717 SSRAM[14288] = 36'o254120033721; // 033720 SSRAM[14289] = 36'o000000033722; // 033721 SSRAM[14290] = 36'o000000123456; // 033722 SSRAM[14291] = 36'o701140037116; // 033723 SSRAM[14292] = 36'o036540040367; // 033724 SSRAM[14293] = 36'o035000033715; // 033725 SSRAM[14294] = 36'o701140037116; // 033726 SSRAM[14295] = 36'o201600123456; // 033727 SSRAM[14296] = 36'o200540076424; // 033730 SSRAM[14297] = 36'o312600000013; // 033731 SSRAM[14298] = 36'o036540040415; // 033732 SSRAM[14299] = 36'o035000033715; // 033733 SSRAM[14300] = 36'o201600033723; // 033734 SSRAM[14301] = 36'o200540076425; // 033735 SSRAM[14302] = 36'o312600000013; // 033736 SSRAM[14303] = 36'o036540040420; // 033737 SSRAM[14304] = 36'o035000033715; // 033740 SSRAM[14305] = 36'o200340043734; // 033741 SSRAM[14306] = 36'o202340000430; // 033742 SSRAM[14307] = 36'o202340076430; // 033743 SSRAM[14308] = 36'o201340033755; // 033744 SSRAM[14309] = 36'o202340076502; // 033745 SSRAM[14310] = 36'o476000076500; // 033746 SSRAM[14311] = 36'o201600777777; // 033747 SSRAM[14312] = 36'o476000000013; // 033750 SSRAM[14313] = 36'o701140040411; // 033751 SSRAM[14314] = 36'o200540777777; // 033752 SSRAM[14315] = 36'o036540040426; // 033753 SSRAM[14316] = 36'o035000033746; // 033754 SSRAM[14317] = 36'o476000000014; // 033755 SSRAM[14318] = 36'o312600000013; // 033756 SSRAM[14319] = 36'o036540040431; // 033757 SSRAM[14320] = 36'o035000033746; // 033760 SSRAM[14321] = 36'o200600040006; // 033761 SSRAM[14322] = 36'o200540076500; // 033762 SSRAM[14323] = 36'o312600000013; // 033763 SSRAM[14324] = 36'o036540040434; // 033764 SSRAM[14325] = 36'o035000033746; // 033765 SSRAM[14326] = 36'o701140037116; // 033766 SSRAM[14327] = 36'o200340043736; // 033767 SSRAM[14328] = 36'o202340000502; // 033770 SSRAM[14329] = 36'o367640033625; // 033771 SSRAM[14330] = 36'o201000033772; // 033772 SSRAM[14331] = 36'o202000030051; // 033773 SSRAM[14332] = 36'o200640043737; // 033774 SSRAM[14333] = 36'o221640000012; // 033775 SSRAM[14334] = 36'o205240777760; // 033776 SSRAM[14335] = 36'o201340000340; // 033777 SSRAM[14336] = 36'o201445043742; // 034000 SSRAM[14337] = 36'o242440777767; // 034001 SSRAM[14338] = 36'o271440540000; // 034002 SSRAM[14339] = 36'o504500000011; // 034003 SSRAM[14340] = 36'o201445043743; // 034004 SSRAM[14341] = 36'o242440777767; // 034005 SSRAM[14342] = 36'o271440540000; // 034006 SSRAM[14343] = 36'o540500000011; // 034007 SSRAM[14344] = 36'o550400000007; // 034010 SSRAM[14345] = 36'o242400777777; // 034011 SSRAM[14346] = 36'o271400000220; // 034012 SSRAM[14347] = 36'o202510076000; // 034013 SSRAM[14348] = 36'o271340000002; // 034014 SSRAM[14349] = 36'o350000000005; // 034015 SSRAM[14350] = 36'o253240034000; // 034016 SSRAM[14351] = 36'o402000043742; // 034017 SSRAM[14352] = 36'o200340040176; // 034020 SSRAM[14353] = 36'o251340044001; // 034021 SSRAM[14354] = 36'o701200020000; // 034022 SSRAM[14355] = 36'o701140040411; // 034023 SSRAM[14356] = 36'o205240777740; // 034024 SSRAM[14357] = 36'o201340000340; // 034025 SSRAM[14358] = 36'o200600000007; // 034026 SSRAM[14359] = 36'o242600000011; // 034027 SSRAM[14360] = 36'o661600777777; // 034030 SSRAM[14361] = 36'o621614000000; // 034031 SSRAM[14362] = 36'o201405043742; // 034032 SSRAM[14363] = 36'o405400000777; // 034033 SSRAM[14364] = 36'o271414000000; // 034034 SSRAM[14365] = 36'o202610000000; // 034035 SSRAM[14366] = 36'o200550000000; // 034036 SSRAM[14367] = 36'o312600000013; // 034037 SSRAM[14368] = 36'o036540040445; // 034040 SSRAM[14369] = 36'o035000034017; // 034041 SSRAM[14370] = 36'o200545043742; // 034042 SSRAM[14371] = 36'o312600000013; // 034043 SSRAM[14372] = 36'o036540040450; // 034044 SSRAM[14373] = 36'o035000034017; // 034045 SSRAM[14374] = 36'o350000000007; // 034046 SSRAM[14375] = 36'o253240034026; // 034047 SSRAM[14376] = 36'o701200020000; // 034050 SSRAM[14377] = 36'o701140037116; // 034051 SSRAM[14378] = 36'o205240777740; // 034052 SSRAM[14379] = 36'o201340000340; // 034053 SSRAM[14380] = 36'o200600000007; // 034054 SSRAM[14381] = 36'o242600000011; // 034055 SSRAM[14382] = 36'o661600777777; // 034056 SSRAM[14383] = 36'o621614000000; // 034057 SSRAM[14384] = 36'o200545043742; // 034060 SSRAM[14385] = 36'o312600000013; // 034061 SSRAM[14386] = 36'o036540040453; // 034062 SSRAM[14387] = 36'o035000034017; // 034063 SSRAM[14388] = 36'o350000000007; // 034064 SSRAM[14389] = 36'o253240034054; // 034065 SSRAM[14390] = 36'o701200020000; // 034066 SSRAM[14391] = 36'o701140040411; // 034067 SSRAM[14392] = 36'o200000040456; // 034070 SSRAM[14393] = 36'o202000340000; // 034071 SSRAM[14394] = 36'o200000040457; // 034072 SSRAM[14395] = 36'o202000340001; // 034073 SSRAM[14396] = 36'o200000040460; // 034074 SSRAM[14397] = 36'o202000340002; // 034075 SSRAM[14398] = 36'o200000040461; // 034076 SSRAM[14399] = 36'o202000340003; // 034077 SSRAM[14400] = 36'o200000040462; // 034100 SSRAM[14401] = 36'o202000000423; // 034101 SSRAM[14402] = 36'o200000040463; // 034102 SSRAM[14403] = 36'o202000076423; // 034103 SSRAM[14404] = 36'o254000340000; // 034104 SSRAM[14405] = 36'o000000000000; // 034105 SSRAM[14406] = 36'o701200020000; // 034106 SSRAM[14407] = 36'o701140037116; // 034107 SSRAM[14408] = 36'o036540040473; // 034110 SSRAM[14409] = 36'o035000033776; // 034111 SSRAM[14410] = 36'o254000034125; // 034112 SSRAM[14411] = 36'o000000000000; // 034113 SSRAM[14412] = 36'o701200020000; // 034114 SSRAM[14413] = 36'o701140037116; // 034115 SSRAM[14414] = 36'o200000043732; // 034116 SSRAM[14415] = 36'o202000000423; // 034117 SSRAM[14416] = 36'o200600040476; // 034120 SSRAM[14417] = 36'o200540034113; // 034121 SSRAM[14418] = 36'o312600000013; // 034122 SSRAM[14419] = 36'o036540040502; // 034123 SSRAM[14420] = 36'o035000033776; // 034124 SSRAM[14421] = 36'o367640033776; // 034125 SSRAM[14422] = 36'o201000034126; // 034126 SSRAM[14423] = 36'o202000030051; // 034127 SSRAM[14424] = 36'o200640043737; // 034130 SSRAM[14425] = 36'o701200020000; // 034131 SSRAM[14426] = 36'o701140037116; // 034132 SSRAM[14427] = 36'o201340034154; // 034133 SSRAM[14428] = 36'o202340076502; // 034134 SSRAM[14429] = 36'o201340034147; // 034135 SSRAM[14430] = 36'o202340000502; // 034136 SSRAM[14431] = 36'o402000076400; // 034137 SSRAM[14432] = 36'o701200020000; // 034140 SSRAM[14433] = 36'o701140040411; // 034141 SSRAM[14434] = 36'o200540340000; // 034142 SSRAM[14435] = 36'o701200020000; // 034143 SSRAM[14436] = 36'o701140037116; // 034144 SSRAM[14437] = 36'o036540040510; // 034145 SSRAM[14438] = 36'o254000034164; // 034146 SSRAM[14439] = 36'o701200020000; // 034147 SSRAM[14440] = 36'o701140037116; // 034150 SSRAM[14441] = 36'o200600000500; // 034151 SSRAM[14442] = 36'o036540040523; // 034152 SSRAM[14443] = 36'o254000034164; // 034153 SSRAM[14444] = 36'o701200020000; // 034154 SSRAM[14445] = 36'o701140037116; // 034155 SSRAM[14446] = 36'o200600040022; // 034156 SSRAM[14447] = 36'o200540076500; // 034157 SSRAM[14448] = 36'o312600000013; // 034160 SSRAM[14449] = 36'o036540040532; // 034161 SSRAM[14450] = 36'o035000034140; // 034162 SSRAM[14451] = 36'o367640034131; // 034163 SSRAM[14452] = 36'o200000043736; // 034164 SSRAM[14453] = 36'o202000000502; // 034165 SSRAM[14454] = 36'o201000034166; // 034166 SSRAM[14455] = 36'o202000030051; // 034167 SSRAM[14456] = 36'o200640043737; // 034170 SSRAM[14457] = 36'o701200020000; // 034171 SSRAM[14458] = 36'o701140037116; // 034172 SSRAM[14459] = 36'o200340040535; // 034173 SSRAM[14460] = 36'o202340076423; // 034174 SSRAM[14461] = 36'o701200020076; // 034175 SSRAM[14462] = 36'o254120034177; // 034176 SSRAM[14463] = 36'o000600034200; // 034177 SSRAM[14464] = 36'o701200020000; // 034200 SSRAM[14465] = 36'o036540040536; // 034201 SSRAM[14466] = 36'o254000034212; // 034202 SSRAM[14467] = 36'o000000000000; // 034203 SSRAM[14468] = 36'o701200020000; // 034204 SSRAM[14469] = 36'o200600040541; // 034205 SSRAM[14470] = 36'o200540034203; // 034206 SSRAM[14471] = 36'o312600000013; // 034207 SSRAM[14472] = 36'o036540040542; // 034210 SSRAM[14473] = 36'o035000034173; // 034211 SSRAM[14474] = 36'o200340040545; // 034212 SSRAM[14475] = 36'o202340076422; // 034213 SSRAM[14476] = 36'o701200020076; // 034214 SSRAM[14477] = 36'o254120034216; // 034215 SSRAM[14478] = 36'o000400034217; // 034216 SSRAM[14479] = 36'o701200020000; // 034217 SSRAM[14480] = 36'o036540040546; // 034220 SSRAM[14481] = 36'o254000034231; // 034221 SSRAM[14482] = 36'o000000000000; // 034222 SSRAM[14483] = 36'o701200020000; // 034223 SSRAM[14484] = 36'o200600040551; // 034224 SSRAM[14485] = 36'o200540034222; // 034225 SSRAM[14486] = 36'o312600000013; // 034226 SSRAM[14487] = 36'o036540040552; // 034227 SSRAM[14488] = 36'o035000034173; // 034230 SSRAM[14489] = 36'o200340040555; // 034231 SSRAM[14490] = 36'o202340076421; // 034232 SSRAM[14491] = 36'o701200020076; // 034233 SSRAM[14492] = 36'o254120034235; // 034234 SSRAM[14493] = 36'o000200034236; // 034235 SSRAM[14494] = 36'o701200020000; // 034236 SSRAM[14495] = 36'o036540040556; // 034237 SSRAM[14496] = 36'o254000034253; // 034240 SSRAM[14497] = 36'o000000000000; // 034241 SSRAM[14498] = 36'o701200020000; // 034242 SSRAM[14499] = 36'o200600040561; // 034243 SSRAM[14500] = 36'o200540034241; // 034244 SSRAM[14501] = 36'o312600000013; // 034245 SSRAM[14502] = 36'o036540040562; // 034246 SSRAM[14503] = 36'o035000034173; // 034247 SSRAM[14504] = 36'o200340040360; // 034250 SSRAM[14505] = 36'o202340076421; // 034251 SSRAM[14506] = 36'o367640034171; // 034252 SSRAM[14507] = 36'o201000034253; // 034253 SSRAM[14508] = 36'o202000030051; // 034254 SSRAM[14509] = 36'o200640043737; // 034255 SSRAM[14510] = 36'o221640000012; // 034256 SSRAM[14511] = 36'o200000040572; // 034257 SSRAM[14512] = 36'o202000076042; // 034260 SSRAM[14513] = 36'o200000040573; // 034261 SSRAM[14514] = 36'o202000076044; // 034262 SSRAM[14515] = 36'o200000040574; // 034263 SSRAM[14516] = 36'o202000076046; // 034264 SSRAM[14517] = 36'o200000040575; // 034265 SSRAM[14518] = 36'o202000076050; // 034266 SSRAM[14519] = 36'o200000040576; // 034267 SSRAM[14520] = 36'o202000076052; // 034270 SSRAM[14521] = 36'o200000040577; // 034271 SSRAM[14522] = 36'o202000076054; // 034272 SSRAM[14523] = 36'o200000040600; // 034273 SSRAM[14524] = 36'o202000076056; // 034274 SSRAM[14525] = 36'o200000040601; // 034275 SSRAM[14526] = 36'o202000000056; // 034276 SSRAM[14527] = 36'o202000000054; // 034277 SSRAM[14528] = 36'o202000000052; // 034300 SSRAM[14529] = 36'o202000000050; // 034301 SSRAM[14530] = 36'o202000000046; // 034302 SSRAM[14531] = 36'o202000000044; // 034303 SSRAM[14532] = 36'o202000000042; // 034304 SSRAM[14533] = 36'o700600011400; // 034305 SSRAM[14534] = 36'o700200200000; // 034306 SSRAM[14535] = 36'o254000034320; // 034307 SSRAM[14536] = 36'o000000000000; // 034310 SSRAM[14537] = 36'o701200020000; // 034311 SSRAM[14538] = 36'o700240000014; // 034312 SSRAM[14539] = 36'o700640000013; // 034313 SSRAM[14540] = 36'o700200200000; // 034314 SSRAM[14541] = 36'o700600011400; // 034315 SSRAM[14542] = 36'o036540040611; // 034316 SSRAM[14543] = 36'o254000034305; // 034317 SSRAM[14544] = 36'o701200020076; // 034320 SSRAM[14545] = 36'o700600002201; // 034321 SSRAM[14546] = 36'o700200110207; // 034322 SSRAM[14547] = 36'o201340001000; // 034323 SSRAM[14548] = 36'o367340034324; // 034324 SSRAM[14549] = 36'o254200034325; // 034325 SSRAM[14550] = 36'o000000000000; // 034326 SSRAM[14551] = 36'o700200060200; // 034327 SSRAM[14552] = 36'o700600011400; // 034330 SSRAM[14553] = 36'o700600002202; // 034331 SSRAM[14554] = 36'o700200110206; // 034332 SSRAM[14555] = 36'o201340001000; // 034333 SSRAM[14556] = 36'o367340034334; // 034334 SSRAM[14557] = 36'o254200034335; // 034335 SSRAM[14558] = 36'o000000000000; // 034336 SSRAM[14559] = 36'o700200060200; // 034337 SSRAM[14560] = 36'o700600011400; // 034340 SSRAM[14561] = 36'o700600002204; // 034341 SSRAM[14562] = 36'o700200110205; // 034342 SSRAM[14563] = 36'o201340001000; // 034343 SSRAM[14564] = 36'o367340034344; // 034344 SSRAM[14565] = 36'o254200034345; // 034345 SSRAM[14566] = 36'o000000000000; // 034346 SSRAM[14567] = 36'o700200060200; // 034347 SSRAM[14568] = 36'o700600011400; // 034350 SSRAM[14569] = 36'o700600002210; // 034351 SSRAM[14570] = 36'o700200110204; // 034352 SSRAM[14571] = 36'o201340001000; // 034353 SSRAM[14572] = 36'o367340034354; // 034354 SSRAM[14573] = 36'o254200034355; // 034355 SSRAM[14574] = 36'o000000000000; // 034356 SSRAM[14575] = 36'o700200060200; // 034357 SSRAM[14576] = 36'o700600011400; // 034360 SSRAM[14577] = 36'o700600002220; // 034361 SSRAM[14578] = 36'o700200110203; // 034362 SSRAM[14579] = 36'o201340001000; // 034363 SSRAM[14580] = 36'o367340034364; // 034364 SSRAM[14581] = 36'o254200034365; // 034365 SSRAM[14582] = 36'o000000000000; // 034366 SSRAM[14583] = 36'o700200060200; // 034367 SSRAM[14584] = 36'o700600011400; // 034370 SSRAM[14585] = 36'o700600002240; // 034371 SSRAM[14586] = 36'o700200110202; // 034372 SSRAM[14587] = 36'o201340001000; // 034373 SSRAM[14588] = 36'o367340034374; // 034374 SSRAM[14589] = 36'o254200034375; // 034375 SSRAM[14590] = 36'o000000000000; // 034376 SSRAM[14591] = 36'o700200060200; // 034377 SSRAM[14592] = 36'o700600011400; // 034400 SSRAM[14593] = 36'o700600002300; // 034401 SSRAM[14594] = 36'o700200110201; // 034402 SSRAM[14595] = 36'o201340001000; // 034403 SSRAM[14596] = 36'o367340034404; // 034404 SSRAM[14597] = 36'o254200034405; // 034405 SSRAM[14598] = 36'o000000000000; // 034406 SSRAM[14599] = 36'o700200060200; // 034407 SSRAM[14600] = 36'o700600011400; // 034410 SSRAM[14601] = 36'o367640034305; // 034411 SSRAM[14602] = 36'o701200020000; // 034412 SSRAM[14603] = 36'o700600011400; // 034413 SSRAM[14604] = 36'o700200260200; // 034414 SSRAM[14605] = 36'o200340040614; // 034415 SSRAM[14606] = 36'o202340000042; // 034416 SSRAM[14607] = 36'o700200121600; // 034417 SSRAM[14608] = 36'o700600002300; // 034420 SSRAM[14609] = 36'o201000034421; // 034421 SSRAM[14610] = 36'o202000030051; // 034422 SSRAM[14611] = 36'o200640043737; // 034423 SSRAM[14612] = 36'o221640000012; // 034424 SSRAM[14613] = 36'o205240777600; // 034425 SSRAM[14614] = 36'o201340000400; // 034426 SSRAM[14615] = 36'o201445043742; // 034427 SSRAM[14616] = 36'o242440777767; // 034430 SSRAM[14617] = 36'o271440740000; // 034431 SSRAM[14618] = 36'o504500000011; // 034432 SSRAM[14619] = 36'o201445043743; // 034433 SSRAM[14620] = 36'o242440777767; // 034434 SSRAM[14621] = 36'o271440740000; // 034435 SSRAM[14622] = 36'o540500000011; // 034436 SSRAM[14623] = 36'o550400000007; // 034437 SSRAM[14624] = 36'o242400777777; // 034440 SSRAM[14625] = 36'o202510076000; // 034441 SSRAM[14626] = 36'o271340000002; // 034442 SSRAM[14627] = 36'o350000000005; // 034443 SSRAM[14628] = 36'o253240034427; // 034444 SSRAM[14629] = 36'o701200020000; // 034445 SSRAM[14630] = 36'o701140037116; // 034446 SSRAM[14631] = 36'o402000043742; // 034447 SSRAM[14632] = 36'o200340040176; // 034450 SSRAM[14633] = 36'o251340044342; // 034451 SSRAM[14634] = 36'o205240777400; // 034452 SSRAM[14635] = 36'o201340000400; // 034453 SSRAM[14636] = 36'o701200020076; // 034454 SSRAM[14637] = 36'o701140040411; // 034455 SSRAM[14638] = 36'o200600000007; // 034456 SSRAM[14639] = 36'o242600000011; // 034457 SSRAM[14640] = 36'o661600777777; // 034460 SSRAM[14641] = 36'o621614000000; // 034461 SSRAM[14642] = 36'o201405043742; // 034462 SSRAM[14643] = 36'o405400000777; // 034463 SSRAM[14644] = 36'o271414000000; // 034464 SSRAM[14645] = 36'o202610000000; // 034465 SSRAM[14646] = 36'o200550000000; // 034466 SSRAM[14647] = 36'o701200020000; // 034467 SSRAM[14648] = 36'o701140037116; // 034470 SSRAM[14649] = 36'o312600000013; // 034471 SSRAM[14650] = 36'o036540040622; // 034472 SSRAM[14651] = 36'o035000034454; // 034473 SSRAM[14652] = 36'o200545043742; // 034474 SSRAM[14653] = 36'o312600000013; // 034475 SSRAM[14654] = 36'o036540040625; // 034476 SSRAM[14655] = 36'o035000034454; // 034477 SSRAM[14656] = 36'o350000000007; // 034500 SSRAM[14657] = 36'o253240034454; // 034501 SSRAM[14658] = 36'o701200020000; // 034502 SSRAM[14659] = 36'o205240777400; // 034503 SSRAM[14660] = 36'o201340000400; // 034504 SSRAM[14661] = 36'o200600000007; // 034505 SSRAM[14662] = 36'o242600000011; // 034506 SSRAM[14663] = 36'o661600777777; // 034507 SSRAM[14664] = 36'o621614000000; // 034510 SSRAM[14665] = 36'o200545043742; // 034511 SSRAM[14666] = 36'o312600000013; // 034512 SSRAM[14667] = 36'o036540040630; // 034513 SSRAM[14668] = 36'o035000034445; // 034514 SSRAM[14669] = 36'o350000000007; // 034515 SSRAM[14670] = 36'o253240034505; // 034516 SSRAM[14671] = 36'o367640034425; // 034517 SSRAM[14672] = 36'o201000034520; // 034520 SSRAM[14673] = 36'o202000030051; // 034521 SSRAM[14674] = 36'o200640043737; // 034522 SSRAM[14675] = 36'o402000000200; // 034523 SSRAM[14676] = 36'o200340037671; // 034524 SSRAM[14677] = 36'o251340000417; // 034525 SSRAM[14678] = 36'o205340740075; // 034526 SSRAM[14679] = 36'o202340000200; // 034527 SSRAM[14680] = 36'o201340034552; // 034530 SSRAM[14681] = 36'o202340000502; // 034531 SSRAM[14682] = 36'o403600075775; // 034532 SSRAM[14683] = 36'o402000075776; // 034533 SSRAM[14684] = 36'o402000075777; // 034534 SSRAM[14685] = 36'o402000076000; // 034535 SSRAM[14686] = 36'o402000076001; // 034536 SSRAM[14687] = 36'o402000076002; // 034537 SSRAM[14688] = 36'o476000000500; // 034540 SSRAM[14689] = 36'o701200020000; // 034541 SSRAM[14690] = 36'o701140037116; // 034542 SSRAM[14691] = 36'o254120034544; // 034543 SSRAM[14692] = 36'o000000034545; // 034544 SSRAM[14693] = 36'o476000400775; // 034545 SSRAM[14694] = 36'o200540040636; // 034546 SSRAM[14695] = 36'o251540401001; // 034547 SSRAM[14696] = 36'o036540040641; // 034550 SSRAM[14697] = 36'o254000034532; // 034551 SSRAM[14698] = 36'o200600040644; // 034552 SSRAM[14699] = 36'o312600000013; // 034553 SSRAM[14700] = 36'o036540040650; // 034554 SSRAM[14701] = 36'o200540000500; // 034555 SSRAM[14702] = 36'o200600040653; // 034556 SSRAM[14703] = 36'o312600000013; // 034557 SSRAM[14704] = 36'o036540040654; // 034560 SSRAM[14705] = 36'o200540000501; // 034561 SSRAM[14706] = 36'o200600040657; // 034562 SSRAM[14707] = 36'o312600000013; // 034563 SSRAM[14708] = 36'o036540040664; // 034564 SSRAM[14709] = 36'o476000000014; // 034565 SSRAM[14710] = 36'o200540075775; // 034566 SSRAM[14711] = 36'o312600000013; // 034567 SSRAM[14712] = 36'o036540040674; // 034570 SSRAM[14713] = 36'o200540075776; // 034571 SSRAM[14714] = 36'o312600000013; // 034572 SSRAM[14715] = 36'o036540040701; // 034573 SSRAM[14716] = 36'o200540075777; // 034574 SSRAM[14717] = 36'o312600000013; // 034575 SSRAM[14718] = 36'o036540040706; // 034576 SSRAM[14719] = 36'o402000000014; // 034577 SSRAM[14720] = 36'o200540076000; // 034600 SSRAM[14721] = 36'o312600000013; // 034601 SSRAM[14722] = 36'o036540040713; // 034602 SSRAM[14723] = 36'o200540076001; // 034603 SSRAM[14724] = 36'o312600000013; // 034604 SSRAM[14725] = 36'o036540040720; // 034605 SSRAM[14726] = 36'o200540076002; // 034606 SSRAM[14727] = 36'o312600000013; // 034607 SSRAM[14728] = 36'o036540040725; // 034610 SSRAM[14729] = 36'o035000034532; // 034611 SSRAM[14730] = 36'o201340034662; // 034612 SSRAM[14731] = 36'o202340000502; // 034613 SSRAM[14732] = 36'o402000075775; // 034614 SSRAM[14733] = 36'o402000075776; // 034615 SSRAM[14734] = 36'o402000075777; // 034616 SSRAM[14735] = 36'o402000076000; // 034617 SSRAM[14736] = 36'o402000076001; // 034620 SSRAM[14737] = 36'o402000076002; // 034621 SSRAM[14738] = 36'o701200020000; // 034622 SSRAM[14739] = 36'o701140037116; // 034623 SSRAM[14740] = 36'o254120034625; // 034624 SSRAM[14741] = 36'o000000034626; // 034625 SSRAM[14742] = 36'o476000400775; // 034626 SSRAM[14743] = 36'o200340040636; // 034627 SSRAM[14744] = 36'o251340401001; // 034630 SSRAM[14745] = 36'o476000000014; // 034631 SSRAM[14746] = 36'o200540075775; // 034632 SSRAM[14747] = 36'o312600000013; // 034633 SSRAM[14748] = 36'o036540040674; // 034634 SSRAM[14749] = 36'o200540075776; // 034635 SSRAM[14750] = 36'o312600000013; // 034636 SSRAM[14751] = 36'o036540040701; // 034637 SSRAM[14752] = 36'o200540075777; // 034640 SSRAM[14753] = 36'o312600000013; // 034641 SSRAM[14754] = 36'o036540040706; // 034642 SSRAM[14755] = 36'o200540076000; // 034643 SSRAM[14756] = 36'o312600000013; // 034644 SSRAM[14757] = 36'o036540040713; // 034645 SSRAM[14758] = 36'o200540076001; // 034646 SSRAM[14759] = 36'o312600000013; // 034647 SSRAM[14760] = 36'o036540040720; // 034650 SSRAM[14761] = 36'o402000000014; // 034651 SSRAM[14762] = 36'o200540076002; // 034652 SSRAM[14763] = 36'o312600000013; // 034653 SSRAM[14764] = 36'o036540040733; // 034654 SSRAM[14765] = 36'o035000034552; // 034655 SSRAM[14766] = 36'o367640034523; // 034656 SSRAM[14767] = 36'o200340043736; // 034657 SSRAM[14768] = 36'o202340000502; // 034660 SSRAM[14769] = 36'o254000034666; // 034661 SSRAM[14770] = 36'o200400040736; // 034662 SSRAM[14771] = 36'o202400000200; // 034663 SSRAM[14772] = 36'o701200020000; // 034664 SSRAM[14773] = 36'o254120000501; // 034665 SSRAM[14774] = 36'o201000034666; // 034666 SSRAM[14775] = 36'o202000030051; // 034667 SSRAM[14776] = 36'o200640043737; // 034670 SSRAM[14777] = 36'o402000000200; // 034671 SSRAM[14778] = 36'o200340037671; // 034672 SSRAM[14779] = 36'o251340000417; // 034673 SSRAM[14780] = 36'o201340034711; // 034674 SSRAM[14781] = 36'o202340000502; // 034675 SSRAM[14782] = 36'o402000000014; // 034676 SSRAM[14783] = 36'o476000076000; // 034677 SSRAM[14784] = 36'o476000000500; // 034700 SSRAM[14785] = 36'o701200020000; // 034701 SSRAM[14786] = 36'o701140037116; // 034702 SSRAM[14787] = 36'o254120034704; // 034703 SSRAM[14788] = 36'o000000034705; // 034704 SSRAM[14789] = 36'o200540040742; // 034705 SSRAM[14790] = 36'o134600000013; // 034706 SSRAM[14791] = 36'o036540040753; // 034707 SSRAM[14792] = 36'o254000034676; // 034710 SSRAM[14793] = 36'o332000000014; // 034711 SSRAM[14794] = 36'o036540040762; // 034712 SSRAM[14795] = 36'o200600040765; // 034713 SSRAM[14796] = 36'o312600000013; // 034714 SSRAM[14797] = 36'o036540040772; // 034715 SSRAM[14798] = 36'o476000000014; // 034716 SSRAM[14799] = 36'o200540076000; // 034717 SSRAM[14800] = 36'o312600000013; // 034720 SSRAM[14801] = 36'o036540041004; // 034721 SSRAM[14802] = 36'o200540000500; // 034722 SSRAM[14803] = 36'o200600037672; // 034723 SSRAM[14804] = 36'o312600000013; // 034724 SSRAM[14805] = 36'o036540041007; // 034725 SSRAM[14806] = 36'o200540000501; // 034726 SSRAM[14807] = 36'o200600041012; // 034727 SSRAM[14808] = 36'o312600000013; // 034730 SSRAM[14809] = 36'o036540041013; // 034731 SSRAM[14810] = 36'o035000034676; // 034732 SSRAM[14811] = 36'o201340034746; // 034733 SSRAM[14812] = 36'o202340000502; // 034734 SSRAM[14813] = 36'o402000000014; // 034735 SSRAM[14814] = 36'o476000076000; // 034736 SSRAM[14815] = 36'o476000000500; // 034737 SSRAM[14816] = 36'o254120034741; // 034740 SSRAM[14817] = 36'o000000034742; // 034741 SSRAM[14818] = 36'o200540040742; // 034742 SSRAM[14819] = 36'o136600000013; // 034743 SSRAM[14820] = 36'o036540041021; // 034744 SSRAM[14821] = 36'o254000034733; // 034745 SSRAM[14822] = 36'o332000000014; // 034746 SSRAM[14823] = 36'o036540041030; // 034747 SSRAM[14824] = 36'o200600040765; // 034750 SSRAM[14825] = 36'o312600000013; // 034751 SSRAM[14826] = 36'o036540041037; // 034752 SSRAM[14827] = 36'o476000000014; // 034753 SSRAM[14828] = 36'o200540076000; // 034754 SSRAM[14829] = 36'o312600000013; // 034755 SSRAM[14830] = 36'o036540041050; // 034756 SSRAM[14831] = 36'o200540000500; // 034757 SSRAM[14832] = 36'o200600037672; // 034760 SSRAM[14833] = 36'o312600000013; // 034761 SSRAM[14834] = 36'o036540041007; // 034762 SSRAM[14835] = 36'o200540000501; // 034763 SSRAM[14836] = 36'o200600041053; // 034764 SSRAM[14837] = 36'o312600000013; // 034765 SSRAM[14838] = 36'o036540041013; // 034766 SSRAM[14839] = 36'o035000034733; // 034767 SSRAM[14840] = 36'o201340035005; // 034770 SSRAM[14841] = 36'o202340000502; // 034771 SSRAM[14842] = 36'o402000000014; // 034772 SSRAM[14843] = 36'o200540041054; // 034773 SSRAM[14844] = 36'o202540076000; // 034774 SSRAM[14845] = 36'o476000000500; // 034775 SSRAM[14846] = 36'o701200020000; // 034776 SSRAM[14847] = 36'o701140037116; // 034777 SSRAM[14848] = 36'o254120035001; // 035000 SSRAM[14849] = 36'o000000035002; // 035001 SSRAM[14850] = 36'o134600400000; // 035002 SSRAM[14851] = 36'o036540041062; // 035003 SSRAM[14852] = 36'o254000034770; // 035004 SSRAM[14853] = 36'o332000000014; // 035005 SSRAM[14854] = 36'o036540041073; // 035006 SSRAM[14855] = 36'o200600041054; // 035007 SSRAM[14856] = 36'o312600000013; // 035010 SSRAM[14857] = 36'o036540041101; // 035011 SSRAM[14858] = 36'o200540076000; // 035012 SSRAM[14859] = 36'o312600000013; // 035013 SSRAM[14860] = 36'o036540041107; // 035014 SSRAM[14861] = 36'o200540000500; // 035015 SSRAM[14862] = 36'o200600041112; // 035016 SSRAM[14863] = 36'o312600000013; // 035017 SSRAM[14864] = 36'o036540041007; // 035020 SSRAM[14865] = 36'o200540000501; // 035021 SSRAM[14866] = 36'o200600041113; // 035022 SSRAM[14867] = 36'o312600000013; // 035023 SSRAM[14868] = 36'o036540041013; // 035024 SSRAM[14869] = 36'o035000034770; // 035025 SSRAM[14870] = 36'o367640034671; // 035026 SSRAM[14871] = 36'o200340043736; // 035027 SSRAM[14872] = 36'o202000000502; // 035030 SSRAM[14873] = 36'o201000035031; // 035031 SSRAM[14874] = 36'o202000030051; // 035032 SSRAM[14875] = 36'o200640043737; // 035033 SSRAM[14876] = 36'o402000000200; // 035034 SSRAM[14877] = 36'o200340037671; // 035035 SSRAM[14878] = 36'o251340000417; // 035036 SSRAM[14879] = 36'o201340035054; // 035037 SSRAM[14880] = 36'o202340000502; // 035040 SSRAM[14881] = 36'o403540076000; // 035041 SSRAM[14882] = 36'o403600076001; // 035042 SSRAM[14883] = 36'o477340000010; // 035043 SSRAM[14884] = 36'o476000000500; // 035044 SSRAM[14885] = 36'o701200020000; // 035045 SSRAM[14886] = 36'o701140037116; // 035046 SSRAM[14887] = 36'o254120035050; // 035047 SSRAM[14888] = 36'o000000035051; // 035050 SSRAM[14889] = 36'o120340400000; // 035051 SSRAM[14890] = 36'o036540041120; // 035052 SSRAM[14891] = 36'o254000035041; // 035053 SSRAM[14892] = 36'o476000000014; // 035054 SSRAM[14893] = 36'o200540000007; // 035055 SSRAM[14894] = 36'o312600000013; // 035056 SSRAM[14895] = 36'o036540041131; // 035057 SSRAM[14896] = 36'o200540000010; // 035060 SSRAM[14897] = 36'o312600000013; // 035061 SSRAM[14898] = 36'o036540041143; // 035062 SSRAM[14899] = 36'o200540000500; // 035063 SSRAM[14900] = 36'o200600037672; // 035064 SSRAM[14901] = 36'o312600000013; // 035065 SSRAM[14902] = 36'o036540041146; // 035066 SSRAM[14903] = 36'o200540000501; // 035067 SSRAM[14904] = 36'o200600041151; // 035070 SSRAM[14905] = 36'o312600000013; // 035071 SSRAM[14906] = 36'o036540041152; // 035072 SSRAM[14907] = 36'o035000035041; // 035073 SSRAM[14908] = 36'o201340035114; // 035074 SSRAM[14909] = 36'o202340000502; // 035075 SSRAM[14910] = 36'o205340740075; // 035076 SSRAM[14911] = 36'o202340000200; // 035077 SSRAM[14912] = 36'o403600000013; // 035100 SSRAM[14913] = 36'o402000075777; // 035101 SSRAM[14914] = 36'o402000076000; // 035102 SSRAM[14915] = 36'o477340000010; // 035103 SSRAM[14916] = 36'o476000000500; // 035104 SSRAM[14917] = 36'o701200020000; // 035105 SSRAM[14918] = 36'o701140037116; // 035106 SSRAM[14919] = 36'o254120035110; // 035107 SSRAM[14920] = 36'o000000035111; // 035110 SSRAM[14921] = 36'o120340400777; // 035111 SSRAM[14922] = 36'o036540041155; // 035112 SSRAM[14923] = 36'o254000035074; // 035113 SSRAM[14924] = 36'o476000000014; // 035114 SSRAM[14925] = 36'o200540000007; // 035115 SSRAM[14926] = 36'o312600000013; // 035116 SSRAM[14927] = 36'o036540041163; // 035117 SSRAM[14928] = 36'o200540000010; // 035120 SSRAM[14929] = 36'o312600000013; // 035121 SSRAM[14930] = 36'o036540041171; // 035122 SSRAM[14931] = 36'o200540000500; // 035123 SSRAM[14932] = 36'o200600041174; // 035124 SSRAM[14933] = 36'o312600000013; // 035125 SSRAM[14934] = 36'o036540041146; // 035126 SSRAM[14935] = 36'o200540000501; // 035127 SSRAM[14936] = 36'o200600041175; // 035130 SSRAM[14937] = 36'o312600000013; // 035131 SSRAM[14938] = 36'o036540041152; // 035132 SSRAM[14939] = 36'o035000035074; // 035133 SSRAM[14940] = 36'o367640035034; // 035134 SSRAM[14941] = 36'o201000035135; // 035135 SSRAM[14942] = 36'o202000030051; // 035136 SSRAM[14943] = 36'o200640043737; // 035137 SSRAM[14944] = 36'o402000000200; // 035140 SSRAM[14945] = 36'o200340037671; // 035141 SSRAM[14946] = 36'o251340000417; // 035142 SSRAM[14947] = 36'o201340035162; // 035143 SSRAM[14948] = 36'o202340000502; // 035144 SSRAM[14949] = 36'o701200020000; // 035145 SSRAM[14950] = 36'o701140037116; // 035146 SSRAM[14951] = 36'o403540076000; // 035147 SSRAM[14952] = 36'o403600076001; // 035150 SSRAM[14953] = 36'o477340000010; // 035151 SSRAM[14954] = 36'o476000000500; // 035152 SSRAM[14955] = 36'o701200020000; // 035153 SSRAM[14956] = 36'o701140037116; // 035154 SSRAM[14957] = 36'o254120035156; // 035155 SSRAM[14958] = 36'o000000035157; // 035156 SSRAM[14959] = 36'o124340400000; // 035157 SSRAM[14960] = 36'o036540041203; // 035160 SSRAM[14961] = 36'o254000035145; // 035161 SSRAM[14962] = 36'o402000000014; // 035162 SSRAM[14963] = 36'o200540076000; // 035163 SSRAM[14964] = 36'o312600000013; // 035164 SSRAM[14965] = 36'o036540041214; // 035165 SSRAM[14966] = 36'o200540076001; // 035166 SSRAM[14967] = 36'o312600000013; // 035167 SSRAM[14968] = 36'o036540041227; // 035170 SSRAM[14969] = 36'o476000000014; // 035171 SSRAM[14970] = 36'o200540000007; // 035172 SSRAM[14971] = 36'o312600000013; // 035173 SSRAM[14972] = 36'o036540041236; // 035174 SSRAM[14973] = 36'o200540000010; // 035175 SSRAM[14974] = 36'o312600000013; // 035176 SSRAM[14975] = 36'o036540041245; // 035177 SSRAM[14976] = 36'o200540000500; // 035200 SSRAM[14977] = 36'o200600041250; // 035201 SSRAM[14978] = 36'o312600000013; // 035202 SSRAM[14979] = 36'o036540041251; // 035203 SSRAM[14980] = 36'o200540000501; // 035204 SSRAM[14981] = 36'o200600041254; // 035205 SSRAM[14982] = 36'o312600000013; // 035206 SSRAM[14983] = 36'o036540041255; // 035207 SSRAM[14984] = 36'o035000035145; // 035210 SSRAM[14985] = 36'o201340035230; // 035211 SSRAM[14986] = 36'o202340000502; // 035212 SSRAM[14987] = 36'o205340740075; // 035213 SSRAM[14988] = 36'o202340000200; // 035214 SSRAM[14989] = 36'o402000075777; // 035215 SSRAM[14990] = 36'o402000076000; // 035216 SSRAM[14991] = 36'o477340000010; // 035217 SSRAM[14992] = 36'o476000000500; // 035220 SSRAM[14993] = 36'o701200020000; // 035221 SSRAM[14994] = 36'o701140037116; // 035222 SSRAM[14995] = 36'o254120035224; // 035223 SSRAM[14996] = 36'o000000035225; // 035224 SSRAM[14997] = 36'o124340400777; // 035225 SSRAM[14998] = 36'o036540041263; // 035226 SSRAM[14999] = 36'o254000035211; // 035227 SSRAM[15000] = 36'o402000000014; // 035230 SSRAM[15001] = 36'o200540075777; // 035231 SSRAM[15002] = 36'o312600000013; // 035232 SSRAM[15003] = 36'o036540041266; // 035233 SSRAM[15004] = 36'o402000000014; // 035234 SSRAM[15005] = 36'o200540076000; // 035235 SSRAM[15006] = 36'o312600000013; // 035236 SSRAM[15007] = 36'o036540041271; // 035237 SSRAM[15008] = 36'o200540000500; // 035240 SSRAM[15009] = 36'o200600040653; // 035241 SSRAM[15010] = 36'o312600000013; // 035242 SSRAM[15011] = 36'o036540041251; // 035243 SSRAM[15012] = 36'o200540000501; // 035244 SSRAM[15013] = 36'o200600041274; // 035245 SSRAM[15014] = 36'o312600000013; // 035246 SSRAM[15015] = 36'o036540041255; // 035247 SSRAM[15016] = 36'o035000035211; // 035250 SSRAM[15017] = 36'o367640035140; // 035251 SSRAM[15018] = 36'o200340043736; // 035252 SSRAM[15019] = 36'o202340000502; // 035253 SSRAM[15020] = 36'o201000035254; // 035254 SSRAM[15021] = 36'o202000030051; // 035255 SSRAM[15022] = 36'o200640043737; // 035256 SSRAM[15023] = 36'o402000000200; // 035257 SSRAM[15024] = 36'o200340037671; // 035260 SSRAM[15025] = 36'o251340000417; // 035261 SSRAM[15026] = 36'o201340035302; // 035262 SSRAM[15027] = 36'o202340000502; // 035263 SSRAM[15028] = 36'o200340041302; // 035264 SSRAM[15029] = 36'o202340000423; // 035265 SSRAM[15030] = 36'o476000000500; // 035266 SSRAM[15031] = 36'o476000000501; // 035267 SSRAM[15032] = 36'o701200020000; // 035270 SSRAM[15033] = 36'o701140037116; // 035271 SSRAM[15034] = 36'o254120035273; // 035272 SSRAM[15035] = 36'o000600035277; // 035273 SSRAM[15036] = 36'o701200020000; // 035274 SSRAM[15037] = 36'o036540041303; // 035275 SSRAM[15038] = 36'o254000035256; // 035276 SSRAM[15039] = 36'o701200020000; // 035277 SSRAM[15040] = 36'o036540041313; // 035300 SSRAM[15041] = 36'o254000035256; // 035301 SSRAM[15042] = 36'o200000043736; // 035302 SSRAM[15043] = 36'o202000000502; // 035303 SSRAM[15044] = 36'o200600041316; // 035304 SSRAM[15045] = 36'o200540000500; // 035305 SSRAM[15046] = 36'o312600000013; // 035306 SSRAM[15047] = 36'o036540041317; // 035307 SSRAM[15048] = 36'o035000035257; // 035310 SSRAM[15049] = 36'o200600041322; // 035311 SSRAM[15050] = 36'o200540000501; // 035312 SSRAM[15051] = 36'o312600000013; // 035313 SSRAM[15052] = 36'o036540041323; // 035314 SSRAM[15053] = 36'o035000035257; // 035315 SSRAM[15054] = 36'o312600000013; // 035316 SSRAM[15055] = 36'o254000035324; // 035317 SSRAM[15056] = 36'o205340540035; // 035320 SSRAM[15057] = 36'o202340000200; // 035321 SSRAM[15058] = 36'o701200020000; // 035322 SSRAM[15059] = 36'o254120000501; // 035323 SSRAM[15060] = 36'o036540041333; // 035324 SSRAM[15061] = 36'o254000035344; // 035325 SSRAM[15062] = 36'o000000000000; // 035326 SSRAM[15063] = 36'o200000043732; // 035327 SSRAM[15064] = 36'o202000000423; // 035330 SSRAM[15065] = 36'o265540035332; // 035331 SSRAM[15066] = 36'o200600041336; // 035332 SSRAM[15067] = 36'o312600000013; // 035333 SSRAM[15068] = 36'o036540041345; // 035334 SSRAM[15069] = 36'o035000035257; // 035335 SSRAM[15070] = 36'o200600041350; // 035336 SSRAM[15071] = 36'o200540035326; // 035337 SSRAM[15072] = 36'o312600000013; // 035340 SSRAM[15073] = 36'o036540041355; // 035341 SSRAM[15074] = 36'o035000035257; // 035342 SSRAM[15075] = 36'o367640035257; // 035343 SSRAM[15076] = 36'o201000035344; // 035344 SSRAM[15077] = 36'o202000030051; // 035345 SSRAM[15078] = 36'o200640043737; // 035346 SSRAM[15079] = 36'o402000000200; // 035347 SSRAM[15080] = 36'o200340037671; // 035350 SSRAM[15081] = 36'o251340000417; // 035351 SSRAM[15082] = 36'o201340035410; // 035352 SSRAM[15083] = 36'o202340000502; // 035353 SSRAM[15084] = 36'o200340041363; // 035354 SSRAM[15085] = 36'o202340000423; // 035355 SSRAM[15086] = 36'o476000000500; // 035356 SSRAM[15087] = 36'o476000000501; // 035357 SSRAM[15088] = 36'o701200020000; // 035360 SSRAM[15089] = 36'o701140037116; // 035361 SSRAM[15090] = 36'o254120035363; // 035362 SSRAM[15091] = 36'o000600400373; // 035363 SSRAM[15092] = 36'o701200020000; // 035364 SSRAM[15093] = 36'o701140037116; // 035365 SSRAM[15094] = 36'o200000043736; // 035366 SSRAM[15095] = 36'o202000000502; // 035367 SSRAM[15096] = 36'o036540041364; // 035370 SSRAM[15097] = 36'o035000035346; // 035371 SSRAM[15098] = 36'o254000035346; // 035372 SSRAM[15099] = 36'o701200020000; // 035373 SSRAM[15100] = 36'o701140037116; // 035374 SSRAM[15101] = 36'o200000043736; // 035375 SSRAM[15102] = 36'o202000000502; // 035376 SSRAM[15103] = 36'o036540041367; // 035377 SSRAM[15104] = 36'o035000035346; // 035400 SSRAM[15105] = 36'o254000035346; // 035401 SSRAM[15106] = 36'o000000000000; // 035402 SSRAM[15107] = 36'o200000043736; // 035403 SSRAM[15108] = 36'o202000000502; // 035404 SSRAM[15109] = 36'o036540041400; // 035405 SSRAM[15110] = 36'o035000035346; // 035406 SSRAM[15111] = 36'o254000035346; // 035407 SSRAM[15112] = 36'o200000043736; // 035410 SSRAM[15113] = 36'o202000000502; // 035411 SSRAM[15114] = 36'o200600041403; // 035412 SSRAM[15115] = 36'o200540000500; // 035413 SSRAM[15116] = 36'o312600000013; // 035414 SSRAM[15117] = 36'o036540041404; // 035415 SSRAM[15118] = 36'o035000035347; // 035416 SSRAM[15119] = 36'o200600041407; // 035417 SSRAM[15120] = 36'o200540000501; // 035420 SSRAM[15121] = 36'o312600000013; // 035421 SSRAM[15122] = 36'o036540041410; // 035422 SSRAM[15123] = 36'o035000035347; // 035423 SSRAM[15124] = 36'o367640035347; // 035424 SSRAM[15125] = 36'o201000035425; // 035425 SSRAM[15126] = 36'o202000030051; // 035426 SSRAM[15127] = 36'o200640043737; // 035427 SSRAM[15128] = 36'o402000000200; // 035430 SSRAM[15129] = 36'o200000037671; // 035431 SSRAM[15130] = 36'o251000000417; // 035432 SSRAM[15131] = 36'o201000035446; // 035433 SSRAM[15132] = 36'o202000000502; // 035434 SSRAM[15133] = 36'o476000000500; // 035435 SSRAM[15134] = 36'o701200020000; // 035436 SSRAM[15135] = 36'o701140037116; // 035437 SSRAM[15136] = 36'o254120035441; // 035440 SSRAM[15137] = 36'o000000035442; // 035441 SSRAM[15138] = 36'o700240400000; // 035442 SSRAM[15139] = 36'o036540041422; // 035443 SSRAM[15140] = 36'o035000035435; // 035444 SSRAM[15141] = 36'o254000035435; // 035445 SSRAM[15142] = 36'o200540000500; // 035446 SSRAM[15143] = 36'o200600041112; // 035447 SSRAM[15144] = 36'o312600000013; // 035450 SSRAM[15145] = 36'o036540041426; // 035451 SSRAM[15146] = 36'o035000035435; // 035452 SSRAM[15147] = 36'o200540000501; // 035453 SSRAM[15148] = 36'o200600041431; // 035454 SSRAM[15149] = 36'o312600000013; // 035455 SSRAM[15150] = 36'o036540041432; // 035456 SSRAM[15151] = 36'o035000035435; // 035457 SSRAM[15152] = 36'o367640035430; // 035460 SSRAM[15153] = 36'o200000043736; // 035461 SSRAM[15154] = 36'o202000000502; // 035462 SSRAM[15155] = 36'o254000035542; // 035463 SSRAM[15156] = 36'o777777000400; // 035464 SSRAM[15157] = 36'o757776000600; // 035465 SSRAM[15158] = 36'o737775000500; // 035466 SSRAM[15159] = 36'o577773000440; // 035467 SSRAM[15160] = 36'o517767000420; // 035470 SSRAM[15161] = 36'o777757000410; // 035471 SSRAM[15162] = 36'o577737000404; // 035472 SSRAM[15163] = 36'o737677000402; // 035473 SSRAM[15164] = 36'o757577000401; // 035474 SSRAM[15165] = 36'o660000000340; // 035475 SSRAM[15166] = 36'o757377000777; // 035476 SSRAM[15167] = 36'o736777000577; // 035477 SSRAM[15168] = 36'o575777000677; // 035500 SSRAM[15169] = 36'o773777000737; // 035501 SSRAM[15170] = 36'o567777000757; // 035502 SSRAM[15171] = 36'o730000000767; // 035503 SSRAM[15172] = 36'o744000000773; // 035504 SSRAM[15173] = 36'o762000000775; // 035505 SSRAM[15174] = 36'o501000000776; // 035506 SSRAM[15175] = 36'o677777000501; // 035507 SSRAM[15176] = 36'o500400000640; // 035510 SSRAM[15177] = 36'o760200000700; // 035511 SSRAM[15178] = 36'o720100000740; // 035512 SSRAM[15179] = 36'o440000000760; // 035513 SSRAM[15180] = 36'o720040000770; // 035514 SSRAM[15181] = 36'o540020000774; // 035515 SSRAM[15182] = 36'o720010000772; // 035516 SSRAM[15183] = 36'o417777000341; // 035517 SSRAM[15184] = 36'o760004000342; // 035520 SSRAM[15185] = 36'o660000000345; // 035521 SSRAM[15186] = 36'o500002000352; // 035522 SSRAM[15187] = 36'o500001000525; // 035523 SSRAM[15188] = 36'o777777000376; // 035524 SSRAM[15189] = 36'o517777000463; // 035525 SSRAM[15190] = 36'o620000000632; // 035526 SSRAM[15191] = 36'o552525000505; // 035527 SSRAM[15192] = 36'o637777000362; // 035530 SSRAM[15193] = 36'o545252000623; // 035531 SSRAM[15194] = 36'o400000000551; // 035532 SSRAM[15195] = 36'o772525000624; // 035533 SSRAM[15196] = 36'o417777000353; // 035534 SSRAM[15197] = 36'o760000000603; // 035535 SSRAM[15198] = 36'o000000000000; // 035536 SSRAM[15199] = 36'o000000000000; // 035537 SSRAM[15200] = 36'o000000000000; // 035540 SSRAM[15201] = 36'o000000000000; // 035541 SSRAM[15202] = 36'o402000030116; // 035542 SSRAM[15203] = 36'o701200020000; // 035543 SSRAM[15204] = 36'o701140037116; // 035544 SSRAM[15205] = 36'o201000000040; // 035545 SSRAM[15206] = 36'o202000043726; // 035546 SSRAM[15207] = 36'o201000035547; // 035547 SSRAM[15208] = 36'o202000030051; // 035550 SSRAM[15209] = 36'o205000040000; // 035551 SSRAM[15210] = 36'o202000035557; // 035552 SSRAM[15211] = 36'o201000035562; // 035553 SSRAM[15212] = 36'o202000000430; // 035554 SSRAM[15213] = 36'o402000000424; // 035555 SSRAM[15214] = 36'o402000000425; // 035556 SSRAM[15215] = 36'o000000000000; // 035557 SSRAM[15216] = 36'o036540041457; // 035560 SSRAM[15217] = 36'o035100035553; // 035561 SSRAM[15218] = 36'o336000043726; // 035562 SSRAM[15219] = 36'o254000035636; // 035563 SSRAM[15220] = 36'o205000001000; // 035564 SSRAM[15221] = 36'o272000035557; // 035565 SSRAM[15222] = 36'o370000043726; // 035566 SSRAM[15223] = 36'o254000035553; // 035567 SSRAM[15224] = 36'o201000000010; // 035570 SSRAM[15225] = 36'o202000043726; // 035571 SSRAM[15226] = 36'o201000035572; // 035572 SSRAM[15227] = 36'o202000030051; // 035573 SSRAM[15228] = 36'o205000100000; // 035574 SSRAM[15229] = 36'o202000035602; // 035575 SSRAM[15230] = 36'o201000035605; // 035576 SSRAM[15231] = 36'o202000000430; // 035577 SSRAM[15232] = 36'o402000000424; // 035600 SSRAM[15233] = 36'o402000000425; // 035601 SSRAM[15234] = 36'o000000000000; // 035602 SSRAM[15235] = 36'o036540041465; // 035603 SSRAM[15236] = 36'o035100035576; // 035604 SSRAM[15237] = 36'o336000043726; // 035605 SSRAM[15238] = 36'o254000035613; // 035606 SSRAM[15239] = 36'o205000001000; // 035607 SSRAM[15240] = 36'o272000035602; // 035610 SSRAM[15241] = 36'o370000043726; // 035611 SSRAM[15242] = 36'o254000035576; // 035612 SSRAM[15243] = 36'o201000000004; // 035613 SSRAM[15244] = 36'o202000043726; // 035614 SSRAM[15245] = 36'o201000035615; // 035615 SSRAM[15246] = 36'o202000030051; // 035616 SSRAM[15247] = 36'o205000114000; // 035617 SSRAM[15248] = 36'o202000035625; // 035620 SSRAM[15249] = 36'o201000035630; // 035621 SSRAM[15250] = 36'o202000000430; // 035622 SSRAM[15251] = 36'o402000000424; // 035623 SSRAM[15252] = 36'o402000000425; // 035624 SSRAM[15253] = 36'o000000000000; // 035625 SSRAM[15254] = 36'o036540041470; // 035626 SSRAM[15255] = 36'o035100035621; // 035627 SSRAM[15256] = 36'o336000043726; // 035630 SSRAM[15257] = 36'o254000035613; // 035631 SSRAM[15258] = 36'o205000001000; // 035632 SSRAM[15259] = 36'o272000035602; // 035633 SSRAM[15260] = 36'o370000043726; // 035634 SSRAM[15261] = 36'o254000035621; // 035635 SSRAM[15262] = 36'o201000000040; // 035636 SSRAM[15263] = 36'o202000043726; // 035637 SSRAM[15264] = 36'o201000035640; // 035640 SSRAM[15265] = 36'o202000030051; // 035641 SSRAM[15266] = 36'o205000040000; // 035642 SSRAM[15267] = 36'o202000035650; // 035643 SSRAM[15268] = 36'o201000035652; // 035644 SSRAM[15269] = 36'o202000000430; // 035645 SSRAM[15270] = 36'o402000000424; // 035646 SSRAM[15271] = 36'o402000000425; // 035647 SSRAM[15272] = 36'o000000000000; // 035650 SSRAM[15273] = 36'o254200035651; // 035651 SSRAM[15274] = 36'o200000000424; // 035652 SSRAM[15275] = 36'o312000035650; // 035653 SSRAM[15276] = 36'o036540041512; // 035654 SSRAM[15277] = 36'o035100035644; // 035655 SSRAM[15278] = 36'o336000043726; // 035656 SSRAM[15279] = 36'o254000035664; // 035657 SSRAM[15280] = 36'o205000001000; // 035660 SSRAM[15281] = 36'o272000035650; // 035661 SSRAM[15282] = 36'o370000043726; // 035662 SSRAM[15283] = 36'o254000035644; // 035663 SSRAM[15284] = 36'o402000000424; // 035664 SSRAM[15285] = 36'o402000000425; // 035665 SSRAM[15286] = 36'o201000035666; // 035666 SSRAM[15287] = 36'o202000030051; // 035667 SSRAM[15288] = 36'o205000040000; // 035670 SSRAM[15289] = 36'o202000035674; // 035671 SSRAM[15290] = 36'o201000035676; // 035672 SSRAM[15291] = 36'o202000000430; // 035673 SSRAM[15292] = 36'o000000000000; // 035674 SSRAM[15293] = 36'o254200035675; // 035675 SSRAM[15294] = 36'o550040000425; // 035676 SSRAM[15295] = 36'o302040035675; // 035677 SSRAM[15296] = 36'o036540041536; // 035700 SSRAM[15297] = 36'o035100035672; // 035701 SSRAM[15298] = 36'o201340001000; // 035702 SSRAM[15299] = 36'o201000035716; // 035703 SSRAM[15300] = 36'o202000000430; // 035704 SSRAM[15301] = 36'o201000035705; // 035705 SSRAM[15302] = 36'o202000030051; // 035706 SSRAM[15303] = 36'o402000000424; // 035707 SSRAM[15304] = 36'o402000000425; // 035710 SSRAM[15305] = 36'o205000040000; // 035711 SSRAM[15306] = 36'o202000035714; // 035712 SSRAM[15307] = 36'o542340035714; // 035713 SSRAM[15308] = 36'o000000000000; // 035714 SSRAM[15309] = 36'o254200035715; // 035715 SSRAM[15310] = 36'o550040000424; // 035716 SSRAM[15311] = 36'o312040000007; // 035717 SSRAM[15312] = 36'o036540041562; // 035720 SSRAM[15313] = 36'o035100035703; // 035721 SSRAM[15314] = 36'o271340001000; // 035722 SSRAM[15315] = 36'o603340000001; // 035723 SSRAM[15316] = 36'o254000035726; // 035724 SSRAM[15317] = 36'o254000035703; // 035725 SSRAM[15318] = 36'o201000035726; // 035726 SSRAM[15319] = 36'o202000030051; // 035727 SSRAM[15320] = 36'o476000043725; // 035730 SSRAM[15321] = 36'o260740037016; // 035731 SSRAM[15322] = 36'o201000000040; // 035732 SSRAM[15323] = 36'o202000043726; // 035733 SSRAM[15324] = 36'o205000040000; // 035734 SSRAM[15325] = 36'o202000035753; // 035735 SSRAM[15326] = 36'o260740037025; // 035736 SSRAM[15327] = 36'o201000035756; // 035737 SSRAM[15328] = 36'o202000044434; // 035740 SSRAM[15329] = 36'o201000035764; // 035741 SSRAM[15330] = 36'o202000044430; // 035742 SSRAM[15331] = 36'o202000044436; // 035743 SSRAM[15332] = 36'o202000044432; // 035744 SSRAM[15333] = 36'o202000044431; // 035745 SSRAM[15334] = 36'o202000044433; // 035746 SSRAM[15335] = 36'o202000044437; // 035747 SSRAM[15336] = 36'o202000044435; // 035750 SSRAM[15337] = 36'o402000044424; // 035751 SSRAM[15338] = 36'o402000044425; // 035752 SSRAM[15339] = 36'o000000000000; // 035753 SSRAM[15340] = 36'o036540041603; // 035754 SSRAM[15341] = 36'o035100035736; // 035755 SSRAM[15342] = 36'o336000043726; // 035756 SSRAM[15343] = 36'o254000035766; // 035757 SSRAM[15344] = 36'o205000001000; // 035760 SSRAM[15345] = 36'o272000035753; // 035761 SSRAM[15346] = 36'o370000043726; // 035762 SSRAM[15347] = 36'o254000035736; // 035763 SSRAM[15348] = 36'o036540041615; // 035764 SSRAM[15349] = 36'o035100035736; // 035765 SSRAM[15350] = 36'o476000043725; // 035766 SSRAM[15351] = 36'o260740037016; // 035767 SSRAM[15352] = 36'o201000000040; // 035770 SSRAM[15353] = 36'o202000043726; // 035771 SSRAM[15354] = 36'o201000035772; // 035772 SSRAM[15355] = 36'o202000030051; // 035773 SSRAM[15356] = 36'o205000040000; // 035774 SSRAM[15357] = 36'o202000036007; // 035775 SSRAM[15358] = 36'o260740037025; // 035776 SSRAM[15359] = 36'o201000036012; // 035777 SSRAM[15360] = 36'o202000044434; // 036000 SSRAM[15361] = 36'o201000036024; // 036001 SSRAM[15362] = 36'o202000044430; // 036002 SSRAM[15363] = 36'o202000044432; // 036003 SSRAM[15364] = 36'o202000044436; // 036004 SSRAM[15365] = 36'o402000044424; // 036005 SSRAM[15366] = 36'o402000044425; // 036006 SSRAM[15367] = 36'o000000000000; // 036007 SSRAM[15368] = 36'o036540041623; // 036010 SSRAM[15369] = 36'o035100035776; // 036011 SSRAM[15370] = 36'o200000044424; // 036012 SSRAM[15371] = 36'o312000036007; // 036013 SSRAM[15372] = 36'o036540041626; // 036014 SSRAM[15373] = 36'o035100035776; // 036015 SSRAM[15374] = 36'o336000043726; // 036016 SSRAM[15375] = 36'o254000036026; // 036017 SSRAM[15376] = 36'o205000001000; // 036020 SSRAM[15377] = 36'o272000036007; // 036021 SSRAM[15378] = 36'o370000043726; // 036022 SSRAM[15379] = 36'o254000035776; // 036023 SSRAM[15380] = 36'o036540041640; // 036024 SSRAM[15381] = 36'o035100035776; // 036025 SSRAM[15382] = 36'o201000036026; // 036026 SSRAM[15383] = 36'o202000030051; // 036027 SSRAM[15384] = 36'o476000043725; // 036030 SSRAM[15385] = 36'o260740037016; // 036031 SSRAM[15386] = 36'o402000044424; // 036032 SSRAM[15387] = 36'o402000044425; // 036033 SSRAM[15388] = 36'o205000040000; // 036034 SSRAM[15389] = 36'o202000036045; // 036035 SSRAM[15390] = 36'o260740037025; // 036036 SSRAM[15391] = 36'o201000036047; // 036037 SSRAM[15392] = 36'o202000044434; // 036040 SSRAM[15393] = 36'o201000036054; // 036041 SSRAM[15394] = 36'o202000044430; // 036042 SSRAM[15395] = 36'o202000044432; // 036043 SSRAM[15396] = 36'o202000044436; // 036044 SSRAM[15397] = 36'o000000000000; // 036045 SSRAM[15398] = 36'o254200036046; // 036046 SSRAM[15399] = 36'o550040044425; // 036047 SSRAM[15400] = 36'o302040036046; // 036050 SSRAM[15401] = 36'o036540041653; // 036051 SSRAM[15402] = 36'o035100036036; // 036052 SSRAM[15403] = 36'o254000036056; // 036053 SSRAM[15404] = 36'o036540041664; // 036054 SSRAM[15405] = 36'o035100036036; // 036055 SSRAM[15406] = 36'o476000043725; // 036056 SSRAM[15407] = 36'o260740037016; // 036057 SSRAM[15408] = 36'o201000036060; // 036060 SSRAM[15409] = 36'o202000030051; // 036061 SSRAM[15410] = 36'o201340001000; // 036062 SSRAM[15411] = 36'o260740037025; // 036063 SSRAM[15412] = 36'o201000036102; // 036064 SSRAM[15413] = 36'o202000044434; // 036065 SSRAM[15414] = 36'o201000036113; // 036066 SSRAM[15415] = 36'o202000044436; // 036067 SSRAM[15416] = 36'o202000044432; // 036070 SSRAM[15417] = 36'o202000044430; // 036071 SSRAM[15418] = 36'o402000044424; // 036072 SSRAM[15419] = 36'o402000044425; // 036073 SSRAM[15420] = 36'o205000040000; // 036074 SSRAM[15421] = 36'o202000036077; // 036075 SSRAM[15422] = 36'o542340036077; // 036076 SSRAM[15423] = 36'o000000000000; // 036077 SSRAM[15424] = 36'o036540041703; // 036100 SSRAM[15425] = 36'o035100036063; // 036101 SSRAM[15426] = 36'o550040044424; // 036102 SSRAM[15427] = 36'o312040000007; // 036103 SSRAM[15428] = 36'o036540041706; // 036104 SSRAM[15429] = 36'o035100036063; // 036105 SSRAM[15430] = 36'o271340001000; // 036106 SSRAM[15431] = 36'o603340000001; // 036107 SSRAM[15432] = 36'o254000036115; // 036110 SSRAM[15433] = 36'o254000036063; // 036111 SSRAM[15434] = 36'o254000036115; // 036112 SSRAM[15435] = 36'o036540041711; // 036113 SSRAM[15436] = 36'o035100036063; // 036114 SSRAM[15437] = 36'o400000000000; // 036115 SSRAM[15438] = 36'o201000036116; // 036116 SSRAM[15439] = 36'o202000030051; // 036117 SSRAM[15440] = 36'o700200200000; // 036120 SSRAM[15441] = 36'o264000037005; // 036121 SSRAM[15442] = 36'o701200020000; // 036122 SSRAM[15443] = 36'o701140037116; // 036123 SSRAM[15444] = 36'o200000041720; // 036124 SSRAM[15445] = 36'o254120000000; // 036125 SSRAM[15446] = 36'o302000000421; // 036126 SSRAM[15447] = 36'o036540041726; // 036127 SSRAM[15448] = 36'o035100036122; // 036130 SSRAM[15449] = 36'o400000000000; // 036131 SSRAM[15450] = 36'o201000036132; // 036132 SSRAM[15451] = 36'o202000030051; // 036133 SSRAM[15452] = 36'o700200200000; // 036134 SSRAM[15453] = 36'o264000037005; // 036135 SSRAM[15454] = 36'o701200020000; // 036136 SSRAM[15455] = 36'o701140037116; // 036137 SSRAM[15456] = 36'o200000041735; // 036140 SSRAM[15457] = 36'o254120000000; // 036141 SSRAM[15458] = 36'o302000000422; // 036142 SSRAM[15459] = 36'o036540041743; // 036143 SSRAM[15460] = 36'o035100036136; // 036144 SSRAM[15461] = 36'o400000000000; // 036145 SSRAM[15462] = 36'o201000036146; // 036146 SSRAM[15463] = 36'o202000030051; // 036147 SSRAM[15464] = 36'o700200200000; // 036150 SSRAM[15465] = 36'o264000037005; // 036151 SSRAM[15466] = 36'o701200020000; // 036152 SSRAM[15467] = 36'o701140037116; // 036153 SSRAM[15468] = 36'o200000041752; // 036154 SSRAM[15469] = 36'o254120000000; // 036155 SSRAM[15470] = 36'o302000000423; // 036156 SSRAM[15471] = 36'o036540041761; // 036157 SSRAM[15472] = 36'o035100036154; // 036160 SSRAM[15473] = 36'o701200020000; // 036161 SSRAM[15474] = 36'o701140037116; // 036162 SSRAM[15475] = 36'o201000036163; // 036163 SSRAM[15476] = 36'o202000030051; // 036164 SSRAM[15477] = 36'o255740036166; // 036165 SSRAM[15478] = 36'o336000041765; // 036166 SSRAM[15479] = 36'o254000036172; // 036167 SSRAM[15480] = 36'o476000043725; // 036170 SSRAM[15481] = 36'o260740037016; // 036171 SSRAM[15482] = 36'o205000040000; // 036172 SSRAM[15483] = 36'o202000036207; // 036173 SSRAM[15484] = 36'o200000041764; // 036174 SSRAM[15485] = 36'o202000044434; // 036175 SSRAM[15486] = 36'o202000044435; // 036176 SSRAM[15487] = 36'o202000044436; // 036177 SSRAM[15488] = 36'o202000044437; // 036200 SSRAM[15489] = 36'o202000044432; // 036201 SSRAM[15490] = 36'o202000044433; // 036202 SSRAM[15491] = 36'o202000000430; // 036203 SSRAM[15492] = 36'o202000000431; // 036204 SSRAM[15493] = 36'o402000044424; // 036205 SSRAM[15494] = 36'o402000044425; // 036206 SSRAM[15495] = 36'o000000000000; // 036207 SSRAM[15496] = 36'o036540041772; // 036210 SSRAM[15497] = 36'o035000036161; // 036211 SSRAM[15498] = 36'o265040036213; // 036212 SSRAM[15499] = 36'o607040010000; // 036213 SSRAM[15500] = 36'o036540042003; // 036214 SSRAM[15501] = 36'o035000036161; // 036215 SSRAM[15502] = 36'o200000042006; // 036216 SSRAM[15503] = 36'o202000044430; // 036217 SSRAM[15504] = 36'o202000044436; // 036220 SSRAM[15505] = 36'o202000044432; // 036221 SSRAM[15506] = 36'o202000044434; // 036222 SSRAM[15507] = 36'o202000044433; // 036223 SSRAM[15508] = 36'o202000044431; // 036224 SSRAM[15509] = 36'o202000044435; // 036225 SSRAM[15510] = 36'o202000044437; // 036226 SSRAM[15511] = 36'o205000040000; // 036227 SSRAM[15512] = 36'o202000036231; // 036230 SSRAM[15513] = 36'o000000000000; // 036231 SSRAM[15514] = 36'o254200036232; // 036232 SSRAM[15515] = 36'o265000036234; // 036233 SSRAM[15516] = 36'o603000010000; // 036234 SSRAM[15517] = 36'o254200036236; // 036235 SSRAM[15518] = 36'o254000036237; // 036236 SSRAM[15519] = 36'o701200020000; // 036237 SSRAM[15520] = 36'o701140037116; // 036240 SSRAM[15521] = 36'o201000036241; // 036241 SSRAM[15522] = 36'o202000030051; // 036242 SSRAM[15523] = 36'o255740036244; // 036243 SSRAM[15524] = 36'o336000041765; // 036244 SSRAM[15525] = 36'o254000036250; // 036245 SSRAM[15526] = 36'o476000043725; // 036246 SSRAM[15527] = 36'o260740037016; // 036247 SSRAM[15528] = 36'o205000040000; // 036250 SSRAM[15529] = 36'o202000036265; // 036251 SSRAM[15530] = 36'o200000042007; // 036252 SSRAM[15531] = 36'o202000044434; // 036253 SSRAM[15532] = 36'o202000044435; // 036254 SSRAM[15533] = 36'o202000044436; // 036255 SSRAM[15534] = 36'o202000044437; // 036256 SSRAM[15535] = 36'o202000044432; // 036257 SSRAM[15536] = 36'o202000044433; // 036260 SSRAM[15537] = 36'o202000000430; // 036261 SSRAM[15538] = 36'o202000000431; // 036262 SSRAM[15539] = 36'o402000044424; // 036263 SSRAM[15540] = 36'o402000044425; // 036264 SSRAM[15541] = 36'o000000000000; // 036265 SSRAM[15542] = 36'o036540041772; // 036266 SSRAM[15543] = 36'o035000036237; // 036267 SSRAM[15544] = 36'o265040036271; // 036270 SSRAM[15545] = 36'o607040004000; // 036271 SSRAM[15546] = 36'o036540042015; // 036272 SSRAM[15547] = 36'o035000036237; // 036273 SSRAM[15548] = 36'o701200020000; // 036274 SSRAM[15549] = 36'o701140037116; // 036275 SSRAM[15550] = 36'o201000036276; // 036276 SSRAM[15551] = 36'o202000030051; // 036277 SSRAM[15552] = 36'o255740036301; // 036300 SSRAM[15553] = 36'o336000037173; // 036301 SSRAM[15554] = 36'o254000036305; // 036302 SSRAM[15555] = 36'o476000043725; // 036303 SSRAM[15556] = 36'o260740037016; // 036304 SSRAM[15557] = 36'o205000040000; // 036305 SSRAM[15558] = 36'o202000036322; // 036306 SSRAM[15559] = 36'o200000042020; // 036307 SSRAM[15560] = 36'o202000044434; // 036310 SSRAM[15561] = 36'o202000044435; // 036311 SSRAM[15562] = 36'o202000044436; // 036312 SSRAM[15563] = 36'o202000044437; // 036313 SSRAM[15564] = 36'o202000044432; // 036314 SSRAM[15565] = 36'o202000044433; // 036315 SSRAM[15566] = 36'o202000000430; // 036316 SSRAM[15567] = 36'o202000000431; // 036317 SSRAM[15568] = 36'o402000044424; // 036320 SSRAM[15569] = 36'o402000044425; // 036321 SSRAM[15570] = 36'o000000000000; // 036322 SSRAM[15571] = 36'o036540041772; // 036323 SSRAM[15572] = 36'o035000036274; // 036324 SSRAM[15573] = 36'o265040036326; // 036325 SSRAM[15574] = 36'o607040400000; // 036326 SSRAM[15575] = 36'o036540042030; // 036327 SSRAM[15576] = 36'o035000036274; // 036330 SSRAM[15577] = 36'o701200020000; // 036331 SSRAM[15578] = 36'o701140037116; // 036332 SSRAM[15579] = 36'o201000036333; // 036333 SSRAM[15580] = 36'o202000030051; // 036334 SSRAM[15581] = 36'o255740036336; // 036335 SSRAM[15582] = 36'o336000037173; // 036336 SSRAM[15583] = 36'o254000036342; // 036337 SSRAM[15584] = 36'o476000043725; // 036340 SSRAM[15585] = 36'o260740037016; // 036341 SSRAM[15586] = 36'o205000040000; // 036342 SSRAM[15587] = 36'o202000036357; // 036343 SSRAM[15588] = 36'o200000042033; // 036344 SSRAM[15589] = 36'o202000044434; // 036345 SSRAM[15590] = 36'o202000044435; // 036346 SSRAM[15591] = 36'o202000044436; // 036347 SSRAM[15592] = 36'o202000044437; // 036350 SSRAM[15593] = 36'o202000044432; // 036351 SSRAM[15594] = 36'o202000044433; // 036352 SSRAM[15595] = 36'o202000000430; // 036353 SSRAM[15596] = 36'o202000000431; // 036354 SSRAM[15597] = 36'o402000044424; // 036355 SSRAM[15598] = 36'o402000044425; // 036356 SSRAM[15599] = 36'o000000000000; // 036357 SSRAM[15600] = 36'o036540041772; // 036360 SSRAM[15601] = 36'o035000036331; // 036361 SSRAM[15602] = 36'o265040036363; // 036362 SSRAM[15603] = 36'o607040200000; // 036363 SSRAM[15604] = 36'o036540042041; // 036364 SSRAM[15605] = 36'o035000036331; // 036365 SSRAM[15606] = 36'o701200020000; // 036366 SSRAM[15607] = 36'o701140037116; // 036367 SSRAM[15608] = 36'o201000036370; // 036370 SSRAM[15609] = 36'o202000030051; // 036371 SSRAM[15610] = 36'o255740036373; // 036372 SSRAM[15611] = 36'o336000037173; // 036373 SSRAM[15612] = 36'o254000036377; // 036374 SSRAM[15613] = 36'o476000043725; // 036375 SSRAM[15614] = 36'o260740037016; // 036376 SSRAM[15615] = 36'o205000040000; // 036377 SSRAM[15616] = 36'o202000036414; // 036400 SSRAM[15617] = 36'o200000042044; // 036401 SSRAM[15618] = 36'o202000044434; // 036402 SSRAM[15619] = 36'o202000044435; // 036403 SSRAM[15620] = 36'o202000044436; // 036404 SSRAM[15621] = 36'o202000044437; // 036405 SSRAM[15622] = 36'o202000044432; // 036406 SSRAM[15623] = 36'o202000044433; // 036407 SSRAM[15624] = 36'o202000000430; // 036410 SSRAM[15625] = 36'o202000000431; // 036411 SSRAM[15626] = 36'o402000044424; // 036412 SSRAM[15627] = 36'o402000044425; // 036413 SSRAM[15628] = 36'o000000000000; // 036414 SSRAM[15629] = 36'o036540041772; // 036415 SSRAM[15630] = 36'o035000036366; // 036416 SSRAM[15631] = 36'o265040036420; // 036417 SSRAM[15632] = 36'o607040100000; // 036420 SSRAM[15633] = 36'o036540042052; // 036421 SSRAM[15634] = 36'o035000036366; // 036422 SSRAM[15635] = 36'o701200020000; // 036423 SSRAM[15636] = 36'o701140037116; // 036424 SSRAM[15637] = 36'o201000036425; // 036425 SSRAM[15638] = 36'o202000030051; // 036426 SSRAM[15639] = 36'o255740036430; // 036427 SSRAM[15640] = 36'o336000037173; // 036430 SSRAM[15641] = 36'o254000036434; // 036431 SSRAM[15642] = 36'o476000043725; // 036432 SSRAM[15643] = 36'o260740037016; // 036433 SSRAM[15644] = 36'o205000040000; // 036434 SSRAM[15645] = 36'o202000036451; // 036435 SSRAM[15646] = 36'o200000042055; // 036436 SSRAM[15647] = 36'o202000044434; // 036437 SSRAM[15648] = 36'o202000044435; // 036440 SSRAM[15649] = 36'o202000044436; // 036441 SSRAM[15650] = 36'o202000044437; // 036442 SSRAM[15651] = 36'o202000044432; // 036443 SSRAM[15652] = 36'o202000044433; // 036444 SSRAM[15653] = 36'o202000000430; // 036445 SSRAM[15654] = 36'o202000000431; // 036446 SSRAM[15655] = 36'o402000044424; // 036447 SSRAM[15656] = 36'o402000044425; // 036450 SSRAM[15657] = 36'o000000000000; // 036451 SSRAM[15658] = 36'o036540041772; // 036452 SSRAM[15659] = 36'o035000036423; // 036453 SSRAM[15660] = 36'o265040036455; // 036454 SSRAM[15661] = 36'o607040040000; // 036455 SSRAM[15662] = 36'o036540042063; // 036456 SSRAM[15663] = 36'o035000036423; // 036457 SSRAM[15664] = 36'o701200020000; // 036460 SSRAM[15665] = 36'o701140037116; // 036461 SSRAM[15666] = 36'o201000036462; // 036462 SSRAM[15667] = 36'o202000030051; // 036463 SSRAM[15668] = 36'o255740036465; // 036464 SSRAM[15669] = 36'o336000037173; // 036465 SSRAM[15670] = 36'o254000036471; // 036466 SSRAM[15671] = 36'o476000043725; // 036467 SSRAM[15672] = 36'o260740037016; // 036470 SSRAM[15673] = 36'o205000040000; // 036471 SSRAM[15674] = 36'o202000036506; // 036472 SSRAM[15675] = 36'o200000042066; // 036473 SSRAM[15676] = 36'o202000044434; // 036474 SSRAM[15677] = 36'o202000044435; // 036475 SSRAM[15678] = 36'o202000044436; // 036476 SSRAM[15679] = 36'o202000044437; // 036477 SSRAM[15680] = 36'o202000044432; // 036500 SSRAM[15681] = 36'o202000044433; // 036501 SSRAM[15682] = 36'o202000000430; // 036502 SSRAM[15683] = 36'o202000000431; // 036503 SSRAM[15684] = 36'o402000044424; // 036504 SSRAM[15685] = 36'o402000044425; // 036505 SSRAM[15686] = 36'o000000000000; // 036506 SSRAM[15687] = 36'o036540041772; // 036507 SSRAM[15688] = 36'o035000036460; // 036510 SSRAM[15689] = 36'o265040036512; // 036511 SSRAM[15690] = 36'o607040020000; // 036512 SSRAM[15691] = 36'o036540042074; // 036513 SSRAM[15692] = 36'o035000036460; // 036514 SSRAM[15693] = 36'o701200020000; // 036515 SSRAM[15694] = 36'o701140037116; // 036516 SSRAM[15695] = 36'o201000036517; // 036517 SSRAM[15696] = 36'o202000030051; // 036520 SSRAM[15697] = 36'o255740036522; // 036521 SSRAM[15698] = 36'o336000037173; // 036522 SSRAM[15699] = 36'o254000036526; // 036523 SSRAM[15700] = 36'o476000043725; // 036524 SSRAM[15701] = 36'o260740037016; // 036525 SSRAM[15702] = 36'o205000040000; // 036526 SSRAM[15703] = 36'o202000036543; // 036527 SSRAM[15704] = 36'o200000042077; // 036530 SSRAM[15705] = 36'o202000044434; // 036531 SSRAM[15706] = 36'o202000044435; // 036532 SSRAM[15707] = 36'o202000044436; // 036533 SSRAM[15708] = 36'o202000044437; // 036534 SSRAM[15709] = 36'o202000044432; // 036535 SSRAM[15710] = 36'o202000044433; // 036536 SSRAM[15711] = 36'o202000000430; // 036537 SSRAM[15712] = 36'o202000000431; // 036540 SSRAM[15713] = 36'o402000044424; // 036541 SSRAM[15714] = 36'o402000044425; // 036542 SSRAM[15715] = 36'o000000000000; // 036543 SSRAM[15716] = 36'o036540041772; // 036544 SSRAM[15717] = 36'o035000036515; // 036545 SSRAM[15718] = 36'o265040036547; // 036546 SSRAM[15719] = 36'o607040000100; // 036547 SSRAM[15720] = 36'o036540042105; // 036550 SSRAM[15721] = 36'o035000036515; // 036551 SSRAM[15722] = 36'o701200020000; // 036552 SSRAM[15723] = 36'o701140037116; // 036553 SSRAM[15724] = 36'o201000036554; // 036554 SSRAM[15725] = 36'o202000030051; // 036555 SSRAM[15726] = 36'o255740036557; // 036556 SSRAM[15727] = 36'o336000037173; // 036557 SSRAM[15728] = 36'o254000036563; // 036560 SSRAM[15729] = 36'o476000043725; // 036561 SSRAM[15730] = 36'o260740037016; // 036562 SSRAM[15731] = 36'o205000040000; // 036563 SSRAM[15732] = 36'o202000036600; // 036564 SSRAM[15733] = 36'o200000042110; // 036565 SSRAM[15734] = 36'o202000044434; // 036566 SSRAM[15735] = 36'o202000044435; // 036567 SSRAM[15736] = 36'o202000044436; // 036570 SSRAM[15737] = 36'o202000044437; // 036571 SSRAM[15738] = 36'o202000044432; // 036572 SSRAM[15739] = 36'o202000044433; // 036573 SSRAM[15740] = 36'o202000000430; // 036574 SSRAM[15741] = 36'o202000000431; // 036575 SSRAM[15742] = 36'o402000044424; // 036576 SSRAM[15743] = 36'o402000044425; // 036577 SSRAM[15744] = 36'o000000000000; // 036600 SSRAM[15745] = 36'o036540041772; // 036601 SSRAM[15746] = 36'o035000036552; // 036602 SSRAM[15747] = 36'o265040036604; // 036603 SSRAM[15748] = 36'o607040000040; // 036604 SSRAM[15749] = 36'o036540042116; // 036605 SSRAM[15750] = 36'o035000036552; // 036606 SSRAM[15751] = 36'o701200020000; // 036607 SSRAM[15752] = 36'o701140037116; // 036610 SSRAM[15753] = 36'o201000036611; // 036611 SSRAM[15754] = 36'o202000030051; // 036612 SSRAM[15755] = 36'o255740036614; // 036613 SSRAM[15756] = 36'o336000037173; // 036614 SSRAM[15757] = 36'o254000036620; // 036615 SSRAM[15758] = 36'o476000043725; // 036616 SSRAM[15759] = 36'o260740037016; // 036617 SSRAM[15760] = 36'o205000040000; // 036620 SSRAM[15761] = 36'o202000036635; // 036621 SSRAM[15762] = 36'o200000042121; // 036622 SSRAM[15763] = 36'o202000044434; // 036623 SSRAM[15764] = 36'o202000044435; // 036624 SSRAM[15765] = 36'o202000044436; // 036625 SSRAM[15766] = 36'o202000044437; // 036626 SSRAM[15767] = 36'o202000044432; // 036627 SSRAM[15768] = 36'o202000044433; // 036630 SSRAM[15769] = 36'o202000000430; // 036631 SSRAM[15770] = 36'o202000000431; // 036632 SSRAM[15771] = 36'o402000044424; // 036633 SSRAM[15772] = 36'o402000044425; // 036634 SSRAM[15773] = 36'o000000000000; // 036635 SSRAM[15774] = 36'o036540041772; // 036636 SSRAM[15775] = 36'o035000036607; // 036637 SSRAM[15776] = 36'o265040036641; // 036640 SSRAM[15777] = 36'o607040760140; // 036641 SSRAM[15778] = 36'o036540042133; // 036642 SSRAM[15779] = 36'o035000036607; // 036643 SSRAM[15780] = 36'o201000036644; // 036644 SSRAM[15781] = 36'o202000030051; // 036645 SSRAM[15782] = 36'o476000043725; // 036646 SSRAM[15783] = 36'o260740037016; // 036647 SSRAM[15784] = 36'o402000000010; // 036650 SSRAM[15785] = 36'o200010036717; // 036651 SSRAM[15786] = 36'o202000036670; // 036652 SSRAM[15787] = 36'o260740037025; // 036653 SSRAM[15788] = 36'o201000036676; // 036654 SSRAM[15789] = 36'o202000044434; // 036655 SSRAM[15790] = 36'o201000036674; // 036656 SSRAM[15791] = 36'o202000044430; // 036657 SSRAM[15792] = 36'o202000044436; // 036660 SSRAM[15793] = 36'o202000044432; // 036661 SSRAM[15794] = 36'o202000044431; // 036662 SSRAM[15795] = 36'o202000044433; // 036663 SSRAM[15796] = 36'o202000044437; // 036664 SSRAM[15797] = 36'o202000044435; // 036665 SSRAM[15798] = 36'o402000044424; // 036666 SSRAM[15799] = 36'o403000044425; // 036667 SSRAM[15800] = 36'o000000000000; // 036670 SSRAM[15801] = 36'o036540042146; // 036671 SSRAM[15802] = 36'o035100036651; // 036672 SSRAM[15803] = 36'o254000036676; // 036673 SSRAM[15804] = 36'o036540042157; // 036674 SSRAM[15805] = 36'o035100036651; // 036675 SSRAM[15806] = 36'o200000044424; // 036676 SSRAM[15807] = 36'o312000036670; // 036677 SSRAM[15808] = 36'o036540042170; // 036700 SSRAM[15809] = 36'o035100036651; // 036701 SSRAM[15810] = 36'o550040044425; // 036702 SSRAM[15811] = 36'o302040036671; // 036703 SSRAM[15812] = 36'o036540042202; // 036704 SSRAM[15813] = 36'o035100036651; // 036705 SSRAM[15814] = 36'o350000000010; // 036706 SSRAM[15815] = 36'o302400000013; // 036707 SSRAM[15816] = 36'o254000036651; // 036710 SSRAM[15817] = 36'o254000036733; // 036711 SSRAM[15818] = 36'o037100042205; // 036712 SSRAM[15819] = 36'o200000036670; // 036713 SSRAM[15820] = 36'o037540000000; // 036714 SSRAM[15821] = 36'o037000030242; // 036715 SSRAM[15822] = 36'o263740000000; // 036716 SSRAM[15823] = 36'o700200000000; // 036717 SSRAM[15824] = 36'o700240000000; // 036720 SSRAM[15825] = 36'o700140000000; // 036721 SSRAM[15826] = 36'o700040000000; // 036722 SSRAM[15827] = 36'o700300000000; // 036723 SSRAM[15828] = 36'o700340000000; // 036724 SSRAM[15829] = 36'o700100000000; // 036725 SSRAM[15830] = 36'o700000000000; // 036726 SSRAM[15831] = 36'o254200000000; // 036727 SSRAM[15832] = 36'o254500000000; // 036730 SSRAM[15833] = 36'o254400000000; // 036731 SSRAM[15834] = 36'o254200000000; // 036732 SSRAM[15835] = 36'o201000036733; // 036733 SSRAM[15836] = 36'o202000030051; // 036734 SSRAM[15837] = 36'o201000540045; // 036735 SSRAM[15838] = 36'o504000000000; // 036736 SSRAM[15839] = 36'o205040777400; // 036737 SSRAM[15840] = 36'o202001044000; // 036740 SSRAM[15841] = 36'o253040036740; // 036741 SSRAM[15842] = 36'o200400042220; // 036742 SSRAM[15843] = 36'o200440042221; // 036743 SSRAM[15844] = 36'o200500042222; // 036744 SSRAM[15845] = 36'o200540042217; // 036745 SSRAM[15846] = 36'o200340042223; // 036746 SSRAM[15847] = 36'o201000036766; // 036747 SSRAM[15848] = 36'o202000044434; // 036750 SSRAM[15849] = 36'o201000036777; // 036751 SSRAM[15850] = 36'o202000044435; // 036752 SSRAM[15851] = 36'o202000044436; // 036753 SSRAM[15852] = 36'o202000044437; // 036754 SSRAM[15853] = 36'o402000044424; // 036755 SSRAM[15854] = 36'o402000044425; // 036756 SSRAM[15855] = 36'o200000042224; // 036757 SSRAM[15856] = 36'o202000044502; // 036760 SSRAM[15857] = 36'o701200020000; // 036761 SSRAM[15858] = 36'o701140042225; // 036762 SSRAM[15859] = 36'o254120036764; // 036763 SSRAM[15860] = 36'o010000000010; // 036764 SSRAM[15861] = 36'o254200036765; // 036765 SSRAM[15862] = 36'o200000044424; // 036766 SSRAM[15863] = 36'o312000042217; // 036767 SSRAM[15864] = 36'o036540042233; // 036770 SSRAM[15865] = 36'o035100036735; // 036771 SSRAM[15866] = 36'o200000044425; // 036772 SSRAM[15867] = 36'o312000042236; // 036773 SSRAM[15868] = 36'o036540042244; // 036774 SSRAM[15869] = 36'o035100036735; // 036775 SSRAM[15870] = 36'o254000037003; // 036776 SSRAM[15871] = 36'o200240044500; // 036777 SSRAM[15872] = 36'o200300044425; // 037000 SSRAM[15873] = 36'o036540042257; // 037001 SSRAM[15874] = 36'o035100036735; // 037002 SSRAM[15875] = 36'o254000037004; // 037003 SSRAM[15876] = 36'o254000030057; // 037004 SSRAM[15877] = 36'o000000000000; // 037005 SSRAM[15878] = 36'o202000043740; // 037006 SSRAM[15879] = 36'o200000042262; // 037007 SSRAM[15880] = 36'o251000000423; // 037010 SSRAM[15881] = 36'o200000043740; // 037011 SSRAM[15882] = 36'o254020037005; // 037012 SSRAM[15883] = 36'o201000000421; // 037013 SSRAM[15884] = 36'o201000000422; // 037014 SSRAM[15885] = 36'o201000000423; // 037015 SSRAM[15886] = 36'o205040777754; // 037016 SSRAM[15887] = 36'o200000042263; // 037017 SSRAM[15888] = 36'o332000043725; // 037020 SSRAM[15889] = 36'o200000042264; // 037021 SSRAM[15890] = 36'o270000040357; // 037022 SSRAM[15891] = 36'o202001044000; // 037023 SSRAM[15892] = 36'o253040037022; // 037024 SSRAM[15893] = 36'o265040037026; // 037025 SSRAM[15894] = 36'o603040010000; // 037026 SSRAM[15895] = 36'o263740000000; // 037027 SSRAM[15896] = 36'o701200020000; // 037030 SSRAM[15897] = 36'o701140042225; // 037031 SSRAM[15898] = 36'o254120037033; // 037032 SSRAM[15899] = 36'o010000037034; // 037033 SSRAM[15900] = 36'o254040037035; // 037034 SSRAM[15901] = 36'o265000037036; // 037035 SSRAM[15902] = 36'o607000010000; // 037036 SSRAM[15903] = 36'o036540042276; // 037037 SSRAM[15904] = 36'o035100037016; // 037040 SSRAM[15905] = 36'o263740000000; // 037041 SSRAM[15906] = 36'o424163450062; // 037042 SSRAM[15907] = 36'o454751636445; // 037043 SSRAM[15908] = 36'o620064456364; // 037044 SSRAM[15909] = 36'o770000000000; // 037045 SSRAM[15910] = 36'o454262770000; // 037046 SSRAM[15911] = 36'o415454000020; // 037047 SSRAM[15912] = 36'o076377000000; // 037050 SSRAM[15913] = 36'o037042037046; // 037051 SSRAM[15914] = 36'o000014000013; // 037052 SSRAM[15915] = 36'o037047000000; // 037053 SSRAM[15916] = 36'o565700425164; // 037054 SSRAM[15917] = 36'o630063456477; // 037055 SSRAM[15918] = 36'o037042037046; // 037056 SSRAM[15919] = 36'o000014000013; // 037057 SSRAM[15920] = 36'o037054000000; // 037060 SSRAM[15921] = 36'o646241600045; // 037061 SSRAM[15922] = 36'o564142544500; // 037062 SSRAM[15923] = 36'o425164770000; // 037063 SSRAM[15924] = 36'o037042037046; // 037064 SSRAM[15925] = 36'o000014000013; // 037065 SSRAM[15926] = 36'o037061000000; // 037066 SSRAM[15927] = 36'o465457416451; // 037067 SSRAM[15928] = 36'o564700217700; // 037070 SSRAM[15929] = 36'o037042037046; // 037071 SSRAM[15930] = 36'o000014000013; // 037072 SSRAM[15931] = 36'o037067000000; // 037073 SSRAM[15932] = 36'o415454002107; // 037074 SSRAM[15933] = 36'o637700000000; // 037075 SSRAM[15934] = 36'o037042037046; // 037076 SSRAM[15935] = 36'o000014000013; // 037077 SSRAM[15936] = 36'o037074000000; // 037100 SSRAM[15937] = 36'o465457416451; // 037101 SSRAM[15938] = 36'o564700207700; // 037102 SSRAM[15939] = 36'o037042037046; // 037103 SSRAM[15940] = 36'o000014000013; // 037104 SSRAM[15941] = 36'o037101000000; // 037105 SSRAM[15942] = 36'o500000400000; // 037106 SSRAM[15943] = 36'o654262770000; // 037107 SSRAM[15944] = 36'o415454002007; // 037110 SSRAM[15945] = 36'o637700000000; // 037111 SSRAM[15946] = 36'o037042037107; // 037112 SSRAM[15947] = 36'o000014000013; // 037113 SSRAM[15948] = 36'o037110000000; // 037114 SSRAM[15949] = 36'o100000403777; // 037115 SSRAM[15950] = 36'o100000400000; // 037116 SSRAM[15951] = 36'o037042037107; // 037117 SSRAM[15952] = 36'o000014000013; // 037120 SSRAM[15953] = 36'o037054000000; // 037121 SSRAM[15954] = 36'o100000400001; // 037122 SSRAM[15955] = 36'o037042037107; // 037123 SSRAM[15956] = 36'o000014000013; // 037124 SSRAM[15957] = 36'o037067000000; // 037125 SSRAM[15958] = 36'o100000400002; // 037126 SSRAM[15959] = 36'o100000400004; // 037127 SSRAM[15960] = 36'o100000400010; // 037130 SSRAM[15961] = 36'o100000400020; // 037131 SSRAM[15962] = 36'o100000400040; // 037132 SSRAM[15963] = 36'o100000400100; // 037133 SSRAM[15964] = 36'o100000400200; // 037134 SSRAM[15965] = 36'o100000400400; // 037135 SSRAM[15966] = 36'o100000401000; // 037136 SSRAM[15967] = 36'o100000402000; // 037137 SSRAM[15968] = 36'o037042037107; // 037140 SSRAM[15969] = 36'o000014000013; // 037141 SSRAM[15970] = 36'o037074000000; // 037142 SSRAM[15971] = 36'o100000403776; // 037143 SSRAM[15972] = 36'o037042037107; // 037144 SSRAM[15973] = 36'o000014000013; // 037145 SSRAM[15974] = 36'o037101000000; // 037146 SSRAM[15975] = 36'o100000403775; // 037147 SSRAM[15976] = 36'o100000403773; // 037150 SSRAM[15977] = 36'o100000403767; // 037151 SSRAM[15978] = 36'o100000403757; // 037152 SSRAM[15979] = 36'o100000403737; // 037153 SSRAM[15980] = 36'o100000403677; // 037154 SSRAM[15981] = 36'o100000403577; // 037155 SSRAM[15982] = 36'o100000403377; // 037156 SSRAM[15983] = 36'o100000402777; // 037157 SSRAM[15984] = 36'o100000401777; // 037160 SSRAM[15985] = 36'o606257434563; // 037161 SSRAM[15986] = 36'o635762006462; // 037162 SSRAM[15987] = 36'o416000644563; // 037163 SSRAM[15988] = 36'o647700000000; // 037164 SSRAM[15989] = 36'o264000031537; // 037165 SSRAM[15990] = 36'o646241600023; // 037166 SSRAM[15991] = 36'o004641515445; // 037167 SSRAM[15992] = 36'o447700000000; // 037170 SSRAM[15993] = 36'o464164415477; // 037171 SSRAM[15994] = 36'o037161037166; // 037172 SSRAM[15995] = 36'o000000000000; // 037173 SSRAM[15996] = 36'o037171000000; // 037174 SSRAM[15997] = 36'o000000031533; // 037175 SSRAM[15998] = 36'o646241600023; // 037176 SSRAM[15999] = 36'o006341664544; // 037177 SSRAM[16000] = 36'o006043770000; // 037200 SSRAM[16001] = 36'o037161037176; // 037201 SSRAM[16002] = 36'o000014000013; // 037202 SSRAM[16003] = 36'o037045000000; // 037203 SSRAM[16004] = 36'o264000031561; // 037204 SSRAM[16005] = 36'o646241600022; // 037205 SSRAM[16006] = 36'o004641515445; // 037206 SSRAM[16007] = 36'o447700000000; // 037207 SSRAM[16008] = 36'o037161037205; // 037210 SSRAM[16009] = 36'o000000000000; // 037211 SSRAM[16010] = 36'o037171000000; // 037212 SSRAM[16011] = 36'o000000031555; // 037213 SSRAM[16012] = 36'o646241600022; // 037214 SSRAM[16013] = 36'o006341664544; // 037215 SSRAM[16014] = 36'o006043770000; // 037216 SSRAM[16015] = 36'o037161037214; // 037217 SSRAM[16016] = 36'o000014000013; // 037220 SSRAM[16017] = 36'o037045000000; // 037221 SSRAM[16018] = 36'o264000031603; // 037222 SSRAM[16019] = 36'o646241600021; // 037223 SSRAM[16020] = 36'o004641515445; // 037224 SSRAM[16021] = 36'o447700000000; // 037225 SSRAM[16022] = 36'o037161037223; // 037226 SSRAM[16023] = 36'o000000000000; // 037227 SSRAM[16024] = 36'o037171000000; // 037230 SSRAM[16025] = 36'o000000031577; // 037231 SSRAM[16026] = 36'o646241600021; // 037232 SSRAM[16027] = 36'o006341664544; // 037233 SSRAM[16028] = 36'o006043770000; // 037234 SSRAM[16029] = 36'o037161037232; // 037235 SSRAM[16030] = 36'o000014000013; // 037236 SSRAM[16031] = 36'o037045000000; // 037237 SSRAM[16032] = 36'o777777032365; // 037240 SSRAM[16033] = 36'o606563507700; // 037241 SSRAM[16034] = 36'o606563500044; // 037242 SSRAM[16035] = 36'o514400565764; // 037243 SSRAM[16036] = 36'o006462416077; // 037244 SSRAM[16037] = 36'o037161037241; // 037245 SSRAM[16038] = 36'o000000000000; // 037246 SSRAM[16039] = 36'o037242000000; // 037247 SSRAM[16040] = 36'o000000032366; // 037250 SSRAM[16041] = 36'o445144005657; // 037251 SSRAM[16042] = 36'o640051564362; // 037252 SSRAM[16043] = 36'o455545566400; // 037253 SSRAM[16044] = 36'o605751566445; // 037254 SSRAM[16045] = 36'o627700000000; // 037255 SSRAM[16046] = 36'o037161037241; // 037256 SSRAM[16047] = 36'o037250000001; // 037257 SSRAM[16048] = 36'o037251000000; // 037260 SSRAM[16049] = 36'o445144005657; // 037261 SSRAM[16050] = 36'o640063645762; // 037262 SSRAM[16051] = 36'o450044416441; // 037263 SSRAM[16052] = 36'o770000000000; // 037264 SSRAM[16053] = 36'o037161037241; // 037265 SSRAM[16054] = 36'o032365000001; // 037266 SSRAM[16055] = 36'o037261000000; // 037267 SSRAM[16056] = 36'o606563505277; // 037270 SSRAM[16057] = 36'o445144005657; // 037271 SSRAM[16058] = 36'o640064624160; // 037272 SSRAM[16059] = 36'o005762004341; // 037273 SSRAM[16060] = 36'o544300454177; // 037274 SSRAM[16061] = 36'o037161037270; // 037275 SSRAM[16062] = 36'o000000000000; // 037276 SSRAM[16063] = 36'o037271000000; // 037277 SSRAM[16064] = 36'o445144005657; // 037300 SSRAM[16065] = 36'o640064624160; // 037301 SSRAM[16066] = 36'o770000000000; // 037302 SSRAM[16067] = 36'o037161037270; // 037303 SSRAM[16068] = 36'o000000000000; // 037304 SSRAM[16069] = 36'o037300000000; // 037305 SSRAM[16070] = 36'o037161037270; // 037306 SSRAM[16071] = 36'o037250000001; // 037307 SSRAM[16072] = 36'o037251000000; // 037310 SSRAM[16073] = 36'o445144005657; // 037311 SSRAM[16074] = 36'o640063416645; // 037312 SSRAM[16075] = 36'o006251475064; // 037313 SSRAM[16076] = 36'o006245640041; // 037314 SSRAM[16077] = 36'o444462770000; // 037315 SSRAM[16078] = 36'o037161037270; // 037316 SSRAM[16079] = 36'o000002000001; // 037317 SSRAM[16080] = 36'o037311000000; // 037320 SSRAM[16081] = 36'o605760770000; // 037321 SSRAM[16082] = 36'o037161037321; // 037322 SSRAM[16083] = 36'o000000000000; // 037323 SSRAM[16084] = 36'o037300000000; // 037324 SSRAM[16085] = 36'o445144005657; // 037325 SSRAM[16086] = 36'o640062456364; // 037326 SSRAM[16087] = 36'o576245004441; // 037327 SSRAM[16088] = 36'o644177000000; // 037330 SSRAM[16089] = 36'o037161037321; // 037331 SSRAM[16090] = 36'o032365000002; // 037332 SSRAM[16091] = 36'o037325000000; // 037333 SSRAM[16092] = 36'o445144005657; // 037334 SSRAM[16093] = 36'o640044454362; // 037335 SSRAM[16094] = 36'o455545566400; // 037336 SSRAM[16095] = 36'o605751566445; // 037337 SSRAM[16096] = 36'o627700000000; // 037340 SSRAM[16097] = 36'o037161037321; // 037341 SSRAM[16098] = 36'o037240000001; // 037342 SSRAM[16099] = 36'o037334000000; // 037343 SSRAM[16100] = 36'o605760527700; // 037344 SSRAM[16101] = 36'o445144005657; // 037345 SSRAM[16102] = 36'o640064624160; // 037346 SSRAM[16103] = 36'o005762004745; // 037347 SSRAM[16104] = 36'o640062456465; // 037350 SSRAM[16105] = 36'o625600414462; // 037351 SSRAM[16106] = 36'o770000000000; // 037352 SSRAM[16107] = 36'o037161037344; // 037353 SSRAM[16108] = 36'o000000000000; // 037354 SSRAM[16109] = 36'o037345000000; // 037355 SSRAM[16110] = 36'o037161037344; // 037356 SSRAM[16111] = 36'o000000000000; // 037357 SSRAM[16112] = 36'o037300000000; // 037360 SSRAM[16113] = 36'o037161037344; // 037361 SSRAM[16114] = 36'o037240000001; // 037362 SSRAM[16115] = 36'o037334000000; // 037363 SSRAM[16116] = 36'o377777777777; // 037364 SSRAM[16117] = 36'o416350005766; // 037365 SSRAM[16118] = 36'o456246545767; // 037366 SSRAM[16119] = 36'o770000000000; // 037367 SSRAM[16120] = 36'o037161037365; // 037370 SSRAM[16121] = 36'o000000000000; // 037371 SSRAM[16122] = 36'o037300000000; // 037372 SSRAM[16123] = 36'o377777777776; // 037373 SSRAM[16124] = 36'o414300676257; // 037374 SSRAM[16125] = 36'o564777000000; // 037375 SSRAM[16126] = 36'o037161037365; // 037376 SSRAM[16127] = 36'o037373000002; // 037377 SSRAM[16128] = 36'o037374000000; // 037400 SSRAM[16129] = 36'o416350430057; // 037401 SSRAM[16130] = 36'o664562465457; // 037402 SSRAM[16131] = 36'o677700000000; // 037403 SSRAM[16132] = 36'o037161037401; // 037404 SSRAM[16133] = 36'o000000000000; // 037405 SSRAM[16134] = 36'o037300000000; // 037406 SSRAM[16135] = 36'o037161037401; // 037407 SSRAM[16136] = 36'o037373000002; // 037410 SSRAM[16137] = 36'o037374000000; // 037411 SSRAM[16138] = 36'o400000000000; // 037412 SSRAM[16139] = 36'o556554005766; // 037413 SSRAM[16140] = 36'o456246545767; // 037414 SSRAM[16141] = 36'o770000000000; // 037415 SSRAM[16142] = 36'o037161037413; // 037416 SSRAM[16143] = 36'o000000000000; // 037417 SSRAM[16144] = 36'o037300000000; // 037420 SSRAM[16145] = 36'o414300555744; // 037421 SSRAM[16146] = 36'o514651454477; // 037422 SSRAM[16147] = 36'o037161037413; // 037423 SSRAM[16148] = 36'o037412000002; // 037424 SSRAM[16149] = 36'o037421000000; // 037425 SSRAM[16150] = 36'o515565540057; // 037426 SSRAM[16151] = 36'o664562465457; // 037427 SSRAM[16152] = 36'o677700000000; // 037430 SSRAM[16153] = 36'o037161037426; // 037431 SSRAM[16154] = 36'o000000000000; // 037432 SSRAM[16155] = 36'o037300000000; // 037433 SSRAM[16156] = 36'o037161037426; // 037434 SSRAM[16157] = 36'o037412000002; // 037435 SSRAM[16158] = 36'o037421000000; // 037436 SSRAM[16159] = 36'o017700000000; // 037437 SSRAM[16160] = 36'o414452426000; // 037440 SSRAM[16161] = 36'o576645624654; // 037441 SSRAM[16162] = 36'o576777000000; // 037442 SSRAM[16163] = 36'o037161037440; // 037443 SSRAM[16164] = 36'o000000000000; // 037444 SSRAM[16165] = 36'o037300000000; // 037445 SSRAM[16166] = 36'o400400000000; // 037446 SSRAM[16167] = 36'o466343005766; // 037447 SSRAM[16168] = 36'o456246545767; // 037450 SSRAM[16169] = 36'o770000000000; // 037451 SSRAM[16170] = 36'o037161037447; // 037452 SSRAM[16171] = 36'o000000000000; // 037453 SSRAM[16172] = 36'o037300000000; // 037454 SSRAM[16173] = 36'o244400000000; // 037455 SSRAM[16174] = 36'o465170005766; // 037456 SSRAM[16175] = 36'o456246545767; // 037457 SSRAM[16176] = 36'o770000000000; // 037460 SSRAM[16177] = 36'o037161037456; // 037461 SSRAM[16178] = 36'o000000000000; // 037462 SSRAM[16179] = 36'o037300000000; // 037463 SSRAM[16180] = 36'o037161037456; // 037464 SSRAM[16181] = 36'o037455000002; // 037465 SSRAM[16182] = 36'o037421000000; // 037466 SSRAM[16183] = 36'o465170620057; // 037467 SSRAM[16184] = 36'o664562465457; // 037470 SSRAM[16185] = 36'o677700000000; // 037471 SSRAM[16186] = 36'o037161037467; // 037472 SSRAM[16187] = 36'o000000000000; // 037473 SSRAM[16188] = 36'o037300000000; // 037474 SSRAM[16189] = 36'o037161037467; // 037475 SSRAM[16190] = 36'o037455000002; // 037476 SSRAM[16191] = 36'o037421000000; // 037477 SSRAM[16192] = 36'o377400000000; // 037500 SSRAM[16193] = 36'o464144005766; // 037501 SSRAM[16194] = 36'o456246545767; // 037502 SSRAM[16195] = 36'o770000000000; // 037503 SSRAM[16196] = 36'o037161037501; // 037504 SSRAM[16197] = 36'o000000000000; // 037505 SSRAM[16198] = 36'o037300000000; // 037506 SSRAM[16199] = 36'o444641440057; // 037507 SSRAM[16200] = 36'o664562465457; // 037510 SSRAM[16201] = 36'o677700000000; // 037511 SSRAM[16202] = 36'o037161037507; // 037512 SSRAM[16203] = 36'o000000000000; // 037513 SSRAM[16204] = 36'o037300000000; // 037514 SSRAM[16205] = 36'o466342005766; // 037515 SSRAM[16206] = 36'o456246545767; // 037516 SSRAM[16207] = 36'o770000000000; // 037517 SSRAM[16208] = 36'o037161037515; // 037520 SSRAM[16209] = 36'o000000000000; // 037521 SSRAM[16210] = 36'o037300000000; // 037522 SSRAM[16211] = 36'o444663420057; // 037523 SSRAM[16212] = 36'o664562465457; // 037524 SSRAM[16213] = 36'o677700000000; // 037525 SSRAM[16214] = 36'o037161037523; // 037526 SSRAM[16215] = 36'o000000000000; // 037527 SSRAM[16216] = 36'o037300000000; // 037530 SSRAM[16217] = 36'o465560005766; // 037531 SSRAM[16218] = 36'o456246545767; // 037532 SSRAM[16219] = 36'o770000000000; // 037533 SSRAM[16220] = 36'o037161037531; // 037534 SSRAM[16221] = 36'o000000000000; // 037535 SSRAM[16222] = 36'o037300000000; // 037536 SSRAM[16223] = 36'o444655600057; // 037537 SSRAM[16224] = 36'o664562465457; // 037540 SSRAM[16225] = 36'o677700000000; // 037541 SSRAM[16226] = 36'o037161037537; // 037542 SSRAM[16227] = 36'o000000000000; // 037543 SSRAM[16228] = 36'o037300000000; // 037544 SSRAM[16229] = 36'o445166005657; // 037545 SSRAM[16230] = 36'o004451665144; // 037546 SSRAM[16231] = 36'o457700000000; // 037547 SSRAM[16232] = 36'o037161037545; // 037550 SSRAM[16233] = 36'o000000000000; // 037551 SSRAM[16234] = 36'o037300000000; // 037552 SSRAM[16235] = 36'o037161037545; // 037553 SSRAM[16236] = 36'o037173000002; // 037554 SSRAM[16237] = 36'o037421000000; // 037555 SSRAM[16238] = 36'o414313210055; // 037556 SSRAM[16239] = 36'o574451465145; // 037557 SSRAM[16240] = 36'o447700000000; // 037560 SSRAM[16241] = 36'o037161037545; // 037561 SSRAM[16242] = 36'o037173000003; // 037562 SSRAM[16243] = 36'o037556000000; // 037563 SSRAM[16244] = 36'o514451660056; // 037564 SSRAM[16245] = 36'o570044516651; // 037565 SSRAM[16246] = 36'o444577000000; // 037566 SSRAM[16247] = 36'o037161037564; // 037567 SSRAM[16248] = 36'o000000000000; // 037570 SSRAM[16249] = 36'o037300000000; // 037571 SSRAM[16250] = 36'o037161037564; // 037572 SSRAM[16251] = 36'o037173000002; // 037573 SSRAM[16252] = 36'o037421000000; // 037574 SSRAM[16253] = 36'o037161037564; // 037575 SSRAM[16254] = 36'o037173000003; // 037576 SSRAM[16255] = 36'o037556000000; // 037577 SSRAM[16256] = 36'o464466005657; // 037600 SSRAM[16257] = 36'o004451665144; // 037601 SSRAM[16258] = 36'o457700000000; // 037602 SSRAM[16259] = 36'o037161037600; // 037603 SSRAM[16260] = 36'o000000000000; // 037604 SSRAM[16261] = 36'o037300000000; // 037605 SSRAM[16262] = 36'o037161037600; // 037606 SSRAM[16263] = 36'o037173000002; // 037607 SSRAM[16264] = 36'o037421000000; // 037610 SSRAM[16265] = 36'o037161037600; // 037611 SSRAM[16266] = 36'o037173000003; // 037612 SSRAM[16267] = 36'o037556000000; // 037613 SSRAM[16268] = 36'o464466620056; // 037614 SSRAM[16269] = 36'o570044516651; // 037615 SSRAM[16270] = 36'o444577000000; // 037616 SSRAM[16271] = 36'o037161037614; // 037617 SSRAM[16272] = 36'o000000000000; // 037620 SSRAM[16273] = 36'o037300000000; // 037621 SSRAM[16274] = 36'o037161037614; // 037622 SSRAM[16275] = 36'o037173000002; // 037623 SSRAM[16276] = 36'o037421000000; // 037624 SSRAM[16277] = 36'o037161037614; // 037625 SSRAM[16278] = 36'o037173000003; // 037626 SSRAM[16279] = 36'o037556000000; // 037627 SSRAM[16280] = 36'o444644660056; // 037630 SSRAM[16281] = 36'o570044516651; // 037631 SSRAM[16282] = 36'o444577000000; // 037632 SSRAM[16283] = 36'o037161037630; // 037633 SSRAM[16284] = 36'o000000000000; // 037634 SSRAM[16285] = 36'o037300000000; // 037635 SSRAM[16286] = 36'o037161037630; // 037636 SSRAM[16287] = 36'o037173000002; // 037637 SSRAM[16288] = 36'o037421000000; // 037640 SSRAM[16289] = 36'o037161037630; // 037641 SSRAM[16290] = 36'o037173000003; // 037642 SSRAM[16291] = 36'o037556000000; // 037643 SSRAM[16292] = 36'o424144006462; // 037644 SSRAM[16293] = 36'o416077000000; // 037645 SSRAM[16294] = 36'o037161037644; // 037646 SSRAM[16295] = 36'o032360000001; // 037647 SSRAM[16296] = 36'o037045000000; // 037650 SSRAM[16297] = 36'o554160005156; // 037651 SSRAM[16298] = 36'o636400644563; // 037652 SSRAM[16299] = 36'o647700000000; // 037653 SSRAM[16300] = 36'o161000000000; // 037654 SSRAM[16301] = 36'o554160004144; // 037655 SSRAM[16302] = 36'o620020770000; // 037656 SSRAM[16303] = 36'o037651037655; // 037657 SSRAM[16304] = 36'o000014000013; // 037660 SSRAM[16305] = 36'o037045000000; // 037661 SSRAM[16306] = 36'o161000337000; // 037662 SSRAM[16307] = 36'o554160004144; // 037663 SSRAM[16308] = 36'o620023232720; // 037664 SSRAM[16309] = 36'o202077000000; // 037665 SSRAM[16310] = 36'o037651037663; // 037666 SSRAM[16311] = 36'o000014000013; // 037667 SSRAM[16312] = 36'o037045000000; // 037670 SSRAM[16313] = 36'o000200000201; // 037671 SSRAM[16314] = 36'o001000400000; // 037672 SSRAM[16315] = 36'o554160004144; // 037673 SSRAM[16316] = 36'o620024202020; // 037674 SSRAM[16317] = 36'o202077000000; // 037675 SSRAM[16318] = 36'o604147450055; // 037676 SSRAM[16319] = 36'o416000435445; // 037677 SSRAM[16320] = 36'o416277000000; // 037700 SSRAM[16321] = 36'o037651037673; // 037701 SSRAM[16322] = 36'o000014000013; // 037702 SSRAM[16323] = 36'o037676000000; // 037703 SSRAM[16324] = 36'o001000777000; // 037704 SSRAM[16325] = 36'o554160004144; // 037705 SSRAM[16326] = 36'o620027272720; // 037706 SSRAM[16327] = 36'o202077000000; // 037707 SSRAM[16328] = 36'o037651037705; // 037710 SSRAM[16329] = 36'o000014000013; // 037711 SSRAM[16330] = 36'o037676000000; // 037712 SSRAM[16331] = 36'o415454004265; // 037713 SSRAM[16332] = 36'o640041434345; // 037714 SSRAM[16333] = 36'o636377000000; // 037715 SSRAM[16334] = 36'o037651037673; // 037716 SSRAM[16335] = 36'o000014000013; // 037717 SSRAM[16336] = 36'o037713000000; // 037720 SSRAM[16337] = 36'o037651037705; // 037721 SSRAM[16338] = 36'o000014000013; // 037722 SSRAM[16339] = 36'o037713000000; // 037723 SSRAM[16340] = 36'o604147450046; // 037724 SSRAM[16341] = 36'o415154006462; // 037725 SSRAM[16342] = 36'o416000644563; // 037726 SSRAM[16343] = 36'o647700000000; // 037727 SSRAM[16344] = 36'o646241600046; // 037730 SSRAM[16345] = 36'o415154454477; // 037731 SSRAM[16346] = 36'o624546006457; // 037732 SSRAM[16347] = 36'o002420202020; // 037733 SSRAM[16348] = 36'o207700000000; // 037734 SSRAM[16349] = 36'o037724037730; // 037735 SSRAM[16350] = 36'o000000000013; // 037736 SSRAM[16351] = 36'o037732000000; // 037737 SSRAM[16352] = 36'o604147450046; // 037740 SSRAM[16353] = 36'o415154006364; // 037741 SSRAM[16354] = 36'o576245440051; // 037742 SSRAM[16355] = 36'o560041437700; // 037743 SSRAM[16356] = 36'o037724037740; // 037744 SSRAM[16357] = 36'o000014000013; // 037745 SSRAM[16358] = 36'o037732000000; // 037746 SSRAM[16359] = 36'o604147450046; // 037747 SSRAM[16360] = 36'o415154006364; // 037750 SSRAM[16361] = 36'o576245440051; // 037751 SSRAM[16362] = 36'o560020770000; // 037752 SSRAM[16363] = 36'o037724037747; // 037753 SSRAM[16364] = 36'o000014000013; // 037754 SSRAM[16365] = 36'o037732000000; // 037755 SSRAM[16366] = 36'o604147450046; // 037756 SSRAM[16367] = 36'o415154006757; // 037757 SSRAM[16368] = 36'o624400676257; // 037760 SSRAM[16369] = 36'o564777000000; // 037761 SSRAM[16370] = 36'o037724037756; // 037762 SSRAM[16371] = 36'o000014000013; // 037763 SSRAM[16372] = 36'o037732000000; // 037764 SSRAM[16373] = 36'o565756157015; // 037765 SSRAM[16374] = 36'o554555770000; // 037766 SSRAM[16375] = 36'o037724037765; // 037767 SSRAM[16376] = 36'o000014000013; // 037770 SSRAM[16377] = 36'o037732000000; // 037771 SSRAM[16378] = 36'o624546006457; // 037772 SSRAM[16379] = 36'o002727272727; // 037773 SSRAM[16380] = 36'o277700000000; // 037774 SSRAM[16381] = 36'o037724037730; // 037775 SSRAM[16382] = 36'o000000000013; // 037776 SSRAM[16383] = 36'o037772000000; // 037777 SSRAM[16384] = 36'o037724037740; // 040000 SSRAM[16385] = 36'o000014000013; // 040001 SSRAM[16386] = 36'o037772000000; // 040002 SSRAM[16387] = 36'o037724037747; // 040003 SSRAM[16388] = 36'o000014000013; // 040004 SSRAM[16389] = 36'o037772000000; // 040005 SSRAM[16390] = 36'o001000777777; // 040006 SSRAM[16391] = 36'o037724037756; // 040007 SSRAM[16392] = 36'o000014000013; // 040010 SSRAM[16393] = 36'o037772000000; // 040011 SSRAM[16394] = 36'o037724037765; // 040012 SSRAM[16395] = 36'o000014000013; // 040013 SSRAM[16396] = 36'o037772000000; // 040014 SSRAM[16397] = 36'o457045431560; // 040015 SSRAM[16398] = 36'o456215606257; // 040016 SSRAM[16399] = 36'o434563630055; // 040017 SSRAM[16400] = 36'o416000644563; // 040020 SSRAM[16401] = 36'o647700000000; // 040021 SSRAM[16402] = 36'o001000340000; // 040022 SSRAM[16403] = 36'o554160004144; // 040023 SSRAM[16404] = 36'o620023242020; // 040024 SSRAM[16405] = 36'o202077000000; // 040025 SSRAM[16406] = 36'o040015040023; // 040026 SSRAM[16407] = 36'o000014000013; // 040027 SSRAM[16408] = 36'o037676000000; // 040030 SSRAM[16409] = 36'o001000377000; // 040031 SSRAM[16410] = 36'o554160004144; // 040032 SSRAM[16411] = 36'o620023272720; // 040033 SSRAM[16412] = 36'o202077000000; // 040034 SSRAM[16413] = 36'o040015040032; // 040035 SSRAM[16414] = 36'o000014000013; // 040036 SSRAM[16415] = 36'o037676000000; // 040037 SSRAM[16416] = 36'o040015040023; // 040040 SSRAM[16417] = 36'o000014000013; // 040041 SSRAM[16418] = 36'o037713000000; // 040042 SSRAM[16419] = 36'o040015040032; // 040043 SSRAM[16420] = 36'o000014000013; // 040044 SSRAM[16421] = 36'o037713000000; // 040045 SSRAM[16422] = 36'o554160006245; // 040046 SSRAM[16423] = 36'o414457656400; // 040047 SSRAM[16424] = 36'o464151546562; // 040050 SSRAM[16425] = 36'o457700000000; // 040051 SSRAM[16426] = 36'o040015040046; // 040052 SSRAM[16427] = 36'o000014000013; // 040053 SSRAM[16428] = 36'o040032000000; // 040054 SSRAM[16429] = 36'o161003777000; // 040055 SSRAM[16430] = 36'o040015040046; // 040056 SSRAM[16431] = 36'o000014000013; // 040057 SSRAM[16432] = 36'o040023000000; // 040060 SSRAM[16433] = 36'o465457416451; // 040061 SSRAM[16434] = 36'o564700425164; // 040062 SSRAM[16435] = 36'o006445636477; // 040063 SSRAM[16436] = 36'o040061040046; // 040064 SSRAM[16437] = 36'o000014000013; // 040065 SSRAM[16438] = 36'o037045032707; // 040066 SSRAM[16439] = 36'o624546006457; // 040067 SSRAM[16440] = 36'o007700000000; // 040070 SSRAM[16441] = 36'o646241600064; // 040071 SSRAM[16442] = 36'o456364770000; // 040072 SSRAM[16443] = 36'o624546006457; // 040073 SSRAM[16444] = 36'o001043576262; // 040074 SSRAM[16445] = 36'o454364117700; // 040075 SSRAM[16446] = 36'o040071037730; // 040076 SSRAM[16447] = 36'o000014000013; // 040077 SSRAM[16448] = 36'o040073000000; // 040100 SSRAM[16449] = 36'o040071037740; // 040101 SSRAM[16450] = 36'o000014000013; // 040102 SSRAM[16451] = 36'o037045000000; // 040103 SSRAM[16452] = 36'o040071037747; // 040104 SSRAM[16453] = 36'o000014000013; // 040105 SSRAM[16454] = 36'o037045000000; // 040106 SSRAM[16455] = 36'o040071037756; // 040107 SSRAM[16456] = 36'o000014000013; // 040110 SSRAM[16457] = 36'o037045000000; // 040111 SSRAM[16458] = 36'o604147454400; // 040112 SSRAM[16459] = 36'o444164410062; // 040113 SSRAM[16460] = 36'o454144006445; // 040114 SSRAM[16461] = 36'o636477000000; // 040115 SSRAM[16462] = 36'o444164410045; // 040116 SSRAM[16463] = 36'o626257627700; // 040117 SSRAM[16464] = 36'o414462002420; // 040120 SSRAM[16465] = 36'o207070707700; // 040121 SSRAM[16466] = 36'o040112040116; // 040122 SSRAM[16467] = 36'o000014000013; // 040123 SSRAM[16468] = 36'o040120000000; // 040124 SSRAM[16469] = 36'o414462002727; // 040125 SSRAM[16470] = 36'o277070707700; // 040126 SSRAM[16471] = 36'o040112040116; // 040127 SSRAM[16472] = 36'o000014000013; // 040130 SSRAM[16473] = 36'o040125000000; // 040131 SSRAM[16474] = 36'o515643006041; // 040132 SSRAM[16475] = 36'o475156470041; // 040133 SSRAM[16476] = 36'o446207637700; // 040134 SSRAM[16477] = 36'o040112040116; // 040135 SSRAM[16478] = 36'o000014000013; // 040136 SSRAM[16479] = 36'o040132033115; // 040137 SSRAM[16480] = 36'o624566456263; // 040140 SSRAM[16481] = 36'o450062454144; // 040141 SSRAM[16482] = 36'o770000000000; // 040142 SSRAM[16483] = 36'o040112040116; // 040143 SSRAM[16484] = 36'o000014000013; // 040144 SSRAM[16485] = 36'o040140033115; // 040145 SSRAM[16486] = 36'o604147454400; // 040146 SSRAM[16487] = 36'o444164410067; // 040147 SSRAM[16488] = 36'o625164450064; // 040150 SSRAM[16489] = 36'o456364770000; // 040151 SSRAM[16490] = 36'o377000400777; // 040152 SSRAM[16491] = 36'o604147454400; // 040153 SSRAM[16492] = 36'o624562454144; // 040154 SSRAM[16493] = 36'o770000000000; // 040155 SSRAM[16494] = 36'o040146040153; // 040156 SSRAM[16495] = 36'o000014000013; // 040157 SSRAM[16496] = 36'o040120000000; // 040160 SSRAM[16497] = 36'o445162454364; // 040161 SSRAM[16498] = 36'o006245624541; // 040162 SSRAM[16499] = 36'o447700000000; // 040163 SSRAM[16500] = 36'o040146040161; // 040164 SSRAM[16501] = 36'o000014000013; // 040165 SSRAM[16502] = 36'o040120000000; // 040166 SSRAM[16503] = 36'o000777777000; // 040167 SSRAM[16504] = 36'o040146040153; // 040170 SSRAM[16505] = 36'o000014000013; // 040171 SSRAM[16506] = 36'o040125000000; // 040172 SSRAM[16507] = 36'o040146040161; // 040173 SSRAM[16508] = 36'o000014000013; // 040174 SSRAM[16509] = 36'o040125000000; // 040175 SSRAM[16510] = 36'o043742043743; // 040176 SSRAM[16511] = 36'o040146040116; // 040177 SSRAM[16512] = 36'o000014000013; // 040200 SSRAM[16513] = 36'o040153033337; // 040201 SSRAM[16514] = 36'o040146040116; // 040202 SSRAM[16515] = 36'o000014000013; // 040203 SSRAM[16516] = 36'o040161033337; // 040204 SSRAM[16517] = 36'o445162454364; // 040205 SSRAM[16518] = 36'o006245414477; // 040206 SSRAM[16519] = 36'o040146040116; // 040207 SSRAM[16520] = 36'o000014000013; // 040210 SSRAM[16521] = 36'o040205033344; // 040211 SSRAM[16522] = 36'o624566456263; // 040212 SSRAM[16523] = 36'o450060414745; // 040213 SSRAM[16524] = 36'o440062456245; // 040214 SSRAM[16525] = 36'o414477000000; // 040215 SSRAM[16526] = 36'o040146040116; // 040216 SSRAM[16527] = 36'o000014000013; // 040217 SSRAM[16528] = 36'o040212033337; // 040220 SSRAM[16529] = 36'o624566456263; // 040221 SSRAM[16530] = 36'o450044516245; // 040222 SSRAM[16531] = 36'o436400624562; // 040223 SSRAM[16532] = 36'o454144770000; // 040224 SSRAM[16533] = 36'o040146040116; // 040225 SSRAM[16534] = 36'o000014000013; // 040226 SSRAM[16535] = 36'o040221033351; // 040227 SSRAM[16536] = 36'o604147450046; // 040230 SSRAM[16537] = 36'o415154006757; // 040231 SSRAM[16538] = 36'o624400644563; // 040232 SSRAM[16539] = 36'o647700000000; // 040233 SSRAM[16540] = 36'o000000000201; // 040234 SSRAM[16541] = 36'o040230037730; // 040235 SSRAM[16542] = 36'o000014000013; // 040236 SSRAM[16543] = 36'o037171000000; // 040237 SSRAM[16544] = 36'o040230037740; // 040240 SSRAM[16545] = 36'o000014000013; // 040241 SSRAM[16546] = 36'o037045000000; // 040242 SSRAM[16547] = 36'o040230037747; // 040243 SSRAM[16548] = 36'o000014000013; // 040244 SSRAM[16549] = 36'o037045000000; // 040245 SSRAM[16550] = 36'o001000400170; // 040246 SSRAM[16551] = 36'o040230037756; // 040247 SSRAM[16552] = 36'o000014000013; // 040250 SSRAM[16553] = 36'o037045000000; // 040251 SSRAM[16554] = 36'o676251644500; // 040252 SSRAM[16555] = 36'o606257644543; // 040253 SSRAM[16556] = 36'o640064456364; // 040254 SSRAM[16557] = 36'o770000000000; // 040255 SSRAM[16558] = 36'o040252037730; // 040256 SSRAM[16559] = 36'o000014000013; // 040257 SSRAM[16560] = 36'o040120000000; // 040260 SSRAM[16561] = 36'o040252037740; // 040261 SSRAM[16562] = 36'o000014000013; // 040262 SSRAM[16563] = 36'o040120000000; // 040263 SSRAM[16564] = 36'o040252037747; // 040264 SSRAM[16565] = 36'o000014000013; // 040265 SSRAM[16566] = 36'o040120000000; // 040266 SSRAM[16567] = 36'o131000400170; // 040267 SSRAM[16568] = 36'o040252037756; // 040270 SSRAM[16569] = 36'o000014000013; // 040271 SSRAM[16570] = 36'o040120000000; // 040272 SSRAM[16571] = 36'o444164410067; // 040273 SSRAM[16572] = 36'o576244006762; // 040274 SSRAM[16573] = 36'o575647770000; // 040275 SSRAM[16574] = 36'o040252040273; // 040276 SSRAM[16575] = 36'o000014000013; // 040277 SSRAM[16576] = 36'o040120000000; // 040300 SSRAM[16577] = 36'o040252037730; // 040301 SSRAM[16578] = 36'o000014000013; // 040302 SSRAM[16579] = 36'o040125000000; // 040303 SSRAM[16580] = 36'o040252037740; // 040304 SSRAM[16581] = 36'o000014000013; // 040305 SSRAM[16582] = 36'o040125000000; // 040306 SSRAM[16583] = 36'o111000777171; // 040307 SSRAM[16584] = 36'o040252037756; // 040310 SSRAM[16585] = 36'o000014000013; // 040311 SSRAM[16586] = 36'o040125000000; // 040312 SSRAM[16587] = 36'o040252040273; // 040313 SSRAM[16588] = 36'o000014000013; // 040314 SSRAM[16589] = 36'o040125000000; // 040315 SSRAM[16590] = 36'o604147454400; // 040316 SSRAM[16591] = 36'o425464006445; // 040317 SSRAM[16592] = 36'o636477000000; // 040320 SSRAM[16593] = 36'o740076740076; // 040321 SSRAM[16594] = 36'o340000340001; // 040322 SSRAM[16595] = 36'o565764004154; // 040323 SSRAM[16596] = 36'o540072456257; // 040324 SSRAM[16597] = 36'o637700000000; // 040325 SSRAM[16598] = 36'o040316040323; // 040326 SSRAM[16599] = 36'o000014000013; // 040327 SSRAM[16600] = 36'o040073000000; // 040330 SSRAM[16601] = 36'o777777777777; // 040331 SSRAM[16602] = 36'o565764004154; // 040332 SSRAM[16603] = 36'o540057564563; // 040333 SSRAM[16604] = 36'o770000000000; // 040334 SSRAM[16605] = 36'o040316040332; // 040335 SSRAM[16606] = 36'o000014000013; // 040336 SSRAM[16607] = 36'o040073000000; // 040337 SSRAM[16608] = 36'o525252525252; // 040340 SSRAM[16609] = 36'o565764004154; // 040341 SSRAM[16610] = 36'o640042516463; // 040342 SSRAM[16611] = 36'o770000000000; // 040343 SSRAM[16612] = 36'o040316040341; // 040344 SSRAM[16613] = 36'o000014000013; // 040345 SSRAM[16614] = 36'o040073000000; // 040346 SSRAM[16615] = 36'o252525252525; // 040347 SSRAM[16616] = 36'o424163450062; // 040350 SSRAM[16617] = 36'o454751636445; // 040351 SSRAM[16618] = 36'o620062455457; // 040352 SSRAM[16619] = 36'o434164515756; // 040353 SSRAM[16620] = 36'o006445636477; // 040354 SSRAM[16621] = 36'o076200076201; // 040355 SSRAM[16622] = 36'o540000540001; // 040356 SSRAM[16623] = 36'o000002000002; // 040357 SSRAM[16624] = 36'o255000000000; // 040360 SSRAM[16625] = 36'o556565570046; // 040361 SSRAM[16626] = 36'o415154454477; // 040362 SSRAM[16627] = 36'o435762355565; // 040363 SSRAM[16628] = 36'o655714004143; // 040364 SSRAM[16629] = 36'o643555656557; // 040365 SSRAM[16630] = 36'o004144627700; // 040366 SSRAM[16631] = 36'o040350040361; // 040367 SSRAM[16632] = 36'o000014000013; // 040370 SSRAM[16633] = 36'o040363000000; // 040371 SSRAM[16634] = 36'o556565570063; // 040372 SSRAM[16635] = 36'o645762454400; // 040373 SSRAM[16636] = 36'o676257564777; // 040374 SSRAM[16637] = 36'o604147450020; // 040375 SSRAM[16638] = 36'o770000000000; // 040376 SSRAM[16639] = 36'o040350040372; // 040377 SSRAM[16640] = 36'o000014000013; // 040400 SSRAM[16641] = 36'o040375000000; // 040401 SSRAM[16642] = 36'o556565570060; // 040402 SSRAM[16643] = 36'o430063645762; // 040403 SSRAM[16644] = 36'o454400676257; // 040404 SSRAM[16645] = 36'o564777000000; // 040405 SSRAM[16646] = 36'o040350040402; // 040406 SSRAM[16647] = 36'o000014000013; // 040407 SSRAM[16648] = 36'o040375000000; // 040410 SSRAM[16649] = 36'o100000400076; // 040411 SSRAM[16650] = 36'o624554574341; // 040412 SSRAM[16651] = 36'o644544006041; // 040413 SSRAM[16652] = 36'o474577000000; // 040414 SSRAM[16653] = 36'o040350040372; // 040415 SSRAM[16654] = 36'o000014000013; // 040416 SSRAM[16655] = 36'o040412000000; // 040417 SSRAM[16656] = 36'o040350040402; // 040420 SSRAM[16657] = 36'o000014000013; // 040421 SSRAM[16658] = 36'o040412000000; // 040422 SSRAM[16659] = 36'o604147450046; // 040423 SSRAM[16660] = 36'o415154004641; // 040424 SSRAM[16661] = 36'o515445447700; // 040425 SSRAM[16662] = 36'o040350040423; // 040426 SSRAM[16663] = 36'o000014000013; // 040427 SSRAM[16664] = 36'o037772000000; // 040430 SSRAM[16665] = 36'o040350037740; // 040431 SSRAM[16666] = 36'o000014000013; // 040432 SSRAM[16667] = 36'o037772000000; // 040433 SSRAM[16668] = 36'o040350037756; // 040434 SSRAM[16669] = 36'o000014000013; // 040435 SSRAM[16670] = 36'o037772000000; // 040436 SSRAM[16671] = 36'o624554574341; // 040437 SSRAM[16672] = 36'o644544004570; // 040440 SSRAM[16673] = 36'o454315604562; // 040441 SSRAM[16674] = 36'o156062574345; // 040442 SSRAM[16675] = 36'o636300604147; // 040443 SSRAM[16676] = 36'o515647770000; // 040444 SSRAM[16677] = 36'o040437040116; // 040445 SSRAM[16678] = 36'o000014000013; // 040446 SSRAM[16679] = 36'o040153033337; // 040447 SSRAM[16680] = 36'o040437040116; // 040450 SSRAM[16681] = 36'o000014000013; // 040451 SSRAM[16682] = 36'o040161033344; // 040452 SSRAM[16683] = 36'o040437040116; // 040453 SSRAM[16684] = 36'o000014000013; // 040454 SSRAM[16685] = 36'o040205033344; // 040455 SSRAM[16686] = 36'o254040340001; // 040456 SSRAM[16687] = 36'o254120340002; // 040457 SSRAM[16688] = 36'o000600340003; // 040460 SSRAM[16689] = 36'o254000340003; // 040461 SSRAM[16690] = 36'o264000034113; // 040462 SSRAM[16691] = 36'o264000034105; // 040463 SSRAM[16692] = 36'o456060004144; // 040464 SSRAM[16693] = 36'o620064624160; // 040465 SSRAM[16694] = 36'o004562625762; // 040466 SSRAM[16695] = 36'o770000000000; // 040467 SSRAM[16696] = 36'o646241606045; // 040470 SSRAM[16697] = 36'o440065635156; // 040471 SSRAM[16698] = 36'o470065426277; // 040472 SSRAM[16699] = 36'o040437040464; // 040473 SSRAM[16700] = 36'o000000000000; // 040474 SSRAM[16701] = 36'o040470000000; // 040475 SSRAM[16702] = 36'o000000340003; // 040476 SSRAM[16703] = 36'o634166454400; // 040477 SSRAM[16704] = 36'o604300676257; // 040500 SSRAM[16705] = 36'o564777000000; // 040501 SSRAM[16706] = 36'o040437040464; // 040502 SSRAM[16707] = 36'o000014000013; // 040503 SSRAM[16708] = 36'o040477000000; // 040504 SSRAM[16709] = 36'o604147450046; // 040505 SSRAM[16710] = 36'o416554640046; // 040506 SSRAM[16711] = 36'o415154454477; // 040507 SSRAM[16712] = 36'o040437040505; // 040510 SSRAM[16713] = 36'o000014000013; // 040511 SSRAM[16714] = 36'o037171000000; // 040512 SSRAM[16715] = 36'o624554574341; // 040513 SSRAM[16716] = 36'o645157560046; // 040514 SSRAM[16717] = 36'o415154454477; // 040515 SSRAM[16718] = 36'o604147450046; // 040516 SSRAM[16719] = 36'o415154006462; // 040517 SSRAM[16720] = 36'o416060454400; // 040520 SSRAM[16721] = 36'o645700604147; // 040521 SSRAM[16722] = 36'o450020770000; // 040522 SSRAM[16723] = 36'o040437040513; // 040523 SSRAM[16724] = 36'o000014000013; // 040524 SSRAM[16725] = 36'o040516000000; // 040525 SSRAM[16726] = 36'o624554574341; // 040526 SSRAM[16727] = 36'o645157560063; // 040527 SSRAM[16728] = 36'o654343454544; // 040530 SSRAM[16729] = 36'o454477000000; // 040531 SSRAM[16730] = 36'o040437040526; // 040532 SSRAM[16731] = 36'o000014000013; // 040533 SSRAM[16732] = 36'o037756000000; // 040534 SSRAM[16733] = 36'o264000034203; // 040535 SSRAM[16734] = 36'o040437037166; // 040536 SSRAM[16735] = 36'o000000000000; // 040537 SSRAM[16736] = 36'o037171000000; // 040540 SSRAM[16737] = 36'o000000034200; // 040541 SSRAM[16738] = 36'o040437037176; // 040542 SSRAM[16739] = 36'o000014000013; // 040543 SSRAM[16740] = 36'o037045000000; // 040544 SSRAM[16741] = 36'o264000034222; // 040545 SSRAM[16742] = 36'o040437037205; // 040546 SSRAM[16743] = 36'o000000000000; // 040547 SSRAM[16744] = 36'o037171000000; // 040550 SSRAM[16745] = 36'o000000034217; // 040551 SSRAM[16746] = 36'o040437037214; // 040552 SSRAM[16747] = 36'o000014000013; // 040553 SSRAM[16748] = 36'o037045000000; // 040554 SSRAM[16749] = 36'o264000034241; // 040555 SSRAM[16750] = 36'o040437037223; // 040556 SSRAM[16751] = 36'o000000000000; // 040557 SSRAM[16752] = 36'o037171000000; // 040560 SSRAM[16753] = 36'o000000034236; // 040561 SSRAM[16754] = 36'o040437037232; // 040562 SSRAM[16755] = 36'o000014000013; // 040563 SSRAM[16756] = 36'o037045000000; // 040564 SSRAM[16757] = 36'o624554574341; // 040565 SSRAM[16758] = 36'o644544005156; // 040566 SSRAM[16759] = 36'o644562626560; // 040567 SSRAM[16760] = 36'o640064456364; // 040570 SSRAM[16761] = 36'o770000000000; // 040571 SSRAM[16762] = 36'o264000034406; // 040572 SSRAM[16763] = 36'o264000034376; // 040573 SSRAM[16764] = 36'o264000034366; // 040574 SSRAM[16765] = 36'o264000034356; // 040575 SSRAM[16766] = 36'o264000034346; // 040576 SSRAM[16767] = 36'o264000034336; // 040577 SSRAM[16768] = 36'o264000034326; // 040600 SSRAM[16769] = 36'o264000034310; // 040601 SSRAM[16770] = 36'o604147450020; // 040602 SSRAM[16771] = 36'o005156644562; // 040603 SSRAM[16772] = 36'o626560640045; // 040604 SSRAM[16773] = 36'o626257627700; // 040605 SSRAM[16774] = 36'o435762354160; // 040606 SSRAM[16775] = 36'o621400414364; // 040607 SSRAM[16776] = 36'o356051770000; // 040610 SSRAM[16777] = 36'o040565040602; // 040611 SSRAM[16778] = 36'o000014000013; // 040612 SSRAM[16779] = 36'o040606000000; // 040613 SSRAM[16780] = 36'o264000030104; // 040614 SSRAM[16781] = 36'o624554574341; // 040615 SSRAM[16782] = 36'o644544004560; // 040616 SSRAM[16783] = 36'o556000624546; // 040617 SSRAM[16784] = 36'o515454006041; // 040620 SSRAM[16785] = 36'o475156477700; // 040621 SSRAM[16786] = 36'o040615040116; // 040622 SSRAM[16787] = 36'o000014000013; // 040623 SSRAM[16788] = 36'o040153033337; // 040624 SSRAM[16789] = 36'o040615040116; // 040625 SSRAM[16790] = 36'o000014000013; // 040626 SSRAM[16791] = 36'o040161033344; // 040627 SSRAM[16792] = 36'o040615040116; // 040630 SSRAM[16793] = 36'o000014000013; // 040631 SSRAM[16794] = 36'o040205033344; // 040632 SSRAM[16795] = 36'o425464006041; // 040633 SSRAM[16796] = 36'o474500464151; // 040634 SSRAM[16797] = 36'o547700000000; // 040635 SSRAM[16798] = 36'o400775400776; // 040636 SSRAM[16799] = 36'o414364354254; // 040637 SSRAM[16800] = 36'o640041437700; // 040640 SSRAM[16801] = 36'o040633037730; // 040641 SSRAM[16802] = 36'o000014000013; // 040642 SSRAM[16803] = 36'o040637000000; // 040643 SSRAM[16804] = 36'o400777401000; // 040644 SSRAM[16805] = 36'o425464004143; // 040645 SSRAM[16806] = 36'o006762575647; // 040646 SSRAM[16807] = 36'o770000000000; // 040647 SSRAM[16808] = 36'o040633040645; // 040650 SSRAM[16809] = 36'o000014000013; // 040651 SSRAM[16810] = 36'o037045000000; // 040652 SSRAM[16811] = 36'o011000401000; // 040653 SSRAM[16812] = 36'o040633037756; // 040654 SSRAM[16813] = 36'o000014000013; // 040655 SSRAM[16814] = 36'o037045000000; // 040656 SSRAM[16815] = 36'o000000034547; // 040657 SSRAM[16816] = 36'o634166454400; // 040660 SSRAM[16817] = 36'o465441476314; // 040661 SSRAM[16818] = 36'o146043006762; // 040662 SSRAM[16819] = 36'o575647770000; // 040663 SSRAM[16820] = 36'o040633040660; // 040664 SSRAM[16821] = 36'o000014000013; // 040665 SSRAM[16822] = 36'o037045000000; // 040666 SSRAM[16823] = 36'o425464004441; // 040667 SSRAM[16824] = 36'o644100676257; // 040670 SSRAM[16825] = 36'o564777000000; // 040671 SSRAM[16826] = 36'o414462002420; // 040672 SSRAM[16827] = 36'o202727257700; // 040673 SSRAM[16828] = 36'o040633040667; // 040674 SSRAM[16829] = 36'o000014000013; // 040675 SSRAM[16830] = 36'o040672000000; // 040676 SSRAM[16831] = 36'o414462002420; // 040677 SSRAM[16832] = 36'o202727267700; // 040700 SSRAM[16833] = 36'o040633040667; // 040701 SSRAM[16834] = 36'o000014000013; // 040702 SSRAM[16835] = 36'o040677000000; // 040703 SSRAM[16836] = 36'o414462002420; // 040704 SSRAM[16837] = 36'o202727277700; // 040705 SSRAM[16838] = 36'o040633040667; // 040706 SSRAM[16839] = 36'o000014000013; // 040707 SSRAM[16840] = 36'o040704000000; // 040710 SSRAM[16841] = 36'o414462002420; // 040711 SSRAM[16842] = 36'o212020207700; // 040712 SSRAM[16843] = 36'o040633040667; // 040713 SSRAM[16844] = 36'o000014000013; // 040714 SSRAM[16845] = 36'o040711000000; // 040715 SSRAM[16846] = 36'o414462002420; // 040716 SSRAM[16847] = 36'o212020217700; // 040717 SSRAM[16848] = 36'o040633040667; // 040720 SSRAM[16849] = 36'o000014000013; // 040721 SSRAM[16850] = 36'o040716000000; // 040722 SSRAM[16851] = 36'o414462002420; // 040723 SSRAM[16852] = 36'o212020227700; // 040724 SSRAM[16853] = 36'o040633040667; // 040725 SSRAM[16854] = 36'o000014000013; // 040726 SSRAM[16855] = 36'o040723000000; // 040727 SSRAM[16856] = 36'o425464006745; // 040730 SSRAM[16857] = 36'o566400645757; // 040731 SSRAM[16858] = 36'o004641627700; // 040732 SSRAM[16859] = 36'o040633040730; // 040733 SSRAM[16860] = 36'o000014000013; // 040734 SSRAM[16861] = 36'o040723000000; // 040735 SSRAM[16862] = 36'o740075740076; // 040736 SSRAM[16863] = 36'o427164450060; // 040737 SSRAM[16864] = 36'o414745004641; // 040740 SSRAM[16865] = 36'o515477000000; // 040741 SSRAM[16867] = 36'o515444420064; // 040743 SSRAM[16868] = 36'o624160004641; // 040744 SSRAM[16869] = 36'o515445447700; // 040745 SSRAM[16870] = 36'o414364356057; // 040746 SSRAM[16871] = 36'o515664456214; // 040747 SSRAM[16872] = 36'o004357623542; // 040750 SSRAM[16873] = 36'o716445004143; // 040751 SSRAM[16874] = 36'o770000000000; // 040752 SSRAM[16875] = 36'o040737040743; // 040753 SSRAM[16876] = 36'o000014000013; // 040754 SSRAM[16877] = 36'o040746000000; // 040755 SSRAM[16878] = 36'o515444420043; // 040756 SSRAM[16879] = 36'o504156474544; // 040757 SSRAM[16880] = 36'o004271644500; // 040760 SSRAM[16881] = 36'o414377000000; // 040761 SSRAM[16882] = 36'o040737040756; // 040762 SSRAM[16883] = 36'o000014000013; // 040763 SSRAM[16884] = 36'o040746000000; // 040764 SSRAM[16886] = 36'o515444420060; // 040766 SSRAM[16887] = 36'o575156644562; // 040767 SSRAM[16888] = 36'o006762575647; // 040770 SSRAM[16889] = 36'o770000000000; // 040771 SSRAM[16890] = 36'o040737040766; // 040772 SSRAM[16891] = 36'o000014000013; // 040773 SSRAM[16892] = 36'o037045000000; // 040774 SSRAM[16893] = 36'o515444420055; // 040775 SSRAM[16894] = 36'o574451465145; // 040776 SSRAM[16895] = 36'o440042716445; // 040777 SSRAM[16896] = 36'o006357656243; // 041000 SSRAM[16897] = 36'o457700000000; // 041001 SSRAM[16898] = 36'o414462002420; // 041002 SSRAM[16899] = 36'o202020207700; // 041003 SSRAM[16900] = 36'o040737040775; // 041004 SSRAM[16901] = 36'o000014000013; // 041005 SSRAM[16902] = 36'o041002000000; // 041006 SSRAM[16903] = 36'o040737037756; // 041007 SSRAM[16904] = 36'o000014000013; // 041010 SSRAM[16905] = 36'o037045000000; // 041011 SSRAM[16906] = 36'o020000034706; // 041012 SSRAM[16907] = 36'o040737040660; // 041013 SSRAM[16908] = 36'o000014000013; // 041014 SSRAM[16909] = 36'o037045000000; // 041015 SSRAM[16910] = 36'o514460420064; // 041016 SSRAM[16911] = 36'o624160004641; // 041017 SSRAM[16912] = 36'o515445447700; // 041020 SSRAM[16913] = 36'o040737041016; // 041021 SSRAM[16914] = 36'o000014000013; // 041022 SSRAM[16915] = 36'o040746000000; // 041023 SSRAM[16916] = 36'o514460420043; // 041024 SSRAM[16917] = 36'o504156474544; // 041025 SSRAM[16918] = 36'o004271644500; // 041026 SSRAM[16919] = 36'o414377000000; // 041027 SSRAM[16920] = 36'o040737041024; // 041030 SSRAM[16921] = 36'o000014000013; // 041031 SSRAM[16922] = 36'o040746000000; // 041032 SSRAM[16923] = 36'o514460420060; // 041033 SSRAM[16924] = 36'o575156644562; // 041034 SSRAM[16925] = 36'o006762575647; // 041035 SSRAM[16926] = 36'o770000000000; // 041036 SSRAM[16927] = 36'o040737041033; // 041037 SSRAM[16928] = 36'o000014000013; // 041040 SSRAM[16929] = 36'o037045000000; // 041041 SSRAM[16930] = 36'o514460420055; // 041042 SSRAM[16931] = 36'o574451465145; // 041043 SSRAM[16932] = 36'o440042716445; // 041044 SSRAM[16933] = 36'o004445636451; // 041045 SSRAM[16934] = 36'o564164515756; // 041046 SSRAM[16935] = 36'o770000000000; // 041047 SSRAM[16936] = 36'o040737041042; // 041050 SSRAM[16937] = 36'o000014000013; // 041051 SSRAM[16938] = 36'o041002000000; // 041052 SSRAM[16939] = 36'o020000034743; // 041053 SSRAM[16941] = 36'o605751566445; // 041055 SSRAM[16942] = 36'o620046456443; // 041056 SSRAM[16943] = 36'o500064624160; // 041057 SSRAM[16944] = 36'o004641515445; // 041060 SSRAM[16945] = 36'o447700000000; // 041061 SSRAM[16946] = 36'o040737041055; // 041062 SSRAM[16947] = 36'o000014000013; // 041063 SSRAM[16948] = 36'o041002000000; // 041064 SSRAM[16949] = 36'o605751566445; // 041065 SSRAM[16950] = 36'o620046456443; // 041066 SSRAM[16951] = 36'o500055574451; // 041067 SSRAM[16952] = 36'o465145440042; // 041070 SSRAM[16953] = 36'o716445004143; // 041071 SSRAM[16954] = 36'o770000000000; // 041072 SSRAM[16955] = 36'o040737041065; // 041073 SSRAM[16956] = 36'o000014000013; // 041074 SSRAM[16957] = 36'o037045000000; // 041075 SSRAM[16958] = 36'o414300074143; // 041076 SSRAM[16959] = 36'o640700555744; // 041077 SSRAM[16960] = 36'o514651454477; // 041100 SSRAM[16961] = 36'o040737041076; // 041101 SSRAM[16962] = 36'o000014000013; // 041102 SSRAM[16963] = 36'o037045000000; // 041103 SSRAM[16964] = 36'o605751566445; // 041104 SSRAM[16965] = 36'o620067625756; // 041105 SSRAM[16966] = 36'o477700000000; // 041106 SSRAM[16967] = 36'o040737041104; // 041107 SSRAM[16968] = 36'o000014000013; // 041110 SSRAM[16969] = 36'o041002000000; // 041111 SSRAM[16970] = 36'o011000400000; // 041112 SSRAM[16971] = 36'o000000035002; // 041113 SSRAM[16972] = 36'o445765425445; // 041114 SSRAM[16973] = 36'o005557664500; // 041115 SSRAM[16974] = 36'o604147450046; // 041116 SSRAM[16975] = 36'o415154770000; // 041117 SSRAM[16976] = 36'o041114037730; // 041120 SSRAM[16977] = 36'o000014000013; // 041121 SSRAM[16978] = 36'o041002000000; // 041122 SSRAM[16979] = 36'o445557664500; // 041123 SSRAM[16980] = 36'o555744514651; // 041124 SSRAM[16981] = 36'o454400414377; // 041125 SSRAM[16982] = 36'o464564435000; // 041126 SSRAM[16983] = 36'o466257550024; // 041127 SSRAM[16984] = 36'o202020202077; // 041130 SSRAM[16985] = 36'o041114041123; // 041131 SSRAM[16986] = 36'o000014000013; // 041132 SSRAM[16987] = 36'o041126000000; // 041133 SSRAM[16988] = 36'o445557664500; // 041134 SSRAM[16989] = 36'o555744514651; // 041135 SSRAM[16990] = 36'o454400414321; // 041136 SSRAM[16991] = 36'o770000000000; // 041137 SSRAM[16992] = 36'o464564435000; // 041140 SSRAM[16993] = 36'o466257550024; // 041141 SSRAM[16994] = 36'o202020202177; // 041142 SSRAM[16995] = 36'o041114041134; // 041143 SSRAM[16996] = 36'o000014000013; // 041144 SSRAM[16997] = 36'o041140000000; // 041145 SSRAM[16998] = 36'o041114037756; // 041146 SSRAM[16999] = 36'o000014000013; // 041147 SSRAM[17000] = 36'o037045000000; // 041150 SSRAM[17001] = 36'o000000035051; // 041151 SSRAM[17002] = 36'o041114040660; // 041152 SSRAM[17003] = 36'o000014000013; // 041153 SSRAM[17004] = 36'o037045000000; // 041154 SSRAM[17005] = 36'o041114037730; // 041155 SSRAM[17006] = 36'o000014000013; // 041156 SSRAM[17007] = 36'o037045000000; // 041157 SSRAM[17008] = 36'o464564435000; // 041160 SSRAM[17009] = 36'o466257550024; // 041161 SSRAM[17010] = 36'o202027272777; // 041162 SSRAM[17011] = 36'o041114041123; // 041163 SSRAM[17012] = 36'o000014000013; // 041164 SSRAM[17013] = 36'o041160000000; // 041165 SSRAM[17014] = 36'o464564435000; // 041166 SSRAM[17015] = 36'o466257550024; // 041167 SSRAM[17016] = 36'o202120202077; // 041170 SSRAM[17017] = 36'o041114041134; // 041171 SSRAM[17018] = 36'o000014000013; // 041172 SSRAM[17019] = 36'o041166000000; // 041173 SSRAM[17020] = 36'o001000401000; // 041174 SSRAM[17021] = 36'o000000035111; // 041175 SSRAM[17022] = 36'o444254005557; // 041176 SSRAM[17023] = 36'o664500645700; // 041177 SSRAM[17024] = 36'o554555006041; // 041200 SSRAM[17025] = 36'o474500464151; // 041201 SSRAM[17026] = 36'o547700000000; // 041202 SSRAM[17027] = 36'o041176037730; // 041203 SSRAM[17028] = 36'o000014000013; // 041204 SSRAM[17029] = 36'o041002000000; // 041205 SSRAM[17030] = 36'o445557664555; // 041206 SSRAM[17031] = 36'o005557445146; // 041207 SSRAM[17032] = 36'o514544004143; // 041210 SSRAM[17033] = 36'o004445636451; // 041211 SSRAM[17034] = 36'o564164515756; // 041212 SSRAM[17035] = 36'o770000000000; // 041213 SSRAM[17036] = 36'o041176041206; // 041214 SSRAM[17037] = 36'o000014000013; // 041215 SSRAM[17038] = 36'o041002000000; // 041216 SSRAM[17039] = 36'o445557664555; // 041217 SSRAM[17040] = 36'o005557445146; // 041220 SSRAM[17041] = 36'o514544004143; // 041221 SSRAM[17042] = 36'o210044456364; // 041222 SSRAM[17043] = 36'o515641645157; // 041223 SSRAM[17044] = 36'o567700000000; // 041224 SSRAM[17045] = 36'o414462002420; // 041225 SSRAM[17046] = 36'o202020217700; // 041226 SSRAM[17047] = 36'o041176041217; // 041227 SSRAM[17048] = 36'o000014000013; // 041230 SSRAM[17049] = 36'o041225000000; // 041231 SSRAM[17050] = 36'o445557664555; // 041232 SSRAM[17051] = 36'o005557445146; // 041233 SSRAM[17052] = 36'o514544004143; // 041234 SSRAM[17053] = 36'o770000000000; // 041235 SSRAM[17054] = 36'o041176041232; // 041236 SSRAM[17055] = 36'o000014000013; // 041237 SSRAM[17056] = 36'o037045000000; // 041240 SSRAM[17057] = 36'o445557664555; // 041241 SSRAM[17058] = 36'o005557445146; // 041242 SSRAM[17059] = 36'o514544004143; // 041243 SSRAM[17060] = 36'o217700000000; // 041244 SSRAM[17061] = 36'o041176041241; // 041245 SSRAM[17062] = 36'o000014000013; // 041246 SSRAM[17063] = 36'o037045000000; // 041247 SSRAM[17064] = 36'o011000400001; // 041250 SSRAM[17065] = 36'o041176037756; // 041251 SSRAM[17066] = 36'o000014000013; // 041252 SSRAM[17067] = 36'o037045000000; // 041253 SSRAM[17068] = 36'o000000035157; // 041254 SSRAM[17069] = 36'o041176040660; // 041255 SSRAM[17070] = 36'o000014000013; // 041256 SSRAM[17071] = 36'o037045000000; // 041257 SSRAM[17072] = 36'o225644006757; // 041260 SSRAM[17073] = 36'o624400445557; // 041261 SSRAM[17074] = 36'o664555770000; // 041262 SSRAM[17075] = 36'o041176037730; // 041263 SSRAM[17076] = 36'o000014000013; // 041264 SSRAM[17077] = 36'o041260000000; // 041265 SSRAM[17078] = 36'o041176041206; // 041266 SSRAM[17079] = 36'o000014000013; // 041267 SSRAM[17080] = 36'o040704000000; // 041270 SSRAM[17081] = 36'o041176041217; // 041271 SSRAM[17082] = 36'o000014000013; // 041272 SSRAM[17083] = 36'o040711000000; // 041273 SSRAM[17084] = 36'o000000035225; // 041274 SSRAM[17085] = 36'o646241600051; // 041275 SSRAM[17086] = 36'o566364626543; // 041276 SSRAM[17087] = 36'o645157560060; // 041277 SSRAM[17088] = 36'o414745004641; // 041300 SSRAM[17089] = 36'o515477000000; // 041301 SSRAM[17090] = 36'o264000400326; // 041302 SSRAM[17091] = 36'o041275037730; // 041303 SSRAM[17092] = 36'o000000000000; // 041304 SSRAM[17093] = 36'o037171000000; // 041305 SSRAM[17094] = 36'o526263644600; // 041306 SSRAM[17095] = 36'o504160604556; // 041307 SSRAM[17096] = 36'o454477000000; // 041310 SSRAM[17097] = 36'o565700646241; // 041311 SSRAM[17098] = 36'o607700000000; // 041312 SSRAM[17099] = 36'o041275041306; // 041313 SSRAM[17100] = 36'o000000000000; // 041314 SSRAM[17101] = 36'o041311000000; // 041315 SSRAM[17102] = 36'o011000400326; // 041316 SSRAM[17103] = 36'o041275037756; // 041317 SSRAM[17104] = 36'o000014000013; // 041320 SSRAM[17105] = 36'o037045000000; // 041321 SSRAM[17106] = 36'o000600035277; // 041322 SSRAM[17107] = 36'o041275040660; // 041323 SSRAM[17108] = 36'o000014000013; // 041324 SSRAM[17109] = 36'o041116000000; // 041325 SSRAM[17110] = 36'o604147450046; // 041326 SSRAM[17111] = 36'o415154004357; // 041327 SSRAM[17112] = 36'o566451566545; // 041330 SSRAM[17113] = 36'o004641515445; // 041331 SSRAM[17114] = 36'o447700000000; // 041332 SSRAM[17115] = 36'o041275041326; // 041333 SSRAM[17116] = 36'o000000000000; // 041334 SSRAM[17117] = 36'o037171000000; // 041335 SSRAM[17118] = 36'o000000400332; // 041336 SSRAM[17119] = 36'o624554574341; // 041337 SSRAM[17120] = 36'o645157560051; // 041340 SSRAM[17121] = 36'o564357626245; // 041341 SSRAM[17122] = 36'o436477000000; // 041342 SSRAM[17123] = 36'o604600435756; // 041343 SSRAM[17124] = 36'o645156654577; // 041344 SSRAM[17125] = 36'o041275041337; // 041345 SSRAM[17126] = 36'o000014000013; // 041346 SSRAM[17127] = 36'o041343000000; // 041347 SSRAM[17128] = 36'o000000035277; // 041350 SSRAM[17129] = 36'o646241600063; // 041351 SSRAM[17130] = 36'o416645440060; // 041352 SSRAM[17131] = 36'o430067625756; // 041353 SSRAM[17132] = 36'o477700000000; // 041354 SSRAM[17133] = 36'o041275041351; // 041355 SSRAM[17134] = 36'o000014000013; // 041356 SSRAM[17135] = 36'o041343000000; // 041357 SSRAM[17136] = 36'o646241600060; // 041360 SSRAM[17137] = 36'o414745004641; // 041361 SSRAM[17138] = 36'o515477000000; // 041362 SSRAM[17139] = 36'o264000035402; // 041363 SSRAM[17140] = 36'o041360037730; // 041364 SSRAM[17141] = 36'o000000000000; // 041365 SSRAM[17142] = 36'o037171000000; // 041366 SSRAM[17143] = 36'o041360041306; // 041367 SSRAM[17144] = 36'o000000000000; // 041370 SSRAM[17145] = 36'o041311000000; // 041371 SSRAM[17146] = 36'o646241600023; // 041372 SSRAM[17147] = 36'o005041606045; // 041373 SSRAM[17148] = 36'o564544770000; // 041374 SSRAM[17149] = 36'o565700604147; // 041375 SSRAM[17150] = 36'o450046415154; // 041376 SSRAM[17151] = 36'o770000000000; // 041377 SSRAM[17152] = 36'o041360041372; // 041400 SSRAM[17153] = 36'o000000000000; // 041401 SSRAM[17154] = 36'o041375000000; // 041402 SSRAM[17155] = 36'o001000400373; // 041403 SSRAM[17156] = 36'o041360037756; // 041404 SSRAM[17157] = 36'o000014000013; // 041405 SSRAM[17158] = 36'o037045000000; // 041406 SSRAM[17159] = 36'o000600400373; // 041407 SSRAM[17160] = 36'o041360040660; // 041410 SSRAM[17161] = 36'o000014000013; // 041411 SSRAM[17162] = 36'o041116000000; // 041412 SSRAM[17163] = 36'o511757005156; // 041413 SSRAM[17164] = 36'o636400604147; // 041414 SSRAM[17165] = 36'o450046415154; // 041415 SSRAM[17166] = 36'o770000000000; // 041416 SSRAM[17167] = 36'o435756510064; // 041417 SSRAM[17168] = 36'o624160004641; // 041420 SSRAM[17169] = 36'o515445447700; // 041421 SSRAM[17170] = 36'o041413041417; // 041422 SSRAM[17171] = 36'o000000000000; // 041423 SSRAM[17172] = 36'o037171000000; // 041424 SSRAM[17173] = 36'o444164415177; // 041425 SSRAM[17174] = 36'o041413037756; // 041426 SSRAM[17175] = 36'o000014000013; // 041427 SSRAM[17176] = 36'o041425000000; // 041430 SSRAM[17177] = 36'o000000035442; // 041431 SSRAM[17178] = 36'o041413040660; // 041432 SSRAM[17179] = 36'o000014000013; // 041433 SSRAM[17180] = 36'o041425000000; // 041434 SSRAM[17181] = 36'o555756516457; // 041435 SSRAM[17182] = 36'o620065655700; // 041436 SSRAM[17183] = 36'o644563640015; // 041437 SSRAM[17184] = 36'o006462416060; // 041440 SSRAM[17185] = 36'o515647005156; // 041441 SSRAM[17186] = 36'o005345625641; // 041442 SSRAM[17187] = 36'o540055574445; // 041443 SSRAM[17188] = 36'o770000000000; // 041444 SSRAM[17189] = 36'o556565570044; // 041445 SSRAM[17190] = 36'o514400565764; // 041446 SSRAM[17191] = 36'o006462416000; // 041447 SSRAM[17192] = 36'o515600534562; // 041450 SSRAM[17193] = 36'o564154005557; // 041451 SSRAM[17194] = 36'o444577000000; // 041452 SSRAM[17195] = 36'o431043576262; // 041453 SSRAM[17196] = 36'o454364113555; // 041454 SSRAM[17197] = 36'o575651645762; // 041455 SSRAM[17198] = 36'o006565577700; // 041456 SSRAM[17199] = 36'o041435041445; // 041457 SSRAM[17200] = 36'o035557000000; // 041460 SSRAM[17201] = 36'o041453000000; // 041461 SSRAM[17202] = 36'o431043576262; // 041462 SSRAM[17203] = 36'o454364113555; // 041463 SSRAM[17204] = 36'o656557770000; // 041464 SSRAM[17205] = 36'o041435041445; // 041465 SSRAM[17206] = 36'o035602000000; // 041466 SSRAM[17207] = 36'o041462000000; // 041467 SSRAM[17208] = 36'o041435041445; // 041470 SSRAM[17209] = 36'o035625000000; // 041471 SSRAM[17210] = 36'o041462000000; // 041472 SSRAM[17211] = 36'o555756516457; // 041473 SSRAM[17212] = 36'o620065655700; // 041474 SSRAM[17213] = 36'o644563640015; // 041475 SSRAM[17214] = 36'o006565570063; // 041476 SSRAM[17215] = 36'o645762450051; // 041477 SSRAM[17216] = 36'o566457002422; // 041500 SSRAM[17217] = 36'o247700000000; // 041501 SSRAM[17218] = 36'o435756644556; // 041502 SSRAM[17219] = 36'o646300574600; // 041503 SSRAM[17220] = 36'o242224005163; // 041504 SSRAM[17221] = 36'o005657640045; // 041505 SSRAM[17222] = 36'o616541540064; // 041506 SSRAM[17223] = 36'o570045704543; // 041507 SSRAM[17224] = 36'o656445440065; // 041510 SSRAM[17225] = 36'o655777000000; // 041511 SSRAM[17226] = 36'o041473041502; // 041512 SSRAM[17227] = 36'o035650000424; // 041513 SSRAM[17228] = 36'o037045000000; // 041514 SSRAM[17229] = 36'o555756516457; // 041515 SSRAM[17230] = 36'o620065655700; // 041516 SSRAM[17231] = 36'o150063645762; // 041517 SSRAM[17232] = 36'o450043576262; // 041520 SSRAM[17233] = 36'o454364006043; // 041521 SSRAM[17234] = 36'o770000000000; // 041522 SSRAM[17235] = 36'o000000035675; // 041523 SSRAM[17236] = 36'o556565570044; // 041524 SSRAM[17237] = 36'o514400565764; // 041525 SSRAM[17238] = 36'o006364576245; // 041526 SSRAM[17239] = 36'o006450450043; // 041527 SSRAM[17240] = 36'o576262454364; // 041530 SSRAM[17241] = 36'o006043770000; // 041531 SSRAM[17242] = 36'o431024222511; // 041532 SSRAM[17243] = 36'o005041630060; // 041533 SSRAM[17244] = 36'o430063645762; // 041534 SSRAM[17245] = 36'o454477000000; // 041535 SSRAM[17246] = 36'o041515041524; // 041536 SSRAM[17247] = 36'o041523000001; // 041537 SSRAM[17248] = 36'o041532000000; // 041540 SSRAM[17249] = 36'o555756516457; // 041541 SSRAM[17250] = 36'o620065655700; // 041542 SSRAM[17251] = 36'o150063645762; // 041543 SSRAM[17252] = 36'o450045004357; // 041544 SSRAM[17253] = 36'o626245436454; // 041545 SSRAM[17254] = 36'o717700000000; // 041546 SSRAM[17255] = 36'o556565570044; // 041547 SSRAM[17256] = 36'o514400565764; // 041550 SSRAM[17257] = 36'o006364576245; // 041551 SSRAM[17258] = 36'o004500435762; // 041552 SSRAM[17259] = 36'o624543645471; // 041553 SSRAM[17260] = 36'o770000000000; // 041554 SSRAM[17261] = 36'o431024222411; // 041555 SSRAM[17262] = 36'o005041630045; // 041556 SSRAM[17263] = 36'o006641546545; // 041557 SSRAM[17264] = 36'o006364576245; // 041560 SSRAM[17265] = 36'o447700000000; // 041561 SSRAM[17266] = 36'o041541041547; // 041562 SSRAM[17267] = 36'o000007000001; // 041563 SSRAM[17268] = 36'o041555000000; // 041564 SSRAM[17269] = 36'o555756516457; // 041565 SSRAM[17270] = 36'o620065655700; // 041566 SSRAM[17271] = 36'o644563640015; // 041567 SSRAM[17272] = 36'o006462416060; // 041570 SSRAM[17273] = 36'o515647005156; // 041571 SSRAM[17274] = 36'o004357564345; // 041572 SSRAM[17275] = 36'o415445440055; // 041573 SSRAM[17276] = 36'o574445770000; // 041574 SSRAM[17277] = 36'o556565570044; // 041575 SSRAM[17278] = 36'o514400565764; // 041576 SSRAM[17279] = 36'o006462416000; // 041577 SSRAM[17280] = 36'o515600435756; // 041600 SSRAM[17281] = 36'o434541544544; // 041601 SSRAM[17282] = 36'o005557444577; // 041602 SSRAM[17283] = 36'o041565041575; // 041603 SSRAM[17284] = 36'o035753044424; // 041604 SSRAM[17285] = 36'o041453000000; // 041605 SSRAM[17286] = 36'o556565570064; // 041606 SSRAM[17287] = 36'o624160604544; // 041607 SSRAM[17288] = 36'o006457005156; // 041610 SSRAM[17289] = 36'o435762624543; // 041611 SSRAM[17290] = 36'o640064624160; // 041612 SSRAM[17291] = 36'o005457434164; // 041613 SSRAM[17292] = 36'o515756770000; // 041614 SSRAM[17293] = 36'o041565041606; // 041615 SSRAM[17294] = 36'o035753044424; // 041616 SSRAM[17295] = 36'o037045000000; // 041617 SSRAM[17296] = 36'o556565570044; // 041620 SSRAM[17297] = 36'o514400565764; // 041621 SSRAM[17298] = 36'o006462416077; // 041622 SSRAM[17299] = 36'o041473041620; // 041623 SSRAM[17300] = 36'o036007044424; // 041624 SSRAM[17301] = 36'o037045000000; // 041625 SSRAM[17302] = 36'o041473041502; // 041626 SSRAM[17303] = 36'o036007044424; // 041627 SSRAM[17304] = 36'o037045000000; // 041630 SSRAM[17305] = 36'o556565570064; // 041631 SSRAM[17306] = 36'o624160454400; // 041632 SSRAM[17307] = 36'o645700515643; // 041633 SSRAM[17308] = 36'o576262454364; // 041634 SSRAM[17309] = 36'o006462416000; // 041635 SSRAM[17310] = 36'o545743416451; // 041636 SSRAM[17311] = 36'o575677000000; // 041637 SSRAM[17312] = 36'o041473041631; // 041640 SSRAM[17313] = 36'o036007044424; // 041641 SSRAM[17314] = 36'o037045000000; // 041642 SSRAM[17315] = 36'o555756516457; // 041643 SSRAM[17316] = 36'o620065655700; // 041644 SSRAM[17317] = 36'o150063645762; // 041645 SSRAM[17318] = 36'o515647006450; // 041646 SSRAM[17319] = 36'o450043576262; // 041647 SSRAM[17320] = 36'o454364006043; // 041650 SSRAM[17321] = 36'o770000000000; // 041651 SSRAM[17322] = 36'o000000036046; // 041652 SSRAM[17323] = 36'o041643041524; // 041653 SSRAM[17324] = 36'o041652000001; // 041654 SSRAM[17325] = 36'o037045000000; // 041655 SSRAM[17326] = 36'o556565570044; // 041656 SSRAM[17327] = 36'o514400565764; // 041657 SSRAM[17328] = 36'o006462416000; // 041660 SSRAM[17329] = 36'o645700435762; // 041661 SSRAM[17330] = 36'o624543640064; // 041662 SSRAM[17331] = 36'o624160770000; // 041663 SSRAM[17332] = 36'o041643041656; // 041664 SSRAM[17333] = 36'o041652000001; // 041665 SSRAM[17334] = 36'o037045000000; // 041666 SSRAM[17335] = 36'o556565570063; // 041667 SSRAM[17336] = 36'o645762515647; // 041670 SSRAM[17337] = 36'o006450450043; // 041671 SSRAM[17338] = 36'o576262454364; // 041672 SSRAM[17339] = 36'o004500465145; // 041673 SSRAM[17340] = 36'o544477000000; // 041674 SSRAM[17341] = 36'o556565570044; // 041675 SSRAM[17342] = 36'o514400565764; // 041676 SSRAM[17343] = 36'o006462416000; // 041677 SSRAM[17344] = 36'o515600435756; // 041700 SSRAM[17345] = 36'o434541544544; // 041701 SSRAM[17346] = 36'o770000000000; // 041702 SSRAM[17347] = 36'o041667041675; // 041703 SSRAM[17348] = 36'o000007000001; // 041704 SSRAM[17349] = 36'o037045000000; // 041705 SSRAM[17350] = 36'o041667041547; // 041706 SSRAM[17351] = 36'o000007000001; // 041707 SSRAM[17352] = 36'o037045000000; // 041710 SSRAM[17353] = 36'o041667041656; // 041711 SSRAM[17354] = 36'o000007000001; // 041712 SSRAM[17355] = 36'o037045000000; // 041713 SSRAM[17356] = 36'o416257660064; // 041714 SSRAM[17357] = 36'o624160006445; // 041715 SSRAM[17358] = 36'o636477000000; // 041716 SSRAM[17359] = 36'o000000000421; // 041717 SSRAM[17360] = 36'o000200036126; // 041720 SSRAM[17361] = 36'o416257660044; // 041721 SSRAM[17362] = 36'o514400565764; // 041722 SSRAM[17363] = 36'o006462416000; // 041723 SSRAM[17364] = 36'o645700242221; // 041724 SSRAM[17365] = 36'o770000000000; // 041725 SSRAM[17366] = 36'o041714041721; // 041726 SSRAM[17367] = 36'o041717000000; // 041727 SSRAM[17368] = 36'o037045000000; // 041730 SSRAM[17369] = 36'o604454576600; // 041731 SSRAM[17370] = 36'o646241600064; // 041732 SSRAM[17371] = 36'o456364770000; // 041733 SSRAM[17372] = 36'o000000000422; // 041734 SSRAM[17373] = 36'o000400036142; // 041735 SSRAM[17374] = 36'o604457666460; // 041736 SSRAM[17375] = 36'o004451440056; // 041737 SSRAM[17376] = 36'o576400646241; // 041740 SSRAM[17377] = 36'o600064570024; // 041741 SSRAM[17378] = 36'o222277000000; // 041742 SSRAM[17379] = 36'o041731041736; // 041743 SSRAM[17380] = 36'o041734000000; // 041744 SSRAM[17381] = 36'o037045000000; // 041745 SSRAM[17382] = 36'o646241602300; // 041746 SSRAM[17383] = 36'o646241600064; // 041747 SSRAM[17384] = 36'o456364770000; // 041750 SSRAM[17385] = 36'o000000000423; // 041751 SSRAM[17386] = 36'o000600036156; // 041752 SSRAM[17387] = 36'o646241602300; // 041753 SSRAM[17388] = 36'o646241600044; // 041754 SSRAM[17389] = 36'o514400565764; // 041755 SSRAM[17390] = 36'o006462416000; // 041756 SSRAM[17391] = 36'o645700242223; // 041757 SSRAM[17392] = 36'o770000000000; // 041760 SSRAM[17393] = 36'o041746041753; // 041761 SSRAM[17394] = 36'o041751000000; // 041762 SSRAM[17395] = 36'o037045000000; // 041763 SSRAM[17396] = 36'o010000036212; // 041764 SSRAM[17397] = 36'o000000000001; // 041765 SSRAM[17398] = 36'o556565570044; // 041766 SSRAM[17399] = 36'o514400565764; // 041767 SSRAM[17400] = 36'o004341656345; // 041770 SSRAM[17401] = 36'o006462416077; // 041771 SSRAM[17402] = 36'o041746041766; // 041772 SSRAM[17403] = 36'o000000000000; // 041773 SSRAM[17404] = 36'o037045000000; // 041774 SSRAM[17405] = 36'o556565570044; // 041775 SSRAM[17406] = 36'o514400565764; // 041776 SSRAM[17407] = 36'o006245154556; // 041777 SSRAM[17408] = 36'o644562006563; // 042000 SSRAM[17409] = 36'o456215555744; // 042001 SSRAM[17410] = 36'o457700000000; // 042002 SSRAM[17411] = 36'o041746041775; // 042003 SSRAM[17412] = 36'o041764000001; // 042004 SSRAM[17413] = 36'o037045000000; // 042005 SSRAM[17414] = 36'o000000036233; // 042006 SSRAM[17415] = 36'o004000036270; // 042007 SSRAM[17416] = 36'o555565570044; // 042010 SSRAM[17417] = 36'o514400565764; // 042011 SSRAM[17418] = 36'o006345640045; // 042012 SSRAM[17419] = 36'o705157640046; // 042013 SSRAM[17420] = 36'o544147770000; // 042014 SSRAM[17421] = 36'o041746042010; // 042015 SSRAM[17422] = 36'o042007000001; // 042016 SSRAM[17423] = 36'o037045000000; // 042017 SSRAM[17424] = 36'o400000036325; // 042020 SSRAM[17425] = 36'o556565570044; // 042021 SSRAM[17426] = 36'o514400565764; // 042022 SSRAM[17427] = 36'o006345640041; // 042023 SSRAM[17428] = 36'o625164505545; // 042024 SSRAM[17429] = 36'o645143005766; // 042025 SSRAM[17430] = 36'o456246545767; // 042026 SSRAM[17431] = 36'o004654414777; // 042027 SSRAM[17432] = 36'o041746042021; // 042030 SSRAM[17433] = 36'o042020000001; // 042031 SSRAM[17434] = 36'o037045000000; // 042032 SSRAM[17435] = 36'o200000036362; // 042033 SSRAM[17436] = 36'o556565570044; // 042034 SSRAM[17437] = 36'o514400565764; // 042035 SSRAM[17438] = 36'o006345640043; // 042036 SSRAM[17439] = 36'o627120004654; // 042037 SSRAM[17440] = 36'o414777000000; // 042040 SSRAM[17441] = 36'o041746042034; // 042041 SSRAM[17442] = 36'o042033000001; // 042042 SSRAM[17443] = 36'o037045000000; // 042043 SSRAM[17444] = 36'o100000036417; // 042044 SSRAM[17445] = 36'o556565570044; // 042045 SSRAM[17446] = 36'o514400565764; // 042046 SSRAM[17447] = 36'o006345640043; // 042047 SSRAM[17448] = 36'o627121004654; // 042050 SSRAM[17449] = 36'o414777000000; // 042051 SSRAM[17450] = 36'o041746042045; // 042052 SSRAM[17451] = 36'o042044000001; // 042053 SSRAM[17452] = 36'o037045000000; // 042054 SSRAM[17453] = 36'o040000036454; // 042055 SSRAM[17454] = 36'o556565570044; // 042056 SSRAM[17455] = 36'o514400565764; // 042057 SSRAM[17456] = 36'o006345640046; // 042060 SSRAM[17457] = 36'o576600465441; // 042061 SSRAM[17458] = 36'o477700000000; // 042062 SSRAM[17459] = 36'o041746042056; // 042063 SSRAM[17460] = 36'o042055000001; // 042064 SSRAM[17461] = 36'o037045000000; // 042065 SSRAM[17462] = 36'o020000036511; // 042066 SSRAM[17463] = 36'o556565570044; // 042067 SSRAM[17464] = 36'o514400565764; // 042070 SSRAM[17465] = 36'o006345640042; // 042071 SSRAM[17466] = 36'o516300465441; // 042072 SSRAM[17467] = 36'o477700000000; // 042073 SSRAM[17468] = 36'o041746042067; // 042074 SSRAM[17469] = 36'o042066000001; // 042075 SSRAM[17470] = 36'o037045000000; // 042076 SSRAM[17471] = 36'o000100036546; // 042077 SSRAM[17472] = 36'o556565570044; // 042100 SSRAM[17473] = 36'o514400565764; // 042101 SSRAM[17474] = 36'o006345640046; // 042102 SSRAM[17475] = 36'o706500465441; // 042103 SSRAM[17476] = 36'o477700000000; // 042104 SSRAM[17477] = 36'o041746042100; // 042105 SSRAM[17478] = 36'o042077000001; // 042106 SSRAM[17479] = 36'o037045000000; // 042107 SSRAM[17480] = 36'o000040036603; // 042110 SSRAM[17481] = 36'o556565570044; // 042111 SSRAM[17482] = 36'o514400565764; // 042112 SSRAM[17483] = 36'o006345640044; // 042113 SSRAM[17484] = 36'o435300465441; // 042114 SSRAM[17485] = 36'o477700000000; // 042115 SSRAM[17486] = 36'o041746042111; // 042116 SSRAM[17487] = 36'o042110000001; // 042117 SSRAM[17488] = 36'o037045000000; // 042120 SSRAM[17489] = 36'o760140036640; // 042121 SSRAM[17490] = 36'o556565570044; // 042122 SSRAM[17491] = 36'o514400565764; // 042123 SSRAM[17492] = 36'o006345640043; // 042124 SSRAM[17493] = 36'o627120134362; // 042125 SSRAM[17494] = 36'o712113416257; // 042126 SSRAM[17495] = 36'o661346576613; // 042127 SSRAM[17496] = 36'o467065134443; // 042130 SSRAM[17497] = 36'o531342516300; // 042131 SSRAM[17498] = 36'o465441476377; // 042132 SSRAM[17499] = 36'o041746042122; // 042133 SSRAM[17500] = 36'o042121000001; // 042134 SSRAM[17501] = 36'o037045000000; // 042135 SSRAM[17502] = 36'o515764005565; // 042136 SSRAM[17503] = 36'o655776435756; // 042137 SSRAM[17504] = 36'o434541544544; // 042140 SSRAM[17505] = 36'o005557444577; // 042141 SSRAM[17506] = 36'o515764004451; // 042142 SSRAM[17507] = 36'o440056576400; // 042143 SSRAM[17508] = 36'o646241607700; // 042144 SSRAM[17509] = 36'o433551576477; // 042145 SSRAM[17510] = 36'o042136042142; // 042146 SSRAM[17511] = 36'o036670044424; // 042147 SSRAM[17512] = 36'o042145000000; // 042150 SSRAM[17513] = 36'o515764004451; // 042151 SSRAM[17514] = 36'o440056576400; // 042152 SSRAM[17515] = 36'o646241600064; // 042153 SSRAM[17516] = 36'o570060625760; // 042154 SSRAM[17517] = 36'o456200646241; // 042155 SSRAM[17518] = 36'o607700000000; // 042156 SSRAM[17519] = 36'o042136042151; // 042157 SSRAM[17520] = 36'o036670044424; // 042160 SSRAM[17521] = 36'o037045000000; // 042161 SSRAM[17522] = 36'o435756644556; // 042162 SSRAM[17523] = 36'o646300574600; // 042163 SSRAM[17524] = 36'o242224005657; // 042164 SSRAM[17525] = 36'o640045704543; // 042165 SSRAM[17526] = 36'o656445440051; // 042166 SSRAM[17527] = 36'o576477000000; // 042167 SSRAM[17528] = 36'o042136042162; // 042170 SSRAM[17529] = 36'o036670044424; // 042171 SSRAM[17530] = 36'o037045000000; // 042172 SSRAM[17531] = 36'o000000036671; // 042173 SSRAM[17532] = 36'o515764005565; // 042174 SSRAM[17533] = 36'o655700445144; // 042175 SSRAM[17534] = 36'o005657640063; // 042176 SSRAM[17535] = 36'o645762450043; // 042177 SSRAM[17536] = 36'o576262454364; // 042200 SSRAM[17537] = 36'o006043770000; // 042201 SSRAM[17538] = 36'o042136042174; // 042202 SSRAM[17539] = 36'o042173000001; // 042203 SSRAM[17540] = 36'o037045036712; // 042204 SSRAM[17541] = 36'o515764003500; // 042205 SSRAM[17542] = 36'o770000000000; // 042206 SSRAM[17543] = 36'o656345620055; // 042207 SSRAM[17544] = 36'o574445004357; // 042210 SSRAM[17545] = 36'o564345415445; // 042211 SSRAM[17546] = 36'o447655417051; // 042212 SSRAM[17547] = 36'o556555004254; // 042213 SSRAM[17548] = 36'o574353006462; // 042214 SSRAM[17549] = 36'o415663464562; // 042215 SSRAM[17550] = 36'o770000000000; // 042216 SSRAM[17551] = 36'o254200000013; // 042217 SSRAM[17552] = 36'o254040000011; // 042220 SSRAM[17553] = 36'o476000000020; // 042221 SSRAM[17554] = 36'o251340777777; // 042222 SSRAM[17555] = 36'o000020000021; // 042223 SSRAM[17556] = 36'o000000044502; // 042224 SSRAM[17557] = 36'o100000400044; // 042225 SSRAM[17558] = 36'o515643576262; // 042226 SSRAM[17559] = 36'o454364006445; // 042227 SSRAM[17560] = 36'o625551564164; // 042230 SSRAM[17561] = 36'o515756005565; // 042231 SSRAM[17562] = 36'o655777000000; // 042232 SSRAM[17563] = 36'o042207042226; // 042233 SSRAM[17564] = 36'o042217044424; // 042234 SSRAM[17565] = 36'o037045000000; // 042235 SSRAM[17566] = 36'o010000000014; // 042236 SSRAM[17567] = 36'o515643576262; // 042237 SSRAM[17568] = 36'o454364006445; // 042240 SSRAM[17569] = 36'o625551564164; // 042241 SSRAM[17570] = 36'o515756006043; // 042242 SSRAM[17571] = 36'o770000000000; // 042243 SSRAM[17572] = 36'o042207042237; // 042244 SSRAM[17573] = 36'o042236044425; // 042245 SSRAM[17574] = 36'o037045000000; // 042246 SSRAM[17575] = 36'o604147450046; // 042247 SSRAM[17576] = 36'o415154656245; // 042250 SSRAM[17577] = 36'o770000000000; // 042251 SSRAM[17578] = 36'o435762624543; // 042252 SSRAM[17579] = 36'o643560460067; // 042253 SSRAM[17580] = 36'o576244140041; // 042254 SSRAM[17581] = 36'o436465415435; // 042255 SSRAM[17582] = 36'o604600604377; // 042256 SSRAM[17583] = 36'o042207042247; // 042257 SSRAM[17584] = 36'o000005000006; // 042260 SSRAM[17585] = 36'o042252000000; // 042261 SSRAM[17586] = 36'o037013000421; // 042262 SSRAM[17587] = 36'o737776737777; // 042263 SSRAM[17588] = 36'o537776537777; // 042264 SSRAM[17589] = 36'o455664627100; // 042265 SSRAM[17590] = 36'o645700656345; // 042266 SSRAM[17591] = 36'o620055574445; // 042267 SSRAM[17592] = 36'o006556636543; // 042270 SSRAM[17593] = 36'o456363466554; // 042271 SSRAM[17594] = 36'o770000000000; // 042272 SSRAM[17595] = 36'o526263644600; // 042273 SSRAM[17596] = 36'o464151544544; // 042274 SSRAM[17597] = 36'o770000000000; // 042275 SSRAM[17598] = 36'o042207042265; // 042276 SSRAM[17599] = 36'o000005000006; // 042277 SSRAM[17600] = 36'o042273000000; // 042300 SSRAM[18324] = 36'o000000000000; // 043624 SSRAM[18401] = 36'o000000000000; // 043741